Fix stack setting after error return. Some fixes to examples.

resources/examples/binarydigits.c3

@@ -0,0 +1,25 @@
+module binarydigits;
+import std::math;
+import libc;
+fn void main()
+{
+    for (int i = 0; i < 20; i++)
+    {
+        String s = bin(i);
+        defer s.destroy();
+        libc::printf("%s\n", s.zstr());
+    }
+}
+
+fn String bin(int x)
+{
+    int bits = 1 + (int)(x == 0 ? 0 : math::log10((double)(x)) / math::log10(2));
+    String str;
+    str.append_repeat('0', bits);
+    for (int i = 0; i < bits; i++)
+    {
+        str.set((usize)(bits - i - 1), x & 1 ? '1' : '0');
+        x >>= 1;
+    }
+    return str;
+}

resources/examples/guess_number.c3

@@ -1,5 +1,4 @@
 module guess_number;
-import std::mem;
 import std::io;
 import libc;
 
@@ -34,7 +33,7 @@ fn int! askGuess(int high)
 fn char[]! readLine()
 {
 	char* chars = mem::talloc(1024)?;
-	isize loaded = getline(&chars, &&(usize)1023, 2libc::stdin());
+	isize loaded = getline(&chars, &&(usize)1023, libc::stdin());
 	if (loaded < 0) return InputResult.FAILED_TO_READ!;
 	chars[loaded] = 0;
 	return chars[0..(loaded - 1)];

resources/examples/notworking/binarydigits.c3

@@ -1,21 +0,0 @@
-module binarydigits;
-
-fn int main()
-{
-    fot (int i = 0; i < 20; i++)
-    {
-        printf("%s\n", bin(i));
-    }
-}
-
-fn string bin(int x)
-{
-    int bits = (x == 0) ? 1 : log10((double)(x)) / log10(2);
-    string ret = str.make_repeat('0' as bits);
-    for (int i = 0; i < bits; i++)
-    {
-        ret[bits - i - 1] = x & 1 ? '1' : '0';
-        x >>= 1;
-    }
-    return ret;
-}

resources/examples/notworking/map.c3

@@ -1,9 +1,14 @@
-module map(Key, Type);
+module std::container::map <Key, Type>;
+
+fault MapResult
+{
+	KEY_NOT_FOUND
+}
 
 public struct Entry
 {
     Key key;
-    Type* value;
+    Type value;
     usize hash;
     Entry* next;
 }
@@ -13,34 +18,37 @@ public struct Map
     usize size;
     void* map;
     uint mod;
+    Allocator allocator;
 }
 
-public fn Map* Map.init(Map *map)
+/**
+ * @require map != null
+ **/
+public fn void Map.init(Map *map, Allocator allocator)
 {
-    *map = { };
-    return map;
+    map.allocator = allocator;
 }
 
-public fn Type* Map.valueForKey(Map *map, Key key)
+public fn Type! Map.valueForKey(Map *map, Key key)
 {
-    if (!map.map) return nil;
+    if (!map.map) return null;
     usize hash = key.hash();
     usize pos = hash & map.mod;
     Entry* entry = &map.map[pop];
-    if () return nil;
+    if (!entry) return MapResult.KEY_NOT_FOUND!;
     while (entry)
     {
         if (entry.hash == hash && entry.key == key) return entry.value;
         entry = entry.next;
     }
-    return nil;
+    return MapResult.KEY_NOT_FOUND!;
 }
 
-public fn Type *Map.setValueForKey(Map *map, Key key, Type *value)
+public fn Type *Map.set(Map *map, Key key, Type value)
 {
     if (!map.map)
     {
-        map.map = @calloc(Entry, 16);
+        map.map = allocator.calloc(Entry, 16);
         map.mod = 0x0F;
     }
 
@@ -66,42 +74,14 @@ public fn Type *Map.setValueForKey(Map *map, Key key, Type *value)
         {
             entry = entry.next;
         }
-        entry.next = @malloc(Entry);
+        entry.next = allocator.alloc(Entry);
         entry = entry.next;
     }
 }
 
-public fn usize Map.size(Vector *vector)
+public fn usize Map.size(Map* map)
 {
-    return vector.array.size;
+    return map.size;
 }
 
-public fn void Map.removeLast(Vector *vector)
-{
-    vector.array.pop();
-}
 
-public macro Vector.foreach(Vector *vector, macro void(Type value) body)
-{
-    for (usize i = 0, i < vector.array.size; i++)
-    {
-        @body(vector.array[i]);
-    }
-}
-
-test
-{
-    define IntVector = Vector(int);
-    IntVector vector = vector.init();
-    vector.add(1);
-    vector.add(2);
-    for (int i : vector)
-    {
-        printDigit(i);
-    }
-    @vector.foreach(int i)
-    {
-        printDigit(i);
-    }
-    vector.destroy();
-}

resources/examples/notworking/retry.c3

@@ -1,19 +0,0 @@
-module test;
-
-
-public macro retry(#function, int retries = 3)
-{
-    error e;
-    while (1)
-    {
-        auto! result = #function;
-        try (result) return result;
-        catch (e = result);
-    } while (retries-- > 0)
-    return e!;
-}
-
-fn void main()
-{
-    int! result = @retry(eventually_succeed());
-}

resources/examples/notworking/swap.c3

@@ -1,21 +0,0 @@
-public test;
-
-/**
- * @require parse(a = b), parse(b = a)
- */
-public macro void swap(&a, &b)
-{
-    typeof(a) temp = a;
-    a = b;
-    b = temp;
-}
-
-/**
- * @require parse(a = b), parse(b = a)
- */
-public macro void swap2(auto &a, auto &b)
-{
-    auto temp = a;
-    a = b;
-    b = temp;
-}

resources/examples/retry.c3

@@ -0,0 +1,44 @@
+module test;
+import libc;
+
+fault TestErr
+{
+	NOPE
+}
+
+fn int! eventually_succeed()
+{
+	static int i = 0;
+	if (i++ < 3) return TestErr.NOPE!;
+	return i * 3;
+}
+
+macro @retry(#function, int retries = 3)
+{
+	var $Type = $typeof(#function);
+    anyerr e;
+    do
+    {
+        $Type! result = #function;
+        if (catch err = result)
+        {
+            e = err;
+            continue;
+        }
+        return result;
+    } while (retries-- > 0);
+    return e!;
+}
+
+fn void main()
+{
+    int! result = @retry(eventually_succeed());
+    if (try result)
+    {
+	    libc::printf("Got result: %d\n", result);
+    }
+    else
+    {
+        libc::printf("Failed :(\n");
+    }
+}

resources/examples/swap.c3

@@ -0,0 +1,20 @@
+module test;
+import libc;
+
+/**
+ * @checked a = b, b = a
+ */
+macro void @swap(&a, &b)
+{
+    $typeof(a) temp = a;
+    a = b;
+    b = temp;
+}
+
+fn void main()
+{
+	int x = 123;
+	int y = 456;
+	@swap(x, y);
+	libc::printf("x: %d y: %d\n", x, y);
+}