/* Generated with C2C (Cedar To C)*/ /* Copyright (C) 1992 by Xerox Corporation. All rights reserved. */ /* time: June 7, 1992 11:36:36 am PDT */ /* C2C version: October 16, 1990 (native) */ /* ref-counting: off */ /* file: VoiceInterestImpl, module: VoiceInterestImpl */ /* switches: bcfhklnouw */ #include #include static char versionStamp[] = "@(#)mob_version [1828325956,678806671] VoiceInterestImpl"; typedef unsigned word, *ptr; typedef unsigned char byte, *bPt; typedef unsigned short half, *hPt; typedef word (*fPt)(); typedef struct {word f0, f1;} W2; typedef struct {word f0, f1, f2, f3, f4, f5, f6, f7;} W8; typedef struct {word f0, f1, f2, f3;} W4; typedef struct {W8 f; W4 r;} W12; typedef struct {word f0, f1, f2, f3, f4, f5;} W6; typedef W6 *W6Pt; typedef struct {word f0, f1, f2, f3, f4, f5, f6;} W7; typedef struct {word f0, f1, f2, f3, f4;} W5; typedef W4 *W4Pt; #define SOURCE(p, l) /* source p, l */ #define BCK(idx, lim) ( ((unsigned) idx) >= ((unsigned) lim) ? (XR_RaiseBoundsFault()) : (idx) ) static void NoName_Q1248(); static void VoiceInterestImpl_P0(); static void DoFileInterests_P120(); static void GetFileNameAndDate_P180(); static word NoName_Q1308(); static word IsTiogaFile_P240(); static word GetVoiceList_P300(); static void RegisterFileInterests_P360(); static void RegisterVoiceInterestCmd_P420(); static word NoName_Q1368(); static word NoName_Q1428(); static void BackgroundCommentaryInit_P480(); static void RegisterViewerInterests_P540(); static word DoViewerInterests_P600(); static void NoName_Q1488(); static void NoName_Q1548(); static void NoName_Q1608(); static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\104\304\000\000"}; static struct {unsigned f; char r[24];} string2 = {1376277, "\007\000\001\002\007\020\001\002\000\007\036\002\004\003\002\004\014\016\015\003\001\000\000"}; static struct {unsigned f; char r[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[16];} string5 = {851984, "\257\300\013\170\373\103\300\170\332\235\162\100\164\000\000"}; static struct {unsigned f; char r[4];} string6 = {131076, "\216\251\000"}; static struct {unsigned f; char r[24];} string7 = {1310744, " Not a Tioga file\012\000\000\000"}; static struct {unsigned f; char r[24];} string8 = {1310744, " No voice in file\012\000\000\000"}; static struct {unsigned f; char r[12];} string9 = {589836, "File %g:\012\000\000"}; static struct {unsigned f; char r[20];} string10 = {1048596, "File is global:\012\000\000\000"}; static struct {unsigned f; char r[40];} string11 = {2359336, "File is attached to global file %g:\012\000\000\000"}; static struct {unsigned f; char r[92];} string12 = {5832796, "InterestInfo: registers an output stream for commentary about voice interest registration\000\000"}; static struct {unsigned f; char r[12];} string13 = {589836, "voicelist\000\000"}; static struct {unsigned f; char r[16];} string14 = {786448, "InterestInfo\000\000\000"}; static struct {unsigned f; char r[124];} string15 = {7864444, "RegisterVoiceInterest inFile: register loganberry interests for all voice messages in a global or globally attached file\000\000\000"}; static struct {unsigned f; char r[28];} string16 = {1638428, " Voice message IDs are\012\000\000"}; static struct {unsigned f; char r[4];} string17 = {65540, "&\000\000"}; static struct {unsigned f; char r[24];} string18 = {1376280, "RegisterVoiceInterest\000\000"}; static struct {unsigned f; char r[12];} string19 = {655372, "TiogaVoice\000"}; static struct {unsigned f; char r[4];} string20 = {65540, " \000\000"}; static struct {unsigned f; char r[4];} string21 = {65540, "\012\000\000"}; static struct {unsigned f; char r[48];} string22 = {3080240, "File must be global or have a global attachment"}; static struct {unsigned f; char r[36];} string23 = {2293796, "Usage: RegisterVoiceInterest inFile"}; static struct {unsigned f; char r[8];} string24 = {458760, "Failure"}; static struct {unsigned f; char r[12];} string25 = {589836, "VoiceList\000\000"}; static struct {unsigned f; char r[16];} string26 = {851984, "VoiceEventReg\000\000"}; static struct {unsigned f; char r[16];} string27 = {851984, "\257\300\154\372\012\104\300\050\165\304\217\100\164\000\000"}; static struct {unsigned f; char r[12];} string28 = {655370, "\006\002\020\001\064\010\000\004\024\001\000"}; static struct {unsigned f; char r[16];} string29 = {851984, "\257\300\373\225\000\071\300\362\156\307\320\100\150\000\000"}; static struct {unsigned f; char r[16];} string30 = {851984, "\257\300\311\235\133\064\300\165\175\234\175\100\150\000\000"}; static struct {unsigned f; char r[16];} string31 = {851984, "\257\300\255\053\300\023\300\142\135\315\105\100\150\000\000"}; static struct {unsigned f; char r[16];} string32 = {851984, "\257\300\344\212\014\176\300\070\230\121\123\100\150\000\000"}; static struct {unsigned f; char r[16];} string33 = {851984, "\257\300\015\277\004\146\300\034\367\146\045\100\164\000\000"}; static struct {unsigned f; char r[16];} string34 = {851984, "\257\300\363\223\326\161\300\017\164\046\072\100\150\000\000"}; static struct {unsigned f; char r[16];} string35 = {851984, "\257\300\056\236\052\251\300\206\175\213\250\100\150\000\000"}; static struct {unsigned f; char r[16];} string36 = {851984, "\257\300\203\256\002\131\300\364\237\146\374\100\150\000\000"}; static struct {unsigned f; char r[16];} string37 = {1416195943, "aVoicePrivate"}; static struct {unsigned f; char r[16];} string38 = {851984, "\257\300\312\131\110\115\300\370\314\351\125\100\150\000\000"}; static struct {unsigned f; char r[16];} string39 = {851984, "\257\300\260\261\352\205\300\233\126\263\156\100\150\000\000"}; static struct {unsigned f; char r[16];} string40 = {851984, "\257\300\354\332\367\333\300\361\203\205\173\100\150\000\000"}; static struct {unsigned f; char r[16];} string41 = {851984, "\257\300\244\340\135\243\300\261\211\021\257\100\150\000\000"}; static struct { word f0[33]; word f33; word f34; word f35; word f36; word f37; word f38; word f39; word f40; word f41; word f42; word f43; word f44; word f45; word f46; word f47; word f48; word f49; word f50; word f51; word f52[14]; } globalframe = { {0}, (word) DoViewerInterests_P600, 0, (word) RegisterViewerInterests_P540, 0, (word) BackgroundCommentaryInit_P480, 0, (word) RegisterVoiceInterestCmd_P420, 0, (word) RegisterFileInterests_P360, 0, (word) GetVoiceList_P300, 0, (word) IsTiogaFile_P240, 0, (word) GetFileNameAndDate_P180, 0, (word) DoFileInterests_P120, 0, (word) VoiceInterestImpl_P0, {0} }; static void NoName_Q1248() { register ptr gf_c0127 = (ptr) &globalframe; word var_c19136; (* (( (ptr) gf_c0127)+7) ) = (word) XR_GetTypeIndex((word) &string1, 0, (word) &string2); (* (( (ptr) gf_c0127)+8) ) = (word) XR_GetTypeIndex((word) &string3, 0, (word) &string4); (* (( (ptr) gf_c0127)+9) ) = (word) XR_GetTypeIndex((word) &string5, 0, (word) &string4); (* (( (ptr) gf_c0127)+12) ) = (word) XR_GetTypeIndex((word) &string6, 0, (word) &string4); (* (ptr) (( (bPt) gf_c0127)+52) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string7); (* (ptr) (( (bPt) gf_c0127)+56) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string8); (* (ptr) (( (bPt) gf_c0127)+60) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string9); (* (ptr) (( (bPt) gf_c0127)+64) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string10); (* (ptr) (( (bPt) gf_c0127)+68) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string11); (* (ptr) (( (bPt) gf_c0127)+72) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string12); (* (ptr) (( (bPt) gf_c0127)+76) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+12) ), (word) &string13); (* (ptr) (( (bPt) gf_c0127)+80) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string14); (* (ptr) (( (bPt) gf_c0127)+84) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string15); (* (ptr) (( (bPt) gf_c0127)+88) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string16); (* (ptr) (( (bPt) gf_c0127)+92) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string17); (* (ptr) (( (bPt) gf_c0127)+96) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string18); (* (ptr) (( (bPt) gf_c0127)+100) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string19); (* (ptr) (( (bPt) gf_c0127)+104) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string20); (* (ptr) (( (bPt) gf_c0127)+108) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string21); (* (ptr) (( (bPt) gf_c0127)+112) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string22); (* (ptr) (( (bPt) gf_c0127)+116) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+8) ), (word) &string23); (* (ptr) (( (bPt) gf_c0127)+120) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+12) ), (word) &string24); (* (ptr) (( (bPt) gf_c0127)+124) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+12) ), (word) &string25); (* (ptr) (( (bPt) gf_c0127)+128) ) = (word) XR_GetRefLiteral((* (( (ptr) gf_c0127)+12) ), (word) &string26); (void) XR_DeclareGlobalFrame((word) "VoiceInterestImpl", &globalframe, (word) XR_GetTypeIndex((word) &string27, 0, (word) &string28) , (word) (( (bPt) gf_c0127)+204)/* var_c18272 */ ); var_c19136 = (word) XR_ImportInterface((word) "Commander", (word) XR_GetTypeIndexS((word) (&string29)), 3); (* (( (ptr) gf_c0127)+53)/* var_c18304 */ ) = var_c19136; (void) XR_ImportProcS(var_c19136, 1310725); var_c19136 = (word) XR_ImportInterface((word) "CommanderOps", (word) XR_GetTypeIndexS((word) (&string30)), 14); (* (( (ptr) gf_c0127)+62)/* var_c18912 */ ) = var_c19136; (void) XR_ImportProcS(var_c19136, 67633666); var_c19136 = (word) XR_ImportInterface((word) "Convert", (word) XR_GetTypeIndexS((word) (&string31)), 73); (* (( (ptr) gf_c0127)+59)/* var_c18816 */ ) = var_c19136; (void) XR_ImportProcS(var_c19136, 68689158); var_c19136 = (word) XR_ImportInterface((word) "FS", (word) XR_GetTypeIndexS((word) (&string32)), 36); (* (( (ptr) gf_c0127)+55)/* var_c18400 */ ) = var_c19136; (void) XR_ImportProcS(var_c19136, 70522636); (void) XR_ImportProcS(var_c19136, 403703812); var_c19136 = (word) XR_ImportInterface((word) "IO", (word) XR_GetTypeIndexS((word) (&string33)), 103); (* (( (ptr) gf_c0127)+54)/* var_c18368 */ ) = var_c19136; (void) XR_ImportProcS(var_c19136, 530434); (void) XR_ImportProcS(var_c19136, 67910402); (void) XR_ImportProcS(var_c19136, 1071364); var_c19136 = (word) XR_ImportInterface((word) "Rope", (word) XR_GetTypeIndexS((word) (&string34)), 43); (* (( (ptr) gf_c0127)+58)/* var_c18656 */ ) = var_c19136; (void) XR_ImportProcS(var_c19136, 68419845); (void) XR_ImportProcS(var_c19136, 67898627); (void) XR_ImportProcS(var_c19136, 68159236); (void) XR_ImportProcS(var_c19136, 67634434); (void) XR_ImportProcS(var_c19136, 67373569); var_c19136 = (word) XR_ImportInterface((word) "TiogaAccess", (word) XR_GetTypeIndexS((word) (&string35)), 32); (* (( (ptr) gf_c0127)+57)/* var_c18592 */ ) = var_c19136; (void) XR_ImportProcS(var_c19136, 335808513); (void) XR_ImportProcS(var_c19136, 67372289); var_c19136 = (word) XR_ImportInterface((word) "TiogaFileIO", (word) XR_GetTypeIndexS((word) (&string36)), 2); (* (( (ptr) gf_c0127)+56)/* var_c18560 */ ) = var_c19136; (void) XR_ImportProcS(var_c19136, 470548483); var_c19136 = (word) XR_ImportInterface((word) &string37, (word) XR_GetTypeIndexS((word) (&string38)), 84); (* (( (ptr) gf_c0127)+60)/* var_c18848 */ ) = var_c19136; var_c19136 = (word) XR_ImportInterface((word) "ViewerEvents", (word) XR_GetTypeIndexS((word) (&string39)), 3); (* (( (ptr) gf_c0127)+64)/* var_c19008 */ ) = var_c19136; (void) XR_ImportProcS(var_c19136, 524546); (void) XR_ImportProcS(var_c19136, 68157444); var_c19136 = (word) XR_ImportInterface((word) "ViewerOps", (word) XR_GetTypeIndexS((word) (&string40)), 43); (* (( (ptr) gf_c0127)+63)/* var_c18976 */ ) = var_c19136; (void) XR_ImportProcS(var_c19136, 67639554); (void) XR_ImportProcS(var_c19136, 792579); var_c19136 = (word) XR_ImportInterface((word) "VoiceRope", (word) XR_GetTypeIndexS((word) (&string41)), 20); (* (( (ptr) gf_c0127)+61)/* var_c18880 */ ) = var_c19136; (void) XR_ImportProcS(var_c19136, 1313797); var_c19136 = (word) XR_ExportInterface((word) &string37, (word) XR_GetTypeIndexS((word) (&string38)), 84); (* (( (ptr) gf_c0127)+65)/* var_c19168 */ ) = var_c19136; (void) XR_ExportProcS(var_c19136, (word) (( (bPt) gf_c0127)+140)/* var_c18016 */ , 545538); } static void VoiceInterestImpl_P0(formal_c037, formal_c036) word formal_c037; word formal_c036; { register ptr gf_c19200 = (ptr) &globalframe; /* VoiceInterestImpl: */ SOURCE(721, 5325) SOURCE(5665, 209) { word pd42; pd42 = (* (( (ptr) (* (( (ptr) gf_c19200)+53)/* var_c18304 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd42 ))))((* (( (ptr) gf_c19200)+24) ), (word) (( (bPt) gf_c19200)+156)/* var_c18080 */ , (* ( ( (ptr) gf_c19200)+21) ), 0, 1, pd42); }; SOURCE(5877, 169) { word pd43; pd43 = (* (( (ptr) (* (( (ptr) gf_c19200)+53)/* var_c18304 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd43 ))))((* (( (ptr) gf_c19200)+20) ), (word) (( (bPt) gf_c19200)+148)/* var_c18048 */ , (* ( ( (ptr) gf_c19200)+18) ), 0, 1, pd43); }; } static void DoFileInterests_P120(file_v3632, commentary_v3660) word file_v3632; word commentary_v3660; { register ptr gf_c19232 = (ptr) &globalframe; word globalName_v4288 = 0; word voiceList_v4316 = 0; word createDate_v4344; /* DoFileInterests: */ SOURCE(1141, 3248) SOURCE(1287, 3102) { W2 var_c18336; (void) GetFileNameAndDate_P180((word) &var_c18336, file_v3632, commentary_v3660); createDate_v4344 = var_c18336.f1; globalName_v4288 = var_c18336.f0; }; SOURCE(1352, 3037) if ((0 == (word) IsTiogaFile_P240(globalName_v4288))) { SOURCE(1390, 47) SOURCE(1065, 51) if ((commentary_v3660 != 0)) { SOURCE(1090, 26) { word pd44; pd44 = (* (( (ptr) (* (( (ptr) gf_c19232)+54)/* var_c18368 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd44 ))))(commentary_v3660, (* (( (ptr) gf_c19232)+13) ), 0, 2147483647, pd44); }; }; SOURCE(1439, 7) return; }; SOURCE(1449, 2940) voiceList_v4316 = (word) GetVoiceList_P300(globalName_v4288); SOURCE(1487, 145) if ((voiceList_v4316 == 0)) { SOURCE(1511, 53) SOURCE(1065, 51) if ((commentary_v3660 != 0)) { SOURCE(1090, 26) { word pd45; pd45 = (* (( (ptr) (* (( (ptr) gf_c19232)+54)/* var_c18368 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd45 ))))(commentary_v3660, (* (( (ptr) gf_c19232)+14) ), 0, 2147483647, pd45); }; }; } else { SOURCE(1564, 68) (void) RegisterFileInterests_P360(globalName_v4288, createDate_v4344, voiceList_v4316, commentary_v3660); }; } static void GetFileNameAndDate_P180(formal_c059, formal_c0154, commentary_v3748) word formal_c059; word formal_c0154; word commentary_v3748; { W12 var_c19264; /* declaration of file_v3720 skipped */ register ptr gf_c19296 = (ptr) &globalframe; word globalName_v3792; word createDate_v3820; (* (( (ptr) &var_c19264)+4)/* file_v3720 */ ) = formal_c0154; /* GetFileNameAndDate: */ SOURCE(1638, 2751) SOURCE(1638, 2751) globalName_v3792 = 0; SOURCE(1765, 2624) SOURCE(1767, 32) { word fullFName_v4388 = 0; word attachedTo_v4416 = 0; word keep_v4444; SOURCE(1818, 2571) { W6 var_c18432; { /* declaration of var_c01 skipped */ (* (( (ptr) &var_c19264)+5)/* var_c01 */ ) = (* (( (ptr) (* (( (ptr) gf_c19296)+55)/* var_c18400 */ ))+12) ); { /* declaration of var_c02 skipped */ { word var_c03; { word var_c0145; var_c0145 = (word) &var_c19264; var_c03 = (word) XR_Enable(( ((word) (fPt) NoName_Q1308) ), ( ((word) (fPt) NoName_Q1608) ), var_c0145); }; if ((var_c03 == 2)) { goto lab_L100001; }; }; var_c18432 = (* (W6Pt) (( (ptr) &var_c19264)+6)/* var_c02 */ ); }; }; createDate_v3820 = var_c18432.f4; keep_v4444 = var_c18432.f2; attachedTo_v4416 = var_c18432.f1; fullFName_v4388 = var_c18432.f0; }; SOURCE(2066, 2323) { word remark_v17812; word commentary_v17840; { W2 var_c18464; var_c18464.f0 = 11; var_c18464.f1 = fullFName_v4388; { word pd46; pd46 = (* (( (ptr) (* (( (ptr) gf_c19296)+54)/* var_c18368 */ ))+63) ); remark_v17812 = (word) ( *( (fPt) ((* (ptr) pd46 ))))((* (( (ptr) gf_c19296)+15) ), var_c18464, pd46); }; }; commentary_v17840 = commentary_v3748; SOURCE(1065, 51) if ((commentary_v17840 != 0)) { SOURCE(1090, 26) { word pd47; pd47 = (* (( (ptr) (* (( (ptr) gf_c19296)+54)/* var_c18368 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd47 ))))(commentary_v17840, remark_v17812, 0, 2147483647, pd47); }; }; }; SOURCE(2135, 2254) if ((attachedTo_v4416 == 0)) { SOURCE(2162, 22) globalName_v3792 = fullFName_v4388; SOURCE(2186, 45) SOURCE(1065, 51) if ((commentary_v3748 != 0)) { SOURCE(1090, 26) { word pd48; pd48 = (* (( (ptr) (* (( (ptr) gf_c19296)+54)/* var_c18368 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd48 ))))(commentary_v3748, (* (( (ptr) gf_c19296)+16) ), 0, 2147483647, pd48); }; }; } else { SOURCE(2240, 23) globalName_v3792 = attachedTo_v4416; SOURCE(2265, 2124) { word remark_v17688; word commentary_v17716; { W2 var_c18496; var_c18496.f0 = 11; var_c18496.f1 = globalName_v3792; { word pd49; pd49 = (* (( (ptr) (* (( (ptr) gf_c19296)+54)/* var_c18368 */ ))+63) ); remark_v17688 = (word) ( *( (fPt) ((* (ptr) pd49 ))))((* (( (ptr) gf_c19296)+17) ), var_c18496, pd49); }; }; commentary_v17716 = commentary_v3748; SOURCE(1065, 51) if ((commentary_v17716 != 0)) { SOURCE(1090, 26) { word pd50; pd50 = (* (( (ptr) (* (( (ptr) gf_c19296)+54)/* var_c18368 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd50 ))))(commentary_v17716, remark_v17688, 0, 2147483647, pd50); }; }; }; }; }; goto lab_L100004; lab_L100001: ; SOURCE(2378, 6) goto lab_L100000; lab_L100004: ; /* removed tail goto */ lab_L100000: ; (* (ptr) formal_c059 ) = globalName_v3792; (* (( (ptr) formal_c059)+1) ) = createDate_v3820; return; } static word NoName_Q1308(formal_c0131) word formal_c0131; { SOURCE(1818, 2571) { word pd51; pd51 = (* (( (ptr) formal_c0131)+5) ); (void) ( *( (fPt) ((* (ptr) pd51 ))))((word) (( (bPt) formal_c0131)+24), (* (( (ptr) formal_c0131)+4) ), 2147483647, 1, 0, pd51) ; }; return(0); } static word IsTiogaFile_P240(filename_v3880) word filename_v3880; { register ptr gf_c19328 = (ptr) &globalframe; word tiogaFile_v3924; word fileStream_v4488 = 0; word streamOptions_v4516 = 7; /* IsTiogaFile: */ SOURCE(2391, 1998) { W7 var_c066; SOURCE(2544, 1845) streamOptions_v4516 = (streamOptions_v4516 & 4294967291) | (((0)) << 2); SOURCE(2578, 1811) { W2 var_c18528; var_c18528.f0 = 7; var_c18528.f1 = 1; { word pd52; pd52 = (* (( (ptr) (* (( (ptr) gf_c19328)+55)/* var_c18400 */ ))+27) ); fileStream_v4488 = (word) ( *( (fPt) ((* (ptr) pd52 ))))(filename_v3880, 0, streamOptions_v4516, 1, 2560, var_c18528 , 0, 2147483647, 1, 0, 0, 0, pd52); }; }; SOURCE(2656, 1733) { word pd53; pd53 = (* (( (ptr) (* (( (ptr) gf_c19328)+56)/* var_c18560 */ ))+4) ); (void) ( *( (fPt) ((* (ptr) pd53 ))))((word) &var_c066, fileStream_v4488, 0, 2147483647, pd53); }; tiogaFile_v3924 = var_c066.f0; SOURCE(2710, 18) { word pd54; pd54 = (* (( (ptr) (* (( (ptr) gf_c19328)+54)/* var_c18368 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd54 ))))(fileStream_v4488, 0, pd54); }; }; SOURCE(2391, 1998) return(tiogaFile_v3924); } static word GetVoiceList_P300(filename_v3984) word filename_v3984; { register ptr gf_c19360 = (ptr) &globalframe; word voiceList_v4028; word fileStream_v4560; W5 rootChar_v4588; /* GetVoiceList: */ SOURCE(2734, 1655) SOURCE(2734, 1655) voiceList_v4028 = 0; SOURCE(2810, 63) { word pd55; pd55 = (* (( (ptr) (* (( (ptr) gf_c19360)+57)/* var_c18592 */ ))+9) ); fileStream_v4560 = (word) ( *( (fPt) ((* (ptr) pd55 ))))(filename_v3984, pd55); }; SOURCE(2875, 61) { word pd56; pd56 = (* (( (ptr) (* (( (ptr) gf_c19360)+57)/* var_c18592 */ ))+12) ); (void) ( *( (fPt) ((* (ptr) pd56 ))))((word) &rootChar_v4588, fileStream_v4560, pd56); }; SOURCE(2986, 216) { register word rootProps_v4632; rootProps_v4632 = rootChar_v4588.f4; lab_L100008: ; if ((rootProps_v4632 != 0)) { } else { goto lab_L100005; }; SOURCE(3077, 125) if (((* (ptr) rootProps_v4632 ) == (* (( (ptr) gf_c19360)+19) ))) { SOURCE(3121, 81) if ((voiceList_v4028 == 0)) { SOURCE(3145, 57) { word var_c18624; var_c18624 = XR_Narrow((* (( (ptr) rootProps_v4632)+1) ), (* (( (ptr) gf_c19360)+7) )); if ((var_c18624 == 0)) { goto lab_L100009; }; if (((*(int*)var_c18624<0) == 0)) { goto lab_L100009; }; (void) XR_RaiseError(XR_NarrowFault, 0); lab_L100009: ; voiceList_v4028 = var_c18624; }; } else { SOURCE(3202, 6) (void) XR_RaiseUnnamedError(); }; }; rootProps_v4632 = (* (( (ptr) rootProps_v4632)+2) ); goto lab_L100008; lab_L100005: ; }; SOURCE(2734, 1655) return(voiceList_v4028); } static void RegisterFileInterests_P360(filename_v4088, createDate_v4116, voiceList_v4144, commentary_v4172) word filename_v4088; word createDate_v4116; word voiceList_v4144; word commentary_v4172; { register ptr gf_c19392 = (ptr) &globalframe; word nextVoice_v4676 = 0; word startOfID_v4704 = 1; word endOfID_v4732; /* RegisterFileInterests: */ SOURCE(3222, 1167) SOURCE(3404, 52) SOURCE(1065, 51) if ((commentary_v4172 != 0)) { SOURCE(1090, 26) { word pd57; pd57 = (* (( (ptr) (* (( (ptr) gf_c19392)+54)/* var_c18368 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd57 ))))(commentary_v4172, (* (( (ptr) gf_c19392)+22) ), 0, 2147483647, pd57); }; }; SOURCE(3459, 930) { word pd58; word pd60; pd58 = (* (( (ptr) (* (( (ptr) gf_c19392)+58)/* var_c18656 */ ))+14) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd58 ))))(voiceList_v4144, pd58) <= (int)0)) { goto then059;}; pd60 = (* (( (ptr) (* (( (ptr) gf_c19392)+58)/* var_c18656 */ ))+9) ); if (((word) ( *( (fPt) ((* (ptr) pd60 ))))(voiceList_v4144, 0, pd60) != 38)) { then059: ; SOURCE(3524, 5) (void) XR_RaiseUnnamedError(); }; }; SOURCE(3532, 857) lab_L100012: ; SOURCE(3535, 854) { word pd61; pd61 = (* (( (ptr) (* (( (ptr) gf_c19392)+58)/* var_c18656 */ ))+11) ); endOfID_v4732 = (word) ( *( (fPt) ((* (ptr) pd61 ))))(voiceList_v4144, (* (( (ptr) gf_c19392)+23) ), startOfID_v4704, 1, pd61) ; }; SOURCE(3578, 811) { word pd62; pd62 = (* (( (ptr) (* (( (ptr) gf_c19392)+58)/* var_c18656 */ ))+17) ); nextVoice_v4676 = (word) ( *( (fPt) ((* (ptr) pd62 ))))(voiceList_v4144, startOfID_v4704, ( ( (int)endOfID_v4732 == (int) (word) -1) ? 2147483647 : (endOfID_v4732 - startOfID_v4704) ) , pd62) ; }; SOURCE(3678, 29) { word pd63; pd63 = (* (( (ptr) (* (( (ptr) gf_c19392)+58)/* var_c18656 */ ))+14) ); if (( (int)(word) ( *( (fPt) ((* (ptr) pd63 ))))(nextVoice_v4676, pd63) == (int)0)) { SOURCE(3707, 5) (void) XR_RaiseUnnamedError(); }; }; SOURCE(3715, 674) { word var_c18688; word var_c18752; { word var_c18720; var_c18720 = XR_NewObject(12, (* (( (ptr) gf_c19392)+9) )); (* (ptr) var_c18720 ) = nextVoice_v4676; var_c18688 = var_c18720; }; { word var_c18784; { word pd64; pd64 = (* (( (ptr) (* (( (ptr) gf_c19392)+59)/* var_c18816 */ ))+33) ); var_c18784 = (word) ( *( (fPt) ((* (ptr) pd64 ))))(createDate_v4116, 0, 4, 0, 1, 1, pd64); }; { word pd65; pd65 = (* (( (ptr) (* (( (ptr) gf_c19392)+58)/* var_c18656 */ ))+5) ); var_c18752 = (word) ( *( (fPt) ((* (ptr) pd65 ))))(filename_v4088, (* (( (ptr) gf_c19392)+26) ), var_c18784, 0, 0, pd65) ; }; }; { word pd66; pd66 = (* (( (ptr) (* (( (ptr) gf_c19392)+61)/* var_c18880 */ ))+16) ); (void) ( *( (fPt) ((* (ptr) pd66 ))))((* (ptr) (* (( (ptr) (* (( (ptr) gf_c19392)+60)/* var_c18848 */ ))+6) ) ), var_c18688, (* ( ( (ptr) gf_c19392)+25) ), var_c18752, 0, pd66); }; }; SOURCE(3914, 33) SOURCE(1065, 51) if ((commentary_v4172 != 0)) { SOURCE(1090, 26) { word pd67; pd67 = (* (( (ptr) (* (( (ptr) gf_c19392)+54)/* var_c18368 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd67 ))))(commentary_v4172, nextVoice_v4676, 0, 2147483647, pd67); }; }; SOURCE(3949, 28) SOURCE(1065, 51) if ((commentary_v4172 != 0)) { SOURCE(1090, 26) { word pd68; pd68 = (* (( (ptr) (* (( (ptr) gf_c19392)+54)/* var_c18368 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd68 ))))(commentary_v4172, (* (( (ptr) gf_c19392)+27) ), 0, 2147483647, pd68); }; }; SOURCE(3980, 27) if (( (int)endOfID_v4732 == (int) (word) -1)) { SOURCE(4001, 6) return; }; SOURCE(4009, 32) startOfID_v4704 = (endOfID_v4732 + 1); goto lab_L100012; } static void RegisterVoiceInterestCmd_P420(formal_c089, formal_c0155) word formal_c089; word formal_c0155; { W6 var_c19424; /* declaration of cmd_v13792 skipped */ register ptr gf_c19456 = (ptr) &globalframe; word result_v13836; /* declaration of msg_v13864 skipped */ var_c19424.f4/* cmd_v13792 */ = formal_c0155; /* RegisterVoiceInterestCmd: */ SOURCE(4045, 513) SOURCE(4045, 513) result_v13836 = 0; SOURCE(4045, 513) var_c19424.f5/* msg_v13864 */ = 0; SOURCE(4097, 461) SOURCE(4099, 428) { word var_c07; { word var_c0146; var_c0146 = (word) &var_c19424; var_c07 = (word) XR_Enable(( ((word) (fPt) NoName_Q1368) ), ( ((word) (fPt) NoName_Q1488) ), var_c0146); }; if ((var_c07 == 3)) { goto lab_L100014; }; }; goto lab_L100019; lab_L100014: ; SOURCE(4535, 23) result_v13836 = (* (( (ptr) gf_c19456)+30) ); /* removed bogus assignment */ goto lab_L100013; lab_L100019: ; /* removed tail goto */ lab_L100013: ; (* (ptr) formal_c089 ) = result_v13836; (* (( (ptr) formal_c089)+1) ) = var_c19424.f5/* msg_v13864 */ ; return; } static word NoName_Q1368(formal_c0137) word formal_c0137; { W6 var_c0153; register ptr gf_c0136 = (ptr) &globalframe; var_c0153.f0 = formal_c0137; SOURCE(4284, 33) { word argv_v4776 = 0; SOURCE(4319, 70) { /* declaration of var_c04 skipped */ var_c0153.f4/* var_c04 */ = (* (( (ptr) (* (( (ptr) gf_c0136)+62)/* var_c18912 */ ))+6) ); { /* declaration of var_c05 skipped */ { word var_c06; { word var_c0147; var_c0147 = (word) &var_c0153; var_c06 = (word) XR_Enable(( ((word) (fPt) NoName_Q1428) ), ( ((word) (fPt) NoName_Q1548) ), var_c0147); }; if ((var_c06 == 3)) { return(3); }; }; argv_v4776 = var_c0153.f5/* var_c05 */ ; }; }; SOURCE(4404, 67) if (((* (ptr) argv_v4776 ) != 2)) { SOURCE(4428, 43) (* (( (ptr) formal_c0137)+5) ) = (* (( (ptr) gf_c0136)+29) ); SOURCE(4473, 9) return(3); }; SOURCE(4487, 40) { word limit69; (void) DoFileInterests_P120((* ((( (ptr) argv_v4776)+1)+( limit69 = (* (ptr) argv_v4776 ), BCK(1, limit69) )) ), (* (( (ptr) (* (( (ptr) formal_c0137)+4) ))+1) )); }; }; return(0); } static word NoName_Q1428(formal_c0138) word formal_c0138; { SOURCE(4319, 70) { word pd70; pd70 = (* (( (ptr) formal_c0138)+4) ); (* (( (ptr) formal_c0138)+5) ) = (word) ( *( (fPt) ((* (ptr) pd70 ))))((* (( (ptr) (* (ptr) formal_c0138 ))+4) ), 0, pd70) ; }; return(0); } static void BackgroundCommentaryInit_P480(formal_c094, cmd_v13924) word formal_c094; word cmd_v13924; { register ptr gf_c19488 = (ptr) &globalframe; word result_v13968; word msg_v13996; /* BackgroundCommentaryInit: */ SOURCE(4563, 83) SOURCE(4563, 83) result_v13968 = 0; SOURCE(4563, 83) msg_v13996 = 0; SOURCE(4615, 31) (* (( (ptr) gf_c19488)+4)/* backgroundCommentary_v3140 */ ) = (* (( (ptr) cmd_v13924)+1) ); /* removed tail goto */ (* (ptr) formal_c094 ) = result_v13968; (* (( (ptr) formal_c094)+1) ) = msg_v13996; return; } static void RegisterViewerInterests_P540(viewer_v4232, voiceList_v4260) word viewer_v4232; word voiceList_v4260; { register ptr gf_c19520 = (ptr) &globalframe; word eventReg_v4820 = 0; /* RegisterViewerInterests: */ SOURCE(4650, 443) SOURCE(4786, 89) if ((voiceList_v4260 == 0)) { SOURCE(4810, 57) SOURCE(1065, 51) if (((* (( (ptr) gf_c19520)+4)/* backgroundCommentary_v3140 */ ) != 0)) { SOURCE(1090, 26) { word pd71; pd71 = (* (( (ptr) (* (( (ptr) gf_c19520)+54)/* var_c18368 */ ))+93) ); (void) ( *( (fPt) ((* (ptr) pd71 ))))((* (( (ptr) gf_c19520)+4)/* backgroundCommentary_v3140 */ ), (* (( (ptr) gf_c19520)+14) ), 0, 2147483647, pd71); }; }; SOURCE(4869, 6) return; }; SOURCE(4880, 48) { word pd72; pd72 = (* (( (ptr) (* (( (ptr) gf_c19520)+63)/* var_c18976 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd72 ))))(viewer_v4232, (* (( (ptr) gf_c19520)+31) ), voiceList_v4260, pd72); }; SOURCE(4930, 110) { word pd73; pd73 = (* (( (ptr) (* (( (ptr) gf_c19520)+64)/* var_c19008 */ ))+4) ); eventReg_v4820 = (word) ( *( (fPt) ((* (ptr) pd73 ))))((word) (( (bPt) gf_c19520)+132)/* var_c17984 */ , 0, viewer_v4232, 0, pd73) ; }; SOURCE(5042, 51) { word pd74; pd74 = (* (( (ptr) (* (( (ptr) gf_c19520)+63)/* var_c18976 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd74 ))))(viewer_v4232, (* (( (ptr) gf_c19520)+32) ), eventReg_v4820, pd74); }; } static word DoViewerInterests_P600(viewer_v14056, event_v14084, before_v14112) word viewer_v14056; word event_v14084; word before_v14112; { register ptr gf_c19552 = (ptr) &globalframe; word abort_v14156; word globalName_v4864 = 0; word voiceList_v4892 = 0; word createDate_v4920; /* DoViewerInterests: */ SOURCE(5099, 558) SOURCE(5099, 558) abort_v14156 = 0; SOURCE(5224, 80) { W2 var_c19040; (void) GetFileNameAndDate_P180((word) &var_c19040, (* (( (ptr) viewer_v14056)+14) ), (* (( (ptr) gf_c19552)+4)/* backgroundCommentary_v3140 */ )) ; createDate_v4920 = var_c19040.f1; globalName_v4864 = var_c19040.f0; }; SOURCE(5306, 59) { word var_c19072; { word pd75; pd75 = (* (( (ptr) (* (( (ptr) gf_c19552)+63)/* var_c18976 */ ))+29) ); var_c19072 = XR_Narrow((word) ( *( (fPt) ((* (ptr) pd75 ))))(viewer_v14056, (* (( (ptr) gf_c19552)+31) ), pd75), (* (( (ptr) gf_c19552)+7) )); }; if ((var_c19072 == 0)) { goto lab_L100021; }; if (((*(int*)var_c19072<0) == 0)) { goto lab_L100021; }; (void) XR_RaiseError(XR_NarrowFault, 0); lab_L100021: ; voiceList_v4892 = var_c19072; }; SOURCE(5367, 100) if ((voiceList_v4892 != 0)) { SOURCE(5389, 78) (void) RegisterFileInterests_P360(globalName_v4864, createDate_v4920, voiceList_v4892, (* (( (ptr) gf_c19552)+4)/* backgroundCommentary_v3140 */ )) ; }; SOURCE(5469, 42) { word pd76; pd76 = (* (( (ptr) (* (( (ptr) gf_c19552)+63)/* var_c18976 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd76 ))))(viewer_v14056, (* (( (ptr) gf_c19552)+31) ), 0, pd76); }; SOURCE(5513, 96) { word var_c19104; { word pd77; pd77 = (* (( (ptr) (* (( (ptr) gf_c19552)+63)/* var_c18976 */ ))+29) ); var_c19104 = (word) ( *( (fPt) ((* (ptr) pd77 ))))(viewer_v14056, (* (( (ptr) gf_c19552)+32) ), pd77); }; { word pd78; pd78 = (* (( (ptr) (* (( (ptr) gf_c19552)+64)/* var_c19008 */ ))+5) ); (void) ( *( (fPt) ((* (ptr) pd78 ))))(var_c19104, 0, pd78); }; }; SOURCE(5611, 46) { word pd79; pd79 = (* (( (ptr) (* (( (ptr) gf_c19552)+63)/* var_c18976 */ ))+28) ); (void) ( *( (fPt) ((* (ptr) pd79 ))))(viewer_v14056, (* (( (ptr) gf_c19552)+32) ), 0, pd79); }; SOURCE(5099, 558) return(abort_v14156); } static void NoName_Q1488(formal_c0114, formal_c200004, formal_c200005, formal_c200006, formal_c200007) word formal_c0114; word formal_c200004; word formal_c200005; word formal_c200006; word formal_c200007; { register ptr gf_c0142 = (ptr) &globalframe; if ((formal_c200005 == (* (ptr) (* (( (ptr) (* (( (ptr) gf_c0142)+55)/* var_c18400 */ ))+4) ) ))) { { W4 error_v17076; error_v17076 = (* (W4Pt) formal_c200007 ); SOURCE(4120, 63) if ((error_v17076.f0 != 4)) { /* removed tail goto */ } else { SOURCE(4160, 23) (* (( (ptr) formal_c200004)+5) ) = error_v17076.f2; SOURCE(4185, 9) (* (ptr) formal_c0114 ) = 2; (* (( (ptr) formal_c0114)+1) ) = 3; return; }; }; } else { if ((formal_c200005 == (* (( (ptr) gf_c0142)+5)/* LocalFile_v3196 */ ))) { SOURCE(4211, 55) (* (( (ptr) formal_c200004)+5) ) = (* (( (ptr) gf_c0142)+28) ); SOURCE(4268, 9) (* (ptr) formal_c0114 ) = 2; (* (( (ptr) formal_c0114)+1) ) = 3; return; }; }; (* (ptr) formal_c0114 ) = 0; (* (( (ptr) formal_c0114)+1) ) = 0; return; } static void NoName_Q1548(formal_c0120, formal_c200008, formal_c200009, formal_c200010, formal_c200011) word formal_c0120; word formal_c200008; word formal_c200009; word formal_c200010; word formal_c200011; { register ptr gf_c0143 = (ptr) &globalframe; if ((formal_c200009 == (* (( (ptr) (* (( (ptr) gf_c0143)+62)/* var_c18912 */ ))+4) ))) { { word errorMsg_v17184; errorMsg_v17184 = (* (ptr) formal_c200011 ); SOURCE(4375, 14) (* (( (ptr) (* (ptr) formal_c200008 ))+5) ) = errorMsg_v17184; SOURCE(4391, 9) (* (ptr) formal_c0120 ) = 2; (* (( (ptr) formal_c0120)+1) ) = 3; return; }; }; (* (ptr) formal_c0120 ) = 0; (* (( (ptr) formal_c0120)+1) ) = 0; return; } static void NoName_Q1608(formal_c0126, formal_c200000, formal_c200001, formal_c200002, formal_c200003) word formal_c0126; word formal_c200000; word formal_c200001; word formal_c200002; word formal_c200003; { register ptr gf_c0144 = (ptr) &globalframe; if ((formal_c200001 == (* (ptr) (* (( (ptr) (* (( (ptr) gf_c0144)+55)/* var_c18400 */ ))+4) ) ))) { { W4 error_v16688; error_v16688 = (* (W4Pt) formal_c200003 ); SOURCE(1932, 10) (* (ptr) formal_c0126 ) = 2; (* (( (ptr) formal_c0126)+1) ) = 2; return; }; }; (* (ptr) formal_c0126 ) = 0; (* (( (ptr) formal_c0126)+1) ) = 0; return; } /* file: VoiceInterestImpl, module: VoiceInterestImpl, compiled at: June 7, 1992 11:36:35 am PDT */ extern void XR_install_VoiceInterestImpl() { NoName_Q1248(); } extern void XR_run_VoiceInterestImpl() { XR_Start(&globalframe); }