An illustration of some old problems in Xailer

[DC]

I'm still unable to log into the Xailer Pro newsgroup. It's been like
this for years.
Not sure if this will help or not, but attached is an Xailer project,
which uses a component that fails when setting certain properties, in
Xailer.
However, when the win32ole.prg and w32ole.c source from the MiniGui
distribution are included, then the property (called CurrentReduction)
gets set fine.
If you remove the MiniGui source, and use the Xailer native ole
functionality, then it produces an error when setting the property.
Note also, that everything works fine from other non-Xbase languages, as
well.
If you need the source for the ActiveX component, or any other files,
let me know. Unfortunately, the source is in VB6.
The component is called GoldParser.dll, and is in the Zip.
--

[DC]

Sorry, I mean I'm not able to write any messages to the Pro group; it
continues to ask for a password; perhaps the id & password that I have,
are not valid for the Pro group. Am able to log in and read existing
posts, in the Pro group.

[ignacio]

DC escribió el dom, 28 julio 2013 03:14Sorry, I mean I'm not able to write any messages to the Pro group; it
continues to ask for a password; perhaps the id & password that I have,
are not valid for the Pro group. Am able to log in and read existing
posts, in the Pro group.
Fixed. Your Email was not correct.
Regards,

[ignacio]

DC escribió el dom, 28 julio 2013 03:12
Not sure if this will help or not, but attached is an Xailer project,
which uses a component that fails when setting certain properties, in
Xailer.
However, when the win32ole.prg and w32ole.c source from the MiniGui
distribution are included, then the property (called CurrentReduction)
gets set fine.
If you remove the MiniGui source, and use the Xailer native ole
functionality, then it produces an error when setting the property.
Note also, that everything works fine from other non-Xbase languages, as
well.
If you need the source for the ActiveX component, or any other files,
let me know. Unfortunately, the source is in VB6.
The component is called GoldParser.dll, and is in the Zip.
--
>>Not sure if this will help or not, but attached is an Xailer project,
>>which uses a component that fails when setting certain properties, in
>>Xailer.
It seems your forgot the attachment.
>>However, when the win32ole.prg and w32ole.c source from the MiniGui
>>distribution are included, then the property (called CurrentReduction)
>>gets set fine.
Could you include that source code too. Right now we have not modified those Harbour modules at all.
>>If you need the source for the ActiveX component, or any other files,
>>let me know. Unfortunately, the source is in VB6.
I guess your Xailer project will be a perfect sample to do some test. Please give us also all the information about the ActiveX you are using, if there is a demo version of that ActiveX.
Thank you for your feedback.
Regards,

[DC]

Same problem, asking for a password and id. Also, I did include the
attachment.
Ignacio, I think this might be a problem with my email client. I'll try
this, through the Web Interface, hang on...

[DC]

Huh. According to my email client, the attachment is in the first email
of this thread.
Anyway, it looks like it's impossible to access the Pro group, from a
desktop email client. But the Web Interface works fine, after resetting
the password. I'll just use that from here on.
Ignacio, thanks for looking at this. It's been a nightmare trying to
get several third-party Activex components working. Looking forward to
when we can finally pinpoint what's going on.
Give me a couple of minutes, I'll package up the VB source for the
ActiveX component (a modification of code by Devin Cook).

[jfgimenez]

DC,
> Not sure if this will help or not, but attached is an Xailer project,
> which uses a component that fails when setting certain properties, in
> Xailer.
>
> However, when the win32ole.prg and w32ole.c source from the MiniGui
> distribution are included, then the property (called CurrentReduction)
> gets set fine.
>
> If you remove the MiniGui source, and use the Xailer native ole
> functionality, then it produces an error when setting the property.
>
> Note also, that everything works fine from other non-Xbase languages,
> as well.
>
> If you need the source for the ActiveX component, or any other files,
> let me know. Unfortunately, the source is in VB6.
>
> The component is called GoldParser.dll, and is in the Zip.
I was dealing with this yesterday, almost all the day, without success
Xailer uses directly the OLE support built-in Harbour (before was
xHarbour), and has no own OLE support. So, the problem is related
directly to Harbour.
As I could see, the MiniGui modules was extracted from xharbour (see
copyright note) and modified by somebody (perhaps Roberto) to make it to
work for Harbour. ITOH, the Harbour module is also based on my old work
(a decade ago), but both are heavyly modified. Anyhow, I've been tracing
the code in both modules, in order to detect which differences could be
causing the problem. Sadly, I didn't find it. I'll continue researching
on it, but also we're about to decide to make our own OLE support, since
the Harbour's one seems to have some leaks. We've already fixed a few
ones, but this one seems to be very hard to fix.
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info

