/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */
/* time: July 28, 1993 10:17:31 am PDT */
/* C2C version: April 20, 1993 (sun4) */
/* ref-counting: off */
/* file: ImagerErrorImpl, module: ImagerErrorImpl */
/* switches: bcfhklnouw */
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [2631171420,176140034] ImagerErrorImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
#define SOURCE(p, l) /* source p, l */
static void NoName←Q348();
static void ImagerErrorImpl←P0();
static word ErrorCodeFromAtom←P60();
static word NameFromErrorCode←P120();
static word AtomFromErrorCode←P180();
static word AtomForNumber←P240();
static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[44];} string3 = {2818092, "\216\260\007\006\154\145\156\147\164\150\210\241\000\200\177\377\005\004\164\145\170\164\254\206\012\011\155\141\170\114\145\156\147\164\150\210\241\000\200\177\377\243\261"};
static struct {unsigned f; char r[12];} string4 = {655372, "zeroDivide\000"};
static struct {unsigned f; char r[12];} string5 = {524300, "nilFault\000\000\000"};
static struct {unsigned f; char r[20];} string6 = {1179668, "insufficientMemory\000"};
static struct {unsigned f; char r[8];} string7 = {458760, "ioError"};
static struct {unsigned f; char r[8];} string8 = {458760, "timeout"};
static struct {unsigned f; char r[4];} string9 = {196612, "eof"};
static struct {unsigned f; char r[24];} string10 = {1310744, "numericalInstability\000\000\000"};
static struct {unsigned f; char r[4];} string11 = {196612, "bug"};
static struct {unsigned f; char r[16];} string12 = {786448, "fileNotFound\000\000\000"};
static struct {unsigned f; char r[28];} string13 = {1703964, "colorModelOperatorNotFound\000"};
static struct {unsigned f; char r[24];} string14 = {1376280, "colorOperatorNotFound\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "colorNotFound\000\000"};
static struct {unsigned f; char r[24];} string16 = {1310744, "decompressorNotFound\000\000\000"};
static struct {unsigned f; char r[16];} string17 = {786448, "fontNotFound\000\000\000"};
static struct {unsigned f; char r[20];} string18 = {1048596, "operatorNotFound\000\000\000"};
static struct {unsigned f; char r[20];} string19 = {1048596, "resourceNotFound\000\000\000"};
static struct {unsigned f; char r[12];} string20 = {720908, "accessError"};
static struct {unsigned f; char r[8];} string21 = {393224, "syntax\000"};
static struct {unsigned f; char r[20];} string22 = {1179668, "undefinedOperation\000"};
static struct {unsigned f; char r[28];} string23 = {1638428, "invalidCompressedSequence\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "malformedFont\000\000"};
static struct {unsigned f; char r[16];} string25 = {983056, "invalidEncoding"};
static struct {unsigned f; char r[16];} string26 = {851984, "invalidHeader\000\000"};
static struct {unsigned f; char r[20];} string27 = {1114132, "invalidIdentifier\000\000"};
static struct {unsigned f; char r[28];} string28 = {1703964, "invalidInstructionProperty\000"};
static struct {unsigned f; char r[12];} string29 = {720908, "invalidName"};
static struct {unsigned f; char r[16];} string30 = {851984, "invalidString\000\000"};
static struct {unsigned f; char r[16];} string31 = {786448, "invalidToner\000\000\000"};
static struct {unsigned f; char r[16];} string32 = {917520, "invalidVersion\000"};
static struct {unsigned f; char r[12];} string33 = {589836, "nullValue\000\000"};
static struct {unsigned f; char r[24];} string34 = {1507352, "illegalAlternateMetrics"};
static struct {unsigned f; char r[16];} string35 = {786448, "illegalColor\000\000\000"};
static struct {unsigned f; char r[20];} string36 = {1245204, "unknownSpecialColor"};
static struct {unsigned f; char r[20];} string37 = {1114132, "unknownSignalType\000\000"};
static struct {unsigned f; char r[12];} string38 = {655372, "wrongShape\000"};
static struct {unsigned f; char r[12];} string39 = {589836, "wrongSize\000\000"};
static struct {unsigned f; char r[12];} string40 = {720908, "notCardinal"};
static struct {unsigned f; char r[12];} string41 = {655372, "notInteger\000"};
static struct {unsigned f; char r[12];} string42 = {589836, "notNumber\000\000"};
static struct {unsigned f; char r[12];} string43 = {589836, "wrongType\000\000"};
static struct {unsigned f; char r[8];} string44 = {393224, "noFont\000"};
static struct {unsigned f; char r[20];} string45 = {1048596, "illegalArguments\000\000\000"};
static struct {unsigned f; char r[24];} string46 = {1376280, "illegalTransformation\000\000"};
static struct {unsigned f; char r[20];} string47 = {1048596, "illegalPixelMask\000\000\000"};
static struct {unsigned f; char r[24];} string48 = {1376280, "illegalPropertyVector\000\000"};
static struct {unsigned f; char r[20];} string49 = {1048596, "illegalRunVector\000\000\000"};
static struct {unsigned f; char r[20];} string50 = {1114132, "undefinedProperty\000\000"};
static struct {unsigned f; char r[16];} string51 = {851984, "stackOverflow\000\000"};
static struct {unsigned f; char r[16];} string52 = {917520, "stackUnderflow\000"};
static struct {unsigned f; char r[20];} string53 = {1245204, "saveRestoreMismatch"};
static struct {unsigned f; char r[16];} string54 = {786448, "markMismatch\000\000\000"};
static struct {unsigned f; char r[16];} string55 = {786448, "unmarkFailed\000\000\000"};
static struct {unsigned f; char r[28];} string56 = {1572892, "invalidOperationSequence\000\000\000"};
static struct {unsigned f; char r[20];} string57 = {1114132, "obsoleteConstruct\000\000"};
static struct {unsigned f; char r[28];} string58 = {1572892, "unsupportedColorOperator\000\000\000"};
static struct {unsigned f; char r[16];} string59 = {917520, "notImplemented\000"};
static struct {unsigned f; char r[16];} string60 = {851984, "unimplemented\000\000"};
static struct {unsigned f; char r[32];} string61 = {1900576, "squareEndOnStrokeOfZeroLength\000\000"};
static struct {unsigned f; char r[36];} string62 = {2293796, "unableToProperlyAdjustMaskPositions"};
static struct {unsigned f; char r[20];} string63 = {1114132, "noSubstituteColor\000\000"};
static struct {unsigned f; char r[20];} string64 = {1048596, "fontSubstitution\000\000\000"};
static struct {unsigned f; char r[12];} string65 = {655372, "appearance\000"};
static struct {unsigned f; char r[8];} string66 = {327688, "error\000\000"};
static struct {unsigned f; char r[16];} string67 = {851984, "copySensitive\000\000"};
static struct {unsigned f; char r[12];} string68 = {524300, "overflow\000\000\000"};
static struct {unsigned f; char r[8];} string69 = {393224, "bounds\000"};
static struct {unsigned f; char r[8];} string70 = {393224, "imager\000"};
static struct {unsigned f; char r[4];} string71 = {131076, "ok\000"};
static struct {unsigned f; char r[16];} string72 = {851984, "\257\300\234\324\175\134\300\012\177\257\002\100\164\000\000"};
static struct {unsigned f; char r[12];} string73 = {589833, "\006\001\044\010\000\004\100\104\001\000\000"};
static struct {unsigned f; char r[16];} string74 = {851984, "\257\300\055\153\222\376\300\327\164\352\142\100\150\000\000"};
static struct {unsigned f; char r[16];} string75 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"};
static struct {unsigned f; char r[16];} string76 = {851984, "\257\300\332\223\177\020\300\304\076\102\260\100\164\000\000"};
static struct {unsigned f; char r[16];} string77 = {851984, "\257\300\045\370\116\014\300\270\323\074\131\100\150\000\000"};
static struct {
word f0[79]; word f79; word f80; word f81;
word f82; word f83; word f84; word f85;
word f86; word f87; word f88[5];
} globalframe = {
{0}, (word) AtomForNumber←P240, 0, (word) AtomFromErrorCode←P180,
0, (word) NameFromErrorCode←P120, 0, (word) ErrorCodeFromAtom←P60,
0, (word) ImagerErrorImpl←P0, {0}
};
static void NoName←Q348()
{
register ptr gf←c027 = (ptr) &globalframe;
word var←c7396;
(* (( (ptr) gf←c027)+4) ) = (word) XR←GetTypeIndex((word) &string1, 0, (word) &string2);
(* (( (ptr) gf←c027)+7) ) = (word) XR←GetTypeIndex((word) &string3, 0, (word) &string2);
(* (ptr) (( (bPt) gf←c027)+36) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string4);
(* (ptr) (( (bPt) gf←c027)+40) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string5);
(* (ptr) (( (bPt) gf←c027)+44) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string6);
(* (ptr) (( (bPt) gf←c027)+48) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string7);
(* (ptr) (( (bPt) gf←c027)+52) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string8);
(* (ptr) (( (bPt) gf←c027)+56) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string9);
(* (ptr) (( (bPt) gf←c027)+60) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string10);
(* (ptr) (( (bPt) gf←c027)+64) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string11);
(* (ptr) (( (bPt) gf←c027)+68) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string12);
(* (ptr) (( (bPt) gf←c027)+72) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string13);
(* (ptr) (( (bPt) gf←c027)+76) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string14);
(* (ptr) (( (bPt) gf←c027)+80) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string15);
(* (ptr) (( (bPt) gf←c027)+84) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string16);
(* (ptr) (( (bPt) gf←c027)+88) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string17);
(* (ptr) (( (bPt) gf←c027)+92) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string18);
(* (ptr) (( (bPt) gf←c027)+96) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string19);
(* (ptr) (( (bPt) gf←c027)+100) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string20);
(* (ptr) (( (bPt) gf←c027)+104) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string21);
(* (ptr) (( (bPt) gf←c027)+108) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string22);
(* (ptr) (( (bPt) gf←c027)+112) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string23);
(* (ptr) (( (bPt) gf←c027)+116) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string24);
(* (ptr) (( (bPt) gf←c027)+120) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string25);
(* (ptr) (( (bPt) gf←c027)+124) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string26);
(* (ptr) (( (bPt) gf←c027)+128) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string27);
(* (ptr) (( (bPt) gf←c027)+132) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string28);
(* (ptr) (( (bPt) gf←c027)+136) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string29);
(* (ptr) (( (bPt) gf←c027)+140) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string30);
(* (ptr) (( (bPt) gf←c027)+144) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string31);
(* (ptr) (( (bPt) gf←c027)+148) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string32);
(* (ptr) (( (bPt) gf←c027)+152) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string33);
(* (ptr) (( (bPt) gf←c027)+156) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string34);
(* (ptr) (( (bPt) gf←c027)+160) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string35);
(* (ptr) (( (bPt) gf←c027)+164) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string36);
(* (ptr) (( (bPt) gf←c027)+168) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string37);
(* (ptr) (( (bPt) gf←c027)+172) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string38);
(* (ptr) (( (bPt) gf←c027)+176) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string39);
(* (ptr) (( (bPt) gf←c027)+180) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string40);
(* (ptr) (( (bPt) gf←c027)+184) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string41);
(* (ptr) (( (bPt) gf←c027)+188) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string42);
(* (ptr) (( (bPt) gf←c027)+192) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string43);
(* (ptr) (( (bPt) gf←c027)+196) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string44);
(* (ptr) (( (bPt) gf←c027)+200) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string45);
(* (ptr) (( (bPt) gf←c027)+204) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string46);
(* (ptr) (( (bPt) gf←c027)+208) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string47);
(* (ptr) (( (bPt) gf←c027)+212) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string48);
(* (ptr) (( (bPt) gf←c027)+216) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string49);
(* (ptr) (( (bPt) gf←c027)+220) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string50);
(* (ptr) (( (bPt) gf←c027)+224) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string51);
(* (ptr) (( (bPt) gf←c027)+228) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string52);
(* (ptr) (( (bPt) gf←c027)+232) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string53);
(* (ptr) (( (bPt) gf←c027)+236) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string54);
(* (ptr) (( (bPt) gf←c027)+240) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string55);
(* (ptr) (( (bPt) gf←c027)+244) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string56);
(* (ptr) (( (bPt) gf←c027)+248) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string57);
(* (ptr) (( (bPt) gf←c027)+252) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string58);
(* (ptr) (( (bPt) gf←c027)+256) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string59);
(* (ptr) (( (bPt) gf←c027)+260) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string60);
(* (ptr) (( (bPt) gf←c027)+264) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string61);
(* (ptr) (( (bPt) gf←c027)+268) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string62);
(* (ptr) (( (bPt) gf←c027)+272) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string63);
(* (ptr) (( (bPt) gf←c027)+276) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string64);
(* (ptr) (( (bPt) gf←c027)+280) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string65);
(* (ptr) (( (bPt) gf←c027)+284) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string66);
(* (ptr) (( (bPt) gf←c027)+288) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string67);
(* (ptr) (( (bPt) gf←c027)+292) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string68);
(* (ptr) (( (bPt) gf←c027)+296) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string69);
(* (ptr) (( (bPt) gf←c027)+300) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+7) ), (word) &string70);
(* (ptr) (( (bPt) gf←c027)+304) ) = (word) XR←GetRefLiteral((* (( (ptr) gf←c027)+4) ), (word) &string71);
(void) XR←DeclareGlobalFrame((word) "ImagerErrorImpl", &globalframe, (word) XR←GetTypeIndex((word) &string72, 0, (word) &string73)
, (word) (( (bPt) gf←c027)+348)/* var←c7236 */ );
var←c7396 = (word) XR←ImportInterface((word) "Atom", (word) XR←GetTypeIndexS((word) (&string74)), 16);
(* (( (ptr) gf←c027)+91)/* var←c7364 */ ) = var←c7396;
(void) XR←ImportProcS(var←c7396, 67372033);
var←c7396 = (word) XR←ImportInterface((word) "Convert", (word) XR←GetTypeIndexS((word) (&string75)), 73);
(* (( (ptr) gf←c027)+90)/* var←c7332 */ ) = var←c7396;
(void) XR←ImportProcS(var←c7396, 68166916);
var←c7396 = (word) XR←ImportInterface((word) "RefText", (word) XR←GetTypeIndexS((word) (&string76)), 26);
(* (( (ptr) gf←c027)+89)/* var←c7300 */ ) = var←c7396;
(void) XR←ImportProcS(var←c7396, 262913);
(void) XR←ImportProcS(var←c7396, 68158468);
(void) XR←ImportProcS(var←c7396, 67371521);
var←c7396 = (word) XR←ExportInterface((word) "ImagerError", (word) XR←GetTypeIndexS((word) (&string77)), 3);
(* (( (ptr) gf←c027)+92)/* var←c7428 */ ) = var←c7396;
(void) XR←ExportVar(var←c7396, 0, (word) (( (bPt) gf←c027)+308));
(void) XR←ExportVar(var←c7396, 1, (word) (( (bPt) gf←c027)+312));
(void) XR←ExportProcS(var←c7396, (word) (( (bPt) gf←c027)+324)/* var←c7140 */ , 67371521, (word) "AtomFromErrorCode");
}
static void ImagerErrorImpl←P0(formal←c015, formal←c014)
word formal←c015;
word formal←c014;
{
/* ImagerErrorImpl: */
}
static word ErrorCodeFromAtom←P60(atom←v2976)
word atom←v2976;
{
word var←c3020;
/* ErrorCodeFromAtom: */
SOURCE(274, 207)
SOURCE(354, 103)
{
register word e←v3360 = 0;
lab←L100003: ;
SOURCE(411, 46)
if (((word) AtomFromErrorCode←P180(e←v3360) == atom←v2976)) {
SOURCE(447, 10)
return(e←v3360);
};
if ((e←v3360 >= 255)) {
goto lab←L100000;
};
e←v3360 = (e←v3360 + 1);
goto lab←L100003;
lab←L100000: ;
};
SOURCE(468, 13)
return(10);
}
static word NameFromErrorCode←P120(code←v3080)
word code←v3080;
{
word name←v3124;
/* NameFromErrorCode: */
SOURCE(485, 168)
SOURCE(485, 168)
name←v3124 = 0;
SOURCE(571, 30)
name←v3124 = (word) AtomFromErrorCode←P180(code←v3080);
SOURCE(603, 50)
if ((name←v3124 == 0)) {
SOURCE(622, 31)
name←v3124 = (word) AtomForNumber←P240(code←v3080);
};
SOURCE(485, 168)
return(name←v3124);
}
static word AtomFromErrorCode←P180(code←v3184)
word code←v3184;
{
register ptr gf←c7460 = (ptr) &globalframe;
word var←c3228;
/* AtomFromErrorCode: */
SOURCE(659, 2899)
SOURCE(739, 2819)
{
word var←c7268;
var←c7268 = code←v3184;
switch (var←c7268) {
case 0:
return((* (( (ptr) gf←c7460)+76) ));
case 1:
return((* (( (ptr) gf←c7460)+74) ));
case 2:
return((* (( (ptr) gf←c7460)+73) ));
case 3:
return((* (( (ptr) gf←c7460)+9) ));
case 4:
return((* (( (ptr) gf←c7460)+10) ));
case 5:
return((* (( (ptr) gf←c7460)+11) ));
case 6:
return((* (( (ptr) gf←c7460)+12) ));
case 7:
return((* (( (ptr) gf←c7460)+13) ));
case 8:
return((* (( (ptr) gf←c7460)+14) ));
case 9:
return((* (( (ptr) gf←c7460)+15) ));
case 10:
return((* (( (ptr) gf←c7460)+16) ));
case 20:
return((* (( (ptr) gf←c7460)+17) ));
case 21:
return((* (( (ptr) gf←c7460)+18) ));
case 22:
return((* (( (ptr) gf←c7460)+19) ));
case 23:
return((* (( (ptr) gf←c7460)+20) ));
case 24:
return((* (( (ptr) gf←c7460)+21) ));
case 25:
return((* (( (ptr) gf←c7460)+22) ));
case 26:
return((* (( (ptr) gf←c7460)+23) ));
case 27:
return((* (( (ptr) gf←c7460)+24) ));
case 28:
return((* (( (ptr) gf←c7460)+25) ));
case 40:
return((* (( (ptr) gf←c7460)+26) ));
case 41:
return((* (( (ptr) gf←c7460)+27) ));
case 42:
return((* (( (ptr) gf←c7460)+28) ));
case 43:
return((* (( (ptr) gf←c7460)+29) ));
case 44:
return((* (( (ptr) gf←c7460)+30) ));
case 45:
return((* (( (ptr) gf←c7460)+31) ));
case 46:
return((* (( (ptr) gf←c7460)+32) ));
case 47:
return((* (( (ptr) gf←c7460)+33) ));
case 48:
return((* (( (ptr) gf←c7460)+34) ));
case 49:
return((* (( (ptr) gf←c7460)+35) ));
case 50:
return((* (( (ptr) gf←c7460)+36) ));
case 51:
return((* (( (ptr) gf←c7460)+37) ));
case 60:
return((* (( (ptr) gf←c7460)+38) ));
case 61:
return((* (( (ptr) gf←c7460)+39) ));
case 62:
return((* (( (ptr) gf←c7460)+40) ));
case 63:
return((* (( (ptr) gf←c7460)+41) ));
case 64:
return((* (( (ptr) gf←c7460)+42) ));
case 65:
return((* (( (ptr) gf←c7460)+43) ));
case 66:
return((* (( (ptr) gf←c7460)+44) ));
case 67:
return((* (( (ptr) gf←c7460)+45) ));
case 68:
return((* (( (ptr) gf←c7460)+46) ));
case 69:
return((* (( (ptr) gf←c7460)+47) ));
case 70:
return((* (( (ptr) gf←c7460)+48) ));
case 71:
return((* (( (ptr) gf←c7460)+49) ));
case 72:
return((* (( (ptr) gf←c7460)+50) ));
case 73:
return((* (( (ptr) gf←c7460)+51) ));
case 74:
return((* (( (ptr) gf←c7460)+52) ));
case 75:
return((* (( (ptr) gf←c7460)+53) ));
case 76:
return((* (( (ptr) gf←c7460)+54) ));
case 77:
return((* (( (ptr) gf←c7460)+55) ));
case 80:
return((* (( (ptr) gf←c7460)+56) ));
case 81:
return((* (( (ptr) gf←c7460)+57) ));
case 82:
return((* (( (ptr) gf←c7460)+58) ));
case 83:
return((* (( (ptr) gf←c7460)+59) ));
case 84:
return((* (( (ptr) gf←c7460)+60) ));
case 85:
return((* (( (ptr) gf←c7460)+61) ));
case 100:
return((* (( (ptr) gf←c7460)+62) ));
case 101:
return((* (( (ptr) gf←c7460)+63) ));
case 102:
return((* (( (ptr) gf←c7460)+64) ));
case 103:
return((* (( (ptr) gf←c7460)+65) ));
case 120:
return((* (( (ptr) gf←c7460)+66) ));
case 121:
return((* (( (ptr) gf←c7460)+67) ));
case 122:
return((* (( (ptr) gf←c7460)+68) ));
case 123:
return((* (( (ptr) gf←c7460)+69) ));
case 124:
return((* (( (ptr) gf←c7460)+70) ));
case 140:
return((* (( (ptr) gf←c7460)+71) ));
case 160:
return((* (( (ptr) gf←c7460)+72) ));
default:
return(0);
};
};
}
static word AtomForNumber←P240(card←v3288)
word card←v3288;
{
register ptr gf←c7492 = (ptr) &globalframe;
word atom←v3332;
word t←v3404;
/* AtomForNumber: */
SOURCE(3562, 227)
SOURCE(3562, 227)
atom←v3332 = 0;
SOURCE(3620, 40)
{
word pd78;
pd78 = (* (( (ptr) (* (( (ptr) gf←c7492)+89)/* var←c7300 */ ))+6) );
t←v3404 = (word) ( *( (fPt) ((* (ptr) pd78 ))))(100, pd78);
};
SOURCE(3662, 31)
{
word pd79;
pd79 = (* (( (ptr) (* (( (ptr) gf←c7492)+89)/* var←c7300 */ ))+8) );
t←v3404 = (word) ( *( (fPt) ((* (ptr) pd79 ))))(t←v3404, (* (( (ptr) gf←c7492)+75) ), 0, 32767, pd79);
};
SOURCE(3695, 31)
{
word pd80;
pd80 = (* (( (ptr) (* (( (ptr) gf←c7492)+90)/* var←c7332 */ ))+41) );
t←v3404 = (word) ( *( (fPt) ((* (ptr) pd80 ))))(t←v3404, card←v3288, 8, 1, pd80);
};
SOURCE(3728, 34)
{
word pd81;
pd81 = (* (( (ptr) (* (( (ptr) gf←c7492)+91)/* var←c7364 */ ))+8) );
atom←v3332 = (word) ( *( (fPt) ((* (ptr) pd81 ))))(t←v3404, pd81);
};
SOURCE(3764, 25)
{
word pd82;
pd82 = (* (( (ptr) (* (( (ptr) gf←c7492)+89)/* var←c7300 */ ))+7) );
(void) ( *( (fPt) ((* (ptr) pd82 ))))(t←v3404, pd82);
};
SOURCE(3562, 227)
return(atom←v3332);
}
/* file: ImagerErrorImpl, module: ImagerErrorImpl, compiled at: July 28, 1993 10:17:31 am PDT */
extern void XR←install←ImagerErrorImpl() {
NoName←Q348();
}
extern void XR←run←ImagerErrorImpl() { XR←Start(&globalframe); }