/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 27, 1992 5:58:09 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: TEditTouchupImpl, module: TEditTouchupImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [3838666685,2393063922] TEditTouchupImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3;} W4;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q828();
static void TEditTouchupImpl_P0();
static void RefreshOver_P60();
static word NoName_Q888();
static word LockAfterScroll_P120();
static word LockAfterRefresh_P180();
static word LockAfter_P240();
static void UnlockAfterRefresh_P300();
static void Refresh_P360();
static void ScrollToEndOfDoc_P420();
static void ScrollToEndOfSel_P480();
static void NoName_Q948();
static word NoName_Q1008();
static struct {unsigned f; char r[4];} string1 = {131076, "\216\251\000"};
static struct {unsigned f; char r[4];} string2 = {65537, "\001\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\302\136\246\312\300\076\314\360\376\100\164\000\000"};
static struct {unsigned f; char r[4];} string4 = {196611, "\004A\377"};
static struct {unsigned f; char r[16];} string5 = {851984, "\257\300\343\357\262\137\300\144\166\356\317\100\164\000\000"};
static struct {unsigned f; char r[16];} string6 = {851981, "\006\005\000\001\004\001\054\001\070\001\100\114\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[20];} string8 = {1048596, "LockAfterRefresh\000\000\000"};
static struct {unsigned f; char r[8];} string9 = {458760, "Refresh"};
static struct {unsigned f; char r[8];} string10 = {393224, "Update\000"};
static struct {unsigned f; char r[16];} string11 = {851984, "\257\300\344\315\147\275\300\216\243\101\362\100\164\000\000"};
static struct {unsigned f; char r[16];} string12 = {851981, "\006\004\040\001\044\001\100\110\001\100\150\004\007\000\000"};
static struct {unsigned f; char r[16];} string13 = {851984, "\257\300\212\210\334\132\300\036\362\033\164\100\150\000\000"};
static struct {unsigned f; char r[16];} string14 = {851984, "\257\300\237\211\044\154\300\046\105\033\126\100\150\000\000"};
static struct {unsigned f; char r[16];} string15 = {851984, "\257\300\240\236\274\315\300\111\163\325\023\100\150\000\000"};
static struct {unsigned f; char r[16];} string16 = {851984, "\257\300\343\357\262\137\300\144\166\356\317\100\150\000\000"};
static struct {unsigned f; char r[16];} string17 = {851984, "\257\300\312\253\314\243\300\267\126\271\104\100\150\000\000"};
static struct {unsigned f; char r[16];} string18 = {851984, "\257\300\071\221\120\257\300\230\321\322\204\100\150\000\000"};
static struct {unsigned f; char r[16];} string19 = {851984, "\257\300\174\107\267\236\300\027\127\205\140\100\150\000\000"};
static struct {
   word f0[29]; word f29; word f30; word f31; 
   word f32; word f33; word f34; word f35; 
   word f36; word f37; word f38; word f39; 
   word f40; word f41; word f42; word f43; 
   word f44; word f45; word f46[7]; 
   } globalframe = {
   {0}, (word) ScrollToEndOfSel_P480, 0, (word) ScrollToEndOfDoc_P420, 
   0, (word) Refresh_P360, 0, (word) UnlockAfterRefresh_P300, 
   0, (word) LockAfter_P240, 0, (word) LockAfterRefresh_P180, 
   0, (word) LockAfterScroll_P120, 0, (word) RefreshOver_P60, 
   0, (word) TEditTouchupImpl_P0, {0}
   };

static void NoName_Q828()
   {
   register ptr gf_c066 =  (ptr) &globalframe;
   word var_c12760;
   (* (( (ptr) gf_c066)+19) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c066)+20) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (* (( (ptr) gf_c066)+22) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string6);
   (* (( (ptr) gf_c066)+25) ) = (word) XR_GetTypeIndex((word) &string7, 0, (word) &string2);
   (*  (ptr) (( (bPt) gf_c066)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c066)+25) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c066)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c066)+19) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c066)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c066)+19) ), (word) &string10);
   (void) XR_DeclareGlobalFrame((word) "TEditTouchupImpl", &globalframe, (word) XR_GetTypeIndex((word) &string11, 0, (word) &string12)
      , (word) (( (bPt) gf_c066)+180)/* var_c12280 */ );
   var_c12760 = (word) XR_ImportInterface((word) "CedarProcess", (word) XR_GetTypeIndexS((word) (&string13)), 10);
   (* (( (ptr) gf_c066)+50)/* var_c12568 */  ) = var_c12760;
   (void) XR_ImportProcS(var_c12760, 262145);
   var_c12760 = (word) XR_ImportInterface((word) "MonitoredQueue", (word) XR_GetTypeIndexS((word) (&string14)), 9);
   (* (( (ptr) gf_c066)+47)/* var_c12312 */  ) = var_c12760;
   (void) XR_ImportProcS(var_c12760, 67372545);
   (void) XR_ImportProcS(var_c12760, 67109120);
   var_c12760 = (word) XR_ImportInterface((word) "Process", (word) XR_GetTypeIndexS((word) (&string15)), 22);
   (* (( (ptr) gf_c066)+48)/* var_c12376 */  ) = var_c12760;
   (void) XR_ImportProcS(var_c12760, 526081);
   (void) XR_ImportProcS(var_c12760, 67371521);
   (void) XR_ImportProcS(var_c12760, 525570);
   var_c12760 = (word) XR_ImportInterface((word) "TEditDocument", (word) XR_GetTypeIndexS((word) (&string16)), 6);
   (* (( (ptr) gf_c066)+49)/* var_c12504 */  ) = var_c12760;
   (void) XR_ImportProcS(var_c12760, 67372289);
   (void) XR_ImportProcS(var_c12760, 262657);
   (void) XR_ImportProcS(var_c12760, 68157700);
   var_c12760 = (word) XR_ImportInterface((word) "ViewerForkers", (word) XR_GetTypeIndexS((word) (&string17)), 2);
   (* (( (ptr) gf_c066)+51)/* var_c12664 */  ) = var_c12760;
   (void) XR_ImportProcS(var_c12760, 1310725);
   var_c12760 = (word) XR_ExportInterface((word) "TEditRefresh", (word) XR_GetTypeIndexS((word) (&string18)), 3);
   (* (( (ptr) gf_c066)+52)/* var_c12792 */  ) = var_c12760;
   (void) XR_ExportVar(var_c12760, 0, (word) (( (bPt) gf_c066)+72)/* dirtyDocs_v3112 */ );
   (void) XR_ExportProcS(var_c12760, (word) (( (bPt) gf_c066)+124)/* var_c12056 */ , 524546);
   (void) XR_ExportProcS(var_c12760, (word) (( (bPt) gf_c066)+116)/* var_c12024 */ , 786947);
   var_c12760 = (word) XR_ExportInterface((word) "TEditTouchup", (word) XR_GetTypeIndexS((word) (&string19)), 6);
   (* (( (ptr) gf_c066)+52)/* var_c12792 */  ) = var_c12760;
   (void) XR_ExportVar(var_c12760, 0, (word) (( (bPt) gf_c066)+32)/* fullUpdate_v2832 */ );
   (void) XR_ExportVar(var_c12760, 1, (word) (( (bPt) gf_c066)+36)/* refresh_v2860 */ );
   (void) XR_ExportProcS(var_c12760, (word) (( (bPt) gf_c066)+172)/* var_c12248 */ , 512);
   (void) XR_ExportProcS(var_c12760, (word) (( (bPt) gf_c066)+156)/* var_c12184 */ , 67633922);
   (void) XR_ExportProcS(var_c12760, (word) (( (bPt) gf_c066)+164)/* var_c12216 */ , 67634178);
   (void) XR_ExportProcS(var_c12760, (word) (( (bPt) gf_c066)+140)/* var_c12120 */ , 263425);
   }

