loom

1
Тест работы IPC ====================================
2
--- test/source/engine/debug/asynch-01.s-script :
3
import "../import/asynch.s-script"
4
    : async
5

6
def auto : factor = fn [factor] (int : x) -> int 
7
{
8
    if x <= 1 return 1 
9

10
    return x*factor(x-1)
11
}
12

13

14
def auto : future = async.future( fn [factor] () { return factor(3) } )
15
def int  : f = factor(3)
16

17
print f
18
print f == future.get()
19
 --- interpret :
20
6
21
true
22
The work is stopped
23
The work is completed
24
--- test/source/engine/debug/divide-by-zero.s-script :
25
fn div(int : x, int : y) -> int
26
{
27
    return x/y 
28
}
29
    
30
print div(4, 0)
31
--- interpret :
32
Ошибка: Произошло исключение при обработке оператора: {semantics : "", code : 64, param : "/"}
33
Описание исключения: Деление на ноль
34
Позиция разбора: test/source/engine/debug/divide-by-zero.s-script:3:13[3,14]
35
Source: test/source/engine/debug/divide-by-zero.s-script
36
[ 1]fn div(int : x, int : y) -> int
37
[ 2]{
38
[ 3]    return x/y 
39
                ^
40
[ 4]}
41
[ 5]    
42

43
Calls:
44
0. 	fn div(int x, int y) -> int
45
	Called from (f:1, l:6, h:, o:4):
46
	Locals:
47
		y = 0
48
		x = 4
49

50
	<root module>
51
	Call point is out
52
	Locals:
53
		div = <function>
54

55
The work is paused
56
The work is completed
57
--- test/source/engine/debug/fiber-01-primes-100.s-script :
58
import "../import/primes.s-script" type Primes : p1
59

60
make fiber p1
61
flow fiber p1.prime(1,100)
62
wait fiber p1
63
--- interpret :
64
1
65
3
66
5
67
7
68
11
69
13
70
17
71
19
72
23
73
29
74
31
75
37
76
41
77
43
78
47
79
53
80
59
81
61
82
67
83
71
84
73
85
79
86
83
87
89
88
97
89
The work is stopped
90
The work is completed
91