The following is a description of the system used to generate a new version of SPROGS. It may be necessary to change the exact number of source files, but the principles laid out here should still hold. Listing the appropriate files will show how the current version works.
The source of the system is held in :SPROGS.SOURCE. There are currently two FORTRAN files and three PLAN files. FORTSRC1 and PLANSRC1 are the FORTRAN and PLAN routines which must always be present during a SPROGS run. They are combined to form one library file. FORTSRC2, PLANSRC2 and PLANSRC2A are source routines which are called only when necessary. FORTSRC2. is ordered to allow the library to work correctly. The routines in PLANSRC2 are added to the end of the library, and the routines in PLANSRC2A are inserted in the middle of the FORTRAN routines, again to preserve the necessary library ordering (libraries are scanned forward once only).
Corrections to the source files are kept under .SPROGS.EDITS. The appropriate edits for each file are kept in files whose names correspond to the source file preceded by ED, thus: EDFORTSRC1, EDPLANSRC1, etc. EDCOMMON contains the edit commands necessary to generate an appropriate edits file for each source program to include the common blocks.
The system COMMON blocks are kept under :SPROGS.COMMON. An X at the end of a file name indicates a PLAN version of the specified COMMON block.
To generate a new system, use
SPROGSGEN parameter list
under :SPROGS. If the parameter list is null, all SOURCE compilations will be listed. Otherwise a list of compilation listings can be given (in shorthand) as follows:
FORT1, PLAN2
will give listings of FORTSRC1 and PLANSRC2 compilations. The parameter NONE will prevent any printing of compilation listings.
SPROGSGEN initiates a background job to run SPROGSGEN1 under :SPROGS.LIB
The directory :SPROGS.LIB contains the three macros used in the generation. SPROGSGEN1 is the driving macro. SPROGSEDIT performs compilations and SPROGSLIB generates libraries. If an error occurs, a display giving details of the error and preceded by ======== is output. A row of ** is displayed between each section of the generation.
The final two libraries are contained in SPROGSEMI1 and SPROGSEMI2, with previous versions being preserved in SPROGSEMI1X and SPROGSEMI2X. If a compilation or a library generation fail, no update is effected.
This macro calls FORTRAN or PLAN for the appropriate compilation of the file specified by the parameters, after first performing any edits and adding any COMMON blocks.
This generates the library specified by the parameter. XPES is used to collect the various semi-compiled routines and XFYZ is used to get the routines into directory format in files SPROGSEMI1T and SPROGSEMI2T. If an error occurs during XPES, the lineprinter output is listed but the system ignores the error, since XPES appears to throw up a number of spurious faults.
The system should delete all its temporary files as it goes. If it finds any lying around, it deletes them and creates another copy. It is therefore always safe to restart a generation run from the beginning if a crash occurs anywhere.