static void TEditTouchupImpl_P0(formal_c033, formal_c026)
   word formal_c033;
   word formal_c026;
   {
   register ptr gf_c12824 =  (ptr) &globalframe;
   /* TEditTouchupImpl: */ 
SOURCE(381, 2348)
SOURCE(533, 36)
   (* (( (ptr) gf_c12824)+8)/* fullUpdate_v2832 */  ) = (* (( (ptr) gf_c12824)+28) );
SOURCE(571, 34)
   (* (( (ptr) gf_c12824)+9)/* refresh_v2860 */  ) = (* (( (ptr) gf_c12824)+27) );
SOURCE(1543, 61)
   {
      word pd20;
      pd20 = (* (( (ptr) (* (( (ptr) gf_c12824)+47)/* var_c12312 */  ))+5) );
      (* (( (ptr) gf_c12824)+18)/* dirtyDocs_v3112 */  ) = (word) ( *( (fPt) ((*  (ptr) pd20 ))))(pd20);
      };
SOURCE(2636, 93)
SOURCE(2638, 57)
   {
      word var_c12344;
      {
         word pd21;
         pd21 = (* (( (ptr) (* (( (ptr) gf_c12824)+48)/* var_c12376 */  ))+6) );
         var_c12344 = (word) ( *( (fPt) ((*  (ptr) pd21 ))))(50, pd21);
         };
      {
         word pd22;
         pd22 = (* (( (ptr) (* (( (ptr) gf_c12824)+48)/* var_c12376 */  ))+9) );
         (void) ( *( (fPt) ((*  (ptr) pd22 ))))((word) (( (bPt) gf_c12824)+44)/* refreshOver_v3056 */ , var_c12344, pd22);
         };
      };
SOURCE(2697, 30)
   {
      W2 var_c12408;
      {
         W2 var_c030;
         word var_c029;
         var_c029 = XR_ExtensionAlloc(4);
         {
            word tmpAddr23;
            tmpAddr23 = (word) var_c029;
            (*  (ptr) tmpAddr23 ) = ( ((word)  (fPt) NoName_Q1008) );
            (* (( (ptr) tmpAddr23) + 1) ) = 0;
            (* (( (ptr) tmpAddr23) + 2) ) = (word) (( (bPt) gf_c12824)+132)/* var_c12088 */ ;
            (* (( (ptr) tmpAddr23) + 3) ) = 0;
            };
         (void) XR_Fork((word) &var_c030, var_c029);
         var_c12408 = var_c030;
         };
      {
         word pd24;
         pd24 = (* (( (ptr) (* (( (ptr) gf_c12824)+48)/* var_c12376 */  ))+11) );
         (void) ( *( (fPt) ((*  (ptr) pd24 ))))(var_c12408, pd24);
         };
      };
   }

