mirror of
https://github.com/KevinMidboe/linguist.git
synced 2026-02-13 03:39:32 +00:00
[Add Language] Jolie (#3574)
* added support for Jolie language * added support for Jolie language * added samples for Jolie
This commit is contained in:
84
samples/Jolie/hanoi.ol
Normal file
84
samples/Jolie/hanoi.ol
Normal file
@@ -0,0 +1,84 @@
|
||||
// https://github.com/jolie/website/blob/master/docs/documentation/locations/code/local.ol
|
||||
|
||||
include "runtime.iol"
|
||||
include "string_utils.iol"
|
||||
|
||||
type HanoiRequest: void{
|
||||
.src: string
|
||||
.aux: string
|
||||
.dst: string
|
||||
.n: int
|
||||
.sid?: string
|
||||
}
|
||||
|
||||
type HanoiReponse: void {
|
||||
.move?: string
|
||||
}
|
||||
|
||||
interface LocalOperations{
|
||||
RequestResponse:
|
||||
hanoiSolver( HanoiRequest )( HanoiReponse )
|
||||
}
|
||||
|
||||
interface ExternalOperations{
|
||||
RequestResponse:
|
||||
hanoi( HanoiRequest )( string )
|
||||
}
|
||||
|
||||
outputPort Self{
|
||||
Interfaces: LocalOperations
|
||||
}
|
||||
|
||||
inputPort Self {
|
||||
Location: "local"
|
||||
Interfaces: LocalOperations
|
||||
}
|
||||
|
||||
inputPort PowerService {
|
||||
Location: "socket://localhost:8000"
|
||||
Protocol: http{
|
||||
.format = "html"
|
||||
}
|
||||
Interfaces: ExternalOperations
|
||||
}
|
||||
|
||||
execution { concurrent }
|
||||
|
||||
init
|
||||
{
|
||||
getLocalLocation@Runtime()( Self.location )
|
||||
}
|
||||
|
||||
main
|
||||
{
|
||||
[ hanoi( request )( response ){
|
||||
getRandomUUID@StringUtils()(request.sid);
|
||||
hanoiSolver@Self( request )( subRes );
|
||||
response = subRes.move
|
||||
}]{ nullProcess }
|
||||
|
||||
[ hanoiSolver( request )( response ){
|
||||
if ( request.n > 0 ){
|
||||
subReq.n = request.n;
|
||||
subReq.n--;
|
||||
with( request ){
|
||||
subReq.aux = .dst;
|
||||
subReq.dst = .aux;
|
||||
subReq.src = .src;
|
||||
subReq.sid = .sid
|
||||
};
|
||||
hanoiSolver@Self( subReq )( response );
|
||||
response.move += "<br>" +
|
||||
++global.counters.(request.sid) +
|
||||
") Move from " + request.src +
|
||||
" to " + request.dst + ";";
|
||||
with ( request ){
|
||||
subReq.src = .aux;
|
||||
subReq.aux = .src;
|
||||
subReq.dst = .dst
|
||||
};
|
||||
hanoiSolver@Self( subReq )( subRes );
|
||||
response.move += subRes.move
|
||||
}
|
||||
}]{ nullProcess }
|
||||
}
|
||||
Reference in New Issue
Block a user