First commit

data/long_source.bas

@@ -0,0 +1,131 @@
+Attribute ModuleName = "MyForm"
+Attribute ProgID = "ca-fe-de-ad"
+Option Explicit
+Option Compare Text
+Option Compare Binary
+' first comment
+Rem second comment
+' long_source.bas
+
+Dim g_logger0
+Dim a_long As Long
+
+Const str As String = "una stringa"
+Const a_bool = True
+Const an_object = Nothing
+
+' declaration of global constants with no type
+Const an_integer = 1234%, a_long = 1234&, a_hex_long = &Hcafedead&, an_oct_long = &01234&, an_integer2 = 1234
+Const a_single_float = 1234!, a_double_float = 1234#, a_float = 2.8
+
+' declaration of global variables with type
+Dim g_logger As Long
+Dim name As New Form
+
+Type PatRecord
+    name As String
+    age As Integer
+End Type
+
+Enum PatTypes
+    inpatient
+    outpatient
+End Enum
+
+Global g_logger As Long, v1, XRes As New Object, ptr As Module.MyRec, g_active As Boolean
+
+Const e As Single = 2.8, pi As Double = 3.14, u As Integer = -1
+
+Private Const PI As Double = 3.1415
+Private Declare Sub BeepVB Lib "kernel32.dll" Alias "Beep" (ByVal time As Long, ByVal xx As Single)
+Private Declare Function BeepVB Lib "kernel32.dll" Alias "Beep" (ByVal time As Long, ByVal xx As Single) As Long
+Const e As Double = 2.8, pi As Double = 3.14, u As Integer = -1
+Global g_logger As Long, v1, XRes As Object, ptr As MyRec, g_active As Boolean
+Private Declare Sub PFoo Lib "mylib.dll" Alias "PFoo" (ByVal val As Long)
+
+Enum MyEnum1
+    c1 = 0
+    c2 = 1
+End Enum
+
+Public Type MyRecord1
+    v1 As String
+    v2 As Long
+End Type
+
+Public Event OnChange(ByVal Text As String)
+
+Sub foo(Optional ByVal name As String = "pippo")
+End Sub
+
+Sub foo(ByVal name As String, ByRef val As Integer)
+  Dim x As Long
+  x = 4
+End Sub
+
+Private Function OneFunc(ByVal name As String, ByRef val As Integer) As Integer
+End Function
+
+Private Function NoParamFunc() As Object
+End Function
+
+Private Sub my_sub(ByRef str As String, ByVal valid As Boolean)
+End Sub
+
+Private Sub my_sub(ByRef str As String, ByVal valid As Boolean, Optional ByVal flag As Boolean = True)
+    var1.func().pnt1.X = 34
+End Sub
+
+Private Sub my_sub(ByRef str As String, Optional ByVal valid As Boolean = false)
+    ' This is comment line 1
+    ' Comment line 2
+    Set var1 = "  ciao\"
+
+    Let var2 = 54.7
+
+    var3 = Func("descr", 54.7)
+
+    str = CStr(i)
+
+    Dim var1 As String, var2 As Integer
+
+    ReDim var1(15)
+
+    Exit Function
+
+    GoSub label1
+
+    On Error Resume Next
+
+label1:
+    Call Foo(13)
+    Foo "Sea", Nothing, False
+
+    RaiseEvent OnChange("hi!")
+
+    With obj
+        ' we miss the dot notation for subroutines and functions
+        'Call Module1.foo(True, .Name)
+        Call foo(True, .Name)
+    End With
+End Sub
+
+Sub Func(ByRef obj As Canvas)
+    Dim i As Integer
+    i = 23
+    
+    Dim pnt As Point3d
+    pnt.x = 1.0
+    pnt.y = 1.2
+    ' we miss the dot notation for subroutines and functions
+    'Call obj.Plot(pnt)
+    
+    While cond(34, i)
+        Print str
+        For i = 1 To 100 Step 2
+            Dim str As String
+            str = CStr(i) 
+            Call Print(str)
+        Next i
+    Wend
+End Sub