Changeset 198
- Timestamp:
- Apr 1, 2007, 2:27:00 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/TypeInfo.ab
r196 r198 42 42 Inherits TypeInfo 43 43 44 strNamespace As String 44 45 name As String 45 strNamespace As String46 46 47 47 baseType As TypeInfo … … 51 51 52 52 Sub TypeBaseImpl() 53 strNamespace = "" 53 54 name = "" 54 strNamespace = ""55 55 baseType = Nothing 56 56 End Sub 57 57 58 Sub TypeBaseImpl( name As String, strNamespace As String ) 58 Sub TypeBaseImpl( strNamespace As String, name As String ) 59 This.strNamespace = strNamespace 59 60 This.name = name 61 This.baseType = Nothing 62 End Sub 63 64 Sub TypeBaseImpl( strNamespace As String, name As String, baseType As TypeInfo ) 60 65 This.strNamespace = strNamespace 61 This.baseType = Nothing62 End Sub63 64 Sub TypeBaseImpl( name As String, strNamespace As String, baseType As TypeInfo )65 66 This.name = name 67 This.baseType = baseType 68 End Sub 69 70 /* 71 Sub TypeBaseImpl( strNamespace As String, name As String, baseType As Type, interfaces As ... ) 66 72 This.strNamespace = strNamespace 73 This.name = name 67 74 This.baseType = baseType 68 End Sub 69 70 /* 71 Sub TypeBaseImpl( name As String, strNamespace As String, baseType As Type, interfaces As ... ) 72 TypeBaseImpl( name, strNamespace, baseType ) 75 This.interfaces = interfaces 73 76 End Sub 74 77 */ … … 139 142 Public 140 143 Sub _System_TypeForValueType( name As String ) 141 TypeInfo( name, "")144 TypeInfo( "", name ) 142 145 End Sub 143 146 … … 151 154 Inherits TypeBaseImpl 152 155 Public 153 Sub _System_TypeForClass( name As String, strNamespace As String, baseType As TypeInfo )154 TypeBaseImpl( name, strNamespace, baseType )156 Sub _System_TypeForClass( strNamespace As String, name As String, baseType As TypeInfo ) 157 TypeBaseImpl( strNamespace, name, baseType ) 155 158 End Sub 156 159 Sub ~_System_TypeForClass() … … 159 162 Return True 160 163 End Function 164 165 Sub SetBaseType( baseType As TypeInfo ) 166 This.baseType = baseType 167 End Sub 161 168 End Class 162 169 … … 232 239 ' このメソッドの実装はコンパイラが自動生成する 233 240 241 #generate InitializeUserTypes 242 234 243 '例: 235 'obj.Add( New _System_TypeForClass( "String", "", obj.Search( "Object" ) ) ) 244 'obj.Add( New _System_TypeForClass( "System", "String" ) ) 245 'obj.Search( "String" ).SetBaseType( Search( "Object" ) ) 236 246 End Sub 237 247
Note:
See TracChangeset
for help on using the changeset viewer.