﻿⍝ LockServer
)load conga
)ed RPCServer
Samples.TestRPCServer
)clear
]open C:\Dyalog16\TandS\LockServer 
]load C:\Dyalog16\TandS\APLProcess
WS←'C:\Dyalog16\TandS\LockServer\LockServer.dws'
proc←⎕NEW APLProcess (WS 'LOCKSERVER=5678' 0)
proc.HasExited
]load C:\Dyalog16\TandS\LockServer\Locks
Locks.Init '127.0.0.1' 5678 'morten'
Locks.Lock 'abc'
⍝ Start new session and repeat last 3 lines
Locks.Status
Locks.Release 'abc'
Locks.Close

]load C:\Dyalog16\TandS\KF
⍝ Modify to use Locks
LOGFILE←'C:\temp\kflog.txt'
⎕NDELETE LOGFILE
WS←'C:\Dyalog16\TandS\KATest.dws'
runtest←{⎕NEW APLProcess (WS ('KFTest=',(⍕⍵),' KFRuns=100 KFSync=20 KFLog="c:\temp\kflog.txt"') 0)}
procs←runtest¨1 2 3
⊃⎕NGET LOGFILE
)ed KF
⍝ Now rerun MakeBoot
procs←runtest¨1 2 3
⊃⎕NGET LOGFILE


