Changeset 388 for trunk/Include/system/exception.ab

Timestamp:

Nov 25, 2007, 4:31:35 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

Stringなどで例外を投げるようにした。
#147の解決。
CType ASCII文字判定関数群の追加。

File:

• trunk/Include/system/exception.ab (modified) (3 diffs)

trunk/Include/system/exception.ab

@@ -57 +57 @@
                 End If
             Else
-                If lstrcmp( paramName, ex.GetType().FullName ) = 0 Then
+                If isCatchable(New String(paramName), ex.GetType()) Then
+'               If lstrcmp( paramName, ex.GetType().FullName ) = 0 Then
                     ' マッチしたとき
                     Return codePos
@@ -64 +65 @@
         Wend
         Return defaultCatchCodePos
+    End Function
+
+    Function isCatchable(paramName As String, catchType As System.TypeInfo) As Boolean
+        isCatchable = False
+        While Not ActiveBasic.IsNothing(catchType)
+            Dim catchTypeName = catchType.FullName
+            If paramName = catchTypeName Then
+                isCatchable = True
+                Exit Function
+            End If
+            catchType = catchType.BaseType
+        Wend
     End Function
 End Class
@@ -114 +127 @@
 
             'TODO: 適切なエラー処理
-            MessageBox( NULL, "例外", "", MB_OK or MB_ICONEXCLAMATION )
-
+            MessageBox( NULL, "Catchされていない例外があります", NULL, MB_OK or MB_ICONEXCLAMATION )
+            Debug
             Return
         End If