COMMON: cleanup comp_pass1(), fix INCLUDE statement

Author: chrisws

ide/android/project.properties

@@ -8,7 +8,7 @@
 # project structure.
 #
 # To enable ProGuard to shrink and obfuscate your code, uncomment this (available properties: sdk.dir, user.home):
-#proguard.config=${sdk.dir}/tools/proguard/proguard-android.txt:proguard-project.txt
+proguard.config=${sdk.dir}/tools/proguard/proguard-android.txt:proguard-project.txt
 
 # Project target.
 target=android-15

samples/unit-tests/call_tau.bas renamed to samples/distro-examples/tests/call_tau.bas

@@ -1,5 +1,3 @@
-#!/usr/bin/sbasic
-#inc:"metac.bas"
-
+INCLUDE "metac.bas"
 ? "Module: Meta-A"
 

samples/distro-examples/tests/metaa.bas

@@ -1,4 +1,3 @@
-
 ? "Module: Meta-B"
 
 

samples/distro-examples/tests/metac.bas

@@ -0,0 +1,20 @@
+TauChild::initialized
+
+Tau::initilized
+
+Tau's exported variable: 	Tau's exported variable
+Function fooF          : 	Tau's fooF(Hi) is here
+Procedure fooP         : 
+Tau's fooP(Hi) is here
+message from main
+message from tau
+[1,2,3,4]
+Predefined Variables
+OS VER =0x0
+OS NAME=Unix/Linux version 3.13.0-32-generic (buildd@kissel) (gcc version 4.8.2 (Ubuntu 4.8.2-19ubuntu1) ) #57-Ubuntu SMP Tue Jul 15 03:51:08 UTC 2014
+SB VER =0x0
+PI     =3.14159265358979
+XMAX   =161
+YMAX   =42
+CWD    =/home/chrisws/src/SmallBASIC/src/platform/unix/
+HOME   =/home/chrisws/

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

@@ -1 +1,2 @@
+Module: Meta-B
 Module: Meta-A

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

@@ -0,0 +1,2 @@
+OK
+OK

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

@@ -0,0 +1,17 @@
+OPTION PREDEF QUIET
+OPTION PREDEF TEXTMODE
+OPTION PREDEF COMMAND FOO
+
+if (command <> "FOO") then
+  print "ERROR"
+else 
+  print "OK"
+end if
+
+UNITPATH = "/foo"
+if ENV("UNITPATH") != "/foo" then
+  print "ERROR" + " WAS:" + ENV("UNITPATH")
+else 
+  print "OK"
+end if
+

samples/distro-examples/tests/pass1.bas

@@ -1,10 +1,18 @@
+unit predef
+
+export prsys
+
+sub prsys
 ? cat(1);"Predefined Variables";cat(0)
 ? "OS VER =0x"; HEX$(osver)
 ? "OS NAME="; osname
 ? "SB VER =0x"; HEX$(sbver)
 ? "PI     ="; pi
 ? "XMAX   ="; xmax
 ? "YMAX   ="; ymax
+? "CWD    ="; CWD
+? "HOME   ="; HOME
+end