UI: update IMAGE handling

Author: chrisws

ChangeLog

@@ -25,6 +25,7 @@
 	Added file manager to main shell program
 	Fixed issues with TRY/CATCH
 	Fixed using POINT to retrieve IMAGE data
+	The IMAGE argument can now be PNG data stored in an INT array
 
 2016-02-11
 	Added export to mobile command (SDL)

samples/distro-examples/libs/base64.bas

@@ -75,6 +75,28 @@ func decode(message)
   decode = result
 end
 
+func decodeBin(message)
+  dim result
+  local in_len = len(message)
+  local i, b_a, b_b, b_c, b_d
+
+  if (in_len % 4 != 0) then
+     throw "Invalid base64 message length"
+  endif
+
+  for i = 1 to in_len step 4
+    b_a = index(asc(mid(message, i, 1)))
+    b_b = index(asc(mid(message, i + 1, 1)))
+    b_c = index(asc(mid(message, i + 2, 1)))
+    b_d = index(asc(mid(message, i + 3, 1)))
+    result << (((b_a lshift 2) + (b_b rshift 4)))
+    result << (((b_b band 0xf) lshift 4) + (b_c rshift 2))
+    result << (((b_c band 0x3) lshift 6) + b_d)
+  next offset
+  decode = result
+end
+
+
 sub test
   if (len(alphabet) != 64) then
     throw "Invalid alphaet length"

samples/distro-examples/tests/chain.bas

@@ -7,4 +7,52 @@ ar_code << " print i"
 ar_code << "next i"
 chain ar_code
 
+Const FILENAME = "chain.tmp"
+
+Sub open_1
+  Open FILENAME For Output As #1
+End Sub
+
+' ERROR: Missing ')' (does not read last character):
+open_1
+? #1, "Print Pow(2, 1)";
+Close #1
+Chain FILENAME
+
+' OK: prints 4 (last character is ":"):
+open_1
+? #1, "Print Pow(2, 2):";
+Close #1
+Chain FILENAME
+
+' OK: prints 8 (last character is \n):
+open_1
+? #1, "Print Pow(2, 3)"
+Close #1
+Chain FILENAME
+
+' BUG?: prints 16 (reads ONLY the first line,
+'      should read file as Array - not as String...):
+open_1
+? #1, "Print Pow(2, 4)"
+? #1, "Print Pow(2, 5)"
+Close #1
+Chain FILENAME
+
+' OK: prints 64 128 (but as a String - not as an Array...):
+?
+open_1
+? #1, "Print Pow(2, 6):";
+? #1, "Print Pow(2, 7):";
+Close #1
+Chain FILENAME
+
+' OK: causes an ERROR: Variable is NOT an Array (use DIM)
+open_1
+? #1, "Print Power(2, 1)" ' (Power instead of Pow)
+Close #1
+Chain FILENAME
+
+' BUG?: does not report an ERROR (entering endless/long loop - ONLY IF previous "Chain FILENAME" is uncommented):
+Chain "Print Power(2, 1)" ' using a "string" instead of filename.
 

src/common/blib.c

@@ -2767,7 +2767,15 @@ void cmd_call_vfunc() {
   if (v_func == NULL || v_func->type != V_FUNC) {
     rt_raise(ERR_NO_FUNC);
   } else {
-    v_func->v.fn.cb(v_func->v.fn.self);
+    if (code_peek() != kwTYPE_LEVEL_BEGIN) {
+      err_missing_lp();
+    } else {
+      code_skipnext();
+      v_func->v.fn.cb(v_func->v.fn.self);
+      if (!prog_error && code_peek() != kwTYPE_LEVEL_END) {
+        err_missing_rp();
+      }
+    }
   }
 }