/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 27, 1992 5:59:20 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: TEditDocumentsCacheImpl, module: TEditDocumentsCacheImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1006287697,2652468246] TEditDocumentsCacheImpl";
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 {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
typedef struct {word f0, f1, f2, f3, f4;} W5;
typedef struct {W8 f; W5 r;} W13;
typedef struct {W8 f; W8 r;} W16;
typedef struct {W8 f; W6 r;} W14;
typedef struct {W16 f; W14 r;} W30;
typedef struct {word f0, f1, f2, f3;} W4;
typedef struct {W8 f; W4 r;} W12;
typedef struct {W16 f; W12 r;} W28;
typedef struct {word f0, f1, f2;} W3;
typedef struct {W8 f; W3 r;} W11;
typedef struct {W16 f; W11 r;} W27;
typedef W27 *W27Pt;
typedef W28 *W28Pt;
typedef struct {unsigned u1:5, f:1, u2:2;} * P1x5b;
#define SOURCE(p, l) /* source p, l */
#define MAX(cast, x, y)  ( ( cast x) > ( cast y) ? (x) : (y) )
#define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) )
static void NoName_Q1008();
static void TEditDocumentsCacheImpl_P0();
static word GetList_P60();
static word GetListInternal_P120();
static void RecordUnsavedDocument_P180();
static word NoName_Q1068();
static word Size_P576();
static word FindUnsavedDocument_P240();
static word NoName_Q1128();
static void DiscardOldest_P300();
static word SearchList_P360();
static void Update_P420();
static word NoName_Q1188();
static word ViewerOk_P828();
static void Put_P888();
static word action_P948();
static void NoName_Q1248();
static void NoName_Q1308();
static void NoName_Q1368();
static word NoName_Q1428();
static word NoName_Q1488();
static struct {unsigned f; char r[16];} string1 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\073\372\273\121\300\236\031\164\026\100\200\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\004\003\000"};
static struct {unsigned f; char r[48];} string5 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\073\372\273\121\300\236\031\164\026\100\200\005\004\162\145\163\164\214\216\257\300\073\372\273\121\300\236\031\164\026\100\200\261\000\000\000"};
static struct {unsigned f; char r[4];} string6 = {131076, "\216\251\000"};
static struct {unsigned f; char r[24];} string7 = {1441816, "Unsaved Documents List\000"};
static struct {unsigned f; char r[8];} string8 = {262152, "Text\000\000\000"};
static struct {unsigned f; char r[4];} string9 = {65540, "\012\000\000"};
static struct {unsigned f; char r[12];} string10 = {524300, "ReadOnly\000\000\000"};
static struct {unsigned f; char r[8];} string11 = {262152, "note\000\000\000"};
static struct {unsigned f; char r[192];} string12 = {12517568, "The following files were edited but not saved.  They may still be restored with edits intact simply by loading them.  If you really want to get rid of the edits, load the file and hit Reset.\012"};
static struct {unsigned f; char r[8];} string13 = {262152, "lead\000\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\073\372\273\121\300\236\031\164\026\100\164\000\000"};
static struct {unsigned f; char r[12];} string15 = {720907, "\006\003 \001$\001@D\004@\177"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\317\042\141\053\300\247\142\073\274\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\013\141\323\354\300\341\005\243\127\100\150\000\000"};
static struct {unsigned f; char r[16];} string20 = {851984, "\257\300R-\356\251\300YX]$@h\000\000"};
static struct {unsigned f; char r[16];} string21 = {851984, "\257\300\056\236\052\251\300\206\175\213\250\100\150\000\000"};
static struct {unsigned f; char r[16];} string22 = {851984, "\257\300\160\267\337\115\300\374\200\221\327\100\150\000\000"};
static struct {unsigned f; char r[16];} string23 = {851984, "\257\300\354\332\367\333\300\361\203\205\173\100\150\000\000"};
static struct {unsigned f; char r[16];} string24 = {851984, "\257\300\263\250\256\142\300\214\116\106\070\100\150\000\000"};
static struct {unsigned f; char r[16];} string25 = {851984, "\257\300\165\053\345\211\300\333\235\216\021\100\150\000\000"};
static struct {
   word f0[24]; word f24; word f25; 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[10]; 
   } globalframe = {
   {0}, (word) Update_P420, 0, (word) SearchList_P360, 
   0, (word) DiscardOldest_P300, 0, (word) FindUnsavedDocument_P240, 
   0, (word) RecordUnsavedDocument_P180, 0, (word) GetListInternal_P120, 
   0, (word) GetList_P60, 0, (word) TEditDocumentsCacheImpl_P0, 
   {0}
   };

static void NoName_Q1008()
   {
   register ptr gf_c091 =  (ptr) &globalframe;
   word var_c16072;
   (* (( (ptr) gf_c091)+12) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c091)+14) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c091)+15) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string4);
   (* (( (ptr) gf_c091)+16) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string2);
   (*  (ptr) (( (bPt) gf_c091)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c091)+12) ), (word) &string7);
   (*  (ptr) (( (bPt) gf_c091)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c091)+16) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c091)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c091)+12) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c091)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c091)+16) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c091)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c091)+16) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c091)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c091)+12) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c091)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c091)+16) ), (word) &string13);
   (void) XR_DeclareGlobalFrame((word) "TEditDocumentsCacheImpl", &globalframe, (word) XR_GetTypeIndex((word) &string14, 0, (word) &string15)
      , (word) (( (bPt) gf_c091)+152)/* var_c15304 */ );
   var_c16072 = (word) XR_ImportInterface((word) "Menus", (word) XR_GetTypeIndexS((word) (&string16)), 21);
   (* (( (ptr) gf_c091)+46)/* var_c15880 */  ) = var_c16072;
   (void) XR_ImportProcS(var_c16072, 528642);
   var_c16072 = (word) XR_ImportInterface((word) "Process", (word) XR_GetTypeIndexS((word) (&string17)), 22);
   (* (( (ptr) gf_c091)+43)/* var_c15624 */  ) = var_c16072;
   (void) XR_ImportProcS(var_c16072, 526081);
   var_c16072 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string18)), 43);
   (* (( (ptr) gf_c091)+40)/* var_c15400 */  ) = var_c16072;
   (void) XR_ImportProcS(var_c16072, 68163076);
   (void) XR_ImportProcS(var_c16072, 67373825);
   (void) XR_ImportProcS(var_c16072, 67896323);
   (void) XR_ImportProcS(var_c16072, 67633666);
   var_c16072 = (word) XR_ImportInterface((word) "TEditInput", (word) XR_GetTypeIndexS((word) (&string19)), 44);
   (* (( (ptr) gf_c091)+41)/* var_c15464 */  ) = var_c16072;
   (void) XR_ImportProcS(var_c16072, 269825);
   var_c16072 = (word) XR_ImportInterface((word) "TEditProfile", (word) XR_GetTypeIndexS((word) (&string20)), 19);
   (* (( (ptr) gf_c091)+42)/* var_c15560 */  ) = var_c16072;
   var_c16072 = (word) XR_ImportInterface((word) "TiogaAccess", (word) XR_GetTypeIndexS((word) (&string21)), 32);
   (* (( (ptr) gf_c091)+44)/* var_c15784 */  ) = var_c16072;
   (void) XR_ImportProcS(var_c16072, 1576194);
   (void) XR_ImportProcS(var_c16072, 67111936);
   var_c16072 = (word) XR_ImportInterface((word) "TiogaAccessViewers", (word) XR_GetTypeIndexS((word) (&string22)), 4);
   (* (( (ptr) gf_c091)+47)/* var_c15912 */  ) = var_c16072;
   (void) XR_ImportProcS(var_c16072, 525058);
   var_c16072 = (word) XR_ImportInterface((word) "ViewerOps", (word) XR_GetTypeIndexS((word) (&string23)), 43);
   (* (( (ptr) gf_c091)+45)/* var_c15816 */  ) = var_c16072;
   (void) XR_ImportProcS(var_c16072, 1051652);
   (void) XR_ImportProcS(var_c16072, 1319173);
   (void) XR_ImportProcS(var_c16072, 74973699);
   (void) XR_ImportProcS(var_c16072, 527106);
   var_c16072 = (word) XR_ExportInterface((word) "TEditDocumentsCache", (word) XR_GetTypeIndexS((word) (&string24)), 2);
   (* (( (ptr) gf_c091)+48)/* var_c16104 */  ) = var_c16072;
   (void) XR_ExportProcS(var_c16072, (word) (( (bPt) gf_c091)+96)/* var_c15080 */ , 0);
   (void) XR_ExportProcS(var_c16072, (word) (( (bPt) gf_c091)+144)/* var_c15272 */ , 67109120);
   var_c16072 = (word) XR_ExportInterface((word) "TEditDocumentPrivate", (word) XR_GetTypeIndexS((word) (&string25)), 67);
   (* (( (ptr) gf_c091)+48)/* var_c16104 */  ) = var_c16072;
   (void) XR_ExportProcS(var_c16072, (word) (( (bPt) gf_c091)+128)/* var_c15208 */ , 524290);
   (void) XR_ExportProcS(var_c16072, (word) (( (bPt) gf_c091)+120)/* var_c15176 */ , 67371265);
   }

