Changeset 150 for Include/api_winsock2.sbp

Timestamp:

Mar 11, 2007, 1:11:46 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

参照型導入に備え、構造体 (Type)代わりにクラスを使っていた部分を構造体へ戻すほか

File:

• Include/api_winsock2.sbp (modified) (9 diffs)

Include/api_winsock2.sbp

@@ -109 +109 @@
 
 
-Class hostent
-Public
+Type /*Class*/ hostent
+'Public
     h_name As *Byte
     h_aliases As **Byte
@@ -116 +116 @@
     h_lengt As Integer
     h_addr_list As **Byte
-
+/*
     Function h_addr() As *Byte
         Return h_addr_list[0]
@@ -124 +124 @@
         h_addr_list[0] = i
     End Sub
-End Class
+*/
+End /*Class*/
 
 Type netent
@@ -220 +221 @@
 #define s_addr
 ' Internet address (old style... should be updated)
-Class in_addr
-Public
+Type /*Class*/ in_addr
+'Public
 /*
     Union S_un
@@ -238 +239 @@
 */
     s_addr As DWord
-
+/*
     Function s_host() As Byte
         Return GetByte(VarPtr(s_addr) + 1)
@@ -278 +279 @@
         Return SetByte(VarPtr(s_addr) + 2, l)
     End Sub
-End Class
+*/
+End Type 'Class
 #endif
 
@@ -835 +837 @@
 End Type
 
-Class WSACOMPLETION
-Public
+Type /*Class*/ WSACOMPLETION
+'Public
     Type_ As WSACOMPLETIONTYPE
 /*
@@ -847 +849 @@
 */
     Port As _System_WinSock_WSACOMPLETION_PORT
-
+/*
     Function WindowMessage() As _System_WinSock_WSACOMPLETION_WINDOWMESSAGE
         Dim p As *_System_WinSock_WSACOMPLETION_WINDOWMESSAGE
@@ -896 +898 @@
     End Sub
 */
-End Class
+End Type 'Class
 
 TypeDef PWSACOMPLETION = *WSACOMPLETION