Data commit

Task/Closures-Value-capture/Lingo/closures-value-capture-1.lingo

@@ -0,0 +1,24 @@
+-- parent script "CallFunction"
+
+property _code
+
+-- if the function is supposed to return something, the code must contain a line that starts with "res="
+on new (me, code)
+  me._code = code
+  return me
+end
+
+on call (me)
+  ----------------------------------------
+  -- If custom arguments were passed, evaluate them in the current context.
+  -- Note: in the code passed to the constructor they have to be referenced
+  -- as arg[1], arg[2], ...
+  arg = []
+  repeat with i = 3 to the paramCount
+    arg[i-2] = param(i)
+  end repeat
+  ----------------------------------------
+  res = VOID
+  do(me._code)
+  return res
+end

Task/Closures-Value-capture/Lingo/closures-value-capture-2.lingo

@@ -0,0 +1,8 @@
+funcs = []
+repeat with i = 1 to 10
+  code = "res="&i&"*"&i
+  funcs[i] = script("CallFunction").new(code)
+end repeat
+
+put call(funcs[3], _movie)
+-- 9

Task/Closures-Value-capture/Lingo/closures-value-capture-3.lingo

@@ -0,0 +1,15 @@
+funcs = []
+repeat with i = 1 to 10
+  code = ""
+  put "res = "&i&"*"&i &RETURN after code
+  put "repeat with i = 1 to arg.count" &RETURN after code
+  put "  res = res + arg[i]" &RETURN after code
+  put "end repeat" after code
+  funcs[i] = script("CallFunction").new(code)
+end repeat
+
+put call(funcs[3], _movie, 23)
+-- 32
+
+put call(funcs[7], _movie, 4, 5, 6)
+-- 64