/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 27, 1992 6:01:14 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: TEditProfileImpl, module: TEditProfileImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob_version [1809489663,1526953079] TEditProfileImpl";
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;} W7;
typedef struct {word f0, f1;} W2;
typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8;
typedef struct {W8 f; W2 r;} W10;
typedef struct {word f0, f1, f2, f3, f4, f5;} W6;
#define SOURCE(p, l) /* source p, l */
static void NoName_Q1044();
static void TEditProfileImpl_P0();
static void ReadProfile_P60();
static void ReadMenuDefaults_P120();
static void DefaultMenu_P600();
static void ReadExtensions_P180();
static word RemoveLeadingDot_P660();
static void AddExt_P720();
static void AddImplExt_P780();
static void SetSelectionCaret_P240();
static void SetUserCategory_P300();
static void PreloadStyles_P360();
static void PreloadAbbreviations_P420();
static void GetToken_P480();
static word Sep_P936();
static void DoList_P540();
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[48];} string3 = {2883632, "\260\006\005\146\151\162\163\164\216\257\300\363\223\326\161\300\017\164\046\072\104\350\005\004\162\145\163\164\214\216\257\300\363\223\326\161\300\017\164\046\072\104\350\261\000\000\000"};
static struct {unsigned f; char r[4];} string4 = {131074, "\004\003\000"};
static struct {unsigned f; char r[24];} string5 = {1376280, "Tioga.EditTypeScripts\000\000"};
static struct {unsigned f; char r[28];} string6 = {1572892, "Tioga.OpenFirstLevelOnly\000\000\000"};
static struct {unsigned f; char r[24];} string7 = {1376280, "Tioga.ScrollTopOffset\000\000"};
static struct {unsigned f; char r[28];} string8 = {1572892, "Tioga.ScrollBottomOffset\000\000\000"};
static struct {unsigned f; char r[20];} string9 = {1179668, "Tioga.YSelectFudge\000"};
static struct {unsigned f; char r[32];} string10 = {1966112, "Tioga.ShowUnsavedDocumentsList\000"};
static struct {unsigned f; char r[32];} string11 = {2031648, "Tioga.UnsavedDocumentsCacheSize"};
static struct {unsigned f; char r[20];} string12 = {1179668, "Tioga.UserCategory\000"};
static struct {unsigned f; char r[12];} string13 = {524300, "Advanced\000\000\000"};
static struct {unsigned f; char r[24];} string14 = {1310744, "Tioga.SelectionCaret\000\000\000"};
static struct {unsigned f; char r[8];} string15 = {458760, "balance"};
static struct {unsigned f; char r[20];} string16 = {1179668, "Tioga.DefaultStyle\000"};
static struct {unsigned f; char r[8];} string17 = {327688, "Cedar\000\000"};
static struct {unsigned f; char r[24];} string18 = {1376280, "Tioga.ExtensionStyles\000\000"};
static struct {unsigned f; char r[20];} string19 = {1245204, "Tioga.TryVersionMap"};
static struct {unsigned f; char r[24];} string20 = {1507352, "Tioga.DefaultTiogaMenus"};
static struct {unsigned f; char r[8];} string21 = {393224, "places\000"};
static struct {unsigned f; char r[8];} string22 = {393224, "Places\000"};
static struct {unsigned f; char r[8];} string23 = {393224, "Levels\000"};
static struct {unsigned f; char r[28];} string24 = {1703964, "Tioga.SourceFileExtensions\000"};
static struct {unsigned f; char r[32];} string25 = {1900576, "mesa tioga df cm config style\000\000"};
static struct {unsigned f; char r[28];} string26 = {1572892, "Tioga.ImplFileExtensions\000\000\000"};
static struct {unsigned f; char r[8];} string27 = {262152, "mesa\000\000\000"};
static struct {unsigned f; char r[4];} string28 = {4, "\000\000\000"};
static struct {unsigned f; char r[32];} string29 = {1835040, "Tioga.SelectDelimitingSpaces\000\000\000"};
static struct {unsigned f; char r[8];} string30 = {393224, "before\000"};
static struct {unsigned f; char r[8];} string31 = {327688, "after\000\000"};
static struct {unsigned f; char r[8];} string32 = {393224, "Expert\000"};
static struct {unsigned f; char r[16];} string33 = {786448, "Intermediate\000\000\000"};
static struct {unsigned f; char r[12];} string34 = {524300, "Beginner\000\000\000"};
static struct {unsigned f; char r[16];} string35 = {786448, "Tioga.Styles\000\000\000"};
static struct {unsigned f; char r[20];} string36 = {1245204, "Tioga.Abbreviations"};
static struct {unsigned f; char r[4];} string37 = {65540, ".\000\000"};
static struct {unsigned f; char r[8];} string38 = {393224, "Tioga.\000"};
static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\153\332\236\377\300\133\003\164\167\100\164\000\000"};
static struct {unsigned f; char r[16];} string40 = {983055, "\006\003\100\104\001\100\110\001\100\140\010\000\004\042\001"};
static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"};
static struct {unsigned f; char r[16];} string42 = {851984, "\257\300\134\353\367\206\300\202\044\112\356\100\150\000\000"};
static struct {unsigned f; char r[16];} string43 = {851984, "\257\300\146\107\314\260\300\352\117\305\000\100\150\000\000"};
static struct {unsigned f; char r[16];} string44 = {851984, "\257\300\375\366\273\111\300\156\046\321\053\100\150\000\000"};
static struct {unsigned f; char r[16];} string45 = {851984, "\257\300R-\356\251\300YX]$@h\000\000"};
static struct {
   word f0[58]; word f58; word f59; word f60; 
   word f61; word f62; word f63; word f64; 
   word f65; word f66; word f67; word f68; 
   word f69; word f70; word f71; word f72; 
   word f73; word f74; word f75; word f76; 
   word f77[6]; 
   } globalframe = {
   {0}, (word) DoList_P540, 0, (word) GetToken_P480, 
   0, (word) PreloadAbbreviations_P420, 0, (word) PreloadStyles_P360, 
   0, (word) SetUserCategory_P300, 0, (word) SetSelectionCaret_P240, 
   0, (word) ReadExtensions_P180, 0, (word) ReadMenuDefaults_P120, 
   0, (word) ReadProfile_P60, 0, (word) TEditProfileImpl_P0, 
   {0}
   };

