This program is to test the ability of Octagon to handle nested ant commands.
Program
---
Nested Ant Test Program 1
This program is to test the ability of Octagon to
handle nested ant commands.
---
prog_vars =
d/a 0
d/b 0
d/c 0
d/run_no 0
prog_vars.
prog_start =
print "Nestedt Ant Test Program"
rdbg 6
prog_start.
prog_loop =
"MMMMMMMMMMM MAIN run /run_no MMMMMMMMMMM"
ant /run_no ->
= 1 -> task1 /run_no
= 2 -> task2 /run_no
= 3 -> task2 /run_no
-> default_task /run_no
ant.
"POST ANT"
inc /run_no
any /run_no > 5 -> exitprog
prog_loop.
task1 /t1_runs 0 =
"ENTER T1"
patdog 1
tg c1
ant /t1_runs ->
= 1 -> "T1 Run 1"
= 2 -> "T1 Run 2"
-> "T1 Defaiult /t1_runs"
ant.
patdog 2
"EXIT T1"
task1.
task2 /t2_runs 0 =
tg c2
"ENTER T2"
ant /t2_runs ->
= 1 -> "T2 Run 1"
= 2 -> "T2 Run 2"
= 3 -> "T2 Run 3"|task3 /t2_runs
-> "T2 Defaiult /t2_runs"
ant.
"EXIT T2"
task2.
task3 /t3_runs 0 =
"ENTER T3"
tg c3
ant /t3_runs ->
= 1 -> "T3 Run 1"
= 2 -> "T3 Run 2"
= 3 -> "T3 Run 3"
-> "T3 Defaiult /t3_runs"
ant.
"EXIT T3"
task3.
default_task /d_run_no 0 =
"ENTER default_task run /d_run_no"
"EXIT default_task run /d_run_no"
default_task.
prog_stop =
-- max /numarray[*] -> /maxnum
-- print "the maximum number is /maxnum"
print "bye"
prog_stop.
---
The peogram should produce this output:
Nestedt Ant Test Program
MMMMMMMMMMM MAIN run 0 MMMMMMMMMMM
ENTER default_task run 0
EXIT default_task run 0
POST ANT
MMMMMMMMMMM MAIN run 1 MMMMMMMMMMM
ENTER T
T1 Run 1
EXIT T1
POST ANT
MMMMMMMMMMM MAIN run 2 MMMMMMMMMMM
ENTER T2
T2 Run 2
EXIT T2
POST ANT
MMMMMMMMMMM MAIN run 3 MMMMMMMMMMM
ENTER T2
T2 Run 3
ENTER T3
T3 Run 3
EXIT T3
EXIT T2
POST ANT
MMMMMMMMMMM MAIN run 4 MMMMMMMMMMM
ENTER default_task run 4
EXIT default_task run 4
POST ANT
MMMMMMMMMMM MAIN run 5 MMMMMMMMMMM
ENTER default_task run 5
EXIT default_task run 5
POST ANT
bye
---