ScriptBasic Windows 64 Bit

[John]

That's great AIR. Nice to have a 64 bit SB on Windows again. Works here.

Do you have a 64 bit build you can share and what did you use to build it?

I took a peek at the scriba.exe you sent and I was surprised it contained exports

Does this mean I don't need libscriba.dll for the SBT extension module?

Code: Bash

1. scriba_BuildCode, 1, 0xfcaa
2. scriba_Call, 2, 0x10ca9
3. scriba_CallArg, 3, 0x10cf2
4. scriba_CallArgEx, 4, 0x1168e
5. scriba_destroy, 65, 0xe3e9
6. scriba_DestroySbArgs, 5, 0x1109c
7. scriba_DestroySbData, 6, 0xe7bd
8. scriba_DoLexicalAnalysis, 7, 0xf726
9. scriba_DoSyntaxAnalysis, 8, 0xfa1a
10. scriba_FinishStaticModules, 9, 0x123f5
11. scriba_GetCacheFileName, 10, 0xfe00
12. scriba_GetConfigFileName, 11, 0xec0a
13. scriba_GetVariable, 12, 0x11dee
14. scriba_GetVariableType, 13, 0x11d39
15. scriba_InheritBinaryProgram, 14, 0xf216
16. scriba_InheritConfiguration, 15, 0xec48
17. scriba_InheritExecuteObject, 16, 0xee1f
18. scriba_InheritModuleInterface, 17, 0xedf2
19. scriba_InitModuleInterface, 18, 0xec8d
20. scriba_InitSbData, 19, 0xe486
21. scriba_InitStaticModules, 20, 0x12376
22. scriba_IsFileBinaryFormat, 21, 0xfdde
23. scriba_LoadBinaryProgram, 22, 0xf1f0
24. scriba_LoadBinaryProgramWithOffset, 23, 0xf0e3
25. scriba_LoadConfiguration, 24, 0xeb72
26. scriba_LoadInternalPreprocessor, 25, 0xf313
27. scriba_LoadProgramString, 26, 0x1045e
28. scriba_LoadSourceProgram, 27, 0x102c9
29. scriba_LookupFunctionByName, 28, 0x11cc8
30. scriba_LookupVariableByName, 29, 0x11cf5
31. scriba_new, 66, 0xe250
32. scriba_NewSbArgs, 30, 0x1111b
33. scriba_NewSbBytes, 31, 0xe6bb
34. scriba_NewSbData, 32, 0xe441
35. scriba_NewSbDouble, 33, 0xe546
36. scriba_NewSbLong, 34, 0xe501
37. scriba_NewSbString, 35, 0xe5c9
38. scriba_NewSbUndef, 36, 0xe591
39. scriba_NoRun, 37, 0x10bce
40. scriba_PurgeBuilderMemory, 38, 0xe92e
41. scriba_PurgeExecuteMemory, 39, 0xea04
42. scriba_PurgeLexerMemory, 40, 0xe86c
43. scriba_PurgePreprocessorMemory, 41, 0xe9a5
44. scriba_PurgeReaderMemory, 42, 0xe809
45. scriba_PurgeSyntaxerMemory, 43, 0xe8cf
46. scriba_ReadSource, 44, 0xf44f
47. scriba_ResetVariables, 45, 0x10c5a
48. scriba_Run, 46, 0x10aa1
49. scriba_RunExternalPreprocessor, 47, 0x10111
50. scriba_SaveCacheFile, 49, 0x100c1
51. scriba_SaveCCode, 48, 0x10262
52. scriba_SaveCode, 50, 0x10235
53. scriba_SaveECode, 51, 0x10290
54. scriba_SetCgiFlag, 52, 0xef45
55. scriba_SetEmbedPointer, 53, 0xf061
56. scriba_SetEnvironment, 54, 0xf0a2
57. scriba_SetFileName, 55, 0xead8
58. scriba_SetProcessSbObject, 56, 0xee45
59. scriba_SetReportFunction, 57, 0xef63
60. scriba_SetReportPointer, 58, 0xefa1
61. scriba_SetStdin, 59, 0xefdf
62. scriba_SetStdout, 60, 0xf020
63. scriba_SetVariable, 61, 0x12032
64. scriba_ShutdownMtModules, 62, 0xeeba
65. scriba_UndefSbData, 63, 0xe4a8
66. scriba_UseCacheFile, 64, 0xffb4
67.  

[John]

AIR,

