Any reference material is always welcome -Ok..
#include "$/inc/console.inc"
DIM n AS ULONG
n = -1
print n
waitkey
Why it prints -1 instead of 4294967295.
$ FileName "test.exe"
ASCIIZ s * 260
s = "Test string"
DIM p AS ASCIIZ PTR = @s
print *p
print *p
Do you really believe that this is a good way to learn a language?
The natural reaction will be to become angry quickly and send the compiler to hell.
ASCIIZ s * 260
s = "Test string"
DIM p AS char AT STRPTR(s)
print p
char s = "Test string"
DIM p AS char AT STRPTR(s)
print p
string s
s = "Test String"
@p = s 'adress of p hold s
print p ' show "Test String"
string s
s = "Test String"
char p[10] = s 'adress of p hold s
print p ' show "Test String"
DIM s AS ASCIIZ*260
'
'DIM s(260) AS ASCIIZ
'char s[260]
'
s = "Test string"
'
DIM p AS ASCIIZ PTR : @p = STRPTR s
'
'char*p=strptr s
'
'ASCIIZ p AT STRPTR s
'
print p
uses corewin
'
'wchar* cmdline = GetCommandLineW
'
'dim wchar*cmdline : @cmdline=GetCommandLineW
'wchar ptr cmdline = GetCommandLineW
'
dim cmdline as wchar ptr
@cmdline=GetCommandLineW
'
print cmdline
CHAR c = "Test string"
c += " - more text"
print c
CHAR c[100] = "Test string"
c += " - more text"
print c
It was too good to be true
It was too good to be true.
I'm not certainly the best suited to write O2 documentation, ...
With Free Basic I can easily implement data types not natively supported by the compiler
#INCLUDE ONCE "Afx/CVAR.inc"
FUNCTION Foo (BYREF cv AS CVAR) AS CVAR
RETURN cv & " Third string"
END FUNCTION
SUB Foo2 (BYVAL v AS VARIANT)
PRINT AfxVarToStr(v)
END SUB
SUB Foo3 (BYVAL v AS VARIANT PTR)
PRINT AfxVarToStr(v)
END SUB
SUB Foo4 (BYREF ws AS WSTRING)
PRINT ws
END SUB
' We can use CVAR with the intrinsic FB operators or with overloaded operators
DIM cv AS CVAR = "Test string"
cv = cv & " Second string"
PRINT cv
PRINT Foo(cv)
' Thanks to the overloaded CAST operator we can pass them transparently
' to procedures that expect another data type
Foo2(cv)
Foo3(cv)
Foo4(cv)
' We can assign to them any data type
DIM cv2 AS CVAR = 12345.67
print cv2
' We can also have arrays of CVar:
DIM rg(1 TO 2) AS CVAR
rg(1) = "string"
rg(2) = 12345.12
print rg(1)
print rg(2)
' And even dynamic arrays of CVar in UDTs:
TYPE MyType
rg(ANY) AS CVAR
END TYPE
DIM t AS MyType
REDIM t.rg(1 TO 2) AS CVAR
PRINT LBOUND(t.rg)
PRINT UBOUND(t.rg)
t.rg(1) = "String"
t.rg(2) = 12345.12
print t.rg(1)
print t.rg(2)
PRINT
PRINT "Press any key..."
SLEEP
' // Create an instance of the RegExp object
DIM pDisp AS CDispInvoke = "VBScript.RegExp"
' // Set some properties
pDisp.Put("Pattern") = ".is"
pDisp.Put("IgnoreCase") = VARIANT_TRUE
pDisp.Put("Global") = VARIANT_TRUE
' // Execute a search
DIM pMatches AS CDispInvoke = pDisp.Invoke("Execute", "IS1 is2 IS3 is4")
' // Parse the collection of matches
IF pMatches.DispPtr THEN
' // Get the number of matches
DIM nCount AS LONG = VAL(pMatches.Get("Count"))
FOR i AS LONG = 0 TO nCount -1
DIM pMatch AS CDIspInvoke = pMatches.Get("Item", i)
print pMatch.Get("Value")
NEXT
END IF
' // Connect with WMI in the local computer and get the properties of the specified printer
DIM pDisp AS CDispInvoke = CWmiServices( _
$"winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2:" & _
"Win32_Printer.DeviceID='OKI B410'").ServicesObj
' // Set the printer as the default printer
pDisp.Invoke("SetDefaultPrinter")
I hope that Charles will understand what I mean, because you have no clue
uses com\voice
dim as GUID VoiceObjGuid, ISpVoiceGuid
dim as HRESULT hr
dim as ISpVoice * voice
dim as LPUNKNOWN pUnkOuter
guidval VoiceObjGuid, "96749377-3391-11D2-9EE3-00C04F797396"
guidval ISpVoiceGuid, "6C44DF74-72B9-4992-A1EC-EF996E0422D4"
@ pUnkouter=0
CoInitialize null
hr=CoCreateInstance VoiceObjGuid, pUnkouter, context, ISpVoiceGuid, voice
if hr then print "SAPI Error " hex(hr) : CoUninitialize()
bstring2 s="Hello Everyone!"
voice.Speak s,0,null
voice.WaitUntilDone 0xFFFFFFFF
voice.Release : @ voice=0
CoUninitialize()
pDisp.Put("Pattern") = ".is"
dim v1 AS VARIANT
v1.vt = VT_BSTR
v1.bstrVal = SysAllocString("Pattern")
dim v2 AS VARIANT
v2.vt = VT_BSTR
v2.bstrVal = SysAllocString(".is")
pDisp.Put(v1, v2)
VariantClear @v1
VariantClear @v2
class tt
========
'
double x,y
'
'operations are identified as methods with the name in "" quotes
'
'they use 'this' as the accumulator
'
'the accum is auomatically created before the operator is called
'
'its destructor is invoked when the expression is complete
'
'operations return a pointer to 'this' accumulator
'
method destructor()
...
end method
'
method constructor()
x=0 : y=0
end method
'
method constructor(tt*a)
x=a.x : y=a.y
end method
'
method constructor(double ax,ay)
x=ax : y=ay
end method
'
method construcor(string ax,ay)
x=val(ax) : y=val(ay)
end method
'
method "save" (tt*a)
a.destructor
copy @tt,@this,sizeof this
end method
'
method "save" (abc*a) 'another type
a.destructor 'if destructor exists
copy @tt,@this,sizeof this
end method
'
method "+" (tt*a)
x+=a.x
y+=a.y
end method
'
end class
internal logistics:
===================
'op operator
'typ class of operation
'acc accumulator
'v operand expression
'saved flag
if typ has constructors
if op=0 'load
typ acc
acc.constructor()
clear saved flag
elseif op=2 'save
acc."save"(v) 'using polymorphic saves
set saved flag
goto done
end if
if typeof(v)<>typeof(acc)
typ b
b.constructor(v) 'using polymorphic constructors
acc.op(b)
if destructor exists then b.destructor
else
acc.op(v)
end if
'
done:
'
if not saved then
if destructor exists then acc.destructor
else
if destructor exists then log v to local/global destructors
if typeof(v)<>typeof(acc)
if destructor exists then acc.destructor
end if
elseif typ is general udt
use macro system
elseif typ is primitive
use primite expression evaluation
end if
You still don't know that O2 has vtable support from many years ago?
' ========================================================================================
' The following example creates a SolidBrush object, clones it, and then uses the clone
' to fill a rectangle.
' ========================================================================================
SUB Example_CloneBrush (BYVAL hdc AS HDC)
' // Create a graphics object from the window device context
DIM graphics AS CGpGraphics = hdc
' // Get the DPI scaling ratio
DIM rxRatio AS SINGLE = graphics.GetDpiX / 96
' // Set the scale transform
graphics.ScaleTransform(rxRatio, rxRatio)
' // Create a SolidBrush object
DIM solidBrush AS CGpSolidBrush = GDIP_ARGB(255, 255, 0, 0)
' // Create a clone of solidBrush
DIM cloneBrush AS CGpSolidBrush
solidBrush.Clone(@cloneBrush)
' // You can also use:
' DIM cloneBrush AS CGpSolidBrush = @solidBrush
' // Use cloneBrush to fill a rectangle
graphics.FillRectangle(@cloneBrush, 0, 0, 100, 100)
END SUB
' ========================================================================================
' // Get the DPI scaling ratio
DIM rxRatio AS SINGLE = graphics.GetDpiX / 96
' // Set the scale transform
graphics.ScaleTransform(rxRatio, rxRatio)
OPERATOR CVar.+= (BYREF cv AS CVAR)
IF vd.vt = VT_BSTR AND cv.vd.vt = VT_BSTR THEN
' // Both values are strings, so concatenate
VarCat(@vd, @cv.vd, @vd)
ELSE
' // Add
DIM vRes AS VARIANT
IF VarAdd(@vd, @cv.vd, @vRes) = S_OK THEN VariantCopy(@vd, @vRes)
END IF
END OPERATOR
' ========================================================================================
OPERATOR & (BYREF cv1 AS CVAR, BYREF cv2 AS CVAR) AS CVAR
DIM cvRes AS CVAR
VarCat(@cv1.vd, @cv2.vd, cvRes.vptr)
OPERATOR = cvRes
END OPERATOR
' ========================================================================================
' ========================================================================================
' Attaches a variant to this class. The source variant is marked as empty.
' ========================================================================================
FUNCTION CVar.Attach (BYVAL pvar AS VARIANT PTR) AS HRESULT
IF pvar = NULL THEN RETURN E_INVALIDARG
VariantClear @vd
' // Copy the contents and give control to CVar
DIM pdest AS ANY PTR = memcpy(@vd, pvar, SIZEOF(VARIANT))
IF pdest = NULL THEN RETURN E_FAIL
' // Mark the source variant as VT_EMPTY instead of clearing it with VariantClear
' // because we aren't making a duplicate of the contents, but transfering ownership.
pvar->vt = VT_EMPTY
RETURN S_OK
END FUNCTION
' ========================================================================================
if you start getting it ... it will open a great new world. It takes some time.
With iDispatch variables I will try to make COM Automation as easy as I can.
I doubt that Eros will be interested in using VB6 OCX DLL Forms. I think that you're going to have a new disappointment.
I don't care
float f=123.45
int i at @f
print hex(i,8)
... MAXINT and MININT ranges.
........
9223372036854775807
-9223372036854775808
... MAXINT and MININT ranges.
........
9223372036854775807
-9223372036854775808
Those are 64-bit values. The functions only reflect the capabilities of the operating system SB is currently running on but not the capabilities of SB proper. AFAIK SB is only capable of 32-bit integer calc on both 32- and 64-bit platforms, alas.
extended f=123.45
int i at @f
string fmt(int v){ return right(hex(v,8),8) }
print fmt(i[3]and 0xffff) " " fmt(i[2]) " " fmt(i[1])
Code: [Select]PRINT FORMAT("%i",9000000000000000000 - 10), "\n"
jrs@jrs-laptop:~/sb/examples/test$ scriba intmath.sb
8999999999999999990
jrs@jrs-laptop:~/sb/examples/test$
$ filename "Ext_limits.exe"
'uses rtl32
'uses rtl64
uses console
string fmt(int v){ return right(hex(v,8),8) }
'extended f=1.18973149535723176502e4932 'LDBL_MAX
extended f=2^16384
int i at @f
printl f ", hex: " fmt(i[3]and 0xffff) " " fmt(i[2]) " " fmt(i[1])
'f=-1.18973149535723176502e4932
f=-(2^16384)
printl f ", hex: " fmt(i[3]and 0xffff) " " fmt(i[2]) " " fmt(i[1]) & cr
'f=3.36210314311209350626e-4932 'LDBL_MIN - min positive value
f=2^-16382
'f=1/(2^16382)
'f=pow(2,-16382)
printl f
printl fmt(i[3]and 0xffff) " " fmt(i[2]) " " fmt(i[1]) & cr
printl "Enter ... " : waitkey
uses console
extended e
e=-1.18973149535723176502e4932 'LDBL_MAX
printl e
e=2^16384
printl e
e=3.36210314311209350626e-4932 'LDBL_MIN - min positive value
printl e
e=2^-16382 'Windows calculator
printl e
e=2^-16330
printl e
waitkey
I think José is waiting for me to catch up
there are 2 forms of at
mytype v at p 'direct coupling to pointer p
if p changes then so does @v
mytype v at (p) 'the address is the value of the expression (p)
@v is independent of p thereafter
int a
int b = @a
a=0x1234
print hex *b
print hex cast byte *b '34
dim a as long
dim b as long ptr = @a
a = &h1234
print hex(*b)
dim a as long
dim b as long = @a
a = &h1234
print hex(*b)
dim a as long
dim b as long ptr = @a
a = &h1234
print hex(*b)
dim byref a, byref b as single
dim as single byref a, byref b
single ptr a, ptr b
single *a,*b
dim a as long
dim b as long ptr : @b = @a 'coupling by address
a = &h1234
print hex(b)
the #cpointer switch is only there to support C header #define macros. It won't work directly on pointer members.
#cpointer on
dim a as long
dim b as long ptr = @a
a = &h1234
print hex(*b)
At least i have been successfully compiling applications using portions of Jose Roca's includes.
That may be a problem. Jose hasn't authorized his includes for anything but PowerBasic and FreeBasic. He was very specific about that point when I tried to promote O2 use.
The exception is dynamic (secondary compiling), which has been dropped in favor of main compiling.
I don't understand why you want to use my headers for PowerBasic if they aren't useful for 64-bit compiling. What I'm missing?
@Mike,
Do you have time to lend a management hand to get the O2 source control sandbox repo in order?
Go into "History", select "Show All History", find the link to the sandbox, right-click, and select "Forget About This site"
Then try connecting.
AIR.
04:27 15/12/2018 Fix Empty macro problem (replacewdt)
22:58 14/12/2018 Appe() uses copy() instead of mid()
18:37 14/12/2018 Fix "=" bug subsas (f=a)
18:35 14/12/2018 Support accum setting with += -= assignments (cpa>2)
04:19 14/12/2018 Revoke class-operators, retain macro-operators(findop)
19:09 13/12/2018 Work on nested scopes for epilog code
00:05 13/12/2018 Merge mcword into replacewdt
14:40 12/12/2018 Remove wword uword parsing (destructors 20)
02:43 12/12/2018 Refactor macso etc. (mac to mrc)
12:00 11/12/2018 Implement bycopy
06:12 17/12/2018 Fix macro insider ## substitution (himac)
14:29 16/12/2018 Fix wide string literal binary encoding (makerecordw)
18:40 15/12/2018 Typeof returning text in chr(34) quotes (pars.inc newline)
06:04 15/12/2018 Revoke 'operator' methods & cleanup (findop)
The new oxygen.dll is still a 32-bit replacement for the original.
Charles,
When you release the self compile compiler, will there be a 32 and 64 bit version of it?