static void TEditDocumentsCacheImpl_P0(formal_c026, formal_c025)
   word formal_c026;
   word formal_c025;
   {
   /* TEditDocumentsCacheImpl: */ 
   }

static word GetList_P60()
   {
   register ptr gf_c16136 =  (ptr) &globalframe;
   word var_c3528;
   /* GetList: */ 
SOURCE(924, 73)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c16136)+16)/* LOCK_v2944 */ ));
SOURCE(970, 27)
   {
      word var_c15336;
      var_c15336 = (word) GetListInternal_P120();
      (void) (XR_MonitorExit((word) (( (bPt) gf_c16136)+16)/* LOCK_v2944 */ ));
      return(var_c15336);
      };
   }

static word GetListInternal_P120()
   {
   register ptr gf_c16168 =  (ptr) &globalframe;
   word rope_v3588;
   /* GetListInternal: */ 
SOURCE(1001, 182)
SOURCE(1001, 182)
   rope_v3588 = 0;
SOURCE(1057, 126)
   {
      register word l_v3944;
      l_v3944 = (* (( (ptr) gf_c16168)+8)/* list_v3056 */  );
      lab_L100003: ;
      if ((l_v3944 != 0)) {
         }
      else {
         goto lab_L100000;
         };
SOURCE(1122, 61)
      {
         word var_c15368;
         {
            word pd26;
            pd26 = (* (( (ptr) (* (( (ptr) gf_c16168)+40)/* var_c15400 */  ))+6) );
            var_c15368 = (word) ( *( (fPt) ((*  (ptr) pd26 ))))((* (( (ptr) gf_c16168)+19) ), (*  (ptr) (*  (ptr) l_v3944 ) ), pd26);
            };
         {
            word pd27;
            pd27 = (* (( (ptr) (* (( (ptr) gf_c16168)+40)/* var_c15400 */  ))+6) );
            rope_v3588 = (word) ( *( (fPt) ((*  (ptr) pd27 ))))(rope_v3588, var_c15368, pd27);
            };
         };
      l_v3944 = (* (( (ptr) l_v3944)+1) );
      goto lab_L100003;
      lab_L100000: ;
      };
SOURCE(1001, 182)
   return(rope_v3588);
   }