[DC]

You mean, you weren't able to set the property with either the Harbour
or the MiniGui module?
Ok, let me know if I can help. If you have a .c debugger that can load
Xailer apps and trace through c, please let me know about that. I could
do that with Clipper apps, with Turbo Debugger in the old days. But I
don't know how to do anything similar, with Xailer apps.

[jfgimenez]

DC,
> You mean, you weren't able to set the property with either the Harbour
> or the MiniGui module?
I cannot set it when original Harbour OLE support is enabled. By linking
the Minigui module it works. As I said, this module is based on the
xHarbour's one. In fact, it seems to be the same module, but modified to
run under Harbour.
> Ok, let me know if I can help. If you have a .c debugger that can
> load Xailer apps and trace through c, please let me know about that.
> I could do that with Clipper apps, with Turbo Debugger in the old
> days. But I don't know how to do anything similar, with Xailer apps.
Well, it doesn't help here. I managed to get even a memory dump of
variant structures passed and received from OLE. Also, I've used the
source code from Harbour to set tracepoints at desired places. So, there
is no need to run a C debugger here.
Moreover, the problem is that for some (yet unknown for me) reason,
windows OLE libraries (not Harbour nor the activex component) treat that
property as read-only, giving that error. ITOH, when xHarbour's module
is used, the property can be written. It seems that there should be some
difference at some point when using the component, but I couldn't see
it. Even if I use a C debugger, I should trace windows libraries, which
is not acceptable. The problem should be in other place. I'll continue
researching on it, but I suspect that writing our own OLE support could
be faster than locate the problem at Harbour's one.
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info

[DC]

>>Moreover, the problem is that for some (yet unknown for me) reason,
Windows OLE libraries (not Harbour nor the activex component) treat that
property as read-only, giving that error.<<
Ah, interesting.
>>ITOH, when xHarbour's module is used, the property can be written. It
seems that there should be some difference at some point when using the
component, but I couldn't see it.<<
>>Even if I use a C debugger, I should trace windows libraries, which
is not acceptable. <<
Understood. The problem is not on the level of the ole code provided
with Harbour or xHarbour.
>>The problem should be in other place. I'll continue researching on
it, but I suspect that writing our own OLE support could be faster than
locate the problem at Harbour's one.<<
Can't argue with that. Well, let me know when you're ready, I can beta
test on this side.

[DC]

