Data commit

Task/Introspection/Lingo/introspection-1.lingo

@@ -0,0 +1,5 @@
+put _player.productVersion
+-- "11.5.9"
+
+_player.itemDelimiter="."
+if integer(_player.productVersion.item[1])<11 then _player.quit()

Task/Introspection/Lingo/introspection-2.lingo

@@ -0,0 +1,6 @@
+-- check existence of bloop in local scope
+bloopExists = not voidP(value("bloop"))
+-- or for global scope:
+-- bloopExists = not voidP(_global.bloop)
+absExists = value("abs(1)")=1
+if bloopExists and absExists then put abs(bloop) -- or abs(_global.bloop)

Task/Introspection/Lingo/introspection-3.lingo

@@ -0,0 +1,10 @@
+cnt = 0
+sum = 0
+repeat with v in the globals
+  if integerP(v) then
+    cnt = cnt + 1
+    sum = sum + v
+  end if
+end repeat
+put cnt
+put sum