Author Topic: ScriptBasic 3.0 (Read 3078 times)

John · « **Reply #15 on:** March 26, 2024, 12:50:31 AM »

If you would like to try ScriptBasic64 rather than building it from source, I've attached a ScriptBasic Windows 64 Bit zip to install.

Unzip the zip in your root C:\ drive.
Open up an admin console if you are going try the ScriptBasic Application Server in standalone mode otherwise a normal console will do.
Change directory to your C:\ScriptBasic64\bin directory an run the sbpath.bat file. (adds bin and lib to the console search path for the console session)
Change directory to the examples directory and run the test scripts. scriba <name>.sb

To run the sbhttpd.exe (Application Server) in standalone mode do the following.

In an admin console cd to you bin directory.
Run sbhttpd -install (sbhttpd -remove)
Open the Windows Service Manger and start the "ScriptBasic Application Server 3.0" service. You can also use the sc.exe console version.
In your web browser type in localhost:9090/home/echo script.

Code: DOS

C:\ScriptBasic64\bin>sbhttpd -install
ScriptBasic Application Server 3.0 installed.
 
C:\ScriptBasic64\bin>sc start "ScriptBasic Application Server 3.0"
 
SERVICE_NAME: ScriptBasic Application Server 3.0
        TYPE               : 10  WIN32_OWN_PROCESS
        STATE              : 4  RUNNING
                                (STOPPABLE, NOT_PAUSABLE, ACCEPTS_SHUTDOWN)
        WIN32_EXIT_CODE    : 0  (0x0)
        SERVICE_EXIT_CODE  : 0  (0x0)
        CHECKPOINT         : 0x0
        WAIT_HINT          : 0x0
        PID                : 4712
        FLAGS              :
 
C:\ScriptBasic64\bin>
 

I use the Bootstrap framework with the ScriptBasic Application Server. Here is a template I've use. Spur Template

John · « **Reply #16 on:** March 26, 2024, 07:48:22 PM »

ScriptBasic 64 supports these key extensions for the language. These extension modules can be used with the web application server as well.

ScriptBasic supports a single step / breakpoints / view variables Debugger preprocessor.

ScriptBasic multi-threading with inter thread variable sharing.
cURL with https support
ODBC - uses ODBC DSN manager
MySQL direct API C interface
SQLite with memory / file DB support
JSON data API
XML data API
WEBEXT - converts JSON to ScriptBasic associative arrays and back.
Various other extensions are available separately

John · « **Reply #17 on:** March 27, 2024, 01:36:05 AM »

I thought I would give embedding libscriba.dll with the current version of OxygenBasic a try. The original 32 bit code worked. When I tried to change to rt64.inc and switch to the 64 bit version of libscriba, it failed to run.

Code: Visual Basic

' O2 SB Embed
 
% filename "o2sb.exe"
includepath "$/inc/"
include "RTL32.inc"
' include "RTL64.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_64")
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_DestroySbArgs(pProgram, arg, 3)
scriba_DestroySbData(pProgram, arg)  
scriba_destroy(pProgram)
 

test.sb

Code: ScriptBasic

a=99

John · « **Reply #18 on:** March 27, 2024, 12:58:48 PM »

There seems to be some issues with the 64 bit version of libscriba.dll. It fails with passing string arguments like configuration and code as a string. I tried the GCC 64 bit version libscriba with the same results. Hopefully AIR will find some time to have a look.

The libscriba shared object works fine on 64 bit Linux.

John · « **Reply #19 on:** March 27, 2024, 07:03:45 PM »

Jack,

Here is a 'Back to the Future' thread you might find interesting. Charles Pegg created a scriba.bi when he was building the DLLC extension module. This was before he created his self compiling version of O2.

Maybe you could revitalize this old FreeBaic thread with your efforts.

https://www.freebasic.net/forum/viewtopic.php?t=15976

John · « **Reply #20 on:** March 27, 2024, 08:52:16 PM »

I have been testing the sb-dev-msvc repo under Ubuntu Linux. The install went well.

Code: Text

jrs@linux-dev:~/sb-dev-msvc$ ./setup --check
This is unix cwd=/home/jrs/sb-dev-msvc/
scriba executable OK  
sbhttpd executable OK  
libscriba library OK  
MODULE odbc:     dll OK   lib OK   bas OK  
MODULE webext:   dll OK   lib OK   bas OK  
MODULE gmp2:     dll OK   lib OK   bas OK  
MODULE curl:     dll OK   lib OK   bas OK  
MODULE t:        dll OK   lib OK   bas OK  
MODULE ip:       dll OK   lib OK   bas OK  
MODULE hash:     dll OK   lib OK   bas OK  
MODULE sqlite:   dll OK   lib OK   bas OK  
MODULE trial:    dll OK   lib OK   bas OK  
MODULE zlib:     dll OK   lib OK   bas OK  
MODULE sbt:      dll OK   lib OK   bas OK  
MODULE sdbg:     dll OK   lib OK   bas OK  
MODULE curses:   dll OK   lib OK   bas OK  
MODULE dbg:      dll OK   lib OK   bas OK  
MODULE slre:     dll OK   lib OK   bas OK  
MODULE mt:       dll OK   lib OK   bas OK  
MODULE json:     dll OK   lib OK   bas OK  
MODULE ux:       dll OK   lib OK   bas OK  
MODULE mxml:     dll OK   lib OK   bas OK  
MODULE mysql:    dll OK   lib OK   bas OK  
MODULE cgi:      dll OK   lib OK   bas OK  
jrs@linux-dev:~/sb-dev-msvc$ 
 

The libscriba and SBT extension module seem to be working.

Code: ScriptBasic

' SBT 64 bit Linux Demo
 
IMPORT sbt.bas
 
sb_code = """
FUNCTION prtvars(a, b, c)
  PRINT a,"\\n"
  PRINT FORMAT("%g\\n", b)
  PRINT c,"\\n"
  prtvars = "Function Return"
END FUNCTION
 
a = 0
b = 0
c = ""
"""
 
sb = sbt::SB_New()
sbt::SB_Configure sb, "/etc/scriba/basic.conf"
sbt::SB_Loadstr sb, sb_code
sbt::SB_NoRun sb
' Call function before running script
funcrtn = sbt::SB_CallSubArgs(sb,"main::prtvars", 123, 1.23, "One, Two, Three")
PRINT funcrtn,"\n"
' Run script initializing globals
sbt::SB_Run sb, ""
' Assign variables values
sbt::SB_SetInt sb, "main::a", 321
sbt::SB_SetDbl sb, "main::b", 32.1
sbt::SB_SetStr sb, "main::c", "Three,Two,One" & CHR(0)
' Call function again with variables assigned in the previous step
sbt::SB_CallSubArgs sb, "main::prtvars", _
          sbt::SB_GetVar(sb, "main::a"), _
          sbt::SB_GetVar(sb, "main::b"), _
          sbt::SB_GetVar(sb, "main::c")
