Recent Posts

Pages: 1 2 [3] 4 5 ... 10

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on March 28, 2021, 07:11:01 PM »

I started building the sbembed.inc file and got console support working.

Code: OxygenBasic

' O2 SB Array Passing
 
% filename "a2s.exe"
includepath "$/inc/"
include "RTL32.inc"
include "sbembed.inc"
#console
uses console
 
sys pProgram. fnsn
sbData *arg
sbData *argr
 
pProgram = scriba_new(@newmem, @freemem)
scriba_LoadConfiguration(pProgram, "C:\Windows\SCRIBA.INI")
scriba_SetFileName(pProgram, "test.sb")
scriba_LoadSourceProgram(pProgram)
scriba_Run(pProgram, "")
  
@arg = scriba_NewSbArgs(pProgram, "u")
fnsn = scriba_LookupFunctionByName(pProgram, "main::a2s")  
@argr = scriba_NewSbArgs(pProgram,"s", "")
scriba_CallArgEx(pProgram, fnsn, argr, 0, arg)
print argr.str
 
scriba_DestroySbArgs(pProgram, arg, 1)
scriba_DestroySbArgs(pProgram, argr, 1)
scriba_destroy(pProgram)
 

test.sb

Code: Script BASIC

DECLARE COMMAND ArrayToXML ALIAS "xmlserialize" LIB "t"
 
FUNCTION a2s
  a{"One"} = 1
  a{"Two"} = .2
  a{"3"} = "Three"
  a2s = ArrayToXML(a)
END FUNCTION  
 

sbembed.inc

Code: OxygenBasic

' ScriptBasic Embedding Include
 
% libScriba = "libScriba.dll"
 
type SbData
  typ as dword
  siz as dword
  union {
    dbl as double
    lng as sys
    str as char*
    gen as sys
  }
end type
 
sys sb = LoadLibrary libScriba
extern cdecl
  bind sb
  {
  scriba_new
  scriba_LoadConfiguration
  scriba_SetFileName
  scriba_LoadSourceProgram
  scriba_Run
  scriba_LookupFunctionByName
  scriba_NewSbArgs
  scriba_CallArgEx
  scriba_DestroySbArgs
  scriba_destroy
  }
end extern
 
function newmem cdecl (sys le) as sys, export
  return getmemory le
end function
 
function freemem cdecl (sys p) export
  freememory p
end function
 

C:\OxygenBasic\projectsC\ScriptBasic\EmbedSb>a2s

Code: XML

<?xml version="1.0" encoding="UTF-8"?><V><A l="0" h="5"><S>One</S><I>1</I><S>Two</S><R>0.200000</R><S>3</S><S>Three</S></A></V>

C:\OxygenBasic\projectsC\ScriptBasic\EmbedSb>

a2s.exe Size: 14,848 bytes
Total Seconds: 0.066272

I will be enhancing this include to make the interface to ScriptBasic more seamless.

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on March 28, 2021, 02:58:04 PM »

Code Challenge:

Anyone interested in creating a routine in O2 to parse the XML array definition I return from SB to an O2 array?

I would love to have a SPLITA and LIKE feature in O2.

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on March 28, 2021, 04:34:00 AM »

There doesn't seem to be any API based functions to pass ScriptBasic arrays back to the the caller. This is my workaround. ArrayToXML This shouldn't be too hard to parse on the O2 side as the bounds, variable types and element contents are returned.

Code: OxygenBasic

' O2 SB Syntax Embed
 
% filename "a2s.exe"
includepath "$/inc/"
include "RTL32.inc"
% libScriba="libScriba.dll"
indexbase 0
 
type SbData
  typ as dword
  siz as dword
  union {
    dbl as double
    lng as sys
    str as char*
    gen as sys
  }
end type
 