static void NoName_Q1044()
   {
   register ptr gf_c090 =  (ptr) &globalframe;
   word var_c12696;
   (* (( (ptr) gf_c090)+22) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2);
   (* (( (ptr) gf_c090)+23) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4);
   (*  (ptr) (( (bPt) gf_c090)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string5);
   (*  (ptr) (( (bPt) gf_c090)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string6);
   (*  (ptr) (( (bPt) gf_c090)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string7);
   (*  (ptr) (( (bPt) gf_c090)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string8);
   (*  (ptr) (( (bPt) gf_c090)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string9);
   (*  (ptr) (( (bPt) gf_c090)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string10);
   (*  (ptr) (( (bPt) gf_c090)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string11);
   (*  (ptr) (( (bPt) gf_c090)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string12);
   (*  (ptr) (( (bPt) gf_c090)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string13);
   (*  (ptr) (( (bPt) gf_c090)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string14);
   (*  (ptr) (( (bPt) gf_c090)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string15);
   (*  (ptr) (( (bPt) gf_c090)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string16);
   (*  (ptr) (( (bPt) gf_c090)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string17);
   (*  (ptr) (( (bPt) gf_c090)+148) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string18);
   (*  (ptr) (( (bPt) gf_c090)+152) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string19);
   (*  (ptr) (( (bPt) gf_c090)+156) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string20);
   (*  (ptr) (( (bPt) gf_c090)+160) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string21);
   (*  (ptr) (( (bPt) gf_c090)+164) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string22);
   (*  (ptr) (( (bPt) gf_c090)+168) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string23);
   (*  (ptr) (( (bPt) gf_c090)+172) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string24);
   (*  (ptr) (( (bPt) gf_c090)+176) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string25);
   (*  (ptr) (( (bPt) gf_c090)+180) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string26);
   (*  (ptr) (( (bPt) gf_c090)+184) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string27);
   (*  (ptr) (( (bPt) gf_c090)+188) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string28);
   (*  (ptr) (( (bPt) gf_c090)+192) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string29);
   (*  (ptr) (( (bPt) gf_c090)+196) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string30);
   (*  (ptr) (( (bPt) gf_c090)+200) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string31);
   (*  (ptr) (( (bPt) gf_c090)+204) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string32);
   (*  (ptr) (( (bPt) gf_c090)+208) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string33);
   (*  (ptr) (( (bPt) gf_c090)+212) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string34);
   (*  (ptr) (( (bPt) gf_c090)+216) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string35);
   (*  (ptr) (( (bPt) gf_c090)+220) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string36);
   (*  (ptr) (( (bPt) gf_c090)+224) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string37);
   (*  (ptr) (( (bPt) gf_c090)+228) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c090)+22) ), (word) &string38);
   (void) XR_DeclareGlobalFrame((word) "TEditProfileImpl", &globalframe, (word) XR_GetTypeIndex((word) &string39, 0, (word) &string40)
      , (word) (( (bPt) gf_c090)+304)/* var_c11704 */ );
   var_c12696 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string41)), 43);
   (* (( (ptr) gf_c090)+80)/* var_c11960 */  ) = var_c12696;
   (void) XR_ImportProcS(var_c12696, 67633666);
   (void) XR_ImportProcS(var_c12696, 67900419);
   (void) XR_ImportProcS(var_c12696, 67898627);
   (void) XR_ImportProcS(var_c12696, 67634434);
   (void) XR_ImportProcS(var_c12696, 67373825);
   (void) XR_ImportProcS(var_c12696, 67896323);
   var_c12696 = (word) XR_ImportInterface((word) "UserProfile", (word) XR_GetTypeIndexS((word) (&string42)), 11);
   (* (( (ptr) gf_c090)+78)/* var_c11736 */  ) = var_c12696;
   (void) XR_ImportProcS(var_c12696, 67634178);
   (void) XR_ImportProcS(var_c12696, 67633922);
   (void) XR_ImportProcS(var_c12696, 67633666);
   (void) XR_ImportProcS(var_c12696, 67633410);
   (void) XR_ImportProcS(var_c12696, 67633154);
   var_c12696 = (word) XR_ImportInterface((word) "TEditInputOps", (word) XR_GetTypeIndexS((word) (&string43)), 66);
   (* (( (ptr) gf_c090)+81)/* var_c12408 */  ) = var_c12696;
   (void) XR_ImportProcS(var_c12696, 278529);
   (void) XR_ImportProcS(var_c12696, 276737);
   var_c12696 = (word) XR_ImportInterface((word) "NodeStyleOps", (word) XR_GetTypeIndexS((word) (&string44)), 23);
   (* (( (ptr) gf_c090)+79)/* var_c11864 */  ) = var_c12696;
   (void) XR_ImportProcS(var_c12696, 264705);
   (void) XR_ImportProcS(var_c12696, 264449);
   var_c12696 = (word) XR_ExportInterface((word) "TEditProfile", (word) XR_GetTypeIndexS((word) (&string45)), 19);
   (* (( (ptr) gf_c090)+82)/* var_c12728 */  ) = var_c12696;
   (void) XR_ExportVar(var_c12696, 0, (word) (( (bPt) gf_c090)+64)/* userCategory_v3112 */ );
   (void) XR_ExportVar(var_c12696, 1, (word) (( (bPt) gf_c090)+68)/* sourceExtensions_v3140 */ );
   (void) XR_ExportVar(var_c12696, 2, (word) (( (bPt) gf_c090)+72)/* implExtensions_v3168 */ );
   (void) XR_ExportProcS(var_c12696, (word) (( (bPt) gf_c090)+296)/* var_c11672 */ , 768);
   (void) XR_ExportVar(var_c12696, 4, (word) (( (bPt) gf_c090)+16)/* menu1_v2776 */ );
   (void) XR_ExportVar(var_c12696, 5, (word) (( (bPt) gf_c090)+20)/* menu2_v2804 */ );
   (void) XR_ExportVar(var_c12696, 6, (word) (( (bPt) gf_c090)+24)/* menu3_v2832 */ );
   (void) XR_ExportVar(var_c12696, 7, (word) (( (bPt) gf_c090)+28)/* openFirstLevelOnly_v2860 */ );
   (void) XR_ExportVar(var_c12696, 8, (word) (( (bPt) gf_c090)+52)/* showUnsavedDocumentsList_v3028 */ );
   (void) XR_ExportVar(var_c12696, 9, (word) (( (bPt) gf_c090)+32)/* wordPunctuation_v2888 */ );
   (void) XR_ExportVar(var_c12696, 10, (word) (( (bPt) gf_c090)+36)/* editTypeScripts_v2916 */ );
   (void) XR_ExportVar(var_c12696, 11, (word) (( (bPt) gf_c090)+40)/* scrollTopOffset_v2944 */ );
   (void) XR_ExportVar(var_c12696, 12, (word) (( (bPt) gf_c090)+44)/* scrollBottomOffset_v2972 */ );
   (void) XR_ExportVar(var_c12696, 13, (word) (( (bPt) gf_c090)+48)/* ySelectFudge_v3000 */ );
   (void) XR_ExportVar(var_c12696, 14, (word) (( (bPt) gf_c090)+56)/* unsavedDocumentCacheSize_v3056 */ );
   (void) XR_ExportVar(var_c12696, 15, (word) (( (bPt) gf_c090)+60)/* selectionCaret_v3084 */ );
   (void) XR_ExportVar(var_c12696, 16, (word) (( (bPt) gf_c090)+76)/* tryVersionMap_v3196 */ );
   (void) XR_ExportProcS(var_c12696, (word) (( (bPt) gf_c090)+240)/* var_c11448 */ , 135008515);
   (void) XR_ExportProcS(var_c12696, (word) (( (bPt) gf_c090)+232)/* var_c11416 */ , 791043);
   }

static void TEditProfileImpl_P0(formal_c036, formal_c035)
   word formal_c036;
   word formal_c035;
   {
   /* TEditProfileImpl: */ 
SOURCE(354, 4881)
SOURCE(5181, 13)
   (void) ReadProfile_P60();
SOURCE(5196, 15)
   (void) PreloadStyles_P360();
SOURCE(5213, 22)
   (void) PreloadAbbreviations_P420();
   }

static void ReadProfile_P60()
   {
   register ptr gf_c12760 =  (ptr) &globalframe;
   /* ReadProfile: */ 
SOURCE(1168, 1034)
SOURCE(1197, 76)
   {
      word pd46;
      pd46 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+4) );
      (* (( (ptr) gf_c12760)+8)/* wordPunctuation_v2888 */  ) = (word) ( *( (fPt) ((*  (ptr) pd46 ))))((* (( (ptr) gf_c12760)+48)
          ), 0, pd46);
      };
SOURCE(1275, 68)
   {
      word pd47;
      pd47 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+4) );
      (* (( (ptr) gf_c12760)+9)/* editTypeScripts_v2916 */  ) = (word) ( *( (fPt) ((*  (ptr) pd47 ))))((* (( (ptr) gf_c12760)+24)
          ), 1, pd47);
      };
SOURCE(1345, 75)
   {
      word pd48;
      pd48 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+4) );
      (* (( (ptr) gf_c12760)+7)/* openFirstLevelOnly_v2860 */  ) = (word) ( *( (fPt) ((*  (ptr) pd48 ))))((* (( (ptr) gf_c12760)+25)
          ), 0, pd48);
      };
SOURCE(1422, 64)
   {
      word pd49;
      pd49 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+5) );
      (* (( (ptr) gf_c12760)+10)/* scrollTopOffset_v2944 */  ) = (word) ( *( (fPt) ((*  (ptr) pd49 ))))((* (( (ptr) gf_c12760)+26)
          ), 2, pd49);
      };