I started a new thread for the ScriptBasic Windows 64 effort. It seems I did compile a 64 bit version of ScriptBasic which has a SBC and SBW version. I couldn't get a 64 bit cURL to compile so your contribution filled that hole. Here is a GMP example in 64 bit.

ODBC 64 bit is the next challenge.

Code: Script BASIC

1. DECLARE SUB BI_ADD  ALIAS  "add"     LIB "gmp10"
2. DECLARE SUB BI_SUB  ALIAS  "sub"     LIB "gmp10"
3. DECLARE SUB BI_MUL  ALIAS  "mul"     LIB "gmp10"
4. DECLARE SUB BI_DIV  ALIAS  "divide"  LIB "gmp10"
5.  
6. a = "1234567890"
7. b = "0987654321"
8.  
9.  
10. PRINT "ADD: ", BI_ADD(a,b),"\n"
11. PRINT "SUB: ", BI_SUB(a,b),"\n"
12. PRINT "MUL: ", BI_MUL(a,b),"\n"
13. PRINT "DIV: ", BI_DIV(a,2),"\n\n"
14.  
15. PRINT "MAXINT: ",MAXINT,"\n"
16.  

C:\ScriptBasic\examples>sbc gmpmath.sb
ADD: 2222222211
SUB: 246913569
MUL: 1219326311126352690
DIV: 617283945

MAXINT: 2147483647

C:\ScriptBasic\examples>

[John]

This is the SBT (thread extension module) example in 64 bit.

Code: Script BASIC

1. ' SBT 64 bit Demo
2.  
3. IMPORT sbt.sbi
4.  
5. sb_code = """
6. FUNCTION prtvars(a, b, c)
7.  PRINT a,"\\n"
8.  PRINT FORMAT("%g\\n", b)
9.  PRINT c,"\\n"
10.  prtvars = "Function Return"
11. END FUNCTION
12.  
13. a = 0
14. b = 0
15. c = ""
16. """
17.  
18. sb = SB_New()
19. SB_Configure sb, "C:/Windows/SCRIBA.INI"
20. SB_Loadstr sb, sb_code
21. SB_NoRun sb
22. ' Call function before running script
23. funcrtn = SB_CallSubArgs(sb,"main::prtvars", 123, 1.23, "One, Two, Three")
24. PRINT funcrtn,"\n"
25. ' Run script initializing globals
26. SB_Run sb, ""
27. ' Assign variables values
28. SB_SetInt sb, "main::a", 321
29. SB_SetDbl sb, "main::b", 32.1
30. SB_SetStr sb, "main::c", "Three,Two,One" & CHR(0)
31. ' Call function again with variables assigned in the previous step
32. SB_CallSubArgs sb, "main::prtvars", _
33.           SB_GetVar(sb, "main::a"), _
34.           SB_GetVar(sb, "main::b"), _
35.           SB_GetVar(sb, "main::c")
36. SB_Destroy sb
37.  

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

C:\ScriptBasic\examples>

[John]

SQLite 64 bit.

Code: Script BASIC

1. ' SQLite CREATE / INSERT / SELECT
2.  
3. IMPORT sqlite.sbi
4.  
5. db = sqlite::open("sqlite_demo.db")
6.  
7. sqlite::execute(db,"create table demo (someval integer, sometxt text);")
8. sqlite::execute(db,"insert into demo values (123,'hello');")
9. sqlite::execute(db, "INSERT INTO demo VALUES (234, 'cruel');")
10. sqlite::execute(db, "INSERT INTO demo VALUES (345, 'world');")
11.  
12.  
13. stmt = sqlite::query(db,"SELECT * FROM demo")
14.  
15. WHILE sqlite::row(stmt) = sqlite::SQLITE3_ROW
16.   IF sqlite::fetchhash(stmt, column) THEN
17.     PRINT column{"someval"},"\t-\t",column{"sometxt"},"\n"
18.   END IF
19. WEND
20.  
21. sqlite::close(db)
22.  

C:\ScriptBasic\examples>sbc sqlite_demo.sb
123     -       hello
234     -       cruel
345     -       world

C:\ScriptBasic\examples>

[John]

Mini XML

Code: Script BASIC

