When you get your project working, it would be great if you can say a few word about your experience with embedding ScriptBasic in your application. Any tips or tricks you can offer would be appreciated.

I think Peter Verhas showed you an example above of creating a string from an array that you could unpack from your C program.

Peter,

The reason I'm moving to a 3.0 release is as follows.

• Standardization on gcc for all major platforms and in 32/64 bit modes.
• Abandoning traditional ScriptBasic build process for standard make system.
• Using SB script to generate the HTML documentation from the source.
• Dropping support from the distribution for the following extension modules.
• BDB - Berkeley DB
• PSQL - PostgreSQL
• DYC - Generic DLL access - doesn't translate well to gcc
• Implement the math stub functions that were never completed
• Cross platform GUI using the IUP toolkit.
• Build GUI IDE/Debugger using the new IUP extension module.

The core of ScriptBasic is solid and mature, I haven't sensed from Armando that he has any plans at enhancing the interpreter API at this point.

These are the 3.0 goals at this time and are open for discussion.

Maybe Armando or Peter can chime in and shed some light on accessing arrays.

Running scriba on the command line or as an embedded application?

Hey Guys, wake up!

There have been 50 or so downloads of ScriptBasic in the last few days and Armando needs your feedback. This is an incredible effort on Armando's part so don't let it die off because no one can find a couple minutes to reply to his request for feedback. It has taken me 5 years to find someone like Armando to get ScriptBasic moving forward again. PLEASE HELP the effort and participate.

 

I have noticed that ScriptBasic is being downloaded on a daily basis yet no one is commenting on their experience with the Basic.

• Did you have any issue getting ScriptBasic to work on your system?
• What version of Windows did you try ScriptBasic on?
• What areas do you plan to use ScriptBasic in your projects?
• Have you tried ScriptBasic in the 64-bit environment yet?
• Have you tried the Linux or Mac version yet?
• What suggestions do you have to create more of a community around ScriptBasic?

Another BCX embedded example to help you take your next step. Notice this example shows the results if you just load your script and access functions and variables and what the results are if you run the script.

BCX_embed4.bas
#include "\scriptbasic\source\scriba.h"
#include "\scriptbasic\source\getopt.h"

$LIBRARY "libscriba.lib"

' NOTE: Windows specific above this line and generic BCX below.

Dim pProgram As pSbProgram
Dim v As long
Dim f1 As long
Dim f2 As long
Dim dVal=11 as long
Dim cArgs As long
Dim ReturnData As SbData
dim ArgData[4] As SbData

' LOADING AND RUNNING THE PROGRAM
pProgram = scriba_new(malloc, free)
scriba_SetFileName(pProgram, "E03.bas")
scriba_LoadSourceProgram(pProgram)
scriba_NoRun(pProgram)

'' ACCESSING GLOBAL DATA
v = scriba_LookupVariableByName(pProgram, "main::a")

scriba_SetVariable(pProgram, v, 2, 500, 0, "", 0)

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

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

' SETUP ARGUMENTS

for cArgs=0 to 3
  ArgData[cArgs].type = SBT_DOUBLE
  ArgData[cArgs].size = 0
  ArgData[cArgs].v.d = dVal+cArgs
next

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

' READ RETURNED VALUE
select case ReturnData.type
 case SBT_UNDEF  :                print "Undefined"
 case SBT_DOUBLE :                print ReturnData.v.d
 case SBT_LONG   :                print ReturnData.v.l
 case =SBT_STRING or =SBT_ZCHAR : print (CHAR PTR)ReturnData.v.s
end select

scriba_destroy(pProgram)

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

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

'print "Enter: "
'line input q

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

function dprint
  sp="  "
  cr="\n"
  tab=chr$(9)
  print "Dprint Globals: " & s & sp & a & sp & b & cr
  ' line input q
  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
  ' line input q
  ans=a+b+c+d
  eprint="Sum = " & ans
end function

Results:(scriba_NoRun)
C:\Program Files\BCX\sb>BCX_embed4
Dprint Globals:   500
Eprint Args: 11.000000  12.000000  13.000000  14.000000
Return type: 3
Value:Sum = 50

C:\Program Files\BCX\sb>

Results: (Scriba_Run)
C:\Program Files\BCX\sb>BCX_embed4
Dprint Globals: hello world!  42  1.414214
Eprint Args: 1  2  3  4
Dprint Globals: hello world!  500  1.414214
Eprint Args: 11.000000  12.000000  13.000000  14.000000
Return type: 3
Value:Sum = 50

C:\Program Files\BCX\sb>