new vocab windows.streams: COM IStream wrapper for factor streams

[factor.git] / basis / windows / com / com.factor

diff --git a/basis/windows/com/com.factor b/basis/windows/com/com.factor
index b69189786ffa9763a771732fa6ec79c94546a7bc..46ae1ae154d1a07b0d3754ea4de83436ee1e6c8b 100644 (file)
--- a/basis/windows/com/com.factor
+++ b/basis/windows/com/com.factor
@@ -48,6 +48,12 @@ STRUCT: STATSTG
     { grfStateBits DWORD }
     { reserved DWORD } ;
 
+CONSTANT: STGM_READ 0
+CONSTANT: STGM_WRITE 1
+CONSTANT: STGM_READWRITE 2
+
+CONSTANT: STG_E_INVALIDFUNCTION HEX: 80030001
+
 CONSTANT: STGTY_STORAGE   1
 CONSTANT: STGTY_STREAM    2
 CONSTANT: STGTY_LOCKBYTES 3
@@ -61,10 +67,12 @@ CONSTANT: LOCK_WRITE     1
 CONSTANT: LOCK_EXCLUSIVE 2
 CONSTANT: LOCK_ONLYONCE  4
 
+CONSTANT: GUID_NULL GUID: {00000000-0000-0000-0000-000000000000}
+
 COM-INTERFACE: IStream ISequentialStream {0000000C-0000-0000-C000-000000000046}
     HRESULT Seek ( LARGE_INTEGER dlibMove, DWORD dwOrigin, ULARGE_INTEGER* plibNewPosition )
     HRESULT SetSize ( ULARGE_INTEGER* libNewSize )
-    HRESULT CopyTo ( IStream* pstm, ULARGE_INTEGER* cb, ULARGE_INTEGER* pcbRead, ULARGE_INTEGER* pcbWritten )
+    HRESULT CopyTo ( IStream* pstm, ULARGE_INTEGER cb, ULARGE_INTEGER* pcbRead, ULARGE_INTEGER* pcbWritten )
     HRESULT Commit ( DWORD grfCommitFlags )
     HRESULT Revert ( )
     HRESULT LockRegion ( ULARGE_INTEGER libOffset, ULARGE_INTEGER cb, DWORD dwLockType )