.; .; zysmac.lib November 30, 1984 .; library command file for GSD-added rsxmac library macros .; .ENABLE SUBSTITUTION .SETS QUIET ".ENABLE QUIET" .IF P1 <> "" .IF P1 <> "." .SETS QUIET ".;" 'QUIET' .SETS ORIGNL "LB:[1,1]RSXMAC.SML" .SETS CMD ".TESTFILE "+ORIGNL 'CMD' .IF <> 1 .GOTO ERRXIT .SETS ORIGNL .SETS LIBFIL "RSXMAC.SML" .SETS CMD ".TESTFILE "+LIBFIL 'CMD' .IF <> 1 .IF <> 346 .GOTO ERRXIT .PARSE "[].;" LDV LIC LFL LXT LVR .TESTFILE SY: .PARSE "[" SY JUNK .IF LDV = SY .SETS LDV "" .SETS LNM LDV+LFL+"."+LXT .SETS LTM LDV+LFL+".TMP" .SETS LIC "['LIC']" .SETS UIC "" .IF = LIC .SETS LIC "" .IF LIC <> "" .SETT CHANGE .IFDF CHANGE .SETS UIC .IFDF CHANGE set /uic='LIC' .;------------------------------------------------------------------ .; .; Make a new copy of the library .; .SETS CMD "pip 'LTM'/nv='ORIGNL'" 'CMD' .IF <> 1 .GOTO ERRXIT .TESTFILE 'LTM' .SETS CURRNT .IF <> 1 .SETS CURRNT LTM+";1" !In case we are /-MCR .;------------------------------------------------------------------ .; .; Insert all the new modules .; .SETS SWITCH "" .SETS FILE "ALODF" .GOSUB LIBRAY .; .SETS FILE "EXDDF" .GOSUB LIBRAY .; .SETS FILE "ORDDF" .GOSUB LIBRAY .; .SETS FILE "OVDDF" .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 <> 1 .RETURN .SETS CMD "lbr "+LTM+"/rp"+SWITCH+"="+UIC+FILE+".mcr" 'CMD' .SETN STAT .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 set /uic='UIC'