BaCon Interpreter

The example that AIR created on the BCX forum was done with Ubuntu 32 some time ago. I tried to recompile it on Ubuntu 64 and getting the same messages that the SB functions can't be found.

Any ideas or comments are welcome!

Thanks!

I had to remove the -l from the LDFLAGS options but it worked.

bi.bac

PRAGMA OPTIONS -I/home/jrs/sb/source
PRAGMA INCLUDE scriba.h
PRAGMA INCLUDE getopt.h
PRAGMA LDFLAGS scriba
PRAGMA LDFLAGS pthread


PROTO scriba_new, scriba_LoadConfiguration, scriba_SetFileName, scriba_LoadSourceProgram, scriba_Run, scriba_destroy

USEC
pSbProgram pProgram;
END USEC

pProgram = scriba_new(malloc,free)
scriba_LoadConfiguration(pProgram,"/etc/scriba/basic.conf")

scriba_SetFileName(pProgram, "E01.bas")
scriba_LoadSourceProgram(pProgram)

iError=scriba_Run(pProgram,"JRS")

scriba_destroy(pProgram)


E01.bas

cmd = COMMAND()

PRINT "ARG = ",cmd,"\n"

FOR x = 1 TO 10
PRINT x,"\n"
NEXT


jrs@laptop:~/BaCon/B29$ ./bacon bi.bac
Converting 'bi.bac'... done.
Compiling 'bi.bac'... Compiler emits messages!

/usr/bin/ld: cannot find -l-lscriba
/usr/bin/ld: cannot find -l-lpthread
collect2: ld returned 1 exit status

jrs@laptop:~/BaCon/B29$ ./bacon bi.bac
Converting 'bi.bac'... done.
Compiling 'bi.bac'... done.
Program 'bi' ready.
jrs@laptop:~/BaCon/B29$ ./bi
ARG = JRS
1
2
3
4
5
6
7
8
9
10
jrs@laptop:~/BaCon/B29$

-rwxrwxr-x 1 jrs jrs 49902 Dec 25 09:44 bi

Thanks again Peter. That worked. I added the ability to pass any SB script and argument(s) for the bi (<50 KB) Basic interpreter.


' BaCon Command Line Interpreter

PRAGMA OPTIONS -I/home/jrs/sb/source
PRAGMA LDFLAGS scriba pthread
PRAGMA INCLUDE scriba.h getopt.h

PROTO scriba_new, scriba_LoadConfiguration, scriba_SetFileName, scriba_LoadSourceProgram, scriba_Run, scriba_destroy

USEC
pSbProgram pProgram;
END USEC

cmdln$ = ARGUMENT$
SPLIT cmdln$ BY " " TO opts$ SIZE cnt

pProgram = scriba_new(malloc,free)
scriba_LoadConfiguration(pProgram,"/etc/scriba/basic.conf")

scriba_SetFileName(pProgram, opts$[1])
scriba_LoadSourceProgram(pProgram)

iError=scriba_Run(pProgram,opts$[2])

scriba_destroy(pProgram)


jrs@laptop:~/BaCon/B29$ ./bacon bi.bac
Converting 'bi.bac'... done.
Compiling 'bi.bac'... done.
Program 'bi' ready.
jrs@laptop:~/BaCon/B29$ ./bi E01.bas JRS
ARG = JRS
1
2
3
4
5
6
7
8
9
10
jrs@laptop:~/BaCon/B29$

The above works great!

jrs@laptop:~/BaCon/B29$ ./bacon pbi.bac
Converting 'pbi.bac'... done.
Compiling 'pbi.bac'... done.
Program 'pbi' ready.
jrs@laptop:~/BaCon/B29$ ./pbi E01.bas JRS
ARG = JRS
1
2
3
4
5
6
7
8
9
10
jrs@laptop:~/BaCon/B29$

This is an API demo created by Charles Pegge with assistance from Armando I. Rivera (AIR) that was used in a SB embedding code challenge from awhile back. I converted it to run under BaCon.

sbapi.bac

' ScriptBasic API Demo

PRAGMA OPTIONS -I/home/jrs/sb/source
PRAGMA LDFLAGS scriba pthread
PRAGMA INCLUDE scriba.h getopt.h

PROTO scriba_destroy

DECLARE pProgram TYPE pSbProgram
DECLARE ReturnData TYPE SbData
DECLARE ArgData[4] TYPE SbData

lVal = 11

' RUN SB SCRIPT
pProgram = scriba_new(malloc,free)
ok = scriba_LoadConfiguration(pProgram,"/etc/scriba/basic.conf")
ok = scriba_SetFileName(pProgram, "E03.sb")
ok = scriba_LoadSourceProgram(pProgram)
ok = scriba_Run(pProgram,"")

' ACCESSING GLOBAL DATA
vsn = scriba_LookupVariableByName(pProgram, "main::a")
ok = scriba_SetVariable(pProgram, vsn, 2, 500, 0, "", 0)

' CALLING SIMPLE SUBROUTINE
f1 = scriba_LookupFunctionByName(pProgram, "main::dprint")
ok = scriba_Call(pProgram, f1)

' CALLING FUNCTION, RETURNING DATA AND GETTING ALTERED PARAMS
f2 = scriba_LookupFunctionByName(pProgram, "main::eprint")

' SETUP ARGUMENTS (these can be used for both input and output)

FOR cArgs = 0 TO 3
 ArgData[cArgs].type = SBT_LONG
 ArgData[cArgs].size = 0
 ArgData[cArgs].v.l = lVal+cArgs
NEXT cArgs

ok = scriba_CallArgEx(pProgram, f2, &ReturnData, cArgs, ArgData)
PRINT "Return type:", ReturnData.type
PRINT "Value: ";

