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. €CodeScheme.mesa A hack to type out the character coding schemes from TFM files. Michael Plass, January 17, 1983 9:27 am. สถ˜J™J™?J™(Iunitšฯk œœ˜9šœ œ˜Jšœœ˜6Jšœ˜šœ+˜+JšœœM˜_Jšœ-œœH˜‰J˜—šœ˜Jšœ˜Jšœ˜Jšœ?˜?Jšœ9˜9Jšœ˜—Kšœ˜—J˜—…—xฎ