Attribute VB_Name = "ModLoParser"
' -------------------------------------
' VB2Cpp - Visual Basic to C++ translator.
' Copyright (C) 2002-2003 Franck Charlet.
'
' VB2Cpp is free software; you can redistribute it and/or modify
' it under the terms of the GNU General Public License as published by
' the Free Software Foundation; either version 2, or (at your option)
' any later version.
'
' VB2Cpp is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.
'
' You should have received a copy of the GNU General Public License
' along with VB2Cpp; see the file Copying.txt.  If not, write to
' the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
' Boston, MA 02111-1307, USA.
' -------------------------------------
' Low level parsing functions
' -------------------------------------

Option Explicit

' --- Constants --- '
Global Const VAR_NULL = 0
Global Const VAR_INTEGER = 1
Global Const VAR_LONG = 2
Global Const VAR_STRING = 3
Global Const VAR_BOOLEAN = 4
Global Const VAR_BYTE = 5
Global Const VAR_CUSTOM = 6
Global Const VAR_DOUBLE = 7
Global Const VAR_ANY = 8
Global Const VAR_INSIDELONG = 9
Global Const VAR_INSIDEDOUBLE = 10
Global Const VAR_INSIDEBOOLEAN = 11
Global Const VAR_SINGLE = 12

Global Const VAR_BYVAL = 0
Global Const VAR_BYREF = 1

Global Const VARTYPE_NORM = 0
Global Const VARTYPE_ARG = 1
Global Const VARTYPE_USER = 2

Global Const CONST_UNDEF = VAR_NULL
Global Const CONST_STRING = VAR_STRING
Global Const CONST_ENUM = -1

Global Const BOL_TRUE = -1
Global Const BOL_FALSE = 0

Global Const VARSEARCH_NOCOHERENCY = 0
Global Const VARSEARCH_LOCALGLOBAL = 1
Global Const VARSEARCH_LOCALONLY = 2

' --- Arrays --- '
Public VariablesA() As String
Public VariablesB() As String
Public VariablesC() As String
Public VariablesD() As String
Public VariablesE() As String
Public VariablesF() As String
Public VariablesG() As String
Public VariablesH() As String
Public VariablesI() As String
Public VariablesJ() As String
Public VariablesK() As String
Public VariablesL() As String
Public VariablesM() As String
Public VariablesN() As String
Public VariablesO() As String
Public VariablesP() As String
Public VariablesQ() As String
Public VariablesR() As String
Public VariablesS() As String
Public VariablesT() As String
Public VariablesU() As String
Public VariablesV() As String
Public VariablesW() As String
Public VariablesX() As String
Public VariablesY() As String
Public VariablesZ() As String
Public VariablesElse() As String
Public VariablesIndexA() As Long
Public VariablesIndexB() As Long
Public VariablesIndexC() As Long
Public VariablesIndexD() As Long
Public VariablesIndexE() As Long
Public VariablesIndexF() As Long
Public VariablesIndexG() As Long
Public VariablesIndexH() As Long
Public VariablesIndexI() As Long
Public VariablesIndexJ() As Long
Public VariablesIndexK() As Long
Public VariablesIndexL() As Long
Public VariablesIndexM() As Long
Public VariablesIndexN() As Long
Public VariablesIndexO() As Long
Public VariablesIndexP() As Long
Public VariablesIndexQ() As Long
Public VariablesIndexR() As Long
Public VariablesIndexS() As Long
Public VariablesIndexT() As Long
Public VariablesIndexU() As Long
Public VariablesIndexV() As Long
Public VariablesIndexW() As Long
Public VariablesIndexX() As Long
Public VariablesIndexY() As Long
Public VariablesIndexZ() As Long
Public VariablesIndexElse() As Long
Public VariablesTypes() As Long
Public VariablesDeclare() As String
Public VariablesRoot() As String
Public VariablesArg() As Boolean
Public VariablesUser() As Long
Public VariablesLocalFunction() As String
Public VariablesUndefArr() As Boolean
Public VariablesSizedString() As String
Public VariablesArr() As Boolean
Public ConstantsA() As String
Public ConstantsB() As String
Public ConstantsC() As String
Public ConstantsD() As String
Public ConstantsE() As String
Public ConstantsF() As String
Public ConstantsG() As String
Public ConstantsH() As String
Public ConstantsI() As String
Public ConstantsJ() As String
Public ConstantsK() As String
Public ConstantsL() As String
Public ConstantsM() As String
Public ConstantsN() As String
Public ConstantsO() As String
Public ConstantsP() As String
Public ConstantsQ() As String
Public ConstantsR() As String
Public ConstantsS() As String
Public ConstantsT() As String
Public ConstantsU() As String
Public ConstantsV() As String
Public ConstantsW() As String
Public ConstantsX() As String
Public ConstantsY() As String
Public ConstantsZ() As String
Public ConstantsElse() As String
Public ConstantsIndexA() As Long
Public ConstantsIndexB() As Long
Public ConstantsIndexC() As Long
Public ConstantsIndexD() As Long
Public ConstantsIndexE() As Long
Public ConstantsIndexF() As Long
Public ConstantsIndexG() As Long
Public ConstantsIndexH() As Long
Public ConstantsIndexI() As Long
Public ConstantsIndexJ() As Long
Public ConstantsIndexK() As Long
Public ConstantsIndexL() As Long
Public ConstantsIndexM() As Long
Public ConstantsIndexN() As Long
Public ConstantsIndexO() As Long
Public ConstantsIndexP() As Long
Public ConstantsIndexQ() As Long
Public ConstantsIndexR() As Long
Public ConstantsIndexS() As Long
Public ConstantsIndexT() As Long
Public ConstantsIndexU() As Long
Public ConstantsIndexV() As Long
Public ConstantsIndexW() As Long
Public ConstantsIndexX() As Long
Public ConstantsIndexY() As Long
Public ConstantsIndexZ() As Long
Public ConstantsIndexElse() As Long
Public ConstantsValues() As String
Public ConstantsTypes() As Long
Public ConstantsEnum() As String
Public FunctionsA() As String
Public FunctionsB() As String
Public FunctionsC() As String
Public FunctionsD() As String
Public FunctionsE() As String
Public FunctionsF() As String
Public FunctionsG() As String
Public FunctionsH() As String
Public FunctionsI() As String
Public FunctionsJ() As String
Public FunctionsK() As String
Public FunctionsL() As String
Public FunctionsM() As String
Public FunctionsN() As String
Public FunctionsO() As String
Public FunctionsP() As String
Public FunctionsQ() As String
Public FunctionsR() As String
Public FunctionsS() As String
Public FunctionsT() As String
Public FunctionsU() As String
Public FunctionsV() As String
Public FunctionsW() As String
Public FunctionsX() As String
Public FunctionsY() As String
Public FunctionsZ() As String
Public FunctionsElse() As String
Public FunctionsIndexA() As Long
Public FunctionsIndexB() As Long
Public FunctionsIndexC() As Long
Public FunctionsIndexD() As Long
Public FunctionsIndexE() As Long
Public FunctionsIndexF() As Long
Public FunctionsIndexG() As Long
Public FunctionsIndexH() As Long
Public FunctionsIndexI() As Long
Public FunctionsIndexJ() As Long
Public FunctionsIndexK() As Long
Public FunctionsIndexL() As Long
Public FunctionsIndexM() As Long
Public FunctionsIndexN() As Long
Public FunctionsIndexO() As Long
Public FunctionsIndexP() As Long
Public FunctionsIndexQ() As Long
Public FunctionsIndexR() As Long
Public FunctionsIndexS() As Long
Public FunctionsIndexT() As Long
Public FunctionsIndexU() As Long
Public FunctionsIndexV() As Long
Public FunctionsIndexW() As Long
Public FunctionsIndexX() As Long
Public FunctionsIndexY() As Long
Public FunctionsIndexZ() As Long
Public FunctionsIndexElse() As Long
Public FunctionsDeclare() As String
Public FunctionsArgumentsTypes() As String
Public FunctionsArgumentsTypesLit() As String
Public FunctionsArgumentsByRef() As String
Public FunctionsReturnType() As Long
Public FunctionsSuffix() As String
Public FunctionsVarArr() As Boolean
Public FunctionsLiteralReturn() As String
Public FunctionsOptionalTokens() As String
Public FunctionsDeclared() As Boolean
Public FunctionsFoot() As String
Public ProtoTypes() As String
Public ProtoTypesValid() As Boolean
Public IncludeModules() As String
Public IncludeVBModules() As String
Public UserTypes() As String
Public UserTypesDeclare() As String
Public UserEnums() As String
Public UserEnumsDeclare() As String
Public VariableArrays() As String
Public VariableArraysType() As Long
Public VariableArraysCustType() As String
Public VariableArraysNested() As String
Public ExternDll() As String