static void RecordUnsavedDocument_P180(formal_c0127, formal_c0128)
   word formal_c0127;
   word formal_c0128;
   {
   W8 var_c16200;
   /* declaration of fileName_v3648 skipped */ 
   /* declaration of root_v3676 skipped */ 
   register ptr gf_c16232 =  (ptr) &globalframe;
   /* declaration of var_c15432 skipped */ 
   var_c16200.f4/* fileName_v3648 */  = formal_c0127;
   var_c16200.f5/* root_v3676 */  = formal_c0128;
   /* RecordUnsavedDocument: */ 
SOURCE(1198, 642)
   {
      word tmpAddr28;
      tmpAddr28 = (word) (( (ptr) &var_c16200)+6)/* var_c15432 */ ;
      (*  (ptr) tmpAddr28 ) = ( ((word)  (fPt) Size_P576) );
      (* (( (ptr) tmpAddr28) + 1) ) = 1;
      };
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c16232)+16)/* LOCK_v2944 */ ));
SOURCE(1280, 560)
   {
      word var_c0116;
      var_c0116 = (word) &var_c16200;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q1068) ), ( ((word)  (fPt) NoName_Q1368) ), var_c0116);
      };
SOURCE(1198, 642)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c16232)+16)/* LOCK_v2944 */ ));
   return;
   }

static word NoName_Q1068(formal_c096)
   word formal_c096;
   {
   register ptr gf_c095 =  (ptr) &globalframe;
SOURCE(1303, 20)
   {
      word info_v4100 = 0;
      word oldRoot_v4128 = 0;
SOURCE(1519, 109)
      oldRoot_v4128 = (word) SearchList_P360((* ((( (ptr) formal_c096)+4)) ));
      if ((oldRoot_v4128 != 0)) {
SOURCE(1600, 28)
         {
            word pd29;
            pd29 = (* (( (ptr) (* (( (ptr) gf_c095)+41)/* var_c15464 */  ))+34) );
            (void) ( *( (fPt) ((*  (ptr) pd29 ))))(oldRoot_v4128, pd29);
            };
         };
SOURCE(1630, 53)
      {
         word var_c15496;
         var_c15496 = XR_NewObject(8, (* (( (ptr) gf_c095)+14) ));
         (*  (ptr) var_c15496 ) = (* (( (ptr) formal_c096)+4) );
         (* (( (ptr) var_c15496)+1) ) = (* (( (ptr) formal_c096)+5) );
         info_v4100 = var_c15496;
         };
SOURCE(1685, 23)
      {
         word var_c15528;
         var_c15528 = XR_NewObject(8, (* (( (ptr) gf_c095)+15) ));
         (*  (ptr) var_c15528 ) = info_v4100;
         (* (( (ptr) var_c15528)+1) ) = (* (( (ptr) gf_c095)+8)/* list_v3056 */  );
         (* (( (ptr) gf_c095)+8)/* list_v3056 */  ) = var_c15528;
         };
SOURCE(1710, 79)
      lab_L100008: ;
      {
         word x30;
         if (( (int)(word) Size_P576((word) ((( (bPt) formal_c096)+24))) >  (int)(x30 = (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c095)+42)
               /* var_c15560 */  ))+18) ) ),
            MAX((int)(word), x30, 0)))) {
            }
         else {
            goto lab_L100006;
            };
         };