sbt::SB_Destroy sb
 

Output

Code: Text

jrs@linux-dev:~/sb/examples$ scriba sbt_demo.sb
123
1.23
One, Two, Three
Function Return
321
32.1
Three,Two,One
jrs@linux-dev:~/sb/examples
 

John · « **Reply #21 on:** March 27, 2024, 09:20:51 PM »

The ScriptBasic Application Server works under Linux with the sb-dev-msvc build.

Code: ScriptBasic

global const nl = "\n"
Const NumberOfCookies = 3
 
include cgi.bas
 
option cgi$Method cgi::Get or cgi::Upload
 
' cgi::RequestBasicAuthentication "Test Realm"
cgi::Header 200,"text/html"
 
'
' We are setting several cookies. The expiry time is ten seconds so you can test that
' the cookies are sent by the browser if you press some of the buttons fast enough,
' but it does not if you are slow
'
for i=1 to NumberOfCookies 
  ' cookie(i) is i, no domain is defined, path is /, expires after 5 seconds, not secure
  cgi::SetCookie "cookie" & i,i,undef,"/",gmtime()+10,false
next i
 
cgi::FinishHeader
 
'-------------------------------------------------------
print """<HTML>
<HEAD>
<title>CGI parameter testing</title>
</HEAD>
<BODY><font face="VERDANA" size="2">
<H1>View CGI Parameters</H1>
This page shows the cgi parameters the way it was uploaded.
<!-- here is the result of the previous HTTP request -->
<FONT SIZE="3">
<PRE>
CGI system variables
--------------------
 
"""
'-------------------------------------------------------
 
print "ServerSoftware  = ",cgi::ServerSoftware(), nl
print "ServerName      = ",cgi::ServerName(), nl
print "GatewayInterface= ",cgi::GatewayInterface(),nl
print "ServerProtocol  = ",cgi::ServerProtocol(), nl
print "ServerPort      = ",cgi::ServerPort(), nl
print "RequestMethod   = ",cgi::RequestMethod(), nl
print "PathInfo        = ",cgi::PathInfo(), nl
print "PathTranslated  = ",cgi::PathTranslated(), nl
print "ScriptName      = ",cgi::ScriptName(), nl
print "QueryString     = ",cgi::QueryString(), nl
print "RemoteHost      = ",cgi::RemoteHost(), nl
print "RemoteAddress   = ",cgi::RemoteAddress(), nl
print "AuthType        = ",cgi::AuthType(), nl
print "RemoteUser      = ",cgi::RemoteUser(), nl
print "RemoteIdent     = ",cgi::RemoteIdent(), nl
print "ContentType     = ",cgi::ContentType(), nl
print "ContentLength   = ",cgi::ContentLength(), nl
print "UserAgent       = ",cgi::UserAgent(), nl
print "Cookie          = ",cgi::RawCookie(), nl
 
print "Referer         = ",cgi::Referer(),nl
print "Password        = ",Environ("HTTP_PASSWORD"),nl
print "Full auth string= ",Environ("HTTP_AUTHORIZATION"),nl
print "\nCookies:\n"
for i=1 to NumberOfCookies
  print "cookie" & i," ",cgi::Cookie("cookie" & i),"\n"
next i
 
print "Text field using Param(\"TEXT-FIELD\") is ",cgi::Param("TEXT-FIELD"),nl,nl
 
 
if cgi::RequestMethod() = "GET" then
  print "GET text field using GetParam(\"TEXT-FIELD\") is ",cgi::GetParam("TEXT-FIELD"),nl
end if
 
if cgi::RequestMethod() = "POST" then
  print "POST text field using PostParam(\"TEXT-FIELD\") is ",cgi::PostParam("TEXT-FIELD"),nl
  if cgi::ContentType() like "multipart*" then
    print "Original file name is ",cgi::FileName("FILE-UPLOAD-NAME"),nl
    if cgi::FileLength("FILE-UPLOAD-NAME") > 0 then
      print "File of length ",cgi::FileLength("FILE-UPLOAD-NAME")," bytes is saved\n"
      on error goto NoSave
      cgi::SaveFile "FILE-UPLOAD-NAME","/home/jrs/sb/home/upload.txt"
    else
      print "There is no uploaded file."
    end if
  end if
end if
 
print """</PRE><TABLE><TR><TD BORDER=0 BGCOLOR="EEEEEE"><PRE>
A simple form to POST parameters:<BR>
<FORM METHOD="POST" ACTION="/home/echo">
<INPUT TYPE="TEXT" VALUE="DEFAULT TEXT" NAME="TEXT-FIELD">
<INPUT TYPE="SUBMIT" NAME="SUBMIT-BUTTON" VALUE=" POST ">
</FORM>
</PRE></TD><TD BORDER=1 width="20">&nbsp;</TD><TD BORDER=0 BGCOLOR="EEEEEE"><PRE>
A simple form to GET parameters:<BR>
<FORM METHOD="GET" ACTION="/home/echo">
<INPUT TYPE="TEXT" VALUE="DEFAULT TEXT" NAME="TEXT-FIELD">
<INPUT TYPE="SUBMIT" NAME="SUBMIT-BUTTON" VALUE=" GET ">
</FORM>
</PRE></TD></TR></TABLE><PRE>
<hr>
A simple form to UPLOAD a file:<BR>
<FORM METHOD="POST" ACTION="/qbo/echo" ENCTYPE="multipart/form-data">
<INPUT TYPE="TEXT" VALUE="DEFAULT TEXT" NAME="TEXT-FIELD">
<INPUT TYPE="FILE" VALUE="FILE-UPLOAD-VALUE" NAME="FILE-UPLOAD-NAME">
<INPUT TYPE="SUBMIT" NAME="SUBMIT-BUTTON" VALUE="UPLOAD FILE">
</FORM>
<hr>
</BODY>
</HTML>
"""
stop
NoSave:
 
print "An error has happened saving the file. Code =",error(),nl
 
resume next
 

John · « **Reply #22 on:** March 27, 2024, 10:20:28 PM »

Jack,

In this thread it had a download link to FreeBasic embedding of libcriba.dll. I have attached the FBembedsSB_3.zip that has Charles's scriba.bi. This is 32 bit demo.

EO3.bas

Code: ScriptBasic

'
' SCRIPTBASIC
'
 
' ----------------
' 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
 

