DIRECTORY TextEdit, Directory, TextNode, TEditMesaOps, GetTree, PutGet, Rope, TypeScript, WindowManager, CVExecutive; TiogaMesaCommand: PROGRAM IMPORTS Directory, GetTree, PutGet, Rope, TEditMesaOps, TextEdit, TextNode, CVExecutive, TypeScript, WindowManager = { DoIt: PROC [ts: TypeScript.TS, param: Rope.Ref] = { filename: Rope.Ref; offset: INT _ 0; WindowManager.WaitCursor[]; DO -- process each file in command line root: TextNode.Ref; [filename,offset] _ CVExecutive.GetToken[param, offset]; IF Rope.Size[filename]=0 THEN EXIT; IF Rope.Find[filename,"."] = -1 THEN -- add .mesa extension filename _ Rope.Concat[filename,Rope.Concat[".mesa"]]; root _ GetTree.ReadIndent[filename ! Directory.Error => { TypeScript.PutRope[ts, filename]; TypeScript.PutRope[ts, " not found.\n"]; LOOP }]; TypeScript.PutChar[ts, '.]; TextEdit.ChangeStyle[root, "Mesa"]; [] _ TEditMesaOps.SetSpanMesaLooks[ TextNode.MakeNodeSpan[root,TextNode.LastWithin[root]],NIL]; [] _ PutGet.ToFile[filename, root]; ENDLOOP; WindowManager.UnWaitCursor[]; TypeScript.PutRope[ts, " Done."] }; CVExecutive.AddCommand["TiogaMesa", DoIt, "Convert Mesa files to Tioga format."]; }. TTiogaMesaCommand.mesa Last changed by Bill Paxton, February 25, 1982 8:10 am šÉ(– (Mesa) style ˜JšÏc™Jš6™6J˜šÏk ˜ J˜ J˜ J˜ J˜ J˜J˜J˜J˜ J˜J˜ J˜—Jšœž˜Jšžœo˜vJ˜šÏnœžœžœ˜3J˜Jšœžœ˜J˜šžœ$˜'J˜Jšœ8˜8Jšžœžœžœ˜#šžœžœ˜=Jšœ6˜6—šœ9˜9Jšœ!˜!J˜(Jšžœ˜—J˜J˜#˜#Jšœ6žœ˜;—Jšœ#˜#Jšžœ˜—J˜J˜#J˜—J˜QJ˜J˜J˜—Œš„