/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1993 by Xerox Corporation.  All rights reserved. */
/* time: March 10, 1993 10:56:47 am PST */
/* C2C version: February 24, 1993 (sun4) */
/* ref-counting: off */
/* file: XlFontOpsImpl, module: XlFontOpsImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
#define XRM_BITAND(x, y) (((word)(x)) & ((word)(y)))
static char versionStamp[] = "@(#)mob_version [2527907169,1062428210] XlFontOpsImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; word r;} W9;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2;} W3;
typedef W3 *W3Pt;
#define SOURCE(p, l) /* source p, l */
#define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
#define IOP2(op, x, y)  ( (word) ((x) op (y)) )
#define MAX(cast, x, y)  ( ( cast x) > ( cast y) ? (x) : (y) )
static void NoName_Q780();
static void XlFontOpsImpl_P0();
static word Init_P60();
static void InvalidateDB_P120();
static word NiceOpenFont_P180();
static word NoName_Q840();
static word GetDefaultFont_P240();
static word Each_P480();
static void QueryPosInfo_P300();
static void FindIdx_P420();
static void NoName_Q900();
static struct {unsigned f; char r[4];} string1 = {65540, "\251\000\000"};
static struct {unsigned f; char r[4];} string2 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string3 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string4 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string5 = {65540, "\242\000\000"};
static struct {unsigned f; char r[24];} string6 = {1376280, "\216\211\010\007\106\157\156\164\122\145\160\300\351\276\264\273\300\115\104\320\264\000\000"};
static struct {unsigned f; char r[44];} string7 = {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[16];} string8 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"};
static struct {unsigned f; char r[24];} string9 = {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[24];} string10 = {1310744, "(Cedar)(defaultFont)\000\000\000"};
static struct {unsigned f; char r[4];} string11 = {65540, "x\000\000"};
static struct {unsigned f; char r[8];} string12 = {262152, "8x13\000\000\000"};
static struct {unsigned f; char r[8];} string13 = {458760, "serif12"};
static struct {unsigned f; char r[36];} string14 = {2293796, "*adobe-helvetica-medium*normal--12*"};
static struct {unsigned f; char r[12];} string15 = {720908, "*helvetica*"};
static struct {unsigned f; char r[8];} string16 = {458760, "*times*"};
static struct {unsigned f; char r[4];} string17 = {65540, "*\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\226\254\315\141\300\077\123\136\062\100\164\000\000"};
static struct {unsigned f; char r[12];} string19 = {589833, "\006\002\040\001\100\110\004\100\377\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300\047\312\257\214\300\225\003\264\361\100\150\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\351\276\264\273\300\115\104\320\264\100\164\000\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\264\326\343\056\300\340\077\001\214\100\150\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\337\070\153\303\300\227\216\321\214\100\150\000\000"};
static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\213\047\253\045\300\271\243\347\012\100\150\000\000"};
static struct {
   word f0[26]; word f26; word f27; word f28; 
   word f29; word f30; word f31; word f32; 
   word f33; word f34; word f35; word f36; 
   word f37; word f38; word f39[7]; 
   } globalframe = {
   {0}, (word) FindIdx_P420, 0, (word) QueryPosInfo_P300, 
   0, (word) GetDefaultFont_P240, 0, (word) NiceOpenFont_P180, 
   0, (word) InvalidateDB_P120, 0, (word) Init_P60, 
   0, (word) XlFontOpsImpl_P0, {0}
   };

