.ONERR ERXIT
.ENABLE SUBSTITUTION
; SYSGENMOD.CMD - Command file to apply Goodyear Aerospace Corp. developed
;                 patches to SYSGEN procedure to support loadable drivers
;                 with loadable data bases, and multiple configurations of
;                 terminal interfaces.
;
.SETS SAVUIC "'<UIC>'"
.SETF INSPIP
.IFNINS PIP .SETT INSPIP
.IFT INSPIP INS LB:'<SYSUIC>'PIP
;
; Apply the changes to the SYSGEN command files.
;
.SETF INSSLP
.IFNINS SLP .SETT INSSLP
.IFT INSSLP INS LB:'<SYSUIC>'SLP
SLP @MD0:SYSGENMOD.COR
.IFT INSSLP REM SLP
;
; Now test if the modules have been patched properly.
; If any of the file compares that follow generate differences, it
; means that the new release of RSX11M contains a change to the base
; module.  The reason for the difference and its effect on a newly
; generated system must be determined before continuing.
;
.SETF INSCMP
.IFNINS CMP .SETT INSCMP
.IFT INSCMP INS LB:'<SYSUIC>'CMP
CMP TI:=MD0:SYSGEN.CMD;2,;1
CMP TI:=MD0:SGNBLDDRV.CMD;2,;1
CMP TI:=MD0:SGNEXEC.CMD;2,;1
CMP TI:=MD0:SGNPER.CMD;2,;1
CMP TI:=MD0:SGNTT.CMD;2,;1
CMP TI:=MD0:SYSGEN2.CMD;2,;1
.IFT INSCMP REM CMP
.ASK [<TRUE>:10S] Q Did all of the file compares pass
.IFT Q .GOTO 10
;
; At this point, the cause(s) for the file compare errors must be
; determined.  This process is exiting in order that such an evaluation
; may take place.
;
.IFT INSPIP REM PIP
.EXIT 1
.ERXIT:
.EXIT 4
.10:
;
; Now return the changed files back to the SYSGEN directory.
;
SET /UIC=[200,200]
PIP KT0:/NV/-CD=MD0:'SAVUIC'SYSGEN.CMD;2
PIP KT0:/NV/-CD=MD0:'SAVUIC'SGNBLDDRV.CMD;2
PIP KT1:/NV/-CD=MD0:'SAVUIC'SGNEXEC.CMD;2
PIP KT1:/NV/-CD=MD0:'SAVUIC'SGNPER.CMD;2
PIP KT1:/NV/-CD=MD0:'SAVUIC'SGNTT.CMD;2
PIP KT0:/NV/-CD=MD0:'SAVUIC'SYSGEN2.CMD;2
SET /UIC='SAVUIC'
PIP MD0:SYSGEN.CMD;2/DE
PIP MD0:SGNBLDDRV.CMD;2/DE
PIP MD0:SGNEXEC.CMD;2/DE
PIP MD0:SGNPER.CMD;2/DE
PIP MD0:SGNTT.CMD;2/DE
PIP MD0:SYSGEN2.CMD;2/DE
.IFT INSPIP REM PIP
;
; This completes the application of the SYSGEN modifications.
;
