The Queued function returns the number of lines in the external data queue.
| result = Queued() |
|
Examples:
say Queued() -- shows: 7, when that many lines remain
/* prepare a sequence of programs to process */
queue 'Program1 -- main program'
queue 'Subprog1 -- subprogram 1'
queue 'Subprog2 -- subprogram 2'
programs = ''
do queued( )
parse pull program .
'cc' program'.c'
if rc <> 0 then do
say 'An error occurred while compiling' program'.c ...' rc
exit 1
end
programs = programs program'.obj'
end
'link /out:Module.exe' programs
if rc <> 0 then do
say 'An error occurred while linking Module.exe ... code:' rc
exit 1
end
exit 0
|