.;
.; zysmac.lib				4:30 pm June 29, 1982
.; library command file for GSD-added rsxmac library macros
.;
.ENABLE SUBSTITUTION
.IF P2 = "" .ENABLE QUIET
.;
.SETS SWITCH ""
.SETS LIBFIL "lb:[1,1]rsxmac.sml"
.SETS UPRFIL "LB:[1,1]RSXMAC.SML"
.IF P1 <> "" .IF P1 <> "." .IF P1 <> LIBFIL .IF P1 <> UPRFIL .SETT EXTLIB
.IFDF EXTLIB .SETS LIBFIL P1
.PARSE LIBFIL "[]." LDV LIC LFL LXT
.IF LDV = "sy:" .OR .IF LDV = "SY:" .SETS LDV ""
.SETS LIC "["+LIC+"]"
.SETS LNM LDV+LFL+"."+LXT
.SETS UIC ""
.IF <UIC> <> LIC .SETT CHANGE
.IFDF CHANGE .SETS UIC <UIC>
.IFDF CHANGE set /uic='LIC'
.;------------------------------------------------------------------
.;
.; Get rid of all the useless libraries
.;
.SETS CURRNT ""
.TESTFILE 'LIBFIL';-1
.SETS OLDEST <FILSPC>
.IFDF EXTLIB .GOTO 210
.100:
.TESTFILE 'LIBFIL'
.IF CURRNT = <FILSPC> .GOTO 200 !In case we're /-MCR
.SETS CURRNT <FILSPC>
.IF CURRNT = OLDEST .GOTO 200
.SETS CMD "pip "+CURRNT+"/de"
'CMD'
.SETN STAT <EXSTAT>
.IF STAT <> 1 .GOTO ERROR
.GOTO 100
.;------------------------------------------------------------------
.;
.; Make a new copy of the library
.;
.200:
.SETS CMD "pip 'LDV'/nv='LNM'"
'CMD'
.SETN STAT <EXSTAT>
.IF STAT <> 1 .GOTO ERROR
.210:
.TESTFILE 'LIBFIL'
.SETS CURRNT LDV+<FILSPC>[7:80.]
.;------------------------------------------------------------------
.;
.; Insert all the new modules
.;
.SETS FILE "ALODF"
.GOSUB LIBRAY
.;
.SETS FILE "ORDDF"
.GOSUB LIBRAY
.;
.SETS FILE "OWDDF"
.GOSUB LIBRAY
.;------------------------------------------------------------------
.;
.; Clean Up The Library And Go Away
.;
lbr 'LNM'/co='CURRNT'
pip 'CURRNT'/de
pip 'LDV'/nv/re='LNM'
pip 'LNM'/tr
pip 'LNM';*/fu
.GOTO END
.;------------------------------------------------------------------
.;
.; LIBRAY
.; Replace Module In Library
.;
.LIBRAY:
.TESTFILE 'UIC''FILE'.MCR
.IF <FILERR> <> 1 .RETURN
.SETS CMD "lbr "+LNM+"/rp"+SWITCH+"="+UIC+FILE+".mcr"
'CMD'
.SETN STAT <EXSTAT>
.IF STAT <> 1 .GOTO ERROR
.SETS SWITCH ""
.IF UIC <> "[110,1]" .IF LIC <> "[110,1]" .RETURN  !ONLY DELETE IN USER ACCT
.IFDF CHANGE set /uic='UIC'
pip 'FILE'.mcr;*/de
.IFDF CHANGE set /uic='LIC'
.RETURN
.;------------------------------------------------------------------
.;
.; >>>------------>>> Error <<<------------<<<
.;
.ERROR:
.IF STAT > 65280. .SETN STAT STAT-65280.
.IF STAT > 128. .IF STAT < 255. .SETN STAT 256.-STAT
.DISABLE QUIET
;
; Command = 'CMD'
; Error   = -'STAT'.
;
.IF P2 = "" .ENABLE QUIET
.;------------------------------------------------------------------
.;
.; The end of the matter
.;
.END:
.IFDF CHANGE .IF <UIC> <> UIC set /uic='UIC'