home *** CD-ROM | disk | FTP | other *** search
- // This describes the library GCDLib
- [
- uuid (33B0ECE0-E706-11cf-A0C2-00AA00A71DD8),
- version (1.0),
- helpstring("GCDLib 1.0 Type Library")
- ]
- library GCDLib
- {
- // GCDLib imports the interfaces, classes, structures,
- // types, and so forth from STDOLE32.TLB.
- importlib("stdole32.tlb");
-
- // This describes the interface IGCD, a dispinterface.
- // A dispinterface is an IDispatch-type interface.
- [
- uuid (33B0ECE1-E706-11cf-A0C2-00AA00A71DD8),
- helpstring("IGCD Interface")
- ]
- dispinterface IGCD
- {
- properties:
- methods:
- // The single method exported by the interface
- [id(1)]long GCD([in] long v, [in] long u);
- }
-
- // The coclass that implements the interface
- [
- uuid (33B0ECE2-E706-11cf-A0C2-00AA00A71DD8),
- helpstring("Euclid Class")
- ]
- coclass CEuclid
- {
- dispinterface IGCD;
- };
- };
-
-