' READ RETURNED VALUE
SELECT ReturnData.type
 CASE SBT_UNDEF
   PRINT "Undefined"
 CASE SBT_DOUBLE
   PRINT ReturnData.v.d
 CASE SBT_LONG
   PRINT ReturnData.v.l
 CASE SBT_STRING;
 CASE SBT_ZCHAR
   r$ = ReturnData.v.s
   PRINT r$
END SELECT

scriba_destroy(pProgram)



E03.sb

' ----------------
' GLOBAL VARIABLES
' ================
'
a=42
b=sqr(2)
s="hello world!"

q=dprint()
q=eprint(1,2,3,4)

' ---------
' FUNCTIONS
' =========

function dprint
 sp="  "
 cr="\n"
 tab=chr$(9)
 print "Dprint Globals: " & s & sp & a & sp & b & cr
 dprint=1
end function

function eprint(a,b,c,d)
 sp="  "
 cr="\n"
 tab=chr$(9)
 print "Eprint Args: " & a & sp & b & sp & c & sp & d & cr
 ans=a+b+c+d
 eprint="Sum = " & ans
end function


jrs@laptop:~/BaCon/B29$ ./bacon sbapi.bac
Converting 'sbapi.bac'... done.
Compiling 'sbapi.bac'... done.
Program 'sbapi' ready.
jrs@laptop:~/BaCon/B29$ ./sbapi
Dprint Globals: hello world! 42 1.414214
Eprint Args: 1 2 3 4
Dprint Globals: hello world! 500 1.414214
Eprint Args: 11 12 13 14
Return type:3
Value: Sum = 50
jrs@laptop:~/BaCon/B29$

You can also load a script and not run it. This comes in handy if you have a library of script functions/subs and want to call them from your BaCon program.

ok = scriba_NoRun(pProgram)

Notice the change in results when the initial global variables aren't set.

jrs@laptop:~/BaCon/B29$ ./sbapi
Dprint Globals: 500
Eprint Args: 11 12 13 14
Return type:3
Value: Sum = 50
jrs@laptop:~/BaCon/B29$

This example is using the binary compiled form of the script. This loads and runs the scripts faster as there is no prep work to do. It also adds a level of security to your scripts as they are stored on disk in a binary format.

Skipped Steps

• scriba_ReadSource()
  
• scriba_DoLexicalAnalysis()
  
• scriba_DoSyntaxAnalysis()
  
• scriba_BuildCode()
  


PRAGMA OPTIONS -I/home/jrs/sb/source
PRAGMA LDFLAGS scriba pthread
PRAGMA INCLUDE scriba.h getopt.h

PROTO scriba_destroy

DECLARE pProgram TYPE pSbProgram

cmdln$ = ARGUMENT$
SPLIT cmdln$ BY " " TO opts$ SIZE cnt

pProgram = scriba_new(malloc,free)
ok = scriba_LoadConfiguration(pProgram,"/etc/scriba/basic.conf")
ok = scriba_SetFileName(pProgram, opts$[1])
ok = scriba_LoadBinaryProgram(pProgram)
ok = scriba_Run(pProgram,opts$[2])
scriba_destroy(pProgram)


jrs@laptop:~/BaCon/B29$ scriba -o E01.bin E01.bas
jrs@laptop:~/BaCon/B29$ ./bacon bbi.bac
Converting 'bbi.bac'... done.
Compiling 'bbi.bac'... done.
Program 'bbi' ready.
jrs@laptop:~/BaCon/B29$ ./bbi E01.bin secrete_password
ARG = secrete_password
1
2
3
4
5
6
7
8
9
10
jrs@laptop:~/BaCon/B29$

I thought I would give my new remote (socket) SB debugger a try with an embedded BaCon application.


PRAGMA OPTIONS -I/home/jrs/sb/source
PRAGMA LDFLAGS scriba pthread
PRAGMA INCLUDE scriba.h getopt.h basext.h

PROTO scriba_destroy

DECLARE pProgram TYPE pSbProgram
DECLARE *debuggers[1] TYPE char

debuggers[0] = "sdbg"
debuggers[1] = NULL

pProgram = scriba_new(malloc,free)
ok = scriba_LoadConfiguration(pProgram,"/etc/scriba/basic.conf")
ok = scriba_LoadInternalPreprocessor(pProgram, debuggers)
ok = scriba_SetFileName(pProgram, "E04.sb")
ok = scriba_LoadSourceProgram(pProgram)
ok = scriba_Run(pProgram,"")

s1 = scriba_LookupFunctionByName(pProgram, "main::prtargs")
ok = scriba_CallArg(pProgram, s1, "i s r", 2012, "BaCon", 1.29)

scriba_destroy(pProgram)


Console 1
jrs@laptop:~/BaCon/B29$ ./bacon debugit.bac
Converting 'debugit.bac'... done.
Compiling 'debugit.bac'... done.
Program 'debugit' ready.
jrs@laptop:~/BaCon/B29$ ./debugit
2012
BaCon
1.29
jrs@laptop:~/BaCon/B29$

Console 2
jrs@laptop:~$ cd sb/test
jrs@laptop:~/sb/test$ scriba dbgcon.sb
Application: ScriptBasic Remote Debugger
Version: 1.0
Source-File-Count: 1
Source-File: E04.sb
Current-Line: 1
-> l -
[0001] SUB prtargs(arg1, arg2, arg3)
[0002] PRINT arg1,"\n"
[0003] PRINT arg2,"\n"
[0004] PRINT FORMAT("%g",arg3),"\n"
[0005] END SUB
Current-Line: 1
-> s
Current-Line: 2
-> s
Current-Line: 3
-> s
Current-Line: 4
-> s
Current-Line: 5
-> q
Debug session closed.
jrs@laptop:~/sb/test$