Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 26 lines (15 sloc) 0.514 kB
fccc685 Initial open-source release
MLstate authored
1 val f = @client(@server(4));;
2
3 val f x y z = (x + y) / z;;
4 val g x y = @client((@server(f 1)) x y);;
5
6 val g x = @client(!/db/x);;
7
8 val f = (@client( (@server( (+) 0 )) 1));;
9
10 val g x = @client( x + 1);;
11 val rec pipe x0 f = @server(f x0) ;;
12 val x = @client(pipe 1 g);;
13
14
15 val add_client y z = @client(1)
16 val foo = @server(add_client 0 1)
17
18
19 (* TODO do not slice this kind of function !
20 without typing, I think it will everytime pass
21 *)
22 val add_client y z = @client(1)
23 val foo = let f = add_client 0 in @server(f 1)
24
25
Something went wrong with that request. Please try again.