:: IStream-unlock-region ( stream offset cb lock-type -- hresult )\r
STG_E_INVALIDFUNCTION ;\r
\r
-FROM: io.ports => tell-handle ;\r
:: stream-size ( stream -- size )\r
stream stream-tell :> old-pos\r
0 seek-end stream stream-seek\r
- stream handle>> tell-handle :> size\r
+ stream stream-tell :> size\r
old-pos seek-absolute stream stream-seek\r
size ;\r
\r