1. include mxml.sbi
2.  
3. filename = "mxml_demo.xml"
4.  
5. doc = mxml::LoadDoc(filename)
6.  
7. node =  mxml::GetNode(doc,"/stufflist/stuff_test")
8. if node then print "Test1: ", mxml::GetNodeValue(node),"\n"
9.  
10. node =  mxml::GetNode(doc,"/stufflist/stuff_test2")
11. if (node) then print "Test2: ", mxml::GetNodeValue(node),"\n\n"
12.  
13.  
14. node = mxml::GetNode(doc,"/stufflist/stuff_test3/painting/img")
15. if node then
16.         print "Image: ", mxml::GetProperty(node,"src"), "\n"
17.         print "Alt Image: ", mxml::GetProperty(node,"alt"), "\n\n"
18. endif
19.  
20.  
21. node = mxml::GetNode(doc,"/stufflist/books")
22. child = mxml::GetChild(node)
23.  
24. while child
25.         node = mxml::GetNode(child,"id")
26.         if node then print "ID = ", mxml::GetNodeValue(node),"\n"
27.         node = mxml::GetNode(child,"name")
28.         if node then print "Name = ", mxml::GetNodeValue(node),"\n"
29.  
30.         child = mxml::GetNext(child)
31. wend
32.  
33.  
34. if doc then mxml::FreeDoc(doc)
35.  

C:\ScriptBasic\examples>sbc mxml_demo.sb
Test1: This is a test!
Image: madonna.jpg
Alt Image: Foligno Madonna, by Raphael


C:\ScriptBasic\examples>


JSON

Code: Script BASIC

1. ' SB JSON Create Entries
2.  
3. import json.sbi
4.  
5. root = json::New()
6. json::SetText(root,"client1.name","Joe Blow")
7. json::SetNum(root,"client1.age", 56)
8. json::SetText(root,"client1.address.city","Tarrytown")
9. json::SetText(root,"client1.address.state","NY")
10. json::SetText(root,"client1.address.zip","10891")
11.  
12. json::SetText(root,"client2.name","John Smith")
13. json::SetNum(root,"client2.age",86)
14. json::SetText(root,"client2.address.city","Cupertino")
15. json::SetText(root,"client2.address.state","CA")
16. json::SetText(root,"client2.address.zip","N/A")
17. json::Save("root.json")
18.  

Code: Script BASIC

1. ' SB READ IN CREATED JSON
2.  
3. import json.sbi
4.  
5. jObject = json::loadfile("root.json")
6. for i = 0 to json::count(jObject)-1
7.     obj = json::object(jObject,i)
8.     print string(40,"-"),"\n"
9.     print json::Get(obj,"name"),"\n"
10.     print json::Get(obj,"age"),"\n"
11.     print json::Get(obj,"address.city"),"\n"
12.     print json::Get(obj,"address.state"),"\n"
13.     print json::Get(obj,"address.zip"),"\n"
14. next
15. print string(40,"-"),"\n"
16.  

root.json

Code: Text

1. {
2.     "client1": {
3.         "name": "Joe Blow",
4.         "age": 56,
5.         "address": {
6.             "city": "Tarrytown",
7.             "state": "NY",
8.             "zip": "10891"
9.         }
10.     },
11.     "client2": {
12.         "name": "John Smith",
13.         "age": 86,
14.         "address": {
15.             "city": "Cupertino",
16.             "state": "CA",
17.             "zip": "N\/A"
18.         }
19.     }
20. }
21.  

C:\ScriptBasic\examples>sbc parse.sb
----------------------------------------
Joe Blow
56
Tarrytown
NY
10891
----------------------------------------
John Smith
86
Cupertino
CA
N/A
----------------------------------------

C:\ScriptBasic\examples>

[John]

AIR's cURL for 64 bit ScriptBasic.

Code: Script BASIC

1. ' AIR RSS Challenge
2.  
3. IMPORT curl.sbi
4.  
5. ch = curl::init()
6. curl::option(ch, "URL", "http://channel9.msdn.com/Events/MIX/MIX11/RSS/mp4high")
7. curl::option(ch, "FOLLOWLOCATION")
8. rss = curl::perform(ch)
9. curl::finish(ch)
10.  
11. SPLITA rss BY "</item>" TO item
12. FOR x = 0 TO UBOUND(item)
13.   IF item[x] LIKE "*<title>*</title>*[CDATA[<p>*</p>*<pubDate>*</pub*<dc:creator>*</dc:*<enclosure url=\"*\" length*duration=\"*\"*" THEN
14.     PRINT STRING(20,"-"), "\n"
15.     PRINT "Title: ", JOKER(2), "\n"
16.     PRINT "Presenter: ",JOKER(8), "\n"
17.     PRINT "Date: ", JOKER(6), "\n"
18.     PRINT "Description: ", JOKER(4), "\n"
19.     PRINT "Video Link: ", JOKER(10), "\n"
20.     PRINT "Duration: ", FORMATDATE("0H:0m:0s", JOKER(12)), "\n"
21.   END IF
22. NEXT
23.  

