/* AppLauncher (W) by Martin Steigerwald */

ver = '$VER: AppLauncher 1.4 (16.8.97) (W) by Martin Steigerwald'

kommandoprefix = 'C:RUN >NIL: <NIL: '

OPTION RESULTS; OPTIONS FAILAT 99

IF ~SHOW('L', "rexxdossupport.library") THEN ADDLIB("rexxdossupport.library", 0, -30, 3)

PARSE ARG input

template= "APPLICATION/A,PORT/A,STARTCOMMAND,LOADCOMMAND/A,FILES/M"

IF ~ReadArgs(input,template, "args.") THEN DO
    SAY template
    SAY Fault(rc, "AppLauncher")
    EXIT
END

IF ~SHOW('P', args.port) THEN DO
    /* wordworth kludge */
    pfad = PathPart(args.application)
    PRAGMA('D', pfad)

    ADDRESS COMMAND kommandoprefix || args.application
    ADDRESS COMMAND 'WaitForPort' args.port
END

ADDRESS VALUE args.port

IF args.startcommand ~== "ARGS.STARTCOMMAND" THEN args.startcommand

DO i=0 BY 1 FOR args.files.count
    args.loadcommand args.files.i
END