2023-11-12 13:49:57 +00:00
|
|
|
|
|
|
|
|
|
|
sim←{
|
|
|
|
|
|
⍺←0.5
|
|
|
|
|
|
code←{
|
|
|
|
|
|
(2⊃¨v/⍨x)@(⍸x←∊⊃¨v←⎕VFI¨⍵)⊢⍵
|
|
|
|
|
|
}¨' '(≠⊆⊢)¨⊃⎕NGET ⍵ 1
|
|
|
|
|
|
ind←⊃¨srt←code[⍋⊃¨code]
|
|
|
|
|
|
sys←∪{⍵/⍨(2|⎕DR)¨⍵}↑,/2↓¨srt
|
|
|
|
|
|
vrf←sys∊⍥∊ind
|
|
|
|
|
|
0=∧/vrf:(∊eunderspec(⍕sys/⍨~vrf))⎕SIGNAL 8
|
|
|
|
|
|
(≢≠⊃∘⌽)ind:enoint ⎕SIGNAL 8
|
|
|
|
|
|
leds←⍸(⊂'LED')≡¨2⊃¨srt
|
|
|
|
|
|
unpref←{'x'≠1↑⍵:(epref ⍵)⎕SIGNAL 8 ⋄ 1↓⍵}
|
|
|
|
|
|
load←{∊'v[',(⍕⍵),']'}
|
|
|
|
|
|
fmt←{{⍵/⍨(∨\∧∘⌽∨\∘⌽)' '≠⍵}∊('⍝'(≠⊆⊢)∊' '⍺' '),¨⍵,⊂⍬}
|
|
|
|
|
|
state←⎕NS ⍬ ⋄ state.v←0⍴⍨≢srt ⋄ state.t←0
|
|
|
|
|
|
}
|
|
|
|
|
|
AddCentury←{
|
|
|
|
|
|
⍝ ⍺ ←→ Century Window, Century Anchor Year
|
|
|
|
|
|
⍝ ⍵ ←→ Decimal time number 60
|
|
|
|
|
|
⍝ ← ←→ ⍵ with added century
|
|
|
|
|
|
f w t←⍺
|
|
|
|
|
|
1∊'YYYY'⍷f:⍵
|
|
|
|
|
|
y←⌊⍵÷10*4
|
|
|
|
|
|
b←y<100
|
|
|
|
|
|
~∨/b:⍵
|
|
|
|
|
|
w>999:⍵+b×w×10*4
|
|
|
|
|
|
s x←0 100⊤w-⍨t
|
|
|
|
|
|
c←b×s+y<x
|
|
|
|
|
|
⍵+c×10*6
|
|
|
|
|
|
}
|
|
|
|
|
|
BasicFormats←{
|
|
|
|
|
|
⍝ ⍵ ←→ Time Strings
|
|
|
|
|
|
⍝ ← ←→ Potential appropriate format strngs
|
|
|
|
|
|
m←↑⍵
|
|
|
|
|
|
w←1⊃⍴m
|
|
|
|
|
|
toWide←w∘{⍵/⍨⍺≥≢¨⍵}
|
|
|
|
|
|
noDays←{⍵/⍨~'D'∊¨⍵}
|
|
|
|
|
|
hasDays←{⍵/⍨'D'∊¨⍵}
|
|
|
|
|
|
i←⊂¨∪⍋¨,⍳3⍴3
|
|
|
|
|
|
sn←1∊∊(↓MonthNames'')⍷¨⊂⎕C m
|
|
|
|
|
|
fp←,i∘.⌷((4⍴sn 1)/(4 3 2)(4 2 2)(2 3 2)2)/¨¨⊂'YMD'
|
|
|
|
|
|
fp←fp,∪fp~¨⊂⊂'DD'
|
|
|
|
|
|
fd←1↓¨∊¨'/',¨¨fp
|
|
|
|
|
|
fu←{⍵/⍨~∨/'MMM'⍷↑⍵}∊¨fp
|
|
|
|
|
|
v←i∘.⌷⊂'YMD'
|
|
|
|
|
|
v,←sn/(1+2×v='M')/¨v
|
|
|
|
|
|
v,←∪v~¨'D'
|
|
|
|
|
|
b←⎕D∊⍨' ',m
|
|
|
|
|
|
r←+/2</b ⍝ Digit runs
|
|
|
|
|
|
d←+/~b[0;] ⍝ Number of delims
|
|
|
|
|
|
fw←1=≢∪b ⍝ Fixed width
|
|
|
|
|
|
1∧.≥r:fu,⊂'excel' ⍝ toWide fu ⍝ No delimiters
|
|
|
|
|
|
fw∧(d=1)∧2∧.=r:noDays toWide fd ⍝ Fixed without days
|
|
|
|
|
|
fw∧(d=2)∧3∧.=r:hasDays toWide fd ⍝ Fixed with days
|
|
|
|
|
|
z←toWide fu,fd,v
|
|
|
|
|
|
z←z[⍒≢¨z] ⍝ Preference for longer format.
|
|
|
|
|
|
z[⍒+/¨'YMD'∘∊¨z] ⍝ Preference for more elements
|
|
|
|
|
|
}
|
|
|
|
|
|
FixedMMM←{
|
|
|
|
|
|
b←'MMM'⍷⍺
|
|
|
|
|
|
~1∊b:⍺ ⍵
|
|
|
|
|
|
i←⍸b
|
|
|
|
|
|
f←' '@i⊢⍺
|
|
|
|
|
|
m←⍵
|
|
|
|
|
|
n←MonthNames''
|
|
|
|
|
|
m[;i+⍳3]←'ZI3'⎕FMT 1+n⍳⎕C m[;i+⍳3]
|
|
|
|
|
|
f m
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
∇ {r}←{level}Log msg;ts
|
|
|
|
|
|
:Access public overridable
|
|
|
|
|
|
:If Logging>0∊⍴msg
|
|
|
|
|
|
ts←fmtTS ⎕TS
|
|
|
|
|
|
:If 1=≢⍴msg←⍕msg
|
|
|
|
|
|
:OrIf 1=⊃⍴msg
|
|
|
|
|
|
r←ts,' - ',msg
|
|
|
|
|
|
:Else
|
|
|
|
|
|
r←ts,∊(⎕UCS 13),msg
|
|
|
|
|
|
:EndIf
|
|
|
|
|
|
⎕←r
|
|
|
|
|
|
:EndIf
|
|
|
|
|
|
∇
|
|
|
|
|
|
|
|
|
|
|
|
∇ r←New arg
|
|
|
|
|
|
⍝ create a new instance of Jarvis
|
|
|
|
|
|
:Access public shared
|
|
|
|
|
|
:If 0∊⍴arg
|
|
|
|
|
|
r←##.⎕NEW ⎕THIS
|
|
|
|
|
|
:Else
|
|
|
|
|
|
r←##.⎕NEW ⎕THIS arg
|
|
|
|
|
|
:EndIf
|
|
|
|
|
|
∇
|
|
|
|
|
|
|
|
|
|
|
|
∇ make
|
|
|
|
|
|
:Access public
|
|
|
|
|
|
:Implements constructor
|
|
|
|
|
|
MakeCommon
|
|
|
|
|
|
∇
|
|
|
|
|
|
|
|
|
|
|
|
∇ r←args default defaults
|
|
|
|
|
|
args←,⊆args
|
|
|
|
|
|
r←(≢defaults)↑args,(≢args)↓defaults
|
|
|
|
|
|
∇
|
|
|
|
|
|
|
|
|
|
|
|
∇ Close
|
|
|
|
|
|
:Implements destructor
|
|
|
|
|
|
{0:: ⋄ {}LDRC.Close ServerName}⍬
|
|
|
|
|
|
∇
|
|
|
|
|
|
|
|
|
|
|
|
∇ (rc msg)←Pause
|
|
|
|
|
|
:Access public
|
|
|
|
|
|
→0 If~_started⊣(rc msg)←¯1 'Server is not running'
|
|
|
|
|
|
→0 If 2=⊃2⊃LDRC.GetProp ServerName'Pause'⊣(rc msg)←¯2 Error'Server is already paused'
|
|
|
|
|
|
→0 If 0≠rc←⊃LDRC.SetProp ServerName'Pause' 2⊣msg←'Error attempting to pause server'
|
|
|
|
|
|
Log'Pausing server...'
|
|
|
|
|
|
(rc msg)←0 'Server paused'
|
2023-11-12 18:29:17 +00:00
|
|
|
|
∇s
|
