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.