Recent Posts

Pages: 1 ... 5 6 [7] 8 9 10

ScriptBasic Blog / Re: ScriptBasic 3.0

« Last post by John on April 14, 2024, 06:21:32 PM »

I figured out what the issue was with OxygenBasic calling functions with a 64 bit pointer. I replaced cdecl with ms64 and the program compiled and ran. There still is an issue passing a double (real) to O2.

Code: Text

' O2 SB Embed
 
% filename "o2sb64.exe"
includepath "$/inc/"
uses rtl64
 
% 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 ms64
  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 ms64 (sys le) as sys, export
  return getmemory le
end function
 
function freemem ms64 (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_DestroySbArgs(pProgram, arg, 3)
scriba_DestroySbData(pProgram, arg)  
scriba_destroy(pProgram)
 

test.sb

Code: ScriptBasic

a = 99

Code: Text

type SbData
  typ as dword
  siz as dword
  union {
    dbl as double
    lng as sys
    str as char*
    gen as sys
  }
end type
 

I tried all the other O2 floating point types besides double and nothing works.

ScriptBasic Blog / Re: ScriptBasic 3.0

« Last post by John on April 14, 2024, 02:29:48 PM »

I've added the ODBC FetchSchema() function to the sb-dev-msvc repository branch. I've pushed the code to the repo.

Linux

Code: ScriptBasic

IMPORT odbc.bas
 
dbh = odbc::RealConnect("PSQL","postgres","<Password>")
SQL = "SELECT * FROM film LIMIT 1"
odbc::Query(dbh, SQL)     
odbc::FetchSchema(dbh, col) 
odbc::Close(dbh)
 
FOR x = 0 TO UBOUND(col) STEP 5
  PRINT FORMAT("Column Name: %s, Type: %i, Size: %i, Digits: %i, Nullable: %i\n", col[x], col[x + 1], col[x + 2], col[x + 3], col[x + 4])
NEXT
 

jrs@linux-dev:~/sb/examples$ scriba getschema.sb Column Name: film_id, Type: 4, Size: 10, Digits: 0, Nullable: 0 Column Name: title, Type: 12, Size: 255, Digits: 0, Nullable: 0 Column Name: description, Type: -1, Size: 8190, Digits: 0, Nullable: 1 Column Name: release_year, Type: 4, Size: 10, Digits: 0, Nullable: 1 Column Name: language_id, Type: 5, Size: 5, Digits: 0, Nullable: 0 Column Name: rental_duration, Type: 5, Size: 5, Digits: 0, Nullable: 0 Column Name: rental_rate, Type: 2, Size: 4, Digits: 2, Nullable: 0 Column Name: length, Type: 5, Size: 5, Digits: 0, Nullable: 1 Column Name: replacement_cost, Type: 2, Size: 5, Digits: 2, Nullable: 0 Column Name: rating, Type: 12, Size: 255, Digits: 0, Nullable: 1 Column Name: last_update, Type: 93, Size: 26, Digits: 6, Nullable: 0 Column Name: special_features, Type: 12, Size: 255, Digits: 0, Nullable: 1 Column Name: fulltext, Type: 12, Size: 255, Digits: 0, Nullable: 0 jrs@linux-dev:~/sb/examples$

Windows 64 Bit

Code: ScriptBasic

IMPORT odbc.bas
 
dbh = ODBC::RealConnect("SB64","","")
 
ODBC::query(dbh, "SELECT TOP 1 * FROM TaskEntry")
 
odbc::FetchSchema(dbh, col) 
odbc::Close(dbh)
 
FOR x = 0 TO UBOUND(col) STEP 5
  PRINT FORMAT("Column Name: %s, Type: %i, Size: %i, Digits: %i, Nullable: %i\n", col[x], col[x + 1], col[x + 2], col[x + 3], col[x + 4])
NEXT
 

C:\ScriptBasic64\examples>scriba fetchschema.sb Column Name: GridSort, Type: -9, Size: 40, Digits: 0, Nullable: 0 Column Name: ClientCode, Type: -9, Size: 25, Digits: 0, Nullable: 0 Column Name: TaskCode, Type: -9, Size: 30, Digits: 0, Nullable: 0 Column Name: TaskDate, Type: -9, Size: 15, Digits: 0, Nullable: 0 Column Name: Billable, Type: 2, Size: 4, Digits: 2, Nullable: 1 Column Name: NonBillable, Type: 2, Size: 4, Digits: 2, Nullable: 1 Column Name: DiscoveryDemo, Type: 2, Size: 4, Digits: 2, Nullable: 1 Column Name: Bill, Type: -8, Size: 1, Digits: 0, Nullable: 0 Column Name: TaskNotes, Type: -10, Size: 1073741823, Digits: 0, Nullable: 0 Column Name: BillingComplete, Type: -8, Size: 1, Digits: 0, Nullable: 0 C:\ScriptBasic64\examples>

ODBC SQL Column Type Values
ODBC JDBC Data Type -11 -11 GUID -7 -7 BIT -6 -6 TINYINT -5 -5 BIGINT -4 -4 LONGVARBINARY -3 -3 VARBINARY -2 -2 BINARY -1 -1 LONGVARCHAR 0 0 Unknown type 1 1 CHAR 2 2 NUMERIC 3 3 DECIMAL 4 4 INTEGER 5 5 SMALLINT 6 6 FLOAT 7 7 REAL 8 8 DOUBLE 9 91 DATE 10 92 TIME 11 93 TIMESTAMP 12 12 VARCHAR Unicode SQL types for ODBC applications working with multibyte character sets, such as in Chinese, Hebrew, Japanese, or Korean locales. ODBC Data Type -10 WLONGVARCHAR -9 WVARCHAR

Remember to add the FetchSchema DECLARE to your odbc.bas include file. It's added if you build from source.

ScriptBasic Blog / Re: ScriptBasic 3.0

« Last post by John on April 13, 2024, 09:44:10 PM »

All the modules released on all platforms are now working. If you have time to give ScriptBasic a try and let me know if you find any issue that would be great. I need to get back to a project I'm working on so that's it from me for a while.

ScriptBasic Blog / Re: ScriptBasic 3.0

« Last post by John on April 13, 2024, 08:40:34 PM »

Everything works fine with the changes I made on the Linux side on Windows 64 bit MSVC. I pushed the change to the ScriptBasic repository.

Code: ScriptBasic

IMPORT odbc.bas
 
dbh = ODBC::RealConnect("SB64","","")
 
ODBC::query(dbh, "SELECT * FROM TaskEntry")
 
WHILE ODBC::FetchHash(dbh,column)
  PRINT column{"ClientCode"}," - ",column{"TaskCode"},"\n"
WEND
 
ODBC::Close(dbh)

C:\ScriptBasic64\examples>scriba sql_odbc.sb 3FCONST - SPI-100-SERVICE AC PRO - SPI-100-SERVICE AC PRO - SPI-100-NC AC PRO - SPI-100-DIS/DEM AC PRO - SPI-100-SERVICE AC PRO - SPI-100-DIS/DEM AC PRO - SPI-100-DIS/DEM AC PRO - SPI-100-SERVICE AC PRO - SPI-100-SERVICE AC PRO - SPI-100-NC BACKLAN - SPI-100-SERVICE BACKLAN - SPI-100-DIS/DEM BACKLAN - SPI-100-NC C:\ScriptBasic64\examples>

ScriptBasic Blog / Re: ScriptBasic 3.0

« Last post by John on April 13, 2024, 07:53:43 PM »

I found the the issue with FetchHash(). I'm going to try these changes on the Windows 64 MSVC version to make sure it works there as well. If all is good, I'll push the changes to the repo.

Code: C

  SQLULEN ColSize; // JRS
// SQLUINTEGER ColSize;
 

Code: ScriptBasic

IMPORT odbc.bas
 
ON ERROR GOTO Ouch
dbh = ODBC::RealConnect("PSQL","postgres","<Password>")
 
ODBC::Query(dbh, "SELECT * FROM film LIMIT 10")
 
WHILE ODBC::FetchHash(dbh,column)
  PRINT column{"title"}," - ",column{"description"}, "\n"
WEND
 
Done:
ODBC::Close(dbh)
END
 
Ouch:
PRINT "DEBUG: ", ODBC::Error(dbh), "\n"
GOTO Done
 

Code: Text

jrs@linux-dev:~/sb/examples$ scriba sql_odbc.sb
Chamber Italian - A Fateful Reflection of a Moose And a Husband who must Overcome a Monkey in Nigeria
Grosse Wonderful - A Epic Drama of a Cat And a Explorer who must Redeem a Moose in Australia
Airport Pollock - A Epic Tale of a Moose And a Girl who must Confront a Monkey in Ancient India
Bright Encounters - A Fateful Yarn of a Lumberjack And a Feminist who must Conquer a Student in A Jet Boat
Academy Dinosaur - A Epic Drama of a Feminist And a Mad Scientist who must Battle a Teacher in The Canadian Rockies
Ace Goldfinger - A Astounding Epistle of a Database Administrator And a Explorer who must Find a Car in Ancient China
Adaptation Holes - A Astounding Reflection of a Lumberjack And a Car who must Sink a Lumberjack in A Baloon Factory
Affair Prejudice - A Fanciful Documentary of a Frisbee And a Lumberjack who must Chase a Monkey in A Shark Tank
African Egg - A Fast-Paced Documentary of a Pastry Chef And a Dentist who must Pursue a Forensic Psychologist in The Gulf of Mexico
Agent Truman - A Intrepid Panorama of a Robot And a Boy who must Escape a Sumo Wrestler in Ancient China
jrs@linux-dev:~/sb/examples$ 
 

ScriptBasic Blog / Re: ScriptBasic 3.0

« Last post by John on April 13, 2024, 06:41:15 PM »

I have made some progress with the ODBC extension module on Linux. This 64-bit ODBC driver support guide was helpful to find the issue.

Code: C

  SQLLEN cbCol,cbrCol; //JRS
  // SQLINTEGER cbCol,cbrCol;
 

This allowed me to get FetchArray to work. FethchHash still isn't working and I believe it might be a type issue as well.

Code: ScriptBasic

IMPORT odbc.bas
 
ON ERROR GOTO Ouch
dbh = ODBC::RealConnect("PSQL","postgres","<Password>")
 
ODBC::Query(dbh, "SELECT * FROM film LIMIT 25")
 
WHILE ODBC::FetchArray(dbh,column)
  ' PRINT column{"title"}," - ",column{"description"}, "\n"
  PRINT column[0],"\t",column[1],"\t",column[2],"\n"
WEND
 
Done:
ODBC::Close(dbh)
END
 
Ouch:
PRINT "DEBUG: ", ODBC::Error(dbh), "\n"
GOTO Done
 

Code: Text

jrs@linux-dev:~/sb/examples$ scriba sql_odbc.sb
133     Chamber Italian A Fateful Reflection of a Moose And a Husband who must Overcome a Monkey in Nigeria
384     Grosse Wonderful        A Epic Drama of a Cat And a Explorer who must Redeem a Moose in Australia
8       Airport Pollock A Epic Tale of a Moose And a Girl who must Confront a Monkey in Ancient India
98      Bright Encounters       A Fateful Yarn of a Lumberjack And a Feminist who must Conquer a Student in A Jet Boat
1       Academy Dinosaur        A Epic Drama of a Feminist And a Mad Scientist who must Battle a Teacher in The Canadian Rockies
2       Ace Goldfinger  A Astounding Epistle of a Database Administrator And a Explorer who must Find a Car in Ancient China
3       Adaptation Holes        A Astounding Reflection of a Lumberjack And a Car who must Sink a Lumberjack in A Baloon Factory
4       Affair Prejudice        A Fanciful Documentary of a Frisbee And a Lumberjack who must Chase a Monkey in A Shark Tank
5       African Egg     A Fast-Paced Documentary of a Pastry Chef And a Dentist who must Pursue a Forensic Psychologist in The Gulf of Mexico
6       Agent Truman    A Intrepid Panorama of a Robot And a Boy who must Escape a Sumo Wrestler in Ancient China
7       Airplane Sierra A Touching Saga of a Hunter And a Butler who must Discover a Butler in A Jet Boat
9       Alabama Devil   A Thoughtful Panorama of a Database Administrator And a Mad Scientist who must Outgun a Mad Scientist in A Jet Boat
10      Aladdin Calendar        A Action-Packed Tale of a Man And a Lumberjack who must Reach a Feminist in Ancient China
11      Alamo Videotape A Boring Epistle of a Butler And a Cat who must Fight a Pastry Chef in A MySQL Convention
12      Alaska Phantom  A Fanciful Saga of a Hunter And a Pastry Chef who must Vanquish a Boy in Australia
213     Date Speed      A Touching Saga of a Composer And a Moose who must Discover a Dentist in A MySQL Convention
13      Ali Forever     A Action-Packed Drama of a Dentist And a Crocodile who must Battle a Feminist in The Canadian Rockies
14      Alice Fantasia  A Emotional Drama of a A Shark And a Database Administrator who must Vanquish a Pioneer in Soviet Georgia
15      Alien Center    A Brilliant Drama of a Cat And a Mad Scientist who must Battle a Feminist in A MySQL Convention
16      Alley Evolution A Fast-Paced Drama of a Robot And a Composer who must Battle a Astronaut in New Orleans
17      Alone Trip      A Fast-Paced Character Study of a Composer And a Dog who must Outgun a Boat in An Abandoned Fun House
18      Alter Victory   A Thoughtful Drama of a Composer And a Feminist who must Meet a Secret Agent in The Canadian Rockies
19      Amadeus Holy    A Emotional Display of a Pioneer And a Technical Writer who must Battle a Man in A Baloon
20      Amelie Hellfighters     A Boring Drama of a Woman And a Squirrel who must Conquer a Student in A Baloon
21      American Circus A Insightful Drama of a Girl And a Astronaut who must Face a Database Administrator in A Shark Tank
jrs@linux-dev:~/sb/examples$ 
 

ScriptBasic Blog / Re: ScriptBasic 3.0

« Last post by John on April 12, 2024, 05:48:47 PM »

The new version of MSVC SBT works on Linux as well.

You may have noticed the main::<function / var name> reference. If you were using modules (name spaces) then you can use the name of your module instead of main (default name space) All names must be in lower case.

sbt_demo.sb

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
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$

ScriptBasic Blog / Re: ScriptBasic 3.0

« Last post by John on April 12, 2024, 04:48:37 PM »

I got the threaded version of SBT API calling working. It also works with the MT module which I use as thread status flags. This way you don't have to make continuous calls to the thread to get its status.

sbt_start.sb

Code: ScriptBasic

IMPORT mt.bas
IMPORT sbt.bas
 
sb = SBT::SB_ThreadStart("sbt_base.sb", "","C:/Windows/SCRIBA.INI")
' Assign variables values
rtn = SBT::SB_SetInt(sb, "main::a", 123)
SBT::SB_SetDbl(sb, "main::b", 12.3)
SBT::SB_SetStr(sb, "main::c", "One,Two,Three" & CHR(0))
' Call function 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"))
 
PRINT "Thread ",mt::GetVariable("thread_status"),"\n"
 
' Terminate Thread
SBT::SB_CallSub(sb, "main::end_thread")
 

sbt_base.sb

Code: ScriptBasic

IMPORT mt.bas
IMPORT sbt.bas
 
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 = ""
 
mt::SetVariable("thread_status","Running")
 
SUB End_Thread
  SBT::SB_ThreadEnd()
END SUB
 

Output
C:\ScriptBasic64\examples>scriba sbt_start.sb 123 12.3 One,Two,Three Thread Running C:\ScriptBasic64\examples>

ScriptBasic Blog / Re: ScriptBasic 3.0

« Last post by John on April 12, 2024, 03:10:41 PM »

I was able to get SBT working after my pointer based rewrite. I still have to test this on Linux before I push it to the repo.

Code: ScriptBasic

' SBT 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()
rtn = SBT::SB_Configure(sb, "C:/Windows/SCRIBA.INI")
rtn = SBT::SB_Loadstr(sb, sb_code)
rtn = 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
rtn = SBT::SB_Run(sb, "")
' Assign variables values
rtn = SBT::SB_SetInt(sb, "main::a", 321)
rtn = SBT::SB_SetDbl(sb, "main::b", 32.1)
rtn = 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

C:\ScriptBasic64\examples>scriba sbt_demo.sb 123 1.23 One, Two, Three Function Return 321 32.1 Three,Two,One C:\ScriptBasic64\examples>

ScriptBasic Blog / Re: ScriptBasic 3.0

« Last post by John on April 12, 2024, 10:09:12 AM »

I think I know what the problem is. I need to pass the sb object as a Pointer not an Integer (signed long). I got away with it on Windows 32 bit and Linux but Windows 64 bit has a greater memory range and is overflowing returning a negative value.

Pages: 1 ... 5 6 [7] 8 9 10

AllBASIC Forum / ScriptBasic Blog

News:

Recent Posts

ScriptBasic Blog / Re: ScriptBasic 3.0

ScriptBasic Blog / Re: ScriptBasic 3.0

ScriptBasic Blog / Re: ScriptBasic 3.0

ScriptBasic Blog / Re: ScriptBasic 3.0

ScriptBasic Blog / Re: ScriptBasic 3.0

ScriptBasic Blog / Re: ScriptBasic 3.0

ScriptBasic Blog / Re: ScriptBasic 3.0

ScriptBasic Blog / Re: ScriptBasic 3.0

ScriptBasic Blog / Re: ScriptBasic 3.0

ScriptBasic Blog / Re: ScriptBasic 3.0