DIRECTORY Commander, ImagerError, Rope, IO;

GenerateImagerErrorEnumerationCommands: CEDAR PROGRAM
IMPORTS Commander, ImagerError, IO
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;

docGenerateImagerErrorEnumerationCommand: ROPE ~ "Generates c header file syntax for the defined values of Imager error codes.";

GenerateImagerErrorEnumerationCommand: Commander.CommandProc ~ {
FOR code: ImagerError.ErrorCode IN ImagerError.ErrorCode DO
atom: ATOM ¬ ImagerError.AtomFromErrorCode[code];
IF atom # NIL THEN {
IO.PutF[cmd.out, "CII_RES_%g = %g,\n", [atom[atom]], [cardinal[ORD[code]]]];
};
ENDLOOP;
};

Commander.Register["GenerateImagerErrorEnumeration", GenerateImagerErrorEnumerationCommand, docGenerateImagerErrorEnumerationCommand];

END.
   œ  
GenerateImagerErrorEnumerationCommands.mesa
Copyright Ó 1993 by Xerox Corporation.  All rights reserved.
Michael Plass, March 25, 1993 9:34 am PST

 ÊB  •NewlineDelimiter
–(cedarcode) style™ codešÏtœ™+Kšœ
Ïeœ1™<K™)K™ —KšÏk	œŸœ˜+K˜ KšÐntÏnœŸœŸ˜5KšŸœŸ˜"šœŸ˜K˜ KšŸœŸœŸœ˜K˜ š!œ	ŸœR˜€K˜ —š ¡œ˜@šŸœŸœŸ˜;KšœŸœ'˜1šŸœŸœŸœ˜KšŸœ=Ÿœ
˜LKšœ˜—KšŸœ˜—K˜K˜ —Kšœœœ	!œ	˜†—K˜ KšŸœ˜— …—    Ø  ¶  