/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1993 by Xerox Corporation. All rights reserved. */ /* time: September 2, 1993 3:30:22 pm PDT */ /* C2C version: April 20, 1993 (sun4) */ /* ref-counting: off */ /* file: TiogaComfortsImpl, module: TiogaComfortsImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [3175825031,741064996] TiogaComfortsImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); typedef struct {word f0, f1, f2, f3;} W4; typedef W4 *W4Pt; typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {word f0, f1, f2, f3, f4;} W5; typedef struct {W8 f; W5 r;} W13; typedef struct {word f0, f1;} W2; typedef struct {word f0, f1, f2;} W3; typedef struct {W8 f; W4 r;} W12; typedef struct {W8 f; W3 r;} W11; typedef struct {W8 f; word r;} W9; typedef struct {W8 f; W2 r;} W10; typedef W2 *W2Pt; #define SOURCE(p, l) /* source p, l */ #define SGNCK(i) ((int) (word) (i) < 0 ? XR_RaiseArithmeticFault(): i ) #define MIN(cast, x, y) ( ( cast x) < ( cast y) ? (x) : (y) ) #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) #define MAX(cast, x, y) ( ( cast x) > ( cast y) ? (x) : (y) ) #define IOP2(op, x, y) ( (word) ((x) op (y)) ) static void NoName_Q2064(); static void TiogaComfortsImpl_P0(); static word IsComment_P60(); static void CommentPrefix_P120(); static word SkipOverBackward_P180(); static void EnumerateInitialCommentLines_P240(); static void GetTrimmedLine_P912(); static void CopyrightButton_P300(); static void UpdateCopyrightNotice_P360(); static word NoName_Q2124(); static void Inner_P1116(); static word EachComment_P1176(); static void Add_P1284(); static word MakeComment_P420(); static void UpdateLastEditedLine_P480(); static word NoName_Q2184(); static void Inner_P1488(); static word EachComment_P1548(); static word GetNiceUserName_P540(); static void FindDate_P600(); static word NoName_Q2244(); static void InstallMenuButton_P660(); static void NoName_Q2304(); static void NoName_Q2364(); static void NoName_Q2424(); static struct {unsigned f; char r[48];} string1 = {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];} string2 = {131074, "\004\003\000"}; static struct {unsigned f; char r[16];} string3 = {917520, "\216\257\300\363\223\326\161\300\017\164\046\072\104\350\000"}; static struct {unsigned f; char r[4];} string4 = {65537, "\001\000\000"}; static struct {unsigned f; char r[4];} string5 = {131076, "\216\251\000"}; static struct {unsigned f; char r[4];} string6 = {196612, "Sep"}; static struct {unsigned f; char r[4];} string7 = {196612, "Aug"}; static struct {unsigned f; char r[4];} string8 = {196612, "Jul"}; static struct {unsigned f; char r[4];} string9 = {196612, "Jun"}; static struct {unsigned f; char r[4];} string10 = {196612, "May"}; static struct {unsigned f; char r[4];} string11 = {196612, "Apr"}; static struct {unsigned f; char r[4];} string12 = {196612, "Mar"}; static struct {unsigned f; char r[4];} string13 = {196612, "Feb"}; static struct {unsigned f; char r[4];} string14 = {196612, "Jan"}; static struct {unsigned f; char r[4];} string15 = {196612, "Oct"}; static struct {unsigned f; char r[4];} string16 = {65540, "\323\000\000"}; static struct {unsigned f; char r[4];} string17 = {196612, "Nov"}; static struct {unsigned f; char r[24];} string18 = {1376280, "UpdateCopyrightNotice\000\000"}; static struct {unsigned f; char r[4];} string19 = {196612, "Dec"}; static struct {unsigned f; char r[8];} string20 = {458760, "RedSave"}; static struct {unsigned f; char r[12];} string21 = {524300, "RedStore\000\000\000"}; static struct {unsigned f; char r[4];} string22 = {131076, "--\000"}; static struct {unsigned f; char r[4];} string23 = {131076, "//\000"}; static struct {unsigned f; char r[4];} string24 = {65540, ";\000\000"}; static struct {unsigned f; char r[4];} string25 = {131076, "(*\000"}; static struct {unsigned f; char r[4];} string26 = {131076, "*)\000"}; static struct {unsigned f; char r[4];} string27 = {131076, "/*\000"}; static struct {unsigned f; char r[4];} string28 = {131076, "*/\000"}; static struct {unsigned f; char r[4];} string29 = {131076, "\012\015\000"}; static struct {unsigned f; char r[4];} string30 = {131076, " \011\000"}; static struct {unsigned f; char r[24];} string31 = {1376280, "Tioga.CopyrightHolder\000\000"}; static struct {unsigned f; char r[20];} string32 = {1114132, "Xerox Corporation\000\000"}; static struct {unsigned f; char r[44];} string33 = {2818092, "Copyright \323 %g by %g. All rights reserved."}; static struct {unsigned f; char r[12];} string34 = {655372, "Copyright \000"}; static struct {unsigned f; char r[4];} string35 = {196612, ", \011"}; static struct {unsigned f; char r[8];} string36 = {262152, ", %g\000\000\000"}; static struct {unsigned f; char r[4];} string37 = {196612, " c "}; static struct {unsigned f; char r[4];} string38 = {196612, " \323 "}; static struct {unsigned f; char r[8];} string39 = {327688, " (C) \000\000"}; static struct {unsigned f; char r[8];} string40 = {327688, "%g %g\000\000"}; static struct {unsigned f; char r[12];} string41 = {524300, "%g %g %g\000\000\000"}; static struct {unsigned f; char r[20];} string42 = {1048596, "Tioga.LastEdited\000\000\000"}; static struct {unsigned f; char r[4];} string43 = {65540, ",\000\000"}; static struct {unsigned f; char r[24];} string44 = {1310744, "UpdateLastEditedLine\000\000\000"}; static struct {unsigned f; char r[4];} string45 = {131076, "ST\000"}; static struct {unsigned f; char r[4];} string46 = {131076, "DT\000"}; static struct {unsigned f; char r[4];} string47 = {196612, "GMT"}; static struct {unsigned f; char r[4];} string48 = {196612, " am"}; static struct {unsigned f; char r[4];} string49 = {196612, " pm"}; static struct {unsigned f; char r[16];} string50 = {851984, "\257\300\275\113\076\207\300\054\053\301\044\100\164\000\000"}; static struct {unsigned f; char r[12];} string51 = {655370, "\006\002\020\001\060\010\000\004\055\001\000"}; static struct {unsigned f; char r[16];} string52 = {851984, "\257\300\212\174\364\337\300\361\376\000\156\100\150\000\000"}; static struct {unsigned f; char r[16];} string53 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"}; static struct {unsigned f; char r[16];} string54 = {851984, "\257\300\004\173\141\246\300\255\256\170\002\100\150\000\000"}; static struct {unsigned f; char r[16];} string55 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string56 = {851984, "\257\300\317\042\141\053\300\247\142\073\274\100\150\000\000"}; static struct {unsigned f; char r[16];} string57 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[12];} string58 = {720908, "\257\300kte\023\205\204\320@h"}; static struct {unsigned f; char r[16];} string59 = {851984, "\257\300\013\141\323\354\300\341\005\243\127\100\150\000\000"}; static struct {unsigned f; char r[16];} string60 = {851984, "\257\300\241\200\031\316\300\154\273\372\020\100\150\000\000"}; static struct {unsigned f; char r[16];} string61 = {851984, "\257\300\261\010\310\246\300\337\340\027\051\100\150\000\000"}; static struct {unsigned f; char r[16];} string62 = {851984, "\257\3004+\202s\300vm?\203@h\000\000"}; static struct {unsigned f; char r[16];} string63 = {851984, "\257\300\042\224\360\026\300\243\254\175\360\100\150\000\000"}; static struct {unsigned f; char r[16];} string64 = {851984, "\257\300\054\221\365\223\300\171\063\250\230\100\150\000\000"}; static struct {unsigned f; char r[16];} string65 = {851984, "\257\300\136\253\306\024\300\100\114\357\174\100\150\000\000"}; static struct {unsigned f; char r[16];} string66 = {851984, "\257\300\134\353\367\206\300\202\044\112\356\100\150\000\000"}; static struct { word f0[57]; word f57; 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; word f78; word f79; word f80; word f81; word f82; word f83[3]; word f86; word f87[17]; } globalframe = { {0}, (word) InstallMenuButton_P660, 0, (word) FindDate_P600, 0, (word) GetNiceUserName_P540, 0, (word) UpdateLastEditedLine_P480, 0, (word) MakeComment_P420, 0, (word) UpdateCopyrightNotice_P360, 0, (word) CopyrightButton_P300, 0, (word) EnumerateInitialCommentLines_P240, 0, (word) SkipOverBackward_P180, 0, (word) CommentPrefix_P120, 0, (word) IsComment_P60, 0, (word) TiogaComfortsImpl_P0, 0, (word) 2, (word) 1, {0}, (word) 1, {0} }; static void NoName_Q2064() { register ptr gf_c0274 = (ptr) &globalframe; word var_c28128; (* (( (ptr) gf_c0274)+6) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0274)+8) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf_c0274)+10) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string4); (* (ptr) (( (bPt) gf_c0274)+48) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string6); (* (ptr) (( (bPt) gf_c0274)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string7); (* (ptr) (( (bPt) gf_c0274)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string8); (* (ptr) (( (bPt) gf_c0274)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string9); (* (ptr) (( (bPt) gf_c0274)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string10); (* (ptr) (( (bPt) gf_c0274)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string11); (* (ptr) (( (bPt) gf_c0274)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string12); (* (ptr) (( (bPt) gf_c0274)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string13); (* (ptr) (( (bPt) gf_c0274)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string14); (* (ptr) (( (bPt) gf_c0274)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string15); (* (ptr) (( (bPt) gf_c0274)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string16); (* (ptr) (( (bPt) gf_c0274)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string17); (* (ptr) (( (bPt) gf_c0274)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+10) ), (word) &string18); (* (ptr) (( (bPt) gf_c0274)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string19); (* (ptr) (( (bPt) gf_c0274)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+10) ), (word) &string20); (* (ptr) (( (bPt) gf_c0274)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+10) ), (word) &string21); (* (ptr) (( (bPt) gf_c0274)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string22); (* (ptr) (( (bPt) gf_c0274)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string23); (* (ptr) (( (bPt) gf_c0274)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string24); (* (ptr) (( (bPt) gf_c0274)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string25); (* (ptr) (( (bPt) gf_c0274)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string26); (* (ptr) (( (bPt) gf_c0274)+132) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string27); (* (ptr) (( (bPt) gf_c0274)+136) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string28); (* (ptr) (( (bPt) gf_c0274)+140) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string29); (* (ptr) (( (bPt) gf_c0274)+144) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string30); (* (ptr) (( (bPt) gf_c0274)+148) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string18); (* (ptr) (( (bPt) gf_c0274)+152) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string31); (* (ptr) (( (bPt) gf_c0274)+156) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string32); (* (ptr) (( (bPt) gf_c0274)+160) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string33); (* (ptr) (( (bPt) gf_c0274)+164) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string34); (* (ptr) (( (bPt) gf_c0274)+168) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string35); (* (ptr) (( (bPt) gf_c0274)+172) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string36); (* (ptr) (( (bPt) gf_c0274)+176) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string37); (* (ptr) (( (bPt) gf_c0274)+180) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string38); (* (ptr) (( (bPt) gf_c0274)+184) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string39); (* (ptr) (( (bPt) gf_c0274)+188) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string40); (* (ptr) (( (bPt) gf_c0274)+192) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string41); (* (ptr) (( (bPt) gf_c0274)+196) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string42); (* (ptr) (( (bPt) gf_c0274)+200) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string43); (* (ptr) (( (bPt) gf_c0274)+204) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string44); (* (ptr) (( (bPt) gf_c0274)+208) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string45); (* (ptr) (( (bPt) gf_c0274)+212) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string46); (* (ptr) (( (bPt) gf_c0274)+216) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string47); (* (ptr) (( (bPt) gf_c0274)+220) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string48); (* (ptr) (( (bPt) gf_c0274)+224) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0274)+8) ), (word) &string49); (void) XR_DeclareGlobalFrame((word) "TiogaComfortsImpl", &globalframe, (word) XR_GetTypeIndex((word) &string50, 0, (word) &string51) , (word) (( (bPt) gf_c0274)+316)/* var_c25216 */ ); var_c28128 = (word) XR_ImportInterface((word) "BasicTime", (word) XR_GetTypeIndexS((word) (&string52)), 24); (* (( (ptr) gf_c0274)+96)/* var_c26400 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 67111424); (void) XR_ImportProcS(var_c28128, 738464257); var_c28128 = (word) XR_ImportInterface((word) "Convert", (word) XR_GetTypeIndexS((word) (&string53)), 73); (* (( (ptr) gf_c0274)+100)/* var_c27392 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 67373825); (void) XR_ImportProcS(var_c28128, 68689158); var_c28128 = (word) XR_ImportInterface((word) "EditSpan", (word) XR_GetTypeIndexS((word) (&string54)), 23); (* (( (ptr) gf_c0274)+99)/* var_c26944 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 270274052); (void) XR_ImportProcS(var_c28128, 68422405); var_c28128 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string55)), 103); (* (( (ptr) gf_c0274)+98)/* var_c26592 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 67910402); (void) XR_ImportProcS(var_c28128, 68958724); var_c28128 = (word) XR_ImportInterface((word) "Menus", (word) XR_GetTypeIndexS((word) (&string56)), 21); (* (( (ptr) gf_c0274)+103)/* var_c28096 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 788995); (void) XR_ImportProcS(var_c28128, 788483); (void) XR_ImportProcS(var_c28128, 68682246); (void) XR_ImportProcS(var_c28128, 67634946); var_c28128 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string57)), 43); (* (( (ptr) gf_c0274)+91)/* var_c25536 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 68160516); (void) XR_ImportProcS(var_c28128, 68159236); (void) XR_ImportProcS(var_c28128, 67899907); (void) XR_ImportProcS(var_c28128, 67379457); (void) XR_ImportProcS(var_c28128, 67633666); (void) XR_ImportProcS(var_c28128, 68158980); (void) XR_ImportProcS(var_c28128, 67900419); (void) XR_ImportProcS(var_c28128, 67898627); (void) XR_ImportProcS(var_c28128, 67634434); (void) XR_ImportProcS(var_c28128, 67373313); (void) XR_ImportProcS(var_c28128, 67373825); (void) XR_ImportProcS(var_c28128, 67901955); (void) XR_ImportProcS(var_c28128, 67900675); (void) XR_ImportProcS(var_c28128, 68686086); var_c28128 = (word) XR_ImportInterface((word) "SystemNames", (word) XR_GetTypeIndexS((word) (&string58)), 9); (* (( (ptr) gf_c0274)+101)/* var_c27872 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 67108864); var_c28128 = (word) XR_ImportInterface((word) "TEditInput", (word) XR_GetTypeIndexS((word) (&string59)), 44); (* (( (ptr) gf_c0274)+89)/* var_c25440 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 530690); (void) XR_ImportProcS(var_c28128, 789507); var_c28128 = (word) XR_ImportInterface((word) "TEditLocks", (word) XR_GetTypeIndexS((word) (&string60)), 7); (* (( (ptr) gf_c0274)+95)/* var_c26240 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 262913); (void) XR_ImportProcS(var_c28128, 67895299); var_c28128 = (word) XR_ImportInterface((word) "TextEdit", (word) XR_GetTypeIndexS((word) (&string61)), 39); (* (( (ptr) gf_c0274)+90)/* var_c25504 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 67633410); (void) XR_ImportProcS(var_c28128, 67376641); (void) XR_ImportProcS(var_c28128, 792323); (void) XR_ImportProcS(var_c28128, 1837831); (void) XR_ImportProcS(var_c28128, 792835); (void) XR_ImportProcS(var_c28128, 136585481); (void) XR_ImportProcS(var_c28128, 67377153); var_c28128 = (word) XR_ImportInterface((word) "TextEditBogus", (word) XR_GetTypeIndexS((word) (&string62)), 1); (* (( (ptr) gf_c0274)+93)/* var_c25952 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 67371009); var_c28128 = (word) XR_ImportInterface((word) "TextNode", (word) XR_GetTypeIndexS((word) (&string63)), 34); (* (( (ptr) gf_c0274)+92)/* var_c25920 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 67374081); (void) XR_ImportProcS(var_c28128, 67373569); var_c28128 = (word) XR_ImportInterface((word) "TiogaMenuOps", (word) XR_GetTypeIndexS((word) (&string64)), 25); (* (( (ptr) gf_c0274)+102)/* var_c28064 */ ) = var_c28128; var_c28128 = (word) XR_ImportInterface((word) "TiogaOps", (word) XR_GetTypeIndexS((word) (&string65)), 128); (* (( (ptr) gf_c0274)+94)/* var_c26176 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 67393793); var_c28128 = (word) XR_ImportInterface((word) "UserProfile", (word) XR_GetTypeIndexS((word) (&string66)), 11); (* (( (ptr) gf_c0274)+97)/* var_c26464 */ ) = var_c28128; (void) XR_ImportProcS(var_c28128, 67634178); } static void TiogaComfortsImpl_P0(formal_c041, formal_c038) word formal_c041; word formal_c038; { register ptr gf_c28160 = (ptr) &globalframe; /* TiogaComfortsImpl: */ SOURCE(882, 13200) /* moved to installation proc */ /* moved to installation proc */ /* moved to installation proc */ SOURCE(12421, 11) { word var_c25376; word var_c25408; var_c25376 = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = var_c25376; (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+20) ); (* (( (ptr) var_c25408)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = (* (( (ptr) var_c25408)+1) ); (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+19) ); (* (( (ptr) var_c25408)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = (* (( (ptr) var_c25408)+1) ); (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+18) ); (* (( (ptr) var_c25408)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = (* (( (ptr) var_c25408)+1) ); (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+17) ); (* (( (ptr) var_c25408)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = (* (( (ptr) var_c25408)+1) ); (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+16) ); (* (( (ptr) var_c25408)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = (* (( (ptr) var_c25408)+1) ); (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+15) ); (* (( (ptr) var_c25408)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = (* (( (ptr) var_c25408)+1) ); (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+14) ); (* (( (ptr) var_c25408)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = (* (( (ptr) var_c25408)+1) ); (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+13) ); (* (( (ptr) var_c25408)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = (* (( (ptr) var_c25408)+1) ); (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+12) ); (* (( (ptr) var_c25408)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = (* (( (ptr) var_c25408)+1) ); (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+21) ); (* (( (ptr) var_c25408)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = (* (( (ptr) var_c25408)+1) ); (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+23) ); (* (( (ptr) var_c25408)+1) ) = XR_NewObject(8, (* (( (ptr) gf_c28160)+6) )); var_c25408 = (* (( (ptr) var_c25408)+1) ); (* (ptr) var_c25408 ) = (* (( (ptr) gf_c28160)+25) ); (* (( (ptr) gf_c28160)+4)/* monthList_v3616 */ ) = var_c25376; }; SOURCE(13848, 17) (* (( (ptr) gf_c28160) + 5) ) |= 134217728; SOURCE(13868, 39) (void) InstallMenuButton_P660((* (( (ptr) gf_c28160)+22) ), (word) (( (bPt) gf_c28160)+276)/* var_c25056 */ ); SOURCE(13909, 66) { word pd67; pd67 = (* (( (ptr) (* (( (ptr) gf_c28160)+89)/* var_c25440 */ ))+16) ); (void) ( *( (fPt) ((* (ptr) pd67 ))))((* (( (ptr) gf_c28160)+24) ), (word) (( (bPt) gf_c28160)+268)/* var_c25024 */ , 1, pd67) ; }; SOURCE(13977, 51) { word pd68; pd68 = (* (( (ptr) (* (( (ptr) gf_c28160)+89)/* var_c25440 */ ))+16) ); (void) ( *( (fPt) ((* (ptr) pd68 ))))((* (( (ptr) gf_c28160)+26) ), (word) (( (bPt) gf_c28160)+252)/* var_c24960 */ , 1, pd68) ; }; SOURCE(14030, 52) { word pd69; pd69 = (* (( (ptr) (* (( (ptr) gf_c28160)+89)/* var_c25440 */ ))+16) ); (void) ( *( (fPt) ((* (ptr) pd69 ))))((* (( (ptr) gf_c28160)+27) ), (word) (( (bPt) gf_c28160)+252)/* var_c24960 */ , 1, pd69) ; }; } static word IsComment_P60(node_v3808) word node_v3808; { register ptr gf_c28192 = (ptr) &globalframe; word var_c3852; /* IsComment: */ SOURCE(1146, 83) SOURCE(1194, 35) { word pd70; pd70 = (* (( (ptr) (* (( (ptr) gf_c28192)+90)/* var_c25504 */ ))+28) ); return((word) ( *( (fPt) ((* (ptr) pd70 ))))(node_v3808, pd70)); }; } static void CommentPrefix_P120(formal_c054, rope_v4040, start_v4068) word formal_c054; word rope_v4040; word start_v4068; { register ptr gf_c28224 = (ptr) &globalframe; W4 var_c4112; /* CommentPrefix: */ SOURCE(1324, 480) SOURCE(1393, 411) { word pd71; pd71 = (* (( (ptr) (* (( (ptr) gf_c28224)+91)/* var_c25536 */ ))+21) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd71 ))))(rope_v4040, start_v4068, (* (( (ptr) gf_c28224)+28) ), 0, 1, 2147483647, pd71) == (int)2)) { SOURCE(1430, 35) var_c4112.f0 = 2; var_c4112.f1 = 1; var_c4112.f2 = 0; var_c4112.f3 = (* (( (ptr) gf_c28224)+28) ); /* removed tail goto */ } else { SOURCE(1465, 339) { word pd72; pd72 = (* (( (ptr) (* (( (ptr) gf_c28224)+91)/* var_c25536 */ ))+21) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd72 ))))(rope_v4040, start_v4068, (* (( (ptr) gf_c28224)+29) ), 0, 1, 2147483647, pd72) == (int)2)) { SOURCE(1501, 34) var_c4112 = (* (W4Pt) (( (ptr) gf_c28224)+81)/* var_c25280 */ ); /* removed tail goto */ } else { SOURCE(1535, 269) { word pd73; pd73 = (* (( (ptr) (* (( (ptr) gf_c28224)+91)/* var_c25536 */ ))+21) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd73 ))))(rope_v4040, start_v4068, (* (( (ptr) gf_c28224)+30) ), 0, 1, 2147483647, pd73) == (int)1)) { SOURCE(1568, 66) { W4 var_c25696; { W4 var_c25664; { /*1*/ word pd74; /*1*/ pd74 = (* (( (ptr) (* (( (ptr) gf_c28224)+91)/* var_c25536 */ ))+25) ); /*1*/ var_c25664.f0 = ((word) ( *( (fPt) ((* (ptr) pd74 ))))(rope_v4040, start_v4068, (* (( (ptr) gf_c28224)+30) ), pd74) - start_v4068); /*1*/ }; var_c25664.f1 = 1; var_c25664.f2 = 0; var_c25664.f3 = 0; var_c25696 = var_c25664; }; var_c4112 = var_c25696; /* removed tail goto */ }; } else { SOURCE(1634, 170) { word pd75; pd75 = (* (( (ptr) (* (( (ptr) gf_c28224)+91)/* var_c25536 */ ))+21) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd75 ))))(rope_v4040, start_v4068, (* (( (ptr) gf_c28224)+31) ), 0, 1, 2147483647, pd75) == (int)2)) { SOURCE(1668, 37) var_c4112.f0 = 2; var_c4112.f1 = 0; var_c4112.f2 = (* (( (ptr) gf_c28224)+31) ); var_c4112.f3 = (* (( (ptr) gf_c28224)+32) ); /* removed tail goto */ } else { SOURCE(1705, 99) { /*1*/ word pd76; /*1*/ pd76 = (* (( (ptr) (* (( (ptr) gf_c28224)+91)/* var_c25536 */ ))+21) ); /*1*/ if (( (int)(word) ( *( (fPt) ((* (ptr) pd76 ))))(rope_v4040, start_v4068, (* (( (ptr) gf_c28224)+33) ), 0, 1, 2147483647, pd76) /*1*/ == (int)2)) { SOURCE(1739, 37) /*1*/ var_c4112.f0 = 2; /*1*/ var_c4112.f1 = 0; /*1*/ var_c4112.f2 = (* (( (ptr) gf_c28224)+33) ); /*1*/ var_c4112.f3 = (* (( (ptr) gf_c28224)+34) ); /*1*/ /* removed tail goto */ /*1*/ } /*1*/ else { SOURCE(1776, 28) /*1*/ var_c4112 = (* (W4Pt) (( (ptr) gf_c28224)+85)/* var_c25344 */ ); /*1*/ /* removed tail goto */ /*1*/ }; /*1*/ }; }; }; }; }; }; }; }; }; (* (W4Pt) formal_c054 ) = var_c4112; return; } static word SkipOverBackward_P180(s_v4172, pos_v4200, skip_v4228) word s_v4172; word pos_v4200; word skip_v4228; { register ptr gf_c28256 = (ptr) &globalframe; word var_c4272; word skipText_v5256; word skiplen_v5284; word slen_v5312; word start_v5340; /* SkipOverBackward: */ SOURCE(1810, 502) SOURCE(1897, 36) { word pd77; pd77 = (* (( (ptr) (* (( (ptr) gf_c28256)+91)/* var_c25536 */ ))+30) ); skipText_v5256 = (word) ( *( (fPt) ((* (ptr) pd77 ))))(skip_v4228, 0, 2147483647, pd77); }; SOURCE(1935, 60) { word tc78; word pd79; word idx80; if ((skipText_v5256 == 0)) { tc78 = (word) 0; } else { pd79 = (* (( (ptr) (* (( (ptr) gf_c28256)+91)/* var_c25536 */ ))+15) ); tc78 = (word) ( *( (fPt) ((* (ptr) pd79 ))))(skipText_v5256, pd79); }; skiplen_v5284 = ( idx80 = (word) tc78, SGNCK(idx80) ); }; SOURCE(1997, 20) { word pd81; pd81 = (* (( (ptr) (* (( (ptr) gf_c28256)+91)/* var_c25536 */ ))+15) ); slen_v5312 = (word) ( *( (fPt) ((* (ptr) pd81 ))))(s_v4172, pd81); }; SOURCE(2019, 29) start_v5340 = (MIN((int)(word), (slen_v5312 - 1), pos_v4200)); SOURCE(2050, 44) { word pd83; if (( (int)start_v5340 < (int)0)) { goto then082;}; pd83 = (* (( (ptr) (* (( (ptr) gf_c28256)+91)/* var_c25536 */ ))+13) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd83 ))))(s_v4172, pd83))) { then082: ; SOURCE(2083, 11) return( (word) -1); }; }; SOURCE(2096, 31) if ((skiplen_v5284 == 0)) { SOURCE(2114, 13) return(start_v5340); }; SOURCE(2129, 152) { register word n_v5384; n_v5384 = start_v5340; lab_L100004: ; if (( (int)n_v5384 >= (int)0)) { } else { goto lab_L100001; }; { word c_v5428; SOURCE(2169, 20) { word pd84; pd84 = (* (( (ptr) (* (( (ptr) gf_c28256)+91)/* var_c25536 */ ))+9) ); c_v5428 = (word) ( *( (fPt) ((* (ptr) pd84 ))))(s_v4172, n_v5384, pd84); }; SOURCE(2191, 90) { register word i_v5472 = 0; if ((i_v5472 >= skiplen_v5284)) { goto lab_L100005; }; lab_L100008: ; SOURCE(2221, 24) { word limit85; if ((c_v5428 == (unsigned) (word) (* ((( (bPt) skipText_v5256)+4)+( limit85 = (word) (unsigned) ( (((unsigned)(* (( (hPt) skipText_v5256)+1) ) << 17) >> 17) ), BCK(i_v5472, limit85) )) ))) { SOURCE(2245, 4) goto lab_L100006; }; }; i_v5472 = (i_v5472 + 1); if ((i_v5472 < skiplen_v5284)) { goto lab_L100008; }; lab_L100005: ; SOURCE(2271, 10) return(n_v5384); lab_L100006: ; }; }; n_v5384 = (n_v5384 - 1); goto lab_L100004; lab_L100001: ; }; SOURCE(2301, 11) return( (word) -1); } static void EnumerateInitialCommentLines_P240(formal_c085, root_v4332, proc_v4360) word formal_c085; word root_v4332; word proc_v4360; { W13 var_c28288; register ptr gf_c28320 = (ptr) &globalframe; word finalNode_v4648; word finalStart_v4676; word finalAfter_v4704; /* declaration of var_c25888 skipped */ /* declaration of index_v5516 skipped */ word node_v5544; /* declaration of contents_v5572 skipped */ /* declaration of hasLineBreak_v5600 skipped */ /* EnumerateInitialCommentLines: */ SOURCE(2318, 2574) { word tmpAddr86; tmpAddr86 = (word) (( (ptr) &var_c28288)+4)/* var_c25888 */ ; (* (ptr) tmpAddr86 ) = ( ((word) (fPt) GetTrimmedLine_P912) ); (* (( (ptr) tmpAddr86) + 1) ) = 1; }; SOURCE(2318, 2574) finalNode_v4648 = 0; SOURCE(2318, 2574) finalStart_v4676 = 0; SOURCE(2318, 2574) finalAfter_v4704 = 0; SOURCE(2545, 14) (* (( (ptr) &var_c28288)+6)/* index_v5516 */ ) = 0; SOURCE(2561, 39) { word pd87; pd87 = (* (( (ptr) (* (( (ptr) gf_c28320)+92)/* var_c25920 */ ))+14) ); node_v5544 = (word) ( *( (fPt) ((* (ptr) pd87 ))))(root_v4332, pd87); }; SOURCE(2602, 44) { word pd88; pd88 = (* (( (ptr) (* (( (ptr) gf_c28320)+93)/* var_c25952 */ ))+4) ); (* (( (ptr) &var_c28288)+7)/* contents_v5572 */ ) = (word) ( *( (fPt) ((* (ptr) pd88 ))))(node_v5544, pd88); }; SOURCE(2648, 25) (* (( (ptr) &var_c28288)+8)/* hasLineBreak_v5600 */ ) = 1; SOURCE(2675, 2217) lab_L100012: ; SOURCE(2675, 2217) { word start_v5672; word length_v5700; /* declaration of pa_v5728 skipped */ word var_c0305; SOURCE(4203, 13) (* (( (ptr) &var_c28288)+9) ) = 0; (* (( (ptr) &var_c28288)+10) ) = 0; (* (( (ptr) &var_c28288)+11) ) = 0; (* (( (ptr) &var_c28288)+12) ) = 0; SOURCE(4219, 483) (void) CommentPrefix_P120((word) (( (bPt) &var_c28288)+36)/* pa_v5728 */ , (* (( (ptr) &var_c28288)+7)/* contents_v5572 */ ), (* ( ( (ptr) &var_c28288)+6)/* index_v5516 */ )); var_c0305 = (* (W4Pt) (( (ptr) &var_c28288)+9)/* pa_v5728 */ ).f0; if (( (int)var_c0305 > (int)0) || (0 != (word) IsComment_P60(node_v5544))) { SOURCE(4301, 410) { word savedIndex_v5932; word bad_v5960; SOURCE(4303, 23) savedIndex_v5932 = (* (( (ptr) &var_c28288)+6)/* index_v5516 */ ); SOURCE(4339, 62) { W3 var_c26016; (void) GetTrimmedLine_P912((word) &var_c26016, ((* (( (ptr) &var_c28288)+6)/* index_v5516 */ ) + (* (( (ptr) &var_c28288)+9) )), (word) (( (bPt) &var_c28288)+16)/* var_c25888 */ ); bad_v5960 = var_c26016.f2; length_v5700 = var_c26016.f1; start_v5672 = var_c26016.f0; }; SOURCE(4403, 12) if ((0 != bad_v5960)) { SOURCE(4415, 4) goto lab_L100011; }; SOURCE(4421, 281) if (( (int)length_v5700 > (int)0) || ( (int)(* (( (ptr) &var_c28288)+9) ) > (int)0)) { { word var_c26048; SOURCE(4501, 16) finalNode_v4648 = node_v5544; SOURCE(4566, 23) finalStart_v4676 = savedIndex_v5932; SOURCE(4591, 18) finalAfter_v4704 = (* (( (ptr) &var_c28288)+6)/* index_v5516 */ ); SOURCE(4611, 91) { word pd89; pd89 = (* (( (ptr) (* (( (ptr) gf_c28320)+91)/* var_c25536 */ ))+17) ); var_c26048 = (word) ( *( (fPt) ((* (ptr) pd89 ))))((* (( (ptr) &var_c28288)+7)/* contents_v5572 */ ), start_v5672, length_v5700, pd89) ; }; if ((0 == (word) ( *( (fPt) ((* (ptr) proc_v4360 ))))(var_c26048, node_v5544, start_v5672, length_v5700, (* (( (ptr) &var_c28288)+6) /* index_v5516 */ ), (* (( (ptr) &var_c28288)+8)/* hasLineBreak_v5600 */ ), proc_v4360))) { SOURCE(4702, 4) goto lab_L100011; }; }; }; }; } else { SOURCE(4718, 4) goto lab_L100011; }; SOURCE(4725, 167) { word pd90; pd90 = (* (( (ptr) (* (( (ptr) gf_c28320)+91)/* var_c25536 */ ))+15) ); if (( (int)(* (( (ptr) &var_c28288)+6)/* index_v5516 */ ) >= (int)(word) ( *( (fPt) ((* (ptr) pd90 ))))((* ((( (ptr) &var_c28288)+7) /* contents_v5572 */ ) ), pd90))) { SOURCE(4783, 33) { word pd91; pd91 = (* (( (ptr) (* (( (ptr) gf_c28320)+92)/* var_c25920 */ ))+14) ); node_v5544 = (word) ( *( (fPt) ((* (ptr) pd91 ))))(node_v5544, pd91); }; SOURCE(4818, 9) (* (( (ptr) &var_c28288)+6)/* index_v5516 */ ) = 0; SOURCE(4829, 19) if ((node_v5544 == 0)) { SOURCE(4848, 4) goto lab_L100011; }; SOURCE(4854, 38) { word pd92; pd92 = (* (( (ptr) (* (( (ptr) gf_c28320)+93)/* var_c25952 */ ))+4) ); (* (( (ptr) &var_c28288)+7)/* contents_v5572 */ ) = (word) ( *( (fPt) ((* (ptr) pd92 ))))(node_v5544, pd92); }; }; }; }; goto lab_L100012; lab_L100011: ; /* removed tail goto */ (* (ptr) formal_c085 ) = finalNode_v4648; (* (( (ptr) formal_c085)+1) ) = finalStart_v4676; (* (( (ptr) formal_c085)+2) ) = finalAfter_v4704; return; } static void GetTrimmedLine_P912(formal_c099, begin_v5804, formal_c28384) word formal_c099; word begin_v5804; word formal_c28384; { register ptr gf_c28352 = (ptr) &globalframe; word start_v5848; word length_v5876; word bad_v5904; word lim_v6004; word lineBreak_v6032; word fin_v6060; formal_c28384 = (formal_c28384 - 16); /* GetTrimmedLine: */ SOURCE(2678, 22) SOURCE(2678, 22) bad_v5904 = 0; SOURCE(2764, 26) { word pd93; pd93 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+15) ); lim_v6004 = (word) ( *( (fPt) ((* (ptr) pd93 ))))((* ((( (ptr) formal_c28384)+7)) ), pd93); }; SOURCE(2792, 47) { word pd94; pd94 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+24) ); lineBreak_v6032 = (word) ( *( (fPt) ((* (ptr) pd94 ))))((* (( (ptr) formal_c28384)+7) ), begin_v5804, (* (( (ptr) gf_c28352)+35) ), pd94); }; SOURCE(2897, 1147) if (((* (( (ptr) formal_c28384)+12) ) == 0)) { SOURCE(2921, 30) if ((0 == (* (( (ptr) formal_c28384)+10) ))) { SOURCE(2951, 5) (void) XR_RaiseUnnamedError(); }; SOURCE(2958, 15) fin_v6060 = lineBreak_v6032; SOURCE(2975, 15) (* (( (ptr) formal_c28384)+6) ) = (fin_v6060 + 1); SOURCE(3016, 28) (* (( (ptr) formal_c28384)+8) ) = (unsigned) ( (int)lineBreak_v6032 < (int)lim_v6004); } else { SOURCE(3051, 995) { word after_v6104; SOURCE(3125, 41) if ((0 != (* (( (ptr) formal_c28384)+10) ))) { SOURCE(3151, 15) lim_v6004 = lineBreak_v6032; }; SOURCE(3168, 694) if (((* (( (ptr) formal_c28384)+11) ) != 0)) { SOURCE(3190, 554) { word depth_v6148 = 1; word lo_v6176; word lc_v6204; SOURCE(3208, 42) { word pd95; pd95 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+10) ); lo_v6176 = (word) ( *( (fPt) ((* (ptr) pd95 ))))((* (( (ptr) formal_c28384)+7) ), begin_v5804, (* (( (ptr) formal_c28384)+11) ), 1, pd95); }; SOURCE(3252, 42) { word pd96; pd96 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+10) ); lc_v6204 = (word) ( *( (fPt) ((* (ptr) pd96 ))))((* (( (ptr) formal_c28384)+7) ), begin_v5804, (* (( (ptr) formal_c28384)+12) ), 1, pd96); }; SOURCE(3296, 11) fin_v6060 = begin_v5804; SOURCE(3309, 379) lab_L100016: ; if ( ( ( (int)depth_v6148 > (int)0) ? ( (int)lc_v6204 < (int)lim_v6004) : 0 ) ) { } else { goto lab_L100014; }; SOURCE(3341, 347) if (( (int)lo_v6176 < (int)lc_v6204)) { SOURCE(3356, 17) depth_v6148 = (depth_v6148 + 1); SOURCE(3375, 27) { word pd97; pd97 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+15) ); after_v6104 = (lo_v6176 + (word) ( *( (fPt) ((* (ptr) pd97 ))))((* ((( (ptr) formal_c28384)+11)) ), pd97)); }; SOURCE(3404, 54) if (( (int)lc_v6204 < (int)after_v6104)) { SOURCE(3421, 37) { word pd98; pd98 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+10) ); lc_v6204 = (word) ( *( (fPt) ((* (ptr) pd98 ))))((* (( (ptr) formal_c28384)+7) ), after_v6104, (* (( (ptr) formal_c28384)+12) ), 1, pd98); }; }; SOURCE(3460, 37) { word pd99; pd99 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+10) ); lo_v6176 = (word) ( *( (fPt) ((* (ptr) pd99 ))))((* (( (ptr) formal_c28384)+7) ), after_v6104, (* (( (ptr) formal_c28384)+11) ), 1, pd99); }; } else { SOURCE(3504, 184) if (( (int)lc_v6204 < (int)lo_v6176)) { SOURCE(3519, 17) depth_v6148 = (depth_v6148 - 1); SOURCE(3538, 37) { word var_c0306; fin_v6060 = lc_v6204; var_c0306 = lc_v6204; { word pd100; pd100 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+15) ); after_v6104 = (var_c0306 + (word) ( *( (fPt) ((* (ptr) pd100 ))))((* ((( (ptr) formal_c28384)+12)) ), pd100)); }; }; SOURCE(3577, 111) if (( (int)depth_v6148 > (int)0)) { SOURCE(3595, 54) if (( (int)lo_v6176 < (int)after_v6104)) { SOURCE(3612, 37) { /*1*/ word pd101; /*1*/ pd101 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+10) ); /*1*/ lo_v6176 = (word) ( *( (fPt) ((* (ptr) pd101 ))))((* (( (ptr) formal_c28384)+7) ), after_v6104, (* (( (ptr) formal_c28384)+11) /*1*/ ), 1, pd101); /*1*/ }; }; SOURCE(3651, 37) { word pd102; pd102 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+10) ); lc_v6204 = (word) ( *( (fPt) ((* (ptr) pd102 ))))((* (( (ptr) formal_c28384)+7) ), after_v6104, (* (( (ptr) formal_c28384)+12) /*1*/ ), 1, pd102); }; }; } else { SOURCE(3696, 4) goto lab_L100015; }; }; goto lab_L100016; lab_L100014: ; lab_L100015: ; SOURCE(3711, 33) if (( (int)depth_v6148 > (int)0)) { SOURCE(3727, 17) after_v6104 = lim_v6004; fin_v6060 = lim_v6004; }; }; } else { SOURCE(3753, 38) { word pd103; pd103 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+10) ); fin_v6060 = (word) ( *( (fPt) ((* (ptr) pd103 ))))((* (( (ptr) formal_c28384)+7) ), begin_v5804, (* (( (ptr) formal_c28384)+12) ), 1, pd103); }; SOURCE(3793, 69) if (( (int)fin_v6060 < (int)lim_v6004)) { SOURCE(3809, 36) { word pd104; pd104 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+15) ); after_v6104 = (fin_v6060 + (word) ( *( (fPt) ((* (ptr) pd104 ))))((* ((( (ptr) formal_c28384)+12)) ), pd104)); }; } else { SOURCE(3845, 17) after_v6104 = lim_v6004; fin_v6060 = lim_v6004; }; }; SOURCE(3867, 38) { word pd105; pd105 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+24) ); (* (( (ptr) formal_c28384)+6) ) = (word) ( *( (fPt) ((* (ptr) pd105 ))))((* (( (ptr) formal_c28384)+7) ), after_v6104, (* ( ( (ptr) gf_c28352)+35) ), pd105); }; SOURCE(3907, 71) if (( (int)(* (( (ptr) formal_c28384)+6) ) > (int)after_v6104)) { bad_v5904 = (unsigned) ( (int)(word) SkipOverBackward_P180((* (( (ptr) formal_c28384)+7) ), ((* (( (ptr) formal_c28384)+6) ) - 1), (* (( (ptr) gf_c28352)+36) )) >= (int)after_v6104); } else { bad_v5904 = (unsigned) 0; }; SOURCE(3980, 64) { word pd106; pd106 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+15) ); (* (( (ptr) formal_c28384)+8) ) = (unsigned) ( (int)(* (( (ptr) formal_c28384)+6) ) < (int)(word) ( *( (fPt) ((* (ptr) pd106 )) ))((* ((( (ptr) formal_c28384)+7)) ), pd106)); }; if ((0 != (* (( (ptr) formal_c28384)+8) ))) { SOURCE(4029, 15) (* (( (ptr) formal_c28384)+6) ) = ((* (( (ptr) formal_c28384)+6) ) + 1); }; }; }; SOURCE(4049, 39) { word pd107; pd107 = (* (( (ptr) (* (( (ptr) gf_c28352)+91)/* var_c25536 */ ))+25) ); start_v5848 = (word) ( *( (fPt) ((* (ptr) pd107 ))))((* (( (ptr) formal_c28384)+7) ), begin_v5804, (* (( (ptr) gf_c28352)+36) ), pd107); }; SOURCE(4090, 48) fin_v6060 = (word) SkipOverBackward_P180((* (( (ptr) formal_c28384)+7) ), (fin_v6060 - 1), (* (( (ptr) gf_c28352)+36) )); SOURCE(4140, 32) { word x108; length_v5876 = (x108 = ((fin_v6060 - start_v5848) + 1), MAX((int)(word), 0, x108)); }; /* removed tail goto */ (* (ptr) formal_c099 ) = start_v5848; (* (( (ptr) formal_c099)+1) ) = length_v5876; (* (( (ptr) formal_c099)+2) ) = bad_v5904; return; } static void CopyrightButton_P300(parent_v21100, clientData_v21128, mouseButton_v21156, shift_v21184, control_v21212) word parent_v21100; word clientData_v21128; word mouseButton_v21156; word shift_v21184; word control_v21212; { register ptr gf_c28416 = (ptr) &globalframe; /* CopyrightButton: */ SOURCE(4910, 93) SOURCE(4947, 56) { word pd109; pd109 = (* (( (ptr) (* (( (ptr) gf_c28416)+89)/* var_c25440 */ ))+29) ); (void) ( *( (fPt) ((* (ptr) pd109 ))))(parent_v21100, (* (( (ptr) gf_c28416)+24) ), pd109); }; } static void UpdateCopyrightNotice_P360(formal_c0113, viewer_v21272) word formal_c0113; word viewer_v21272; { W8 var_c28448; register ptr gf_c28480 = (ptr) &globalframe; word recordAtom_v21316; word quit_v21344; /* declaration of var_c26144 skipped */ /* declaration of root_v6248 skipped */ /* declaration of hasNodes_v6276 skipped */ /* UpdateCopyrightNotice: */ SOURCE(5009, 4124) { word tmpAddr110; tmpAddr110 = (word) (( (ptr) &var_c28448)+4)/* var_c26144 */ ; (* (ptr) tmpAddr110 ) = ( ((word) (fPt) Inner_P1116) ); (* (( (ptr) tmpAddr110) + 1) ) = 1; }; SOURCE(5009, 4124) recordAtom_v21316 = 1; SOURCE(5009, 4124) quit_v21344 = 0; SOURCE(5059, 39) { word pd111; pd111 = (* (( (ptr) (* (( (ptr) gf_c28480)+94)/* var_c26176 */ ))+93) ); var_c28448.f6/* root_v6248 */ = (word) ( *( (fPt) ((* (ptr) pd111 ))))(viewer_v21272, pd111); }; SOURCE(5100, 75) { word var_c26208; { word pd112; pd112 = (* (( (ptr) (* (( (ptr) gf_c28480)+92)/* var_c25920 */ ))+14) ); var_c26208 = (word) ( *( (fPt) ((* (ptr) pd112 ))))(var_c28448.f6/* root_v6248 */ , pd112); }; { word pd113; pd113 = (* (( (ptr) (* (( (ptr) gf_c28480)+92)/* var_c25920 */ ))+14) ); var_c28448.f7/* hasNodes_v6276 */ = (unsigned) ((word) ( *( (fPt) ((* (ptr) pd113 ))))(var_c26208, pd113) != 0); }; }; SOURCE(8972, 51) { word var_c26272; word pd114; pd114 = (* (( (ptr) (* (( (ptr) gf_c28480)+95)/* var_c26240 */ ))+4) ); var_c26272 = (word) ( *( (fPt) ((* (ptr) pd114 ))))(var_c28448.f6/* root_v6248 */ , (* (( (ptr) gf_c28480)+37) ), 1, pd114) ; }; SOURCE(9025, 42) { word var_c0307; var_c0307 = (word) &var_c28448; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q2124) ), ( ((word) (fPt) NoName_Q2424) ), var_c0307); }; SOURCE(9069, 23) { word pd115; pd115 = (* (( (ptr) (* (( (ptr) gf_c28480)+95)/* var_c26240 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd115 ))))(var_c28448.f6/* root_v6248 */ , pd115); }; SOURCE(9096, 37) recordAtom_v21316 = 1; quit_v21344 = 1; /* removed tail goto */ (* (ptr) formal_c0113 ) = recordAtom_v21316; (* (( (ptr) formal_c0113)+1) ) = quit_v21344; return; } static word NoName_Q2124(formal_c0284) word formal_c0284; { SOURCE(9025, 42) (void) Inner_P1116((word) ((( (bPt) formal_c0284)+16))); return(0); } static void Inner_P1116(formal_c28576) word formal_c28576; { W12 var_c28512; register ptr gf_c28544 = (ptr) &globalframe; /* declaration of var_c26304 skipped */ /* declaration of var_c26336 skipped */ /* declaration of year_v6364 skipped */ word var_c26368; W11 var_c0118; /* declaration of done_v6392 skipped */ /* declaration of afterFirst_v6420 skipped */ /* declaration of firstHasLinebreak_v6448 skipped */ formal_c28576 = (formal_c28576 - 16); (* (ptr) &var_c28512 ) = formal_c28576; /* Inner: */ SOURCE(5177, 3786) { word tmpAddr116; tmpAddr116 = (word) (( (ptr) &var_c28512)+4)/* var_c26304 */ ; (* (ptr) tmpAddr116 ) = ( ((word) (fPt) Add_P1284) ); (* (( (ptr) tmpAddr116) + 1) ) = 1; }; { word tmpAddr117; tmpAddr117 = (word) (( (ptr) &var_c28512)+6)/* var_c26336 */ ; (* (ptr) tmpAddr117 ) = ( ((word) (fPt) EachComment_P1176) ); (* (( (ptr) tmpAddr117) + 1) ) = 1; }; SOURCE(5193, 50) { word pd118; pd118 = (* (( (ptr) (* (( (ptr) gf_c28544)+96)/* var_c26400 */ ))+14) ); var_c26368 = (word) ( *( (fPt) ((* (ptr) pd118 ))))(pd118); }; { word pd119; pd119 = (* (( (ptr) (* (( (ptr) gf_c28544)+96)/* var_c26400 */ ))+22) ); (void) ( *( (fPt) ((* (ptr) pd119 ))))((word) &var_c0118, var_c26368, pd119); }; (* (( (ptr) &var_c28512)+8)/* year_v6364 */ ) = (* (ptr) &var_c0118 ); SOURCE(5245, 18) (* (( (ptr) &var_c28512)+9)/* done_v6392 */ ) = 0; SOURCE(5265, 19) (* (( (ptr) &var_c28512)+10)/* afterFirst_v6420 */ ) = 0; SOURCE(5286, 31) (* (( (ptr) &var_c28512)+11)/* firstHasLinebreak_v6448 */ ) = 0; SOURCE(7213, 52) { W3 var_c26432; (void) EnumerateInitialCommentLines_P240((word) &var_c26432, (* (( (ptr) formal_c28576)+6) ), (word) (( (bPt) &var_c28512)+24) /* var_c26336 */ ); }; SOURCE(7268, 1695) if ((0 == (* (( (ptr) &var_c28512)+9)/* done_v6392 */ ))) { SOURCE(7285, 1680) { word holder_v6764; word line_v6792; word node_v6820; word rope_v6848; W4 pa_v6876; word prefix_v6904; word index_v6932; SOURCE(7324, 77) { word pd120; pd120 = (* (( (ptr) (* (( (ptr) gf_c28544)+97)/* var_c26464 */ ))+8) ); holder_v6764 = (word) ( *( (fPt) ((* (ptr) pd120 ))))((* (( (ptr) gf_c28544)+38) ), (* (( (ptr) gf_c28544)+39) ), pd120) ; }; SOURCE(7403, 101) { W2 var_c26496; W2 var_c26528; W2 var_c0308; var_c26496.f0 = 5; var_c26496.f1 = (* (( (ptr) &var_c28512)+8)/* year_v6364 */ ); var_c26528.f0 = 11; var_c26528.f1 = holder_v6764; (* (ptr) (word) &var_c0308 ) = 0; (* (( (ptr) (word) &var_c0308) + 1) ) = 0; { word pd121; pd121 = (* (( (ptr) (* (( (ptr) gf_c28544)+98)/* var_c26592 */ ))+62) ); line_v6792 = (word) ( *( (fPt) ((* (ptr) pd121 ))))((* (( (ptr) gf_c28544)+40) ), var_c26496, var_c26528, var_c0308, pd121) ; }; }; SOURCE(7506, 39) { word pd122; pd122 = (* (( (ptr) (* (( (ptr) gf_c28544)+92)/* var_c25920 */ ))+14) ); node_v6820 = (word) ( *( (fPt) ((* (ptr) pd122 ))))((* ((( (ptr) formal_c28576)+6)) ), pd122); }; SOURCE(7586, 40) { word pd123; pd123 = (* (( (ptr) (* (( (ptr) gf_c28544)+93)/* var_c25952 */ ))+4) ); rope_v6848 = (word) ( *( (fPt) ((* (ptr) pd123 ))))(node_v6820, pd123); }; SOURCE(7628, 38) (void) CommentPrefix_P120((word) &pa_v6876, rope_v6848, 0); SOURCE(7668, 48) { word pd124; pd124 = (* (( (ptr) (* (( (ptr) gf_c28544)+91)/* var_c25536 */ ))+17) ); prefix_v6904 = (word) ( *( (fPt) ((* (ptr) pd124 ))))(rope_v6848, 0, pa_v6876.f0, pd124); }; SOURCE(7718, 38) { word pd125; pd125 = (* (( (ptr) (* (( (ptr) gf_c28544)+91)/* var_c25536 */ ))+24) ); index_v6932 = (word) ( *( (fPt) ((* (ptr) pd125 ))))(rope_v6848, 0, (* (( (ptr) gf_c28544)+35) ), pd125); }; SOURCE(8409, 554) if ( ( (0 == (word) IsComment_P60(node_v6820)) ? ( (int)pa_v6876.f0 == (int)0) : 0 ) ) { SOURCE(8483, 36) (void) Add_P1284(node_v6820, line_v6792, 0, 1, (word) (( (bPt) &var_c28512)+16)/* var_c26304 */ ); } else { SOURCE(8519, 444) if ((0 != (* (( (ptr) &var_c28512)+11)/* firstHasLinebreak_v6448 */ ))) { SOURCE(8545, 283) { word newline_v7148; word fullLine_v7176; SOURCE(8584, 33) { word pd126; pd126 = (* (( (ptr) (* (( (ptr) gf_c28544)+91)/* var_c25536 */ ))+9) ); newline_v7148 = (word) ( *( (fPt) ((* (ptr) pd126 ))))(rope_v6848, index_v6932, pd126); }; SOURCE(8619, 77) { word var_c26624; word var_c26656; var_c26624 = (word) MakeComment_P420(line_v6792, prefix_v6904, pa_v6876); { word pd127; pd127 = (* (( (ptr) (* (( (ptr) gf_c28544)+91)/* var_c25536 */ ))+37) ); var_c26656 = (word) ( *( (fPt) ((* (ptr) pd127 ))))(newline_v7148, pd127); }; { word pd128; pd128 = (* (( (ptr) (* (( (ptr) gf_c28544)+91)/* var_c25536 */ ))+6) ); fullLine_v7176 = (word) ( *( (fPt) ((* (ptr) pd128 ))))(var_c26624, var_c26656, pd128); }; }; SOURCE(8698, 128) { W2 var_c26688; { word pd129; pd129 = (* (( (ptr) (* (( (ptr) gf_c28544)+90)/* var_c25504 */ ))+37) ); (void) ( *( (fPt) ((* (ptr) pd129 ))))((word) &var_c26688, (* (( (ptr) formal_c28576)+6) ), node_v6820, (* (( (ptr) &var_c28512)+10) /* afterFirst_v6420 */ ), 0, fullLine_v7176 , 0, 0, 0, (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28544)+89)/* var_c25440 */ ))+6) ) ), pd129); }; }; }; } else { SOURCE(8835, 128) if (( (int)pa_v6876.f0 == (int)0)) { SOURCE(8863, 35) (void) Add_P1284(node_v6820, line_v6792, 3, 1, (word) (( (bPt) &var_c28512)+16)/* var_c26304 */ ); } else { SOURCE(8898, 65) { word var_c26720; word var_c26752; var_c26720 = (word) MakeComment_P420(line_v6792, prefix_v6904, pa_v6876); var_c26752 = (word) IsComment_P60(node_v6820); (void) Add_P1284(node_v6820, var_c26720, 1, var_c26752, (word) (( (bPt) &var_c28512)+16)/* var_c26304 */ ); }; }; }; }; }; }; } static word EachComment_P1176(text_v6552, node_v6580, start_v6608, length_v6636, after_v6664, hasLineBreak_v6692, formal_c28640) word text_v6552; word node_v6580; word start_v6608; word length_v6636; word after_v6664; word hasLineBreak_v6692; word formal_c28640; { register ptr gf_c28608 = (ptr) &globalframe; word continue_v6736; word index_v7264 = 0; word foundYear_v7292 = 0; word lastDigitPos_v7320 = 0; word thisLooks_v7348; formal_c28640 = (formal_c28640 - 24); /* EachComment: */ SOURCE(5319, 1888) SOURCE(5479, 73) thisLooks_v7348 = ( (0 != (* (( (ptr) (* (ptr) formal_c28640 ))+7) )) ? (* (( (ptr) gf_c28608)+5)/* eLooks_v3728 */ ) : 0 ) ; SOURCE(5554, 74) if (( (int)(* (( (ptr) formal_c28640)+10) ) == (int)0)) { SOURCE(5576, 18) (* (( (ptr) formal_c28640)+10) ) = after_v6664; SOURCE(5596, 32) (* (( (ptr) formal_c28640)+11) ) = hasLineBreak_v6692; }; SOURCE(5632, 60) { word pd130; pd130 = (* (( (ptr) (* (( (ptr) gf_c28608)+91)/* var_c25536 */ ))+22) ); if ((0 == (word) ( *( (fPt) ((* (ptr) pd130 ))))((* (( (ptr) gf_c28608)+41) ), text_v6552, 1, pd130))) { SOURCE(5679, 13) return(1); }; }; SOURCE(5695, 29) { word pd131; pd131 = (* (( (ptr) (* (( (ptr) gf_c28608)+91)/* var_c25536 */ ))+24) ); index_v7264 = (word) ( *( (fPt) ((* (ptr) pd131 ))))(text_v6552, 0, (* (( (ptr) gf_c28608)+36) ), pd131); }; SOURCE(5763, 35) { word pd132; pd132 = (* (( (ptr) (* (( (ptr) gf_c28608)+91)/* var_c25536 */ ))+25) ); index_v7264 = (word) ( *( (fPt) ((* (ptr) pd132 ))))(text_v6552, index_v7264, (* (( (ptr) gf_c28608)+36) ), pd132); }; SOURCE(5800, 33) { word pd133; pd133 = (* (( (ptr) (* (( (ptr) gf_c28608)+91)/* var_c25536 */ ))+24) ); index_v7264 = (word) ( *( (fPt) ((* (ptr) pd133 ))))(text_v6552, index_v7264, (* (( (ptr) gf_c28608)+36) ), pd133); }; SOURCE(5835, 35) { word pd134; pd134 = (* (( (ptr) (* (( (ptr) gf_c28608)+91)/* var_c25536 */ ))+25) ); index_v7264 = (word) ( *( (fPt) ((* (ptr) pd134 ))))(text_v6552, index_v7264, (* (( (ptr) gf_c28608)+36) ), pd134); }; SOURCE(5872, 22) lastDigitPos_v7320 = (index_v7264 - 2); SOURCE(5948, 520) lab_L100022: ; if (( (int)index_v7264 < (int)length_v6636)) { } else { goto lab_L100020; }; { word c_v7392; SOURCE(5972, 27) { word pd135; pd135 = (* (( (ptr) (* (( (ptr) gf_c28608)+91)/* var_c25536 */ ))+9) ); c_v7392 = (word) ( *( (fPt) ((* (ptr) pd135 ))))(text_v6552, index_v7264, pd135); }; SOURCE(6001, 467) if (((c_v7392 - 48) <= 9)) { SOURCE(6025, 20) lastDigitPos_v7320 = index_v7264; SOURCE(6047, 17) index_v7264 = (index_v7264 + 1); SOURCE(6066, 83) if (( (int)foundYear_v7292 < (int)1000)) { SOURCE(6091, 44) foundYear_v7292 = (IOP2( * , (int)foundYear_v7292, (int)10) + (c_v7392 - 48)); } else { SOURCE(6135, 14) foundYear_v7292 = (word) -1; }; } else { SOURCE(6158, 310) if (( (int)foundYear_v7292 == (int)(* (( (ptr) formal_c28640)+8) ))) { SOURCE(6184, 10) goto lab_L100021; } else { SOURCE(6194, 274) switch (c_v7392) { case 44: case 32: case 9: SOURCE(6231, 13) foundYear_v7292 = 0; SOURCE(6246, 40) { word pd136; pd136 = (* (( (ptr) (* (( (ptr) gf_c28608)+91)/* var_c25536 */ ))+25) ); index_v7264 = (word) ( *( (fPt) ((* (ptr) pd136 ))))(text_v6552, (index_v7264 + 1), (* (( (ptr) gf_c28608)+42) ), pd136) ; }; break; default: SOURCE(6297, 171) { W2 var_c26848; { word var_c26784; { W2 var_c26816; var_c26816.f0 = 5; var_c26816.f1 = (* (( (ptr) formal_c28640)+8) ); { /*1*/ word pd137; /*1*/ pd137 = (* (( (ptr) (* (( (ptr) gf_c28608)+98)/* var_c26592 */ ))+63) ); /*1*/ var_c26784 = (word) ( *( (fPt) ((* (ptr) pd137 ))))((* (( (ptr) gf_c28608)+43) ), var_c26816, pd137); /*1*/ }; }; { W2 var_c0157; { /*1*/ word pd138; /*1*/ pd138 = (* (( (ptr) (* (( (ptr) gf_c28608)+90)/* var_c25504 */ ))+37) ); /*1*/ (void) ( *( (fPt) ((* (ptr) pd138 ))))((word) &var_c0157, (* (( (ptr) (* (ptr) formal_c28640 ))+6) ), node_v6580, ((start_v6608 + /*1*/ lastDigitPos_v7320) + 1), 0, var_c26784 /*1*/ , 0, 0, 0, (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28608)+89)/* var_c25440 */ ))+6) ) ), pd138); /*1*/ }; var_c26848 = var_c0157; }; }; }; SOURCE(6470, 4) goto lab_L100021; }; }; }; }; goto lab_L100022; lab_L100020: ; lab_L100021: ; SOURCE(6489, 685) { word pd139; pd139 = (* (( (ptr) (* (( (ptr) gf_c28608)+91)/* var_c25536 */ ))+21) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd139 ))))(text_v6552, 9, (* (( (ptr) gf_c28608)+44) ), 0, 1, 2147483647, pd139) == (int)3)) { SOURCE(6557, 148) { W2 var_c26880; { word pd140; pd140 = (* (( (ptr) (* (( (ptr) gf_c28608)+90)/* var_c25504 */ ))+37) ); (void) ( *( (fPt) ((* (ptr) pd140 ))))((word) &var_c26880, (* (( (ptr) (* (ptr) formal_c28640 ))+6) ), node_v6580, (start_v6608 + 9), 3, (* (( (ptr) gf_c28608)+45) ) , thisLooks_v7348, 0, 0, (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28608)+89)/* var_c25440 */ ))+6) ) ), pd140); }; }; } else { SOURCE(6705, 469) { word pd141; pd141 = (* (( (ptr) (* (( (ptr) gf_c28608)+91)/* var_c25536 */ ))+21) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd141 ))))(text_v6552, 9, (* (( (ptr) gf_c28608)+46) ), 0, 0, 2147483647, pd141) == (int)5)) { SOURCE(6804, 148) { W2 var_c26912; { word pd142; pd142 = (* (( (ptr) (* (( (ptr) gf_c28608)+90)/* var_c25504 */ ))+37) ); (void) ( *( (fPt) ((* (ptr) pd142 ))))((word) &var_c26912, (* (( (ptr) (* (ptr) formal_c28640 ))+6) ), node_v6580, (start_v6608 + 9), 5, (* (( (ptr) gf_c28608)+45) ) , thisLooks_v7348, 0, 0, (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28608)+89)/* var_c25440 */ ))+6) ) ), pd142); }; }; } else { SOURCE(6952, 222) if ((0 != (* (( (ptr) (* (ptr) formal_c28640 ))+7) ))) { SOURCE(6969, 207) { word looks_v7436; SOURCE(6971, 61) { word pd143; pd143 = (* (( (ptr) (* (( (ptr) gf_c28608)+90)/* var_c25504 */ ))+5) ); looks_v7436 = (word) ( *( (fPt) ((* (ptr) pd143 ))))(node_v6580, (start_v6608 + 10), pd143); }; SOURCE(7034, 140) if ( ! (((unsigned)looks_v7436 << 4) >> 31)) { SOURCE(7056, 118) { word pd144; pd144 = (* (( (ptr) (* (( (ptr) gf_c28608)+90)/* var_c25504 */ ))+15) ); (void) ( *( (fPt) ((* (ptr) pd144 ))))((* (( (ptr) (* (ptr) formal_c28640 ))+6) ), node_v6580, 0, (* (( (ptr) gf_c28608)+5) /*1*/ /* eLooks_v3728 */ ), (start_v6608 + 10), 1 /*1*/ , (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28608)+89)/* var_c25440 */ ))+6) ) ), pd144); }; }; }; }; }; }; }; }; SOURCE(7180, 11) (* (( (ptr) formal_c28640)+9) ) = 1; SOURCE(7193, 14) return(0); } static void Add_P1284(node_v7036, fullLine_v7064, where_v7092, comment_v7120, formal_c28704) word node_v7036; word fullLine_v7064; word where_v7092; word comment_v7120; word formal_c28704; { register ptr gf_c28672 = (ptr) &globalframe; word child_v7220; formal_c28704 = (formal_c28704 - 16); /* Add: */ SOURCE(7758, 11) SOURCE(7839, 108) { word pd145; pd145 = (* (( (ptr) (* (( (ptr) gf_c28672)+99)/* var_c26944 */ ))+15) ); child_v7220 = (word) ( *( (fPt) ((* (ptr) pd145 ))))((* (( (ptr) (* (ptr) formal_c28704 ))+6) ), node_v7036, where_v7092, 0, (* (ptr) (* ( ( (ptr) (* (( (ptr) gf_c28672)+89)/* var_c25440 */ ))+6) ) ), pd145); }; SOURCE(7950, 102) { W2 var_c26976; { word pd146; pd146 = (* (( (ptr) (* (( (ptr) gf_c28672)+90)/* var_c25504 */ ))+37) ); (void) ( *( (fPt) ((* (ptr) pd146 ))))((word) &var_c26976, (* (( (ptr) (* (ptr) formal_c28704 ))+6) ), child_v7220, 0, 2147483647, fullLine_v7064 , 0, 0, 0, (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28672)+89)/* var_c25440 */ ))+6) ) ), pd146); }; }; SOURCE(8054, 75) if ((0 != comment_v7120)) { SOURCE(8070, 59) { word pd147; pd147 = (* (( (ptr) (* (( (ptr) gf_c28672)+90)/* var_c25504 */ ))+29) ); (void) ( *( (fPt) ((* (ptr) pd147 ))))(child_v7220, 1, (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28672)+89)/* var_c25440 */ ))+6) ) ), pd147); }; }; SOURCE(8131, 129) if ((0 != (* (( (ptr) (* (ptr) formal_c28704 ))+7) ))) { SOURCE(8148, 112) { word pd148; pd148 = (* (( (ptr) (* (( (ptr) gf_c28672)+90)/* var_c25504 */ ))+15) ); (void) ( *( (fPt) ((* (ptr) pd148 ))))((* (( (ptr) (* (ptr) formal_c28704 ))+6) ), child_v7220, 0, (* (( (ptr) gf_c28672)+5) /* eLooks_v3728 */ ), 10, 1 , (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28672)+89)/* var_c25440 */ ))+6) ) ), pd148); }; }; SOURCE(8262, 141) if ( ( (node_v7036 != (* (( (ptr) (* (ptr) formal_c28704 ))+6) )) ? (where_v7092 != 0) : 0 ) ) { SOURCE(8303, 100) { word var_c27008; { word pd149; pd149 = (* (( (ptr) (* (( (ptr) gf_c28672)+90)/* var_c25504 */ ))+26) ); var_c27008 = (word) ( *( (fPt) ((* (ptr) pd149 ))))(node_v7036, pd149); }; { word pd150; pd150 = (* (( (ptr) (* (( (ptr) gf_c28672)+90)/* var_c25504 */ ))+27) ); (void) ( *( (fPt) ((* (ptr) pd150 ))))(child_v7220, var_c27008, (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28672)+89)/* var_c25440 */ ))+6) ) ), pd150); }; }; }; } static word MakeComment_P420(content_v4764, prefix_v4792, pa_v4820) word content_v4764; word prefix_v4792; W4 pa_v4820; { register ptr gf_c28736 = (ptr) &globalframe; word var_c4864; /* MakeComment: */ SOURCE(9139, 294) SOURCE(9215, 218) if (( (int)pa_v4820.f0 == (int)0)) { SOURCE(9241, 22) return(content_v4764); } else { SOURCE(9263, 170) if ((0 != pa_v4820.f1)) { SOURCE(9289, 64) { word var_c0310; { W2 var_c27040; W2 var_c27072; W2 var_c0309; var_c27040.f0 = 11; var_c27040.f1 = prefix_v4792; var_c27072.f0 = 11; var_c27072.f1 = content_v4764; (* (ptr) (word) &var_c0309 ) = 0; (* (( (ptr) (word) &var_c0309) + 1) ) = 0; { word pd151; pd151 = (* (( (ptr) (* (( (ptr) gf_c28736)+98)/* var_c26592 */ ))+62) ); var_c0310 = (word) ( *( (fPt) ((* (ptr) pd151 ))))((* (( (ptr) gf_c28736)+47) ), var_c27040, var_c27072, var_c0309, pd151) ; }; }; return(var_c0310); }; } else { SOURCE(9353, 80) { word var_c0311; { W2 var_c27136; W2 var_c27168; W2 var_c27200; var_c27136.f0 = 11; var_c27136.f1 = prefix_v4792; var_c27168.f0 = 11; var_c27168.f1 = content_v4764; var_c27200.f0 = 11; var_c27200.f1 = pa_v4820.f3; { word pd152; pd152 = (* (( (ptr) (* (( (ptr) gf_c28736)+98)/* var_c26592 */ ))+62) ); var_c0311 = (word) ( *( (fPt) ((* (ptr) pd152 ))))((* (( (ptr) gf_c28736)+48) ), var_c27136, var_c27168, var_c27200, pd152) ; }; }; return(var_c0311); }; }; }; } static void UpdateLastEditedLine_P480(formal_c0189, viewer_v21404) word formal_c0189; word viewer_v21404; { W9 var_c28768; register ptr gf_c28800 = (ptr) &globalframe; word recordAtom_v21448; word quit_v21476; /* declaration of var_c27232 skipped */ /* declaration of root_v7480 skipped */ /* declaration of userName_v7508 skipped */ /* declaration of editedBy_v7536 skipped */ /* UpdateLastEditedLine: */ SOURCE(9437, 2757) { word tmpAddr153; tmpAddr153 = (word) (( (ptr) &var_c28768)+4)/* var_c27232 */ ; (* (ptr) tmpAddr153 ) = ( ((word) (fPt) Inner_P1488) ); (* (( (ptr) tmpAddr153) + 1) ) = 1; }; SOURCE(9437, 2757) recordAtom_v21448 = 1; SOURCE(9437, 2757) quit_v21476 = 0; SOURCE(9486, 39) { word pd154; pd154 = (* (( (ptr) (* (( (ptr) gf_c28800)+94)/* var_c26176 */ ))+93) ); (* (( (ptr) &var_c28768)+6)/* root_v7480 */ ) = (word) ( *( (fPt) ((* (ptr) pd154 ))))(viewer_v21404, pd154); }; SOURCE(9527, 34) (* (( (ptr) &var_c28768)+7)/* userName_v7508 */ ) = (word) GetNiceUserName_P540(); SOURCE(9563, 75) { word var_c27264; { word pd155; pd155 = (* (( (ptr) (* (( (ptr) gf_c28800)+91)/* var_c25536 */ ))+6) ); var_c27264 = (word) ( *( (fPt) ((* (ptr) pd155 ))))((* (( (ptr) &var_c28768)+7)/* userName_v7508 */ ), (* (( (ptr) gf_c28800)+50) ), pd155); }; { word pd156; pd156 = (* (( (ptr) (* (( (ptr) gf_c28800)+97)/* var_c26464 */ ))+8) ); (* (( (ptr) &var_c28768)+8)/* editedBy_v7536 */ ) = (word) ( *( (fPt) ((* (ptr) pd156 ))))((* (( (ptr) gf_c28800)+49) ), var_c27264, pd156) ; }; }; SOURCE(12033, 50) { word var_c27296; word pd157; pd157 = (* (( (ptr) (* (( (ptr) gf_c28800)+95)/* var_c26240 */ ))+4) ); var_c27296 = (word) ( *( (fPt) ((* (ptr) pd157 ))))((* (( (ptr) &var_c28768)+6)/* root_v7480 */ ), (* (( (ptr) gf_c28800)+51) ), 1, pd157); }; SOURCE(12085, 42) { word var_c0312; var_c0312 = (word) &var_c28768; (void) (word) XR_Enable(( ((word) (fPt) NoName_Q2184) ), ( ((word) (fPt) NoName_Q2364) ), var_c0312); }; SOURCE(12129, 23) { word pd158; pd158 = (* (( (ptr) (* (( (ptr) gf_c28800)+95)/* var_c26240 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd158 ))))((* ((( (ptr) &var_c28768)+6)/* root_v7480 */ ) ), pd158); }; SOURCE(12155, 39) recordAtom_v21448 = 0; quit_v21476 = 0; /* removed tail goto */ (* (ptr) formal_c0189 ) = recordAtom_v21448; (* (( (ptr) formal_c0189)+1) ) = quit_v21476; return; } static word NoName_Q2184(formal_c0293) word formal_c0293; { SOURCE(12085, 42) (void) Inner_P1488((word) ((( (bPt) formal_c0293)+16))); return(0); } static void Inner_P1488(formal_c28896) word formal_c28896; { W10 var_c28832; register ptr gf_c28864 = (ptr) &globalframe; /* declaration of var_c27328 skipped */ /* declaration of dateNode_v7624 skipped */ /* declaration of dateStart_v7652 skipped */ /* declaration of dateLength_v7680 skipped */ /* declaration of lastHasLineBreak_v7708 skipped */ word lastCommentNode_v7764 = 0; word lastCommentStart_v7792; word lastCommentAfter_v7820; word nowRope_v7848; formal_c28896 = (formal_c28896 - 16); (* (ptr) &var_c28832 ) = formal_c28896; /* Inner: */ SOURCE(9640, 2381) { word tmpAddr159; tmpAddr159 = (word) (( (ptr) &var_c28832)+4)/* var_c27328 */ ; (* (ptr) tmpAddr159 ) = ( ((word) (fPt) EachComment_P1548) ); (* (( (ptr) tmpAddr159) + 1) ) = 1; }; SOURCE(9656, 20) (* (( (ptr) &var_c28832)+6)/* dateNode_v7624 */ ) = 0; SOURCE(9678, 30) (* (( (ptr) &var_c28832)+7)/* dateStart_v7652 */ ) = 0; (* (( (ptr) &var_c28832)+8)/* dateLength_v7680 */ ) = 0; SOURCE(9710, 30) (* (( (ptr) &var_c28832)+9)/* lastHasLineBreak_v7708 */ ) = 0; SOURCE(10283, 53) { word var_c27360; { word pd160; pd160 = (* (( (ptr) (* (( (ptr) gf_c28864)+96)/* var_c26400 */ ))+14) ); var_c27360 = (word) ( *( (fPt) ((* (ptr) pd160 ))))(pd160); }; { word pd161; pd161 = (* (( (ptr) (* (( (ptr) gf_c28864)+100)/* var_c27392 */ ))+33) ); nowRope_v7848 = (word) ( *( (fPt) ((* (ptr) pd161 ))))(var_c27360, 0, 4, 0, 1, 1, pd161); }; }; SOURCE(10339, 103) { W3 var_c27424; (void) EnumerateInitialCommentLines_P240((word) &var_c27424, (* (( (ptr) formal_c28896)+6) ), (word) (( (bPt) &var_c28832)+16) /* var_c27328 */ ); lastCommentAfter_v7820 = var_c27424.f2; lastCommentStart_v7792 = var_c27424.f1; lastCommentNode_v7764 = var_c27424.f0; }; SOURCE(10444, 1577) if (((* (( (ptr) &var_c28832)+6)/* dateNode_v7624 */ ) != 0)) { SOURCE(10494, 139) { W2 var_c27456; { word pd162; pd162 = (* (( (ptr) (* (( (ptr) gf_c28864)+90)/* var_c25504 */ ))+37) ); (void) ( *( (fPt) ((* (ptr) pd162 ))))((word) &var_c27456, (* (( (ptr) formal_c28896)+6) ), (* (( (ptr) &var_c28832)+6)/* dateNode_v7624 */ ), (* ( ( (ptr) &var_c28832)+7)/* dateStart_v7652 */ ), (* (( (ptr) &var_c28832)+8)/* dateLength_v7680 */ ), nowRope_v7848 , 0, 0, 0, (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28864)+89)/* var_c25440 */ ))+6) ) ), pd162); }; }; } else { SOURCE(10642, 1379) if ((lastCommentNode_v7764 == 0)) { SOURCE(10722, 12) return; } else { SOURCE(10734, 1292) { word rope_v8136; word eol_v8164; W4 pa_v8192; word prefix_v8220; word shortLine_v8248; word prefixedLine_v8276; SOURCE(10763, 51) { word pd163; pd163 = (* (( (ptr) (* (( (ptr) gf_c28864)+93)/* var_c25952 */ ))+4) ); rope_v8136 = (word) ( *( (fPt) ((* (ptr) pd163 ))))(lastCommentNode_v7764, pd163); }; SOURCE(10816, 48) { word pd164; pd164 = (* (( (ptr) (* (( (ptr) gf_c28864)+91)/* var_c25536 */ ))+24) ); eol_v8164 = (word) ( *( (fPt) ((* (ptr) pd164 ))))(rope_v8136, lastCommentStart_v7792, (* (( (ptr) gf_c28864)+35) ), pd164) ; }; SOURCE(10866, 53) (void) CommentPrefix_P120((word) &pa_v8192, rope_v8136, lastCommentStart_v7792); SOURCE(10921, 61) { word pd165; pd165 = (* (( (ptr) (* (( (ptr) gf_c28864)+91)/* var_c25536 */ ))+17) ); prefix_v8220 = (word) ( *( (fPt) ((* (ptr) pd165 ))))(rope_v8136, lastCommentStart_v7792, pa_v8192.f0, pd165); }; SOURCE(10984, 70) { W2 var_c27488; W2 var_c27520; W2 var_c0313; var_c27488.f0 = 11; var_c27488.f1 = (* (( (ptr) formal_c28896)+8) ); var_c27520.f0 = 11; var_c27520.f1 = nowRope_v7848; (* (ptr) (word) &var_c0313 ) = 0; (* (( (ptr) (word) &var_c0313) + 1) ) = 0; { word pd166; pd166 = (* (( (ptr) (* (( (ptr) gf_c28864)+98)/* var_c26592 */ ))+62) ); shortLine_v8248 = (word) ( *( (fPt) ((* (ptr) pd166 ))))((* (( (ptr) gf_c28864)+47) ), var_c27488, var_c27520, var_c0313, pd166) ; }; }; SOURCE(11056, 55) prefixedLine_v8276 = (word) MakeComment_P420(shortLine_v8248, prefix_v8220, pa_v8192); SOURCE(11114, 907) if ((0 != (* (( (ptr) &var_c28832)+9)/* lastHasLineBreak_v7708 */ ))) { SOURCE(11139, 263) { word fullLine_v8320; SOURCE(11185, 68) { word var_c27584; { word var_c27616; { word pd167; pd167 = (* (( (ptr) (* (( (ptr) gf_c28864)+91)/* var_c25536 */ ))+9) ); var_c27616 = (word) ( *( (fPt) ((* (ptr) pd167 ))))(rope_v8136, eol_v8164, pd167); }; { word pd168; pd168 = (* (( (ptr) (* (( (ptr) gf_c28864)+91)/* var_c25536 */ ))+37) ); var_c27584 = (word) ( *( (fPt) ((* (ptr) pd168 ))))(var_c27616, pd168); }; }; { word pd169; pd169 = (* (( (ptr) (* (( (ptr) gf_c28864)+91)/* var_c25536 */ ))+6) ); fullLine_v8320 = (word) ( *( (fPt) ((* (ptr) pd169 ))))(prefixedLine_v8276, var_c27584, pd169); }; }; SOURCE(11255, 145) { W2 var_c27648; { word pd170; pd170 = (* (( (ptr) (* (( (ptr) gf_c28864)+90)/* var_c25504 */ ))+37) ); (void) ( *( (fPt) ((* (ptr) pd170 ))))((word) &var_c27648, (* (( (ptr) formal_c28896)+6) ), lastCommentNode_v7764, lastCommentAfter_v7820, 0, fullLine_v8320 , 0, 0, 0, (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28864)+89)/* var_c25440 */ ))+6) ) ), pd170); }; }; }; } else { SOURCE(11409, 614) { word newNode_v8364; W2 newNodeLocation_v8392; W4 newNodeSpan_v8420; SOURCE(11456, 137) { word pd171; pd171 = (* (( (ptr) (* (( (ptr) gf_c28864)+99)/* var_c26944 */ ))+15) ); newNode_v8364 = (word) ( *( (fPt) ((* (ptr) pd171 ))))((* (( (ptr) formal_c28896)+6) ), lastCommentNode_v7764, 1, 1, (* (ptr) (* ( ( (ptr) (* (( (ptr) gf_c28864)+89)/* var_c25440 */ ))+6) ) ), pd171); }; SOURCE(11595, 80) newNodeLocation_v8392.f0 = newNode_v8364; newNodeLocation_v8392.f1 = (word) -1; SOURCE(11677, 75) (* (W2Pt) &newNodeSpan_v8420 ) = newNodeLocation_v8392; (* (W2Pt) (( (ptr) &newNodeSpan_v8420)+2) ) = newNodeLocation_v8392; SOURCE(11754, 108) { W2 var_c27744; { word pd172; pd172 = (* (( (ptr) (* (( (ptr) gf_c28864)+90)/* var_c25504 */ ))+37) ); (void) ( *( (fPt) ((* (ptr) pd172 ))))((word) &var_c27744, (* (( (ptr) formal_c28896)+6) ), newNode_v8364, 0, 2147483647, prefixedLine_v8276 , 0, 0, 0, (* (ptr) (* (( (ptr) (* (( (ptr) gf_c28864)+89)/* var_c25440 */ ))+6) ) ), pd172); }; }; SOURCE(11864, 157) if (( (int)pa_v8192.f0 == (int)0)) { SOURCE(11892, 129) { W4 var_c27808; { word var_c27776; { /*1*/ word pd173; /*1*/ pd173 = (* (( (ptr) (* (( (ptr) gf_c28864)+92)/* var_c25920 */ ))+16) ); /*1*/ var_c27776 = (2 - (word) ( *( (fPt) ((* (ptr) pd173 ))))(newNode_v8364, pd173)); /*1*/ }; { /*1*/ word pd174; /*1*/ pd174 = (* (( (ptr) (* (( (ptr) gf_c28864)+99)/* var_c26944 */ ))+18) ); /*1*/ (void) ( *( (fPt) ((* (ptr) pd174 ))))((word) &var_c27808, (* (( (ptr) formal_c28896)+6) ), newNodeSpan_v8420, var_c27776, (* (ptr) (* ( /*1*/ ( (ptr) (* (( (ptr) gf_c28864)+89)/* var_c25440 */ ))+6) ) ), pd174); /*1*/ }; }; }; }; }; }; }; }; }; } static word EachComment_P1548(text_v7924, node_v7952, start_v7980, length_v8008, after_v8036, hasLineBreak_v8064, formal_c28960) word text_v7924; word node_v7952; word start_v7980; word length_v8008; word after_v8036; word hasLineBreak_v8064; word formal_c28960; { register ptr gf_c28928 = (ptr) &globalframe; word continue_v8108; formal_c28960 = (formal_c28960 - 16); /* EachComment: */ SOURCE(9742, 441) SOURCE(9861, 31) (* (( (ptr) formal_c28960)+9) ) = hasLineBreak_v8064; SOURCE(9894, 268) { word pd175; word pd177; pd175 = (* (( (ptr) (* (( (ptr) gf_c28928)+91)/* var_c25536 */ ))+11) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd175 ))))(text_v7924, (* (( (ptr) (* (ptr) formal_c28960 ))+7) ), 0, 1, pd175) >= (int)0)) { goto then0176;}; pd177 = (* (( (ptr) (* (( (ptr) gf_c28928)+91)/* var_c25536 */ ))+11) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd177 ))))(text_v7924, (* (( (ptr) (* (ptr) formal_c28960 ))+8) ), 0, 1, pd177) >= (int)0)) { then0176: ; SOURCE(9955, 212) { word dStart_v8464; word dLength_v8492; SOURCE(9979, 34) { W2 var_c27840; (void) FindDate_P600((word) &var_c27840, text_v7924); dLength_v8492 = var_c27840.f1; dStart_v8464 = var_c27840.f0; }; SOURCE(10015, 147) if (( (int)dStart_v8464 >= (int)0)) { SOURCE(10060, 15) (* (( (ptr) formal_c28960)+6) ) = node_v7952; SOURCE(10077, 26) (* (( (ptr) formal_c28960)+7) ) = (dStart_v8464 + start_v7980); SOURCE(10142, 20) (* (( (ptr) formal_c28960)+8) ) = dLength_v8492; }; }; }; }; SOURCE(10170, 13) return(1); } static word GetNiceUserName_P540() { register ptr gf_c28992 = (ptr) &globalframe; word var_c4924; word user_v8536; /* GetNiceUserName: */ SOURCE(12200, 215) SOURCE(12241, 35) { word pd178; pd178 = (* (( (ptr) (* (( (ptr) gf_c28992)+101)/* var_c27872 */ ))+4) ); user_v8536 = (word) ( *( (fPt) ((* (ptr) pd178 ))))(pd178); }; SOURCE(12278, 40) { word pd179; pd179 = (* (( (ptr) (* (( (ptr) gf_c28992)+91)/* var_c25536 */ ))+13) ); if ((0 != (word) ( *( (fPt) ((* (ptr) pd179 ))))(user_v8536, pd179))) { SOURCE(12305, 13) return(user_v8536); }; }; SOURCE(12320, 80) { word var_c27904; { word var_c27936; { word var_c27968; word ch_v24816; { word pd180; pd180 = (* (( (ptr) (* (( (ptr) gf_c28992)+91)/* var_c25536 */ ))+9) ); ch_v24816 = (word) ( *( (fPt) ((* (ptr) pd180 ))))(user_v8536, 0, pd180); }; if (((ch_v24816 - 97) <= 25)) { var_c27968 = (ch_v24816 - 32); } else { var_c27968 = ch_v24816; }; var_c27936 = var_c27968; }; { word pd181; pd181 = (* (( (ptr) (* (( (ptr) gf_c28992)+91)/* var_c25536 */ ))+37) ); var_c27904 = (word) ( *( (fPt) ((* (ptr) pd181 ))))(var_c27936, pd181); }; }; { word pd182; pd182 = (* (( (ptr) (* (( (ptr) gf_c28992)+91)/* var_c25536 */ ))+16) ); user_v8536 = (word) ( *( (fPt) ((* (ptr) pd182 ))))(user_v8536, 0, 1, var_c27904, pd182); }; }; SOURCE(12402, 13) return(user_v8536); } static void FindDate_P600(formal_c0252, rope_v5068) word formal_c0252; word rope_v5068; { W9 var_c29024; register ptr gf_c29056 = (ptr) &globalframe; /* declaration of start_v5112 skipped */ word length_v5140; word len_v8580; /* FindDate: */ SOURCE(12564, 869) SOURCE(12625, 22) { word pd183; pd183 = (* (( (ptr) (* (( (ptr) gf_c29056)+91)/* var_c25536 */ ))+15) ); len_v8580 = (word) ( *( (fPt) ((* (ptr) pd183 ))))(rope_v5068, pd183); }; SOURCE(12649, 750) if (( (int)len_v8580 <= (int)256)) { SOURCE(12676, 723) { register word months_v8624; months_v8624 = (* (( (ptr) gf_c29056)+4)/* monthList_v3616 */ ); lab_L100031: ; if ((months_v8624 != 0)) { } else { goto lab_L100028; }; { /* declaration of pos_v8752 skipped */ word end_v8780 = 0; SOURCE(12748, 17) (* (( (ptr) &var_c29024)+5)/* pos_v8752 */ ) = 0; SOURCE(12767, 632) lab_L100034: ; if (( (int)(* (( (ptr) &var_c29024)+5)/* pos_v8752 */ ) < (int)len_v8580)) { } else { goto lab_L100032; }; SOURCE(12786, 36) { word pd184; pd184 = (* (( (ptr) (* (( (ptr) gf_c29056)+91)/* var_c25536 */ ))+11) ); (* (( (ptr) &var_c29024)+4)/* start_v5112 */ ) = (word) ( *( (fPt) ((* (ptr) pd184 ))))(rope_v5068, (* (ptr) months_v8624 ), (* ( ( (ptr) &var_c29024)+5)/* pos_v8752 */ ), 1, pd184); }; SOURCE(12824, 18) if (( (int)(* (( (ptr) &var_c29024)+4)/* start_v5112 */ ) < (int)0)) { SOURCE(12842, 4) goto lab_L100033; }; { word pd185; pd185 = (* (( (ptr) (* (( (ptr) gf_c29056)+91)/* var_c25536 */ ))+11) ); end_v8780 = (word) ( *( (fPt) ((* (ptr) pd185 ))))(rope_v5068, (* (( (ptr) gf_c29056)+52) ), (* (( (ptr) &var_c29024)+4) /* start_v5112 */ ), 1, pd185); }; if (( (int)end_v8780 != (int) (word) -1)) { SOURCE(12924, 13) end_v8780 = (end_v8780 + 1); } else { { word pd186; pd186 = (* (( (ptr) (* (( (ptr) gf_c29056)+91)/* var_c25536 */ ))+11) ); end_v8780 = (word) ( *( (fPt) ((* (ptr) pd186 ))))(rope_v5068, (* (( (ptr) gf_c29056)+53) ), (* (( (ptr) &var_c29024)+4) /* start_v5112 */ ), 1, pd186); }; if (( (int)end_v8780 != (int) (word) -1)) { SOURCE(12980, 13) end_v8780 = (end_v8780 + 1); } else { { word pd187; pd187 = (* (( (ptr) (* (( (ptr) gf_c29056)+91)/* var_c25536 */ ))+11) ); end_v8780 = (word) ( *( (fPt) ((* (ptr) pd187 ))))(rope_v5068, (* (( (ptr) gf_c29056)+54) ), (* (( (ptr) &var_c29024)+4) /* start_v5112 */ ), 1, pd187); }; if (( (int)end_v8780 != (int) (word) -1)) { SOURCE(13037, 13) end_v8780 = (end_v8780 + 2); } else { { word pd188; pd188 = (* (( (ptr) (* (( (ptr) gf_c29056)+91)/* var_c25536 */ ))+11) ); end_v8780 = (word) ( *( (fPt) ((* (ptr) pd188 ))))(rope_v5068, (* (( (ptr) gf_c29056)+55) ), (* (( (ptr) &var_c29024)+4) /* start_v5112 */ ), 0, pd188); }; if (( (int)end_v8780 != (int) (word) -1)) { SOURCE(13102, 13) end_v8780 = (end_v8780 + 2); } else { { word pd189; pd189 = (* (( (ptr) (* (( (ptr) gf_c29056)+91)/* var_c25536 */ ))+11) ); end_v8780 = (word) ( *( (fPt) ((* (ptr) pd189 ))))(rope_v5068, (* (( (ptr) gf_c29056)+56) ), (* (( (ptr) &var_c29024)+4) /*1*/ /* start_v5112 */ ), 0, pd189); }; if (( (int)end_v8780 != (int) (word) -1)) { SOURCE(13166, 13) end_v8780 = (end_v8780 + 2); } else { SOURCE(13193, 4) goto lab_L100033; }; }; }; }; }; SOURCE(13224, 133) { word var_c28032; { /* declaration of var_c28000 skipped */ { word pd190; pd190 = (* (( (ptr) (* (( (ptr) gf_c29056)+91)/* var_c25536 */ ))+17) ); (* (( (ptr) &var_c29024)+6)/* var_c28000 */ ) = (word) ( *( (fPt) ((* (ptr) pd190 ))))(rope_v5068, (* (( (ptr) &var_c29024)+4) /* start_v5112 */ ), ((end_v8780 - (* (( (ptr) &var_c29024)+4)/* start_v5112 */ )) + 1), pd190); }; { /* declaration of var_c01 skipped */ (* (( (ptr) &var_c29024)+7)/* var_c01 */ ) = (* (( (ptr) (* (( (ptr) gf_c29056)+100)/* var_c27392 */ ))+15) ); { /* declaration of var_c02 skipped */ { word var_c03; { /*1*/ word var_c0314; /*1*/ var_c0314 = (word) &var_c29024; /*1*/ var_c03 = (word) XR_Enable(( ((word) (fPt) NoName_Q2244) ), ( ((word) (fPt) NoName_Q2304) ), var_c0314); /*1*/ }; if ((var_c03 == 2)) { /*1*/ goto lab_L100034; /*1*/ }; }; var_c28032 = (* (( (ptr) &var_c29024)+8)/* var_c02 */ ); }; }; }; }; SOURCE(13369, 30) /* removed bogus assignment */ length_v5140 = ((end_v8780 - (* (( (ptr) &var_c29024)+4)/* start_v5112 */ )) + 1); goto lab_L100027; /* c2c skipped dead code */ lab_L100032: ; lab_L100033: ; }; months_v8624 = (* (( (ptr) months_v8624)+1) ); goto lab_L100031; lab_L100028: ; }; }; SOURCE(13419, 14) (* (( (ptr) &var_c29024)+4)/* start_v5112 */ ) = (word) -1; length_v5140 = (word) -1; /* removed tail goto */ lab_L100027: ; (* (ptr) formal_c0252 ) = (* (( (ptr) &var_c29024)+4)/* start_v5112 */ ); (* (( (ptr) formal_c0252)+1) ) = length_v5140; return; } static word NoName_Q2244(formal_c0300) word formal_c0300; { SOURCE(13224, 133) { word pd191; pd191 = (* (( (ptr) formal_c0300)+7) ); (* (( (ptr) formal_c0300)+8) ) = (word) ( *( (fPt) ((* (ptr) pd191 ))))((* ((( (ptr) formal_c0300)+6)) ), pd191); }; return(0); } static void InstallMenuButton_P660(name_v5200, proc_v5228) word name_v5200; word proc_v5228; { register ptr gf_c29088 = (ptr) &globalframe; word old_v8824; word new_v8852; /* InstallMenuButton: */ SOURCE(13439, 360) SOURCE(13503, 85) { word pd192; pd192 = (* (( (ptr) (* (( (ptr) gf_c29088)+103)/* var_c28096 */ ))+11) ); old_v8824 = (word) ( *( (fPt) ((* (ptr) pd192 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf_c29088)+102)/* var_c28064 */ ))+28) ) ), name_v5200, pd192); }; SOURCE(13590, 77) { word pd193; pd193 = (* (( (ptr) (* (( (ptr) gf_c29088)+103)/* var_c28096 */ ))+6) ); new_v8852 = (word) ( *( (fPt) ((* (ptr) pd193 ))))(name_v5200, proc_v5228, 0, 0, 0, 0, pd193); }; SOURCE(13669, 130) if ((old_v8824 == 0)) { SOURCE(13687, 56) { word pd194; pd194 = (* (( (ptr) (* (( (ptr) gf_c29088)+103)/* var_c28096 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd194 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf_c29088)+102)/* var_c28064 */ ))+28) ) ), new_v8852, 0, pd194) ; }; } else { SOURCE(13743, 56) { word pd195; pd195 = (* (( (ptr) (* (( (ptr) gf_c29088)+103)/* var_c28096 */ ))+14) ); (void) ( *( (fPt) ((* (ptr) pd195 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf_c29088)+102)/* var_c28064 */ ))+28) ) ), old_v8824, new_v8852, pd195) ; }; }; } static void NoName_Q2304(formal_c0263, formal_c200008, formal_c200009, formal_c200010, formal_c200011) word formal_c0263; word formal_c200008; word formal_c200009; word formal_c200010; word formal_c200011; { register ptr gf_c0302 = (ptr) &globalframe; if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0302)+100)/* var_c27392 */ ))+7) ))) { { word reason_v24596; word index_v24624; reason_v24596 = (* (ptr) formal_c200011 ); index_v24624 = (* (( (ptr) formal_c200011)+1) ); SOURCE(13342, 15) (* (( (ptr) formal_c200008)+5) ) = ((* (( (ptr) formal_c200008)+4) ) + 3); SOURCE(13359, 4) (* (ptr) formal_c0263 ) = 2; (* (( (ptr) formal_c0263)+1) ) = 2; return; }; }; (* (ptr) formal_c0263 ) = 0; (* (( (ptr) formal_c0263)+1) ) = 0; return; } static void NoName_Q2364(formal_c0268, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0268; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0303 = (ptr) &globalframe; if ((formal_c200005 == XR_Unwind)) { SOURCE(12103, 24) { word pd196; pd196 = (* (( (ptr) (* (( (ptr) gf_c0303)+95)/* var_c26240 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd196 ))))((* ((( (ptr) formal_c200004)+6)) ), pd196); }; }; (* (ptr) formal_c0268 ) = 0; (* (( (ptr) formal_c0268)+1) ) = 0; return; } static void NoName_Q2424(formal_c0273, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0273; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0304 = (ptr) &globalframe; if ((formal_c200001 == XR_Unwind)) { SOURCE(9043, 24) { word pd197; pd197 = (* (( (ptr) (* (( (ptr) gf_c0304)+95)/* var_c26240 */ ))+7) ); (void) ( *( (fPt) ((* (ptr) pd197 ))))((* ((( (ptr) formal_c200000)+6)) ), pd197); }; }; (* (ptr) formal_c0273 ) = 0; (* (( (ptr) formal_c0273)+1) ) = 0; return; } /* file: TiogaComfortsImpl, module: TiogaComfortsImpl, compiled at: September 2, 1993 3:30:20 pm PDT */ extern void XR_install_TiogaComfortsImpl() { NoName_Q2064(); } extern void XR_run_TiogaComfortsImpl() { XR_Start(&globalframe); }