static void NoName_Q780()
   {
   register ptr gf_c083 =  (ptr) &globalframe;
   word var_c13480;
   (* (( (ptr) gf_c083)+9) ) = (word) XR_GetTypeIndexS((word) (&string1));
   (* (( (ptr) gf_c083)+10) ) = (word) XR_GetTypeIndex((word) &string2, 0, (word) &string3);
   (* (( (ptr) gf_c083)+11) ) = (word) XR_GetTypeIndex((word) &string4, 0, (word) &string3);
   (* (( (ptr) gf_c083)+12) ) = (word) XR_GetTypeIndexS((word) (&string5));
   (* (( (ptr) gf_c083)+14) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string3);
   (* (( (ptr) gf_c083)+16) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string3);
   (* (( (ptr) gf_c083)+17) ) = (word) XR_GetTypeIndex((word) &string8, 0, (word) &string9);
   (*  (ptr) (( (bPt) gf_c083)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c083)+16) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c083)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c083)+10) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c083)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c083)+11) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c083)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c083)+11) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c083)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c083)+11) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c083)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c083)+11) ), (word) &string15);
   (*  (ptr) (( (bPt) gf_c083)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c083)+11) ), (word) &string16);
   (*  (ptr) (( (bPt) gf_c083)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c083)+11) ), (word) &string17);
   (void) XR_DeclareGlobalFrame((word) "XlFontOpsImpl", &globalframe, (word) XR_GetTypeIndex((word) &string18, 0, (word) &string19)
      , (word) (( (bPt) gf_c083)+152)/* var_c12840 */ );
   var_c13480 = (word) XR_ImportInterface((word) "Customize", (word) XR_GetTypeIndexS((word) (&string20)), 19);
   (* (( (ptr) gf_c083)+43)/* var_c13032 */  ) = var_c13480;
   (void) XR_ImportProcS(var_c13480, 67634946);
   var_c13480 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string21)), 43);
   (* (( (ptr) gf_c083)+44)/* var_c13096 */  ) = var_c13480;
   (void) XR_ImportProcS(var_c13480, 67634434);
   (void) XR_ImportProcS(var_c13480, 67373569);
   (void) XR_ImportProcS(var_c13480, 67896323);
   (void) XR_ImportProcS(var_c13480, 67373313);
   var_c13480 = (word) XR_ImportInterface((word) "Xl", (word) XR_GetTypeIndexS((word) (&string22)), 218);
   (* (( (ptr) gf_c083)+41)/* var_c12936 */  ) = var_c13480;
   (void) XR_ImportProcS(var_c13480, 67658498);
   (void) XR_ImportProcS(var_c13480, 1336837);
   (void) XR_ImportProcS(var_c13480, 67901699);
   (void) XR_ImportProcS(var_c13480, 67919875);
   (void) XR_ImportProcS(var_c13480, 67639298);
   var_c13480 = (word) XR_ImportInterface((word) "XlDB", (word) XR_GetTypeIndexS((word) (&string23)), 4);
   (* (( (ptr) gf_c083)+40)/* var_c12904 */  ) = var_c13480;
   (void) XR_ImportProcS(var_c13480, 67371265);
   (void) XR_ImportProcS(var_c13480, 1049092);
   var_c13480 = (word) XR_ImportInterface((word) "XlDetails", (word) XR_GetTypeIndexS((word) (&string24)), 4);
   (* (( (ptr) gf_c083)+42)/* var_c12968 */  ) = var_c13480;
   var_c13480 = (word) XR_ExportInterface((word) "XlFontOps", (word) XR_GetTypeIndexS((word) (&string25)), 2);
   (* (( (ptr) gf_c083)+45)/* var_c13512 */  ) = var_c13480;
   (void) XR_ExportProcS(var_c13480, (word) (( (bPt) gf_c083)+120)/* var_c12712 */ , 67371009);
   (void) XR_ExportProcS(var_c13480, (word) (( (bPt) gf_c083)+112)/* var_c12680 */ , 202375428);
   }

static void XlFontOpsImpl_P0(formal_c024, formal_c023)
   word formal_c024;
   word formal_c023;
   {
   register ptr gf_c13544 =  (ptr) &globalframe;
   /* XlFontOpsImpl: */ 
SOURCE(71, 3638)
SOURCE(198, 25)
   (* (( (ptr) gf_c13544)+8)/* myKey_v2776 */  ) = XR_NewObject(4, (* (( (ptr) gf_c13544)+12) ));
   }

static word Init_P60(c_v5812, key_v5840)
   word c_v5812;
   word key_v5840;
   {
   register ptr gf_c13576 =  (ptr) &globalframe;
   word val_v5884;
   word rf_v3732;
   /* Init: */ 
SOURCE(226, 132)
SOURCE(226, 132)
   val_v5884 = (* (( (ptr) gf_c13576)+19) );
SOURCE(258, 36)
   rf_v3732 = XR_NewObject(4, (* (( (ptr) gf_c13576)+14) ));
SOURCE(296, 48)
   {
      word pd26;
      pd26 = (* (( (ptr) (* (( (ptr) gf_c13576)+40)/* var_c12904 */  ))+6) );
      (void) ( *( (fPt) ((*  (ptr) pd26 ))))(c_v5812, (word) (( (bPt) gf_c13576)+136)/* var_c12776 */ , 0, 0, pd26);
      };
SOURCE(346, 12)
   return(rf_v3732);
   }