Code: FreeBasic

  #include once "windows.bi"
  #include once "win/ole2.bi"
  #include once "scriba.bi"
 
  dim as long pProgram,iError,cArgs
  dim as long f1,f2,v
  dim as long n,m
  dim as SbData ReturnData,ArgData(3)
  dim as sbdata ptr pdat
  dim as long qdat
  
  function newmem CDECL (ByVal le As Long) As bstr Export
    function=SysAllocStringByteLen (0,le)
  end function
 
  sub freemem CDECL (ByVal p As bstr) Export
    SysFreeString p
  end sub 
 
  SetConsoleTitle "FreeBasic ScriptBasic Embedding Test"
 
 
 
 
  '
  'LOADING AND RUNNING A PROGRAM
  '-----------------------------
  '
  pProgram=scriba_new (cast(long,@newmem), cast(long,@freemem))
  'scriba_LoadConfiguration(pProgram,"c:\scriptbasic\bin\scriba.conf")
  scriba_SetFileName(pProgram,"E03.bas")
 
  iError=scriba_LoadSourceProgram(pProgram)
  if iError then goto ending
 
  iError=scriba_Run(pProgram,"Hello")
  if iError then goto ending
  
  '
  'ACCESSING GLOBAL DATA 
  '---------------------
  '
  v=scriba_LookupVariableByName(pProgram,"main::a")  
  scriba_GetVariable(pProgram,v,qdat)
  pdat=cast(sbdata ptr,qdat)
  m=pdat->lng+100
  scriba_SetVariable(pProgram,v,2,m,0,"",0)
  'scriba_GetVariable(pProgram,v,*pdat)
  '
  'CALLING SIMPLE SUBROUTINE
  '-------------------------
  '
  f1=scriba_LookupFunctionByName(pProgram,"main::dprint")
  if f1=0 then print "Unable to locat Dprint" : goto ending
  
  iError=scriba_Call(pProgram,f1)
  if iError then goto ending
  '
  '
  '
  'CALLING FUNCTION, RETURNING DATA AND GETTING ALTERED PARAMS
  '-----------------------------------------------------------
 
  f2=scriba_LookupFunctionByName(pProgram,"main::eprint")
  if f2=0 then print "Unable to locate Eprint" : goto ending 
 
 
  'SETUP ARGUMENTS
  '---------------
 
  'these can be used for both input and output
  
  ArgData(0).typ=SBT_DOUBLE
  ArgData(1).typ=SBT_DOUBLE
  ArgData(2).typ=SBT_DOUBLE
  ArgData(3).typ=SBT_DOUBLE
  
  ArgData(0).siz=0
  ArgData(1).siz=0
  ArgData(2).siz=0
  ArgData(3).siz=0
   
  ArgData(0).dbl=11
  ArgData(1).dbl=12
  ArgData(2).dbl=13
  ArgData(3).dbl=14
 
  cArgs=4
  '
  iError=scriba_CallArgEx(pProgram, f2, ReturnData, cArgs, ArgData(0))
  if iError then goto ending
 
  print "Return type:",ReturnData.typ
  print "Value:",
  '
  'READ RETURNED VALUE
  '-------------------
  '
  select case ReturnData.typ
    case SBT_UNDEF  : print "Undefined"
    case SBT_DOUBLE : print ReturnData.dbl
    case SBT_LONG   : print ReturnData.lng
    case SBT_STRING : print *ReturnData.str
    case SBT_ZCHAR  : print *ReturnData.str
  end select
 
  '------
  ending:
  '======
  
  scriba_destroy(pProgram)
 
  if iError then print "ERROR:  " + hex$(iError)  ' + "  " + hex$(pProgram)
 
 
  'messageBox 0,"ok:  "+hex$(iError)+"  "+hex$(pProgram),"FreeBasic",0
  sleep
 

Output

Code: Text

C:\FBWin\FBembedsSB_3>fbembeds3
Dprint Globals: hello world!  42  1.414214
Eprint Args: 1  2  3  4
Dprint Globals: hello world!  142  1.414214
Eprint Args: 11.000000  12.000000  13.000000  14.000000
Return type:   3
Value:        Sum = 50
 
C:\FBWin\FBembedsSB_3>
 

John · « **Reply #23 on:** March 28, 2024, 07:24:34 PM »

Here are the results of my Linux testing of the sb-dev-msvc repo.

Code: Text

*** SBT ***
 
jrs@linux-dev:~/sb/examples$ scriba sbt_demo.sb
123
1.23
One, Two, Three
Function Return
321
32.1
Three,Two,One
jrs@linux-dev:~/sb/examples$ 
 
 
jrs@linux-dev:~/sb/examples$ scriba sbt_main.sb
M:1
T:1
M:2
T:2
M:3
T:3
M:4
T:4
M:5
T:5
M:6
T:6
M:7
T:7
M:8
T:8
M:9
T:9
M:10
T:10
Thread Completed
jrs@linux-dev:~/sb/examples$ 
 
 
*** CURL ***
 
jrs@linux-dev:~/sb/examples$ scriba curl_wget.sb
http://www.textfiles.com/etext/FICTION/warpeace.txt
Data downloaded: 4434670 bytes.
Total download time: 1.510 sec.
Average download speed: 2868.000 kbyte/sec.
jrs@linux-dev:~/sb/examples$ 
 
 
*** GMP ***
 
jrs@linux-dev:~/sb/examples$ scriba gmpmath.sb
ADD: 2222222211
SUB: 246913569
MUL: 1219326311126352690
DIV: 617283945
 
ScriptBasic MAXINT: 9223372036854775807
jrs@linux-dev:~/sb/examples$ 
 
 
*** MYSQL ***
 
