home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma30.dms / ma30.adf / Konwersja / Rexx / RxTest.konrx < prev    next >
Text File  |  1994-08-16  |  1KB  |  52 lines

  1. /*
  2.     Konwersja 3.0b
  3.  
  4.     Makro ARexxa: Test funkcji RX
  5.     Ukazuje wykorzystanie komendy RX poprzez rekurencyjne uruchomienie samego
  6.     siebie.
  7.  
  8.     $VER: RxTest.konrx 1.1 (30.6.94)
  9.  
  10.     Copyright © 1993, 1994 Kamil Iskra
  11. */
  12.  
  13. OPTIONS RESULTS
  14.  
  15. ADDRESS "KONWERSJA" /* Niepotrzebne, o ile makro uruchomione z Konwersji */
  16.  
  17. IF ARG()=0 THEN
  18.     /* Nie ma argumentu - normalnie wywoîane makro */
  19.     Zapetlenie=0
  20. ELSE
  21.     DO
  22.         Zapetlenie=ARG(1)
  23.         IF DATATYPE(Zapetlenie)="NUM" THEN
  24.             DO
  25.                 IF Zapetlenie>5 | Zapetlenie<0 THEN
  26.                     /* Ktoô uruchomiî makro z gîupim argumentem liczbowym */
  27.                     Zapetlenie=0
  28.             END
  29.         ELSE
  30.             /* Ktoô uruchomiî makro z jakimô gîupim argumentem */
  31.             Zapetlenie=0
  32.     END
  33.  
  34. SAY "Poziom rekurencyjnego zapëtlenia:" Zapetlenie
  35.  
  36. IF Zapetlenie=5 THEN
  37.     DO
  38.         SAY "5 to wystarczajâco duûo, a wiëc powracam."
  39.         EXIT
  40.     END
  41.  
  42. /* Zwiëkszmy licznik zapëtleï */
  43. Zapetlenie=Zapetlenie+1
  44.  
  45. /* I wywoîajmy nasze makro (przy pomocy PARSE SOURCE znajdujë nazwë skryptu)
  46. */
  47. PARSE SOURCE Type Res NazwaSkryptu Reszta
  48. SAY NazwaSkryptu
  49. RX NazwaSkryptu Zapetlenie
  50. IF RC~=0 THEN
  51.     SAY "Byîy jakieô problemy z wywoîaniem makra!"
  52.