<> <> <> DIRECTORY UserExec, Rope, IO, UFTfmReader, UFFileManager; CodeScheme: CEDAR PROGRAM IMPORTS UserExec, Rope, IO, UFTfmReader, UFFileManager = BEGIN CodeSchemeCommand: UserExec.CommandProc = { tfmName: Rope.ROPE _ Rope.Cat["/indigo/tioga/tfm/", exec.commandLineStream.GetToken[], ".tfm"]; exec.out.PutF["Coding scheme of %g is %g\n", IO.rope[tfmName], IO.rope[UFTfmReader.CharacterCodingScheme[UFFileManager.KeyOf[tfmName]]]]; }; UserExec.RegisterCommand[ name: "CodeScheme", proc: CodeSchemeCommand, briefDoc: "Gets the character coding scheme out of a TFM file", doc: "Gets the character coding scheme out of a TFM file" ]; END.