langs a-z

Task/Extend-your-language/Nemerle/extend-your-language-1.nemerle

@@ -0,0 +1,12 @@
+// point of interest: the when keyword and && operator inside the macro definition are macros themselves
+
+macro if2 (cond1, cond2, bodyTT, bodyTF, bodyFT, bodyFF)
+syntax ("if2", "(", cond1, ")", "(", cond2, ")", bodyTT, "elseTF", bodyTF, "elseFT", bodyFT, "else", bodyFF)
+{
+    <[
+        when($cond1 && $cond2) {$bodyTT};
+        when($cond1 && !($cond2)) {$bodyTF};
+        when(!($cond1) && $cond2) {$bodyFT};
+        when(!($cond1) && !($cond2)) {$bodyFF};
+    ]>
+}

Task/Extend-your-language/Nemerle/extend-your-language-2.nemerle

@@ -0,0 +1,20 @@
+using System;
+using System.Console;
+
+module UseIf2
+{
+    Main() : void
+    {
+        def happy = true;
+        def knowit = false;
+
+        if2 (happy) (knowit)
+            Write("Clap hands")
+        elseTF
+            Write("You're happy")
+        elseFT
+            Write("Cheer up")
+        else
+            Write("You're unhappy, cheer up");
+    }
+}