Merge branch 'master' of ssh://git.eclipse.org/gitroot/koneki/org.eclipse.koneki...

[metalua.git] / src / samples / h_test2.mlua

diff --git a/src/samples/h_test2.mlua b/src/samples/h_test2.mlua
deleted file mode 100644 (file)
index 891a10f..0000000
--- a/src/samples/h_test2.mlua
+++ /dev/null
@@ -1,25 +0,0 @@
--{ block:
-   -{ extension 'log' }
-   -{ extension 'H' }
-
-   require 'metalua.dollar'
-
-   local H = H:new()
-   print("initial H.alpha", H.alpha)
-
-
-   function dollar.Q(cond, iftrue, iffalse)
-      local b = +{ block: 
-                   local v 
-                   if -{!cond} then v = -{!iftrue}
-                   else v = -{!iffalse} end }
-      local r = `Stat{ b, +{v} }
-      H(r)
-      return r
-   end 
-
-   $log(H)
-   return H.alpha }
-
-x=1 ; y=$Q(x==1, 'one', 'two') ; print(y)
-x=2 ; y=$Q(x==1, 'one', 'two') ; print(y)
\ No newline at end of file