home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epm603a.zip / EPMSMP.ZIP / RESOLVE.E < prev    next >
Text File  |  1995-02-15  |  872b  |  34 lines
  1. ; Tells you what a command will resolve to.
  2. ;          By Larry Margolis
  3.  
  4. const
  5.    built_in_cmds = "DOS S SAVE Q QUIT F FILE E EDIT N NAME MA MARGINS VER TABS L C XCOM"
  6.  
  7. defmain
  8.    'resolve' arg(1)
  9.  
  10. defc resolve =
  11.    parse arg cmd .
  12.    if isadefc(cmd) then
  13. compile if EVERSION >= '6.02'
  14.       cmd = cmd '(defined in' wheredefc(cmd)')'
  15. compile endif
  16.       sayerror 'Macro-defined command:  'cmd
  17.       return
  18.    endif
  19.    w = wordpos(upcase(cmd), built_in_cmds)
  20.    if w then
  21.       if length(cmd)<=2 & abbrev(word(built_in_cmds, w+1), upcase(cmd)) then
  22.          cmd = cmd '( =' word(built_in_cmds, w+1)')'
  23.       endif
  24.       sayerror 'Built-in command:  'cmd
  25.       return
  26.    endif
  27.    findfile external_cmd, cmd, 'PATH', 'P'
  28.    if rc then
  29.       sayerror 'Unknown command:  'cmd
  30.    else
  31.       sayerror 'External command:  'external_cmd
  32.    endif
  33.  
  34.