' --- Variables --- '
Public SimpleHexType As Integer
Public NumberSuffix As Integer
Public FoundBooleanInside As Boolean
Public BoolValue As Integer
Public CurrentReadLine As String
Public CurrentPosLine As Long
Public CurrentChar As String
Public CurrentEntity As String
Public CurrentExpr As String
Public SaveCurrentReadLine As String
Public SaveCurrentEntity As String
Public SaveCurrentChar As String
Public SaveCurrentPosLine As Long
Public SplitArrayName As String

' --- Initialize arrays --- '
Public Sub InitWorkingArrays()
    ReDim ModulesArray(0)
    ReDim VariablesA(0)
    ReDim VariablesB(0)
    ReDim VariablesC(0)
    ReDim VariablesD(0)
    ReDim VariablesE(0)
    ReDim VariablesF(0)
    ReDim VariablesG(0)
    ReDim VariablesH(0)
    ReDim VariablesI(0)
    ReDim VariablesJ(0)
    ReDim VariablesK(0)
    ReDim VariablesL(0)
    ReDim VariablesM(0)
    ReDim VariablesN(0)
    ReDim VariablesO(0)
    ReDim VariablesP(0)
    ReDim VariablesQ(0)
    ReDim VariablesR(0)
    ReDim VariablesS(0)
    ReDim VariablesT(0)
    ReDim VariablesU(0)
    ReDim VariablesV(0)
    ReDim VariablesW(0)
    ReDim VariablesX(0)
    ReDim VariablesY(0)
    ReDim VariablesZ(0)
    ReDim VariablesElse(0)
    ReDim VariablesIndexA(0)
    ReDim VariablesIndexB(0)
    ReDim VariablesIndexC(0)
    ReDim VariablesIndexD(0)
    ReDim VariablesIndexE(0)
    ReDim VariablesIndexF(0)
    ReDim VariablesIndexG(0)
    ReDim VariablesIndexH(0)
    ReDim VariablesIndexI(0)
    ReDim VariablesIndexJ(0)
    ReDim VariablesIndexK(0)
    ReDim VariablesIndexL(0)
    ReDim VariablesIndexM(0)
    ReDim VariablesIndexN(0)
    ReDim VariablesIndexO(0)
    ReDim VariablesIndexP(0)
    ReDim VariablesIndexQ(0)
    ReDim VariablesIndexR(0)
    ReDim VariablesIndexS(0)
    ReDim VariablesIndexT(0)