PrintTiogaRegistry.Mesa
Last Edited by: Spreitzer, April 26, 1985 9:19:09 am PST
Last tweaked by Mike Spreitzer on July 14, 1989 4:49:06 pm PDT
PrintTiogaRegistry:
CEDAR
PROGRAM
IMPORTS IO, RefTab
Prints the contents of any RefTab. TEditInputImpl.commandTable is good one. To get a list of just the command names, use TEditInputExtras.GetCommandNames.
={
Print:
PROC [tab: RefTab.Ref, to:
IO.
STREAM] = {
PrintPair:
PROC [key, val:
REF
ANY]
RETURNS [quit:
BOOLEAN] = {
to.PutF["%g: %g\n", IO.refAny[key], IO.refAny[val]];
quit ← FALSE;
};
[] ← tab.Pairs[PrintPair];
RETURN};
}.