Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Exception classes initialize themself.
authorStefan Vogel <sv@exept.de>
Fri, 05 Sep 2003 12:29:15 +0200
changeset 7602 d048f13cd50a
parent 7601 57c257f1150a
child 7603 88c60268d47f
Exception classes initialize themself. Use exception class names instead of class variables.
ArgumentError.st file | annotate | diff | comparison | revisions
BadLiteralsError.st file | annotate | diff | comparison | revisions
Block.st file | annotate | diff | comparison | revisions
ExecutableFunction.st file | annotate | diff | comparison | revisions
ExecutionError.st file | annotate | diff | comparison | revisions
ExternalFunction.st file | annotate | diff | comparison | revisions
InvalidByteCodeError.st file | annotate | diff | comparison | revisions
InvalidCodeError.st file | annotate | diff | comparison | revisions
InvalidInstructionError.st file | annotate | diff | comparison | revisions
NoByteCodeError.st file | annotate | diff | comparison | revisions
NonBooleanReceiverError.st file | annotate | diff | comparison | revisions
WrongNumberOfArgumentsError.st file | annotate | diff | comparison | revisions 
--- a/ArgumentError.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/ArgumentError.st	Fri Sep 05 12:29:15 2003 +0200
@@ -35,8 +35,16 @@
 "
 ! !
 
+!ArgumentError class methodsFor:'initialization'!
+
+initialize
+    NotifierString := 'bad argument(s)'.
+! !
+
 !ArgumentError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArgumentError.st,v 1.2 2003-08-29 19:16:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArgumentError.st,v 1.3 2003-09-05 10:27:53 stefan Exp $'
 ! !
+
+ArgumentError initialize!
--- a/BadLiteralsError.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/BadLiteralsError.st	Fri Sep 05 12:29:15 2003 +0200
@@ -41,8 +41,16 @@
 "
 ! !
 
+!BadLiteralsError class methodsFor:'initialization'!
+
+initialize
+    NotifierString := 'bad literal table in code-object'.
+! !
+
 !BadLiteralsError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/BadLiteralsError.st,v 1.3 2003-08-29 19:16:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/BadLiteralsError.st,v 1.4 2003-09-05 10:27:45 stefan Exp $'
 ! !
+
+BadLiteralsError initialize!
--- a/Block.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/Block.st	Fri Sep 05 12:29:15 2003 +0200
@@ -628,9 +628,9 @@
      Can only happen when the Compiler/runtime system is broken or
      someone played around."
 
-    ^ InvalidCodeSignal
-	raiseRequestWith:self
-	errorString:'invalid block - not executable'
+    ^ InvalidCodeError
+        raiseRequestWith:self
+        errorString:'invalid block - not executable'
 
     "Modified: 4.11.1996 / 22:46:39 / cg"
 ! !
@@ -1161,7 +1161,7 @@
     "
      the above code only supports up-to 12 arguments
     "
-    ^ ArgumentSignal
+    ^ ArgumentError
         raiseRequestWith:self
         errorString:'only blocks with up-to 12 arguments supported'
 !
@@ -1975,7 +1975,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.134 2003-06-13 18:47:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.135 2003-09-05 10:29:15 stefan Exp $'
 ! !
 
 Block initialize!
--- a/ExecutableFunction.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/ExecutableFunction.st	Fri Sep 05 12:29:15 2003 +0200
@@ -14,7 +14,7 @@
 
 Object subclass:#ExecutableFunction
 	instanceVariableNames:'code*'
-	classVariableNames:'ExecutionErrorSignal InvalidCodeSignal'
+	classVariableNames:''
 	poolDictionaries:''
 	category:'Kernel-Methods'
 !
@@ -68,36 +68,6 @@
 "
 ! !
 
-!ExecutableFunction class methodsFor:'initialization'!
-
-initialize
-    "create signals raised by various errors"
-
-    "uses class-based exceptions now (but remain backward compatible)"
-
-    InvalidCodeSignal isNil ifTrue:[
-"/        ExecutionErrorSignal := Error newSignalMayProceed:true.
-"/        ExecutionErrorSignal nameClass:self message:#executionErrorSignal.
-        ExecutionErrorSignal := ExecutionError.
-        ExecutionErrorSignal notifierString:'execution error'.
-
-"/        InvalidCodeSignal := ExecutionErrorSignal newSignalMayProceed:true.
-"/        InvalidCodeSignal nameClass:self message:#invalidCodeSignal.
-        InvalidCodeSignal := InvalidCodeError.
-        InvalidCodeSignal notifierString:'invalid code-object - not executable'.
-    ]
-
-    "Modified: 22.4.1996 / 16:34:13 / cg"
-! !
-
-!ExecutableFunction class methodsFor:'Signal constants'!
-
-executionErrorSignal
-    "return the parent-signal of all execution errors"
-
-    ^ ExecutionErrorSignal
-! !
-
 !ExecutableFunction class methodsFor:'queries'!
 
 isBuiltInClass
@@ -167,7 +137,7 @@
      Can only happen when the Compiler/runtime system is broken or
      someone played around."
 
-    ^ InvalidCodeSignal raise.
+    ^ InvalidCodeError raise.
 
     "Modified: 4.11.1996 / 22:47:21 / cg"
 ! !
@@ -437,7 +407,5 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.49 2003-05-07 14:05:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.50 2003-09-05 10:28:10 stefan Exp $'
 ! !