jrs@linux-dev:~/sb/examples$ scriba testmysql.sb
S10_1678 - 1969 Harley Davidson Ultimate Chopper - $ 95.70
S10_1949 - 1952 Alpine Renault 1300 - $214.30
S10_2016 - 1996 Moto Guzzi 1100i - $118.94
S10_4698 - 2003 Harley-Davidson Eagle Drag Bike - $193.66
S10_4757 - 1972 Alfa Romeo GTA - $136.00
S10_4962 - 1962 LanciaA Delta 16V - $147.74
S12_1099 - 1968 Ford Mustang - $194.57
S12_1108 - 2001 Ferrari Enzo - $207.80
S12_1666 - 1958 Setra Bus - $136.67
S12_2823 - 2002 Suzuki XREO - $150.62
S12_3148 - 1969 Corvair Monza - $151.08
S12_3380 - 1968 Dodge Charger - $117.44
S12_3891 - 1969 Ford Falcon - $173.02
S12_3990 - 1970 Plymouth Hemi Cuda - $ 79.80
S12_4473 - 1957 Chevy Pickup - $118.50
S12_4675 - 1969 Dodge Charger - $115.16
S18_1097 - 1940 Ford Pickup Truck - $116.67
S18_1129 - 1993 Mazda RX-7 - $141.54
S18_1342 - 1937 Lincoln Berline - $102.74
S18_1367 - 1936 Mercedes-Benz 500K Special Roadster - $ 53.91
S18_1589 - 1965 Aston Martin DB5 - $124.44
S18_1662 - 1980s Black Hawk Helicopter - $157.69
S18_1749 - 1917 Grand Touring Sedan - $170.00
S18_1889 - 1948 Porsche 356-A Roadster - $ 77.00
S18_1984 - 1995 Honda Civic - $142.25
S18_2238 - 1998 Chrysler Plymouth Prowler - $163.73
S18_2248 - 1911 Ford Town Car - $ 60.54
S18_2319 - 1964 Mercedes Tour Bus - $122.73
S18_2325 - 1932 Model A Ford J-Coupe - $127.13
S18_2432 - 1926 Ford Fire Engine - $ 60.77
S18_2581 - P-51-D Mustang - $ 84.48
S18_2625 - 1936 Harley Davidson El Knucklehead - $ 60.57
S18_2795 - 1928 Mercedes-Benz SSK - $168.75
S18_2870 - 1999 Indy 500 Monte Carlo SS - $132.00
S18_2949 - 1913 Ford Model T Speedster - $101.31
S18_2957 - 1934 Ford V8 Coupe - $ 62.46
S18_3029 - 1999 Yamaha Speed Boat - $ 86.02
S18_3136 - 18th Century Vintage Horse Carriage - $104.72
S18_3140 - 1903 Ford Model A - $136.59
S18_3232 - 1992 Ferrari 360 Spider red - $169.34
S18_3233 - 1985 Toyota Supra - $107.57
S18_3259 - Collectable Wooden Train - $100.84
S18_3278 - 1969 Dodge Super Bee - $ 80.41
S18_3320 - 1917 Maxwell Touring Car - $ 99.21
S18_3482 - 1976 Ford Gran Torino - $146.99
S18_3685 - 1948 Porsche Type 356 Roadster - $141.28
S18_3782 - 1957 Vespa GS150 - $ 62.17
S18_3856 - 1941 Chevrolet Special Deluxe Cabriolet - $105.87
S18_4027 - 1970 Triumph Spitfire - $143.62
S18_4409 - 1932 Alfa Romeo 8C2300 Spider Sport - $ 92.03
S18_4522 - 1904 Buick Runabout - $ 87.77
S18_4600 - 1940s Ford truck - $121.08
S18_4668 - 1939 Cadillac Limousine - $ 50.31
S18_4721 - 1957 Corvette Convertible - $148.80
S18_4933 - 1957 Ford Thunderbird - $ 71.27
S24_1046 - 1970 Chevy Chevelle SS 454 - $ 73.49
S24_1444 - 1970 Dodge Coronet - $ 57.80
S24_1578 - 1997 BMW R 1100 S - $112.70
S24_1628 - 1966 Shelby Cobra 427 S/C - $ 50.31
S24_1785 - 1928 British Royal Navy Airplane - $109.42
S24_1937 - 1939 Chevrolet Deluxe Coupe - $ 33.19
S24_2000 - 1960 BSA Gold Star DBD34 - $ 76.17
S24_2011 - 18th century schooner - $122.89
S24_2022 - 1938 Cadillac V-16 Presidential Limousine - $ 44.80
S24_2300 - 1962 Volkswagen Microbus - $127.79
S24_2360 - 1982 Ducati 900 Monster - $ 69.26
S24_2766 - 1949 Jaguar XK 120 - $ 90.87
S24_2840 - 1958 Chevy Corvette Limited Edition - $ 35.36
S24_2841 - 1900s Vintage Bi-Plane - $ 68.51
S24_2887 - 1952 Citroen-15CV - $117.44
S24_2972 - 1982 Lamborghini Diablo - $ 37.76
S24_3151 - 1912 Ford Model T Delivery Wagon - $ 88.51
S24_3191 - 1969 Chevrolet Camaro Z28 - $ 85.61
S24_3371 - 1971 Alpine Renault 1600s - $ 61.23
S24_3420 - 1937 Horch 930V Limousine - $ 65.75
S24_3432 - 2002 Chevy Corvette - $107.08
S24_3816 - 1940 Ford Delivery Sedan - $ 83.86
S24_3856 - 1956 Porsche 356A Coupe - $140.43
S24_3949 - Corsair F4U ( Bird Cage) - $ 68.24
S24_3969 - 1936 Mercedes Benz 500k Roadster - $ 41.03
S24_4048 - 1992 Porsche Cayenne Turbo Silver - $118.28
S24_4258 - 1936 Chrysler Airflow - $ 97.39
S24_4278 - 1900s Vintage Tri-Plane - $ 72.45
S24_4620 - 1961 Chevrolet Impala - $ 80.84
S32_1268 - 1980?s GM Manhattan Express - $ 96.31
S32_1374 - 1997 BMW F650 ST - $ 99.89
S32_2206 - 1982 Ducati 996 R - $ 40.23
S32_2509 - 1954 Greyhound Scenicruiser - $ 54.11
S32_3207 - 1950's Chicago Surface Lines Streetcar - $ 62.14
S32_3522 - 1996 Peterbilt 379 Stake Bed with Outrigger - $ 64.64
S32_4289 - 1928 Ford Phaeton Deluxe - $ 68.79
S32_4485 - 1974 Ducati 350 Mk3 Desmo - $102.05
S50_1341 - 1930 Buick Marquette Phaeton - $ 43.64
S50_1392 - Diamond T620 Semi-Skirted Tanker - $115.75
S50_1514 - 1962 City of Detroit Streetcar - $ 58.58
S50_4713 - 2002 Yamaha YZR M1 - $ 81.36
S700_1138 - The Schooner Bluenose - $ 66.67
S700_1691 - American Airlines: B767-300 - $ 91.34
S700_1938 - The Mayflower - $ 86.61
S700_2047 - HMS Bounty - $ 90.52
S700_2466 - America West Airlines B757-200 - $ 99.72
S700_2610 - The USS Constitution Ship - $ 72.28
S700_2824 - 1982 Camaro Z28 - $101.15
S700_2834 - ATA: B757-300 - $118.65
S700_3167 - F/A 18 Hornet 1/72 - $ 80.00
S700_3505 - The Titanic - $100.17
S700_3962 - The Queen Mary - $ 99.31
S700_4002 - American Airlines: MD-11S - $ 74.03
S72_1253 - Boeing X-32A JSF - $ 49.66
S72_3212 - Pont Yacht - $ 54.60
 
