diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-10 04:48:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-10 04:48:39 +0000 |
| commit | 6b365f926f1f0430c34498392e1dddbff126bc48 (patch) | |
| tree | bdbc548cea2b0968863d9695bbdfc1732b16c3c5 /src/interp/msgdb.boot | |
| parent | 06e82157a75ebb6f14dae6a76a9e3a2b883b2c7a (diff) | |
| download | open-axiom-6b365f926f1f0430c34498392e1dddbff126bc48.tar.gz | |
Add support for batch processing.
Diffstat (limited to 'src/interp/msgdb.boot')
| -rw-r--r-- | src/interp/msgdb.boot | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 215020e3..1ed386db 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007, Gabriel Dos Reis. +-- Copyright (C) 2007-2008, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -305,6 +305,7 @@ throwPatternMsg(key,args) == sayMSG '" " if $testingSystem then sayMSG $testingErrorPrefix sayPatternMsg(key,args) + countError() spadThrow() sayKeyedMsgAsTeX(key, args) == @@ -354,6 +355,7 @@ throwKeyedMsg1(key,args) == sayMSG '" " if $testingSystem then sayMSG $testingErrorPrefix sayKeyedMsg(key,args) + countError() spadThrow() throwListOfKeyedMsgs(descKey,descArgs,l) == @@ -368,6 +370,7 @@ throwListOfKeyedMsgs(descKey,descArgs,l) == for [key,args] in l for i in 1.. repeat n := STRCONC(object2String i,'".") sayKeyedMsg(key,[n,:args]) + countError() spadThrow() -- breakKeyedMsg is like throwKeyedMsg except that the user is given @@ -459,6 +462,7 @@ throwKeyedMsgFromDb(key,args,dbName) == sayMSG '" " if $testingSystem then sayMSG $testingErrorPrefix sayKeyedMsgFromDb(key,args,dbName) + countError() spadThrow() queryUserKeyedMsg(key,args) == @@ -558,6 +562,7 @@ throwKeyedMsgCannotCoerceWithValue(val,t1,t2) == null (val' := coerceInteractive(objNew(val,t1),$OutputForm)) => throwKeyedMsg("S2IC0002",[t1,t2]) val' := objValUnwrap(val') + countError() throwKeyedMsg("S2IC0003",[t1,t2,val']) --% Some Standard Message Printing Functions |