harborc 0.1.1

A language that ports: targeting your thermostat, UFO, and kitchen sink.
Documentation 
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

// Print a newline
fn putln() -> void = do
    putchar('\n')
end in


// Print a number, and a newline
fn putnumln(n: int) -> void = do
    putnum(n); putln()
end in

// Print a cartesian coordinate
fn putpoint(p: (int, int)) -> void = do
    let x = p.0,
        y = p.1
    in do
        putchar('(');
        putnum(x);
        putchar(',');
        putchar(' ');
        putnum(y);
        putchar(')');
    end
end in


fn putbool(b: bool) -> void = do
    if b do
        putchar('t');
        putchar('r');
        putchar('u');
        putchar('e')
    end;
        
    if !b do
        putchar('f');
        putchar('a');
        putchar('l');
        putchar('s');
        putchar('e')
    end;
end in

fn putboolln(b: bool) -> void = do
    putbool(b); putln();
end in

// Print a cartesian coordinate and a newline
fn putpointln(p: (int, int)) -> void = do
    putpoint(p); putln()
end in

fn test(a: (int, int), b: (char, char, (bool, char))) -> void = do
    putpointln(a);

    putchar('(');
    putchar(b.0);
    putchar(',');
    putchar(' ');
    putchar(b.1);
    putchar(',');
    putchar(' ');
    putchar('(');
    putbool(b.2.0);
    putchar(',');
    putchar(' ');
    putchar(b.2.1);
    putchar(')');
    putchar(')');
    putln()
end in

fn add(a: int, b: int) -> int = a + b in

fn move(p: (int, int), dx: int, dy: int) -> (int, int) = (p.0 + dx, p.1 + dy) in

// Do stuff!
let x = (1, 2, (3, 4)) in do
    let count = 5,
        points = alloc(count, (int, int)),
        i = 0
    in
        do
            putnumln(1);
            for (i = 0; i!=count; i++) do
                points[i] = (i + i, i * i);
            end;

            putnumln(2);
            for (i = 0; i!=count; i++) do
                points[i].putpointln;
            end;

            putnumln(3);
            test((5, 6), ('a', 'b', (true, 'c')));

            free(points)
        end
end