Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 6ba2773260
Fetching contributors…

Cannot retrieve contributors at this time

32 lines (30 sloc) 0.63 kb
functor
import
Application
Connection
Module
define
fun {CreateServer Mod}
P
thread
for (ProcFeat#Args)#Sync in {Port.new $ P} do
try
{Procedure.apply Mod.ProcFeat Args}
Sync = unit
catch E then
Sync = E
end
end
end
in
P
end
Args = {Application.getCmdArgs
record(
'functor'(single type:string optional:false)
result(single type:string optional:false)
)}
Result = {Connection.take {String.toAtom Args.result}}
[Functor] = {Module.link [{String.toAtom Args.'functor'}]}
Result = {CreateServer Functor}
end
Jump to Line
Something went wrong with that request. Please try again.