Merge branch 'smallbasic:master' into master

Author: 3oheicrw

samples/distro-examples/tests/all.bas

@@ -92,10 +92,10 @@ print "STKDUMP:" ':STKDUMP
 print "SWAP:"; :sa=10:sb=20:SWAP sa,sb: PRINT sa;sb
 print "THROW:" ':THROW [info [, ...]]
 print "TIMEHMS:" ':TIMEHMS hms| timer, BYREF h, BYREF m, BYREF s
-print "TLOAD:" ':TLOAD file, BYREF var [, type]
 print "TRON:" :TRON
 print "TROFF:" :TROFF
-print "TSAVE:" ':TSAVE file, var
+print "TSAVE:" : tsavetest = [1,2,3, "test"]: tsave "tsave.txt", tsavetest
+print "TLOAD: "; : tload "tsave.txt", tloadtest: print tloadtest
 print "VIEW:" ':VIEW [x1,y1,x2,y2 [,color [,border-color]]]
 print "WINDOW:" ':WINDOW [x1,y1,x2,y2]
 print "WRITE:" ':WRITE #fileN; var1 [, ...]

samples/distro-examples/tests/output/all.out

@@ -75,10 +75,10 @@ STKDUMP:
 SWAP:2010
 THROW:
 TIMEHMS:
-TLOAD:
 TRON:
-<97>TROFF:
+<96>TROFF:
 TSAVE:
+TLOAD: [1,2,3,test]
 VIEW:
 WINDOW:
 WRITE:

src/common/blib_db.c

@@ -660,15 +660,11 @@ void cmd_floadln() {
     // type == 1, build string
     v_free(var_p);
     int len = dev_flength(handle);
-    if (len < 1 || prog_error) {
-      err_throw(FSERR_NOT_FOUND);
-    } else {
-      v_init_str(var_p, len);
-      if (var_p->v.p.length > 1) {
-        dev_fread(handle, (byte *)var_p->v.p.ptr, var_p->v.p.length - 1);
-        var_p->v.p.ptr[var_p->v.p.length - 1] = '\0';
-      }
-    }
+    v_init_str(var_p, len);
+    if (var_p->v.p.length > 1) {
+      dev_fread(handle, (byte *)var_p->v.p.ptr, var_p->v.p.length - 1);
+      var_p->v.p.ptr[var_p->v.p.length - 1] = '\0';
+    }    
   }
   if (flags == DEV_FILE_INPUT) {
     dev_fclose(handle);
@@ -722,10 +718,14 @@ void cmd_fsaveln() {
 
   if (var_p->type == V_ARRAY) {
     // parameter is an array
-    for (int i = 0; i < v_asize(array_p); i++) {
-      var_p = v_elem(array_p, i);
+    if(v_asize(array_p) > 0) {
+      var_p = v_elem(array_p, 0);
       fprint_var(handle, var_p);
-      dev_fwrite(handle, (byte *)OS_LINESEPARATOR, OS_LINESEPARATOR_LEN);
+      for (int i = 1; i < v_asize(array_p); i++) {
+        var_p = v_elem(array_p, i);
+        dev_fwrite(handle, (byte *)OS_LINESEPARATOR, OS_LINESEPARATOR_LEN);
+        fprint_var(handle, var_p);        
+      }
     }
   } else {
     // parameter is an string