Data commit

Task/Call-a-function/Lingo/call-a-function-1.lingo

@@ -0,0 +1,3 @@
+foo()
+-- or alternatively:
+call(#foo, _movie)

Task/Call-a-function/Lingo/call-a-function-10.lingo

@@ -0,0 +1,17 @@
+on getAllUserFunctions ()
+  res = []
+  repeat with i = 1 to _movie.castlib.count
+    c = _movie.castlib(i)
+    repeat with j = 1 to c.member.count
+      m = c.member[j]
+      if m.type<>#script then next repeat
+      if m.scripttype=#movie then
+        functions = m.script.handlers()
+        repeat with f in functions
+          res.append(f)
+        end repeat
+      end if
+    end repeat
+  end repeat
+  return res
+end

Task/Call-a-function/Lingo/call-a-function-11.lingo

@@ -0,0 +1,2 @@
+put getAllUserFunctions()
+-- [#sum, #double, #getAllUserFunctions]

Task/Call-a-function/Lingo/call-a-function-12.lingo

@@ -0,0 +1,6 @@
+on double (someList)
+  cnt = someList.count
+  repeat with i = 1 to cnt
+    someList[i] = someList[i] * 2
+  end repeat
+end

Task/Call-a-function/Lingo/call-a-function-13.lingo

@@ -0,0 +1,9 @@
+l = [1,2,3]
+double(l)
+put l
+-- [2, 4, 6]
+
+l = [1,2,3]
+double(l.duplicate())
+put l
+-- [1, 2, 3]

Task/Call-a-function/Lingo/call-a-function-2.lingo

@@ -0,0 +1,3 @@
+foo(1,2,3)
+-- or alternatively:
+call(#foo, _movie, 1, 2, 3)

Task/Call-a-function/Lingo/call-a-function-3.lingo

@@ -0,0 +1,4 @@
+on foo (a, b)
+  if voidP(b) then b = 1
+  return a * b
+end

Task/Call-a-function/Lingo/call-a-function-4.lingo

@@ -0,0 +1,4 @@
+put foo(23, 2)
+-- 46
+put foo(23)
+-- 23

Task/Call-a-function/Lingo/call-a-function-5.lingo

@@ -0,0 +1,7 @@
+on sum ()
+  res = 0
+  repeat with i = 1 to the paramCount
+    res = res + param(i)
+  end repeat
+  return res
+end

Task/Call-a-function/Lingo/call-a-function-6.lingo

@@ -0,0 +1,2 @@
+put sum (1,2,3)
+-- 6

Task/Call-a-function/Lingo/call-a-function-7.lingo

@@ -0,0 +1,20 @@
+----------------------------------------
+-- One of the five native iterative methods defined in ECMAScript 5
+-- @param {list} tList
+-- @param {symbol} cbFunc
+-- @param {object} [cbObj=_movie]
+-- @return {list}
+----------------------------------------
+on map (tList, cbFunc, cbObj)
+  if voidP(cbObj) then cbObj = _movie
+  res = []
+  cnt = tList.count
+  repeat with i = 1 to cnt
+    res[i] = call(cbFunc, cbObj, tList[i], i, tList)
+  end repeat
+  return res
+end
+
+on doubleInt (n)
+  return n*2
+end

Task/Call-a-function/Lingo/call-a-function-8.lingo

@@ -0,0 +1,3 @@
+l = [1,2,3]
+put map(l, #doubleInt)
+-- [2, 4, 6]

Task/Call-a-function/Lingo/call-a-function-9.lingo

@@ -0,0 +1 @@
+x = foo(1,2)