sys sb = LoadLibrary libScriba
extern cdecl
  bind sb
  {
  scriba_new
  scriba_LoadConfiguration
  scriba_SetFileName
  scriba_LoadSourceProgram
  scriba_Run
  scriba_LookupFunctionByName
  scriba_NewSbArgs
  scriba_CallArgEx
  scriba_DestroySbArgs
  scriba_destroy
  }
end extern
 
function newmem cdecl (sys le) as sys, export
  return getmemory le
end function
 
function freemem cdecl (sys p) export
  freememory p
end function
 
sys pProgram. fnsn
sbData *arg
sbData *argr
 
 
pProgram = scriba_new(@newmem, @freemem)
scriba_LoadConfiguration(pProgram, "C:\Windows\SCRIBA.INI")
scriba_SetFileName(pProgram, "test.sb")
scriba_LoadSourceProgram(pProgram)
scriba_Run(pProgram, "")
  
@arg = scriba_NewSbArgs(pProgram, "u")
fnsn = scriba_LookupFunctionByName(pProgram, "main::a2s")  
@argr = scriba_NewSbArgs(pProgram,"s", "")
scriba_CallArgEx(pProgram, fnsn, argr, 0, arg)
print argr.str
 
scriba_DestroySbArgs(pProgram, argr, 1)
scriba_destroy(pProgram)
 

test.sb

Code: Script BASIC

declare command ArrayToXML alias "xmlserialize" lib "t"
 
FUNCTION a2s
  b[10] = "Ten"
  b[11] = 11
 
  a[0] = "ZERO"
  a[1] = 1
  a[2] = .2
  a[3] = b
 
  a2s = ArrayToXML(a)
END FUNCTION  
 
 

Array2XML also handles associative arrays.

Code: Script BASIC

declare command ArrayToXML alias "xmlserialize" lib "t"
 
FUNCTION a2s
  a{"One"} = 1
  a{"Two"} = .2
  a{"3"} = "Three"
  a2s = ArrayToXML(a)
END FUNCTION  
 

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on March 28, 2021, 01:06:56 AM »

I'm moving on with trying to access ScriptBasic array structures from O2. Luckily Dave's SB IDE/Debugger shows SB arrary structures so I have some example code to reference.

FYI
It seems that trying to create a COM instance via 2 cascading DLLs calls doesn't work. My insurance plan went up in smoke. Hope you have better luck than me with your COM/OLE automation library.

I turns out embedding ScriptBasic in O2 is a lightweight solution for off loading code requirements to ScriptBasic you don't want to recreate the wheel in O2. You could use it as a prototyping tool as well.

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on March 27, 2021, 11:50:03 PM »

Charles,

I gave using scriba.h a try but it's complaining about syntax of one of the ScriptBasic .h files. Is this a show stopper using scriba.h with O2?

This seems to be a 'rabbit hole' that keeps getting deeper as I try to fill the holes. The bind seems like the way to go.

Code: OxygenBasic

% filename "weather.exe"
includepath "$/inc/"    
include "RTL32.inc"
includepath "C:\sbgcc\source\"
 
extern lib "libscriba.dll" cdecl   
include "scriba.h"
end extern
 
function newmem cdecl (sys le) as sys, export
  return getmemory le
end function
 
function freemem cdecl (sys p) export
  freememory p
end function
 
sys pProgram, fnsn
sbData *arg
sbData *argr
 
pProgram = scriba_new(@newmem, @freemem)
scriba_LoadConfiguration(pProgram, "C:\Windows\SCRIBA.INI")
scriba_SetFileName(pProgram, "weather.sb")
scriba_LoadSourceProgram(pProgram)
scriba_Run(pProgram, "")
 
@arg = scriba_NewSbArgs(pProgram, "s", "Anacortes,US")
fnsn = scriba_LookupFunctionByName(pProgram, "main::get_weather")  
@argr = scriba_NewSbArgs(pProgram,"s", "")
scriba_CallArgEx(pProgram, fnsn, argr, 1, arg)
print argr.v.s
 
