.;
.; zyslib.lib				1:30 pm April 17, 1982
.; library command file for GSD-modified SYSLIB library routines
.;
.ENABLE SUBSTITUTION
.IF P2 = "" .ENABLE QUIET
.;
.SETS SWITCH ""
.SETS LIBFIL "lb:[1,1]syslib.olb"
.SETS UPRFIL "LB:[1,1]SYSLIB.OLB"
.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 LTM LDV+LFL+".tmp"
.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 'LTM'/nv='LNM'"
'CMD'
.SETN STAT <EXSTAT>
.IF STAT <> 1 .GOTO ERROR
.210:
.TESTFILE 'LTM'
.SETS CURRNT LDV+<FILSPC>[7:80.]
.;------------------------------------------------------------------
.;
.; Insert all the new modules
.;
.SETS FILE "ALERR"
.GOSUB LIBRAY
.;
.SETS FILE "AUTO"
.GOSUB LIBRAY
.;
.SETS FILE "AUTOUT"
.SETS SWITCH "/-ep"
.GOSUB LIBRAY
.;
.SETS FILE "ENDAT"
.GOSUB LIBRAY
.;
.SETS FILE "ENTRAP"
.GOSUB LIBRAY
.;
.SETS FILE "OVCTL"
.GOSUB LIBRAY
.;
.SETS FILE "OVCTR"
.GOSUB LIBRAY
.;
.SETS FILE "OVDAT"
.GOSUB LIBRAY
.;
.SETS FILE "OVRES"
.SETS SWITCH "/ss"
.GOSUB LIBRAY
.;
.SETS FILE "RWGSYM"
.SETS SWITCH "/ss"
.GOSUB LIBRAY
.;
.SETS FILE "ZZGSYM"
.SETS SWITCH "/ss"
.GOSUB LIBRAY
.;------------------------------------------------------------------
.;
.; Clean Up The Library And Go Away
.;
lbr 'LTM'/co='CURRNT'
pip 'CURRNT'/de
pip 'LNM'/nv/re='LTM'
pip 'LNM'/tr
pip 'LNM';*/fu
.GOTO END
.;------------------------------------------------------------------
.;
.; LIBRAY
.; Replace Module In Library
.;
.LIBRAY:
.TESTFILE 'UIC''FILE'.OBJ
.IF <FILERR> <> 1 .RETURN
.SETS CMD "lbr "+LTM+"/rp"+SWITCH+"="+UIC+FILE
'CMD'
.SETN STAT <EXSTAT>
.IF STAT <> 1 .GOTO ERROR
.SETS SWITCH ""
.IFDF CHANGE set /uic='UIC'
pip 'FILE'.obj;*/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'