The Meta-Environment API

error-utils.tb

Go to the documentation of this file.
00001 #ifndef __ERROR_UTILS__
00002 #define __ERROR_UTILS__
00003 
00004 #include <error-support.idef>
00005 
00006 process ReplaceSummaryInfo(Summary: summary?, Toolname: str, Modulename: str) is
00007 let
00008   Errors: list
00009 in
00010   snd-msg(get-summary-errors(Summary))
00011   . rec-msg(summary-errors(Errors?))
00012   . snd-msg(es-make-summary(Toolname, Modulename, Errors))
00013   . rec-msg(es-summary(Summary?))
00014 endlet
00015 
00016 #endif

Generated on Fri Sep 12 13:08:53 2008 for meta by  doxygen 1.4.6