ETO Development Tools 2/ETO Development Tools 2.iso/Tools - Objects/Virtual User 1.0b5/Virtual User/MPW Scripts/Multi_vu

Text File | 1990-10-05 | 1.3 KB | 66 lines | [TEXT/MPS ]

#
#    File:        multiVU
#
#    Contains:    This script can be used to create the command line for executing
#                VU, interactively (via Commando) for multiple targets/scripts.
#                This script will not execute VU but will generate the command line
#                for you to execute.
#
#    Written by:    P Nagarajan
#
#    Copyright:    © 1989 by Apple Computer, Inc., all rights reserved.
#
#    Change History:
#
#         6/5/89       naga        creation
#
#    To Do:
#

set exit 0
set newcommand 'VU '
set total_targets "`request "how many targets do you plan to run against?"`"
exit 1 if {total_targets} > 12
exit 1 if {total_targets} < 1
set target_num 1
loop
    Break if {target_num} > {total_targets}
    set str "`commando VU`"
    set skip 1
    for item in {str}
        if {skip}
            set skip 0
            continue
        end
        if "{item}" =~ /-(≈)®1/
            set newcommand "{newcommand} -{®1}{target_num}"
        else
            set newcommand "{newcommand} ∂'{item}∂'"
        end #if
    end #for
    evaluate target_num = {target_num} + 1
end #loop
set skip 1
set arg_seen 0
for item in {newcommand}
    if {skip}
        echo -n "{item}"
        set skip 0
        continue
    end
    if "{item}" =~ /-(≈)/
        if {arg_seen}
            echo -n " ∂∂∂n"
            set delta 1
        end
        echo -n "∂t{item}"
        set arg_seen 1
    else
        set arg_seen 0
        echo -n "∂t∂'{item}∂' ∂∂∂n"
        set delta 1
    end #if
end #for
if {delta}
    replace \∂∂\  '' "{active}"
end