static void InvalidateDB_P120(event_v5944, clientData_v5972, tq_v6000)
   word event_v5944;
   word clientData_v5972;
   word tq_v6000;
   {
   register ptr gf_c13608 =  (ptr) &globalframe;
   word rf_v3788;
   /* InvalidateDB: */ 
SOURCE(362, 140)
SOURCE(397, 71)
   {
      word pd27;
      pd27 = (* (( (ptr) (* (( (ptr) gf_c13608)+41)/* var_c12936 */  ))+28) );
      rf_v3788 = XR_Narrow((word) ( *( (fPt) ((*  (ptr) pd27 ))))((* (( (ptr) event_v5944)+2) ), (* (( (ptr) gf_c13608)+8)/* myKey_v2776 */  ), pd27)
         , (* (( (ptr) gf_c13608)+14) ));
      };
SOURCE(470, 32)
   if ((rf_v3788 != 0)) {
SOURCE(485, 17)
      (*  (ptr) rf_v3788 ) = 0;
      };
   }

static word NiceOpenFont_P180(formal_c0100, formal_c0101)
   word formal_c0100;
   word formal_c0101;
   {
   W9 var_c13640;
   /* declaration of c_v3064 skipped */ 
   /* declaration of name_v3092 skipped */ 
   register ptr gf_c13672 =  (ptr) &globalframe;
   word font_v3136;
   (* (( (ptr) &var_c13640)+4)/* c_v3064 */  ) = formal_c0100;
   (* (( (ptr) &var_c13640)+5)/* name_v3092 */  ) = formal_c0101;
   /* NiceOpenFont: */ 
SOURCE(509, 216)
SOURCE(509, 216)
   font_v3136 = 0;
SOURCE(604, 121)
SOURCE(606, 71)
   {
      /* declaration of var_c01 skipped */ 
      /* declaration of var_c02 skipped */ 
      (* (( (ptr) &var_c13640)+6)/* var_c01 */  ) = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c13672)+42)/* var_c12968 */  ))+4) ) );
      (* (( (ptr) &var_c13640)+7)/* var_c02 */  ) = (* (( (ptr) (* (( (ptr) gf_c13672)+41)/* var_c12936 */  ))+100) );
      {
         /* declaration of var_c03 skipped */ 
         {
            word var_c04;
            {
               word var_c094;
               var_c094 = (word) &var_c13640;
               var_c04 = (word) XR_Enable(( ((word)  (fPt) NoName_Q840) ), ( ((word)  (fPt) NoName_Q900) ), var_c094);
               };
            if ((var_c04 == 2)) {
               goto lab_L100000;
               };
            };
         font_v3136 = (* (( (ptr) &var_c13640)+8)/* var_c03 */  );
         };
      };
   goto lab_L100003;
   lab_L100000: ;
SOURCE(703, 20)
   return(0);
   lab_L100003: ;
SOURCE(509, 216)
   return(font_v3136);
   }

static word NoName_Q840(formal_c088)
   word formal_c088;
   {
SOURCE(606, 71)
   {
      word pd28;
      pd28 = (* (( (ptr) formal_c088)+7) );
      (* (( (ptr) formal_c088)+8) ) = (word) ( *( (fPt) ((*  (ptr) pd28 ))))((* (( (ptr) formal_c088)+4) ), (* (( (ptr) formal_c088)+5)
          ), (* (( (ptr) formal_c088)+6) ), pd28);
      };
   return(0);
   }

