<> <> <> <> <> <> <<>> DIRECTORY FeedbackTypes, Interpress, Rope; GGFileOps: CEDAR DEFINITIONS = BEGIN MsgRouter: TYPE = FeedbackTypes.MsgRouter; <> GetGenericFileName: PROC [opRope, fileName, wDir, defaultExt: Rope.ROPE, illegalExts: LIST OF Rope.ROPE, router: MsgRouter, emergency: BOOL _ FALSE] RETURNS [fullName: Rope.ROPE _ NIL, success: BOOL _ TRUE, versionSpecified: BOOL _ FALSE]; <> FNameToGName: PROC [name: Rope.ROPE] RETURNS [Rope.ROPE]; <Users>Bier.pa>Gargoyle>Foo" into a global name like "[QueenFish]Users>Bier.pa>Gargoyle>Foo".>> FilenameMinusExtension: PROC [wholeName: Rope.ROPE] RETURNS [firstPart: Rope.ROPE]; <> GetInterpressFileName: PROC [opRope, ipName: Rope.ROPE, currentWDir: Rope.ROPE, router: MsgRouter] RETURNS [fullName: Rope.ROPE _ NIL, success: BOOL _ TRUE]; <<[fullName, success, ----] _ GetGenericFileName[opRope, ipName, currentWDir, "IP", LIST["gargoyle", "script", "mesa", "tioga"], feedback];>> GetGargoyleFileName: PROC [opRope, ggName: Rope.ROPE, currentWDir: Rope.ROPE, router: MsgRouter, emergency: BOOL _ FALSE] RETURNS [fullName: Rope.ROPE _ NIL, success: BOOL _ TRUE, versionSpecified: BOOL _ FALSE]; <<[fullName, success, versionSpecified] _ GetGenericFileName[opRope, ggName, currentWDir, "gargoyle", LIST["IP", "interpress", "script", "mesa", "tioga"], feedback, emergency];>> GetScriptFileName: PROC [opRope, scriptName: Rope.ROPE, currentWDir: Rope.ROPE, router: MsgRouter] RETURNS [fullName: Rope.ROPE _ NIL, success: BOOL _ TRUE]; <<[fullName, success, ----] _ GetGenericFileName[opRope, scriptName, currentWDir, "script", LIST["gargoyle", "IP", "interpress", "mesa", "tioga"], feedback];>> <> OpenInterpressOrComplain: PROC [opRope: Rope.ROPE, router: MsgRouter, fullName: Rope.ROPE] RETURNS [ipMaster: Interpress.Master, success: BOOL]; END.