Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/system.emacs
There are no other files named system.emacs in the archive.
!* -*-TECO-*-!
!~filename~:! !Commands to get system information!
!& Setup SYSTEM Library:! !S Setup default macros for system!
    0FO..Q SYSTEM_Setup_Hook[0	    !* If the user has his own hook then!
    fq0"G :M0'			    !* run it instead!
    F[bbind G1 J
!^R Valret:! !^R Valrets string arg to EXEC, pauses, then continues!
    [0 1,FCommand: u0 FF"N *30' "# 150' [1
    :I*Zfs ECHO DIS
	    @' 0
        FF-1"G @' 0FZ0
!Check Output Queue:! !C Checks the output queue.
The string argument can be one of ALL,FAST,USER.!
    [a				    !* Push temporary registers.!
    1,fSwitch_(ALL,_FAST,_USER:)?_ua	    !* Prompt if called from a key.!
    FQA:"G ohaveit'		    !* Default is nothing!
    F~aALL"E ohaveit'		    !* If either of  ALL,FAST,USER: !
    F~aFAST"E ohaveit'
    F~aUSER:-6"E ohaveit'
    w				    !* Otherwise, just exit!
    fqa"G :ia_/a' "# :ia'
    5M(M.M ^R_Valret)inf_outputa
    w				    !* exit!
!Check Batch Queue:! !C Checks the batch queue.
The string argument can be one of ALL,FAST,USER.!
    [a				    !* Push temp. reg.!
    1,FSwitch_(ALL,_FAST,_USER:)?_ua	    !* Prompt if called from a key.!
    FQA:"G ohaveit'		    !* Default is nothing!
    F~aALL"E ohaveit'		    !* Given one of the options.!
    F~aFAST"E ohaveit'
    F~aUSER:-6"E ohaveit'
    w				    !* Otherwise, just exit!
    fqa"G :ia_/a' "# :ia'
    5 M(M.M ^R_Valret)inf_batcha

The optional string argument is a subcommand for SYSTAT, and if an error
occurs the user will be required to type a POP.!
    [a				    !* Push temp. reg.!
    1,FOptions:_ua		    !* Prompt if called from a key!
    5 M(M.M ^R_Valret)SYSTAT_a

!^R SY A N O:! !Check Users:! !^R Valrets an SY A N O!

!Check System Job:! !C Does an INFORMATION JOB to give your current position!
    1,5 M(M.M ^R_Valret)INF_job
!^R System Load Average:!!^R Display Load Average:! !^R Gives the 1-min. Load Average in the echo area!

:I*CFSECHODISPLAY		    !* Clear ECHO area!
FSLOADAV[0			    !* Get the load average!
200300000000.,FSDATE:FSFDCONVERT[1		    !* The date and time!
				    !* Print Message!
0FSECHOACTIVE			    !* Prevents immediate ECHO clear!
!Access to Directory:! !C Access to a directory.
The first string argument is the directory (with brackets, of course).
The second one is the Password if needed.!
    [a [b [c			    !* Push temporary registers!
    1,fDirectory:_ua		    !* Ask for the directory if called from!
				    !* a key!
    fqa"G			    !* Given one, do!
	:F"L @ftPassword:_	    !* If called form a key then!
	    :ib		    !* Read in the password silently!
	    <fiuc		    !* If a CR then end!
		qc-	    !* Append to the password QB!
	    '"# :ib' '	    !* Otherwise, read in string arg.!
    "#:ib'			    !* Otherwise, no password!
    1,0M(M.M ^R_Valret)access_a
!Check Disk:! !C Does an INFORMATION DISK on the given directory!
    [a				    !* Push temporary registers!
    1,FDirectory:_ua		    !* QA gets the directory!
    5 M(M.M ^R_Valret)inf_disk_a
!Expunge Directory:! !C Expunges the deleted files in the given directory!
    [a				    !* Push temp. reg.!
    1,fDirectory:_ua		    !* Prompt if from a key!
	!<! j :s> :"L 0l'
	f]bbind '
    :I*Zfs ECHO DIS
    1,5M(M.M ^R_Valret)exp_a
!Check Available:! !Checks available items on systems, default is DEVICES.
The other option is to check available lines!
    [a				    !* Push temporary register!
    1,fAvailable_(Devices_or_Lines)?_ua  !* Read the type of info!
    fqa"G			    !* Something there set to one of the two!
	f[bbind		    !* options, either Devices or Lines.!
	ga H@FC
	j 1a-76"N :iaDevices'
	"# :iaLines'
	f]bbind '		    !* The default is Devices!
    "# :iaDevices '
    5 M(M.M ^R_Valret)Inf_avai_a
!Check Job:! !C Reports the Job Number, User, and Connected Directory
if different from the user!
    j :S:< !>! "L 0k :l -d' 0l :x3
    f~12"N :i33,_2'
!Logout:! !C Logs off the user, offering to save files as necessary!
    1M(M.M &_Yes_or_No)"E ''
    M(M.M Save_all_Files)
    0M(M.M ^R_Valret)Logout
!Enable Capabilities:! !C Turns on Enabled capabilities if they exist.!
    1,0M(M.M ^R_Valret)ENAble
!Disable Capabilities:! !C Turns on Disabled capabilities if they exist.!
    1,0M(M.M ^R_Valret)DISAble
!Check Log File:! !C Checks the Log file for any changes.
The FN1 of the log file should be given as a string argument or the
default FN1 name will be used to make the filename.!

    [Previous_Buffer		    !* Push to get the right buffer reset!
    1,FFN1_of_the_Log_File:_   !* QC gets the fn1!
    M(M.M Select_Buffer)*LOG*	    !* Select a temporary style buffer!
				    !* name of *LOG*!
    Z[A				    !* Check to see the last point!
    fqc :"G fsdfn1uC		    !* If no string argument, then!
				    !* check the default FN1 name!
	F~(QBuffer_Name)C"E    !* If the same as the buffer name!
				    !* then we are lost!
	    :I*CImproper_Name_Given	    !* Print the error message!
	    fsechodisp0fsechoactive W Oend''    !* Go back to!
						    !* previous buffer!
    "#  0ua
	f[bbind		    !* Otherwise, get a temporary buffer!
	GC 0J			    !* bring in the string argument!
	<!<!:S:>;	    !* Hack out the directory name!
	    fssvalue+1"E 1c'>	    !* Skip if the quote character is there!
	<:s.F"E zj 32iw 0;'+1; 1c> !* Get to the FN1 name!
	1:R 0Xc			    !* Put it back in the buffer!
	F]bbind'		    !* Pop the temporary buffer!
    :ICC.log		    !* Make the full file name!
    -1 M(M.M Visit_File)C	    !* Get the new file!
    QA:J 0l			    !* Move to where the old one was!
    z-qa"G			    !* Check to see if different length!
	M(M.M View_Buffer)'	    !* Yes, then view the buffer from!
				    !* that point!
    "# :I*CNo_Change		    !* No, then announce it!
    M(M.M Select_Buffer)	    !* Back to the previous buffer!