/*RX Cluster-Programm auf  binden und laufen lassen **
**
** $VER: ClRun 2.0 (1.3.93)
** $Id: ClLink,v 1.2 1993/03/10 00:11:13 piet Exp $
*/

TRACE N

IF Address()='REXX' THEN
  ADDRESS COMMAND


parse arg srcfile errfile		/* derzeit noch keine Quotes! */

IF srcfile='' | srcfile='?' THEN DO
  SAY 'ClLink Sourcefile [ErrorFile]'
  EXIT 10
END



IF ~SHOW(Port,CLUSTER.REXX) THEN
  CALL 'Cluster:Rexx/LoadCluster'


srcfile = fullpath(srcfile)
if errfile='' then
  errfile = 'T:errfile'
else
  errfile = fullpath(errfile)


ADDRESS CLUSTER.REXX Link srcfile errfile
ClusterRC = RC

'type' errfile
exit ClusterRC



fullpath: procedure

    parse arg file
    path = pragma(d)

    i = index(file,':')

    if i>1 then return file;                /* enthält bereits vollen Pfad */
    if i=1 then do                          /* Relativ zur FS-Wurzel */
        parse var path path ':'
        return path || file
    end
                                            /* einfaches Aneinanderhängen */
    if right(path,1)='/' | right(path,1)=':' then
        return path || file
    else
        return path'/'file