SOURCE(1774, 15)
      (void) DiscardOldest_P300();
      goto lab_L100008;
      lab_L100006: ;
SOURCE(1808, 32)
SOURCE(1810, 30)
      {
         W2 var_c15592;
         {
            W2 var_c041;
            word var_c040;
            var_c040 = XR_ExtensionAlloc(4);
            {
               word tmpAddr31;
               tmpAddr31 = (word) var_c040;
               (*  (ptr) tmpAddr31 ) = ( ((word)  (fPt) NoName_Q1428) );
               (* (( (ptr) tmpAddr31) + 1) ) = 0;
               (* (( (ptr) tmpAddr31) + 2) ) = (word) (( (bPt) gf_c095)+96)/* var_c15080 */ ;
               (* (( (ptr) tmpAddr31) + 3) ) = 0;
               };
            (void) XR_Fork((word) &var_c041, var_c040);
            var_c15592 = var_c041;
            };
         {
            word pd32;
            pd32 = (* (( (ptr) (* (( (ptr) gf_c095)+43)/* var_c15624 */  ))+11) );
            (void) ( *( (fPt) ((*  (ptr) pd32 ))))(var_c15592, pd32);
            };
         };
      };
   return(0);
   }

static word Size_P576(formal_c16296)
   word formal_c16296;
   {
   register ptr gf_c16264 =  (ptr) &globalframe;
   word size_v4204;
   formal_c16296 = (formal_c16296 - 24);
   /* Size: */ 
SOURCE(1303, 20)
SOURCE(1342, 8)
   size_v4204 = 0;
SOURCE(1352, 23)
   if (((* (( (ptr) gf_c16264)+8)/* list_v3056 */  ) == 0)) {
SOURCE(1369, 6)
      return(size_v4204);
      };
SOURCE(1377, 78)
   {
      register word l_v4232;
      l_v4232 = (* (( (ptr) gf_c16264)+8)/* list_v3056 */  );
      lab_L100012: ;
      if ((l_v4232 != 0)) {
         }
      else {
         goto lab_L100009;
         };
SOURCE(1442, 13)
      size_v4204 = (size_v4204 + 1);
      l_v4232 = (* (( (ptr) l_v4232)+1) );
      goto lab_L100012;
      lab_L100009: ;
      };
SOURCE(1303, 20)
   return(size_v4204);
   }

static word FindUnsavedDocument_P240(formal_c0129)
   word formal_c0129;
   {
   W6 var_c16328;
   /* declaration of fileName_v3736 skipped */ 
   register ptr gf_c16360 =  (ptr) &globalframe;
   /* declaration of root_v3780 skipped */ 
   var_c16328.f4/* fileName_v3736 */  = formal_c0129;
   /* FindUnsavedDocument: */ 
SOURCE(1847, 195)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c16360)+16)/* LOCK_v2944 */ ));
SOURCE(1847, 195)
   var_c16328.f5/* root_v3780 */  = 0;
SOURCE(1936, 106)
   {
      word var_c0117;
      var_c0117 = (word) &var_c16328;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q1128) ), ( ((word)  (fPt) NoName_Q1308) ), var_c0117);
      };
SOURCE(1847, 195)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c16360)+16)/* LOCK_v2944 */ ));
   return(var_c16328.f5/* root_v3780 */ );
   }

static word NoName_Q1128(formal_c0101)
   word formal_c0101;
   {
   register ptr gf_c0100 =  (ptr) &globalframe;
SOURCE(1959, 83)
   (* (( (ptr) formal_c0101)+5) ) = (word) SearchList_P360((* ((( (ptr) formal_c0101)+4)) ));
   if (((* (( (ptr) formal_c0101)+5) ) != 0)) {
SOURCE(2011, 31)
SOURCE(2012, 30)
      {
         W2 var_c15656;
         {
            W2 var_c050;
            word var_c049;
            var_c049 = XR_ExtensionAlloc(4);
            {
               word tmpAddr33;
               tmpAddr33 = (word) var_c049;
               (*  (ptr) tmpAddr33 ) = ( ((word)  (fPt) NoName_Q1488) );
               (* (( (ptr) tmpAddr33) + 1) ) = 0;
               (* (( (ptr) tmpAddr33) + 2) ) = (word) (( (bPt) gf_c0100)+96)/* var_c15080 */ ;
               (* (( (ptr) tmpAddr33) + 3) ) = 0;
               };
            (void) XR_Fork((word) &var_c050, var_c049);
            var_c15656 = var_c050;
            };
         {
            word pd34;
            pd34 = (* (( (ptr) (* (( (ptr) gf_c0100)+43)/* var_c15624 */  ))+11) );
            (void) ( *( (fPt) ((*  (ptr) pd34 ))))(var_c15656, pd34);
            };
         };
      };
   return(0);
   }

