home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
os2
/
pushd20.zip
/
D.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-05-30
|
875b
|
41 lines
/* D */
/* Ken Neighbors 30 May 1993 */
/* change directory, slash = backslash */
parse arg NewDir rest
if ( rest <> '' ) then do
say '"'rest'"' 'ignored'
end
NewDir = translate(NewDir,'\','/');
if ( NewDir == '' ) then do
say beautify(directory());
end
else do
NewDirVerify = directory(NewDir);
if ( NewDirVerify == '' ) then do
say insert(NewDir,': No such directory.')
exit 1
end
end
exit 0
beautify:
uc='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
lc='abcdefghijklmnopqrstuvwxyz'
parse arg Directory
if ( Directory <> '' ) then do
/* Lowercasize the drive letter */
DriveLetter = substr(Directory,1,1)
DriveLetter = translate(DriveLetter,lc,uc)
Directory = overlay(DriveLetter,Directory,1)
/* Lowercasize the whole thing */
/* Directory = translate(Directory,lc,uc) */
end
return Directory