The database handle is: 1
Affected rows by SELECT: 110
Character set name is: utf8mb4
Last error is: 
Client info is: 8.0.36
Host info is: 127.0.0.1 via TCP/IP
Proto info is: 10
Server info is: 8.0.36-0ubuntu0.22.04.1
PING result: -1
Thread ID: 0
Status is: Uptime: 2530  Threads: 2  Questions: 4  Slow queries: 0  Opens: 140  Flush tables: 3  Open tables: 59  Queries per second avg: 0.001
jrs@linux-dev:~/sb/examples$ 
 
 
*** MXML ***
 
jrs@linux-dev:~/sb/examples$ scriba testmxml.sb
Test2: And this is another test!
 
Image: madonna.jpg
Alt Image: Foligno Madonna, by Raphael
 
ID = 1
Name = Hello, world!
ID = 2
Name = Hello, China!
jrs@linux-dev:~/sb/examples$ 
 
 
*** JSON ***
 
jrs@linux-dev:~/sb/examples$ scriba testjson.sb
{
    "Preferences": {
        "AccountingInfoPrefs": {
            "UseAccountNumbers": false,
            "TrackDepartments": false,
            "ClassTrackingPerTxn": false,
            "ClassTrackingPerTxnLine": false,
            "FirstMonthOfFiscalYear": "January",
            "TaxYearMonth": "January",
            "TaxForm": "1",
            "CustomerTerminology": "Customers"
        },
        "ProductAndServicesPrefs": {
            "ForSales": true,
            "ForPurchase": true,
            "QuantityWithPriceAndRate": true,
            "QuantityOnHand": true,
            "RevenueRecognition": false,
            "RevenueRecognitionFrequency": "MONTHLY"
        },
        "SalesFormsPrefs": {
            "UsingProgressInvoicing": false,
            "CustomField": [
                {
                    "CustomField": [
                        {
                            "Name": "SalesFormsPrefs.UseSalesCustom3",
                            "Type": "BooleanType",
                            "BooleanValue": false
                        },
                        {
                            "Name": "SalesFormsPrefs.UseSalesCustom1",
                            "Type": "BooleanType",
                            "BooleanValue": true
                        },
                        {
                            "Name": "SalesFormsPrefs.UseSalesCustom2",
                            "Type": "BooleanType",
                            "BooleanValue": false
                        }
                    ]
                },
                {
                    "CustomField": [
                        {
                            "Name": "SalesFormsPrefs.SalesCustomName1",
                            "Type": "StringType",
                            "StringValue": "Crew #"
                        }
                    ]
                },
                {
                    "CustomField": [
                        {
                            "Module": "Json",
                            "Author": {
                                "FirstName": "Armando",
                                "LastName": "Rivera",
                                "Alias": "AIR"
                            }
                        }
                    ]
                }
            ],
            "CustomTxnNumbers": false,
            "EmailCopyToCompany": false,
            "AllowDeposit": false,
            "AllowDiscount": true,
            "DefaultDiscountAccount": "86",
            "AllowEstimates": true,
            "ETransactionEnabledStatus": "NotApplicable",
            "ETransactionAttachPDF": false,
            "ETransactionPaymentEnabled": false,
            "IPNSupportEnabled": false,
            "AllowServiceDate": false,
            "AllowShipping": false,
            "DefaultTerms": {
                "value": "3"
            },
            "AutoApplyCredit": true,
            "AutoApplyPayments": true,
            "UsingPriceLevels": false,
            "DefaultCustomerMessage": "Thank you for your business and have a great day!"
        },
        "EmailMessagesPrefs": {
            "InvoiceMessage": {
                "Subject": "Invoice from Craig's Design and Landscaping Services",
                "Message": "Your invoice is attached.  Please remit payment at your earliest convenience.\nThank you for your business - we appreciate it very much.\n\nSincerely,\nCraig's Design and Landscaping Services"
            },
            "EstimateMessage": {
                "Subject": "Estimate from Craig's Design and Landscaping Services",
                "Message": "Please review the estimate below.  Feel free to contact us if you have any questions.\nWe look forward to working with you.\n\nSincerely,\nCraig's Design and Landscaping Services"
            },
            "SalesReceiptMessage": {
                "Subject": "Sales Receipt from Craig's Design and Landscaping Services",
                "Message": "Your sales receipt is attached.\nThank you for your business - we appreciate it very much.\n\nSincerely,\nCraig's Design and Landscaping Services"
            },
            "StatementMessage": {
                "Subject": "Statement from Craig's Design and Landscaping Services",
                "Message": "Your statement is attached.  Please remit payment at your earliest convenience.\nThank you for your business - we appreciate it very much.\n\nSincerely,\nCraig's Design and Landscaping Services"
            }
        },
        "VendorAndPurchasesPrefs": {
            "TrackingByCustomer": true,
            "BillableExpenseTracking": true,
            "POCustomField": [
                {
                    "CustomField": [
                        {
                            "Name": "PurchasePrefs.UsePurchaseCustom1",
                            "Type": "BooleanType",
                            "BooleanValue": true
                        },
                        {
                            "Name": "PurchasePrefs.UsePurchaseCustom2",
                            "Type": "BooleanType",
                            "BooleanValue": true
                        },
                        {
                            "Name": "PurchasePrefs.UsePurchaseCustom3",
                            "Type": "BooleanType",
                            "BooleanValue": false
                        }
                    ]
                },
                {
                    "CustomField": [
                        {
                            "Name": "PurchasePrefs.PurchaseCustomName1",
                            "Type": "StringType",
                            "StringValue": "Crew #"
                        },
                        {
                            "Name": "PurchasePrefs.PurchaseCustomName2",
                            "Type": "StringType",
                            "StringValue": "Sales Rep"
                        }
                    ]
                }
            ]
        },
        "TimeTrackingPrefs": {
            "UseServices": true,
            "BillCustomers": true,
            "ShowBillRateToAll": false,
            "WorkWeekStartDate": "Monday",
            "MarkTimeEntriesBillable": true
        },
        "TaxPrefs": {
            "UsingSalesTax": true,
            "TaxGroupCodeRef": {
                "value": "2"
            }
        },
        "CurrencyPrefs": {
            "MultiCurrencyEnabled": false,
            "HomeCurrency": {
                "value": "USD"
            }
        },
        "ReportPrefs": {
            "ReportBasis": "Accrual",
            "CalcAgingReportFromTxnDate": false
        },
        "OtherPrefs": {
            "NameValue": [
                {
                    "Name": "SalesFormsPrefs.DefaultCustomerMessage",
                    "Value": "Thank you for your business and have a great day!"
                },
                {
                    "Name": "SalesFormsPrefs.DefaultItem",
                    "Value": "1"
                },
                {
                    "Name": "DTXCopyMemo",
                    "Value": "false"
                },
                {
                    "Name": "UncategorizedAssetAccountId",
                    "Value": "32"
                },
                {
                    "Name": "UncategorizedIncomeAccountId",
                    "Value": "30"
                },
                {
                    "Name": "UncategorizedExpenseAccountId",
                    "Value": "31"
                },
                {
                    "Name": "SFCEnabled",
                    "Value": "true"
                },
                {
                    "Name": "DataPartner",
                    "Value": "false"
                },
                {
                    "Name": "Vendor1099Enabled",
                    "Value": "true"
                },
                {
                    "Name": "TimeTrackingFeatureEnabled",
                    "Value": "true"
                },
                {
                    "Name": "FDPEnabled",
                    "Value": "true"
                },
                {
                    "Name": "isDTXOnStage",
                    "Value": "false"
                },
                {
                    "Name": "ProjectsEnabled",
                    "Value": "true"
                },
                {
                    "Name": "VendorAndPurchasesPrefs.UseCustomTxnNumbers",
                    "Value": "false"
                },
                {
                    "Name": "DateFormat",
                    "Value": "Month Date Year separated by a slash"
                },
                {
                    "Name": "DateFormatMnemonic",
                    "Value": "MMDDYYYY_SEP_SLASH"
                },
                {
                    "Name": "NumberFormat",
                    "Value": "US Number Format"
                },
                {
                    "Name": "NumberFormatMnemonic",
                    "Value": "US_NB"
                },
                {
                    "Name": "WarnDuplicateCheckNumber",
                    "Value": "true"
                },
                {
                    "Name": "WarnDuplicateBillNumber",
                    "Value": "false"
                },
                {
                    "Name": "WarnDuplicateJournalNumber",
                    "Value": "false"
                },
                {
                    "Name": "SignoutInactiveMinutes",
                    "Value": "60"
                },
                {
                    "Name": "AccountingInfoPrefs.ShowAccountNumbers",
                    "Value": "false"
                },
                {
                    "Name": "VendorAndPurchasesPrefs.PurchaseOrderEnabled",
                    "Value": "true"
                },
                {
                    "Name": "VendorAndPurchasesPrefs.MarkupOnBillableExpenseEnabled",
                    "Value": "false"
                },
                {
                    "Name": "SalesFormsPrefs.AllowGratuity",
                    "Value": "false"
                }
            ]
        },
        "domain": "QBO",
        "sparse": false,
        "Id": "1",
        "SyncToken": "3",
        "MetaData": {
            "CreateTime": "2022-07-09T01:51:08-07:00",
            "LastUpdatedTime": "2022-07-11T23:12:35-07:00"
        }
    },
    "time": "2022-08-23T17:12:54.842-07:00"
}
jrs@linux-dev:~/sb/examples$ 
 
 
*** SQLITE ***
 
