home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / pushd21.zip / dirs.cmd < prev    next >
OS/2 REXX Batch file  |  1993-07-28  |  653b  |  21 lines
  1. /* DIRS                                                                      */
  2. /* written:  Ric Anderson   14 May 93                                        */
  3. /* revised:  Ken Neighbors  30 May 93   beautify                             */
  4. /* revised:  Ken Neighbors  28 jul 93  added support for spaces in dir       */
  5.  
  6. DirStack = value('PUSHD',,'OS2ENVIRONMENT')
  7. say _beaut(directory()) decode(DirStack)
  8. exit 0
  9.  
  10. encode:
  11.     parse arg InputString
  12.  
  13.     OutputString = translate(InputString,'|',' ')
  14.     return OutputString
  15.  
  16. decode:
  17.     parse arg InputString
  18.  
  19.     OutputString = translate(InputString,' ','|')
  20.     return OutputString
  21.