
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"];

}.
    Ö  
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
 Ê  •NewlineDelimiter
–(cedarcode) style™ code™Kšœ
Ïeœ1™<J™8K™?—K˜ KšÏk	œžœ˜0K˜ šÏnœžœž˜!Kšžœžœ˜'K˜ K˜K˜ šŸœž	œžœ
žœžœžœžœÏcœ˜xšžœžœžœžœ.žœžœž˜OK˜&Kšžœ
žœžœ˜)Kšžœ˜—K˜Kšžœ˜—K˜ K˜WK˜ K˜—— …—    "    