Changeset 670

Timestamp:

2009/01/03 23:24:37 (3 years ago)

Author:

egtra

Message:

mlang.abの完成。objidl.sbp、oleidl.abの追加。
(#227)

Location:

trunk/ab5.0/ablib/src

Files:

• basic.sbp (modified) (1 diff)
• mlang.ab (added)
• objidl.sbp (modified) (5 diffs)
• oleidl.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/basic.sbp

@@ -115 +115 @@
 
 #require <windows.sbp>
+#require <mlang.ab>
 #require <crt.sbp>
 

trunk/ab5.0/ablib/src/objidl.sbp

@@ -170 +170 @@
 /* interface AsyncIMultiQI */
 /* [uuid][local][object] */
-
 
 Dim IID_AsyncIMultiQI = [&h000e0020, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
@@ -709 +708 @@
 End Interface
 
+/* interface IEnumFORMATETC */
+/* [unique][uuid][object] */
+
 Type DVTARGETDEVICE
     tdSize As DWord
@@ -730 +732 @@
 TypeDef LPFORMATETC = *FORMATETC
 
+Dim IID_IEnumFORMATETC = [&h00000103, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
+
 Interface IEnumFORMATETC
     Inherits IUnknown
-End Interface
+
+    /* [local] */ Function Next_(
+        /* [in] */ celt As DWord,
+        /* [length_is][size_is][out] */ rgelt As *FORMATETC,
+        /* [out] */ ByRef celtFetched As DWord) As HRESULT
+    Function Skip(
+        /* [in] */ celt As DWord) As HRESULT
+    Function Reset() As HRESULT
+    Function Clone(
+        /* [out] */ ByRef penum As *IEnumFORMATETC) As HRESULT
+End Interface
+
+/* interface IEnumSTATDATA */
+/* [unique][uuid][object] */
+
+Const Enum ADVF
+    ADVF_NODATA = 1
+    ADVF_PRIMEFIRST = 2
+    ADVF_ONLYONCE = 4
+    ADVF_DATAONSTOP = 64
+    ADVFCACHE_NOHANDLER = 8
+    ADVFCACHE_FORCEBUILTIN = 16
+    ADVFCACHE_ONSAVE = 32
+End Enum
+
+Type STATDATA
+    formatetc As FORMATETC
+    DWORD advf As DWord
+    pAdvSink As IAdviseSink
+    dwConnection As DWord
+End Type
+
+Dim IID_IEnumSTATDATA = [&h00000105, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
 
 Interface IEnumSTATDATA
     Inherits IUnknown
+
+    /* [local] */ Function Next_(
+        /* [in] */ celt As DWord,
+        /* [length_is][size_is][out] */ rgelt As *STATDATA,
+        /* [out] */ ByRef celtFetched As DWord) As HRESULT
+    Function Skip(
+        /* [in] */ celt As DWord) As HRESULT
+    Function Reset() As HRESULT
+    Function Clone(
+        /* [out] */ ByRef penum As *IEnumSTATDATA) As HRESULT
 End Interface
 
@@ -836 +882 @@
 
     /* [local] */ Sub OnDataChange(
-        /* [unique][in] */ ByRef Formatetc As FORMATETC,
-        /* [unique][in] */ ByRef Stgmed As STGMEDIUM)
+        /* [unique][in] */ pFormatetc As *FORMATETC,
+        /* [unique][in] */ pStgmed As *STGMEDIUM)
     /* [local] */ Sub OnViewChange(
         /* [in] */ dwAspect As DWord,
@@ -847 +893 @@
 End Interface
 
-' AsyncIAdviseSink
+/* interface AsyncIAdviseSink */
+/* [uuid][unique][object] */
+
+Dim IID_AsyncIAdviseSink = [&h00000150, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
+
+Interface AsyncIAdviseSink
+    Inherits IUnknown
+
+    /* [local] */ Sub Begin_OnDataChange(
+        /* [unique][in] */ pFormatetc As *FORMATETC,
+        /* [unique][in] */ pStgmed As *STGMEDIUM)
+    /* [local] */ Sub Finish_OnDataChange()
+    /* [local] */ Sub Begin_OnViewChange(
+        /* [in] */ dwAspect As DWord,
+        /* [in] */ lindex As Long)
+    /* [local] */ Sub Finish_OnViewChange()
+    /* [local] */ Sub Begin_OnRename(
+        /* [in] */ mk As IMoniker)
+    /* [local] */ Sub Finish_OnRename()
+    /* [local] */ Sub Begin_OnSave()
+    /* [local] */ Sub Finish_OnSave()
+    /* [local] */ Sub Begin_OnClose()
+    /* [local] */ Sub Finish_OnClose()
+End Interface
 
 ' IAdviseSink2

trunk/ab5.0/ablib/src/oleidl.ab

@@ -20 +20 @@
 End Interface
 
-'IOleCache
+/* interface IOleCache */
+/* [unique][uuid][object] */ 
+
+Dim IID_IOleCache = [&h0000011e, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
+
+Interface IOleCache
+    Inherits IUnknown
+
+    Function Cache( 
+        /* [unique][in] */ pformatetc As *FORMATETC,
+        /* [in] */ advf As DWord,
+        /* [out] */ ByRef dwConnection As DWord) As HRESULT
+    Function Uncache( 
+        /* [in] */ dwConnection As DWord) As HRESULT
+    Function EnumCache( 
+        /* [out] */ ByRef enumSTATDATA As IEnumSTATDATA) As HRESULT
+    Function InitCache( 
+        /* [unique][in] */ DataObject As IDataObject) As HRESULT
+    Function SetData( 
+        /* [unique][in] */ pformatetc As *FORMATETC,
+        /* [unique][in] */ pmedium As *STGMEDIUM,
+        /* [in] */ fRelease As BOOL) As HRESULT
+End Interface
+
 'IOleCache2
 'IOleCacheControl
@@ -60 +83 @@
 End Enum
 
-Dim IID_IOleClientSite = [&h00000118, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
+Dim IID_IOleClientSite = [&h00000118, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
 Interface IOleClientSite
     Inherits IUnknown