include "dllcinc.sb"
oxy=dllfile("/scriptbasic/modules/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
' ==============================
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
sub finish()
terminate
end sub
function link(sys n) as sys
select n
case 0 : return @finish
case 1 : return @reverse
end select
end function
end extern
addr link
"""
' ==============================
function oxygen(src)
dllcall o2_basic,src
if (dllcall(o2_errno)<>0) then
dllprnt dllcall(o2_error)
a=0
else
a=dllcall(o2_exec,0)
end if
oxygen=a
end function
'
a=oxygen(src)
'
if (a<>0) then
'
' ==============================
'
Finish = dllproc(a,"Finish () ", dllcald(a,0) )
Reverse = dllproc(a,"Reverse (c*value) ", dllcald(a,1) )
'
' ==============================
'
s="abcdef1234567"
print "Reversed " & s & " = "
dllcall(Reverse,s)
print s & "\n"
dllcall(Finish)
'
end if
dllfile
line input q
include "dllcinc.sb"
oxy=dllfile("/scriptbasic/modules/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
include "DLLCO2.sb"
' ==============================
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
sub finish()
terminate
end sub
function link(sys n) as sys
select n
case 0 : return @finish
case 1 : return @reverse
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) )
'
' ==============================
'
s="abcdef1234567"
print "Reversed " & s & " = "
dllcall(Reverse,s)
print s & "\n"
dllcall(Finish)
'
end if
dllfile
line input q
John, Did you trim off the .rlen dot ? :)
Original works, updated doesn't.and what is new ?....
I constantly have a feeling that oxygen is in wrong direction....
@Mike - prosecute assembly? Do you mean prostitute assembly?
Just noticed the t.txt hooker tease.
Noone realized at that time that SB itself was in a state of secret liaison with the subject...
you would wonder what the purpose of discussing assembly at a BASIC forum was.
Improvements:
Strip leading spaces,
tolerant of 0 index,
faster parsing with bytes,
cleaner layout of cases,
elimination of duplicated code.
Caught a nasty little bug there!
I think char* will provide the best interface for SB
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.
""" & chr(0)
lf=chr(10) & chr(0)
dl=";;" & chr(0)
fm="LLLLCCCRRRRR" & chr(0)
t=dllcall(AlignText,s,fm,dl,lf )
print t & "\n"
Does src require a null terminator?
I can't reproduce the error, John. It looks like junk at the end of the source, caused by an overrun.
function GetTextWord(char*s, sys *i) as char*
=============================================
static string w
sys a,j
byte b at @s
j=i
i--
@b--
do
i++
@b++
select b
case 0 : exit do 'end of string
case 33 to 255 : exit do 'non white space
end select
end do
'
j=i
'
do
select b
case 0 to 32 : exit do
end select
i++
@b++
end do
'
if i>j
w=mid s,j,i-j
return w
else
return ""
end if
'
end function
print GetTextWord("Aurel",3)
IMPORT iup.bas
IUP::Open()
IUP::Info(INFO)
PRINT "SYSTEMLANGUAGE: ",INFO{"SYSTEMLANGUAGE"},"\n"
PRINT "DRIVER: ",INFO{"DRIVER"},"\n"
PRINT "SYSTEM: ",INFO{"SYSTEM"},"\n"
PRINT "SYSTEMLOCALE: ",INFO{"SYSTEMLOCALE"},"\n"
PRINT "COMPUTERNAME: ",INFO{"COMPUTERNAME"},"\n"
PRINT "USERNAME: ", INFO{"USERNAME"},"\n"
PRINT "MONITORSINFO: ",INFO{"MONITORSINFO"},"\n"
PRINT "SCREENSIZE: ",INFO{"SCREENSIZE"},"\n"
PRINT "SCREENDEPTH: ",INFO{"SCREENDEPTH"},"\n"
PRINT "VIRTUALSCREEN: ",INFO{"VIRTUALSCREEN"},"\n"
PRINT "DLGFGCOLOR: ",INFO{"DLGFGCOLOR"},"\n"
PRINT "DLGBGCOLOR: ",INFO{"DLGBGCOLOR"},"\n"
PRINT "DEFAULTFONT: ",INFO{"DEFAULTFONT"},"\n"
PRINT "DEFAULTFONTSIZE: ",INFO{"DEFAULTFONTSIZE"},"\n"
PRINT "TXTFGCOLOR: ",INFO{"TXTFGCOLOR"},"\n"
PRINT "TXTBGCOLOR: ",INFO{"TXTBGCOLOR"},"\n"
An alternate format BASIC-like for numbers has the form %~format~ where format can be:
# Digit or space
0 Digit or zero
^ Stores a number in exponential format. Unlike QB's USING format this is a place-holder like the #.
. The position of the decimal point.
, Separator.
- Stores minus if the number is negative.
+ Stores the sign of the number.
Is there function like Parse(delimiter,text) or in another words is there a easy way to modify
function GetTextWord to function buffer = Parse(delimiter,text)
Hide messages posted by members on my ignore list.
n padding spaces between columns
SPLITAQ
SPLITAQ string BY string QUOTE string TO array
Split a string into an array using the second string as delimiter.
The delimited fields may optionally be quoted with the third string.
If the string to be split has zero length the array becomes undefined.
When the delimiter is a zero length string each array element will contain a
single character of the string.
Leading and trailing delimiters are accepted and return an empty element
in the array. For example :-Code: Script BASICwill generate
Note that this kind of handling of trailing and leading empty elements is different
from the handling of the same by the command SPLIT and SPLITA which do ignore
those empty elements. This command is useful to handle lines exported as CSV from
Excel or similar application.
The QUOTE string is really a string and need not be a single character. If there is an
unmatched quote string in the string to be split then the rest of the string until its end
is considered quoted.
As an alternative to the BASIC like format mask, you are free to use the SB printf style format mask.
%[flags][width][.precision]type type = can only be "dioxXueEfgGsc".
1/1/06 0:00 3108 OCCIDENTAL DR 3 3C 1115 10851(A)VC TAKE VEH W/O OWNER 2404 38.5504 -121.3914
1/1/06 0:00 2082 EXPEDITION WAY 5 5A 1512 459 PC BURGLARY RESIDENCE 2204 38.4735 -121.4902
1/1/06 0:00 4 PALEN CT 2 2A 212 10851(A)VC TAKE VEH W/O OWNER 2404 38.6578 -121.4621
1/1/06 0:00 22 BECKFORD CT 6 6C 1443 476 PC PASS FICTICIOUS CHECK 2501 38.5068 -121.4270
1/1/06 0:00 3421 AUBURN BLVD 2 2A 508 459 PC BURGLARY-UNSPECIFIED 2299 38.6374 -121.3846
By default SQLite will evaluate every INSERT / UPDATE statement within a unique transaction. If performing a large number of inserts, it's advisable to wrap your operation in a transaction:
I'm still testing...
jrs@laptop:~/sb/sb22/test$ scriba fmtsqlrow.sb
1/1/06 0:00 3108 OCCIDENTAL DR 3 3C 1115 10851(A)VC TAKE VEH W/O OWNER 2404 38.5504 -121.3914
jrs@laptop:~/sb/sb22/test$
An SQLite database is normally stored in a single ordinary disk file. However, in certain circumstances, the database might be stored in memory.
The most common way to force an SQLite database to exist purely in memory is to open the database using the special filename ":memory:". In other words, instead of passing the name of a real disk file into one of the sqlite3_open(), sqlite3_open16(), or sqlite3_open_v2() functions, pass in the string ":memory:". For example:Code: C
When this is done, no disk file is opened. Instead, a new database is created purely in memory. The database ceases to exist as soon as the database connection is closed. Every :memory: database is distinct from every other. So, opening two database connections each with the filename ":memory:" will create two independent in-memory databases.
WhiteDB is a lightweight database library operating fully in main memory.
Disk is used only for dumping/restoring database and logging.
Data is persistantly kept in the shared memory area: it is available simultaneously
to all processes and is kept intact even if no processes are currently using the
database.
WhiteDB has no server process. Data is read and written directly from/to memory,
no sockets are used between WhiteDB and the application using WhiteDB.
WhiteDB keeps data as N-tuples: each database record is a tuple of N elements.
Each element (record field) may have an arbitrary type amongst the types provided
by WhiteDB. Each record field contains exactly one integer (4 bytes or 8 bytes).
Datatypes which cannot be fit into one integer are allocated separately
and the record field contains an (encoded) pointer to the real data.
WhiteDB is written in pure C in a portable manner and should compile and function
without additional porting at least under Linux (gcc) and Windows
(native Windows C compiler cl). It has Python and experimental Java bindings.
Record pointers: the foundation of a graph database
Searching for a related record through an index using the record id (the standard SQL way) is neither the fastest nor the simplest way of going through complex data structures.
It is much faster and easier to store direct pointers to records.
speed15.c builds a database of 10 million records and stores a pointer to the previously created record to the field 3 of each record. Essentially, all the 10 million records will form a long chain from the last record back to the first. Additionally, we store a pointer to the last record into field 2 of the very first record, to directly access the last record later.
The building test takes 0.66 seconds.
speed16.c traverses through the whole chain of backward pointers and counts the 10 million records in a list.
The traversal test takes 0.15 seconds: in other words, you can traverse almost 100 million records in a linked list in a second.