static void DiscardOldest_P300()
   {
   register ptr gf_c16392 =  (ptr) &globalframe;
   /* DiscardOldest: */ 
SOURCE(2048, 224)
SOURCE(2072, 23)
   if (((* (( (ptr) gf_c16392)+8)/* list_v3056 */  ) == 0)) {
SOURCE(2089, 6)
      return;
      };
SOURCE(2097, 175)
   {
      register word l_v4360;
      l_v4360 = (* (( (ptr) gf_c16392)+8)/* list_v3056 */  );
      lab_L100018: ;
SOURCE(2150, 21)
      if (((* (( (ptr) l_v4360)+1) ) != 0)) {
SOURCE(2171, 4)
         goto lab_L100017;
         };
SOURCE(2215, 49)
      {
         word var_c15688;
         var_c15688 = (word) SearchList_P360((*  (ptr) ((*  (ptr) l_v4360 )) ));
         {
            word pd35;
            pd35 = (* (( (ptr) (* (( (ptr) gf_c16392)+41)/* var_c15464 */  ))+34) );
            (void) ( *( (fPt) ((*  (ptr) pd35 ))))(var_c15688, pd35);
            };
         };
SOURCE(2266, 6)
      return;
      lab_L100017: ;
      l_v4360 = (* (( (ptr) l_v4360)+1) );
      goto lab_L100018;
      };
   }

static word SearchList_P360(fileName_v3856)
   word fileName_v3856;
   {
   register ptr gf_c16424 =  (ptr) &globalframe;
   word root_v3900;
   word prev_v4488 = 0;
   /* SearchList: */ 
SOURCE(2287, 491)
SOURCE(2287, 491)
   root_v3900 = 0;
SOURCE(2413, 29)
   if (((* (( (ptr) gf_c16424)+8)/* list_v3056 */  ) == 0)) {
SOURCE(2430, 12)
      return(0);
      };
SOURCE(2444, 107)
   {
      word pd36;
      pd36 = (* (( (ptr) (* (( (ptr) gf_c16424)+40)/* var_c15400 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd36 ))))((*  (ptr) (*  (ptr) (* (( (ptr) gf_c16424)+8)/* list_v3056 */  ) ) ), fileName_v3856, 0, pd36)
      )) {
SOURCE(2503, 22)
         root_v3900 = (* (( (ptr) (*  (ptr) (* (( (ptr) gf_c16424)+8)/* list_v3056 */  ) ))+1) );
SOURCE(2527, 16)
         (* (( (ptr) gf_c16424)+8)/* list_v3056 */  ) = (* (( (ptr) (* (( (ptr) gf_c16424)+8)/* list_v3056 */  ))+1) );
SOURCE(2545, 6)
         return(root_v3900);
         };
      };
SOURCE(2556, 11)
   prev_v4488 = (* (( (ptr) gf_c16424)+8)/* list_v3056 */  );
SOURCE(2569, 186)
   {
      register word l_v4616;
      l_v4616 = (* (( (ptr) (* (( (ptr) gf_c16424)+8)/* list_v3056 */  ))+1) );
      lab_L100022: ;
      if ((l_v4616 != 0)) {
         }
      else {
         goto lab_L100019;
         };
SOURCE(2639, 103)
      {
         word pd37;
         pd37 = (* (( (ptr) (* (( (ptr) gf_c16424)+40)/* var_c15400 */  ))+8) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd37 ))))((*  (ptr) (*  (ptr) l_v4616 ) ), fileName_v3856, 0, pd37))) {
SOURCE(2695, 19)
            root_v3900 = (* (( (ptr) (*  (ptr) l_v4616 ))+1) );
SOURCE(2716, 18)
            (* (( (ptr) prev_v4488)+1) ) = (* (( (ptr) l_v4616)+1) );
SOURCE(2736, 6)
            return(root_v3900);
            };
         };
SOURCE(2747, 8)
      prev_v4488 = l_v4616;
      l_v4616 = (* (( (ptr) l_v4616)+1) );
      goto lab_L100022;
      lab_L100019: ;
      };
SOURCE(2766, 12)
   return(0);
   }

