blob: 2c86690aa3ee446930214d37909d6f4157768bf9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
/* 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.1 1996/01/24 21:56:12 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
|