SOURCE(1488, 70)
   {
      word pd50;
      pd50 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+5) );
      (* (( (ptr) gf_c12760)+11)/* scrollBottomOffset_v2972 */  ) = (word) ( *( (fPt) ((*  (ptr) pd50 ))))((* (( (ptr) gf_c12760)+27)
          ), 2, pd50);
      };
SOURCE(1560, 58)
   {
      word pd51;
      pd51 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+5) );
      (* (( (ptr) gf_c12760)+12)/* ySelectFudge_v3000 */  ) = (word) ( *( (fPt) ((*  (ptr) pd51 ))))((* (( (ptr) gf_c12760)+28)
          ), 2, pd51);
      };
SOURCE(1620, 86)
   {
      word pd52;
      pd52 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+4) );
      (* (( (ptr) gf_c12760)+13)/* showUnsavedDocumentsList_v3028 */  ) = (word) ( *( (fPt) ((*  (ptr) pd52 ))))((* (( (ptr) gf_c12760)+29)
          ), 1, pd52);
      };
SOURCE(1708, 83)
   {
      word pd53;
      pd53 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+5) );
      (* (( (ptr) gf_c12760)+14)/* unsavedDocumentCacheSize_v3056 */  ) = (word) ( *( (fPt) ((*  (ptr) pd53 ))))((* (( (ptr) gf_c12760)+30)
          ), 4, pd53);
      };
