home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / tooltypes / tooltypes.dok < prev    next >
Text File  |  1996-07-15  |  3KB  |  67 lines

  1. DEFINITION ToolTypes;
  2.     
  3. IMPORT Workbench,Exec;
  4.     
  5. VAR wbs- : Workbench.WBStartupPtr; MeinIcon- : Workbench.DiskObjectPtr;
  6.     
  7. PROCEDURE GetToolString*  (Pattern: ARRAY OF CHAR;
  8.                            VAR in:  ARRAY OF CHAR): BOOLEAN;
  9.  
  10. PROCEDURE GetToolRawStr*  (Pattern: ARRAY OF CHAR;
  11.                            VAR in: Exec.STRING): BOOLEAN;
  12.  
  13. PROCEDURE GetToolInt*     (Pattern: ARRAY OF CHAR;
  14.                            Default: LONGINT): LONGINT;
  15.     
  16. END ToolTypes.
  17.  
  18. Dieses  Modul  dient zum Auswerten der Konfiguration eines Programmes.
  19. Dabei ist es egal, ob das gesuchte Keyword als ToolType des Icons, als
  20. Argument  in  der Befehlszeile, als Environment-Variable oder in einem
  21. Konfigurationsfile vorliegt, es wird gefunden und ausgewertet.
  22.  
  23. Die Suchreihenfolge ist dabei folgende:
  24. Workbenchstart: ToolType der Form "TOOLTYPE=Argument"
  25. CLI-Start:      Kommandozeilenparameter der Form "TOOLTYPE=Argument"
  26.  
  27. falls dort nicht gefunden:
  28. Environmentvariable  mit  dem  Namen  des ToolType, der Inhalt ist das
  29. Argument
  30.  
  31. falls dort nicht gefunden:
  32. Ein Eintrag in der Config-Datei der Form "#TOOLTYPE=Argument"
  33.    # muss in der ersten Spalte stehen-----^
  34.  
  35. Der   Name  der  Configdatei  wird  entweder  als  TOOLTYPE  der  Form
  36. "CONFIG=HD:Pfad/MeineConfig"   angegegeben   oder   unter   dem  Namen
  37. "ProgName.cfg" in den Verzeichnissen ProgrammDir, ENV:, ENV:ProgName/,
  38. StartUpDir in der angegebenen Reihenfolge gesucht.
  39.  
  40.  
  41. PROCEDURE  GetToolRawStr(Pattern: ARRAY OF CHAR; 
  42.                          VAR in: Exec.STRING): BOOLEAN;
  43.  
  44. Liefert  das zum ToolType Pattern passende Argument in der Variable in
  45. den String, so wie es in den ToolTypes steht.
  46.  
  47. Beim  Start vom Cli werden die Argumente nach dem String "Pattern=..."
  48. durchsucht   und   danach   String   hinter   dem   Gleichheitszeichen
  49. ausgewertet.   Wenn  kein  ToolType  vorhanden  ist  wird  nach  einer
  50. Environment-Variablen  (=File  mit  dem Namen im env: Verzeichnis) mit
  51. dem  Namen  gesucht  und  diese  ausgewertet. Falls das ToolType nicht
  52. existiert ist das Ergebnis FALSE.
  53.  
  54. PROCEDURE   GetToolString*(Pattern:ARRAY OF CHAR;
  55.                            VAR in:ARRAY OF CHAR): BOOLEAN;
  56.  
  57. Wie  GetToolRawString,  nur  werden  hier  führende  und abschließende
  58. Leerzeichen   entfernt.   Falls   das  Argument  in  Anführungszeichen
  59. eingeschlossen    ist,    werden   diese   entfernt,   innerhalb   der
  60. Anführungszeichen stehende Leerzeichen werden belassen.
  61.  
  62. PROCEDURE GetToolInt*(Pattern:ARRAY OF CHAR;Default:LONGINT):LONGINT;
  63.  
  64. Wertet  Integerargumente  als  Tools  aus.  Falls  das  ToolType nicht
  65. existiert wird der Default-Wert zurückgegeben.
  66.  
  67.