static word GetDefaultFont_P240(formal_c0102)
   word formal_c0102;
   {
   W8 var_c13704;
   /* declaration of c_v3196 skipped */ 
   register ptr gf_c13736 =  (ptr) &globalframe;
   /* declaration of font_v3240 skipped */ 
   /* declaration of var_c13000 skipped */ 
   word rf_v3844;
   var_c13704.f4/* c_v3196 */  = formal_c0102;
   /* GetDefaultFont: */ 
SOURCE(729, 1121)
   {
      word tmpAddr29;
      tmpAddr29 = (word) (( (ptr) &var_c13704)+6)/* var_c13000 */ ;
      (*  (ptr) tmpAddr29 ) = ( ((word)  (fPt) Each_P480) );
      (* (( (ptr) tmpAddr29) + 1) ) = 1;
      };
SOURCE(729, 1121)
   var_c13704.f5/* font_v3240 */  = 0;
SOURCE(804, 69)
   {
      word pd30;
      pd30 = (* (( (ptr) (* (( (ptr) gf_c13736)+41)/* var_c12936 */  ))+29) );
      rf_v3844 = XR_Narrow((word) ( *( (fPt) ((*  (ptr) pd30 ))))(var_c13704.f4/* c_v3196 */ , (* (( (ptr) gf_c13736)+8)/* myKey_v2776 */  ), (word) (
               ( (bPt) gf_c13736)+144)/* var_c12808 */ , pd30), (* (( (ptr) gf_c13736)+14) ));
      };
SOURCE(1003, 35)
   if ((rf_v3844 == 0)) {
SOURCE(1018, 20)
      return(0);
      };
SOURCE(1040, 10)
   var_c13704.f5/* font_v3240 */  = (*  (ptr) rf_v3844 );
SOURCE(1052, 798)
   if ((var_c13704.f5/* font_v3240 */  == 0)) {
SOURCE(1077, 776)
      {
         word dbx_v4076;
         word fontName_v4104 = 0;
SOURCE(1080, 49)
         {
            word pd31;
            pd31 = (* (( (ptr) (* (( (ptr) gf_c13736)+40)/* var_c12904 */  ))+5) );
            dbx_v4076 = (word) ( *( (fPt) ((*  (ptr) pd31 ))))(var_c13704.f4/* c_v3196 */ , pd31);
            };
SOURCE(1159, 98)
         {
            word var_c13064;
            {
               word pd32;
               pd32 = (* (( (ptr) (* (( (ptr) gf_c13736)+43)/* var_c13032 */  ))+11) );
               var_c13064 = (word) ( *( (fPt) ((*  (ptr) pd32 ))))(dbx_v4076, (* (( (ptr) gf_c13736)+18) ), pd32);
               };
            if ((var_c13064 == 0)) {
               goto lab_L100004;
               };
            {
               word tc33;
               if (((* (( (ptr) gf_c13736)+17) ) == XR_GetReferentType(var_c13064))) {
                  tc33 =  (word) ( (unsigned) (*(int*)var_c13064<0) == 0);
                  }
               else {
                  tc33 =  (word) 0;
                  };
               if (tc33) {
                  {
                     word r_v4148;
                     r_v4148 = var_c13064;
SOURCE(1245, 12)
                     fontName_v4104 = r_v4148;
                     };
                  }
               else {
                  lab_L100004: ;
                  };
               };
            };
SOURCE(1274, 48)
         {
            word pd34;
            pd34 = (* (( (ptr) (* (( (ptr) gf_c13736)+44)/* var_c13096 */  ))+13) );
            if ((0 != (word) ( *( (fPt) ((*  (ptr) pd34 ))))(fontName_v4104, pd34))) {
SOURCE(1305, 17)
               fontName_v4104 = (* (( (ptr) gf_c13736)+20) );
               };
            };
SOURCE(1324, 24)
         {
            word var_c13128;
            var_c13128 = (word) Each_P480(fontName_v4104, 0, (word) (( (bPt) &var_c13704)+24)/* var_c13000 */ );
            };
SOURCE(1350, 413)
         if ((var_c13704.f5/* font_v3240 */  == 0)) {
SOURCE(1377, 60)
            {
               word pd35;
               pd35 = (* (( (ptr) (* (( (ptr) gf_c13736)+44)/* var_c13096 */  ))+8) );
               if ((0 == (word) ( *( (fPt) ((*  (ptr) pd35 ))))(fontName_v4104, (* (( (ptr) gf_c13736)+20) ), 1, pd35))) {
SOURCE(1415, 22)
                  {
                     word var_c13160;
                     var_c13160 = (word) Each_P480((* (( (ptr) gf_c13736)+20) ), 0, (word) (( (bPt) &var_c13704)+24)/* var_c13000 */ );
                     };
                  };
               };
SOURCE(1439, 50)
            if ((var_c13704.f5/* font_v3240 */  == 0)) {
SOURCE(1464, 25)
               {
                  word var_c13192;
                  var_c13192 = (word) Each_P480((* (( (ptr) gf_c13736)+21) ), 0, (word) (( (bPt) &var_c13704)+24)/* var_c13000 */ );
                  };
               };
SOURCE(1491, 88)
            if ((var_c13704.f5/* font_v3240 */  == 0)) {
SOURCE(1516, 63)
               {
                  word pd36;
                  pd36 = (* (( (ptr) (* (( (ptr) gf_c13736)+41)/* var_c12936 */  ))+106) );
                  (void) ( *( (fPt) ((*  (ptr) pd36 ))))(var_c13704.f4/* c_v3196 */ , (word) (( (bPt) &var_c13704)+24)/* var_c13000 */ , (* (
                        ( (ptr) gf_c13736)+22) ), 3, 0, pd36);
                  };
               };
SOURCE(1581, 64)
            if ((var_c13704.f5/* font_v3240 */  == 0)) {
SOURCE(1606, 39)
               {
                  word pd37;
                  pd37 = (* (( (ptr) (* (( (ptr) gf_c13736)+41)/* var_c12936 */  ))+106) );
                  (void) ( *( (fPt) ((*  (ptr) pd37 ))))(var_c13704.f4/* c_v3196 */ , (word) (( (bPt) &var_c13704)+24)/* var_c13000 */ , (* (
                        ( (ptr) gf_c13736)+23) ), 3, 0, pd37);
                  };
               };
SOURCE(1647, 60)
            if ((var_c13704.f5/* font_v3240 */  == 0)) {
SOURCE(1672, 35)
               {
                  word pd38;
                  pd38 = (* (( (ptr) (* (( (ptr) gf_c13736)+41)/* var_c12936 */  ))+106) );
                  (void) ( *( (fPt) ((*  (ptr) pd38 ))))(var_c13704.f4/* c_v3196 */ , (word) (( (bPt) &var_c13704)+24)/* var_c13000 */ , (* (
                        ( (ptr) gf_c13736)+24) ), 3, 0, pd38);
                  };
               };
SOURCE(1709, 54)
            if ((var_c13704.f5/* font_v3240 */  == 0)) {
SOURCE(1734, 29)
               {
                  word pd39;
                  pd39 = (* (( (ptr) (* (( (ptr) gf_c13736)+41)/* var_c12936 */  ))+106) );
                  (void) ( *( (fPt) ((*  (ptr) pd39 ))))(var_c13704.f4/* c_v3196 */ , (word) (( (bPt) &var_c13704)+24)/* var_c13000 */ , (* (
                        ( (ptr) gf_c13736)+25) ), 5, 0, pd39);
                  };
               };
            };
SOURCE(1768, 82)
         if ((var_c13704.f5/* font_v3240 */  != 0)) {
SOURCE(1840, 10)
            (*  (ptr) rf_v3844 ) = var_c13704.f5/* font_v3240 */ ;
            };
         };
      };
SOURCE(729, 1121)
   return(var_c13704.f5/* font_v3240 */ );
   }

