[DEAD]To OpenSource SpeedBasic

[packetVB]

Hello all.
Im thinking of completly open sourcing speedbasic and wanted to know if anyone would be interested in joining a team to perfect the
language/translator.
Everything except the translator is written in speedbasic.
Dont need to know c++. If you know vb and how to call api from vb
, as the language is very similiar, you can help create window controls
for use with the language.
The basic syntax code is translated to c++ and currently compiled by only mingw. Need to re-add support for all c++ compilers.
Since the syntax is really similiar to vb a program will be created to convert vb code into speedbasic, minus the com controls, for now.
Which would basically be vb without runtimes.

Write now, the lang supports.

- Classes.
- Properties.
- Creating exe and libraries without runtimes.
- Standard Window Controls (written in speedbasic and compiled to library)
- String functions

Im currently re-writing the translator (in c++) to fix type casting and for better readability.

Example of Lang syntax:
class, class module>>

'Control Class that handles the basic events/messages of all control windows
'Controls, like TextBox and CommandButton, use this as a base class and extend it to implement thier own msg and events.
Using WinBase    'API's Declares,in basic Syntax.
Using User32      'API's Declares,in basic Syntax.
Using GDI32       'API's Declares,in basic Syntax.
Using Kernel32    'API's Declares,in basic Syntax.
 
Class Control
    Protected lastMessage As Long
    Protected m_top As Integer
    Protected m_left As Integer
    Protected m_width As Integer
    Protected m_height As Integer
    Protected originalProc As Long
    Protected p_hwnd As Long
    Protected m_hwnd As Long
    Protected beforeHwnd As Long
    Protected resourceID As Long
    Public IgnoreFocus As Boolean   
    Public EventMsgGotFocus As Long
    Public EventMsgLostFocus As Long
    Public EventMsgMouseMove As Long
    Public EventMsgMouseUp As Long
    Public EventMsgMouseDown As Long
    Public EventMsgKeyPress As Long
    Public EventMsgKeyDown As Long
    Public EventMsgKeyUp As Long
 
    Public m_Tag As Long
 
    Public ObjectPtr As Long
    Public IndexNumber As Integer
 
    Private Function OnGotFocus()
        'if EventMsgGotFocus is 0 then theres nothing to do
        If EventMsgGotFocus=0 Then
            'so return.
            Exit Function
        End If
                          'ObjectPtr is > 0 if this control is used in a class.
        If ObjectPtr=0 Then
                                      'index number used for control arrays
            If IndexNumber>=0 Then
                                                   'declare a variable as a function so to say
                Dim funcptr As Function (iii As Integer)
                                                   'set the address of the function
                funcptr=EventMsgGotFocus
                                                   'call the function
                funcptr(IndexNumber)
            Else
                Dim funcptr As Function()
                funcptr=EventMsgGotFocus
                funcptr()
            End If
        Else
            If IndexNumber>0 Then
                Dim funcptr As Function (ooo As Long)
                funcptr=EventMsgGotFocus
                funcptr(ObjectPtr)
            Else
                Dim funcptr As Function (ooo As Long, iii As Integer)
                funcptr=EventMsgGotFocus
                funcptr(ObjectPtr,IndexNumber)          
            End If
        End If
    End Function 
             '...... more code
    Public Property Set Left(pos As Integer)
        m_left=pos
        MoveWindow(m_hwnd,m_left,m_top,m_width,m_height,True)
    End Property
    
    Public Property Get Left() As Integer
        Left=m_left
    End Property
End Class

Module>>

Dim thisApp As Application
Dim txtUserName As TextBox
 
Public Function GuiInit(hinst As Long)
   'create textbox,
   txtUserName.Create(....)
   'move the textbox over 10
   txtUserName.Left=txtUserName.Left + 10
   thisApp.run()
End Function

Would anyone be interested??

[packetVB]

Well,
Ive come to the conclusion that there is little interest in a oop basic language without runtimes/basic to c++.

Projects Dead