Attribute VB_Name = "IIHelpers"
Public Enum ItemTypes
    cnSTRING = 0
    cnINTEGER = 1
    cnOBJECT = 2
    cnFUNCTION = 3
    cnCLASS = 4
    cnCOMMENT = 5
    cnCONSTANT = 6
    cnARRAY = 7
    cnPROPERTY = 8
    cnATTRIBUTE = 9
    cnSERIAL = 10
    cnRELEASE = 11
    cnINCLUDE = 12
    cnGRAMMAR = 13
    cnEND = 14
    cnSTRING_ARRAY = 15
    cnNUMERIC_ARRAY = 16
    cnNUMERIC = 17
    cnIDENTIFIER = 18
    cnIDENTIFIER_ARRAY = 19
End Enum


Public Type PropertyType
    Name As String
    Type As Integer
    Code As String
End Type

Public Type DefType
    Name As String
End Type

Public Type ObjectType
    Name As String
    ShortName As String ' null if missing or property assignment
    ClassName As String
    Parent As ObjectType
    Properties() As PropertyType
    Attributes() As String
    Code As String
End Type

Public Type GCType
    Name As String
    Type As Integer
    Value As String
End Type

Public Type FunctionType
    Name As String
    Code As String
End Type

Public Type ArrayType
    Name As String
    Text As String
End Type

Public Type GrammarType
    Type As Integer
    First As Boolean
    Definition As String
    FunctionName As String
End Type

Public Type ItemType
    Type As Integer
    Comments() As String ' anything preceding item
    Code As String
End Type


Public Const cnVERB = 0
Public Const cnEXTEND = 1