jrs@linux-dev:~/sb/examples$ scriba sqlite_demo.sb
123     -       hello
234     -       cruel
345     -       world
jrs@linux-dev:~/sb/examples$ 
 
 
*** SLRE ***
 
jrs@linux-dev:~/sb/examples$ scriba testslre.sb
1. Samsung
2. unveiled
3. flexible
4. prototype
5. developers
6. apps
jrs@linux-dev:~/sb/examples$ 
 

John · « **Reply #24 on:** March 29, 2024, 10:36:31 AM »

I was trying to get ODBC to work on Ubuntu yesterday and what a mess. I first tried using the iODBC library but the extension module compile said it was missing sql.h. I then inststalled the unixodbc library which allowed the module compile. I then tried to install the MySQL ODBC Connector. Oracle only offered them as .deb files. When I tried to install the library from the .deb it said said it had ument conflicts. I tried to install it from a .tarz (other Linux) and manually install the files. When I ran my testodbc.sb program I was getting query errors from the module.

I then tried to install the iODBC library again. It seems they put their .h files in a sub-directory of include. I ended having to copy all the .h files to the include directory. Even secondary .h files didn't have the <iodbc/XXXX.h> prefix. I then installed the SQLite ODBC driver. It failed fetching the data.

ODBC on Linux is a joke! My impression is ODBC is being slowly deprecated on Linux.

Luckily ScriptBasic has a lightening fast C interface to MySQL I rarely use ODBC on Linux.

John · « **Reply #25 on:** March 29, 2024, 12:11:14 PM »

Using libcriba from ScriptBasic or other languages works a little differently than scriba from the console. When you run a script with libscriba, it doesn't destroy the variables created and you can call functions externally using variables defined in the run. You can reset the variables and rerun the script.

I use this feature like an eval function on steroids.

John · « **Reply #26 on:** March 29, 2024, 03:11:02 PM »

This is an example of using the webext extension module to convert a compacted JSON statement to a ScriptBasic associative array. The sbadump() function iis used for debugging to display the the array.

Code: ScriptBasic

IMPORT webext.bas
 
json = """{"id":"0001","type":"donut","name":"Cake","ppu":0.55,"batters":{"batter":[{"id":"1001","type":"Regular"},{"id":"1002","type":"Chocolate"},{"id":"1003","type":"Blueberry"},{"id":"1004","type":"Devil's Food"}]},"topping":[{"id":"5001","type":"None"},{"id":"5002","type":"Glazed"},{"id":"5005","type":"Sugar"},{"id":"5007","type":"Powdered Sugar"},{"id":"5006","type":"Chocolate with Sprinkles"},{"id":"5003","type":"Chocolate"},{"id":"5004","type":"Maple"}]}"""
 
web::json2sba(json)
 
web::sbadump(json)
PRINT "\n\n"
PRINT "Number of batter items:  ", (UBOUND(json{"batters"}{"batter"}) + 1) / 2, "\n"
PRINT "Number of topping items: ", (UBOUND(json{"topping"}) + 1) / 2, "\n\n"

Formatted JSON

Code: Javascript

{
        "id": "0001",
        "type": "donut",
        "name": "Cake",
        "ppu": 0.55,
        "batters":
                {
                        "batter":
                                [
                                        { "id": "1001", "type": "Regular" },
                                        { "id": "1002", "type": "Chocolate" },
                                        { "id": "1003", "type": "Blueberry" },
                                        { "id": "1004", "type": "Devil's Food" }
                                ]
                },
        "topping":
                [
                        { "id": "5001", "type": "None" },
                        { "id": "5002", "type": "Glazed" },
                        { "id": "5005", "type": "Sugar" },
                        { "id": "5007", "type": "Powdered Sugar" },
                        { "id": "5006", "type": "Chocolate with Sprinkles" },
                        { "id": "5003", "type": "Chocolate" },
                        { "id": "5004", "type": "Maple" }
                ]
}
 