-
-ExecutableFunction initialize!
--- a/ExecutionError.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/ExecutionError.st	Fri Sep 05 12:29:15 2003 +0200
@@ -41,8 +41,16 @@
 "
 ! !
 
+!ExecutionError class methodsFor:'initialization'!
+
+initialize
+    NotifierString := 'execution error'.
+! !
+
 !ExecutionError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutionError.st,v 1.3 2003-08-29 19:16:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutionError.st,v 1.4 2003-09-05 10:26:58 stefan Exp $'
 ! !
+
+ExecutionError initialize!
--- a/ExternalFunction.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/ExternalFunction.st	Fri Sep 05 12:29:15 2003 +0200
@@ -219,7 +219,7 @@
     "create signals"
 
     InvalidCustomFunctionSignal isNil ifTrue:[
-        InvalidCustomFunctionSignal := ExecutionErrorSignal newSignalMayProceed:true.
+        InvalidCustomFunctionSignal := ExecutionError newSignalMayProceed:true.
         InvalidCustomFunctionSignal nameClass:self message:#invalidCustomFunctionSignal.
         InvalidCustomFunctionSignal notifierString:'attempt to execute unknown custom function'.
     ]
@@ -791,7 +791,7 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.18 2003-05-07 14:06:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.19 2003-09-05 10:28:21 stefan Exp $'
 ! !
 
 ExternalFunction initialize!
--- a/InvalidByteCodeError.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/InvalidByteCodeError.st	Fri Sep 05 12:29:15 2003 +0200
@@ -41,8 +41,16 @@
 "
 ! !
 
+!InvalidByteCodeError class methodsFor:'initialization'!
+
+initialize
+    NotifierString := 'invalid byteCode in code-object - not executable'.
+! !
+
 !InvalidByteCodeError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/InvalidByteCodeError.st,v 1.3 2003-08-29 19:16:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/InvalidByteCodeError.st,v 1.4 2003-09-05 10:28:30 stefan Exp $'
 ! !
+
+InvalidByteCodeError initialize!
--- a/InvalidCodeError.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/InvalidCodeError.st	Fri Sep 05 12:29:15 2003 +0200
@@ -41,8 +41,16 @@
 "
 ! !
 
+!InvalidCodeError class methodsFor:'initialization'!
+
+initialize
+    NotifierString := 'invalid code-object - not executable'.
+! !
+
 !InvalidCodeError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/InvalidCodeError.st,v 1.3 2003-08-29 19:16:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/InvalidCodeError.st,v 1.4 2003-09-05 10:27:13 stefan Exp $'
 ! !
+
+InvalidCodeError initialize!
--- a/InvalidInstructionError.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/InvalidInstructionError.st	Fri Sep 05 12:29:15 2003 +0200
@@ -41,8 +41,16 @@
 "
 ! !
 
+!InvalidInstructionError class methodsFor:'initialization'!
+
+initialize
+    NotifierString := 'invalid instruction in code-object - not executable'.
+! !
+
 !InvalidInstructionError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/InvalidInstructionError.st,v 1.3 2003-08-29 19:16:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/InvalidInstructionError.st,v 1.4 2003-09-05 10:27:30 stefan Exp $'
 ! !
+
+InvalidInstructionError initialize!
--- a/NoByteCodeError.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/NoByteCodeError.st	Fri Sep 05 12:29:15 2003 +0200
@@ -41,8 +41,16 @@
 "
 ! !
 
+!NoByteCodeError class methodsFor:'initialization'!
+
+initialize
+    NotifierString := 'nil byteCode in code-object - not executable'.
+! !
+
 !NoByteCodeError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NoByteCodeError.st,v 1.3 2003-08-29 19:16:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NoByteCodeError.st,v 1.4 2003-09-05 10:27:06 stefan Exp $'
 ! !
+
+NoByteCodeError initialize!
--- a/NonBooleanReceiverError.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/NonBooleanReceiverError.st	Fri Sep 05 12:29:15 2003 +0200
@@ -41,8 +41,16 @@
 "
 ! !
 
+!NonBooleanReceiverError class methodsFor:'initialization'!
+
+initialize
+    NotifierString := 'if/while on non-boolean receiver'.
+! !
+
 !NonBooleanReceiverError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NonBooleanReceiverError.st,v 1.3 2003-08-29 19:16:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NonBooleanReceiverError.st,v 1.4 2003-09-05 10:27:38 stefan Exp $'
 ! !
+
+NonBooleanReceiverError initialize!
--- a/WrongNumberOfArgumentsError.st	Fri Sep 05 12:25:14 2003 +0200
+++ b/WrongNumberOfArgumentsError.st	Fri Sep 05 12:29:15 2003 +0200
@@ -41,8 +41,16 @@
 "
 ! !
 
+!WrongNumberOfArgumentsError class methodsFor:'initialization'!
+
+initialize
+    NotifierString := 'wrong number of argument(s)'.
+! !
+
 !WrongNumberOfArgumentsError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WrongNumberOfArgumentsError.st,v 1.3 2003-08-29 19:16:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WrongNumberOfArgumentsError.st,v 1.4 2003-09-05 10:28:01 stefan Exp $'
 ! !
+
+WrongNumberOfArgumentsError initialize!
hg/stx-libbasic