static void RefreshOver_P60()
   {
   W4 var_c12856;
   register ptr gf_c12888 =  (ptr) &globalframe;
   /* RefreshOver: */ 
SOURCE(608, 80)
   (void) (XR_MonitorEntry((word) (( (bPt) gf_c12888)+16)/* LOCK_v2804 */ ));
SOURCE(643, 45)
   {
      word var_c077;
      var_c077 = (word) &var_c12856;
       (void) (word) XR_Enable(( ((word)  (fPt) NoName_Q888) ), ( ((word)  (fPt) NoName_Q948) ), var_c077);
      };
SOURCE(608, 80)
   (void) (XR_MonitorExit((word) (( (bPt) gf_c12888)+16)/* LOCK_v2804 */ ));
   return;
   }

static word NoName_Q888(formal_c070)
   word formal_c070;
   {
   register ptr gf_c069 =  (ptr) &globalframe;
SOURCE(666, 22)
   (void) (XR_Broadcast((word) (( (bPt) gf_c069)+44)/* refreshOver_v3056 */ ));
   return(0);
   }

static word LockAfterScroll_P120(tdd_v3320, who_v3348)
   word tdd_v3320;
   word who_v3348;
   {
   word ok_v3392;
   /* LockAfterScroll: */ 
SOURCE(692, 141)
SOURCE(799, 34)
   return((word) LockAfter_P240(tdd_v3320, who_v3348, 1));
   }

static word LockAfterRefresh_P180(tdd_v3452, who_v3480)
   word tdd_v3452;
   word who_v3480;
   {
   word ok_v3524;
   /* LockAfterRefresh: */ 
SOURCE(839, 143)
SOURCE(947, 35)
   return((word) LockAfter_P240(tdd_v3452, who_v3480, 0));
   }