static void Update_P420()
   {
   W13 var_c16456;
   register ptr gf_c16488 =  (ptr) &globalframe;
   /* declaration of var_c15720 skipped */ 
   /* declaration of var_c15752 skipped */ 
   /* Update: */ 
SOURCE(2784, 1705)
   {
      word tmpAddr38;
      tmpAddr38 = (word) (( (ptr) &var_c16456)+4)/* var_c15720 */ ;
      (*  (ptr) tmpAddr38 ) = ( ((word)  (fPt) Put_P888) );
      (* (( (ptr) tmpAddr38) + 1) ) = 1;
      };
   {
      word tmpAddr39;
      tmpAddr39 = (word) (( (ptr) &var_c16456)+6)/* var_c15752 */ ;
      (*  (ptr) tmpAddr39 ) = ( ((word)  (fPt) ViewerOk_P828) );
      (* (( (ptr) tmpAddr39) + 1) ) = 1;
      };
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c16488)+16)/* LOCK_v2944 */ ));
SOURCE(2814, 1675)
   {
      /* declaration of writer_v4828 skipped */ 
      /* declaration of looks_v4856 skipped */ 
      /* declaration of format_v4884 skipped */ 
      /* declaration of comment_v4912 skipped */ 
      /* declaration of deltaLevel_v4940 skipped */ 
      word var_c01;
      {
         word var_c0118;
         var_c0118 = (word) &var_c16456;
         var_c01 = (word) XR_Enable(( ((word)  (fPt) NoName_Q1188) ), ( ((word)  (fPt) NoName_Q1248) ), var_c0118);
         };
      if ((var_c01 == 1)) {
         goto lab_L04;
         };
      };
SOURCE(2784, 1705)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c16488)+16)/* LOCK_v2944 */ ));
   return;
   lab_L04: ;
   return;
   }

static word NoName_Q1188(formal_c0106)
   word formal_c0106;
   {
   register ptr gf_c0105 =  (ptr) &globalframe;
SOURCE(2837, 30)
   {
      word rope_v4744;
SOURCE(2837, 30)
      rope_v4744 = (word) GetListInternal_P120();
SOURCE(3104, 49)
      {
         word pd40;
         pd40 = (* (( (ptr) (* (( (ptr) gf_c0105)+44)/* var_c15784 */  ))+16) );
         (* (( (ptr) formal_c0106)+8) ) = (word) ( *( (fPt) ((*  (ptr) pd40 ))))(pd40);
         };
SOURCE(3155, 37)
      (* (( (ptr) formal_c0106)+9) ) = 0;
SOURCE(3194, 18)
      (* (( (ptr) formal_c0106)+10) ) = 0;
SOURCE(3214, 21)
      (* (( (ptr) formal_c0106)+11) ) = 0;
SOURCE(3237, 19)
      (* (( (ptr) formal_c0106)+12) ) = 1;
SOURCE(3549, 56)
      if ((0 == (*  (ptr) (* (( (ptr) (* (( (ptr) gf_c0105)+42)/* var_c15560 */  ))+12) ) ))) {
SOURCE(3599, 6)
         (void) (XR_MonitorExit((word) (( (bPt) gf_c0105)+16)/* LOCK_v2944 */ ));
         return(1);
         };
SOURCE(3607, 90)
      {
         word pd41;
         pd41 = (* (( (ptr) (* (( (ptr) gf_c0105)+40)/* var_c15400 */  ))+15) );
         if (( (int)(word) ( *( (fPt) ((*  (ptr) pd41 ))))(rope_v4744, pd41) ==  (int)0)) {
SOURCE(3637, 50)
            if ((0 != (word) ViewerOk_P828((word) ((( (bPt) formal_c0106)+24))))) {
SOURCE(3656, 31)
               {
                  word pd42;
                  pd42 = (* (( (ptr) (* (( (ptr) gf_c0105)+45)/* var_c15816 */  ))+15) );
                  (void) ( *( (fPt) ((*  (ptr) pd42 ))))((* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  ), 1, pd42);
                  };
               };
SOURCE(3689, 8)
            (void) (XR_MonitorExit((word) (( (bPt) gf_c0105)+16)/* LOCK_v2944 */ ));
            return(1);
            };
         };
SOURCE(3700, 382)
      if ((0 == (word) ViewerOk_P828((word) ((( (bPt) formal_c0106)+24))))) {
SOURCE(3725, 100)
         {
            W28 var_c15848;
            W30 var_c068;
            (*  (ptr) (word) &var_c068 ) = (* (( (ptr) gf_c0105)+18) );
            XR_FillWords(&(* (W27Pt) (&var_c15848)), 27, 0);
            (* (( (ptr) &var_c15848)+13) ) = (* (( (ptr) gf_c0105)+17) );
            (* (( (ptr) &var_c15848)+17) ) =  (word) -1;
            (* (( (ptr) &var_c15848)+18) ) = 1;
            (* (( (ptr) &var_c15848)+19) ) = 1493172224;
            (* (( (ptr) &var_c15848)+27) ) = 27;
            (*  (W28Pt) (( (ptr) (word) &var_c068) + 1) ) = var_c15848;
            (* (( (ptr) (word) &var_c068) + 29) ) = 0;
            {
               word pd43;
               pd43 = (* (( (ptr) (* (( (ptr) gf_c0105)+45)/* var_c15816 */  ))+6) );
               (* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  ) = (word) ( *( (fPt) ((*  (ptr) pd43 ))))((word) (&var_c068), pd43);
               };
            };
SOURCE(3827, 56)
         {
            word pd44;
            pd44 = (* (( (ptr) (*  (ptr) (* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  ) ))+6) );
            (void) ( *( (fPt) ((*  (ptr) pd44 ))))((* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  ), 0, 1, (* (( (ptr) gf_c0105)+20) ), pd44)
            ;
            };
SOURCE(3885, 41)
         {
            word pd45;
            pd45 = (* (( (ptr) (* (( (ptr) gf_c0105)+46)/* var_c15880 */  ))+21) );
            (void) ( *( (fPt) ((*  (ptr) pd45 ))))((* (( (ptr) (* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  ))+16) ), 0, pd45);
            };
SOURCE(3959, 85)
         {
            word pd46;
            pd46 = (* (( (ptr) (* (( (ptr) gf_c0105)+45)/* var_c15816 */  ))+37) );
            (void) ( *( (fPt) ((*  (ptr) pd46 ))))((* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  ), (* (( (ptr) (* (( (ptr) gf_c0105)+9)
                  /* viewer_v3084 */  ))+1) ), (* (( (ptr) (* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  ))+2) ), (* (( (ptr) (* (( (ptr) gf_c0105)+9)
                  /* viewer_v3084 */  ))+3) ), (* (( (ptr) (* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  ))+4) ), pd46);
            };
SOURCE(4046, 36)
         {
            word pd47;
            pd47 = (* (( (ptr) (* (( (ptr) gf_c0105)+45)/* var_c15816 */  ))+16) );
            (void) ( *( (fPt) ((*  (ptr) pd47 ))))((* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  ), 0, 1, 0, pd47);
            };
         };
SOURCE(4086, 14)
      (* (( (ptr) formal_c0106)+10) ) = (* (( (ptr) gf_c0105)+21) );
SOURCE(4102, 199)
      (void) Put_P888((* (( (ptr) gf_c0105)+22) ), (word) (( (bPt) formal_c0106)+16));
SOURCE(4303, 14)
      (* (( (ptr) formal_c0106)+10) ) = (* (( (ptr) gf_c0105)+23) );
SOURCE(4319, 14)
      (* (( (ptr) formal_c0106)+12) ) = 0;
SOURCE(4335, 9)
      (void) Put_P888(rope_v4744, (word) (( (bPt) formal_c0106)+16));
SOURCE(4346, 9)
      (void) Put_P888((* (( (ptr) gf_c0105)+19) ), (word) (( (bPt) formal_c0106)+16));
SOURCE(4357, 46)
      {
         word pd48;
         pd48 = (* (( (ptr) (* (( (ptr) gf_c0105)+47)/* var_c15912 */  ))+7) );
         (void) ( *( (fPt) ((*  (ptr) pd48 ))))((* (( (ptr) formal_c0106)+8) ), (* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  ), pd48)
         ;
         };
SOURCE(4405, 24)
      ((P1x5b) (( (bPt) (* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  )) + 76))->f = 1;
SOURCE(4449, 40)
      {
         word pd49;
         pd49 = (* (( (ptr) (* (( (ptr) gf_c0105)+45)/* var_c15816 */  ))+16) );
         (void) ( *( (fPt) ((*  (ptr) pd49 ))))((* (( (ptr) gf_c0105)+9)/* viewer_v3084 */  ), 3, 1, 0, pd49);
         };
      };
   return(0);
   }

