PrintTiogaRegistry.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Last Edited by: Spreitzer, April 26, 1985 9:19:09 am PST
Last tweaked by Mike Spreitzer on February 1, 1993 12:58 pm PST
DIRECTORY Commander, IO, Rope, TEditInputExtras;
PrintTiogaRegistry:
CEDAR
PROGRAM
IMPORTS Commander, IO, TEditInputExtras
={
Printit:
PROCEDURE [cmd: Commander.Handle]
RETURNS [result:
REF
ANY, msg: Rope.
ROPE ¬
NIL]
--Commander.CommandProc-- ~ {
FOR l:
LIST
OF
ATOM ¬ TEditInputExtras.GetCommandNames[], l.rest
WHILE l#
NIL
DO
cmd.out.PutF1["%g", [atom[l.first]] ];
IF l.rest # NIL THEN cmd.out.PutChar[' ];
ENDLOOP;
cmd.out.PutChar['\n];
RETURN};
Commander.Register["ListTiogaOps", Printit, "list the currently registered Tioga ops"];
}.