scriba_DestroySbArgs(pProgram, arg, 1)
scriba_DestroySbArgs(pProgram, argr, 1)
scriba_destroy(pProgram)
 

This seems to be the problem area in the lexer.h include file.

Code: C

enum LexemeType {
  LEX_T_DOUBLE = 1,
  LEX_T_LONG,
  LEX_T_STRING,
  LEX_T_ASYMBOL,
  LEX_T_NSYMBOL,
  LEX_T_CHARACTER,
 
  LEX_T_SKIP,   
                
  LEX_T_SKIP_SYMBOL,
 
  LEX_T_DUMMY
  };
 
 
typedef struct _Lexeme {
  enum LexemeType type;   
  union {
    double dValue;        
    long   lValue;        
    char  *sValue;        
    } value;
  long sLen;              
  char *szFileName;       
  long lLineNumber;       
  struct _Lexeme *next;   
  }Lexeme, *pLexeme;
 

I tried the basext.h ScriptBasic include which is the include file for the ScriptBasic extension API.

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on March 27, 2021, 10:54:54 PM »

It seems that the sbProgram TYPE wasn't needed so I removed it from my examples. The clue was pProgram was being declared as a sys.

I also removed include "minwin.inc" and finit as they weren't required either.

I'm wondering if I can use the scriba.h directly in O2? I'm going to give that a try.

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on March 27, 2021, 02:08:21 PM »

This example shows calling a ScriptBasic function that uses the cURL extension module to do a request to the OpenWeather API returning a JSON response.

Code: OxygenBasic

' O2 SB cURL OpenWeather Example
 
% filename "weather.exe"
includepath "$/inc/"
include "RTL32.inc"
% libScriba = "libScriba.dll"
 
indexbase 0
 
type SbData
  typ as dword
  siz as dword
  union {
    dbl as double
    lng as sys
    str as char*
    gen as sys
  }
end type
 
sys sb = LoadLibrary libScriba
extern cdecl
  bind sb
  {
  scriba_new
  scriba_LoadConfiguration
  scriba_SetFileName
  scriba_LoadSourceProgram
  scriba_Run
  scriba_LookupFunctionByName
  scriba_NewSbArgs
  scriba_CallArgEx
  scriba_DestroySbArgs
  scriba_destroy
  }
end extern
 
function newmem cdecl (sys le) as sys, export
  return getmemory le
end function
 
function freemem cdecl (sys p) export
  freememory p
end function
 
sys pProgram, fnsn
sbData *arg
sbData *argr
 
pProgram = scriba_new(@newmem, @freemem)
scriba_LoadConfiguration(pProgram, "C:\Windows\SCRIBA.INI")
scriba_SetFileName(pProgram, "weather.sb")
scriba_LoadSourceProgram(pProgram)
scriba_Run(pProgram, "")
 
@arg = scriba_NewSbArgs(pProgram, "s", "Anacortes,US")
fnsn = scriba_LookupFunctionByName(pProgram, "main::get_weather")  
@argr = scriba_NewSbArgs(pProgram,"s", "")
scriba_CallArgEx(pProgram, fnsn, argr, 1, arg)
print argr.str
 
scriba_DestroySbArgs(pProgram, arg, 1)
scriba_DestroySbArgs(pProgram, argr, 1)
scriba_destroy(pProgram)
 

weather.sb

Code: Script BASIC

' OpenWeather - Curl Example
 
IMPORT curl.sbi
 
FUNCTION Get_Weather(place)
  ch = curl::init()
  curl::option(ch, "URL", "http://api.openweathermap.org/data/2.5/weather?q=" & place & "&units=imperial&appid=MY_API_KEY")
  curl::option(ch, "CUSTOMREQUEST", "GET")
  response = curl::perform(ch)
  curl::finish(ch)
  Get_Weather = response
