Changeset 150
- Timestamp:
- Mar 11, 2007, 1:11:46 PM (18 years ago)
- Location:
- Include
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/OAIdl.ab
r137 r150 21 21 Const VARIANT_FALSE = (0 As VARIANT_BOOL) ' WTypes.ab 22 22 TypeDef SCODE = Long 23 ClassCY ' WTypes.ab23 Type /*Class*/ CY ' WTypes.ab 24 24 Public 25 25 int64 As Int64 26 26 /* 27 27 Function Lo() As DWord 28 28 Return GetDWord(VarPtr(int64)) … … 40 40 SetDWord(VarPtr(int64) + SizeOf (DWord, lo As DWord)) 41 41 End Sub 42 End Class 43 44 Class DECIMAL ' WTypes.ab 45 Public 42 */ 43 End Type'Class 44 45 Type /*Class*/ DECIMAL ' WTypes.ab 46 'Public 46 47 wReserved As Word 47 48 signscale As Word 48 49 Hi32 As DWord 49 50 Lo64 As QWord 50 51 /* 51 52 Function scale() As Byte 52 53 Return GetByte(VarPtr(signscale)) … … 73 74 End Sub 74 75 75 76 76 Function Mid32() As DWord 77 77 Return GetDWord(VarPtr(Lo64) As *DWord) … … 81 81 SetDWord(VarPtr(Lo64) As *DWord + SizeOf (DWord), m) 82 82 End Sub 83 End Class 83 */ 84 End Type ' Class 84 85 85 86 TypeDef DATE = Double ' WTypes.ab … … 214 215 End Enum 215 216 216 ClassVARIANT217 Type /*Class*/ VARIANT 217 218 Public 218 219 vt As VARTYPE … … 221 222 wReserved3 As Word 222 223 val As QWord 223 224 /* 224 225 Function llVal() As Int64 225 226 Return val As Int64 … … 457 458 val = v As ULONG_PTR 458 459 End Sub 459 /* 460 Function byref() As VoidPtr461 Return val As ULONG_PTR As VoidPtr462 End Function463 464 Sub byref(v As VoidPtr)465 val = v As ULONG_PTR466 End Sub467 */ 460 461 ' Function byref() As VoidPtr 462 ' Return val As ULONG_PTR As VoidPtr 463 ' End Function 464 465 ' Sub byref(v As VoidPtr) 466 ' val = v As ULONG_PTR 467 ' End Sub 468 468 469 Function cVal() As Char 469 470 Return val As Byte As Char … … 597 598 p[0] = v 598 599 End Sub 599 End Class 600 */ 601 End Type 'Class 600 602 601 603 TypeDef LPVARIANT = *VARIANT … … 625 627 End Enum 626 628 627 ClassTYPEDESC628 Private629 Type /*Class*/ TYPEDESC 630 ' Private 629 631 p As VoidPtr 630 632 ' /* [switch_is][switch_type] */ Union … … 634 636 ' /* [default] */ /* Empty union arm */ 635 637 ' End Union 636 Public638 'Public 637 639 vt As VARTYPE 638 640 /* 639 641 Function lptdesc() As *TYPEDESC 640 642 Return p … … 660 662 p = prd 661 663 End Sub 662 End Class 664 */ 665 End Type 'Class 663 666 664 667 Type ARRAYDESC … … 704 707 Const IDLFLAG_FRETVAL = PARAMFLAG_FRETVAL 705 708 706 ClassELEMDESC707 Public709 Type /*Class*/ ELEMDESC 710 'Public 708 711 tdesc As TYPEDESC 709 712 idldesc As IDLDESC 710 713 /* 711 714 Function paramdesc() As PARAMDESC 712 715 Dim p As *PARAMDESC … … 720 723 p[0] = pd 721 724 End Sub 722 End Class 725 */ 726 End Type 'Class 723 727 724 728 Type TYPEATTR … … 828 832 Const IMPLTYPEFLAG_FDEFAULTVTABLE = &h8 829 833 830 ClassVARDESC831 Public834 Type /*Class*/ VARDESC 835 'Public 832 836 memid As MEMBERID 833 837 lpstrSchema As LPOLESTR … … 839 843 wVarFlags As Word 840 844 varkind As VARKIND 841 845 /* 842 846 Function oInst() As DWord 843 847 Return lpvarValue As ULONG_PTR As DWord … … 847 851 lpvarValue = o As ULONG_PTR As *VARIANT 848 852 End Sub 849 End Class 853 */ 854 End Type 'Class 850 855 851 856 TypeDef LPVARDESC = VARDESC -
Include/OleAuto.ab
r137 r150 514 514 Declare Function VarRound Lib "oleaut32" (ByRef in As VARIANT, cDecimals As Long, ByRef result As VARIANT) As HRESULT 515 515 516 Declare Function VarCmp Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, lcid As LCID, ByRefdwFlags As DWord) As HRESULT516 Declare Function VarCmp Lib "oleaut32" (ByRef lhs As VARIANT, ByRef rhs As VARIANT, lcid As LCID, dwFlags As DWord) As HRESULT 517 517 518 518 Declare Function VarDecAdd Lib "oleaut32" (ByRef lhs As DECIMAL, ByRef rhs As DECIMAL, ByRef result As DECIMAL) As HRESULT -
Include/api_winsock2.sbp
r42 r150 109 109 110 110 111 Classhostent112 Public111 Type /*Class*/ hostent 112 'Public 113 113 h_name As *Byte 114 114 h_aliases As **Byte … … 116 116 h_lengt As Integer 117 117 h_addr_list As **Byte 118 118 /* 119 119 Function h_addr() As *Byte 120 120 Return h_addr_list[0] … … 124 124 h_addr_list[0] = i 125 125 End Sub 126 End Class 126 */ 127 End /*Class*/ 127 128 128 129 Type netent … … 220 221 #define s_addr 221 222 ' Internet address (old style... should be updated) 222 Classin_addr223 Public223 Type /*Class*/ in_addr 224 'Public 224 225 /* 225 226 Union S_un … … 238 239 */ 239 240 s_addr As DWord 240 241 /* 241 242 Function s_host() As Byte 242 243 Return GetByte(VarPtr(s_addr) + 1) … … 278 279 Return SetByte(VarPtr(s_addr) + 2, l) 279 280 End Sub 280 End Class 281 */ 282 End Type 'Class 281 283 #endif 282 284 … … 835 837 End Type 836 838 837 ClassWSACOMPLETION838 Public839 Type /*Class*/ WSACOMPLETION 840 'Public 839 841 Type_ As WSACOMPLETIONTYPE 840 842 /* … … 847 849 */ 848 850 Port As _System_WinSock_WSACOMPLETION_PORT 849 851 /* 850 852 Function WindowMessage() As _System_WinSock_WSACOMPLETION_WINDOWMESSAGE 851 853 Dim p As *_System_WinSock_WSACOMPLETION_WINDOWMESSAGE … … 896 898 End Sub 897 899 */ 898 End Class900 End Type 'Class 899 901 900 902 TypeDef PWSACOMPLETION = *WSACOMPLETION -
Include/basic.sbp
r146 r150 65 65 #endif 66 66 TypeDef DWORD_PTR = ULONG_PTR 67 68 Sub SetPointer(pPtr As VoidPtr, p As VoidPtr) 69 Set_LONG_PTR(pPtr, p As LONG_PTR) 70 End Sub 71 72 Function GetPointer(pPtr As VoidPtr) As VoidPtr 73 GetPointer = Get_LONG_PTR(pPtr) As VoidPtr 74 End Function 67 75 68 76 Sub Set_LONG_PTR(pPtr As VoidPtr, lpData As LONG_PTR) -
Include/ole2.ab
r42 r150 141 141 /* Object creation APIs */ 142 142 143 Declare Function OleCreate Lib "ole32.dll" (/*IN*/ ByRef rclsid As CLSID, /*IN*/ ByRef riid As IID, /*IN*/ ByVal renderopt As DWord, 144 /*IN*/ ByVal pFormatEtc As *FORMATETC, /*IN*/ ByVal pClientSite As *IOleClientSite, 143 Declare Function OleCreate Lib "ole32.dll" (/*IN*/ ByRef rclsid As CLSID, /*IN*/ ByRef riid As IID, /*IN*/ ByVal renderopt As DWord, _ 144 /*IN*/ ByVal pFormatEtc As *FORMATETC, /*IN*/ ByVal pClientSite As *IOleClientSite, _ 145 145 /*IN*/ ByVal pStg As *IStorage, /*OUT*/ ByRef ppvObj As Any) As HRESULT 146 146
Note:
See TracChangeset
for help on using the changeset viewer.