home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Arguments.def next >
Text File  |  1994-05-25  |  4KB  |  88 lines
  1. |##########|
  2. |#MAGIC   #|CLABLOBE
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|-x---x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----x----------
  9. |##########|
  10. |==============================================================================|
  11. | Modul      : Arguments                                                       |
  12. | Autor      : Ulrich Sigmund und Thomas Pfrengle                              |
  13. | Datum      : 10.10.1991                                                      |
  14. | Verwendung : Bearbeitung der Argumente, die beim Programmstart übergeben     |
  15. |              wurden.                                                         |
  16. | Änderungen : 17.12.91 Arg() gibt beim Start von der Workbench jetzt den      |
  17. |                       kompletten Pfad des Argumentes zurück, ausserdem       |
  18. |                       ist in diesem Falle das Aktuelle Directory das, in dem |
  19. |                       sich das Programm befindet.                            |
  20. |==============================================================================|
  21. DEFINITION MODULE Arguments;
  22.  
  23.  
  24.  
  25. VAR
  26.   NumArgs    : INTEGER;   | Anzahl übergebener Argumente (1..NumArgs)
  27.   Wb         : BOOLEAN;   | Flag für Workbenchstart
  28.  
  29. |
  30. | Funktion   : Gibt Argumentstring zurück
  31. | Parameter  :
  32. |            num <- Nummer des Arguments (0..NumArgs-1), das ausgegeben
  33. |                   werden soll.
  34. |                -> String mit dem num-ten Argument. Wurde das Programm von der
  35. |                   Workbenchgestartet, erhaelt man den kompletten Pfad der
  36. |                   uebergebenen Datei.
  37. |                   Arg(-1) gibt den Namen des Programms zurueck.
  38. |tested
  39. $$OwnHeap:=TRUE
  40. PROCEDURE Arg(num : INTEGER):STRING;
  41.  
  42. |
  43. | Funktion  : Überprüft das Vorhandensein eines Arguments und liefert die
  44. |             Position zurück.
  45. | Parameter : arg      <- Argumentstring, nach dem gesucht werden soll.
  46. |             start    <- Nummer des Argument, von dem ab gesucht werden soll.
  47. |                         wichtig, falls ein Argument mehrfach vorkommen darf.
  48. |             caps     <- Flag, ob ohne Rücksicht auf die Groß/Kleinschreibung
  49. |                         vergleichen werden soll.
  50. | tested
  51. PROCEDURE Exists(REF arg : STRING;start : INTEGER:=0;caps : BOOLEAN:=TRUE):INTEGER;
  52.  
  53. |
  54. | Funktion    :  Liefert den Wert eines ToolTypes
  55. | Parameter   :  path       <-  Pfad der Datei, auf die sich der Befehl bezieht
  56. |                toolType   <-  Tooltype, dessen Wert abgefragt werden soll.
  57. |                            -> Wert des Tooltypes oder ein Leerstring, falls
  58. |                               der Tooltype nicht gesetzt war.
  59. | tested
  60. $$OwnHeap:=TRUE
  61. PROCEDURE FindToolType(REF path,toolType : STRING):STRING;
  62.  
  63. |
  64. | Funktion  : Vergleicht einen übergebenen TollType-Wert mit einem vorgegebenen
  65. |             ToolType. Dabei wird nicht Case-Sensitiv vorgegangen.
  66. |             Ausserdem wird unterschieden, ob in TypeString mehere
  67. |             alternative Möglichkeiten existieren, die durch ein `|` getrennt
  68. |             sind z.B.:
  69. |
  70. |             type1 = "text"
  71. |             type2 = "a|b|c"
  72. |
  73. |         MatchToolValue( type1, "text" ) -> TRUE
  74. |         MatchToolValue( type1, "TEXT" ) -> TRUE
  75. |         MatchToolValue( type1, "data" ) -> FALSE
  76. |         MatchToolValue( type2, "a" )    -> TRUE
  77. |         MatchToolValue( type2, "b" )    -> TRUE
  78. |         MatchToolValue( type2, "d" )    -> FALSE
  79. |         MatchToolValue( type2, "a|b" )  -> FALSE
  80. |
  81. PROCEDURE MatchToolValue(REF TypeString,Val : STRING):BOOLEAN;
  82.  
  83. GROUP
  84.   All = NumArgs,Wb,Arg,Exists;
  85.  
  86. END Arguments.
  87.  
  88.