home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Amiga Shareware Floppies
/
ma30.dms
/
ma30.adf
/
Konwersja
/
Rexx
/
RxTest.konrx
< prev
next >
Wrap
Text File
|
1994-08-16
|
1KB
|
52 lines
/*
Konwersja 3.0b
Makro ARexxa: Test funkcji RX
Ukazuje wykorzystanie komendy RX poprzez rekurencyjne uruchomienie samego
siebie.
$VER: RxTest.konrx 1.1 (30.6.94)
Copyright © 1993, 1994 Kamil Iskra
*/
OPTIONS RESULTS
ADDRESS "KONWERSJA" /* Niepotrzebne, o ile makro uruchomione z Konwersji */
IF ARG()=0 THEN
/* Nie ma argumentu - normalnie wywoîane makro */
Zapetlenie=0
ELSE
DO
Zapetlenie=ARG(1)
IF DATATYPE(Zapetlenie)="NUM" THEN
DO
IF Zapetlenie>5 | Zapetlenie<0 THEN
/* Ktoô uruchomiî makro z gîupim argumentem liczbowym */
Zapetlenie=0
END
ELSE
/* Ktoô uruchomiî makro z jakimô gîupim argumentem */
Zapetlenie=0
END
SAY "Poziom rekurencyjnego zapëtlenia:" Zapetlenie
IF Zapetlenie=5 THEN
DO
SAY "5 to wystarczajâco duûo, a wiëc powracam."
EXIT
END
/* Zwiëkszmy licznik zapëtleï */
Zapetlenie=Zapetlenie+1
/* I wywoîajmy nasze makro (przy pomocy PARSE SOURCE znajdujë nazwë skryptu)
*/
PARSE SOURCE Type Res NazwaSkryptu Reszta
SAY NazwaSkryptu
RX NazwaSkryptu Zapetlenie
IF RC~=0 THEN
SAY "Byîy jakieô problemy z wywoîaniem makra!"