SOURCE(1793, 68)
   {
      word var_c11768;
      {
         word pd54;
         pd54 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+6) );
         var_c11768 = (word) ( *( (fPt) ((*  (ptr) pd54 ))))((* (( (ptr) gf_c12760)+31) ), (* (( (ptr) gf_c12760)+32) ), pd54);
         };
      (void) SetUserCategory_P300(var_c11768);
      };
SOURCE(1863, 71)
   {
      word var_c11800;
      {
         word pd55;
         pd55 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+6) );
         var_c11800 = (word) ( *( (fPt) ((*  (ptr) pd55 ))))((* (( (ptr) gf_c12760)+33) ), (* (( (ptr) gf_c12760)+34) ), pd55);
         };
      (void) SetSelectionCaret_P240(var_c11800);
      };
SOURCE(1936, 16)
   (void) ReadExtensions_P180();
SOURCE(1954, 18)
   (void) ReadMenuDefaults_P120();
SOURCE(1974, 78)
   {
      word var_c11832;
      {
         word pd56;
         pd56 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+6) );
         var_c11832 = (word) ( *( (fPt) ((*  (ptr) pd56 ))))((* (( (ptr) gf_c12760)+35) ), (* (( (ptr) gf_c12760)+36) ), pd56);
         };
      {
         word pd57;
         pd57 = (* (( (ptr) (* (( (ptr) gf_c12760)+79)/* var_c11864 */  ))+13) );
         (void) ( *( (fPt) ((*  (ptr) pd57 ))))(var_c11832, pd57);
         };
      };
SOURCE(2054, 82)
   {
      word var_c11896;
      {
         word pd58;
         pd58 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+7) );
         var_c11896 = (word) ( *( (fPt) ((*  (ptr) pd58 ))))((* (( (ptr) gf_c12760)+37) ), 0, pd58);
         };
      {
         word pd59;
         pd59 = (* (( (ptr) (* (( (ptr) gf_c12760)+79)/* var_c11864 */  ))+14) );
         (void) ( *( (fPt) ((*  (ptr) pd59 ))))(var_c11896, pd59);
         };
      };
SOURCE(2138, 64)
   {
      word pd60;
      pd60 = (* (( (ptr) (* (( (ptr) gf_c12760)+78)/* var_c11736 */  ))+4) );
      (* (( (ptr) gf_c12760)+19)/* tryVersionMap_v3196 */  ) = (word) ( *( (fPt) ((*  (ptr) pd60 ))))((* (( (ptr) gf_c12760)+38)
          ), 1, pd60);
      };
   }

static void ReadMenuDefaults_P120()
   {
   W7 var_c12792;
   register ptr gf_c12824 =  (ptr) &globalframe;
   /* declaration of var_c11928 skipped */ 
   /* declaration of num_v4144 skipped */ 
   /* ReadMenuDefaults: */ 
SOURCE(2208, 450)
   {
      word tmpAddr61;
      tmpAddr61 = (word) (( (ptr) &var_c12792)+4)/* var_c11928 */ ;
      (*  (ptr) tmpAddr61 ) = ( ((word)  (fPt) DefaultMenu_P600) );
      (* (( (ptr) tmpAddr61) + 1) ) = 1;
      };
SOURCE(2235, 16)
   var_c12792.f6/* num_v4144 */  = 1;
SOURCE(2572, 28)
   (* (( (ptr) gf_c12824)+6)/* menu3_v2832 */  ) = 0;
   (* (( (ptr) gf_c12824)+5)/* menu2_v2804 */  ) = 0;
   (* (( (ptr) gf_c12824)+4)/* menu1_v2776 */  ) = 0;
SOURCE(2602, 56)
   (void) DoList_P540((* (( (ptr) gf_c12824)+39) ), (word) (( (bPt) &var_c12792)+16)/* var_c11928 */ , (* (( (ptr) gf_c12824)+40)
       ));
   }