static word Each_P480(name_v3960, data_v3988, formal_c13768)
   word name_v3960;
   word data_v3988;
   word formal_c13768;
   {
   word quit_v4048;
   formal_c13768 = (formal_c13768 - 24);
   /* Each: */ 
SOURCE(875, 125)
SOURCE(946, 28)
   (* (( (ptr) formal_c13768)+5) ) = (word) NiceOpenFont_P180((* (( (ptr) formal_c13768)+4) ), name_v3960);
SOURCE(976, 24)
   quit_v4048 =  (unsigned) ((* (( (ptr) formal_c13768)+5) ) != 0);
SOURCE(875, 125)
   return(quit_v4048);
   }

static void QueryPosInfo_P300(formal_c057, c_v3300, font_v3328, text_v3356, x_v3384)
   word formal_c057;
   word c_v3300;
   word font_v3328;
   word text_v3356;
   word x_v3384;
   {
   register ptr gf_c13800 =  (ptr) &globalframe;
   W3 p_v3428;
   word fi_v4192;
   /* QueryPosInfo: */ 
SOURCE(1860, 222)
SOURCE(1860, 222)
   p_v3428.f0 = 0;
   p_v3428.f1 = 0;
   p_v3428.f2 = 0;
SOURCE(1986, 55)
   {
      word pd40;
      pd40 = (* (( (ptr) (* (( (ptr) gf_c13800)+41)/* var_c12936 */  ))+103) );
      fi_v4192 = (word) ( *( (fPt) ((*  (ptr) pd40 ))))(c_v3300, font_v3328, pd40);
      };
SOURCE(2043, 39)
   if ((fi_v4192 != 0)) {
SOURCE(2058, 24)
      (void) FindIdx_P420((word) &p_v3428, fi_v4192, text_v3356, x_v3384);
      };
   /* removed tail goto */ 
   (*  (W3Pt) formal_c057 ) = p_v3428;
   return;
   }

