﻿⍝ APL Process
⍝ Inspect & run MakeBoot.dyapp

]load c:\dyalog16\TandS\APLProcess
proc←⎕NEW APLProcess ('' '' 'notepad.exe')
proc.Proc.⎕nl -2
proc.Proc.⎕nl -3
proc.⎕NL -2
proc.⎕NL -3
proc.HasExited
proc.Kill

⍝ New last week: ssh support
host←'Mortens-Macbook-Air'
user←'mkrom'
sshkey←'c:\docs\personal\macbook-air'
cmd←'RIDE_SPAWNED=1 RIDE_INIT=SERVE::5678 /Applications/Dyalog-15.0.app/Contents/Resources/Dyalog/mapl'
proc←⎕NEW APLProcess ('' '' (host user sshkey cmd))

LOGFILE←'C:\temp\kflog.txt'
⎕NDELETE LOGFILE
WS←'C:\Dyalog16\TandS\KATest.dws'
proc←⎕NEW APLProcess (WS 'KFTest=1 KFRuns=100 KFSync=20 KFLog="c:\temp\kflog.txt"' 0)
proc.HasExited
⊃⎕NGET LOGFILE
runtest←{⎕NEW APLProcess (WS ('KFTest=',(⍕⍵),' KFRuns=100 KFSync=20 KFLog="c:\temp\kflog.txt"') 0)}
procs←runtest¨1 2 3
⊃⎕NGET LOGFILE
procs.Kill