Pobranie parametrów wiersza poleceń Sparta Dos X
Funkcja GETPAR() oraz XGETPAR() autorstwa kolegi Lizard-a przetwarza parametry przekazane w wierszu poleceń systemów zgodnych ze standardem OSS. Kod oparty na opisie wiersza poleceń z Atariki. Funkcja przekazuje zwrotnie adres przetworzonego ciągu lub 0 (zero) jeśli parametry nie wystąpiły.
Card Func GETPAR() ;Lizard
[$4C*+30$AA0$AB1$2048$0$A000$680A
$F138$D00A$AA03$4F0$A9$A200$8500$86A0
$60A1$9A5$904A$A5F2$C90B$B0C0$A0EC
$B103$C90A$D04C$C8E4$AB1$99*+65487
$5C0$F690$AA5$2069$8D*+65494$BA5$69
$8D00*+65489$EAA9$8D*+65459$8D*+65457
$8D*+65455$A9D0]
; przykład: pobieranie i wyświetlanie kolejnych parametrów
; pobranych z wiersza poleceń
Proc MAIN()
Byte Pointer PAR
PAR=XGETPAR()
If PAR=0 Then PrintE(„USAGE: TEST PAR1 [PAR2 [PAR3]]”) Return Fi
While PAR
Do
PRINTE(PAR)
PAR=GETPAR()
Od
Testowanie powyższego przykładu oczywiście wymaga wcześniejszej kompilacji i uruchomienia pliku COM z wiersza poleceń z przykładowymi parametrami:
W przypadku kiedy program sam sprawdza obecność wiersza poleceń systemu Sparta Dos X można wykorzystać funkcję XGETPAR() która jest skróconą wersją funkcji GETPAR():
Card Func XGETPAR() ;Lizard
[$4C*+16$3D0$F08A$A904$A200$8500$86A0
$60A1$20A9$8D*+65516$3A0$B1C8$990A
*+65505$5C0$F690$AA5$2069$8D*+65506
$BA5$69$8D00*+65501$CED0]