﻿⍝ Intro to Classy Stuff
)load conga

⍝ or if you want to be modern ...
)clear
]load Tool
Tool.Prepare 'Conga'
DRC←Conga.Init ''

]load [dyalog]/Samples/Conga/RPCServices/SimpleRPC
)ed Conga.Connection
)ed SimpleRPC

]load C:/SA2/Solutions/PrimeServer
)ed PrimeServer

⍝ TURN OFF "Pause On Error" !!!

srv←Conga.Srv 8123 SimpleRPC
srv.Start
psr←Conga.Srv 8124 PrimeServer
psr.Start
)si

clt←Conga.Clt 'localhost' 8123
clt.⎕nl ¯3
pcl←Conga.Clt 'localhost' 8124
clt.SendRecv 'Rotate' 6 'Hello World '
pcl.SendRecv 'Primes' 100
pcl.SendRecv 'CountPrimes' (0 100)

)erase clt pcl
(srv psr).Stop