static void DefaultMenu_P600(rope_v4248, formal_c12888)
   word rope_v4248;
   word formal_c12888;
   {
   register ptr gf_c12856 =  (ptr) &globalframe;
   word which_v4276;
   formal_c12888 = (formal_c12888 - 16);
   /* DefaultMenu: */ 
SOURCE(2253, 316)
SOURCE(2288, 145)
   {
      word tc62;
      word pd63;
      word pd64;
      pd63 = (* (( (ptr) (* (( (ptr) gf_c12856)+80)/* var_c11960 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd63 ))))(rope_v4248, (* (( (ptr) gf_c12856)+41) ), 0, pd63))) {
         tc62 =  (word) 1;
         }
      else {
         pd64 = (* (( (ptr) (* (( (ptr) gf_c12856)+80)/* var_c11960 */  ))+8) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd64 ))))(rope_v4248, (* (( (ptr) gf_c12856)+42) ), 0, pd64))) {
            tc62 =  (word) 2;
            }
         else {
            tc62 =  (word) 0;
            };
         };
      which_v4276 = tc62;
      };
SOURCE(2435, 25)
   if ((which_v4276 == 0)) {
SOURCE(2454, 6)
      return;
      };
SOURCE(2462, 93)
   {
      word var_c11992;
      var_c11992 = (* (( (ptr) formal_c12888)+6) );
      switch (var_c11992) {
         case 1: 
SOURCE(2483, 13)
            (* (( (ptr) gf_c12856)+4)/* menu1_v2776 */  ) = which_v4276;
            break;
         case 2: 
SOURCE(2503, 13)
            (* (( (ptr) gf_c12856)+5)/* menu2_v2804 */  ) = which_v4276;
            break;
         case 3: 
SOURCE(2523, 13)
            (* (( (ptr) gf_c12856)+6)/* menu3_v2832 */  ) = which_v4276;
            break;
         default: 
SOURCE(2549, 6)
            return;
         };
      };
SOURCE(2557, 12)
   (* (( (ptr) formal_c12888)+6) ) = ((* (( (ptr) formal_c12888)+6) ) + 1);
   }

static void ReadExtensions_P180()
   {
   W10 var_c12920;
   register ptr gf_c12952 =  (ptr) &globalframe;
   /* declaration of var_c12024 skipped */ 
   /* declaration of var_c12056 skipped */ 
   /* declaration of var_c12088 skipped */ 
   /* ReadExtensions: */ 
SOURCE(2664, 832)
   {
      word tmpAddr65;
      tmpAddr65 = (word) (( (ptr) &var_c12920)+4)/* var_c12024 */ ;
      (*  (ptr) tmpAddr65 ) = ( ((word)  (fPt) AddImplExt_P780) );
      (* (( (ptr) tmpAddr65) + 1) ) = 1;
      };
   {
      word tmpAddr66;
      tmpAddr66 = (word) (( (ptr) &var_c12920)+6)/* var_c12056 */ ;
      (*  (ptr) tmpAddr66 ) = ( ((word)  (fPt) AddExt_P720) );
      (* (( (ptr) tmpAddr66) + 1) ) = 1;
      };
   {
      word tmpAddr67;
      tmpAddr67 = (word) (( (ptr) &var_c12920)+8)/* var_c12088 */ ;
      (*  (ptr) tmpAddr67 ) = ( ((word)  (fPt) RemoveLeadingDot_P660) );
      (* (( (ptr) tmpAddr67) + 1) ) = 1;
      };
SOURCE(3310, 39)
   (* (( (ptr) gf_c12952)+18)/* implExtensions_v3168 */  ) = 0;
   (* (( (ptr) gf_c12952)+17)/* sourceExtensions_v3140 */  ) = 0;
SOURCE(3351, 77)
   (void) DoList_P540((* (( (ptr) gf_c12952)+43) ), (word) (( (bPt) &var_c12920)+24)/* var_c12056 */ , (* (( (ptr) gf_c12952)+44)
       ));
SOURCE(3430, 54)
   (void) DoList_P540((* (( (ptr) gf_c12952)+45) ), (word) (( (bPt) &var_c12920)+16)/* var_c12024 */ , (* (( (ptr) gf_c12952)+46)
       ));
SOURCE(3486, 10)
   (void) AddExt_P720((* (( (ptr) gf_c12952)+47) ), (word) (( (bPt) &var_c12920)+24)/* var_c12056 */ );
   }

static word RemoveLeadingDot_P660(ext_v4452, formal_c13016)
   word ext_v4452;
   word formal_c13016;
   {
   register ptr gf_c12984 =  (ptr) &globalframe;
   word var_c4496;
   formal_c13016 = (formal_c13016 - 32);
   /* RemoveLeadingDot: */ 
SOURCE(2689, 130)
SOURCE(2741, 78)
   {
      word tc68;
      word pd69;
      word pd70;
      word pd71;
      pd69 = (* (( (ptr) (* (( (ptr) gf_c12984)+80)/* var_c11960 */  ))+15) );
      if (( (int)(word) ( *( (fPt) ((*  (ptr) pd69 ))))(ext_v4452, pd69) >  (int)0)) {
         pd70 = (* (( (ptr) (* (( (ptr) gf_c12984)+80)/* var_c11960 */  ))+9) );
         tc68 =  (word) ((word) ( *( (fPt) ((*  (ptr) pd70 ))))(ext_v4452, 0, pd70) == 46);
         }
      else {
         tc68 =  (word) 0;
         };
      if (tc68) {
         pd71 = (* (( (ptr) (* (( (ptr) gf_c12984)+80)/* var_c11960 */  ))+17) );
         return((word) ( *( (fPt) ((*  (ptr) pd71 ))))(ext_v4452, 1, 2147483647, pd71));
         }
      else {
         return(ext_v4452);
         };
      };
   }

