Trailing-Edge
-
PDP-10 Archives
-
BB-H138E-BM
-
language-sources/compdx.ctl
There are 15 other files named compdx.ctl in the archive. Click here to see a list.
! This file will do either a master (i.e., from the ALU library
! directories, with results to the library directories) or a work (i.e.,
! with preference given to the work directory and results to the work
! directory) compile of the DIX routines (not including user interface
! routines stored under DL:).
!
! Start at tag WORK for work build, at tag MASTER for master build.
! If full build is submitted at once using WORK-DIL.CMD or
! MASTER-DIL.CMD, this batch job does the necessary modifications to
! dependency counts to make things run in the right order.
!
! [%O'24'] Start at tag RENG for a build from the connected directory
! only, using FIELD: for SYS:. This is intended particularly for
! Release Engineering.
!
! Facility: DIX
!
! Edit History:
!
! new_version (1, 0)
!
! edit (7, '23-Aug-82', 'David Dyer-Bennet')
! %( Change version and revision standards everywhere.
! Files: All. )%
!
! edit (9, '16-Sep-82', 'David Dyer-Bennet')
! %( VERSION wasn't getting library-precompiled in the build procedure.
! Files: COMPDX.CTL )%
!
! Edit (%O'24', '22-Nov-82', 'David Dyer-Bennet')
! %( Add release-engineering mode to build procedure.
! Fix order of FIELDS, STAR36, VERSION in COMPDX.
! Cancel COMPDT when we abort.
! )%
!
! Edit (%O'34', '10-Mar-83', 'Charlotte L. Richardson')
! %( Declare version 1. All modules. )%
!
! new_version (2, 0)
!
! Edit (%O'36', '11-Apr-84', 'Sandy Clemens')
! %( Put all Version 2 DIX development files under edit control. Some of
! the files listed below have major code edits, or are new modules. Others
! have relatively minor changes, such as cleaning up a comment.
! FILES: COMDIX.VAX-COM, COMPDX.CTL, DIXCST.BLI, DIXDEB.BLI,
! DIXDN.BLI (NEW), DIXFBN.BLI, DIXFP.BLI, DIXGBL.BLI, DIXGEN.BLI,
! DIXHST.BLI, DIXINT.PR1, DIXINT.PR2, DIXLIB.BLI, DIXPD.BLI (NEW),
! DIXREQ.REQ, DIXSTR.BLI, DIXUTL.BLI, DXCM10.10-CTL, MAKDIXMSG.BLI,
! STAR36.BLI, VERSION.REQ.
! )%
!
! Edit (%O'40', '12-Apr-84', 'Sandy Clemens')
! %( Fix COMPDX.CTL to use the V2 ALU directories. FILE: COMPDX.CTL
! )%
!
! Edit (%O'43', '9-Jul-84', 'Sandy Clemens')
! %( Change FIELD: logical name to FIELDI: for RENG: tag.
! Files: COMPDX.CTL, DIXHST.BLI
! )%
!
! Edit (%O'44', '24-Aug-84', 'Sandy Clemens')
! %( In build procedure send mail to "." rather than to a specific
! person. File: COMPDX.CTL. )%
!
! Edit (%O'46', '24-Sep-84', 'Sandy Clemens')
! %( Update the DIL build procedure for Release Engineering and
! Customer builds. Remove defining logical names in the build
! .CTL files, TAKE DIL-DEF.CMD instead. Remove cancelling the
! unfinished batch jobs. FILES: DIXHST.BLI, COMPDX.CTL )%
! **EDIT**
!
! [%O'24'] Files needed on SRC:
! DIXDEB.REQ DIXREQ.REQ
! FIELDS.BLI STAR36.BLI VERSION.REQ DIXLIB.BLI
! DIXHST.BLI DIXUTL.BLI DIXGEN.BLI DIXCST.BLI
! DIXSTR.BLI DIXFBN.BLI DIXFP.BLI DIXDEB.BLI
! DIXGBL.BLI INTERFILS.BLI DIXDN.BLI DIXPD.BLI
!
! [%O'24'] Files needed on SYS:
! BLISS.EXE LINK.EXE
!
! [%O'24'] Files needed on BLI:
! XPORT.REL
!
! [%O'24'] Files produced on build directory:
! FIELDS.L36 STAR36.L36 VERSION.L36 DIXLIB.L36 DIXHST.REL
! DIXUTL.REL DIXGEN.REL DIXCST.L36 DIXSTR.REL DIXFBN.REL
! DIXFP.REL DIXDEB.REL DIXGBL.REL INTERFILS.REL INTERFILS.EXE
! DIXV6.FOR DIXV7.FOR DIXC36.INT DIXDN.REL DIXPD.REL
!
WORK::
@DEFINE SRC: DSK:, DX2:, DX1A:
@define dsk: dsk:, DX2:, dx1A:
@goto compem
MASTER::
@DEFINE SRC: DX2:, DX1A:
@connect DX2:
@GOTO COMPEM
! [%O'24'] For release engineering or any other build from a single directory
! [%O'24'] containing everything using vanilla tools.
RENG:: ! [%O'24']
@TAKE DIL-DEF.CMD ! [%O'46']
@GOTO COMPEM ! [%O'24']
compem::
@ERROR ?
@BLISS
*SRC:FIELDS/LIB/LIST ! [%O'24'] Move ahead of VERSION
*SRC:STAR36/LIB/LIST ! [%O'24'] Move ahead of VERSION
! [9] ADD COMPILATION OF VERSION.REQ
*SRC:VERSION/LIB/LIST
! [9] END OF INSERTION
!
! The library file must be compiled before any of the other modules
! are compiled, since they call it.
*SRC:dixlib/lib/list
!
*SRC:DIXHST/LIST
*SRC:dixutl/list
*SRC:dixgen/list
!
! The character set tables must be compiled before compiling the
! string conversion module.
*SRC:dixcst/lib/list
*SRC:dixstr/list
!
*SRC:dixfbn/list
*SRC:dixfp/list
*SRC:dixdn/list
*SRC:dixpd/list
!
*SRC:DIXDEB/LIST
*src:DIXGBL/LIST
!
! Produce update interface support elements
*SRC:INTERFILS/LIST
*/EXIT
!
@COPY INTERFILS.REL INTERF.REL
!
@LINK
*TTY:/LOG/LOGLEVEL:0
*INTERF/MAP/CONTENTS:ALL
*INTERF
! Need DIXDEB because DIXREQ.REQ (used in INTERFILS) defines debugging routines
! as external. Need DIXUTL because DIXDEB uses ARGADR. None of this is ever
! referenced, so I could kludge by using /DEFINE, or simply ignore the errors,
! but this way is slightly more robust since a change in INTERFILS that causes
! debugging stuff to actually be referenced will work now.
! All of the above need DIXHST.
*SRC:DIXDEB,SRC:DIXUTL,SRC:DIXHST
! INTERFILS uses XPORT string handling and IO.
*BLI:XPORT/SEARCH
! Force loading of $OTSCH from B362LB to resolve SS$UNW (never referenced)
*/require:unwnd.
*/GO
!
@SAVE INTERFILS
@START
!
! [%O'24'] Record exactly what we produced
@VDIRECTORY DIXV6.FOR, DIXV7.FOR, ! [%O'24']
@CHECKSUM SEQUENTIAL ! [%O'24']
@ ! [%O'24']
!
DONOK::
@MODIFY BATCH COMPDL /DEPEND:-1
@GOTO ENDEND
!
!
%ERR::
@GOTO ERRRTN
%TERR::
ERRRTN::
! [%O'44'] Send mail to "." rather than a specific person.
@MS
*SEND
*.
*
*COMPDX BATCH JOB
*The COMPDX batch job terminated with errors.
=^[
*SEND
*
*EXIT
!
ENDEND::
%FIN::
@