static word ViewerOk_P828(formal_c16552)
   word formal_c16552;
   {
   register ptr gf_c16520 =  (ptr) &globalframe;
   word var_c5044;
   formal_c16552 = (formal_c16552 - 24);
   /* ViewerOk: */ 
SOURCE(2959, 24)
SOURCE(2993, 108)
   {
      word tc50;
      word pd51;
      if ( (  ( ((* (( (ptr) gf_c16520)+9)/* viewer_v3084 */  ) != 0) ?  ! ((* (( (bPt) (* (( (ptr) gf_c16520)+9)/* viewer_v3084 */  ))+77)
       ) & 0100) : 0 )  ? ((* (( (ptr) (* (( (ptr) gf_c16520)+9)/* viewer_v3084 */  ))+14) ) == 0) : 0 ) ) {
         pd51 = (* (( (ptr) (* (( (ptr) gf_c16520)+40)/* var_c15400 */  ))+8) );
         tc50 =  (word) (0 != (word) ( *( (fPt) ((*  (ptr) pd51 ))))((* (( (ptr) (* (( (ptr) gf_c16520)+9)/* viewer_v3084 */  ))+13)
             ), (* (( (ptr) gf_c16520)+17) ), 1, pd51));
         }
      else {
         tc50 =  (word) 0;
         };
      return(tc50);
      };
   }

