git.sesse.net Git - rdpsrv/blob - Xserver/config/util/indir.cmd

   1 /* OS/2 rexx script to emulate the "cd dir; command" mechanism in make
   2  * which does not work with stupid CMD.EXE
   3  *
   4  * $XFree86: xc/config/util/indir.cmd,v 3.1 1996/01/24 21:56:12 dawes Exp $
   5  */
   6 curdir = directory()
   7 line = fixbadprefix(arg(1))
   8 new = directory(word(line,1))
   9 subword(line,2)
  10 old = directory(curdir)
  11 exit
  12
  13 /* somehow make or cmd manages to convert a relative path ..\..\. to ..... */
  14 fixbadprefix:
  15 count = 1
  16 str = ARG(1)
  17 DO WHILE SUBSTR(str,count,2) = '..'
  18    count = count+1
  19    str = INSERT('\',str,count)
  20    count = count+2
  21 END
  22 RETURN str
  23