--------------------
Title: Riding the Geolocation Wave
Presenter: Tatham Oddie
Date: Tue, 15 Mar 2011 20:26:00 GMT
Description: It&rsquo;s pretty obvious by now that geolocation is a heavy player in the next wave of applications and APIs. Now is the time to learn how to take advantage of this information and add context to your own applications. In this session we&rsquo;ll look at geolocation at every layer of the stack &ndash; from open protocols to operating system APIs, from the browser to Windows Phone 7. Building a compelling geo-enabled experience takes more than simple coordinates. In this session we will introduce the basics of determining a user&rsquo;s location and then delve into how to make geo data a useful addition to your application instead of a bolt-on &ldquo;me too&rdquo;.
Video Link: http://video.ch9.ms/ch9/7ce8/f849553d-644e-4dad-8deb-9ea700dd7ce8/MIX11EXT04_high_ch9.mp4
Duration: 00:47:52
--------------------
Title: Flickr API: Tap Into Billions of Photos for Windows Phone 7
Presenter: Markus Spiering
Date: Tue, 15 Mar 2011 20:26:00 GMT
Description: Do you want your app to integrate with one of the world&rsquo;s leading photosharing site? The Flickr for Windows Phone 7 app is a full featured mobile application that is pushing the boundaries of UX design and is 100% built on Flickr's API methods that are available for developers. This talk will introduce the mobile app, highlight some of the complex design decisions, and provide insights into the Flickr API methods. Attendees will learn how to enrich their applications using Flickr's rich content via the Flickr APIs.
Video Link: http://video.ch9.ms/ch9/7BAE/1F7A8CCB-5580-47BF-9371-9EA700DD7BAE/MIX11EXT01_high_ch9.mp4
Duration: 00:50:32
--------------------
Title: Fonts, Form and Function: A Primer on Digital Typography
Presenter: Robby Ingebretsen
Date: Tue, 15 Mar 2011 20:26:00 GMT
Description: Typography in digital experiences is unavoidable, and for years it was a fight we mostly lost. Today, however, technology is on our side! High resolution screens, an expanding library of open fonts and new flexibility in nearly every UI technology have made digital typography more fun and more interesting than ever. We'll cover all aspects of working with digital type: everything from choosing complimentary typefaces to licensing, rendering and a system for layout and sizing. We all love type. Come to this talk to learn why!
Video Link: http://video.ch9.ms/ch9/7bc8/133b3b99-1949-4ef4-a27c-9ec6010c7bc8/MIX11EXT02_high_ch9.mp4
Duration: 01:03:27

[AIR]

where is your 32bit SOURCE tree?  Sandbox has some old stuff

[John]

AIR,

I put a zip of the SB Win32 source on the server. I sent you a forum PM with the link.

ODBC has been enhanced. (4096 columns size & FetchSchema)

I built the SB Win 64 with this same source using TDM-CGG-64.

John

[AIR]

Your modules were still configured to compile to 32 bit.  I replied to your PM.

[John]

The 64 bit compile used a copy of your make I modified using -m64. The source build I sent you was configured to produce 32 bit.

Is the ODBC for 64 bit going to need special handling? This is a critical extension module for me.

[John]

Good News!

The ODBC extension for 64 bit compiled with TDM-GCC-64. I haven't tried it yet but at least it built.

Code: Bash

1. C:\sbgcc\sbw64_src\extensions\odbc>mingw32-make -B -f Makefile
2. gcc -w -D_WIN32 -m64 -c -o ..\..\bin\mod\obj\odbc\s_interface.o interface.c
3. ar -r ..\..\bin\mod\lib\odbc.a ..\..\bin\mod\obj\odbc\s_interface.o C:\TDM-GCC-32\lib\libodbc32.a C:\TDM-GCC-32\lib\libodbccp32.a
4. ar: creating ..\..\bin\mod\lib\odbc.a
5. gcc -w -D_WIN32 -m64 -c -o ..\..\bin\mod\obj\odbc\interface.o interface.c
6. gcc -Wno-write-strings -D_WIN32 -static-libgcc -pipe -shared -w -s -O2 -m64 -Wl,--add-stdcall-alias,--output-def,"..\..\bin\mod\dll\odbc_imp.def",--out-implib,"..\..\bin\mod\dll\odbc_imp.a" -o ..\..\bin\mod\dll\odbc.dll ..\..\bin\mod\obj\odbc\interface.o -lodbc32 -lodbccp32
7.  
8. C:\sbgcc\sbw64_src\extensions\odbc>
9.  

