home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / GME / GMEFILE.D < prev    next >
Encoding:
Text File  |  1991-03-09  |  2.4 KB  |  3 lines
  1. ⓪ DEFINITION MODULE GMEFile;
  2. ⓪ (*$Z+*)
  3. ⓪ 
  4. ⓪ (* The Little Golem Editor. Begonnen 13. 06. 86
  5. ⓪#(C) 1986 by Johannes Leckebusch
  6. ⓪#Version: Siehe ceditor
  7. ⓪ *)
  8. ⓪ 
  9. ⓪ FROM GMEBase IMPORT einPufferPointer, einMerkSet, eineInfo,
  10. ⓪"einPufferDeskriptor, einLinePointer, einStringPointer;
  11. ⓪ 
  12. ⓪ VAR     GlobalPfad:     eineInfo;
  13. ⓪ 
  14. ⓪ PROCEDURE TextSchreiben (Puff: einPufferPointer; forceBackup,
  15. ⓪9markiert, frage, saveconfig, controlfil: BOOLEAN;
  16. ⓪9VAR erfolgreich: BOOLEAN);
  17. ⓪ PROCEDURE TextLesen (Puff: einPufferPointer; initialisiere: BOOLEAN;
  18. ⓪9frage, loadconfig, message: BOOLEAN);
  19. ⓪ PROCEDURE TextVorhanden (Name: ARRAY OF CHAR): BOOLEAN;
  20. ⓪ PROCEDURE TextLoeschen (Name: ARRAY OF CHAR);
  21. ⓪ PROCEDURE ReInit (Puff: einPufferPointer);
  22. ⓪ 
  23. ⓪ (* DEFINITION MODULE EditCommand; *)
  24. ⓪ 
  25. ⓪"PROCEDURE SetCompilerInfo (Puff: einPufferPointer;
  26. ⓪0VAR FehlerMeldung: ARRAY OF CHAR);
  27. ⓪ 
  28. ⓪"PROCEDURE SetPath;
  29. ⓪"(* Pfad für Dienstprogramme einstellen *)
  30. ⓪"
  31. ⓪"PROCEDURE NextArgument (VAR n, arg: ARRAY OF CHAR): BOOLEAN;
  32. ⓪"(* Kopiert aus n das erste Argument (bis zum Blank) in arg und löscht
  33. ⓪%es in n. FALSE wenn n der leere String ist. *)
  34. ⓪"
  35. ⓪"PROCEDURE SplitFileName (name: ARRAY OF CHAR;
  36. ⓪;VAR path, file, suff: ARRAY OF CHAR);
  37. ⓪"(* Kopiert den Pfad- und Dateinamensanteil aus name getrennt nach
  38. ⓪%path und file *)
  39. ⓪"
  40. ⓪"PROCEDURE CommandLine (VAR FILENAME, FEHLERMELD: ARRAY OF CHAR): BOOLEAN;
  41. ⓪ 
  42. ⓪ (*
  43. ⓪"PROCEDURE DoRunProgram (Pfadname, Dateiname, Argument: ARRAY OF CHAR): INTEGER;
  44. ⓪ *)
  45. ⓪ 
  46. ⓪ VAR     CompilerPfad:   eineInfo;
  47. ⓪(ScrapPfad:      eineInfo;
  48. ⓪(ScrapName:      eineInfo;
  49. ⓪(BackPointer:    einStringPointer;
  50. ⓪((* DoClipboard:    BOOLEAN; *)
  51. ⓪ 
  52. ⓪ PROCEDURE LoadConfig (Puff: einPufferPointer; frage, message: BOOLEAN);
  53. ⓪ PROCEDURE SaveConfig (Puff: einPufferPointer; frage: BOOLEAN);
  54. ⓪ 
  55. ⓪ END GMEFile.
  56. ⓪ ə
  57. (* $FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2Ç$00000178T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000703$00000002$000006F1$000001CE$00000182$00000178$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2ÿÇé*)
  58.