diff options
Diffstat (limited to 'test.toc')
-rw-r--r-- | test.toc | 48 |
1 files changed, 5 insertions, 43 deletions
@@ -1,48 +1,10 @@ #include "std/io.toc", io; -#include "std/mem.toc"; +#include "std/io.toc", io; + +foo ::= #foreign("abort", "libc.so.6") fn(); main ::= fn() { - nums := news(int, 10); - for x, i := &nums { - *x = i*i; - } - l := slice_to_ll(nums); - p := &l; - while p { - io.puti(p.head); - p = p.tail; - } - f: Foo; - f.k = -173; - f.b = new(Bar); - f.b.f.b = new(Bar); - f.b.f.b.f.k = 9; - io.puti(f.k); - io.puti(f.b.f.k); - io.puti(f.b.f.b.f.k); + io.puts("hi"); + foo(); } main(); - -slice_to_ll ::= fn(t::=, slice: []t) use ll: LinkedList(t) { - head = slice[0]; - if slice.len == 1 { - tail = null; - } else { - tail = new(LinkedList(t)); - *tail = slice_to_ll(slice[1:]); - } -} - -LinkedList ::= struct (of :: Type) { - head: of; - tail: &LinkedList(of); -} - -Foo ::= struct { - k: int; - b: &Bar; -} - -Bar ::= struct { - f: Foo; -} |