sbadump()

Code: Text

id = 0001
type = donut
name = Cake
ppu = 0.55
batters
   batter
      [1]
         id = 1001
         type = Regular
      [2]
         id = 1002
         type = Chocolate
      [3]
         id = 1003
         type = Blueberry
      [4]
         id = 1004
         type = Devil's Food
topping
   [1]
      id = 5001
      type = None
   [2]
      id = 5002
      type = Glazed
   [3]
      id = 5005
      type = Sugar
   [4]
      id = 5007
      type = Powdered Sugar
   [5]
      id = 5006
      type = Chocolate with Sprinkles
   [6]
      id = 5003
      type = Chocolate
   [7]
      id = 5004
      type = Maple
 
 
Number of batter items:  4
Number of topping items: 7
 

John · « **Reply #27 on:** March 29, 2024, 07:14:19 PM »

It would be great if Charles Pegg would lend a hand and get a 64 bit version of DLLC working. Here is a 32 bit example of DLLC creating an virtual DLL with an ASM function using FII scripting for the call definition.

Code: ScriptBasic

 
include dllc.sbi
 
  oxy=dllfile("oxygen.dll")
 
  o2_basic = dllproc( oxy, "o2_basic i =(c*source) " )
  o2_exec  = dllproc( oxy, "o2_exec  i =(i call)   " )
  o2_error = dllproc( oxy, "o2_error c*=()         " )
  o2_errno = dllproc( oxy, "o2_errno i =()         " )
  o2_len   = dllproc( oxy, "o2_len   i =()         " )
  o2_mode  = dllproc( oxy, "o2_mode     (i mode)   " )
 
  dllcall o2_mode,1
 
  function oxygen(src)
  dllcall o2_basic,src
  if (dllcall(o2_errno)<>0) then
    dllprnt dllcall(o2_error)
    a=0
    line input q
  else
    a=dllcall(o2_exec,0)
  end if
  oxygen=a
  end function
 
 
' ==============================
  src="""
  extern
 
  function reverse(char*s)
  ========================
  addr ecx,s
  mov edx,0
 .rlen
  mov al,[ecx]
  cmp al,0
  jz xlen
  inc edx
  inc ecx
  jmp rlen
 .xlen
  ;
  addr ecx,s
  add  edx,ecx
  dec ecx
  ;
 .rswap
  inc ecx
  dec edx
  cmp edx,ecx
  jle xswap
  mov al,[ecx]
  mov ah,[edx]
  mov [ecx],ah
  mov [edx],al
  jmp rswap
 .xswap
  end function
 
  function getword(char*ss,sys*b) as char*
  '=======================================
  sys a
  if not @ss then return ""
  if b=0 then b=1
  byte s at @ss
  byte c,d
  sys bb,bc
  static char z[128]
  a=0
  bb=b
  '
  'SKIP LEADING SPACES
  do
    c=s[b]
    select c
    case 33 to 255,0 : exit do 'SKIP SPACE
    end select
    b++
  end do
  bc=b
  '
  'QUOTES
  select c
  case 34,39
   do
      b+=1
      d=s[b]
      if d=0 or d=c then b+=1 : jmp fwd done
   end do
  end select
  'WORDS AND SYMBOLS
  do
    c=s[b]
    select c
    case 0 to 32     : exit do
    case 35          : jmp fwd more
    case 33  to 47   : 'symbols
    case 48  to 57   : jmp fwd more 'numbers
    case 58  to 64   : 'symbols
    case 65  to 90   : jmp fwd more 'capitals
    case 95          : jmp fwd more 'underscore
    case 91  to 96   : 'symbols
    case 97  to 122  : jmp fwd more 'lower case
    case 123 to 127  : 'symbols
    case 128 to 255  : jmp fwd more 'higher ascii
    end select
    '
    if b=bc then b++
    exit do
    '
    more:
    b++
  end do
  '
  done:
  '
  if b>bb then
    z=mid ss,bc,b-bc
  else
    z=""
  end if
  return z
 
  end function
 
 
=================
Class AlignedText
=================
 
indexbase 1
 
string  buf, bufo, pr, cr, tab, jus, dlm
sys     Cols, Rows, ColWidth[0x100], TotWidth, ColPad, ld
 
method SetText(char*s)
======================
if not len cr then cr=chr(13,10)
tab=chr(9)
if not len jus then jus=string 200,"L"
buf=s
measure
end method
 
 
method measure()
================
sys a, b, wa, wb, cm, c, cw, i
a=1 : b=1
Cols=0 : Rows=0 : ColPad=3
ld=len dlm
if not ld then dlm="," : ld=1 'default to comma
do
  wb=b
  a=instr b,buf,cr
  if a=0 then exit do
  cm=0
  c++
  do
    wa=instr wb,buf,dlm
    if wa=0 or wa>a then exit do
    cm++
    if cm>cols then cols=cm
    cw=wa-wb
    if cw > ColWidth[cm] then ColWidth[cm]=cw
    wb=wa+ld
  end do
  b=a+len cr
end do
rows=c
'
c=0
for i=1 to cols
  ColWidth[ i ]+=ColPad
  c+=ColWidth[ i ]
next
TotWidth=c+len cr
'print ShowMetrics
end method
 
 
method ShowMetrics() as char*
=============================
sys i
pr="METRICS:" cr cr
pr+=rows tab cols tab totwidth cr cr
pr+="column" tab "spacing" cr
for i=1 to cols
  pr+=i tab ColWidth[ i ] cr
next
return pr
end method
 
 
method justify(char*j)
======================
jus=j
end method
 
method delimiter(char*j)
========================
dlm=j
end method
 
method endofline(char*j)
========================
cr=j
end method
 
 
method layout() as char*
========================
sys a, b, wa, wb, wl, cm, lpos, cpos, p
bufo=space Rows*TotWidth
a=1 : b=1
do
  wb=b
  a=instr(b,buf,cr)
  if a=0 then exit do
  cm=0
  cpos=1
  do
    wa=instr(wb,buf,dlm)
    if wa=0 or wa>a then exit do
    '
    cm++
    '
    'JUSTIFICATION
    '
    wl=wa-wb
    p=lpos+cpos 'default "L" LEFT ALIGN
    '
    select case asc(jus,cm)
      case "R" : p=lpos+cpos+ColWidth[cm]-wl-Colpad
      case "C" : p=lpos+cpos+( ColWidth[cm]-wl-Colpad )*.5
    end select
    '
    mid bufo,p, mid buf,wb,wl
    cpos+=colwidth[cm]
    wb=wa+ld
  end do
  b=a+len cr
  lpos+=TotWidth
  if lpos<len(bufo) then mid bufo,lpos-1,cr
end do
return bufo
end method
'
end class
 
'#recordof AlignedText
 
  AlignedText atxt
 
  function AlignText(char *in,*ju,*dl,*cr) as char*
  =================================================
  atxt.justify         ju
  atxt.delimiter       dl
  atxt.endofline       cr
  atxt.SetText         in
  return               atxt.layout
  end function
 
 
  sub finish()
  ============
  terminate
  end sub
 
 
 
  function link(sys n) as sys
  ===========================
  select n
  case 0 : return @finish
  case 1 : return @reverse
  case 2 : return @getword
  case 3 : return @aligntext
  end select
  end function
 
  end extern
  
 
  addr link
  """