static void Put_P888(rope_v5104, formal_c16648)
   word rope_v5104;
   word formal_c16648;
   {
   W6 var_c16584;
   register ptr gf_c16616 =  (ptr) &globalframe;
   /* declaration of var_c15976 skipped */ 
   formal_c16648 = (formal_c16648 - 16);
   var_c16584.f0 = formal_c16648;
   /* Put: */ 
SOURCE(3258, 11)
   {
      word tmpAddr52;
      tmpAddr52 = (word) (( (ptr) &var_c16584)+4)/* var_c15976 */ ;
      (*  (ptr) tmpAddr52 ) = ( ((word)  (fPt) action_P948) );
      (* (( (ptr) tmpAddr52) + 1) ) = 1;
      };
SOURCE(3503, 41)
   {
      word var_c16008;
      word pd53;
      pd53 = (* (( (ptr) (* (( (ptr) gf_c16616)+40)/* var_c15400 */  ))+26) );
      var_c16008 = (word) ( *( (fPt) ((*  (ptr) pd53 ))))(rope_v5104, 0, 2147483647, (word) (( (bPt) &var_c16584)+16)/* var_c15976 */ , pd53)
      ;
      };
   }

static word action_P948(c_v5208, formal_c16712)
   word c_v5208;
   word formal_c16712;
   {
   register ptr gf_c16680 =  (ptr) &globalframe;
   word quit_v5252;
   formal_c16712 = (formal_c16712 - 16);
   /* action: */ 
SOURCE(3285, 14)
SOURCE(3285, 14)
   quit_v5252 = 0;
SOURCE(3341, 157)
   {
      W5 var_c16040;
      var_c16040.f0 = (c_v5208 & 0377);
      var_c16040.f1 = (* (( (ptr) (*  (ptr) formal_c16712 ))+9) );
      var_c16040.f2 = (* (( (ptr) (*  (ptr) formal_c16712 ))+10) );
      {
         word idx54;
         var_c16040.f3 = ((((((* (( (bPt) (*  (ptr) formal_c16712 ))+47) ) & 1) << 1) + (c_v5208 == 10)) << 30) + (
            idx54 = (word) ((* (( (ptr) (*  (ptr) formal_c16712 ))+12) ) + 16000),
            BCK(idx54, 16002)
            ));
         };
      var_c16040.f4 = 0;
      {
         word pd55;
         pd55 = (* (( (ptr) (* (( (ptr) gf_c16680)+44)/* var_c15784 */  ))+17) );
         (void) ( *( (fPt) ((*  (ptr) pd55 ))))((* (( (ptr) (*  (ptr) formal_c16712 ))+8) ), var_c16040, pd55);
         };
      };
SOURCE(3285, 14)
   return(quit_v5252);
   }

static void NoName_Q1248(formal_c080, formal_c200008, formal_c200009, formal_c200010, formal_c200011)
   word formal_c080;
   word formal_c200008;
   word formal_c200009;
   word formal_c200010;
   word formal_c200011;
   {
   register ptr gf_c0113 =  (ptr) &globalframe;
   if ((formal_c200009 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0113)+16)/* LOCK_v2944 */ ));
      };
   (*  (ptr) formal_c080 ) = 0;
   (* (( (ptr) formal_c080)+1) ) = 0;
   return;
   }

static void NoName_Q1308(formal_c085, formal_c200004, formal_c200005, formal_c200006, formal_c200007)
   word formal_c085;
   word formal_c200004;
   word formal_c200005;
   word formal_c200006;
   word formal_c200007;
   {
   register ptr gf_c0114 =  (ptr) &globalframe;
   if ((formal_c200005 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0114)+16)/* LOCK_v2944 */ ));
      };
   (*  (ptr) formal_c085 ) = 0;
   (* (( (ptr) formal_c085)+1) ) = 0;
   return;
   }

static void NoName_Q1368(formal_c090, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c090;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c0115 =  (ptr) &globalframe;
   if ((formal_c200001 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c0115)+16)/* LOCK_v2944 */ ));
      };
   (*  (ptr) formal_c090 ) = 0;
   (* (( (ptr) formal_c090)+1) ) = 0;
   return;
   }

static word NoName_Q1428(formal_c042)
   word formal_c042;
   {
   word var_c043;
   /* intermediary proc for a FORK, nArgs: 0, nRets: 0 */ 
   var_c043 = (* (( (ptr) formal_c042)+2) );
   formal_c042 = XR_ExtensionFree(formal_c042);
   (void) ( *( (fPt) ((*  (ptr) var_c043 ))))(var_c043);
   return(0);
   }

static word NoName_Q1488(formal_c051)
   word formal_c051;
   {
   word var_c052;
   /* intermediary proc for a FORK, nArgs: 0, nRets: 0 */ 
   var_c052 = (* (( (ptr) formal_c051)+2) );
   formal_c051 = XR_ExtensionFree(formal_c051);
   (void) ( *( (fPt) ((*  (ptr) var_c052 ))))(var_c052);
   return(0);
   }

/* file: TEditDocumentsCacheImpl, module: TEditDocumentsCacheImpl, compiled at: February 27, 1992 5:59:20 pm PST */ 
extern void XR_install_TEditDocumentsCacheImpl() {
   NoName_Q1008();
   }
extern void XR_run_TEditDocumentsCacheImpl() { XR_Start(&globalframe); }