[John]

I just rebuilt it using the Makefile you sent me. Compiled fine. I'll give it a try shortly.

It connects to the Postgres SQL server using the 64 bit ODBC driver but fails on the query.


I needed to use the unicode version of the Postgres SQL ODBC driver.  The data is being truncated.

Code: Script BASIC

1. IMPORT odbc.sbi
2.  
3. dbh = odbc::RealConnect("BIO64U","","")
4. SQL = "SELECT * FROM ar_customer LIMIT 10"
5. odbc::query(dbh, SQL)
6. WHILE odbc::Fetchhash(dbh, column)
7.   PRINT column{"customerno"}," - ",column{"customername"},"\n"
8. WEND
9.  
10. odbc::Close(dbh)
11.  

C:\ScriptBasic\examples>sbc psql_64.sb
    MT0 -      Man Technologies
    BA7 -     BA
    NG6 -      Bin Hindi Group
    184 -     trong Atl St Univ Biol
    999 -     trong Atl St Univ
    TP8 -     American Business Review
    060 -      Arundel CC Biol
    476 -     linik RWTH Aachen
    EN7 -     ersitatsklinikum Aachen
    NA8 -     rto Aduna

C:\ScriptBasic\examples>


The VB6 ODBC viewer I have works with the 32 bit Postgres SQl ODBC unicode driver.

The Postgres SQL 32 bit Unicode driver works fine with SB 32.


C:\ScriptBasic\examples>sbc psql_32U.sb
12THMT0 - 12th Man Technologies
AAARBA7 - AAARBA
AABING6 - A.A. Bin Hindi Group
AABS184 - Armstrong Atl St Univ Biol
AABS999 - Armstrong Atl St Univ
AABWTP8 - abr American Business Review
AAC7060 - Anne Arundel CC Biol
AACH476 - Uniklinik RWTH Aachen
AACHEN7 - Universitatsklinikum Aachen
AADUNA8 - Alberto Aduna

C:\ScriptBasic\examples>

[John]

I tried MS SQL Server using the 32/64 bit native client ODBC driver. I couldn't connect to the DB with SB 64 ODBC but using the same driver under SB 32 bit works fine.

Code: Script BASIC

1. IMPORT odbc.sbi
2.  
3. dbh = odbc::RealConnect("MSSQL","","")
4. SQL = "SELECT * FROM johnspikowski.AR_Customer"
5. odbc::query(dbh, SQL)
6. WHILE odbc::Fetchhash(dbh, column)
7.   PRINT column{"CustomerNo"}," - ",column{"CustomerName"},"\n"
8. WEND
9.  
10. odbc::Close(dbh)
11.  

C:\ScriptBasic\examples>sbc mssql32.sb
ABF - American Business Futures
ABS - ABS - Sage cloud for invoices
AVNET - Avnet Processing Corp
BRESLIN - Breslin Parts Supply
HILLSB - Hillsboro Service Center
INACTIV - Inactive Customer **INACTIVE**
INTMEX - Int. Cust with Mexican Address Name expanded to 50
MAVRK - Maverick Papers
RSSUPPL - R & S Supply Corp.
SHEPARD - Shepard Motorworks
ALLENAP - Allen's Appliance Repair
AMERCON - American Concrete Service
ATOZ - A To Z Carpet Supply
AUTOCR - Autocraft Accessories
BAYPYRO - Bay Pyrotronics Corp.
CAPRI - Capri Sailing Ships
CUSTOM - Custom Craft Products
GREALAR - Greater Alarm Company
JELLCO - Jellco Packing
ORANGE - Orange Door & Window Co.

C:\ScriptBasic\examples>


My guess at this point is the SB 64 bit ODBC extension module isn't working correctly.

[John]

Creating a new MS SQL 64 bit ODBC definition allow me to connect to the DB but Query caused an extension module failure.

[AIR]

Don't you need a 64bit MySQL ODBC connector driver installed and configured?