Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/time.comprs
There are no other files named time.comprs in the archive.
!~Filename~:!
KMPTIME
!& Setup KMPTIME Library:!
m.vOnly Time in Modeline
m.vTime Only
m.vSaved Time
0fo..QOld FS Clk Macro"e
fsclkmacrom.vOld FS Clk Macro'
13*5fsqvectorf([5)M.VMonths
:i*Janu:5(1)
:i*Febu:5(2)
:i*Maru:5(3)
:i*Apru:5(4)
:i*Mayu:5(5)
:i*Junu:5(6)
:i*Julu:5(7)
:i*Augu:5(8)
:i*Sepu:5(9)
:i*Octu:5(10)
:i*Novu:5(11)
:i*Decu:5(12)
!& Kill KMPTIME Library:!
qOld FS Clk Macrofsclkmacro
0fsclkint

!& Get Current Time:!
[0[1[2[3[4[5[6
:i5
0fo..QTime Onlyu6
fsdate+1"e
q6"n:i*No Time'
"#:i*No Time & No Date''
fsdate:fsfdconvertu1
q6"noSkipDate'
3,5:g1u2
0,2:g1u3
fsOSTeco"e
6,8:g1u4'
"#
6,10:g1u4'
Q:Months(3)u3
0:g2-48"e
0:F2 '
:i5 2 3 4
!SkipDate!
fsOSTeco"e
12,14:g1u2
9,11:g1u3'
"#
14,16:g1u2
11,13:g1u3'
0fo..QTime Zone Adjustmentf"n+3u3
q3"l
q3+24u3
q6"e1,fq5:g5u5:i5<5!>!''
q3-23"g
q3-24u3
q6"e1,fq5:g5u5!<!:i5>5''
q3:\u3fq3-1"e:i303''w
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:24 5'
"#:i*3:24'
!& Start Realtime Modeline Clock:!
ff&1"n'"#60'*30fsClkInt
m.vModeline Safe Macro
0m.vModeline Full Update Time
M.M& Insert Correct Time in Mode LinefsCLKMacro
0
!& Enable MODLIN AutoSave:!
0m.vAutoSaveFlag
[0[1
:i*fo..QMM & Periodic Actionu0
@:i1|%AutoSaveFlag-9"g0uAutoSaveFlagwm(m.m& Real-time Interrupt)'|
:i*01m.vMM & Periodic Action

!& Insert Correct Time In Mode Line:!
1,M.M& Periodic Action"n
M(M.M& Periodic Action)'
qModeline Full Update Time"e
1uModeline Full Update Time
0'
"#
0uModeline Full Update Time'
f[inslen
qEditor Name[0
f~..J0-1-FQ0"NoSet'
FQ..J-(FQ0+18)"loSet'
qModeline Safe Macrof"n[0
q0-(]0wfsmodemacro)"noSet''
:i0..J
qTime OnlyuSaved time
qOnly Time in ModelineuTime Only
M(M.M& Get Current Time)[1
qSaved TimeuTime Only
FQEditor Name+1:F01
F=0..J"e0'
q0u..J
FR
0
!Set!
fsmodemacrof"n[0m0fr]0'
0
!~DOC~ ~Filename~:!
Timely macros for EMACS 
!~DOC~ & Setup KMPTIME Library:!
S Setup for using our winning macros
!~DOC~ & Kill KMPTIME Library:!
& Clean up on exit 
!~DOC~ & Get Current Time:!
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.
!~DOC~ & Start Realtime Modeline Clock:!
S Get the realtime clock interrupts going
Postcomma arg is the number of seconds to wait between updates (Default 60).
Precomma arg is time will only f^E the mode line when that macro is in 
 fsmodemacro
!~DOC~ & Enable MODLIN AutoSave:!
& Set up to run AutoSave every 5 clock updates 
!~DOC~ & Insert Correct Time In Mode Line:!
S Updates modline display of time
!~DIRECTORY~:!
& Setup KMPTIME Library
& Kill KMPTIME Library
& Get Current Time
& Start Realtime Modeline Clock
& Enable MODLIN AutoSave
& Insert Correct Time In Mode Line