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