SearchForward DoSubstitute ClearSearchFor "xxx" ClearReplaceBy "xxx" SearchFor ReplaceBy SetMesaLooks MatchText IgnoreText MatchLooks IgnoreLooks IgnoreCase MatchCase MatchLiterally MatchPattern ChangeInitCap LeaveInitCap SubstituteInSel SubstituteAfterSel SubstituteInEntireDoc MatchWords MatchNodes MatchAnywhere EqualLooksTest SubsetLooksTest DoOperations DoReplace DoTiogaOps ClearSearchFor "{:}~%" ClearReplaceBy ": " IgnoreLooks MatchPattern LeaveInitCap MatchAnywhere DoReplace DoSubstitute ClearSearchFor "{,}@" ClearReplaceBy ", " IgnoreLooks MatchPattern LeaveInitCap MatchAnywhere DoReplace DoSubstitute ClearSearchFor "~%{_}~%" ClearReplaceBy " _ " IgnoreLooks MatchPattern LeaveInitCap MatchAnywhere DoReplace DoSubstitute ClearSearchFor "PROCEDURE" SetMesaLooks ClearReplaceBy "PROC" SetMesaLooks MatchLooks MatchLiterally LeaveInitCap MatchWords DoReplace DoSubstitute ClearSearchFor "BOOLEAN" SetMesaLooks ClearReplaceBy "BOOL" SetMesaLooks MatchLooks MatchLiterally LeaveInitCap MatchWords DoReplace DoSubstitute MatchLooks MatchLiterally LeaveInitCap MatchWords DoReplace ClearSearchFor "BEGIN" SetMesaLooks ClearReplaceBy "{" DoSubstitute ClearSearchFor "END" SetMesaLooks ClearReplaceBy "}" DoSubstitute SelectMatchingCurlyBrackets Nest CaretBefore Join " " SetMesaLooks SelectMatchingCurlyBrackets SaveSelectionA CaretBefore MakePointSelection 1 DeleteNextChar "BEGIN" SetMesaLooks RestoreSelectionA CaretAfter MakePointSelection 1 BackSpace "END" SetMesaLooks ClearSearchFor "{:}~%" ClearReplaceBy ": " IgnoreLooks MatchPattern LeaveInitCap MatchAnywhere DoReplace DoSubstitute ClearSearchFor "{,}@" ClearReplaceBy ", " IgnoreLooks MatchPattern LeaveInitCap MatchAnywhere DoReplace DoSubstitute ClearSearchFor "~%{_}~%" ClearReplaceBy " _ " IgnoreLooks MatchPattern LeaveInitCap MatchAnywhere DoReplace DoSubstitute ClearSearchFor "PROCEDURE" SetMesaLooks ClearReplaceBy "PROC" SetMesaLooks MatchLooks MatchLiterally LeaveInitCap MatchWords DoReplace DoSubstitute ClearSearchFor "BOOLEAN" SetMesaLooks ClearReplaceBy "BOOL" SetMesaLooks MatchLooks MatchLiterally LeaveInitCap MatchWords DoReplace DoSubstitute MatchLooks MatchLiterally LeaveInitCap MatchWords DoReplace ClearSearchFor "BEGIN" SetMesaLooks ClearReplaceBy "{" DoSubstitute ClearSearchFor "END" SetMesaLooks ClearReplaceBy "}" DoSubstitute SelectMatchingCurlyBrackets SaveSelectionA CaretBefore MakePointSelection 1 DeleteNextChar "BEGIN" SetMesaLooks RestoreSelectionA CaretAfter MakePointSelection 1 BackSpace "END" SetMesaLooks SelectMatchingCurlyBrackets Nest CaretBefore Join " " SetMesaLooks ClearSearchFor ": FROM \"&\"" ClearReplaceBy "" IgnoreLooks MatchCase MatchPattern MatchAnywhere DoSubstitute CaretBefore MakePointSelection Break 1 GoToNextNode Nest 1 GoToNextNode Nest Everything CaretBefore MakePointSelection SaveSelectionA ClearSearchFor "{&&}: PROGRAM" IgnoreLooks MatchCase MatchPattern MatchAnywhere SearchForward SaveForPaste RestoreSelectionA Paste ".mesa" Break Nest "Copyright (C) 1981, 1984 Xerox Corporation. All rights reserved." Break 1 GoToNextNode Nest GrowSelection GrowSelection GrowSelection CaretAfter Break "Edited by Doug Wyatt, " Time 1 GoToNextNode Nest ClearSearchFor ": FROM \"&\"" ClearReplaceBy "" DoSubstitute RestoreSelectionA ClearSearchFor "PROGRAM" MatchLiterally SearchForward CaretBefore "CEDAR " SetMesaLooks ClearSearchFor "{" SearchForward 1 GoToNextChar SelectMatchingCurlyBrackets SaveSelectionA CaretBefore MakePointSelection 1 DeleteNextChar "BEGIN" SetMesaLooks RestoreSelectionA CaretAfter MakePointSelection 1 BackSpace "END" SetMesaLooks ClearSearchFor "{:}~%" ClearReplaceBy ": " IgnoreLooks MatchPattern LeaveInitCap MatchAnywhere DoReplace DoSubstitute ClearSearchFor "{,}@" ClearReplaceBy ", " IgnoreLooks MatchPattern LeaveInitCap MatchAnywhere DoReplace DoSubstitute ClearSearchFor "~%{_}~%" ClearReplaceBy " _ " IgnoreLooks MatchPattern LeaveInitCap MatchAnywhere DoReplace DoSubstitute ClearSearchFor "PROCEDURE" SetMesaLooks ClearReplaceBy "PROC" SetMesaLooks MatchLooks MatchLiterally LeaveInitCap MatchWords DoReplace DoSubstitute ClearSearchFor "BOOLEAN" SetMesaLooks ClearReplaceBy "BOOL" SetMesaLooks MatchLooks MatchLiterally LeaveInitCap MatchWords DoReplace DoSubstitute MatchLooks MatchLiterally LeaveInitCap MatchWords DoReplace ClearSearchFor "BEGIN" SetMesaLooks ClearReplaceBy "{" DoSubstitute ClearSearchFor "END" SetMesaLooks ClearReplaceBy "}" DoSubstitute Everything CaretBefore MakePointSelection SaveSelectionA ClearSearchFor "{&&}: PROGRAM" IgnoreLooks MatchCase MatchPattern MatchAnywhere SearchForward SaveForPaste RestoreSelectionA Paste ".mesa" Break Nest "Copyright (C) 1983, 1984 Xerox Corporation. All rights reserved." Break 1 GoToNextNode Nest GrowSelection GrowSelection GrowSelection CaretAfter Break "Edited by Doug Wyatt, " Time 1 GoToNextNode Nest ClearSearchFor ": FROM \"&\"" ClearReplaceBy "" DoSubstitute RestoreSelectionA ClearSearchFor "PROGRAM" MatchLiterally SearchForward CaretBefore "CEDAR " SetMesaLooks ClearSearchFor "{" SearchForward 1 GoToNextChar SelectMatchingCurlyBrackets SaveSelectionA CaretBefore MakePointSelection 1 DeleteNextChar "BEGIN" SetMesaLooks RestoreSelectionA CaretAfter MakePointSelection 1 BackSpace "END" SetMesaLooks āEditCommands.cm Put space after : Put space after , Put spaces around _ Change PROCEDURE to PROC Change BOOLEAN to BOOL Change BEGIN END to { } Nest procedure body Change { } to BEGIN END (for module body) Put space after : Put space after , Put spaces around _ Change PROCEDURE to PROC Change BOOLEAN to BOOL Change BEGIN END to { } Change { } to BEGIN END (for module body) Nest procedure body Remove : FROM "..." Fix up module header Fix up module header Clean up module Ź‹˜Jšœ™J˜J˜J˜J˜*J˜ J˜J˜J˜J˜J˜J˜J˜J˜8J˜$J˜J˜J˜J˜ J˜™Jšœu˜u—™Jšœt˜t—™Jšœx˜x—šœĻk œ™Jšœ“˜“—šœœ™Jšœ‘˜‘—šœœœ™JšœĮ˜Į—™J˜B—šœœœ™)J˜¾—J˜J™J™J™Jšœ œ™Jšœœ™šœœœ™JšœĖ˜Ė—J™šœœœ™)J˜¾—™J˜B—J˜J˜šœ œ™JšœœW˜m—™J˜MJ˜—™Jšœ«œ’˜®J˜—™Jšœ÷ œ’˜ś J™——…—’’