static void AddExt_P720(ext_v4556, formal_c13080)
   word ext_v4556;
   word formal_c13080;
   {
   register ptr gf_c13048 =  (ptr) &globalframe;
   formal_c13080 = (formal_c13080 - 24);
   /* AddExt: */ 
SOURCE(2824, 229)
SOURCE(2853, 27)
   ext_v4556 = (word) RemoveLeadingDot_P660(ext_v4556, (word) (( (bPt) formal_c13080)+32));
SOURCE(2882, 171)
   if (((* (( (ptr) gf_c13048)+17)/* sourceExtensions_v3140 */  ) == 0)) {
SOURCE(2911, 34)
      {
         word var_c12152;
         word var_c12184;
         var_c12152 = XR_NewObject(8, (* (( (ptr) gf_c13048)+23) ));
         var_c12184 = var_c12152;
         (*  (ptr) var_c12184 ) = ext_v4556;
         (* (( (ptr) gf_c13048)+17)/* sourceExtensions_v3140 */  ) = var_c12152;
         };
      }
   else {
SOURCE(2945, 108)
      {
         register word lst_v4644;
         lst_v4644 = (* (( (ptr) gf_c13048)+17)/* sourceExtensions_v3140 */  );
         lab_L100003: ;
SOURCE(2999, 54)
         if (((* (( (ptr) lst_v4644)+1) ) == 0)) {
SOURCE(3024, 20)
            {
               word var_c12216;
               word var_c12248;
               var_c12216 = XR_NewObject(8, (* (( (ptr) gf_c13048)+23) ));
               var_c12248 = var_c12216;
               (*  (ptr) var_c12248 ) = ext_v4556;
               (* (( (ptr) lst_v4644)+1) ) = var_c12216;
               };
SOURCE(3046, 7)
            return;
            };
         lst_v4644 = (* (( (ptr) lst_v4644)+1) );
         goto lab_L100003;
         };
      };
   }

static void AddImplExt_P780(ext_v4616, formal_c13144)
   word ext_v4616;
   word formal_c13144;
   {
   register ptr gf_c13112 =  (ptr) &globalframe;
   formal_c13144 = (formal_c13144 - 16);
   /* AddImplExt: */ 
SOURCE(3068, 227)
SOURCE(3101, 27)
   ext_v4616 = (word) RemoveLeadingDot_P660(ext_v4616, (word) (( (bPt) formal_c13144)+32));
SOURCE(3130, 165)
   if (((* (( (ptr) gf_c13112)+18)/* implExtensions_v3168 */  ) == 0)) {
SOURCE(3157, 32)
      {
         word var_c12280;
         word var_c12312;
         var_c12280 = XR_NewObject(8, (* (( (ptr) gf_c13112)+23) ));
         var_c12312 = var_c12280;
         (*  (ptr) var_c12312 ) = ext_v4616;
         (* (( (ptr) gf_c13112)+18)/* implExtensions_v3168 */  ) = var_c12280;
         };
      }
   else {
SOURCE(3189, 106)
      {
         register word lst_v4772;
         lst_v4772 = (* (( (ptr) gf_c13112)+18)/* implExtensions_v3168 */  );
         lab_L100007: ;
SOURCE(3241, 54)
         if (((* (( (ptr) lst_v4772)+1) ) == 0)) {
SOURCE(3266, 20)
            {
               word var_c12344;
               word var_c12376;
               var_c12344 = XR_NewObject(8, (* (( (ptr) gf_c13112)+23) ));
               var_c12376 = var_c12344;
               (*  (ptr) var_c12376 ) = ext_v4616;
               (* (( (ptr) lst_v4772)+1) ) = var_c12344;
               };
SOURCE(3288, 7)
            return;
            };
         lst_v4772 = (* (( (ptr) lst_v4772)+1) );
         goto lab_L100007;
         };
      };
   }

