Changeset 682 for trunk/ab5.0/ablib/src/Classes/System/Exception.ab

Timestamp:

Feb 16, 2009, 4:26:24 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

UTF8Encodingクラスをとりあえず使える状態に。ただし、BOM出力はまだ不可能。
(#231)

File:

• trunk/ab5.0/ablib/src/Classes/System/Exception.ab (modified) (3 diffs)

trunk/ab5.0/ablib/src/Classes/System/Exception.ab

@@ -14 +14 @@
 Const AB_E_PLATFORMNOTSUPPORTED = &h80041539 '80131539
 Const AB_E_KEYNOTFOUND = &h80041577 '80131577
+Const AB_E_ARITHMETIC = &h80040216 '80070216
+Const AB_E_OVERFLOW = &h80041516 '80131516
 
 End Namespace
@@ -38 +40 @@
 MulticastNotSupportedException
 NullReferenceException
-OverflowException
 RankException
 StackOverflowException
@@ -712 +713 @@
 End Class
 
+/*!
+@brief  算術演算例外
+@author Egtra
+@date   2009/02/16
+*/
+Class ArithmeticException
+    Inherits SystemException
+Public
+    /*!
+    @biref  コンストラクタ
+    */
+    Sub ArithmeticException()
+        SystemException("ArithmeticException", Nothing)
+        HResult = ActiveBasic.AB_E_ARITHMETIC
+    End Sub
+    /*!
+    @biref  コンストラクタ
+    @param[in] message  エラーメッセージ
+    */
+    Sub ArithmeticException(message As String)
+        SystemException(message, Nothing)
+        HResult = ActiveBasic.AB_E_ARITHMETIC
+    End Sub
+    /*!
+    @biref  コンストラクタ
+    @param[in] message  エラーメッセージ
+    @param[in] innerException   内部例外
+    */
+    Sub ArithmeticException(message As String, innerException As Exception)
+        SystemException(message, innerException)
+        HResult = ActiveBasic.AB_E_ARITHMETIC
+    End Sub
+End Class
+
+/*!
+@brief  オーバーフロー例外
+@author Egtra
+@date   2009/02/16
+*/
+Class OverflowException
+    Inherits ArithmeticException
+Public
+    /*!
+    @biref  コンストラクタ
+    */
+    Sub OverflowException()
+        ArithmeticException("OverflowException", Nothing)
+        HResult = ActiveBasic.AB_E_OVERFLOW
+    End Sub
+    /*!
+    @biref  コンストラクタ
+    @param[in] message  エラーメッセージ
+    */
+    Sub OverflowException(message As String)
+        ArithmeticException(message, Nothing)
+        HResult = ActiveBasic.AB_E_OVERFLOW
+    End Sub
+    /*!
+    @biref  コンストラクタ
+    @param[in] message  エラーメッセージ
+    @param[in] innerException   内部例外
+    */
+    Sub OverflowException(message As String, innerException As Exception)
+        ArithmeticException(message, innerException)
+        HResult = ActiveBasic.AB_E_OVERFLOW
+    End Sub
+End Class
 
 End Namespace