' Library File: C:softwareFreewareGoldParserDCEngineSourceGoldParser.dl l
' Description :
' GUID : {CDDFD0A9-301E-4CC8-B8E6-22F3D31AF958}
' LCID : 0
' Version : 8.0
' Version Dependent ProgIDs
$PROGID_GoldParserBasic_CGTReaderCGTReader = "GoldParserBasic.CGTReader"
$PROGID_GoldParserBasic_FAEdgeFAEdge = "GoldParserBasic.FAEdge"
$PROGID_GoldParserBasic_FAStateFAState = "GoldParserBasic.FAState"
$PROGID_GoldParserBasic_GOLDParserGOLDParser = "GoldParserBasic.GOLDParser"
$PROGID_GoldParserBasic_LRActionLRAction = "GoldParserBasic.LRAction"
$PROGID_GoldParserBasic_LRActionTableLRActionTable = "GoldParserBasic.LRActionTable"
$PROGID_GoldParserBasic_NumberSetNumberSet = "GoldParserBasic.NumberSet"
$PROGID_GoldParserBasic_ObjectArrayObjectArray = "GoldParserBasic.ObjectArray"
$PROGID_GoldParserBasic_ReductionReduction = "GoldParserBasic.Reduction"
$PROGID_GoldParserBasic_RuleRule = "GoldParserBasic.Rule"
$PROGID_GoldParserBasic_SymbolSymbol = "GoldParserBasic.Symbol"
$PROGID_GoldParserBasic_TextStreamTextStream = "GoldParserBasic.TextStream"
$PROGID_GoldParserBasic_TokenToken = "GoldParserBasic.Token"
$PROGID_GoldParserBasic_TokenStackTokenStack = "GoldParserBasic.TokenStack"
' Class Identifiers
$CLSID_GoldParserBasic_CGTReader = GUID$("{286F9FA6-AFF0-4FF3-88BF-49858F50FDCA}")
$CLSID_GoldParserBasic_FAEdge = GUID$("{1423345D-68F2-4F96-93EF-DDE29905CFE9}")
$CLSID_GoldParserBasic_FAState = GUID$("{042FD049-8ADE-4AC7-AA51-BF38B1ABF7B6}")
$CLSID_GoldParserBasic_GOLDParser = GUID$("{4F8B2490-2456-4D26-8D0D-CEAB800B5617}")
$CLSID_GoldParserBasic_LRAction = GUID$("{9B9A80FC-6862-47B8-9841-9A9BE80211C7}")
$CLSID_GoldParserBasic_LRActionTable = GUID$("{8B94E3EB-EC88-45AC-BCC1-0FD0C1B6499D}")
$CLSID_GoldParserBasic_NumberSet = GUID$("{93FF88C3-22D7-4C03-8B21-367A6EF667EF}")
$CLSID_GoldParserBasic_ObjectArray = GUID$("{44D6045D-F3C6-4A59-A7C0-21137DDB8B04}")
$CLSID_GoldParserBasic_Reduction = GUID$("{2DA9160A-B153-41B4-9ACF-E71139625044}")
$CLSID_GoldParserBasic_Rule = GUID$("{B07B30BD-31A6-49CD-A765-E7DB910205F6}")
$CLSID_GoldParserBasic_Symbol = GUID$("{7FD51B14-4C47-4905-B50C-3A49FA515D39}")
$CLSID_GoldParserBasic_TextStream = GUID$("{62ECDFA1-1F99-472E-96D1-61BDF4302DDB}")
$CLSID_GoldParserBasic_Token = GUID$("{E836A781-981E-4217-B38C-8BE475F45E2F}")
$CLSID_GoldParserBasic_TokenStack = GUID$("{C680EC85-550F-4D86-AD3D-2C2AF428348E}")
' Interface Identifiers
$IID_GoldParserBasic_Int__CGTReader = GUID$("{3F811B94-5528-4EA0-B81C-F0A71932F728}")
$IID_GoldParserBasic_Int__FAEdge = GUID$("{21FAA4A7-BEDE-4104-B42E-6E2F3AA489AE}")
$IID_GoldParserBasic_Int__FAState = GUID$("{F432A70B-D057-4850-A4A5-E33568376DEE}")
$IID_GoldParserBasic_Int__GOLDParser = GUID$("{338DF355-BC53-4F0C-8B77-CC7EA4F4E2D9}")
$IID_GoldParserBasic_Int__LRAction = GUID$("{FE5D075D-7E96-4170-AFBE-D6C2292F328E}")
$IID_GoldParserBasic_Int__LRActionTable = GUID$("{2F5E98A0-6B36-4E8D-8A29-B5874950917A}")
$IID_GoldParserBasic_Int__NumberSet = GUID$("{8FF8F8E7-AB30-4FDC-A522-1952A1A88560}")
$IID_GoldParserBasic_Int__ObjectArray = GUID$("{3557A687-A4DF-469E-8F2D-FBFE99B009B0}")
$IID_GoldParserBasic_Int__Reduction = GUID$("{9AC52E46-0106-4DDE-B1F5-A6709B7738CE}")
$IID_GoldParserBasic_Int__Rule = GUID$("{92CC2D5F-AD36-4319-8C27-BCA2055607FE}")
$IID_GoldParserBasic_Int__Symbol = GUID$("{F7FFAB53-A106-4C35-ABFF-7A2E1C2A317F}")
$IID_GoldParserBasic_Int__TextStream = GUID$("{C73ABAC2-4DD3-44EA-BB9B-A9E764EAB63D}")
$IID_GoldParserBasic_Int__Token = GUID$("{8443C972-7911-4B69-BC16-6AEAB32689E6}")
$IID_GoldParserBasic_Int__TokenStack = GUID$("{838A75A9-2947-4E92-BE91-8A9D9A11D0C0}")
ENUM CGTEntryConstants
CGTEntryEmpty = 69
CGTEntryInt16 = 73
CGTEntryString = 83
CGTEntryBoolean = 66
CGTEntryByte = 98
END ENUM
ENUM CGTRecTypeConstants
CGTRecTypeParameters = 80
CGTRecTypeCounts = 84
CGTRecTypeInitial = 73
CGTRecTypeSymbol = 83
CGTRecTypeCharSet = 67
CGTRecTypeRule = 82
CGTRecTypeDFAState = 68
CGTRecTypeLRState = 76
CGTRecTypeComment = 33
END ENUM
ENUM GPMessageConstants
gpMsgTokenRead = 1
gpMsgReduction = 2
gpMsgAccept = 3
gpMsgNotLoadedError = 4
gpMsgLexicalError = 5
gpMsgSyntaxError = 6
gpMsgCommentError = 7
gpMsgInternalError = 8
gpMsgCommentBlockRead = 9
gpMsgCommentLineRead = 10
END ENUM
ENUM ActionConstants
ActionShift = 1
ActionReduce = 2
ActionGoto = 3
ActionAccept = 4
ActionError = 5
END ENUM
ENUM SymbolTypeConstants
SymbolTypeNonterminal = 0
SymbolTypeTerminal = 1
SymbolTypeWhitespace = 2
SymbolTypeEnd = 3
SymbolTypeCommentStart = 4
SymbolTypeCommentEnd = 5
SymbolTypeCommentLine = 6
SymbolTypeError = 7
END ENUM
ENUM StreamCharTypeConstants
StreamCharTypeASCII = 1
StreamCharTypeUnicodeLE = 2
StreamCharTypeUnicodeBE = 3
END ENUM
ENUM StreamFileModeConstants
StreamFileModeRead = 1
StreamFileModeWrite = 2
StreamFileModeAppend = 3
END ENUM
' Interface Name : Int__CGTReader
' Class Name : CGTReader
' ClassID : $CLSID_GoldParserBasic_CGTReader
' Version ProgID : $PROGID_GoldParserBasic_CGTReaderCGTReader
INTERFACE Int__CGTReader $IID_GoldParserBasic_Int__CGTReader
INHERIT IDISPATCH
METHOD ErrorDescription <1610809345> () AS WSTRING
METHOD RetrieveDone <1610809346> () AS INTEGER
METHOD RetrieveNext <1610809347> () AS VARIANT
METHOD Store <1610809348> (BYVAL Variables AS DWORD)
METHOD CLEAR <1610809349> ()
METHOD CloseFile <1610809350> ()
METHOD EntryCount <1610809351> () AS INTEGER
METHOD EOF <1610809352> () AS INTEGER
METHOD Entry <1610809353> (BYVAL Index AS INTEGER) AS VARIANT
METHOD OpenFile <1610809354> (BYREF INOUT FileName AS WSTRING, BYREF INOUT Mode AS WSTRING) AS INTEGER
METHOD EndRecord <1610809365> () AS INTEGER
METHOD GetNextRecord <1610809366> () AS INTEGER
PROPERTY GET RecordType <1745027072> () AS LONG
PROPERTY SET RecordType <1745027072> (BYREF Rhs AS LONG)
END INTERFACE
' Interface Name : Int__FAEdge
' Class Name : FAEdge
' ClassID : $CLSID_GoldParserBasic_FAEdge
' Version ProgID : $PROGID_GoldParserBasic_FAEdgeFAEdge
INTERFACE Int__FAEdge $IID_GoldParserBasic_Int__FAEdge
INHERIT IDISPATCH
PROPERTY GET Characters <1073938432> () AS Int__NumberSet
METHOD Hidden1()
PROPERTY SET PutRef_Characters <1073938432> (BYVAL Characters AS Int__NumberSet)
PROPERTY GET SetIndex <1073938433> () AS INTEGER
PROPERTY SET SetIndex <1073938433> (BYVAL SetIndex AS INTEGER)
PROPERTY GET Target <1073938434> () AS INTEGER
PROPERTY SET Target <1073938434> (BYVAL PB_Target AS INTEGER)
END INTERFACE
' Interface Name : Int__FAState
' Class Name : FAState
' ClassID : $CLSID_GoldParserBasic_FAState
' Version ProgID : $PROGID_GoldParserBasic_FAStateFAState
INTERFACE Int__FAState $IID_GoldParserBasic_Int__FAState
INHERIT IDISPATCH
PROPERTY GET AcceptList <1073938433> () AS Int__NumberSet
METHOD Hidden1()
PROPERTY SET PutRef_AcceptList <1073938433> (BYVAL AcceptList AS Int__NumberSet)
PROPERTY GET TableIndex <1073938434> () AS INTEGER
PROPERTY SET TableIndex <1073938434> (BYVAL TableIndex AS INTEGER)
PROPERTY GET AcceptSymbol <1745027072> () AS INTEGER
PROPERTY SET AcceptSymbol <1745027072> (BYREF Rhs AS INTEGER)
METHOD AddEdge <1610809345> (BYREF INOUT Characters AS Int__NumberSet, BYVAL TheTarget AS INTEGER, OPT BYREF INOUT _
SetIndex AS INTEGER)
METHOD Edge <1610809346> (BYVAL Index AS LONG) AS Int__FAEdge
METHOD EdgeCount <1610809347> () AS INTEGER
END INTERFACE
' Interface Name : Int__GOLDParser
' Class Name : GOLDParser
' ClassID : $CLSID_GoldParserBasic_GOLDParser
' Version ProgID : $PROGID_GoldParserBasic_GOLDParserGOLDParser
INTERFACE Int__GOLDParser $IID_GoldParserBasic_Int__GOLDParser
INHERIT IDISPATCH
PROPERTY GET CurrentComment <1745027075> () AS WSTRING
METHOD CurrentLineNumber <1610809348> () AS LONG
METHOD CurrentColumnNumber <1610809349> () AS LONG
METHOD CloseFile <1610809350> ()
METHOD CurrentToken <1610809351> () AS Int__Token
METHOD PopInputToken <1610809353> () AS Int__Token
METHOD PushInputToken <1610809355> (BYREF INOUT TheToken AS Int__Token)
PROPERTY GET CurrentReduction <1745027074> () AS IDISPATCH
PROPERTY SET PutRef_CurrentReduction <1745027074> (BYREF Rhs AS IDISPATCH)
METHOD ShowAboutWindow <1610809358> ()
METHOD CLEAR <1610809359> ()
PROPERTY SET TrimReductions <1745027073> (BYREF Rhs AS INTEGER)
PROPERTY GET TrimReductions <1745027073> () AS INTEGER
PROPERTY GET Parameter <1745027072> (BYVAL PB_Name AS WSTRING) AS WSTRING
METHOD SymbolTableCount <1610809362> () AS INTEGER
METHOD RuleTableCount <1610809363> () AS INTEGER
METHOD SymbolTableEntry <1610809364> (BYVAL Index AS INTEGER) AS Int__Symbol
METHOD RuleTableEntry <1610809365> (BYVAL Index AS INTEGER) AS Int__Rule
METHOD TokenCount <1610809366> () AS INTEGER
METHOD Tokens <1610809367> (BYVAL Index AS INTEGER) AS Int__Token
METHOD LoadCompiledGrammar <1610809368> (BYREF INOUT FileName AS WSTRING) AS INTEGER
METHOD OpenTextString <1610809369> (BYREF INOUT Text AS WSTRING) AS INTEGER
METHOD PARSE <1610809370> () AS LONG
METHOD OpenFile <1610809372> (BYVAL FileName AS WSTRING, OPT BYVAL DetectEncodingFromByteOrderMarks AS VARIANT) AS _
INTEGER
METHOD RESET <1610809373> ()
END INTERFACE
' Interface Name : Int__LRAction
' Class Name : LRAction
' ClassID : $CLSID_GoldParserBasic_LRAction
' Version ProgID : $PROGID_GoldParserBasic_LRActionLRAction
INTERFACE Int__LRAction $IID_GoldParserBasic_Int__LRAction
INHERIT IDISPATCH
PROPERTY GET Action <1073938433> () AS LONG
PROPERTY SET Action <1073938433> (BYVAL Action AS LONG)
PROPERTY GET Value <1073938434> () AS INTEGER
PROPERTY SET Value <1073938434> (BYVAL Value AS INTEGER)
METHOD PutRef_Symbol <1745027072> (BYREF INOUT Rhs AS Int__Symbol)
PROPERTY GET Symbol <1745027072> () AS Int__Symbol
METHOD SymbolIndex <1610809345> () AS INTEGER
END INTERFACE
' Interface Name : Int__LRActionTable
' Class Name : LRActionTable
' ClassID : $CLSID_GoldParserBasic_LRActionTable
' Version ProgID : $PROGID_GoldParserBasic_LRActionTableLRActionTable
INTERFACE Int__LRActionTable $IID_GoldParserBasic_Int__LRActionTable
INHERIT IDISPATCH
METHOD ActionIndexForSymbol <1610809344> (BYREF INOUT SymbolIndex AS INTEGER) AS INTEGER
METHOD AddItem <1610809345> (BYREF INOUT TheSymbol AS Int__Symbol, BYREF INOUT Action AS LONG, BYREF INOUT Value AS _
INTEGER)
METHOD COUNT <1610809346> () AS INTEGER
METHOD ITEM <1610809347> (BYVAL n AS INTEGER) AS Int__LRAction
END INTERFACE
' Interface Name : Int__NumberSet
' Class Name : NumberSet
' ClassID : $CLSID_GoldParserBasic_NumberSet
' Version ProgID : $PROGID_GoldParserBasic_NumberSetNumberSet
INTERFACE Int__NumberSet $IID_GoldParserBasic_Int__NumberSet
INHERIT IDISPATCH
METHOD CLEAR <1610809344> ()
METHOD COUNT <1610809345> () AS LONG
METHOD HasMember <1610809346> (BYREF INOUT Number AS INTEGER) AS INTEGER
PROPERTY GET MEMBER <0> (BYVAL Index AS LONG) AS LONG
PROPERTY SET MEMBER <0> (BYVAL Index AS LONG, BYREF Rhs AS LONG)
METHOD Add <1610809348> (BYVAL Number AS INTEGER)
END INTERFACE
' Interface Name : Int__ObjectArray
' Class Name : ObjectArray
' ClassID : $CLSID_GoldParserBasic_ObjectArray
' Version ProgID : $PROGID_GoldParserBasic_ObjectArrayObjectArray
INTERFACE Int__ObjectArray $IID_GoldParserBasic_Int__ObjectArray
INHERIT IDISPATCH
METHOD CLEAR <1610809345> ()
METHOD COUNT <1610809346> () AS LONG
PROPERTY GET MEMBER <1745027072> (BYVAL Index AS LONG) AS IDISPATCH
PROPERTY SET MEMBER <1745027072> (BYVAL Index AS LONG, BYREF Rhs AS IDISPATCH)
PROPERTY SET PutRef_Member <1745027072> (BYVAL Index AS LONG, BYREF Rhs AS IDISPATCH)
METHOD Add <1610809347> (BYREF INOUT Obj AS IDISPATCH)
METHOD IsEqual <1610809348> (BYREF INOUT Obj AS Int__ObjectArray) AS INTEGER
METHOD Pop <1610809349> () AS IDISPATCH
METHOD ReDimension <1610809350> (BYVAL NewCount AS LONG)
END INTERFACE
' Interface Name : Int__Reduction
' Class Name : Reduction
' ClassID : $CLSID_GoldParserBasic_Reduction
' Version ProgID : $PROGID_GoldParserBasic_ReductionReduction
INTERFACE Int__Reduction $IID_GoldParserBasic_Int__Reduction
INHERIT IDISPATCH
PROPERTY GET ParentRule <1745027074> () AS Int__Rule
PROPERTY SET Tag <1745027073> (BYREF Rhs AS INTEGER)
PROPERTY GET Tag <1745027073> () AS INTEGER
PROPERTY GET TokenCount <1745027075> () AS INTEGER
PROPERTY GET Tokens <1745027072> (BYREF Index AS INTEGER) AS Int__Token
END INTERFACE
' Interface Name : Int__Rule
' Class Name : Rule
' ClassID : $CLSID_GoldParserBasic_Rule
' Version ProgID : $PROGID_GoldParserBasic_RuleRule
INTERFACE Int__Rule $IID_GoldParserBasic_Int__Rule
INHERIT IDISPATCH
PROPERTY GET SymbolCount <1745027075> () AS INTEGER
PROPERTY GET RuleNonterminal <1745027074> () AS Int__Symbol
PROPERTY GET Symbols <1745027073> (BYREF Index AS INTEGER) AS Int__Symbol
PROPERTY GET TableIndex <1745027072> () AS INTEGER
METHOD TEXT <1610809353> () AS WSTRING
END INTERFACE
' Interface Name : Int__Symbol
' Class Name : Symbol
' ClassID : $CLSID_GoldParserBasic_Symbol
' Version ProgID : $PROGID_GoldParserBasic_SymbolSymbol
INTERFACE Int__Symbol $IID_GoldParserBasic_Int__Symbol
INHERIT IDISPATCH
PROPERTY GET Kind <1745027075> () AS LONG
PROPERTY GET TableIndex <1745027074> () AS INTEGER
PROPERTY GET NAME <1745027073> () AS WSTRING
PROPERTY GET TEXT <1745027072> () AS WSTRING
END INTERFACE
' Interface Name : Int__TextStream
' Class Name : TextStream
' ClassID : $CLSID_GoldParserBasic_TextStream
' Version ProgID : $PROGID_GoldParserBasic_TextStreamTextStream
INTERFACE Int__TextStream $IID_GoldParserBasic_Int__TextStream
INHERIT IDISPATCH
PROPERTY GET CharType <1745027073> () AS LONG
PROPERTY SET CharType <1745027073> (BYVAL Rhs AS LONG)
METHOD EOF <1610809347> () AS INTEGER
METHOD ErrorCode <1610809348> () AS LONG
METHOD ErrorText <1610809349> () AS WSTRING
METHOD IsFileOpen <1610809352> () AS INTEGER
METHOD CloseFile <1610809353> ()
METHOD OpenFile <1610809354> (BYVAL FileName AS WSTRING, BYVAL Mode AS LONG, OPT BYVAL CharType AS LONG, OPT BYVAL _
UseByteOrderMarks AS INTEGER) AS INTEGER
METHOD ReadText <1610809355> (OPT BYVAL Length AS INTEGER) AS WSTRING
METHOD WriteText <1610809356> (BYREF INOUT Text AS WSTRING)
METHOD WriteLine <1610809357> (OPT BYREF INOUT Text AS WSTRING)
METHOD NextCharacter <1610809364> () AS WSTRING
PROPERTY GET TEXT <1745027072> () AS WSTRING
PROPERTY SET TEXT <1745027072> (BYREF Rhs AS WSTRING)
METHOD ReadLine <1610809366> () AS WSTRING
END INTERFACE
' Interface Name : Int__Token
' Class Name : Token
' ClassID : $CLSID_GoldParserBasic_Token
' Version ProgID : $PROGID_GoldParserBasic_TokenToken
INTERFACE Int__Token $IID_GoldParserBasic_Int__Token
INHERIT IDISPATCH
PROPERTY GET ColumnNumber <1745027080> () AS LONG
PROPERTY SET ColumnNumber <1745027080> (BYVAL Rhs AS LONG)
PROPERTY GET LineNumber <1745027079> () AS LONG
PROPERTY SET LineNumber <1745027079> (BYVAL Rhs AS LONG)
PROPERTY GET Kind <1745027078> () AS LONG
PROPERTY GET NAME <1745027077> () AS WSTRING
PROPERTY GET ParentSymbol <1745027076> () AS Int__Symbol
PROPERTY GET PropGet__Data <1745027075> () AS VARIANT
PROPERTY SET PropSet__Data <1745027075> (BYREF Rhs AS VARIANT)
PROPERTY SET PutRef__Data <1745027075> (BYREF Rhs AS VARIANT)
METHOD PutRef_ParentSymbol <1745027076> (BYREF INOUT Rhs AS Int__Symbol)
PROPERTY GET TableIndex <1745027074> () AS INTEGER
PROPERTY GET TEXT <1745027073> () AS WSTRING
END INTERFACE
' Interface Name : Int__TokenStack
' Class Name : TokenStack
' ClassID : $CLSID_GoldParserBasic_TokenStack
' Version ProgID : $PROGID_GoldParserBasic_TokenStackTokenStack
INTERFACE Int__TokenStack $IID_GoldParserBasic_Int__TokenStack
INHERIT IDISPATCH
METHOD CLEAR <1610809346> ()
PROPERTY GET COUNT <1745027073> () AS LONG
PROPERTY GET MEMBER <1745027072> (BYVAL Index AS LONG) AS Int__Token
METHOD PutRef_Member <1745027072> (BYVAL Index AS LONG, BYREF INOUT Rhs AS Int__Token)
METHOD Push <1610809347> (BYREF INOUT TheToken AS Int__Token)
METHOD Pop <1610809348> () AS Int__Token
METHOD Top <1610809349> () AS Int__Token
END INTERFACE
--