;
;		BUILDRTS
;		========
;
;	Build all Runtime Support libraries
;
.enable substitution
.gosub setcli
.setf ID
.setf FPP
.setf GBLFPP
.setf FIS
.setf EIS
.sets COM "RTL"
.sett xtrcok 
;
.ask ID Will your programs be run under RSX-11M+ or Micro/RSX
.ift ID .sett EIS
;
.ask FPP Will your programs be run on systems with the FPP co-processor
.iff FPP .goto askfis
.sett EIS
.setf FIS
;
.ask GBLFPP Will you be recompiling all modules with the /FP switch
.goto askcom
.;
.askfis:
.setf GBLFPP
;
.ask FIS Will your programs be run on systems with FIS hardware
.;
.iff EIS ;
.iff EIS .ask EIS Will your programs be run on systems with EIS hardware
.askcom:
;
.asks [::"RTL"] COM Under what name is the RTL/2 compiler installed
.;
.sets params ""
.ift ID  .sets params params+"<true> "
.iff ID  .sets params params+"<false> "
.ift FPP .sets params params+"<true> "
.iff FPP .sets params params+"<false> "
.ift GBLFPP .sets params params+"<true> "
.iff GBLFPP .sets params params+"<false> "
.ift FIS .sets params params+"<true> "
.iff FIS .sets params params+"<false> "
.ift EIS .sets params params+"<true> "
.iff EIS .sets params params+"<false> "
.sets params params+COM
;
.ask SIO Re-build Stream i/o library
.ift SIO .gosub xtract rsxiobld
.iff xtrcok .setf SIO
;
.ask SLR Re-build Formatted i/o library
.ift SLR .gosub xtract slrbld
.iff xtrcok .setf SLR
;
.ask BAS Re-build Base program modules (NB: not for Sym Debug)
.ift BAS .gosub xtract base
.iff xtrcok .setf BAS
;
.ask MTH Re-build Maths library
.ift MTH .gosub xtract mathsbld
.iff xtrcok .setf MTH
;
.ask EXC Re-build Executive Interface library
.ift EXC .gosub xtract excbld
.iff xtrcok .setf EXC
;
.ask BATCH Do the rest of the work in batch
.ift BATCH .goto dobtch
.;
.ift SIO @rsxiobld 'params'
.;
.ift SLR @slrbld 'params'
.;
.ift BAS @base 'params'
.;
.ift MTH @mathsbld 'params'
.;
.ift EXC @excbld
.;
'rstcli'
.exit
.;
.;
.dobtch:
;
.asks [::"/NOPRINT"] BSW Enter any switch values for the Submit command
.;
.open #0 buildrts.bat
.data #0 $job/time:(1:59)
.if <direct> ne "" .data #0 $set def '<direct>'
.if <direct> eq "" .data #0 $set /uic='<uic>'
.ift SIO .data #0 $@rsxiobld 'params'
.ift SLR .data #0 $@slrbld 'params'
.ift BAS .data #0 $@base 'params'
.ift MTH .data #0 $@mathsbld 'params'
.ift EXC .data #0 $@excbld
.data #0 $eoj
.close #0
.;
submit'BSW' buildrts.bat
.;
'rstcli'
.exit
.;
.; Subroutine to get build command file
.;
.xtract:
.parse comman " " cmdfil
.sett xtrcok
.testfile 'cmdfil'.cmd
.if <filerr> eq 1 .return
.testfile sourcersx.ulb
.if <filerr> ne 1 .goto nolibr
.ift isdcl libr/extract/output:'cmdfil'.cmd sourcersx.ulb 'cmdfil'
.iff isdcl lbr 'cmdfil'.cmd=sourcersx.ulb/ex:'cmdfil'
.if <exstat> eq 1 .return
.setf xtrcok
;
;	Failed to extract build command file  'cmdfil'.cmd
;
.return
.nolibr:
;
;	Unable to find source library sourcersx.ulb
;
'rstcli'
.exit
.;
.; Subroutine to determine current CLI; set it to DCL if possible
.;
.setcli:
.sett isdcl
.sets rstcli ";"
.sets oldcli "'<cli>'"
.if oldcli eq "DCL" .return
.if oldcli ne "MCR" .goto lsc1
.ifnins dcl .setf isdcl
.iff isdcl .return
.sets rstcli "mcr set /mcr=ti:"
.lsc1:
dcl set /dcl
.if rstcli eq ";" .sets rstcli "set term/cli:"+oldcli
.return