/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */ /* time: October 19, 1993 1:02:25 pm PDT */ /* C2C version: April 20, 1993 (sun4) */ /* ref-counting: off */ /* file: TJaMTypeImpl, module: TJaMTypeImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [3821318880,1749321483] TJaMTypeImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); typedef struct {word f0, f1;} W2; typedef W2 *W2Pt; static float fc1 = -2147483648.0; static float fc2 = 2147483647.0; #define SOURCE(p, l) /* source p, l */ static float fc73 = 0.0; static void NoName_Q4128(); static void TJaMTypeImpl_P0(); static word IntFromReal_P60(); static word IntFromNum_P120(); static word RealFromNum_P180(); static word IntFromAny_P240(); static word RealFromAny_P300(); static word NumberFromAny_P360(); static word AtomFromAny_P420(); static word RopeFromAny_P480(); static word StreamFromAny_P540(); static word CmdFromAny_P600(); static word ArrayFromAny_P660(); static word DictFromAny_P720(); static word MarkFromAny_P780(); static word Type_P840(); static word Length_P900(); static word Equal_P960(); static word CvX_P1020(); static word CvLit_P1080(); static word CvI_P1140(); static word CvR_P1200(); static void ApplyType_P1260(); static void ApplyLength_P1320(); static void ApplyCvLit_P1380(); static void ApplyCvX_P1440(); static void ApplyCvI_P1500(); static void ApplyCvR_P1560(); static void ApplyCommandName_P1620(); static struct {unsigned f; char r[20];} string3 = {1048596, "\205\257\300\243\004\305\073\300\011\303\367\103\100\214\216\251\000\000\000"}; static struct {unsigned f; char r[4];} string4 = {196611, "\004C\377"}; static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"}; static struct {unsigned f; char r[24];} string6 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"}; static struct {unsigned f; char r[16];} string7 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[4];} string8 = {65537, "\001\000\000"}; static struct {unsigned f; char r[16];} string9 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\101\034\000\000"}; static struct {unsigned f; char r[16];} string10 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\354\000\000"}; static struct {unsigned f; char r[4];} string11 = {131074, "\004\003\000"}; static struct {unsigned f; char r[16];} string12 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\101\004\000\000"}; static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\340\000\000"}; static struct {unsigned f; char r[4];} string14 = {131074, "\004\006\000"}; static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\112\064\000\000"}; static struct {unsigned f; char r[4];} string16 = {131074, "\004\037\000"}; static struct {unsigned f; char r[4];} string17 = {65540, "\251\000\000"}; static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\164\000\000"}; static struct {unsigned f; char r[4];} string19 = {131074, "\003\001\000"}; static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\230\000\000"}; static struct {unsigned f; char r[8];} string21 = {393224, ".other\000"}; static struct {unsigned f; char r[8];} string22 = {327688, ".mark\000\000"}; static struct {unsigned f; char r[8];} string23 = {327688, ".type\000\000"}; static struct {unsigned f; char r[8];} string24 = {458760, ".length"}; static struct {unsigned f; char r[8];} string25 = {393224, ".cvlit\000"}; static struct {unsigned f; char r[8];} string26 = {262152, ".cvx\000\000\000"}; static struct {unsigned f; char r[8];} string27 = {262152, ".cvi\000\000\000"}; static struct {unsigned f; char r[8];} string28 = {262152, ".cvr\000\000\000"}; static struct {unsigned f; char r[16];} string29 = {786448, ".commandname\000\000\000"}; static struct {unsigned f; char r[8];} string30 = {393224, ".array\000"}; static struct {unsigned f; char r[8];} string31 = {327688, ".dict\000\000"}; static struct {unsigned f; char r[8];} string32 = {262152, ".cmd\000\000\000"}; static struct {unsigned f; char r[8];} string33 = {458760, ".stream"}; static struct {unsigned f; char r[8];} string34 = {327688, ".rope\000\000"}; static struct {unsigned f; char r[8];} string35 = {327688, ".atom\000\000"}; static struct {unsigned f; char r[8];} string36 = {458760, ".number"}; static struct {unsigned f; char r[8];} string37 = {262152, ".nil\000\000\000"}; static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\343\304\262\340\300\150\104\207\013\100\164\000\000"}; static struct {unsigned f; char r[12];} string39 = {720907, "\006\002\030\001\100\120\010\000\004\021\001"}; static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"}; static struct {unsigned f; char r[4];} string41 = {1414160717, "\000"}; static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\243\004\305\073\300\011\303\367\103\100\150\000\000"}; static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\246\205\220\035\300\344\000\142\023\100\150\000\000"}; static struct { word f0[98]; } globalframe = { {0} }; static void NoName_Q4128() { register ptr gf_c0221 = (ptr) &globalframe; word var_c21104; (* (( (ptr) gf_c0221)+4)/* firstInt_v2608 */ ) = (* (ptr) &fc1 ); (* (( (ptr) gf_c0221)+5)/* lastInt_v2636 */ ) = (* (ptr) &fc2 ); (* (( (ptr) gf_c0221)+91) ) = ( ((word) (fPt) TJaMTypeImpl_P0) ); (* (( (ptr) gf_c0221)+89) ) = ( ((word) (fPt) IntFromReal_P60) ); (* (( (ptr) gf_c0221)+87) ) = ( ((word) (fPt) IntFromNum_P120) ); (* (( (ptr) gf_c0221)+85) ) = ( ((word) (fPt) RealFromNum_P180) ); (* (( (ptr) gf_c0221)+83) ) = ( ((word) (fPt) IntFromAny_P240) ); (* (( (ptr) gf_c0221)+81) ) = ( ((word) (fPt) RealFromAny_P300) ); (* (( (ptr) gf_c0221)+79) ) = ( ((word) (fPt) NumberFromAny_P360) ); (* (( (ptr) gf_c0221)+77) ) = ( ((word) (fPt) AtomFromAny_P420) ); (* (( (ptr) gf_c0221)+75) ) = ( ((word) (fPt) RopeFromAny_P480) ); (* (( (ptr) gf_c0221)+73) ) = ( ((word) (fPt) StreamFromAny_P540) ); (* (( (ptr) gf_c0221)+71) ) = ( ((word) (fPt) CmdFromAny_P600) ); (* (( (ptr) gf_c0221)+69) ) = ( ((word) (fPt) ArrayFromAny_P660) ); (* (( (ptr) gf_c0221)+67) ) = ( ((word) (fPt) DictFromAny_P720) ); (* (( (ptr) gf_c0221)+65) ) = ( ((word) (fPt) MarkFromAny_P780) ); (* (( (ptr) gf_c0221)+63) ) = ( ((word) (fPt) Type_P840) ); (* (( (ptr) gf_c0221)+61) ) = ( ((word) (fPt) Length_P900) ); (* (( (ptr) gf_c0221)+59) ) = ( ((word) (fPt) Equal_P960) ); (* (( (ptr) gf_c0221)+57) ) = ( ((word) (fPt) CvX_P1020) ); (* (( (ptr) gf_c0221)+55) ) = ( ((word) (fPt) CvLit_P1080) ); (* (( (ptr) gf_c0221)+53) ) = ( ((word) (fPt) CvI_P1140) ); (* (( (ptr) gf_c0221)+51) ) = ( ((word) (fPt) CvR_P1200) ); (* (( (ptr) gf_c0221)+49) ) = ( ((word) (fPt) ApplyType_P1260) ); (* (( (ptr) gf_c0221)+47) ) = ( ((word) (fPt) ApplyLength_P1320) ); (* (( (ptr) gf_c0221)+45) ) = ( ((word) (fPt) ApplyCvLit_P1380) ); (* (( (ptr) gf_c0221)+43) ) = ( ((word) (fPt) ApplyCvX_P1440) ); (* (( (ptr) gf_c0221)+41) ) = ( ((word) (fPt) ApplyCvI_P1500) ); (* (( (ptr) gf_c0221)+39) ) = ( ((word) (fPt) ApplyCvR_P1560) ); (* (( (ptr) gf_c0221)+37) ) = ( ((word) (fPt) ApplyCommandName_P1620) ); (* (( (ptr) gf_c0221)+7) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf_c0221)+9) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6); (* (( (ptr) gf_c0221)+10) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string8); (* (( (ptr) gf_c0221)+11) ) = (word) XR_GetTypeIndexS((word) (&string9)); (* (( (ptr) gf_c0221)+12) ) = (word) XR_GetTypeIndex((word) &string10, 0, (word) &string11); (* (( (ptr) gf_c0221)+13) ) = (word) XR_GetTypeIndex((word) &string12, 0, (word) &string8); (* (( (ptr) gf_c0221)+14) ) = (word) XR_GetTypeIndex((word) &string13, 0, (word) &string14); (* (( (ptr) gf_c0221)+15) ) = (word) XR_GetTypeIndex((word) &string15, 0, (word) &string16); (* (( (ptr) gf_c0221)+16) ) = (word) XR_GetTypeIndexS((word) (&string17)); (* (( (ptr) gf_c0221)+17) ) = (word) XR_GetTypeIndex((word) &string18, 0, (word) &string19); (* (( (ptr) gf_c0221)+18) ) = (word) XR_GetTypeIndexS((word) (&string20)); (* (ptr) (( (bPt) gf_c0221)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string21); (* (ptr) (( (bPt) gf_c0221)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string22); (* (ptr) (( (bPt) gf_c0221)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string23); (* (ptr) (( (bPt) gf_c0221)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string24); (* (ptr) (( (bPt) gf_c0221)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string25); (* (ptr) (( (bPt) gf_c0221)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string26); (* (ptr) (( (bPt) gf_c0221)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string27); (* (ptr) (( (bPt) gf_c0221)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string28); (* (ptr) (( (bPt) gf_c0221)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string29); (* (ptr) (( (bPt) gf_c0221)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string30); (* (ptr) (( (bPt) gf_c0221)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string31); (* (ptr) (( (bPt) gf_c0221)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string32); (* (ptr) (( (bPt) gf_c0221)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string33); (* (ptr) (( (bPt) gf_c0221)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string34); (* (ptr) (( (bPt) gf_c0221)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string35); (* (ptr) (( (bPt) gf_c0221)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string36); (* (ptr) (( (bPt) gf_c0221)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0221)+10) ), (word) &string37); (void) XR_DeclareGlobalFrame((word) "TJaMTypeImpl", &globalframe, (word) XR_GetTypeIndex((word) &string38, 0, (word) &string39) , (word) (( (bPt) gf_c0221)+364)/* var_c17968 */ ); var_c21104 = (word) XR_ImportInterface((word) "Convert", (word) XR_GetTypeIndexS((word) (&string40)), 73); (* (( (ptr) gf_c0221)+96)/* var_c20720 */ ) = var_c21104; (void) XR_ImportProcS(var_c21104, 67373057); (void) XR_ImportProcS(var_c21104, 67634690); var_c21104 = (word) XR_ImportInterface((word) &string41, (word) XR_GetTypeIndexS((word) (&string42)), 101); (* (( (ptr) gf_c0221)+93)/* var_c18032 */ ) = var_c21104; (void) XR_ImportProcS(var_c21104, 67381505); (void) XR_ImportProcS(var_c21104, 530434); (void) XR_ImportProcS(var_c21104, 529666); (void) XR_ImportProcS(var_c21104, 530178); (void) XR_ImportProcS(var_c21104, 530946); (void) XR_ImportProcS(var_c21104, 67379457); (void) XR_ImportProcS(var_c21104, 67388417); (void) XR_ImportProcS(var_c21104, 285441); (void) XR_ImportProcS(var_c21104, 812035); (void) XR_ImportProcS(var_c21104, 67375617); var_c21104 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string43)), 43); (* (( (ptr) gf_c0221)+95)/* var_c19696 */ ) = var_c21104; (void) XR_ImportProcS(var_c21104, 67896323); (void) XR_ImportProcS(var_c21104, 67373569); var_c21104 = (word) XR_ImportInterface((word) "Real", (word) XR_GetTypeIndexS((word) (&string44)), 11); (* (( (ptr) gf_c0221)+94)/* var_c18384 */ ) = var_c21104; (void) XR_ImportProcS(var_c21104, 67371521); var_c21104 = (word) XR_ExportInterface((word) &string41, (word) XR_GetTypeIndexS((word) (&string42)), 101); (* (( (ptr) gf_c0221)+97)/* var_c21136 */ ) = var_c21104; (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+236)/* var_c17456 */ , 67633410, (word) "Equal"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+244)/* var_c17488 */ , 67371521, (word) "Length"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+252)/* var_c17520 */ , 67371777, (word) "Type"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+356)/* var_c17936 */ , 67372033, (word) "IntFromReal"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+348)/* var_c17904 */ , 67634433, (word) "IntFromNum"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+340)/* var_c17872 */ , 67634689, (word) "RealFromNum"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+332)/* var_c17840 */ , 67372801, (word) "IntFromAny"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+324)/* var_c17808 */ , 67373057, (word) "RealFromAny"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+316)/* var_c17776 */ , 67373313, (word) "NumberFromAny"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+308)/* var_c17744 */ , 67373569, (word) "AtomFromAny"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+300)/* var_c17712 */ , 67373825, (word) "RopeFromAny"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+292)/* var_c17680 */ , 67374081, (word) "StreamFromAny"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+284)/* var_c17648 */ , 67374337, (word) "CmdFromAny"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+276)/* var_c17616 */ , 67374593, (word) "ArrayFromAny"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+268)/* var_c17584 */ , 67374849, (word) "DictFromAny"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+260)/* var_c17552 */ , 67375105, (word) "MarkFromAny"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+228)/* var_c17424 */ , 67375873, (word) "CvX"); (void) XR_ExportProcS(var_c21104, (word) (( (bPt) gf_c0221)+220)/* var_c17392 */ , 67376129, (word) "CvLit"); } static void TJaMTypeImpl_P0(formal_c052, formal_c040) word formal_c052; word formal_c040; { register ptr gf_c21168 = (ptr) &globalframe; /* TJaMTypeImpl: */ SOURCE(108, 6218) /* moved to installation proc */ /* moved to installation proc */ SOURCE(3126, 350) { word var_c18000; word var_c18064; word var_c18096; word var_c18128; word var_c18160; word var_c18192; word var_c18224; word var_c18256; word var_c18288; word var_c18320; word var_c18352; { word pd45; pd45 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+22) ); var_c18000 = (word) ( *( (fPt) ((* (ptr) pd45 ))))((* ((( (ptr) gf_c21168)+36)) ), pd45); }; { word pd46; pd46 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+22) ); var_c18064 = (word) ( *( (fPt) ((* (ptr) pd46 ))))((* ((( (ptr) gf_c21168)+35)) ), pd46); }; { word pd47; pd47 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+22) ); var_c18096 = (word) ( *( (fPt) ((* (ptr) pd47 ))))((* ((( (ptr) gf_c21168)+34)) ), pd47); }; { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+22) ); var_c18128 = (word) ( *( (fPt) ((* (ptr) pd48 ))))((* ((( (ptr) gf_c21168)+33)) ), pd48); }; { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+22) ); var_c18160 = (word) ( *( (fPt) ((* (ptr) pd49 ))))((* ((( (ptr) gf_c21168)+32)) ), pd49); }; { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+22) ); var_c18192 = (word) ( *( (fPt) ((* (ptr) pd50 ))))((* ((( (ptr) gf_c21168)+31)) ), pd50); }; { word pd51; pd51 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+22) ); var_c18224 = (word) ( *( (fPt) ((* (ptr) pd51 ))))((* ((( (ptr) gf_c21168)+30)) ), pd51); }; { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+22) ); var_c18256 = (word) ( *( (fPt) ((* (ptr) pd52 ))))((* ((( (ptr) gf_c21168)+29)) ), pd52); }; { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+22) ); var_c18288 = (word) ( *( (fPt) ((* (ptr) pd53 ))))((* ((( (ptr) gf_c21168)+21)) ), pd53); }; { word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+22) ); var_c18320 = (word) ( *( (fPt) ((* (ptr) pd54 ))))((* ((( (ptr) gf_c21168)+20)) ), pd54); }; var_c18352 = XR_NewObject(40, (* (( (ptr) gf_c21168)+7) )); (* (ptr) var_c18352 ) = var_c18000; (* (( (ptr) var_c18352)+1) ) = var_c18064; (* (( (ptr) var_c18352)+2) ) = var_c18096; (* (( (ptr) var_c18352)+3) ) = var_c18128; (* (( (ptr) var_c18352)+4) ) = var_c18160; (* (( (ptr) var_c18352)+5) ) = var_c18192; (* (( (ptr) var_c18352)+6) ) = var_c18224; (* (( (ptr) var_c18352)+7) ) = var_c18256; (* (( (ptr) var_c18352)+8) ) = var_c18288; (* (( (ptr) var_c18352)+9) ) = var_c18320; (* (( (ptr) gf_c21168)+6)/* typeAtom_v3112 */ ) = var_c18352; }; SOURCE(6041, 37) { word pd55; pd55 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd55 ))))((* (( (ptr) gf_c21168)+22) ), (word) (( (bPt) gf_c21168)+196)/* var_c17296 */ , 0, pd55) ; }; SOURCE(6080, 41) { word pd56; pd56 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd56 ))))((* (( (ptr) gf_c21168)+23) ), (word) (( (bPt) gf_c21168)+188)/* var_c17264 */ , 0, pd56) ; }; SOURCE(6123, 39) { word pd57; pd57 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd57 ))))((* (( (ptr) gf_c21168)+24) ), (word) (( (bPt) gf_c21168)+180)/* var_c17232 */ , 0, pd57) ; }; SOURCE(6164, 35) { word pd58; pd58 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd58 ))))((* (( (ptr) gf_c21168)+25) ), (word) (( (bPt) gf_c21168)+172)/* var_c17200 */ , 0, pd58) ; }; SOURCE(6201, 35) { word pd59; pd59 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd59 ))))((* (( (ptr) gf_c21168)+26) ), (word) (( (bPt) gf_c21168)+164)/* var_c17168 */ , 0, pd59) ; }; SOURCE(6238, 35) { word pd60; pd60 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd60 ))))((* (( (ptr) gf_c21168)+27) ), (word) (( (bPt) gf_c21168)+156)/* var_c17136 */ , 0, pd60) ; }; SOURCE(6275, 51) { word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf_c21168)+93)/* var_c18032 */ ))+104) ); (void) ( *( (fPt) ((* (ptr) pd61 ))))((* (( (ptr) gf_c21168)+28) ), (word) (( (bPt) gf_c21168)+148)/* var_c17104 */ , 0, pd61) ; }; } static word IntFromReal_P60(real_v3556) word real_v3556; { register ptr gf_c21200 = (ptr) &globalframe; word var_c3600; word int_v5676 = 0; /* IntFromReal: */ SOURCE(258, 182) SOURCE(328, 57) { word x62; word x63; word x64; word x65; if ( ( (( x62 = real_v3556, *(float*)&x62 ) >= ( x63 = (* (( (ptr) gf_c21200)+4)/* firstInt_v2608 */ ), *(float*)&x63 )) ? (( x64 = real_v3556, *(float*)&x64 ) <= ( x65 = (* (( (ptr) gf_c21200)+5)/* lastInt_v2636 */ ), *(float*)&x65 )) : 0 ) ) { SOURCE(363, 22) { word pd66; pd66 = (* (( (ptr) (* (( (ptr) gf_c21200)+94)/* var_c18384 */ ))+6) ); int_v5676 = (word) ( *( (fPt) ((* (ptr) pd66 ))))(real_v3556, pd66); }; }; }; SOURCE(387, 40) { word x67; if (((float)(int)int_v5676 != ( x67 = real_v3556, *(float*)&x67 ))) { SOURCE(404, 23) { word pd68; pd68 = (* (( (ptr) (* (( (ptr) gf_c21200)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd68 ))))(2, pd68); }; }; }; SOURCE(429, 11) return(int_v5676); } static word IntFromNum_P120(n_v3660) W2 n_v3660; { word var_c3704; /* IntFromNum: */ SOURCE(446, 136) SOURCE(503, 79) { word var_c18416; var_c18416 = n_v3660.f0; if ((var_c18416 == 0)) { SOURCE(532, 13) return(n_v3660.f1); } else { if ((var_c18416 == 1)) { SOURCE(555, 27) return((word) IntFromReal_P60(n_v3660.f1)); } else { SOURCE(595, 5) (void) XR_RaiseUnnamedError(); }; }; }; } static word RealFromNum_P180(n_v3764) W2 n_v3764; { word var_c3808; /* RealFromNum: */ SOURCE(606, 131) SOURCE(665, 72) { word var_c18480; var_c18480 = n_v3764.f0; if ((var_c18480 == 0)) { SOURCE(694, 19) { float tf69; return(( tf69 = (float)(int)n_v3764.f1, *(word*)&tf69 )); }; } else { if ((var_c18480 == 1)) { SOURCE(723, 14) return(n_v3764.f1); } else { SOURCE(750, 5) (void) XR_RaiseUnnamedError(); }; }; }; } static word IntFromAny_P240(x_v3868) word x_v3868; { register ptr gf_c21232 = (ptr) &globalframe; word var_c3928; /* IntFromAny: */ SOURCE(761, 226) SOURCE(812, 127) { word var_c18512; var_c18512 = x_v3868; if ((var_c18512 == 0)) { goto lab_L100000; }; if (((* (( (ptr) gf_c21232)+18) ) == XR_GetReferentType(var_c18512))) { { word x_v5720; x_v5720 = var_c18512; SOURCE(844, 97) { W2 n_v5764; SOURCE(846, 17) n_v5764 = (* (W2Pt) x_v5720 ); SOURCE(865, 42) { word var_c18544; var_c18544 = n_v5764.f0; if ((var_c18544 == 0)) { SOURCE(894, 13) return(n_v5764.f1); }; }; SOURCE(918, 21) return((word) IntFromNum_P120(n_v5764)); }; }; } else { lab_L100000: ; }; }; SOURCE(953, 23) { word pd70; pd70 = (* (( (ptr) (* (( (ptr) gf_c21232)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd70 ))))(2, pd70); }; SOURCE(978, 9) return(0); } static word RealFromAny_P300(x_v3988) word x_v3988; { register ptr gf_c21264 = (ptr) &globalframe; word var_c4032; /* RealFromAny: */ SOURCE(993, 259) SOURCE(1046, 158) { word var_c18608; var_c18608 = x_v3988; if ((var_c18608 == 0)) { goto lab_L100001; }; if (((* (( (ptr) gf_c21264)+18) ) == XR_GetReferentType(var_c18608))) { { word x_v5808; x_v5808 = var_c18608; SOURCE(1078, 128) { W2 n_v5852; SOURCE(1080, 17) n_v5852 = (* (W2Pt) x_v5808 ); SOURCE(1099, 72) { word var_c18640; var_c18640 = n_v5852.f0; if ((var_c18640 == 0)) { SOURCE(1128, 19) { float tf71; return(( tf71 = (float)(int)n_v5852.f1, *(word*)&tf71 )); }; } else { if ((var_c18640 == 1)) { SOURCE(1157, 14) return(n_v5852.f1); }; }; }; SOURCE(1182, 22) return((word) RealFromNum_P180(n_v5852)); }; }; } else { lab_L100001: ; }; }; SOURCE(1218, 23) { word pd72; pd72 = (* (( (ptr) (* (( (ptr) gf_c21264)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd72 ))))(2, pd72); }; SOURCE(1243, 9) return((* (ptr) &fc73 )); } static word NumberFromAny_P360(x_v4092) word x_v4092; { register ptr gf_c21296 = (ptr) &globalframe; word var_c4136; /* NumberFromAny: */ SOURCE(1259, 185) SOURCE(1316, 81) { word var_c18704; word var_c18736; var_c18704 = x_v4092; if ((var_c18704 == 0)) { goto lab_L100002; }; var_c18736 = XR_GetReferentType(var_c18704); if (((* (( (ptr) gf_c21296)+18) ) == var_c18736)) { { word x_v5896; x_v5896 = var_c18704; SOURCE(1348, 9) return(x_v5896); }; } else { if (((* (( (ptr) gf_c21296)+17) ) == var_c18736)) { { word x_v5940; x_v5940 = var_c18704; SOURCE(1368, 29) return((word) NumberFromAny_P360((* ((( (ptr) x_v5940)+1)) ))); }; } else { lab_L100002: ; }; }; }; SOURCE(1408, 23) { word pd74; pd74 = (* (( (ptr) (* (( (ptr) gf_c21296)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd74 ))))(2, pd74); }; SOURCE(1433, 11) return(0); } static word AtomFromAny_P420(x_v4196) word x_v4196; { register ptr gf_c21328 = (ptr) &globalframe; word var_c4240; /* AtomFromAny: */ SOURCE(1450, 177) SOURCE(1503, 77) { word var_c18800; word var_c18832; var_c18800 = x_v4196; if ((var_c18800 == 0)) { goto lab_L100003; }; var_c18832 = XR_GetReferentType(var_c18800); if (((* (( (ptr) gf_c21328)+16) ) == var_c18832)) { { word x_v5984; x_v5984 = var_c18800; SOURCE(1533, 9) return(x_v5984); }; } else { if (((* (( (ptr) gf_c21328)+17) ) == var_c18832)) { { word x_v6028; x_v6028 = var_c18800; SOURCE(1553, 27) return((word) AtomFromAny_P420((* ((( (ptr) x_v6028)+1)) ))); }; } else { lab_L100003: ; }; }; }; SOURCE(1591, 23) { word pd75; pd75 = (* (( (ptr) (* (( (ptr) gf_c21328)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd75 ))))(2, pd75); }; SOURCE(1616, 11) return(0); } static word RopeFromAny_P480(x_v4300) word x_v4300; { register ptr gf_c21360 = (ptr) &globalframe; word var_c4344; /* RopeFromAny: */ SOURCE(1633, 177) SOURCE(1686, 77) { word var_c18896; word var_c18928; var_c18896 = x_v4300; if ((var_c18896 == 0)) { goto lab_L100004; }; var_c18928 = XR_GetReferentType(var_c18896); { word tc76; if (((* (( (ptr) gf_c21360)+9) ) == var_c18928)) { tc76 = (word) ( (unsigned) (*(int*)var_c18896<0) == 0); } else { tc76 = (word) 0; }; if (tc76) { { word x_v6072; x_v6072 = var_c18896; SOURCE(1716, 9) return(x_v6072); }; } else { if (((* (( (ptr) gf_c21360)+17) ) == var_c18928)) { { word x_v6116; x_v6116 = var_c18896; SOURCE(1736, 27) return((word) RopeFromAny_P480((* ((( (ptr) x_v6116)+1)) ))); }; } else { lab_L100004: ; }; }; }; }; SOURCE(1774, 23) { word pd77; pd77 = (* (( (ptr) (* (( (ptr) gf_c21360)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd77 ))))(2, pd77); }; SOURCE(1799, 11) return(0); } static word StreamFromAny_P540(x_v4404) word x_v4404; { register ptr gf_c21392 = (ptr) &globalframe; word var_c4448; /* StreamFromAny: */ SOURCE(1816, 185) SOURCE(1873, 81) { word var_c18992; word var_c19024; var_c18992 = x_v4404; if ((var_c18992 == 0)) { goto lab_L100005; }; var_c19024 = XR_GetReferentType(var_c18992); if (((* (( (ptr) gf_c21392)+15) ) == var_c19024)) { { word x_v6160; x_v6160 = var_c18992; SOURCE(1905, 9) return(x_v6160); }; } else { if (((* (( (ptr) gf_c21392)+17) ) == var_c19024)) { { word x_v6204; x_v6204 = var_c18992; SOURCE(1925, 29) return((word) StreamFromAny_P540((* ((( (ptr) x_v6204)+1)) ))); }; } else { lab_L100005: ; }; }; }; SOURCE(1965, 23) { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf_c21392)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd78 ))))(2, pd78); }; SOURCE(1990, 11) return(0); } static word CmdFromAny_P600(x_v4508) word x_v4508; { register ptr gf_c21424 = (ptr) &globalframe; word var_c4552; /* CmdFromAny: */ SOURCE(2007, 173) SOURCE(2058, 75) { word var_c19088; word var_c19120; var_c19088 = x_v4508; if ((var_c19088 == 0)) { goto lab_L100006; }; var_c19120 = XR_GetReferentType(var_c19088); if (((* (( (ptr) gf_c21424)+14) ) == var_c19120)) { { word x_v6248; x_v6248 = var_c19088; SOURCE(2087, 9) return(x_v6248); }; } else { if (((* (( (ptr) gf_c21424)+17) ) == var_c19120)) { { word x_v6292; x_v6292 = var_c19088; SOURCE(2107, 26) return((word) CmdFromAny_P600((* ((( (ptr) x_v6292)+1)) ))); }; } else { lab_L100006: ; }; }; }; SOURCE(2144, 23) { word pd79; pd79 = (* (( (ptr) (* (( (ptr) gf_c21424)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd79 ))))(2, pd79); }; SOURCE(2169, 11) return(0); } static word ArrayFromAny_P660(x_v4612) word x_v4612; { register ptr gf_c21456 = (ptr) &globalframe; word var_c4656; /* ArrayFromAny: */ SOURCE(2186, 181) SOURCE(2241, 79) { word var_c19184; word var_c19216; var_c19184 = x_v4612; if ((var_c19184 == 0)) { goto lab_L100007; }; var_c19216 = XR_GetReferentType(var_c19184); if (((* (( (ptr) gf_c21456)+13) ) == var_c19216)) { { word x_v6336; x_v6336 = var_c19184; SOURCE(2272, 9) return(x_v6336); }; } else { if (((* (( (ptr) gf_c21456)+17) ) == var_c19216)) { { word x_v6380; x_v6380 = var_c19184; SOURCE(2292, 28) return((word) ArrayFromAny_P660((* ((( (ptr) x_v6380)+1)) ))); }; } else { lab_L100007: ; }; }; }; SOURCE(2331, 23) { word pd80; pd80 = (* (( (ptr) (* (( (ptr) gf_c21456)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd80 ))))(2, pd80); }; SOURCE(2356, 11) return(0); } static word DictFromAny_P720(x_v4716) word x_v4716; { register ptr gf_c21488 = (ptr) &globalframe; word var_c4760; /* DictFromAny: */ SOURCE(2373, 177) SOURCE(2426, 77) { word var_c19280; word var_c19312; var_c19280 = x_v4716; if ((var_c19280 == 0)) { goto lab_L100008; }; var_c19312 = XR_GetReferentType(var_c19280); if (((* (( (ptr) gf_c21488)+12) ) == var_c19312)) { { word x_v6424; x_v6424 = var_c19280; SOURCE(2456, 9) return(x_v6424); }; } else { if (((* (( (ptr) gf_c21488)+17) ) == var_c19312)) { { word x_v6468; x_v6468 = var_c19280; SOURCE(2476, 27) return((word) DictFromAny_P720((* ((( (ptr) x_v6468)+1)) ))); }; } else { lab_L100008: ; }; }; }; SOURCE(2514, 23) { word pd81; pd81 = (* (( (ptr) (* (( (ptr) gf_c21488)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd81 ))))(2, pd81); }; SOURCE(2539, 11) return(0); } static word MarkFromAny_P780(x_v4820) word x_v4820; { register ptr gf_c21520 = (ptr) &globalframe; word var_c4864; /* MarkFromAny: */ SOURCE(2556, 177) SOURCE(2609, 77) { word var_c19376; word var_c19408; var_c19376 = x_v4820; if ((var_c19376 == 0)) { goto lab_L100009; }; var_c19408 = XR_GetReferentType(var_c19376); if (((* (( (ptr) gf_c21520)+11) ) == var_c19408)) { { word x_v6512; x_v6512 = var_c19376; SOURCE(2639, 9) return(x_v6512); }; } else { if (((* (( (ptr) gf_c21520)+17) ) == var_c19408)) { { word x_v6556; x_v6556 = var_c19376; SOURCE(2659, 27) return((word) MarkFromAny_P780((* ((( (ptr) x_v6556)+1)) ))); }; } else { lab_L100009: ; }; }; }; SOURCE(2697, 23) { word pd82; pd82 = (* (( (ptr) (* (( (ptr) gf_c21520)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd82 ))))(2, pd82); }; SOURCE(2722, 11) return(0); } static word Type_P840(x_v4924) word x_v4924; { register ptr gf_c21552 = (ptr) &globalframe; word var_c4968; /* Type: */ SOURCE(2739, 103) SOURCE(2789, 25) if ((x_v4924 == 0)) { SOURCE(2803, 11) return(0); }; SOURCE(2816, 26) { word var_c19504; word var_c19536; var_c19504 = x_v4924; if ((var_c19504 == 0)) { goto lab_L100010; }; var_c19536 = XR_GetReferentType(var_c19504); { word tc84; if (((* (( (ptr) gf_c21552)+18) ) == var_c19536)) { { word x_v6600; x_v6600 = var_c19504; return(1); }; }; if (((* (( (ptr) gf_c21552)+16) ) == var_c19536)) { { word x_v6644; x_v6644 = var_c19504; return(2); }; }; if (((* (( (ptr) gf_c21552)+9) ) == var_c19536)) { tc84 = (word) ( (unsigned) (*(int*)var_c19504<0) == 0); } else { tc84 = (word) 0; }; if (tc84) { { word x_v6688; x_v6688 = var_c19504; return(3); }; }; if (((* (( (ptr) gf_c21552)+15) ) == var_c19536)) { { word x_v6732; x_v6732 = var_c19504; return(4); }; }; if (((* (( (ptr) gf_c21552)+14) ) == var_c19536)) { { word x_v6776; x_v6776 = var_c19504; return(5); }; }; if (((* (( (ptr) gf_c21552)+12) ) == var_c19536)) { { word x_v6820; x_v6820 = var_c19504; return(6); }; }; if (((* (( (ptr) gf_c21552)+13) ) == var_c19536)) { { word x_v6864; x_v6864 = var_c19504; return(7); }; }; if (((* (( (ptr) gf_c21552)+11) ) == var_c19536)) { { word x_v6908; x_v6908 = var_c19504; return(8); }; }; if (((* (( (ptr) gf_c21552)+17) ) == var_c19536)) { { word x_v6952; x_v6952 = var_c19504; return((word) Type_P840((* ((( (ptr) x_v6952)+1)) ))); }; }; lab_L100010: ; return(9); }; }; } static word Length_P900(x_v5056) word x_v5056; { register ptr gf_c21584 = (ptr) &globalframe; word var_c5100; /* Length: */ SOURCE(3479, 213) SOURCE(3526, 146) { word var_c19568; word var_c19600; var_c19568 = x_v5056; if ((var_c19568 == 0)) { goto lab_L100011; }; var_c19600 = XR_GetReferentType(var_c19568); { word tc87; if (((* (( (ptr) gf_c21584)+13) ) == var_c19600)) { { word x_v6996; x_v6996 = var_c19568; SOURCE(3557, 13) return((* (( (ptr) x_v6996)+2) )); }; }; if (((* (( (ptr) gf_c21584)+12) ) == var_c19600)) { { word x_v7040; x_v7040 = var_c19568; SOURCE(3583, 21) { word pd86; pd86 = (* (( (ptr) (* (( (ptr) gf_c21584)+93)/* var_c18032 */ ))+72) ); return((word) ( *( (fPt) ((* (ptr) pd86 ))))(x_v7040, pd86)); }; }; }; if (((* (( (ptr) gf_c21584)+9) ) == var_c19600)) { tc87 = (word) ( (unsigned) (*(int*)var_c19568<0) == 0); } else { tc87 = (word) 0; }; if (tc87) { { word x_v7084; x_v7084 = var_c19568; SOURCE(3617, 22) { word pd88; pd88 = (* (( (ptr) (* (( (ptr) gf_c21584)+95)/* var_c19696 */ ))+14) ); return((word) ( *( (fPt) ((* (ptr) pd88 ))))(x_v7084, pd88)); }; }; }; if (((* (( (ptr) gf_c21584)+17) ) == var_c19600)) { { word x_v7128; x_v7128 = var_c19568; SOURCE(3650, 22) return((word) Length_P900((* ((( (ptr) x_v7128)+1)) ))); }; }; lab_L100011: ; goto endif085; endif085: ; }; }; SOURCE(3683, 9) return(1); } static word Equal_P960(a_v5160, b_v5188) word a_v5160; word b_v5188; { register ptr gf_c21616 = (ptr) &globalframe; word var_c5232; /* Equal: */ SOURCE(3698, 765) SOURCE(3748, 24) if ((a_v5160 == b_v5188)) { SOURCE(3760, 12) return(1); }; SOURCE(3774, 530) { word var_c19760; word var_c19792; var_c19760 = a_v5160; if ((var_c19760 == 0)) { goto lab_L100012; }; var_c19792 = XR_GetReferentType(var_c19760); { word tc96; if (((* (( (ptr) gf_c21616)+18) ) == var_c19792)) { { word a_v7172; a_v7172 = var_c19760; SOURCE(3806, 247) { word var_c19824; var_c19824 = b_v5188; if ((var_c19824 == 0)) { goto lab_L100013; }; if (((* (( (ptr) gf_c21616)+18) ) == XR_GetReferentType(var_c19824))) { { word b_v7216; b_v7216 = var_c19824; SOURCE(3838, 215) { word var_c19856; var_c19856 = (* (ptr) a_v7172 ); if ((var_c19856 == 0)) { SOURCE(3867, 78) /*1*/ { /*1*/ word var_c19888; /*1*/ var_c19888 = (* (ptr) b_v7216 ); /*1*/ if ((var_c19888 == 0)) { SOURCE(3896, 19) /*1*/ return( (unsigned) ( (int)(* (( (ptr) a_v7172)+1) ) == (int)(* (( (ptr) b_v7216)+1) ))); /*1*/ } /*1*/ else { /*1*/ if ((var_c19888 == 1)) { SOURCE(3925, 20) /*1*/ { /*1*/ word x90; /*1*/ return( (unsigned) ((float)(int)(* (( (ptr) a_v7172)+1) ) == ( /*1*/ x90 = (* (( (ptr) b_v7216)+1) ), *(float*)&x90 /*1*/ ))); /*1*/ }; /*1*/ } /*1*/ else { SOURCE(3958, 5) /*1*/ (void) XR_RaiseUnnamedError(); /*1*/ }; /*1*/ }; /*1*/ }; /*1*/ } else { /*1*/ if ((var_c19856 == 1)) { SOURCE(3973, 80) /*1*/ { /*1*/ word var_c19920; /*1*/ var_c19920 = (* (ptr) b_v7216 ); /*1*/ if ((var_c19920 == 0)) { SOURCE(4002, 20) /*1*/ { /*1*/ word x91; /*1*/ return( (unsigned) (( /*1*/ x91 = (* (( (ptr) a_v7172)+1) ), *(float*)&x91 /*1*/ ) == (float)(int)(* (( (ptr) b_v7216)+1) ))); /*1*/ }; /*1*/ } /*1*/ else { /*1*/ if ((var_c19920 == 1)) { SOURCE(4032, 21) /*1*/ { /*1*/ word x92; /*1*/ word x93; /*1*/ return( (unsigned) (( /*1*/ x92 = (* (( (ptr) a_v7172)+1) ), *(float*)&x92 /*1*/ ) == ( /*1*/ x93 = (* (( (ptr) b_v7216)+1) ), *(float*)&x93 /*1*/ ))); /*1*/ }; /*1*/ } /*1*/ else { SOURCE(4066, 5) /*1*/ (void) XR_RaiseUnnamedError(); /*1*/ }; /*1*/ }; /*1*/ }; /*1*/ } /*1*/ else { SOURCE(4084, 5) /*1*/ (void) XR_RaiseUnnamedError(); /*1*/ }; /*1*/ }; }; }; } else { lab_L100013: ; }; }; }; goto endif089; }; if (((* (( (ptr) gf_c21616)+16) ) == var_c19792)) { { word a_v7260; a_v7260 = var_c19760; SOURCE(4111, 79) { word var_c19952; word var_c19984; var_c19952 = b_v5188; if ((var_c19952 == 0)) { goto lab_L100014; }; var_c19984 = XR_GetReferentType(var_c19952); { word tc94; if (((* (( (ptr) gf_c21616)+16) ) == var_c19984)) { { word b_v7304; b_v7304 = var_c19952; SOURCE(4141, 11) return( (unsigned) (a_v7260 == b_v7304)); }; } else { if (((* (( (ptr) gf_c21616)+9) ) == var_c19984)) { tc94 = (word) ( (unsigned) (*(int*)var_c19952<0) == 0); } else { tc94 = (word) 0; }; if (tc94) { { /*1*/ word b_v7348; /*1*/ b_v7348 = var_c19952; SOURCE(4165, 25) /*1*/ { /*1*/ word pd95; /*1*/ pd95 = (* (( (ptr) (* (( (ptr) gf_c21616)+93)/* var_c18032 */ ))+22) ); /*1*/ return( (unsigned) (a_v7260 == (word) ( *( (fPt) ((* (ptr) pd95 ))))(b_v7348, pd95))); /*1*/ }; /*1*/ }; } else { lab_L100014: ; }; }; }; }; }; goto endif089; }; if (((* (( (ptr) gf_c21616)+9) ) == var_c19792)) { tc96 = (word) ( (unsigned) (*(int*)var_c19760<0) == 0); } else { tc96 = (word) 0; }; if (tc96) { { word a_v7392; a_v7392 = var_c19760; SOURCE(4212, 92) { word var_c20048; word var_c20080; var_c20048 = b_v5188; if ((var_c20048 == 0)) { goto lab_L100015; }; var_c20080 = XR_GetReferentType(var_c20048); { word tc98; if (((* (( (ptr) gf_c21616)+16) ) == var_c20080)) { { word b_v7436; b_v7436 = var_c20048; SOURCE(4242, 25) { /*1*/ word pd97; /*1*/ pd97 = (* (( (ptr) (* (( (ptr) gf_c21616)+93)/* var_c18032 */ ))+22) ); /*1*/ return( (unsigned) ((word) ( *( (fPt) ((* (ptr) pd97 ))))(a_v7392, pd97) == b_v7436)); /*1*/ }; }; } else { if (((* (( (ptr) gf_c21616)+9) ) == var_c20080)) { tc98 = (word) ( (unsigned) (*(int*)var_c20048<0) == 0); } else { tc98 = (word) 0; }; if (tc98) { { /*1*/ word b_v7480; /*1*/ b_v7480 = var_c20048; SOURCE(4280, 24) /*1*/ { /*1*/ word pd99; /*1*/ pd99 = (* (( (ptr) (* (( (ptr) gf_c21616)+95)/* var_c19696 */ ))+8) ); /*1*/ return((word) ( *( (fPt) ((* (ptr) pd99 ))))(a_v7392, b_v7480, 1, pd99)); /*1*/ }; /*1*/ }; } else { lab_L100015: ; }; }; }; }; }; goto endif089; }; lab_L100012: ; goto endif089; endif089: ; }; }; SOURCE(4324, 52) { word var_c20176; var_c20176 = a_v5160; if ((var_c20176 == 0)) { goto lab_L100016; }; if (((* (( (ptr) gf_c21616)+17) ) == XR_GetReferentType(var_c20176))) { { word a_v7524; a_v7524 = var_c20176; SOURCE(4352, 24) return((word) Equal_P960((* (( (ptr) a_v7524)+1) ), b_v5188)); }; } else { lab_L100016: ; }; }; SOURCE(4387, 52) { word var_c20240; var_c20240 = b_v5188; if ((var_c20240 == 0)) { goto lab_L100017; }; if (((* (( (ptr) gf_c21616)+17) ) == XR_GetReferentType(var_c20240))) { { word b_v7568; b_v7568 = var_c20240; SOURCE(4415, 24) return((word) Equal_P960(a_v5160, (* (( (ptr) b_v7568)+1) ))); }; } else { lab_L100017: ; }; }; SOURCE(4450, 13) return(0); } static word CvX_P1020(x_v5292) word x_v5292; { register ptr gf_c21648 = (ptr) &globalframe; word var_c5336; /* CvX: */ SOURCE(4469, 183) SOURCE(4513, 139) { word var_c20304; var_c20304 = x_v5292; if ((var_c20304 == 0)) { goto lab_L100018; }; if (((* (( (ptr) gf_c21648)+17) ) == XR_GetReferentType(var_c20304))) { { word x_v7612; x_v7612 = var_c20304; SOURCE(4541, 51) if (((* (ptr) x_v7612 ) == 1)) { return(x_v7612); } else { return((word) CvX_P1020((* ((( (ptr) x_v7612)+1)) ))); }; }; } else { lab_L100018: ; SOURCE(4605, 47) { word var_c20400; var_c20400 = XR_NewObject(8, (* (( (ptr) gf_c21648)+17) )); (* (ptr) var_c20400 ) = 1; (* (( (ptr) var_c20400)+1) ) = x_v5292; return(var_c20400); }; }; }; } static word CvLit_P1080(x_v5396) word x_v5396; { register ptr gf_c21680 = (ptr) &globalframe; word var_c5440; /* CvLit: */ SOURCE(4658, 181) SOURCE(4704, 135) { word var_c20432; var_c20432 = x_v5396; if ((var_c20432 == 0)) { goto lab_L100019; }; if (((* (( (ptr) gf_c21680)+17) ) == XR_GetReferentType(var_c20432))) { { word x_v7656; x_v7656 = var_c20432; SOURCE(4732, 50) if (((* (ptr) x_v7656 ) == 0)) { return(x_v7656); } else { return((word) CvLit_P1080((* ((( (ptr) x_v7656)+1)) ))); }; }; } else { lab_L100019: ; SOURCE(4795, 44) { word var_c20528; var_c20528 = XR_NewObject(8, (* (( (ptr) gf_c21680)+17) )); (* (( (ptr) var_c20528)+1) ) = x_v5396; return(var_c20528); }; }; }; } static word CvI_P1140(x_v5500) word x_v5500; { register ptr gf_c21712 = (ptr) &globalframe; word var_c5544; /* CvI: */ SOURCE(4845, 304) SOURCE(4889, 249) { word var_c20560; word var_c20592; var_c20560 = x_v5500; if ((var_c20560 == 0)) { goto lab_L100020; }; var_c20592 = XR_GetReferentType(var_c20560); { word tc103; if (((* (( (ptr) gf_c21712)+18) ) == var_c20592)) { { word x_v7700; x_v7700 = var_c20560; SOURCE(4921, 108) { word var_c20624; var_c20624 = (* (ptr) x_v7700 ); if ((var_c20624 == 0)) { SOURCE(4950, 13) return((* (( (ptr) x_v7700)+1) )); } else { if ((var_c20624 == 1)) { SOURCE(4973, 26) { word pd101; pd101 = (* (( (ptr) (* (( (ptr) gf_c21712)+94)/* var_c18384 */ ))+6) ); return((word) ( *( (fPt) ((* (ptr) pd101 ))))((* ((( (ptr) x_v7700)+1)) ), pd101)); }; } else { SOURCE(5012, 17) { word pd102; pd102 = (* (( (ptr) (* (( (ptr) gf_c21712)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd102 ))))(14, pd102); }; }; }; }; }; goto endif0100; }; if (((* (( (ptr) gf_c21712)+9) ) == var_c20592)) { tc103 = (word) ( (unsigned) (*(int*)var_c20560<0) == 0); } else { tc103 = (word) 0; }; if (tc103) { { word x_v7744; x_v7744 = var_c20560; SOURCE(5042, 30) { word pd104; pd104 = (* (( (ptr) (* (( (ptr) gf_c21712)+96)/* var_c20720 */ ))+10) ); return((word) ( *( (fPt) ((* (ptr) pd104 ))))(x_v7744, 8, pd104)); }; }; }; if (((* (( (ptr) gf_c21712)+17) ) == var_c20592)) { { word x_v7788; x_v7788 = var_c20560; SOURCE(5083, 19) return((word) CvI_P1140((* ((( (ptr) x_v7788)+1)) ))); }; }; lab_L100020: ; SOURCE(5115, 23) { word pd105; pd105 = (* (( (ptr) (* (( (ptr) gf_c21712)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd105 ))))(2, pd105); }; goto endif0100; endif0100: ; }; }; SOURCE(5140, 9) return(0); } static word CvR_P1200(x_v5604) word x_v5604; { register ptr gf_c21744 = (ptr) &globalframe; word var_c5648; /* CvR: */ SOURCE(5155, 300) SOURCE(5200, 244) { word var_c20784; word var_c20816; var_c20784 = x_v5604; if ((var_c20784 == 0)) { goto lab_L100021; }; var_c20816 = XR_GetReferentType(var_c20784); { word tc109; if (((* (( (ptr) gf_c21744)+18) ) == var_c20816)) { { word x_v7832; x_v7832 = var_c20784; SOURCE(5232, 102) { word var_c20848; var_c20848 = (* (ptr) x_v7832 ); if ((var_c20848 == 0)) { SOURCE(5261, 19) { float tf107; return(( tf107 = (float)(int)(* (( (ptr) x_v7832)+1) ), *(word*)&tf107 )); }; } else { if ((var_c20848 == 1)) { SOURCE(5290, 14) return((* (( (ptr) x_v7832)+1) )); } else { SOURCE(5317, 17) { word pd108; pd108 = (* (( (ptr) (* (( (ptr) gf_c21744)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd108 ))))(14, pd108); }; }; }; }; }; goto endif0106; }; if (((* (( (ptr) gf_c21744)+9) ) == var_c20816)) { tc109 = (word) ( (unsigned) (*(int*)var_c20784<0) == 0); } else { tc109 = (word) 0; }; if (tc109) { { word x_v7876; x_v7876 = var_c20784; SOURCE(5347, 31) { word pd110; pd110 = (* (( (ptr) (* (( (ptr) gf_c21744)+96)/* var_c20720 */ ))+12) ); return((word) ( *( (fPt) ((* (ptr) pd110 ))))(x_v7876, pd110)); }; }; }; if (((* (( (ptr) gf_c21744)+17) ) == var_c20816)) { { word x_v7920; x_v7920 = var_c20784; SOURCE(5389, 19) return((word) CvR_P1200((* ((( (ptr) x_v7920)+1)) ))); }; }; lab_L100021: ; SOURCE(5421, 23) { word pd111; pd111 = (* (( (ptr) (* (( (ptr) gf_c21744)+93)/* var_c18032 */ ))+95) ); (void) ( *( (fPt) ((* (ptr) pd111 ))))(2, pd111); }; goto endif0106; endif0106: ; }; }; SOURCE(5446, 9) return((* (ptr) &fc73 )); } static void ApplyType_P1260(frame_v13224, cmd_v13252) word frame_v13224; word cmd_v13252; { register ptr gf_c21776 = (ptr) &globalframe; word x_v7964; word type_v7992; /* ApplyType: */ SOURCE(5462, 105) SOURCE(5489, 19) { word pd112; pd112 = (* (( (ptr) (* (( (ptr) gf_c21776)+93)/* var_c18032 */ ))+37) ); x_v7964 = (word) ( *( (fPt) ((* (ptr) pd112 ))))(frame_v13224, pd112); }; SOURCE(5510, 24) type_v7992 = (word) Type_P840(x_v7964); SOURCE(5536, 31) { word pd113; pd113 = (* (( (ptr) (* (( (ptr) gf_c21776)+93)/* var_c18032 */ ))+30) ); (void) ( *( (fPt) ((* (ptr) pd113 ))))(frame_v13224, (* (( (ptr) (* (( (ptr) gf_c21776)+6)/* typeAtom_v3112 */ ))+type_v7992) ), pd113); }; } static void ApplyLength_P1320(frame_v13312, cmd_v13340) word frame_v13312; word cmd_v13340; { register ptr gf_c21808 = (ptr) &globalframe; word x_v8036; /* ApplyLength: */ SOURCE(5573, 75) SOURCE(5602, 19) { word pd114; pd114 = (* (( (ptr) (* (( (ptr) gf_c21808)+93)/* var_c18032 */ ))+37) ); x_v8036 = (word) ( *( (fPt) ((* (ptr) pd114 ))))(frame_v13312, pd114); }; SOURCE(5623, 25) { word var_c20944; var_c20944 = (word) Length_P900(x_v8036); { word pd115; pd115 = (* (( (ptr) (* (( (ptr) gf_c21808)+93)/* var_c18032 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd115 ))))(frame_v13312, var_c20944, pd115); }; }; } static void ApplyCvLit_P1380(frame_v13400, cmd_v13428) word frame_v13400; word cmd_v13428; { register ptr gf_c21840 = (ptr) &globalframe; word x_v8080; /* ApplyCvLit: */ SOURCE(5654, 70) SOURCE(5682, 19) { word pd116; pd116 = (* (( (ptr) (* (( (ptr) gf_c21840)+93)/* var_c18032 */ ))+37) ); x_v8080 = (word) ( *( (fPt) ((* (ptr) pd116 ))))(frame_v13400, pd116); }; SOURCE(5703, 21) { word var_c20976; var_c20976 = (word) CvLit_P1080(x_v8080); { word pd117; pd117 = (* (( (ptr) (* (( (ptr) gf_c21840)+93)/* var_c18032 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd117 ))))(frame_v13400, var_c20976, pd117); }; }; } static void ApplyCvX_P1440(frame_v13488, cmd_v13516) word frame_v13488; word cmd_v13516; { register ptr gf_c21872 = (ptr) &globalframe; word x_v8124; /* ApplyCvX: */ SOURCE(5730, 66) SOURCE(5756, 19) { word pd118; pd118 = (* (( (ptr) (* (( (ptr) gf_c21872)+93)/* var_c18032 */ ))+37) ); x_v8124 = (word) ( *( (fPt) ((* (ptr) pd118 ))))(frame_v13488, pd118); }; SOURCE(5777, 19) { word var_c21008; var_c21008 = (word) CvX_P1020(x_v8124); { word pd119; pd119 = (* (( (ptr) (* (( (ptr) gf_c21872)+93)/* var_c18032 */ ))+25) ); (void) ( *( (fPt) ((* (ptr) pd119 ))))(frame_v13488, var_c21008, pd119); }; }; } static void ApplyCvI_P1500(frame_v13576, cmd_v13604) word frame_v13576; word cmd_v13604; { register ptr gf_c21904 = (ptr) &globalframe; word x_v8168; /* ApplyCvI: */ SOURCE(5802, 69) SOURCE(5828, 19) { word pd120; pd120 = (* (( (ptr) (* (( (ptr) gf_c21904)+93)/* var_c18032 */ ))+37) ); x_v8168 = (word) ( *( (fPt) ((* (ptr) pd120 ))))(frame_v13576, pd120); }; SOURCE(5849, 22) { word var_c21040; var_c21040 = (word) CvI_P1140(x_v8168); { word pd121; pd121 = (* (( (ptr) (* (( (ptr) gf_c21904)+93)/* var_c18032 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd121 ))))(frame_v13576, var_c21040, pd121); }; }; } static void ApplyCvR_P1560(frame_v13664, cmd_v13692) word frame_v13664; word cmd_v13692; { register ptr gf_c21936 = (ptr) &globalframe; word x_v8212; /* ApplyCvR: */ SOURCE(5877, 70) SOURCE(5903, 19) { word pd122; pd122 = (* (( (ptr) (* (( (ptr) gf_c21936)+93)/* var_c18032 */ ))+37) ); x_v8212 = (word) ( *( (fPt) ((* (ptr) pd122 ))))(frame_v13664, pd122); }; SOURCE(5924, 23) { word var_c21072; var_c21072 = (word) CvR_P1200(x_v8212); { word pd123; pd123 = (* (( (ptr) (* (( (ptr) gf_c21936)+93)/* var_c18032 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd123 ))))(frame_v13664, var_c21072, pd123); }; }; } static void ApplyCommandName_P1620(frame_v13752, cmd_v13780) word frame_v13752; word cmd_v13780; { register ptr gf_c21968 = (ptr) &globalframe; word x_v8256; /* ApplyCommandName: */ SOURCE(5953, 81) SOURCE(5987, 22) { word pd124; pd124 = (* (( (ptr) (* (( (ptr) gf_c21968)+93)/* var_c18032 */ ))+45) ); x_v8256 = (word) ( *( (fPt) ((* (ptr) pd124 ))))(frame_v13752, pd124); }; SOURCE(6011, 23) { word pd125; pd125 = (* (( (ptr) (* (( (ptr) gf_c21968)+93)/* var_c18032 */ ))+30) ); (void) ( *( (fPt) ((* (ptr) pd125 ))))(frame_v13752, (* (( (ptr) x_v8256)+2) ), pd125); }; } /* file: TJaMTypeImpl, module: TJaMTypeImpl, compiled at: October 19, 1993 1:02:24 pm PDT */ extern void XR_install_TJaMTypeImpl() { NoName_Q4128(); } extern void XR_run_TJaMTypeImpl() { XR_Start(&globalframe); }