The Meta-Environment API
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