29 lines
736 B
Batchfile
29 lines
736 B
Batchfile
/* OS/2 rexx script to emulate the "cd dir; command" mechanism in make
|
|
* which does not work with stupid CMD.EXE
|
|
*
|
|
* $XFree86: xc/config/util/indir.cmd,v 3.2 2000/04/05 18:13:13 dawes Exp $
|
|
*/
|
|
curdir = directory()
|
|
line = fixbadprefix(ARG(1))
|
|
w1 = TRANSLATE(WORD(line,1),'\','/')
|
|
new = directory(w1)
|
|
/*IF (SUBSTR(w1,1,2) = '..') | (POS(w1,new) > 0) THEN DO*/
|
|
subword(line,2)
|
|
old = directory(curdir)
|
|
/*END
|
|
ELSE DO
|
|
say 'Directory 'new' does not exist, ignoring command (nonfatal)'
|
|
END*/
|
|
EXIT
|
|
|
|
/* somehow make or cmd manages to convert a relative path ..\..\. to ..... */
|
|
fixbadprefix:
|
|
count = 1
|
|
str = ARG(1)
|
|
DO WHILE SUBSTR(str,count,3) = '...'
|
|
count = count+1
|
|
str = INSERT('\',str,count)
|
|
count = count+2
|
|
END
|
|
RETURN str
|