HP TACL - Page 69

Processing Arguments
Developing TACL Routines
107365 Tandem Computers Incorporated 3–13
Figure 3-7. Assigning Values to Arguments (Page 2 of 2)
|ELSE|
== More triplets; argument can be followed by a comma
[#CASE [#ARGUMENT/TEXT %3%/ %2% COMMA END]
|1|
SINK [#ARGUMENT COMMA END]
|2|
#SET %3%
|3|
]
] == end #IF
|required|
SINK [#ARGUMENT/TEXT %3%/ %2%] == Get required argument
[#IF [#EMPTY %4%] |THEN| == Check for more triplets
== No more triplets; argument cannot be followed by
== a comma
SINK [#ARGUMENT END]
|ELSE|
== More triplets; argument can be followed by a comma
SINK [#ARGUMENT COMMA END]
] == end #IF
] == end #CASE
== Call self again, without the current triplet.
%0% %4 TO *%
] == end #IF
Call_getargs supports the following syntax:
call_getargs filename, filename [ , number, number ]