static void FindIdx_P420(formal_c076, fi_v3592, text_v3620, xPos_v3648)
   word formal_c076;
   word fi_v3592;
   word text_v3620;
   word xPos_v3648;
   {
   register ptr gf_c13832 =  (ptr) &globalframe;
   W3 pi_v3704;
   word charPos_v4276 = 0;
   word overallRight_v4304 = 0;
   word overallWidth_v4332 = 0;
   word lastOverallRight_v4360 = 0;
   word firstCol_v4388;
   word numCols_v4416;
   word length_v4444;
   word idx_v4472;
   /* FindIdx: */ 
SOURCE(2272, 1437)
SOURCE(2272, 1437)
   pi_v3704.f0 = 0;
   pi_v3704.f1 = 0;
   pi_v3704.f2 = 0;
SOURCE(2459, 33)
   {
      word idx41;
      firstCol_v4388 = (
         idx41 = (* (( (ptr) fi_v3592)+4) ),
         SGNCK(idx41)
         );
      };
SOURCE(2494, 43)
   numCols_v4416 = (((* (( (ptr) fi_v3592)+5) ) - firstCol_v4388) + 1);
SOURCE(2539, 31)
   {
      word pd42;
      pd42 = (* (( (ptr) (* (( (ptr) gf_c13832)+44)/* var_c13096 */  ))+14) );
      length_v4444 = (word) ( *( (fPt) ((*  (ptr) pd42 ))))(text_v3620, pd42);
      };
SOURCE(2582, 1127)
   lab_L100009: ;
   {
      word var_c13256;
      word attributes_v12600;
SOURCE(2585, 65)
      if (( (int)charPos_v4276 >=  (int)length_v4444)) {
SOURCE(2609, 41)
         pi_v3704.f0 = charPos_v4276;
         pi_v3704.f1 = charPos_v4276;
         pi_v3704.f2 = overallRight_v4304;
         goto lab_L100006;
         };
SOURCE(2652, 36)
      {
         word pd43;
         pd43 = (* (( (ptr) (* (( (ptr) gf_c13832)+44)/* var_c13096 */  ))+9) );
         idx_v4472 = (word) ( *( (fPt) ((*  (ptr) pd43 ))))(text_v3620, charPos_v4276, pd43);
         };
SOURCE(2690, 20)
      idx_v4472 = (idx_v4472 - firstCol_v4388);
SOURCE(2712, 225)
      {
         word tc45;
         if (( (int)idx_v4472 <  (int)0)) { goto then044;};
         if (( (int)idx_v4472 >=  (int)numCols_v4416)) { goto then044;};
         if ( ( ((* (( (ptr) fi_v3592)+14) ) != 0) ? ( (int)(*  (ptr) (* (( (ptr) fi_v3592)+14) ) ) >  (int)idx_v4472) : 0 ) ) {
            {
               word var_c095;
               word var_c13288;
               {
                  word limit46;
                  var_c13288 = (* (( (ptr) fi_v3592)+14) );
                  var_c095 = (var_c095 & 4294901760) | ((word) ((* (( (hPt) (( (W3Pt) (( (ptr) var_c13288)+1))+(
/*1*/      limit46 = (*  (ptr) var_c13288 ),
/*1*/      BCK(idx_v4472, limit46)
/*1*/      )))+5) )));
                  };
               attributes_v12600 =  (unsigned) ( (((unsigned)var_c095 << 16) >> 16) );
               };
SOURCE(2199, 69)
            var_c13256 =  (unsigned) ((word) XRM_BITAND(attributes_v12600, 16384) == 0);
            tc45 =  (word) (0 == var_c13256);
            }
         else {
            tc45 =  (word) 0;
            };
         if (tc45) {
            then044: ;
SOURCE(2841, 20)
            idx_v4472 = (* (( (ptr) fi_v3592)+6) );
SOURCE(2863, 20)
            idx_v4472 = (idx_v4472 - firstCol_v4388);
SOURCE(2885, 52)
            if (( (int)idx_v4472 <  (int)0) || ( (int)idx_v4472 >=  (int)numCols_v4416)) {
SOURCE(2918, 19)
               charPos_v4276 = (charPos_v4276 + 1);
SOURCE(2939, 4)
               goto lab_L100009;
               };
            };
         };
SOURCE(2981, 470)
      {
         word p_v4516;
         word var_c13352;
         word attributes_v12524;
SOURCE(3027, 195)
         if ( ( ((* (( (ptr) fi_v3592)+14) ) != 0) ? ( (int)idx_v4472 <  (int)(*  (ptr) (* (( (ptr) fi_v3592)+14) ) )) : 0 ) ) {
SOURCE(3079, 103)
            p_v4516 = (((* (( (ptr) fi_v3592)+14) ) + IOP2( * ,  (int)idx_v4472,  (int)12)) + 4);
            }
         else {
SOURCE(3182, 40)
            p_v4516 = (*  (ptr) fi_v3592 );
            };
SOURCE(3224, 57)
         attributes_v12524 =  (unsigned) (* (( (hPt) p_v4516)+5) );
SOURCE(2199, 69)
         var_c13352 =  (unsigned) ((word) XRM_BITAND(attributes_v12524, 16384) == 0);
         if ((0 == var_c13352)) {
SOURCE(3262, 19)
            charPos_v4276 = (charPos_v4276 + 1);
SOURCE(3283, 4)
            goto lab_L100009;
            };
SOURCE(3314, 31)
         lastOverallRight_v4360 = overallRight_v4304;
SOURCE(3347, 61)
         {
            word x47;
            overallRight_v4304 = (x47 = (overallWidth_v4332 +  (int) ( short )(* (( (hPt) p_v4516)+1) )),
               MAX((int)(word), overallRight_v4304, x47));
            };
SOURCE(3410, 39)
         overallWidth_v4332 = (overallWidth_v4332 +  (int) ( short )(* (( (hPt) p_v4516)+2) ));
         };
SOURCE(3454, 19)
      charPos_v4276 = (charPos_v4276 + 1);
SOURCE(3475, 234)
      if (( (int)overallRight_v4304 >=  (int)xPos_v3648)) {
SOURCE(3504, 205)
         if (( (int)(overallRight_v4304 - xPos_v3648) <  (int)(xPos_v3648 - lastOverallRight_v4360))) {
SOURCE(3557, 76)
            pi_v3704.f0 = (charPos_v4276 - 1);
            pi_v3704.f1 = charPos_v4276;
            pi_v3704.f2 = overallRight_v4304;
            goto lab_L100006;
            }
         else {
SOURCE(3633, 76)
            pi_v3704.f0 = (charPos_v4276 - 1);
            pi_v3704.f1 = (charPos_v4276 - 1);
            pi_v3704.f2 = lastOverallRight_v4360;
            goto lab_L100006;
            };
         };
      };
   goto lab_L100009;
   lab_L100006: ;
   (*  (W3Pt) formal_c076 ) = pi_v3704;
   return;
   }

static void NoName_Q900(formal_c082, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c082;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c093 =  (ptr) &globalframe;
   if ((formal_c200001 == (* (( (ptr) (* (( (ptr) gf_c093)+41)/* var_c12936 */  ))+4) ))) {
      {
         word err_v7276;
         err_v7276 = (*  (ptr) formal_c200003 );
SOURCE(677, 10)
         (*  (ptr) formal_c082 ) = 2;
         (* (( (ptr) formal_c082)+1) ) = 2;
         return;
         };
      };
   (*  (ptr) formal_c082 ) = 0;
   (* (( (ptr) formal_c082)+1) ) = 0;
   return;
   }

/* file: XlFontOpsImpl, module: XlFontOpsImpl, compiled at: March 10, 1993 10:56:46 am PST */ 
extern void XR_install_XlFontOpsImpl() {
   NoName_Q780();
   }
extern void XR_run_XlFontOpsImpl() { XR_Start(&globalframe); }