DIRECTORY Ascii USING [Lower], Commander USING [CommandProc, Register, Handle], CommandTool USING [ArgumentVector, Parse, Failed], DFInternal, DFOperations, IO USING [int, STREAM, PutF, PutFR, rope], Rope USING [Compare, Concat, Fetch, Find, Length, ROPE, Substr]; DFCommands: CEDAR PROGRAM IMPORTS Ascii, Commander, CommandTool, DFInternal, DFOperations, IO, Rope = BEGIN ROPE: TYPE = Rope.ROPE; STREAM: TYPE = IO.STREAM; DoBringover: Commander.CommandProc = { argv: CommandTool.ArgumentVector _ NIL; i: NAT _ 1; oSwitch: BOOL _ FALSE; selectedFileAdded: BOOL; dfFile: ROPE; filter: DFOperations.BringOverFilter _ [ filterA: $all, filterB: $all, filterC: $all, list: NIL ]; action: DFOperations.BringOverAction _ $enter; { -- interpret the command line, modifying dfFile, filter, action argv _ CommandTool.Parse[cmd ! CommandTool.Failed => { msg _ errorMsg; CONTINUE; }]; IF argv = NIL OR argv.argc < 2 THEN RETURN[$Failure, bringoverHelpText]; DO { IF i = argv.argc - 1 THEN EXIT; IF oSwitch THEN { IF argv[i].Length[] = 0 THEN GOTO fileNameSyntaxError; IF argv[i].Fetch[0] = '- THEN { IF selectedFileAdded THEN oSwitch _ FALSE ELSE GOTO oSwitchSyntaxError } ELSE { filter.list _ CONS[argv[i], filter.list]; selectedFileAdded _ TRUE; GOTO nextArg } }; IF argv[i].Length[] # 2 OR argv[i].Fetch[0] # '- THEN GOTO switchSyntaxError; SELECT Ascii.Lower[argv[i].Fetch[1]] FROM 'b => filter.filterA _ $derived; 'f => action _ $fetch; 'o => { oSwitch _ TRUE; selectedFileAdded _ FALSE }; 'p => filter.filterB _ $public; 'r => filter.filterC _ $imported; 's => filter.filterA _ $source; 'v => action _ $check; 'w => filter.filterC _ $defining; ENDCASE => GOTO switchSyntaxError; GOTO nextArg EXITS nextArg => i _ i.SUCC } ENDLOOP; IF oSwitch AND NOT selectedFileAdded THEN GOTO oSwitchSyntaxError; dfFile _ CompleteDFFileName[argv[i]]; EXITS fileNameSyntaxError => RETURN[ $Failure, IO.PutFR["Illegal file name: \"%g\"\n", IO.rope[argv[i]]]]; switchSyntaxError => RETURN[ $Failure, IO.PutFR["Unrecognized switch: \"%g\"\n", IO.rope[argv[i]]]]; oSwitchSyntaxError => RETURN[ $Failure, "No list-of-selected-files following \"o\" switch"]; }; { -- do the Bringover errors, warnings, filesActedUpon: INT; [errors, warnings, filesActedUpon] _ DFOperations.BringOver[ dfFile: dfFile, filter: filter, action: action, interact: DFInternal.DefaultInteractionProc, clientData: NIL, log: cmd.out]; IF errors + warnings > 0 THEN cmd.out.PutF["%g errors, %g warnings, %g files acted upon\n", IO.int[errors], IO.int[warnings], IO.int[filesActedUpon]] ELSE cmd.out.PutF["%g files acted upon\n", IO.int[filesActedUpon]]; RETURN[NIL, NIL] } }; DoSModel: Commander.CommandProc = { argv: CommandTool.ArgumentVector _ NIL; i: NAT _ 1; dfFile: ROPE; action: DFOperations.SModelAction _ [remoteCheck: TRUE, storeChanged: TRUE]; { -- interpret the command line, modifying dfFile, action argv _ CommandTool.Parse[cmd ! CommandTool.Failed => { msg _ errorMsg; CONTINUE; }]; IF argv = NIL OR argv.argc < 2 THEN RETURN[$Failure, smodelHelpText]; DO IF i = argv.argc - 1 THEN EXIT; IF argv[i].Length[] # 2 OR argv[i].Fetch[0] # '- THEN GOTO switchSyntaxError; SELECT Ascii.Lower[argv[i].Fetch[1]] FROM 'd => action.remoteCheck _ FALSE; 'n => action.storeChanged _ FALSE; ENDCASE => GOTO switchSyntaxError; i _ i.SUCC ENDLOOP; dfFile _ CompleteDFFileName[argv[i]]; EXITS switchSyntaxError => RETURN[ $Failure, IO.PutFR["Unrecognized switch: \"%g\"\n", IO.rope[argv[i]]]]; }; { -- do the SModel errors, warnings, filesActedUpon: INT; [errors, warnings, filesActedUpon] _ DFOperations.SModel[ dfFile: dfFile, action: action, interact: DFInternal.DefaultInteractionProc, clientData: NIL, log: cmd.out]; IF errors + warnings > 0 THEN cmd.out.PutF["%g errors, %g warnings, %g files acted upon\n", IO.int[errors], IO.int[warnings], IO.int[filesActedUpon]] ELSE cmd.out.PutF["%g files acted upon\n", IO.int[filesActedUpon]]; RETURN[NIL, NIL] } }; DoVerifyDF: Commander.CommandProc = { argv: CommandTool.ArgumentVector _ NIL; dfFile: ROPE; { -- interpret the command line, modifying dfFile argv _ CommandTool.Parse[cmd ! CommandTool.Failed => { msg _ errorMsg; CONTINUE; }]; IF argv = NIL OR argv.argc # 2 THEN RETURN[$Failure, verifydfHelpText]; dfFile _ CompleteDFFileName[argv[1]]; }; { -- do the VerifyDF errors, warnings, filesActedUpon: INT; [errors, warnings, filesActedUpon] _ DFOperations.Verify[ dfFile: dfFile, interact: DFInternal.DefaultInteractionProc, clientData: NIL, log: cmd.out]; IF errors + warnings > 0 THEN cmd.out.PutF["%g errors, %g warnings, %g files acted upon\n", IO.int[errors], IO.int[warnings], IO.int[filesActedUpon]] ELSE cmd.out.PutF["%g files acted upon\n", IO.int[filesActedUpon]]; RETURN[NIL, NIL] } }; CompleteDFFileName: PROC [dfFileName: ROPE] RETURNS [ROPE] = { length: INT = dfFileName.Length[]; IF length < 4 OR (Rope.Compare[Rope.Substr[dfFileName, length - 3, 3], ".df", FALSE] # equal AND Rope.Find[dfFileName, "!"] = -1) THEN RETURN[Rope.Concat[dfFileName, ".df"]] ELSE RETURN[dfFileName]; }; bringoverHelpText: ROPE = "Usage: Bringover {-p (access: public),\n\t-s (origin: source), -b (origin: derived),\n\t-r (reference: imported), -w (reference: defining),\n\t-v (action: check), -f (action: fetch),\n\t-o list-of-files (selected files: list-of-files)} dfFile\nUnless changed by switches, Bringover uses (Auto-Confirm: yes, access: all, origin: all, reference: all, selected files: (no filtering), action: enter).\n"; smodelHelpText: ROPE = "Usage: SModel {-d (Check on server: no),\n\t-n (Store changed files: no)} dfFile\nUnless changed by switches, SModel uses (Auto-Confirm: yes, Check existence on server: yes, Store changed files: yes).\n"; verifydfHelpText: ROPE = "Usage: VerifyDF dfFile\nVerifyDF uses (Auto-Confirm: yes).\n"; Commander.Register["Bringover", DoBringover, bringoverHelpText]; Commander.Register["SModel", DoSModel, smodelHelpText]; Commander.Register["VerifyDF", DoVerifyDF, verifydfHelpText]; END. :DFCommands.mesa last edited by vanLeunen on December 19, 1983 11:40 am PROC [cmd: Commander.Handle] RETURNS [result: REF _ NIL, msg: Rope.ROPE _ NIL] PROC [cmd: Commander.Handle] RETURNS [result: REF _ NIL, msg: Rope.ROPE _ NIL] PROC [cmd: Commander.Handle] RETURNS [result: REF _ NIL, msg: Rope.ROPE _ NIL] ‌تجکJڑœ™Jڑœ6™6unitڑدk ک Jڑœ‌œ کJڑœ ‌œ!ک0Jڑœ‌œ!ک2JڑœکJڑœ ک Jڑ‌œ‌œ‌œک*Jڑœ‌œ(‌œ ک@—ڑœ‌œ‌کJڑ‌œ:‌œکI—Kڑœ‌کJڑ‌œ‌œ‌œکJڑ‌œ‌œ‌œ‌œکڑدbœک&Jڑ‌œ‌œ ‌œ‌œ‌œ‌œ™NKڑœ#‌œک'Jڑœ‌œکJڑœ ‌œ‌œکJڑœ‌œکKڑœ‌œک ڑœ(ک(JڑœکJکJکJڑœ‌ک Jک—Jڑœ.ک.ڑœدc?کAJڑœH‌œکUJڑ ‌œ‌œ‌œ‌œ‌œکHڑ‌œکJڑ‌œ‌œ‌œکڑ‌œ ‌œکJڑ‌œ‌œ‌œک6ڑ‌œ‌œکJڑ ‌œ‌œ‌œ‌œ‌œکFJک—ڑ‌œکJڑœ‌œک)Jڑœ‌œکJڑ‌œکJک—Jک—Jڑ‌œ‌œ‌œ‌œکMڑ‌œ‌ک)Jک JڑœکJڑœ‌œ‌œک5JڑœکJک!JکJڑœکJک!Jڑ‌œ‌œک#—Jڑ‌œکJڑ‌œ‌œکJڑ‌œک—Jڑ ‌œ ‌œ‌œ‌œ‌œکBJڑœ%ک%ڑ‌کڑœ‌œکJڑœ ‌œ&‌œکE—ڑœ‌œکJڑœ ‌œ(‌œکG—ڑœ‌œکJڑœ>ک>——Jک—ڑœںکJڑœ"‌œک&ڑœ<ک—Jڑ‌œ‌œ‌œکJک—Jڑœک—ڑ‍œک#Jڑ‌œ‌œ ‌œ‌œ‌œ‌œ™NKڑœ#‌œک'Jڑœ‌œکKڑœ‌œک Jڑœ2‌œ‌œکLڑœں7ک9JڑœH‌œکUJڑ ‌œ‌œ‌œ‌œ‌œکEڑ‌کJڑ‌œ‌œ‌œکJڑ‌œ‌œ‌œ‌œکMڑ‌œ‌ک)Jڑœ‌œک!Jڑœ‌œک"Jڑ‌œ‌œک#—Jڑœ‌ک Jڑ‌œک—Jڑœ%ک%ڑ‌کڑœ‌œکJڑœ ‌œ(‌œکG——Jک—ڑœںکJڑœ"‌œک&ڑœ9ک9JڑœکJڑœ9‌œکL—ڑ‌œ‌کڑœ=ک=Jڑ‌œ‌œ‌œک9——ڑ‌کJڑœ&‌œک>—Jڑ‌œ‌œ‌œکJک—Jڑœک—ڑ‍ œک%Jڑ‌œ‌œ ‌œ‌œ‌œ‌œ™NKڑœ#‌œک'Kڑœ‌œک ڑœں/ک1JڑœH‌œکUJڑ ‌œ‌œ‌œ‌œ‌œکGJڑœ%ک%Jک—ڑœںکJڑœ"‌œک&ڑœ9ک9JڑœکJڑœ9‌œکL—ڑ‌œ‌کڑœ=ک=Jڑ‌œ‌œ‌œک9——ڑ‌کJڑœ&‌œک>—Jڑ‌œ‌œ‌œکJک—Jڑœک—ڑ دnœ‌œ‌œ‌œ‌œک>Jڑœ‌œک"ڑ‌œ‌œ>‌œ ک\Jڑ‌œ!ک$Jڑ‌œ‌œ ک+—Jڑ‌œ‌œ کJک—Kڑœ‌œ”ک«Kڑœ‌œذکنKڑœ‌œBکXKڑœ@ک@Kڑœ7ک7Kڑœ=ک=Kڑ‌œکJک—…—28