Progress of the PluriBASIC implementation of Oxygen

[Brian Alvarez]

It now supports:

#PREFIX
WITH / END WITH
MACROS
FUNCTION, SUB, FASTPROC, CALLBACK
FOR/NEXT
DATA fields + READ$() + DATACOUNT.
GOTO, GOSUB, RETURN
IF / THEN / ELSE / ELSEIF /END IF (including single line IF blocks with multiple statements)
TYPE
DIM (partially)
REDIM (partially)
REDIM PRESERVE (partially)
RESET (partially)
LOCAL
STATIC
REGISTER

[Brian Alvarez]

STDOUT

[Brian Alvarez]

SELECT CASE / END SELECT as follows:

Code: [Select]

   SELECT CASE IntVar&
      CASE 1
      CASE 2
      CASE 3 TO 10
      CASE 11, 15, 21
      CASE ELSE
   END SELECT
SWITCH asfollows:

Code: [Select]

switch IntVar& {
    case 1 :
       break
    default:   // for the moment it doesnt support Oxygen's "case else", to be compliant with the standard.
}

[JRS]

Outstanding Brian!

I'm taking a deep dive into PHP with an open source accounting package I'm working with.

[Brian Alvarez]

#INCLUDE ""
#INCLUDE ONCE ""
#INCLUDE THIS ONCE

#IF
#ELSEIF
#ELSE
#ENDIF
%DEF()

[Brian Alvarez]

DO / LOOP
WHILE / WEND

[Brian Alvarez]

Hexa0decimal values:

Code: [Select]

&HFFFFFF
Octal values:

Code: [Select]

&O123456
Binary values:

Code: [Select]

&B11010010

[Brian Alvarez]

UBOUND
LBOUND

[JRS]

Cool!

When will you be asking for testing help?

Can I assume this will be both 32/64 bit?

[Brian Alvarez]

 Hello John, i will need testers later on. And yes, you can select between 32 bits and 64 bits with:

Code: [Select]

#COMPILER OXYGEN
#COMPILE EXE
#OPTIONS X32
and:

Code: [Select]

#COMPILER OXYGEN
#COMPILE EXE
#OPTIONS X64

[Arnold]

Hi Brian,

I found your message in the JRS forum: Hello World not firing.

In case you did not already find the answer: you forgot to call main().
For MSGBOX I would use the Winapi MessageBox function. So this would be my code:

Code: OxygenBasic

1. 'Generated with PluriBASIC 6.0.74371.0
2.  
3. $ filename "hello_world.exe"
4.  
5. uses rtl64
6.  
7. 'uses corewin
8. extern lib "user32.dll"
9. ! MessageBox alias "MessageBoxA"  
10. end extern
11.  
12.  
13.  
14. ' STARTS PLURIBASIC_INIT.BIN
15.  
16. ' Enter the stock code and functions here.
17.  
18. ' END OF PLURIBASIC_INIT.BIN
19. ' STARTS MSGBOX.BIN
20. FUNCTION MSGBOX(string sText, optional sys mOptions = 0, string sCaption = "") AS LONG
21.   'mbox(sText)
22.  MessageBox(null, sText, sCaption, mOptions)
23. END FUNCTION
24. ' END OF MSGBOX.BIN
25. ' STARTS CALLBACKDATA.BIN
26.  
27. ' CALLBACK data
28.  
29. ' END OF CALLBACKDATA.BIN
30. ' STARTS ENTRY_POINT.BIN
31.  
32. ' Enttry point code
33. ' END OF ENTRY_POINT.BIN
34.  
35. ' Initializes various things in the script.
36. FUNCTION PluriBASIC_Initialize() AS LONG
37.  
38. END FUNCTION
39.  
40. FUNCTION MAIN()
41.    MSGBOX "hello world"
42.    MSGBOX "GoodBye", 1, "Oxygenbasic"      'MB_OKCANCEL
43. END FUNCTION
44.  
45. main()
46.  

[Mike Lobanovsky]

Hi Roland,

Believe it or not but I'd just posted a similar message to Brian on the JRS forum -- before I came here and saw yours.

Hopefully he sees at least one of them on either forum.

[Brian Alvarez]

Thanks Arnold, that indeed did the trick.