%begin; !SHOWSYM: show command symbol translation

%include "inc:util.imp"
%include "inc:dict.imp"
%record(dictf)%name dict; dict == comdict


%routine showsym(%string(255)s)
%integer token
%integer level=0
  %cycle
    level = level+1
    %if level>9 %start
      printstring("*Looping?"); newline; %return
    %finish
    %returnif s=""
    token = refname(s,dict)
    %if token<=0 %start
      to upper(s)
      token = refname(s,dict)
      %returnif token<=0
    %finish
    token = integer(token); %returnif token<=0
    printstring(s)
    printstring(" = ")
    transname(token,s)
    printstring(s)
    newline
  %repeat
%end

%string(255)p,s

p = cliparam
dict == comdict
%if p -> p.("-").s %start
  dict == sysdict %if s="s"
  dict == extdict %if s="e"
  dict == fildict %if s="f"
! dict == comdict %if s="c"
%finish

p = p.","
showsym(s) %while p -> s.(",").p

%end
