Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99l-bb - mon703.ctl
There are 3 other files named mon703.ctl in the archive. Click here to see a list.
;MON703.CTL   /RCB
;
;First path to the BASE/PAT area.
;Submit START.CTL (clean out the old .REL files and generate new command files).
;Once that completes, submit GEN.CTL (or DO GEN) for new HDWCNF.MAC & NETCNF.MAC
; since MONGEN likely changed.
;Then, submit MON703.CTL/TIME:1::/RESTART
;;
;;;;;;;;;     AND AUTOPATCH BEGINS     ;;;;;;;
;;
.SET WATCH VERSION
.dec@builds.dcl		;Make sure .PA runs the right PATH
.pa@builds.pth		;Set up our logical names
.error %
.pa pat:		;Test for autopatch environment
.if(error).goto NOAP	;Not A/P if PAT: not defined
;Here, we know that we want to undertake autopatch
;
.error ?
.R PEPB
*INITIALIZE MONITOR-10-V703
*EXIT
;
.pa mon:/search=asl:,mon:	;Get a good default path
;
;Here, try to do all the builds
NOAP::.error ?
.r dec:teco
=erbuild.ctl^[y<-1-^N;a>hxyercompil.ctl^[y<-1-^N;a>hxc^[^[
=erbuilds.pth^[y<-1-^N;a>bjs!<*>!^[l-.ds^[l.,zxz-
*-lz-.dj<.-z;i.pa=^[:s:^[;ki
*^[-li.dec@builds.dcl
*.pa@builds.pth
*^[lgc>^[.u0gzq0j<.-z;1a-47"e0;'i.pa=^[:s:^[;ki
*^[-li.dec@builds.dcl
*.pa@builds.pth
*^[lgy>^[z-.d^[bji.error ?
=^[ewMONBLD.mic^[ex^[^[
;
;Make a good MONGEN, just in case
;
.LOAD/COMPIL MONGEN.MAC
.SAVE
.COPY=FGEN.HLP,JOBDAT.MAC,MACSYM.MAC,NETPRM.MAC,D36PAR.MAC,S.MAC,UUOSYM.MAC
;
;Now build monitors
;
.error %
.pa pat:
.if(error).goto SUB
.error ?
.do MONBLD
.goto WIN

SUB::.error ?
.sub MONBLD.mic/time/restar
.goto FIN1
;
WIN::.pa=pat:
.R PEPB
*SIGNAL-SUCCESS MONITOR-10-V703
*EXIT
.GOTO FIN1
%CERR::.GOTO ERROR
%ERR::.GOTO ERROR
%TERR::.GOTO ERROR
ERROR::.ERROR %
.PA PAT:
.IF(ERROR).GOTO FIN1
.ERROR ?
.R PEPB
*SIGNAL-FAILURE MONITOR-10-V703
*EXIT
FIN1::
%FIN::
;[END OF MON703.CTL]