Trailing-Edge
-
PDP-10 Archives
-
bb-h138f-bm
-
7-sources/diuspl.b36
There are 4 other files named diuspl.b36 in the archive. Click here to see a list.
%TITLE 'DIU Spooler Start/Stop Routines'
MODULE DIUSPL (IDENT = '257',
ENTRY(sp$start, ! Start spooler
sp$stop, ! Stop spooler
sp$shut ! Shut down spooler entirely
)
)=
BEGIN
! COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1986.
! ALL RIGHTS RESERVED.
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND
! COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH
! THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR
! ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE
! AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE
! SOFTWARE IS HEREBY TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
! NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
! EQUIPMENT CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
! ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
!
! FACILITY: DIU-20. (Data Interchange Utility for TOPS-20)
!
! ABSTRACT: This module contains the top level spooler routines. These
! routines declare the current job as the DIU master, initialize
! the job scheduler, and set up the interrupt system so that
! appropriate routines are called to handle IPCF messages,network
! topology changes, and timer interrupts.
!
! ENVIRONMENT: TOPS-20 V6.1 (privileged) XPORT.
! BLISS-36 V4 RMS V3
! HISTORY:
!
! 257 Change library BLI:MONSYM to just MONSYM.
! Gregory A. Scott 7-Jul-86
!
! 216 Call routine S$NOMOUNT when becoming the spooler so we can run without
! incrementing the mount count for every regulated structure.
! Gregory A. Scott 3-Jun-86
!
! 171 Call routine C$CONTROL_C for control C interrupts.
! Gregory A. Scott 19-May-86
!
! 164 Go NOINT while starting the spooler.
! Gregory A. Scott 16-May-86
!
! 154 Use routine j$kill instead of s$kiljob.
! Gregory A. Scott 12-May-86
!
! 152 Use new routine to write to the system LOG file for the "maximum
! requests set to n" message from SP$START.
! Gregory A. Scott 11-May-86
!
! 144 DIU$MESSAGE calls from here should always write to the system LOG file.
! Gregory A. Scott 7-May-86
!
! 140 Spooler restart aborted error wasn't furnishing the version number for
! FAO output.
! Gregory A. Scott 4-May-86
!
! 135 A restart should show us the maximum simultaneous requests. Don't
! decrement NJOB here, it is done when we get the IPCF that the job died.
! Gregory A. Scott 1-May-86
!
! 134 A START command should counteract any shutdown in progress. We don't
! have to write to the LOG file ourselves now since DIU$MESSAGE does it.
! Gregory A. Scott 30-Apr-86
!
! 133 Set IPCF send/recieve quotas to +INF for rcvpid.
! Gregory A. Scott 29-Apr-86
!
! 132 Enable illegal instruction and illegal memory read/write panic channels
! so that we can recover from problems. Add routine SP$PANIC to handle
! these conditions. Add control-C trap. Move spooler restart logic that
! checks for restart loops here from DIUERR since panic interrupts don't
! signal errors.
! Gregory A. Scott 28-Apr-86
!
! 130 Call MAKEPROMPT to reset the prompt string in SP$SHUT and SP$START.
! Gregory A. Scott 28-Apr-86
!
! 126 Change calls to S$ACTIVATE. Regular STOP command was broken by last
! edit. STOP/NOW shouldn't call SP$SHUT, but wait for it to be called
! after all of the jobs logout.
! Gregory A. Scott 26-Apr-86
!
! 125 Output a little different message if we have been restarted. Output
! proper event codes to LOG file on start/stop/shut messages. Only call
! SP$SHUT at the end of SP$STOP if we have to mumble around killing jobs.
! Gregory A. Scott 24-Apr-86
!
! 122 Output the DIU version to the system LOG file at startup, put the
! spooler startup message in the LOG file before any possible message
! from opening the queue file.
! Gregory A. Scott 22-Apr-86
!
! 57 Enable the interrupt system at the end of routine SP$STOP.
! Sandy Clemens 4-Dec-85
!
! 56 Make STOP/NOWAIT complete shutting down the queue.
! Sandy Clemens 3-Dec-85
!
! 52 Make sure PSI channels which are enabled by STARTing queue are
! disabled when by STOP command.
! Sandy Clemens 12-Nov-85
!
! V01-004 DPR0001 Doug Rayner 25-Jul-85
! Change use of PSI a little for TOPS-10
!
! V01-003 RDF0001 Rick Fricchione 26-Oct-1984
! Modify for DIU. Clean up can comment. Make blocks
! readable, and put in any DIU specifics.
!
! V01-002 AWN0002 Andy Nourse --- no date ---
! Put in entry points.
!--
!**************************************************************************
!** F O R W A R D R O U T I N E S
!***************************************************************************
FORWARD ROUTINE
%IF %SWITCHES(TOPS20)
%THEN
sp$panic : NOVALUE, ! panic interrupt handler
%FI
sp$start : NOVALUE, ! Start spooler
sp$stop : NOVALUE, ! Stop spooler
sp$shut : NOVALUE; ! Shut down spooler entirely
!**************************************************************************
!** L I B R A R Y F I L E S
!***************************************************************************
LIBRARY 'BLI:XPORT'; ! XPORT is our trusted friend
%IF %SWITCHES(TOPS10) %THEN
LIBRARY 'BLI:UUOSYM'; ! TOPS-10 UUO symbols
%ELSE
LIBRARY 'MONSYM'; ! TOPS-20 JSYS symbols
REQUIRE 'JSYSDEF'; ! TOPS-20 JSYS linkages
%FI
LIBRARY 'DIU'; ! Our library
LIBRARY 'FAO'; ! Formatted Ascii Output library
!**************************************************************************
!** G L O B A L S A N D E X T E R N A L S
!***************************************************************************
GLOBAL
mst_flag : INITIAL (0) VOLATILE,
rcvpid, ! PID for master to receive queries on
%IF %SWITCHES(DEBUG)
%THEN
my_name : $STR_DESCRIPTOR (STRING = '[SYSTEM]DIUDEB'),
%ELSE
my_name : $STR_DESCRIPTOR (STRING = '[SYSTEM]DIU'),
%FI
%IF %SWITCHES(TOPS20) %THEN
topology_failure : INITIAL (0), ! Net topology interrupt failure
%FI
shutdown; ! Shutdown pending flag
EXTERNAL
%IF %SWITCHES(TOPS20) %THEN
i_channel, ! IPCF interrupt channel
t_channel, ! Timer interrupt channel
n_channel, ! Network topology interrupt channel
c_channel, ! Control-c channel
%FI
time_restart, ! nonzero if we have been restarted
njob, ! Number of jobs in progress
mjob, ! Max no. of jobs
tty : $XPO_IOB (), ! IOB for user's terminal
jobstatus : BLOCKVECTOR [DIU$K_MAX_MJOB, DIUJ$K_LEN]
FIELD (DIUJ$$JOBSTAT_FIELDS);
EXTERNAL ROUTINE
%IF %SWITCHES(TOPS20) %THEN ! TOPS-20 external routines
C$CONTROL_C : NOVALUE, ! Exit unless we are (yet) the spooler
S$ACTIVATE : NOVALUE, ! Activate an interrupt channel
S$DEACTIVATE : NOVALUE, ! Deactivate an interrupt channel
S$ATI : NOVALUE, ! Attach Terminal Interrupt character
S$DTI : NOVALUE, ! Detach Terminal Interrupt character
S$RESTART : NOVALUE, ! Restart this program
S$RIR, ! Read interrupt addresses
S$TOPINT, ! Net topology change interrupt setup
S$NOMOUNT : NOVALUE, ! Allos us ot ignore increment mount ct
IP$QUOTA : NOVALUE, ! Set send/rec quotas
IP$INT_SET : NOVALUE, ! IPCF interrupt setup
%ELSE ! TOPS-10 external routines
ip$eat : NOVALUE, ! Clean out the IPCF recv queue
psi$add_condition, ! Add a condition to the PSI system
psi$remove_condition, ! Remove condition from the PSI system
%FI ! End TOPS-10/TOPS-20 conditional
MAKEPROMPT : NOVALUE, ! Make a new prompt string for operator
DIU$MESSAGE, ! DIU message printer
j$kill, ! Logout a job
L$EVENT : NOVALUE, ! Log an event to system log file
IPC_MASTER, ! Declare ourselves master
IPC_HNDLR, ! IPCF interrupt handler
Q$INIT, ! Open or create queue file
S$TIME, ! Return time of day
S$HALT : NOVALUE, ! Halt this fork
S$NOINT : NOVALUE, ! Disable interrupts
S$OKINT : NOVALUE, ! Enable interrupts
SCHED : NOVALUE, ! Scheduler
IP$DELETE_PID : NOVALUE; ! Delete a PID
!****************************************************************************
!** S P $ S T A R T
!****************************************************************************
GLOBAL ROUTINE sp$start : NOVALUE =
BEGIN
!++
! FUNCTIONAL DESCRIPTION:
! This routine starts the spooler. We get the DIU spooler pid, set some
! flags, and call the scheduler to get something to do. If we are inside
! a shutdown, then we just clear the shutdown flag and return.
!
! IMPLICIT INPUTS:
! mst_flag: 1 if we are (yet) the spooler
! shutdown: 1 if we are shutting down
! time_restart: 0 if we haven't been started yet
!
! IMPLICIT OUTPUTS:
! rcvpid: set to the named spooelr job pid
!
! SIDE EFFECTS:
! sched is called to (maybe) run some jobs
!--
BIND jobver = %O'137'; ! Where the version is kept
LOCAL
vlist : VECTOR[2] PRESET ([0] = 1), ! List for passing to FAO
time_current, ! current time
retcode;
! See if we have been here before. If I am the spooler and I am being shut
! down, then the shutdown will be aborted and I will restart. If I'm already
! started just give a message and exit.
IF .mst_flag
THEN IF .shutdown
THEN BEGIN ! Here if START after STOP
DIU$MESSAGE(DIU$_SHUTDOWN_ABORTED,0,0,TRUE);
shutdown = 0; ! We are not (yet) shutting down
RETURN; ! Don't try anything else but return
END
ELSE BEGIN ! Here if we are the spooler already
DIU$MESSAGE(DIU$_ALREADY_STARTED,0,0,TRUE);
RETURN; ! Return now before damage is done
END;
%IF %SWITCHES(TOPS10)
%THEN ! on the -10,
ip$eat(0); ! Clean out the recv queue
%FI
! I am not (yet) the spooler until I get my PID
IF NOT (retcode = ipc_master (my_name, rcvpid))
THEN SIGNAL (.retcode);
! I am (yet) the spooler. Turn off the interrupt system for now, init flags
S$NOINT(); ! Turn off the interrupt system
mst_flag = 1; ! Set flag saying we are master
shutdown = 0; ! We aren't (yet) shutting down
njob = 0; ! No jobs active (yet)
MAKEPROMPT(); ! I am going to need (yet) a new prompt
! Determine what has been going on. We have either not (yet) been started,
! we haven't been started in over a minute (we restart), or we have been
! started less than a minute ago (we abort).
time_current = S$TIME(); ! Get the current time
vlist[1] = .jobver; ! Copy version number to FAO vector
IF .time_restart NEQ 0 ! Get proper message please
THEN retcode = DIU$_SPOOLER_RESTARTED ! We've been warm started
ELSE retcode = DIU$_SPOOLER_STARTED; ! Brrrr. Cold start.
IF .time_current LSS .time_restart+((60^18)/(60*60*24)) ! Up .lt. 1 minute?
THEN BEGIN
time_restart = 1; ! Next time let me go please
DIU$MESSAGE(DIU$_SPOOLER_ABORTED,0,vlist,TRUE); ! Yes, abort it
S$HALT(); ! Halt the fork allow continue
END;
time_restart = .time_current; ! Set the time that we were restarted
! Squirt a startup message in the system log file and to the operator
DIU$MESSAGE(.retcode,0,vlist,TRUE); ! Type the message out
! Output the mjob setting to the log file.
vlist[1] = .mjob; ! Load the mjob setting
L$EVENT(DIU$_MAXIMUM_REQ_SET,0,vlist); ! Write max stuff to system log file
! Pry open the system queue file (hello RMS, are you there today?)
IF NOT (retcode = q$init ()) ! Open or create the queue file
THEN SIGNAL (DIU$_BUG,.retcode); ! Something wrong with the queue
%IF %SWITCHES(TOPS10) %THEN
! Assign interrupt channels for IPCF messages, timer events, and
! network topology changes. Only IPCF messages need special handling,
! other events just call the scheduler.
psi$add_condition($PCIPC, 0, 0, ipc_hndlr);
psi$add_condition($PCTMR, 0, 0, sched);
psi$add_condition($PCNET, 0, 0, sched);
%ELSE
! Activate interrupt channels for IPCF messages, timer events, network topology
! changes, control-c trap, and panic channels.
s$activate(.i_channel,ipc_hndlr); ! IPCF interrupts
s$activate(.t_channel,sched); ! TIMER interrupts
s$activate(.n_channel,sched); ! Network status change interrupts
s$activate(.c_channel,c$control_c); ! Control C interrupts
s$activate($ICILI,SP$PANIC); ! Illegal instruction
s$activate($ICIRD,SP$PANIC); ! Illegal memory read
s$activate($ICIWR,SP$PANIC); ! Illegal memory write
! Enable interrupts for IPCF messages arriving on our PID, network topology
! changes, and control-c trap.
IP$INT_SET(.rcvpid, .i_channel); ! Set IPCF interrupts for master pid
IP$QUOTA(.rcvpid, %O'777', %O'777'); ! Set send/rec quota to +inf
IF NOT S$TOPINT(.n_channel) THEN topology_failure = 1; ! Set topology ints
S$ATI($TICCC,.c_channel); ! Set control-C trap
! Allow us to touch any structure on the system since we are yet a spooler
S$NOMOUNT(); ! Do a MSTR MSIIC function
%FI ! End of TOPS-20 only code
! Make all job status blocks available
INCR index FROM 0 TO DIU$K_MAX_MJOB - 1
DO jobstatus[.index, DIUJ$V_INUSE] = 0;
! Call the scheduler to start any jobs in the queue.
SCHED();
! Turn the interrupt system on and return
S$OKINT();
END; ! End of sp$start
!*********************************************************************
!** S P $ S T O P
!*********************************************************************
GLOBAL ROUTINE sp$stop (now_flag) : NOVALUE =
BEGIN
!++
! FUNCTIONAL DESCRIPTION:
! Stop the spooler and queue manager.
!
! FORMAL PARAMETERS:
! now_flag - Boolean value:
! TRUE - Immediately abort all current transfers
! FALSE - Allow all current transfers to complete
!
! IMPLICIT INPUTS:
! NONE
!
! IMPLICIT OUTPUTS:
! NONE
!
! ROUTINE VALUE and
! COMPLETION CODES:
! NONE
!
! SIDE EFFECTS:
! NONE
!
!--
LOCAL scode; ! spooler stop event code
IF NOT .mst_flag ! Are we (yet) the spooler?
THEN SIGNAL(DIU$_NOT_STARTED); ! Oops, we are not (yet) the spooler
shutdown = 1; ! Flag pending shutdown
time_restart = 1; ! Let restarts work later
! Print a message depending on spooler shutdown status
IF .now_flag
THEN scode = DIU$_SPOOLER_STOP_NOW ! STOP/NOW command
ELSE scode = DIU$_SPOOLER_STOP; ! STOP command
DIU$MESSAGE(.scode,0,0,TRUE); ! Write it to terminal and log file
! If there aren't any jobs running shutdown the spooler and return now.
IF .njob EQL 0
THEN BEGIN
SP$SHUT();
RETURN;
END;
! If it was a regular stop command and there were jobs running wait for them
! to finish up; don't shutdown the spooler yet.
IF NOT .now_flag THEN RETURN;
! STOP/NOWAIT specified and there are jobs active. Abort all inuse jobs.
S$NOINT(); ! Turn off interrupts
INCR index FROM 0 TO DIU$K_MAX_MJOB - 1
DO IF .jobstatus[.index, DIUJ$V_INUSE]
THEN j$kill(.jobstatus[.index, DIUJ$H_REQUEST_ID],
.scode);
S$OKINT(); ! Enable the interrupt system
END; ! End of sp$stop
!************************************************************************
!** S P $ S H U T
!************************************************************************
GLOBAL ROUTINE sp$shut : NOVALUE =
BEGIN
!++
! FUNCTIONAL DESCRIPTION:
!
! Completely shut down spooler. After a STOP command, this routine is
! called if there are no active slave jobs. If there are active slave
! jobs, this routine is called when the last one finishes. The spooler
! pid is deleted and all interrupts are disabled.
!
! IMPLICIT INPUTS:
! rcvpid: spooler pid
! shutdown: flag that we are shutting down
! mst_flag: flag that we are (yet) the spooler
!
! IMPLICIT OUTPUTS:
! rcvpid: zeroed
! shutdown: cleared
! mst_flag: cleared, because we are not (yet) the spooler again
!
! SIDE EFFECTS:
! The spooler pid is deleted.
! All enabled interrupts are disabled.
! A new prompt is made for the spooler job.
!--
! Tell the operator and the LOG file about this event.
DIU$MESSAGE(DIU$_SPOOLER_DOWN,0,0,TRUE); ! Tell the operator ane the log file
! Deativate the interrupt system.
%IF %SWITCHES(TOPS10)
%THEN
IP$DELETE_PID(.rcvpid,0);
psi$remove_condition($PCIPC, ipc_hndlr);
%ELSE
IP$DELETE_PID(.rcvpid); ! That's all for the pid
s$deactivate(.n_channel); ! Network topology interrupts
s$deactivate(.t_channel); ! Timer interrupts
s$deactivate(.i_channel); ! IPCF interrupts
s$deactivate(.c_channel); ! Control C interrupts
S$DTI($TICCC); ! No longer trapping control C
%FI
! Shut off the flags indicating that I am the spooler and shutdown in progress
rcvpid = 0; ! No longer a spooler pid
mst_flag = 0; ! We are not (yet) the spooler again
shutdown = 0; ! We aren't shutting down any more
! Make a new prompt string for the user.
MAKEPROMPT();
END; ! End of sp$shut
%IF %SWITCHES(TOPS20) %THEN
ROUTINE SP$PANIC (channel) : novalue =
!++
! FUNCTIONAL DESCRIPTION:
!
! This routine is called on a panic interrupt to print a fatal error and
! restart the spooler.
!
! FORMAL PARAMETERS:
!
! channel: channel that we were interrupted on
!
! SIDE EFFECTS:
!
! Program is restarted
!
!--
BEGIN
LOCAL elist : VECTOR[2] PRESET ([0] = 1), ! List for passing to FAO
edesc : $STR_DESCRIPTOR(CLASS=DYNAMIC), ! spooler message
epc, ! PC of error
etype; ! Error type
! Compute the error code from the channel number we were called with.
etype = (SELECTONE .channel OF
SET
[$ICILI]: DIU$_PANIC_ILL_INST;
[$ICIRD]: DIU$_PANIC_ILL_READ;
[$ICIWR]: DIU$_PANIC_ILL_WRIT;
TES);
! Get the PC that the error occured at
epc = S$RIR(); ! Get levtab,,chntab
elist[1] = (..((.epc<LH>)+2))-1; ! Get the interrupt chan 3 pc
! Tell the operator and the log file about the bad news
DIU$MESSAGE(.etype,0,elist,TRUE); ! Tell me about it please
! Restart the program
s$restart(); ! Never returns
END; ! End of s$panic
%FI ! End of TOPS20 conditional
END ! End of module DIUSPL
ELUDOM