home *** CD-ROM | disk | FTP | other *** search
/ Online Praxis 1998 March / Image.iso / CD-ROM / ZUGANG / TONLINE / V20 / T-ONLINE.Z / GETARGV.MKR < prev    next >
Encoding:
Text File  |  1997-06-04  |  957 b   |  36 lines
  1. #   -----------------------------------------
  2. #   - Beispielmakro fuer den Befehl getargv -
  3. #   - Ruft sich selbst mit Argumenten auf.  -
  4. #   -----------------------------------------
  5.  
  6. #   Protokollfensterausgaben ermoeglichen
  7. set PROTWIN = "on"
  8.  
  9. #   Makroname holen
  10. set Makroname = argv_0
  11.  
  12. #   wenn argc kleiner als "2", dann wurde das Makro nicht von
  13. #   sich selbst aufgerufen
  14. ifless argc than "2" goto NoPara
  15.  
  16. #   Makro wurde von sich selbst aufgerufen => Ebene holen und hochzaehlen
  17. #   Alle Argumente ausgeben
  18. set Count = "0"
  19.  
  20. #   Schleife, bei jedem Durchlauf ein Argument ausgeben
  21. Loop:
  22. getargv Arg = Count
  23. debug "argv_", Count, " = <", Arg, ">\n"
  24. inc Count
  25. ifless Count than argc goto Loop
  26. end
  27.  
  28. #   Diesen Teil nur beim ersten Aufruf ausfuehren
  29. NoPara:
  30. debug "Makroname: ", argv_0, "\n"
  31.  
  32. #   Makro ruft sich selbst auf
  33. debug "Makro ruft sich selber auf ...\n"
  34. call Makroname, "Hallo", "Name", "0777788889999"
  35. end
  36.