static word LockAfter_P240(tdd_v3584, who_v3612, scroll_v3640)
   word tdd_v3584;
   word who_v3612;
   word scroll_v3640;
   {
   register ptr gf_c12920 =  (ptr) &globalframe;
   word ok_v3684;
   /* LockAfter: */ 
SOURCE(988, 345)
SOURCE(988, 345)
   ok_v3684 = 1;
SOURCE(1103, 55)
   {
      word var_c12536;
      word pd25;
      pd25 = (* (( (ptr) (* (( (ptr) gf_c12920)+49)/* var_c12504 */  ))+5) );
      var_c12536 = (word) ( *( (fPt) ((*  (ptr) pd25 ))))(tdd_v3584, (* (( (ptr) gf_c12920)+26) ), 0, 0, pd25);
      };
   if ((0 == (* (( (ptr) tdd_v3584)+9) ))) {
SOURCE(1194, 9)
      ok_v3684 = 1;
      }
   else {
      if ((0 != (* (( (ptr) gf_c12920)+10)/* alwaysOK_v3000 */  ))) {
SOURCE(1217, 9)
         ok_v3684 = 1;
         }
      else {
         if ((0 == scroll_v3640) || ((* (( (ptr) tdd_v3584)+17) ) == 0)) {
SOURCE(1259, 10)
            ok_v3684 = 0;
            }
         else {
SOURCE(1282, 9)
            ok_v3684 = 1;
            };
         };
      };
SOURCE(1293, 40)
   if ((0 == ok_v3684)) {
SOURCE(1308, 25)
      {
         word pd26;
         pd26 = (* (( (ptr) (* (( (ptr) gf_c12920)+49)/* var_c12504 */  ))+6) );
         (void) ( *( (fPt) ((*  (ptr) pd26 ))))(tdd_v3584, pd26);
         };
      };
SOURCE(988, 345)
   return(ok_v3684);
   }

static void UnlockAfterRefresh_P300(tdd_v3744)
   word tdd_v3744;
   {
   register ptr gf_c12952 =  (ptr) &globalframe;
   /* UnlockAfterRefresh: */ 
SOURCE(1364, 116)
SOURCE(1439, 41)
   if ((tdd_v3744 != 0)) {
SOURCE(1455, 25)
      {
         word pd27;
         pd27 = (* (( (ptr) (* (( (ptr) gf_c12952)+49)/* var_c12504 */  ))+6) );
         (void) ( *( (fPt) ((*  (ptr) pd27 ))))(tdd_v3744, pd27);
         };
      };
   }

static void Refresh_P360()
   {
   register ptr gf_c12984 =  (ptr) &globalframe;
   /* Refresh: */ 
SOURCE(1607, 471)
SOURCE(1625, 32)
   {
      word pd28;
      pd28 = (* (( (ptr) (* (( (ptr) gf_c12984)+50)/* var_c12568 */  ))+4) );
      (void) ( *( (fPt) ((*  (ptr) pd28 ))))(2, pd28);
      };
SOURCE(1659, 419)
   lab_L100004: ;
SOURCE(1662, 416)
   {
      word var_c12600;
      {
         word pd29;
         pd29 = (* (( (ptr) (* (( (ptr) gf_c12984)+47)/* var_c12312 */  ))+10) );
         var_c12600 = (word) ( *( (fPt) ((*  (ptr) pd29 ))))((* ((( (ptr) gf_c12984)+18)/* dirtyDocs_v3112 */ ) ), pd29);
         };
      if ((var_c12600 == 0)) {
         goto lab_L100005;
         };
      if (((* (( (ptr) gf_c12984)+20) ) == XR_GetReferentType(var_c12600))) {
         {
            word doc_v3992;
            doc_v3992 = var_c12600;
SOURCE(1733, 369)
            {
               word viewer_v4036;
SOURCE(1735, 66)
               {
                  word pd30;
                  pd30 = (* (( (ptr) (* (( (ptr) gf_c12984)+49)/* var_c12504 */  ))+9) );
                  viewer_v4036 = (word) ( *( (fPt) ((*  (ptr) pd30 ))))(doc_v3992, pd30);
                  };
SOURCE(1803, 275)
               if ((viewer_v4036 != 0)) {
SOURCE(1824, 254)
                  {
                     word var_c12632;
                     var_c12632 = (* (( (ptr) viewer_v4036)+26) );
                     if ((var_c12632 == 0)) {
                        goto lab_L100006;
                        };
                     if (((* (( (ptr) gf_c12984)+22) ) == XR_GetReferentType(var_c12632))) {
                        {
                           word tdd_v4080;
                           tdd_v4080 = var_c12632;
SOURCE(1893, 185)
                           {
/*1*/   register word v_v4124;
/*1*/   v_v4124 = viewer_v4036;
/*1*/   lab_L100010: ;
/*1*/   if ((v_v4124 != 0)) {
/*1*/      }
/*1*/   else {
/*1*/      goto lab_L100007;
/*1*/      };
SOURCE(1955, 97)
/*1*/   if ( ( ( ! ((* (( (bPt) v_v4124)+76) ) & 020)) ?  ! ((* (( (bPt) v_v4124)+77) ) & 0100) : 0 ) ) {
SOURCE(1996, 56)
/*1*/      {
/*1*/         word pd31;
/*1*/         pd31 = (* (( (ptr) (* (( (ptr) gf_c12984)+51)/* var_c12664 */  ))+4) );
/*1*/         (void) ( *( (fPt) ((*  (ptr) pd31 ))))(v_v4124, 1, 0, (* (( (ptr) gf_c12984)+9)/* refresh_v2860 */  ), 1, pd31);
/*1*/         };
/*1*/      };
SOURCE(2054, 24)
/*1*/   if (((* (( (ptr) v_v4124)+21) ) == viewer_v4036)) {
SOURCE(2078, 4)
/*1*/      goto lab_L100008;
/*1*/      };
/*1*/   v_v4124 = (* (( (ptr) v_v4124)+21) );
/*1*/   goto lab_L100010;
/*1*/   lab_L100007: ;
/*1*/   lab_L100008: ;
/*1*/   };
                           };
                        }
                     else {
                        lab_L100006: ;
                        };
                     };
                  };
               };
            };
         }
      else {
         lab_L100005: ;
         };
      };
   goto lab_L100004;
   }