static void SetSelectionCaret_P240(rope_v3660)
   word rope_v3660;
   {
   register ptr gf_c13176 =  (ptr) &globalframe;
   /* SetSelectionCaret: */ 
SOURCE(3502, 177)
SOURCE(3543, 136)
   {
      word pd72;
      word pd73;
      pd72 = (* (( (ptr) (* (( (ptr) gf_c13176)+80)/* var_c11960 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd72 ))))(rope_v3660, (* (( (ptr) gf_c13176)+49) ), 0, pd72))) {
         (* (( (ptr) gf_c13176)+15)/* selectionCaret_v3084 */  ) = 0;
         }
      else {
         pd73 = (* (( (ptr) (* (( (ptr) gf_c13176)+80)/* var_c11960 */  ))+8) );
         if ((0 != (word) ( *( (fPt) ((*  (ptr) pd73 ))))(rope_v3660, (* (( (ptr) gf_c13176)+50) ), 0, pd73))) {
            (* (( (ptr) gf_c13176)+15)/* selectionCaret_v3084 */  ) = 1;
            }
         else {
            (* (( (ptr) gf_c13176)+15)/* selectionCaret_v3084 */  ) = 2;
            };
         };
      };
   }

static void SetUserCategory_P300(rope_v3720)
   word rope_v3720;
   {
   register ptr gf_c13208 =  (ptr) &globalframe;
   /* SetUserCategory: */ 
SOURCE(3685, 286)
SOURCE(3724, 247)
   {
      word pd75;
      word pd76;
      word pd77;
      word pd78;
      pd75 = (* (( (ptr) (* (( (ptr) gf_c13208)+80)/* var_c11960 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd75 ))))(rope_v3720, (* (( (ptr) gf_c13208)+51) ), 0, pd75))) {
         (* (( (ptr) gf_c13208)+16)/* userCategory_v3112 */  ) = 3;
         goto endif074;
         };
      pd76 = (* (( (ptr) (* (( (ptr) gf_c13208)+80)/* var_c11960 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd76 ))))(rope_v3720, (* (( (ptr) gf_c13208)+32) ), 0, pd76))) {
         (* (( (ptr) gf_c13208)+16)/* userCategory_v3112 */  ) = 2;
         goto endif074;
         };
      pd77 = (* (( (ptr) (* (( (ptr) gf_c13208)+80)/* var_c11960 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd77 ))))(rope_v3720, (* (( (ptr) gf_c13208)+52) ), 0, pd77))) {
         (* (( (ptr) gf_c13208)+16)/* userCategory_v3112 */  ) = 1;
         goto endif074;
         };
      pd78 = (* (( (ptr) (* (( (ptr) gf_c13208)+80)/* var_c11960 */  ))+8) );
      if ((0 != (word) ( *( (fPt) ((*  (ptr) pd78 ))))(rope_v3720, (* (( (ptr) gf_c13208)+53) ), 0, pd78))) {
         (* (( (ptr) gf_c13208)+16)/* userCategory_v3112 */  ) = 0;
         goto endif074;
         };
      (* (( (ptr) gf_c13208)+16)/* userCategory_v3112 */  ) = 1;
      goto endif074;
      endif074: ;
      };
   }

static void PreloadStyles_P360()
   {
   register ptr gf_c13240 =  (ptr) &globalframe;
   /* PreloadStyles: */ 
SOURCE(3977, 77)
SOURCE(4001, 53)
   (void) DoList_P540((* (( (ptr) gf_c13240)+54) ), (* (( (ptr) (* (( (ptr) gf_c13240)+81)/* var_c12408 */  ))+61) ), 0);
   }

static void PreloadAbbreviations_P420()
   {
   register ptr gf_c13272 =  (ptr) &globalframe;
   /* PreloadAbbreviations: */ 
SOURCE(4060, 93)
SOURCE(4091, 62)
   (void) DoList_P540((* (( (ptr) gf_c13272)+55) ), (* (( (ptr) (* (( (ptr) gf_c13272)+81)/* var_c12408 */  ))+68) ), 0);
   }

static void GetToken_P480(formal_c077, rope_v3812, offset_v3840, thruEnd_v3868)
   word formal_c077;
   word rope_v3812;
   word offset_v3840;
   word thruEnd_v3868;
   {
   W6 var_c13304;
   register ptr gf_c13336 =  (ptr) &globalframe;
   word token_v3912;
   word newOffset_v3940;
   /* declaration of var_c12440 skipped */ 
   word size_v4900;
   word start_v4928;
   /* GetToken: */ 
SOURCE(4159, 611)
   {
      word tmpAddr79;
      tmpAddr79 = (word) (( (ptr) &var_c13304)+4)/* var_c12440 */ ;
      (*  (ptr) tmpAddr79 ) = ( ((word)  (fPt) Sep_P936) );
      (* (( (ptr) tmpAddr79) + 1) ) = 1;
      };
SOURCE(4159, 611)
   token_v3912 = 0;
SOURCE(4276, 27)
   {
      word pd80;
      pd80 = (* (( (ptr) (* (( (ptr) gf_c13336)+80)/* var_c11960 */  ))+15) );
      size_v4900 = (word) ( *( (fPt) ((*  (ptr) pd80 ))))(rope_v3812, pd80);
      };
SOURCE(4455, 39)
   if (( (int)offset_v3840 >=  (int)size_v4900)) {
SOURCE(4476, 18)
      token_v3912 = (* (( (ptr) gf_c13336)+47) );
      newOffset_v3940 = offset_v3840;
      goto lab_L100008;
      };
SOURCE(4496, 72)
   {
      word var_c12504;
      lab_L100011: ;
      {
         word tc81;
         if (( (int)offset_v3840 <  (int)size_v4900)) {
            {
               word pd82;
               pd82 = (* (( (ptr) (* (( (ptr) gf_c13336)+80)/* var_c11960 */  ))+9) );
               var_c12504 = (word) ( *( (fPt) ((*  (ptr) pd82 ))))(rope_v3812, offset_v3840, pd82);
               };
            tc81 =  (word) (0 != (word) Sep_P936(var_c12504, (word) (( (bPt) &var_c13304)+16)/* var_c12440 */ ));
            }
         else {
            tc81 =  (word) 0;
            };
         if (tc81) {
            }
         else {
            goto lab_L100009;
            };
         };
SOURCE(4551, 17)
      offset_v3840 = (offset_v3840 + 1);
      goto lab_L100011;
      lab_L100009: ;
      };
SOURCE(4579, 14)
   start_v4928 = offset_v3840;
SOURCE(4595, 84)
   lab_L100014: ;
   if (( (int)offset_v3840 <  (int)size_v4900)) {
      }
   else {
      goto lab_L100012;
      };
   {
      word var_c12536;
SOURCE(4618, 38)
      {
         word pd83;
         pd83 = (* (( (ptr) (* (( (ptr) gf_c13336)+80)/* var_c11960 */  ))+9) );
         var_c12536 = (word) ( *( (fPt) ((*  (ptr) pd83 ))))(rope_v3812, offset_v3840, pd83);
         };
      if ((0 != (word) Sep_P936(var_c12536, (word) (( (bPt) &var_c13304)+16)/* var_c12440 */ ))) {
SOURCE(4656, 4)
         goto lab_L100013;
         };
SOURCE(4662, 17)
      offset_v3840 = (offset_v3840 + 1);
      };
   goto lab_L100014;
   lab_L100012: ;
   lab_L100013: ;
SOURCE(4690, 80)
   {
      word var_c12600;
      {
         word pd84;
         pd84 = (* (( (ptr) (* (( (ptr) gf_c13336)+80)/* var_c11960 */  ))+17) );
         var_c12600 = (word) ( *( (fPt) ((*  (ptr) pd84 ))))(rope_v3812, start_v4928,  ( (0 != thruEnd_v3868) ? size_v4900 : (offset_v3840 - start_v4928) ) , pd84)
         ;
         };
      token_v3912 = var_c12600;
      newOffset_v3940 = offset_v3840;
      /* removed tail goto */ 
      };
   lab_L100008: ;
   (*  (ptr) formal_c077 ) = token_v3912;
   (* (( (ptr) formal_c077)+1) ) = newOffset_v3940;
   return;
   }

static word Sep_P936(c_v5032, formal_c13368)
   word c_v5032;
   word formal_c13368;
   {
   word var_c5076;
   formal_c13368 = (formal_c13368 - 16);
   /* Sep: */ 
SOURCE(4318, 131)
SOURCE(4357, 92)
   {
      word var_c12632;
      var_c12632 = c_v5032;
      switch (var_c12632) {
         case 32: case 44: case 9: case 13: case 10: case 0: 
            return(1);
         default: 
            return(0);
         };
      };
   }

static void DoList_P540(key_v4000, proc_v4028, defaultKey_v4056)
   word key_v4000;
   word proc_v4028;
   word defaultKey_v4056;
   {
   register ptr gf_c13400 =  (ptr) &globalframe;
   word names_v5104;
   word offset_v5132 = 0;
   word sKey_v5160;
   /* DoList: */ 
SOURCE(4776, 390)
SOURCE(4855, 24)
   names_v5104 = defaultKey_v4056;
SOURCE(4898, 26)
   {
      word pd85;
      pd85 = (* (( (ptr) (* (( (ptr) gf_c13400)+80)/* var_c11960 */  ))+15) );
      sKey_v5160 = (word) ( *( (fPt) ((*  (ptr) pd85 ))))(key_v4000, pd85);
      };
SOURCE(4926, 134)
   if (( (int)sKey_v5160 !=  (int)0)) {
SOURCE(4945, 72)
      {
         word pd86;
         pd86 = (* (( (ptr) (* (( (ptr) gf_c13400)+80)/* var_c11960 */  ))+24) );
         if (( (int)sKey_v5160 ==  (int)(word) ( *( (fPt) ((*  (ptr) pd86 ))))(key_v4000, 0, (* (( (ptr) gf_c13400)+56) ), pd86))) {
SOURCE(4985, 32)
            {
               word pd87;
               pd87 = (* (( (ptr) (* (( (ptr) gf_c13400)+80)/* var_c11960 */  ))+6) );
               key_v4000 = (word) ( *( (fPt) ((*  (ptr) pd87 ))))((* (( (ptr) gf_c13400)+57) ), key_v4000, pd87);
               };
            };
         };
SOURCE(5019, 41)
      {
         word pd88;
         pd88 = (* (( (ptr) (* (( (ptr) gf_c13400)+78)/* var_c11736 */  ))+8) );
         names_v5104 = (word) ( *( (fPt) ((*  (ptr) pd88 ))))(key_v4000, defaultKey_v4056, pd88);
         };
      };
SOURCE(5065, 101)
   lab_L100017: ;
SOURCE(5065, 101)
   {
      word name_v5204 = 0;
SOURCE(5080, 40)
      {
         W2 var_c12664;
         (void) GetToken_P480((word) &var_c12664, names_v5104, offset_v5132, 0);
         offset_v5132 = var_c12664.f1;
         name_v5204 = var_c12664.f0;
         };
SOURCE(5122, 28)
      {
         word pd89;
         pd89 = (* (( (ptr) (* (( (ptr) gf_c13400)+80)/* var_c11960 */  ))+15) );
         if (( (int)(word) ( *( (fPt) ((*  (ptr) pd89 ))))(name_v5204, pd89) ==  (int)0)) {
SOURCE(5150, 4)
            goto lab_L100016;
            };
         };
SOURCE(5156, 10)
      (void) ( *( (fPt) ((*  (ptr) proc_v4028 ))))(name_v5204, proc_v4028);
      };
   goto lab_L100017;
   lab_L100016: ;
   }

/* file: TEditProfileImpl, module: TEditProfileImpl, compiled at: February 27, 1992 6:01:13 pm PST */ 
extern void XR_install_TEditProfileImpl() {
   NoName_Q1044();
   }
extern void XR_run_TEditProfileImpl() { XR_Start(&globalframe); }