home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
tooltypes
/
tooltypes.dok
< prev
next >
Wrap
Text File
|
1996-07-15
|
3KB
|
67 lines
DEFINITION ToolTypes;
IMPORT Workbench,Exec;
VAR wbs- : Workbench.WBStartupPtr; MeinIcon- : Workbench.DiskObjectPtr;
PROCEDURE GetToolString* (Pattern: ARRAY OF CHAR;
VAR in: ARRAY OF CHAR): BOOLEAN;
PROCEDURE GetToolRawStr* (Pattern: ARRAY OF CHAR;
VAR in: Exec.STRING): BOOLEAN;
PROCEDURE GetToolInt* (Pattern: ARRAY OF CHAR;
Default: LONGINT): LONGINT;
END ToolTypes.
Dieses Modul dient zum Auswerten der Konfiguration eines Programmes.
Dabei ist es egal, ob das gesuchte Keyword als ToolType des Icons, als
Argument in der Befehlszeile, als Environment-Variable oder in einem
Konfigurationsfile vorliegt, es wird gefunden und ausgewertet.
Die Suchreihenfolge ist dabei folgende:
Workbenchstart: ToolType der Form "TOOLTYPE=Argument"
CLI-Start: Kommandozeilenparameter der Form "TOOLTYPE=Argument"
falls dort nicht gefunden:
Environmentvariable mit dem Namen des ToolType, der Inhalt ist das
Argument
falls dort nicht gefunden:
Ein Eintrag in der Config-Datei der Form "#TOOLTYPE=Argument"
# muss in der ersten Spalte stehen-----^
Der Name der Configdatei wird entweder als TOOLTYPE der Form
"CONFIG=HD:Pfad/MeineConfig" angegegeben oder unter dem Namen
"ProgName.cfg" in den Verzeichnissen ProgrammDir, ENV:, ENV:ProgName/,
StartUpDir in der angegebenen Reihenfolge gesucht.
PROCEDURE GetToolRawStr(Pattern: ARRAY OF CHAR;
VAR in: Exec.STRING): BOOLEAN;
Liefert das zum ToolType Pattern passende Argument in der Variable in
den String, so wie es in den ToolTypes steht.
Beim Start vom Cli werden die Argumente nach dem String "Pattern=..."
durchsucht und danach String hinter dem Gleichheitszeichen
ausgewertet. Wenn kein ToolType vorhanden ist wird nach einer
Environment-Variablen (=File mit dem Namen im env: Verzeichnis) mit
dem Namen gesucht und diese ausgewertet. Falls das ToolType nicht
existiert ist das Ergebnis FALSE.
PROCEDURE GetToolString*(Pattern:ARRAY OF CHAR;
VAR in:ARRAY OF CHAR): BOOLEAN;
Wie GetToolRawString, nur werden hier führende und abschließende
Leerzeichen entfernt. Falls das Argument in Anführungszeichen
eingeschlossen ist, werden diese entfernt, innerhalb der
Anführungszeichen stehende Leerzeichen werden belassen.
PROCEDURE GetToolInt*(Pattern:ARRAY OF CHAR;Default:LONGINT):LONGINT;
Wertet Integerargumente als Tools aus. Falls das ToolType nicht
existiert wird der Default-Wert zurückgegeben.