' ==============================
 
  '
  a=oxygen(src)
  '
  if (a<>0) then
  '
' ==============================
  '
  Finish    = dllproc(a,"Finish     ()        ", dllcald(a,0) )
  Reverse   = dllproc(a,"Reverse    (c*value) ", dllcald(a,1) )
  GetWord   = dllproc(a,"GetWord c*=(c*value,i*index) ", dllcald(a,2) )
  AlignText = dllproc(a,"AlignText c*=(c*in,c*jus,c*dlm,c*cr) ", dllcald(a,3) )
  '
' ==============================
  '
  s="abcdef1234567"
  print "Reversed " & s & " = "
  dllcall(Reverse,s)
  print s & "\n"
  '
  '
  s="one two three"
  i=1
  dllcall(GetWord,s,i)
  print dllcall(GetWord,s,i) & "\n"
  dllcall(GetWord,s,i)
  
 
s="""
Given;;a;;text;;file;;of;;many;;lines,;;where;;fields;;within;;a;;line;;
are;;delineated;;by;;a;;single;;'dollar';;character,;;write;;a;;program
that;;aligns;;each;;column;;of;;fields;;by;;ensuring;;that;;words;;in;;each;;
column;;are;;separated;;by;;at;;least;;one;;space.
Further,;;allow;;for;;each;;word;;in;;a;;column;;to;;be;;either;;left;;
justified,;;right;;justified,;;or;;center;;justified;;within;;its;;column.
"""
 
  lf="\n" & chr(0)
  dl=";;"
  fm="LLLLCCCRRRRR" 
  ' t=dllcall(AlignText,s,fm,dl,lf )
  t=dllcall(AlignText,s,"LLLLCCCRRRRR",";;","\n" & chr(0) )
  print t & "\n"
 
  dllcall(Finish)
  '
  end if
  dllfile
 

Output

C:\ScriptBasic\examples>sbc dllco2asm.sb
Reversed abcdef1234567 = 7654321fedcba
two

Given a text file of many lines, where fields within a line
are delineated by a single 'dollar' character, write a
that aligns each column of fields by ensuring that words in each
column are separated by at least one
Further, allow for each word in a column to be either left
justified, right justified, or center justified within its

C:\ScriptBasic\examples>

John · « **Reply #28 on:** March 29, 2024, 07:47:09 PM »

I'm working on building a ScriptBasic 3.0 32 bit version which will include the following features. I have used non-UI based COM objects with the ScriptBasic web server.

This will be offered in executable form only as a Windows installer. The code is frozen and I have no plans on enhancing the 32 bit version further.

COM / OLE / VB6 support
VB6 UI based IDE/Debugger
DLLC for FFI scripting and O2 virtual DLLs
libscriba that works
Both console (sbc) and Windows (sbw) interpreters

John · « **Reply #29 on:** March 29, 2024, 08:34:21 PM »

This is an example of using DLLC with the FreeImage library with the functions interface definitions scripted.

Code: ScriptBasic

' FreeImage Example  
  
DECLARE SUB DLLC_File ALIAS "dllfile" LIB "DLLC"  
DECLARE SUB DLLC_Proc ALIAS "dllproc" LIB "DLLC"  
DECLARE SUB DLLC_Call ALIAS "dllcall" LIB "DLLC"  
  
fih=dllc_file("/scriptbasic/bin/Freeimage.dll")
  
Version = DLLC_Proc(fih,"_FreeImage_GetVersion@0 z = ( )")  
Copyright = DLLC_Proc(fih,"_FreeImage_GetCopyrightMessage@0 z = ( )")  
LoadImage  = DLLC_Proc(fih,"_FreeImage_Load@12 i = (i fif, z filename, i flag)")  
Width = DLLC_Proc(fih,"_FreeImage_GetWidth@4 i = (i dib)")  
Height = DLLC_Proc(fih,"_FreeImage_GetHeight@4 i = (i dib)")  
Rescale = DLLC_Proc(fih,"_FreeImage_Rescale@16 i = (i dib, i dst_width, i dst_height, i filter)")  
Rotate = DLLC_Proc(fih,"_FreeImage_Rotate@16 i = (i dib, d angle, p bkcolor)")  
Save = DLLC_Proc(fih,"_FreeImage_Save@16 b = (i fif, i dib, z fname, i flage)")  
  
CONST FIF_BMP  =  0  
CONST FIF_JPEG =  2  
CONST FIF_PNG  = 13  
CONST FIF_GIF  = 25  
CONST FILTER_BICUBIC = 1  
 
fimg_in    = "world.jpg\0"
fimg_small = "world_small.png\0"
fimg_flip  = "world_flip.png\0"
  
PRINT DLLC_Call(Version),"\n"  
PRINT DLLC_Call(Copyright),"\n"  
fbmp = DLLC_Call(LoadImage, FIF_JPEG, fimg_in, 0)  
PRINT "Width: ",DLLC_Call(Width, fbmp),"\n"  
PRINT "Height: ",DLLC_Call(Height, fbmp),"\n"  
fbmps = DLLC_Call(Rescale, fbmp, 100, 100, FILTER_BICUBIC)  
DLLC_Call(Save, FIF_PNG, fbmps, fimg_small, 0)  
fbmpr = DLLC_Call(Rotate, fbmp, 180, 0)  
DLLC_Call(Save, FIF_PNG, fbmpr, fimg_flip, 0)
 
line input u  
 

Output

C:\ScriptBasic\examples>sbc DllcFreeImage2.sb
3.18.0
This program uses FreeImage, a free, open source image library supporting all common bitmap formats. See http://freeimage.sourceforge.net for details
Width: 225
Height: 225

C:\ScriptBasic\examples>

The world.jpg was the original image. The other two were created with this example.

AllBASIC

News:

Author Topic: ScriptBasic 3.0 (Read 3078 times)

John

Re: ScriptBasic 3.0 - Runtime Download

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0

John

Re: ScriptBasic 3.0