END FUNCTION
 

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on March 27, 2021, 11:36:21 AM »

This example shows how to use ScriptBasic syntax in your Oxygen Basic program.

I can't thank Charles enough for the enormous effort he invested in untangling ScriptBasic's macro pointer C environment to O2.

Code: OxygenBasic

' O2 SB Syntax Embed
 
% filename "replace.exe"
includepath "$/inc/"
include "RTL32.inc"
% libScriba = "libScriba.dll"
indexbase 0
 
type SbData
  typ as dword
  siz as dword
  union {
    dbl as double
    lng as sys
    str as char*
    gen as sys
  }
end type
 
sys sb = LoadLibrary libScriba
extern cdecl
  bind sb
  {
  scriba_new
  scriba_LoadConfiguration
  scriba_SetFileName
  scriba_LoadSourceProgram
  scriba_Run
  scriba_LookupFunctionByName
  scriba_NewSbArgs
  scriba_CallArgEx
  scriba_DestroySbArgs
  scriba_destroy
  }
end extern
 
function newmem cdecl (sys le) as sys, export
  return getmemory le
end function
 
function freemem cdecl (sys p) export
  freememory p
end function
 
sys pProgram. fnsn
sbData *arg
sbData *argr
 
pProgram = scriba_new(@newmem, @freemem)
scriba_LoadConfiguration(pProgram, "C:\Windows\SCRIBA.INI")
scriba_SetFileName(pProgram, "sbfunctions")
scriba_LoadSourceProgram(pProgram)
scriba_Run(pProgram, "")
 
@arg = scriba_NewSbArgs(pProgram, "s s s i i", "Hello World", "Hello", "Goodbye", 1, 1)
fnsn = scriba_LookupFunctionByName(pProgram, "main::sb_replace")  
@argr = scriba_NewSbArgs(pProgram,"s", "")
scriba_CallArgEx(pProgram, fnsn, argr, 5, arg)
print argr.str
 
scriba_DestroySbArgs(pProgram, arg, 5)
scriba_DestroySbArgs(pProgram, argr, 1)
scriba_destroy(pProgram)
 

sbfunctions

Code: Script BASIC

' sbfunctions - ScriptBasic syntax function wrappers
 
FUNCTION sb_replace(basestr, searchstr, replacestr, occurances, startpos)
  sb_replace = REPLACE(basestr, searchstr, replacestr, occurances, startpos)
END FUNCTION
 

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on March 26, 2021, 10:05:54 PM »

I was able to get it working using the extern approach.

ScriptBasic can be used in 4 ways.

Console interpreter with stdio redirection
Windows interpreter for GUI apps
Muli-threaded webserver as a service
Enbeddable API as a DLL

Runs on everything. ANSI C based.

Code: OxygenBasic

' O2 SB Embed
 
% filename "o2sb.exe"
includepath "$/inc/"
include "RTL32.inc"
% libScriba = "libScriba.dll"
indexbase 0
 
type SbData
  typ as dword
  siz as dword
  union {
    dbl as double
    lng as sys
    str as char*
    gen as sys
  }
end type
 
#define SBT_UNDEF  0
#define SBT_DOUBLE 1
#define SBT_LONG   2
#define SBT_STRING 3
#define SBT_ZCHAR  4
 
sys pProgram, iError, cArgs
sys f1, f2, v
sys n, m
sys qdat
SbData ReturnData, ArgData[3]
sbData pdat
 
sys sb=LoadLibrary libScriba
extern cdecl
  bind sb
  {
  scriba_new
  scriba_SetStdin()
  scriba_SetStdout()
  scriba_SetEmbedPointer()
  scriba_LoadConfiguration
  scriba_destroy
  scriba_DestroySbData
  scriba_SetFileName
  scriba_LoadSourceProgram
  scriba_LoadProgramString
  scriba_Run
  scriba_GetVariable
  scriba_SetVariable
  scriba_LookupVariableByName
  scriba_LookupFunctionByName
  scriba_Call
  scriba_CallArg
  scriba_NewSbArgs
  scriba_CallArgEx
  scriba_DestroySbArgs
  scriba_DestroySbData
  scriba_NewSbString
  }
