Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/timer.elib
There are no other files named timer.elib in the archive.
( W [0 +8+fq(+4)[1
0fo1 0f"g+q1 '
+fq()+4u1
fq1"l 0 '
,q1:m(q1+4(]1]0)) e r g } - H # = 0 j 8 a @
M f . t [ Timer & Get Current Time& & Insert Correct Time In Mode Line & Kill KMPTIME Library & Run Timers & Set Timer & Setup KMPTIME Library# & Start Realtime Modeline Clock ~DIRECTORY~ ~DOC~ & Auto Save Timer ~DOC~ & Clear Timer ~DOC~ & Get Current Time, ~DOC~ & Insert Correct Time In Mode Line ~DOC~ & Kill KMPTIME Library ~DOC~ & Run Timers ~DOC~ & Set Timer! ~DOC~ & Setup KMPTIME Library) ~DOC~ & Start Realtime Modeline Clock ~DOC~ ~Filename~ ~Filename~
~INVERT~ KMPTIMEf 0fo..qKMPTIME Loaded-11998590694"n
0m.CTimer Vector LockedLock On Timer Interrupts
300m.CTimer Lock TimeoutHow long to wait before trying lock again
14400m.CAuto Save TimeoutInterval between auto-save interrupts
0m.CTime Only* Just time without date in fancy mode line
1800m.CMode Line TimeoutHow long to wait between mode line updates
11998590694m.vKMPTIME Loaded'
fsClkIntm.vTimer Old Clock Int
fsClkMacm.vTimer Old Clock Mac
0fsClkInt
m.m& Run TimersfsClkMac
0fo..qOnly Time in Modelinef"nm.vTime Only'
0fsQVectorm.vTimer Vector
0uTimer Vector Locked
m(m.m& Auto Save Timer)
0fo..qMonths"n '
13*5fsQVectorf([5)m.vMonths
:i*Jan u:5(1)
:i*Feb u:5(2)
:i*Mar u:5(3)
:i*Apr u:5(4)
:i*May u:5(5)
:i*Jun u:5(6)
:i*Jul u:5(7)
:i*Aug u:5(8)
:i*Sep u:5(9)
:i*Oct u:5(10)
:i*Nov u:5(11)
:i*Dec u:5(12)
Y qTimer Old Clock IntfsClkInt
qTimer Old Clock MacfsClkMac
0uTimer Vector
o qTimer Vector Locked"n
qTimer Lock TimeoutfsClkInt
'
qTimer Vector[0
fq0:"g 0fsClkIntw '
0[1 fq0/5[2 q:0(0)[3
<q1-q2; q:0(q1)-q3u:0(q1) q1+2u1>
< fq0@; q:0(0)-1;
m:0(1)
q0[..o 0,10k ]..o >
fq0f"nw q:0(0)'fsClkInt
1[Timer Vector Locked
qTimer Vector[..o
0[0 fq..o/5[1
<q0-q1; q:..o(q0)-; q0+2u0>
q0*5j 10,0i
u:..o(q0) u:..o(q0+1)
q0"e fsClkInt'
s 1[Timer Vector Locked
qTimer Vector[..o
0[0 fq..0/5[1
<q0-q1; q:..o(q0+1)-"e
q0*5j 10 k'"# q0+2u0'>
a qAuto Save Timeout,(m.m& Auto Save Timer)m(m.m& Set Timer)
:m(m.m& Real-time Interrupt)v [0[1[2[3[4[5
:i5
qTime Only[6
fsDate+1"e
q6"n :i*No Time '
"# :i*No Time & No Date ''
fsDate:fsFDConvertu1
q6"n oSkipDate'
3,5:g1 u2
0,2:g1 u3
6,8:g1 u4
Q:Months( 3) u3
0:g2-48"e
0:F2 '
:i5 2 3 4
!SkipDate!
12,14:g1 u2
9,11:g1 u3
F=200"e
F=300"e :i*Midnite 5 '
F=312"e :i*12 Noon 5 ''
3/12"e
:i4am'
"# ( 3-12):\u3
fq3-1"e :i3 3'
:i4pm'
F=3 0"e :i312'
"# F=300"e :i312''
0:g3-48"e
0:F3 '
q6"e :i* 3: 2 4 5 '
"# :i* 3: 2 4 'l m.vModeline Safe Macro
ff&1"n*60m.vMode Line Timeout'
:m(m.m& Insert Correct Time in Mode Line)$ qMode Line Timeout,(
m.m& Insert Correct Time In Mode Line)m(m.m& Set Timer)
1,M.M &_Periodic_Action"n
M(M.M &_Periodic_Action)'
f[InsLen
qEditor Name[0
f~..J 0-1-FQ0"N oSet'
fq..J-(fq0+18)"l oSet'
qModeline Safe Macrof"n[0
q0-(]0w fsModeMacro)"n oSet''
:i0 ..J
M(M.M & Get Current Time)[1
fqEditor Name+1:f0 1
F=0 ..J"e 0 '
q0 u..J
FR
0
!Set!
fsModeMacrof"n[0 m0fr ]0'
0 * Intelligent real-time clock interrupts^ S Setup for using our winning macros
This object file was compressed on 3:47pm Sunday, 11 March 1984
by KRONJ on SU-SIERRA from the following source libraries:
SRA:<KRONJ.EMACS>TIMER.EMACS.5, 03/11/84 15:47:05' S Fix up so user can run without us< S Macro to check list of timers for later interpretations S Schedule a timer interrupt for later running.
Arg1 is interval (in 60ths of a second), Arg2 is macro to run.I S Remove timer from schedule.
Arg is macro that would have been run.Z S Timer interrupt for auto save.
Schedules self for later running and runs auto save. S Gets string form of time.
Time in 7 chars + <Space> + Date in 9 chars;
if qTime Only is nonzero, the just return time in 7 chars.K S Get the realtime clock interrupts going
Postcomma arg is the number of seconds to wait between updates (Default 30).
Precomma arg is time will only f^E the mode line when that macro is in ModeMac% S Updates modline display of timeK & Setup KMPTIME Library
& Kill KMPTIME Library
& Run Timers
& Set Timer
& Clear Timer
& Auto Save Timer
& Get Current Time
& Start Realtime Modeline Clock
& Insert Correct Time In Mode Line
\ +8+fq(+4)[2 0[3
< %3,-q2f2u3 q3&1@; q3"l 0 ' >
f[BBind q3-1*5,q3*5g2 q:..o(0)+q2