static void ScrollToEndOfDoc_P420(viewer_v3820, glitch_v3848)
   word viewer_v3820;
   word glitch_v3848;
   {
   register ptr gf_c13016 =  (ptr) &globalframe;
   /* ScrollToEndOfDoc: */ 
SOURCE(2127, 198)
SOURCE(2206, 119)
   {
      word var_c12696;
      var_c12696 = (* (( (ptr) viewer_v3820)+26) );
      if ((var_c12696 == 0)) {
         goto lab_L100011;
         };
      if (((* (( (ptr) gf_c13016)+22) ) == XR_GetReferentType(var_c12696))) {
         {
            word tdd_v4168;
            tdd_v4168 = var_c12696;
SOURCE(2277, 21)
            (* (( (ptr) tdd_v4168)+17) ) = 1;
SOURCE(2300, 25)
            (* (( (ptr) tdd_v4168)+3) ) = glitch_v3848;
            };
         }
      else {
         lab_L100011: ;
         };
      };
   }

static void ScrollToEndOfSel_P480(viewer_v3908, glitch_v3936, id_v3964)
   word viewer_v3908;
   word glitch_v3936;
   word id_v3964;
   {
   register ptr gf_c13048 =  (ptr) &globalframe;
   /* ScrollToEndOfSel: */ 
SOURCE(2343, 267)
SOURCE(2463, 147)
   {
      word var_c12728;
      var_c12728 = (* (( (ptr) viewer_v3908)+26) );
      if ((var_c12728 == 0)) {
         goto lab_L100012;
         };
      if (((* (( (ptr) gf_c13048)+22) ) == XR_GetReferentType(var_c12728))) {
         {
            word tdd_v4212;
            tdd_v4212 = var_c12728;
SOURCE(2534, 21)
            (* (( (ptr) tdd_v4212)+17) ) = 2;
SOURCE(2557, 25)
            (* (( (ptr) tdd_v4212)+3) ) = glitch_v3936;
SOURCE(2584, 26)
            (* (( (ptr) tdd_v4212)+4) ) = id_v3964;
            };
         }
      else {
         lab_L100012: ;
         };
      };
   }

static void NoName_Q948(formal_c065, formal_c200000, formal_c200001, formal_c200002, formal_c200003)
   word formal_c065;
   word formal_c200000;
   word formal_c200001;
   word formal_c200002;
   word formal_c200003;
   {
   register ptr gf_c076 =  (ptr) &globalframe;
   if ((formal_c200001 == XR_Unwind)) {
      (void) (XR_MonitorExit((word) (( (bPt) gf_c076)+16)/* LOCK_v2804 */ ));
      };
   (*  (ptr) formal_c065 ) = 0;
   (* (( (ptr) formal_c065)+1) ) = 0;
   return;
   }

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

/* file: TEditTouchupImpl, module: TEditTouchupImpl, compiled at: February 27, 1992 5:58:08 pm PST */ 
extern void XR_install_TEditTouchupImpl() {
   NoName_Q828();
   }
extern void XR_run_TEditTouchupImpl() { XR_Start(&globalframe); }