end extern
  
function newmem cdecl (sys le) as sys, export
  return getmemory le
end function
 
function freemem cdecl (sys p) export
  freememory p
end function
 
pProgram = scriba_new(@newmem, @freemem)
scriba_LoadConfiguration(pProgram, "C:\Windows\SCRIBA.INI")
scriba_SetFileName(pProgram, "test.sb")
scriba_LoadSourceProgram(pProgram)
scriba_Run(pProgram,"")
 
' Get Global Var  
sbdata *p  
v = scriba_LookupVariableByName(pProgram, "main::a")
scriba_GetVariable(pProgram, v, @@p)
print "A: " + str(p.lng)
 
' Create SB Variant Array
sbData *arg
@arg = scriba_NewSbArgs(pProgram,"i r s", 1, .2, "three")
print str(arg[0].lng) + " | " + str(arg[1].dbl) + " | " + arg[2].str
  
scriba_destroy(pProgram)
 

test.sb

Code: Script BASIC

a = 99

03/26/2021 11:01 PM 14,336 o2sb.exe

Problems & Solutions / Re: O2 SB Embed

« Last post by JRS on March 26, 2021, 07:28:16 PM »

I noticed that you went SB direct with the following rather than using the scriba.inc file. Does this make it easier to call functions with a variable number of arguments?

Code: OxygenBasic

  sys sb=LoadLibrary libScriba
  '
  'http://www.scriptbasic.org/docs/dg/devguide_3.3.html
  extern
  bind sb
  {
  scriba_new                   ' @newmem, @freemem
  scriba_SetStdin()            ' pProgram,@function
  scriba_SetStdout()           ' pProgram,@function
  scriba_SetEmbedPointer()     ' pProgram,@function
  scriba_LoadConfiguration     ' pProgram,filename
  scriba_destroy               ' pProgram
  scriba_DestroySbData         ' pProgram, pData
  scriba_SetFileName           ' pProgram, strptr filename
  scriba_LoadSourceProgram     ' pProgram
  scriba_LoadProgramString     ' pProgram, SrcString, len
  scriba_Run                   ' pProgram, strptr commandline
  scriba_GetVariable           ' pProgram, serial, psbData
  scriba_SetVariable           ' pProgram, serial, type, longVal, doubleVal, charVal*, size
  scriba_LookupVariableByName  ' pProgram, strptr name
  scriba_LookupFunctionByName  ' pProgram, strptr name
  scriba_Call                  ' pProgram, serial 
  scriba_CallArg               ' pProgram, serial,ArgFormString i/r/s/b,args...
  scriba_NewSbArgs             ' pProgram, string i/r/s/b,args
  scriba_CallArgEx             ' pProgram, serial,ReturnData,countArgs,*ArgDate
  scriba_DestroySbArgs         ' pProgram, pArgData, CountArgs
  scriba_DestroySbData         ' pProgram, pSbData
  scriba_NewSbString           ' pProgram, char* s
  }
  end extern
 

Pages: 1 2 [3] 4 5 ... 10

Oxygen Basic

News:

Recent Posts

Problems & Solutions / Re: O2 SB Embed

Problems & Solutions / Re: O2 SB Embed

Problems & Solutions / Re: O2 SB Embed

Problems & Solutions / Re: O2 SB Embed

Problems & Solutions / Re: O2 SB Embed

Problems & Solutions / Re: O2 SB Embed

Problems & Solutions / Re: O2 SB Embed

Problems & Solutions / Re: O2 SB Embed

Problems & Solutions / Re: O2 SB Embed

Problems & Solutions / Re: O2 SB Embed