Custom-Programming-Language---Compiler/exemplu_gresit.txt at main · oliviaa28/Custom-Programming-Language---Compiler · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
HOUSE A {
    FIELD x : int;
    FIELD y : int;
    FIELD z : float;

    CHARM A() : A {
        x <~ 19;
        y <~ 90;
    }

    CHARM g(z : int) : int {
       // ACCIO zzz * 100;
    }

    CHARM fl(x : int) : float {
        PROPHECY (x == 20) {
            ACCIO 10.0;
        }
        ACCIO 20.0;
    }
}

SPELL f(z : int, x : float, b : bool) : int {
    PROPHECY (b == true && x > 1.0) {
        ACCIO z * 10;
    }
    ACCIO z;
}

HOUSE B {
    FIELD b : int;
    FIELD bb : int;

    CHARM B() : int {
          b <~ 5;
          bb <~ 10;
        ACCIO 0;
    }

    CHARM g(z : int) : int {
        ACCIO z + b;
    }

    CHARM f(z : int) : int {
        PARCHMENT {
            var : int;
        }
        PROPHECY (z > 4) {
            var <~ 0;
            ACCIO var + 5;
        }
        ACCIO b + bb * z;
    }
}

SPELL bfunc(b : bool, s : string) : string {
    PROPHECY (b == true) {
        ACCIO s;
    } else {
        ACCIO "bau";
    }
}

fx : float;
x : int;
z : int;
s : string;
ix : int;
// ix : int
b1 : bool;
b2 : bool;
obb : B;
oba : A;

DUEL {
   //  zzz <~ 10;

    fx <~ 65.0;
    ix <~ 10;
 //   Print(fx - 65.0 + f(10, 10.0, true));
 //   fx <~ fx * 10 + f(10, 10.0, true) + ix;
    s <~ "test";
    b1 <~ true;
    b2 <~ b1;
 //   Print(s + b1);
    b1 <~ b1 + b2;
 //   fx <~ b1 || b2;
    oba <~ SUMMON A();
    obb <~ SUMMON B();
 //   oba ** x <~ obb ** b + bfunc(b1, s);
 //   oba ** x <~ obb ** b + fx;

    Print(f(ix, fx, fx));
    Print(f(ix, fx, true, true));

    oba ** f(ix);
    oba ** g(fx);
    oba ** zzz <~ 100;
    oba ** x <~ oba ** x + oba ** fl(ix);
}