home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
xc212os2.zip
/
BIN
/
mkwrkdir.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-05
|
2KB
|
62 lines
/* ---------------------------------------------------------------- */
/* XDS v2.0. Copyright (c) 1991-1996 xTech Ltd. All Right Reserved */
/* */
/* ---------------------------------------------------------------- */
'@echo off'
say " This script file will create appropriate subdirectories"
say " and redirection file on user working directory."
parse source . . xdsdir
xdsdir = left(xdsdir,lastpos('\',xdsdir)-1) /* Strip "\<cmd-name>" */
xdsdir = left(xdsdir,lastpos('\',xdsdir)-1) /* Strip "\BIN" */
say "Type working directory name:"
pull wrk .
say "Will you use SAMPLES (Y/N)?"
pull smpl .
say " creating directory structure..."
'mkdir 'wrk' 'wrk'\SYM 'wrk'\OBJ 'wrk'\SRC'
if rc <> 0 then do
say "Error making working directories"
exit 1
end
say " copying samples..."
'copy >nul 'xdsdir'\SAMPLES\SIMPLE\hello.* 'wrk'\SRC'
if rc <> 0 then do
say "Error copying hello sources"
exit 1
end
say " creating appropriate redirection file..."
'echo>'wrk'\xc.red xc.msg = 'xdsdir'\bin'
'echo>>'wrk'\xc.red xc.cfg = 'xdsdir'\bin'
'echo>>'wrk'\xc.red *.tem = 'xdsdir'\bin'
'echo>>'wrk'\xc.red *.lib = 'xdsdir'\lib'
'echo>>'wrk'\xc.red *.sym = sym;'xdsdir'\sym'
'echo>>'wrk'\xc.red *.obj = obj'
'echo>>'wrk'\xc.red *.rsp = obj'
'echo>>'wrk'\xc.red *.mkf = obj'
if (smpl = "Y") then do
'echo>>'wrk'\xc.red *.def = $!\def;'xdsdir'\samples\simple'
'echo>>'wrk'\xc.red *.mod = $!\src;'xdsdir'\samples\simple'
'echo>>'wrk'\xc.red *.ob2 = $!\src;'xdsdir'\samples\simple'
'echo>>'wrk'\xc.red *.prj = $!;'xdsdir'\samples'
end
else do
'echo>>'wrk'\xc.red *.def = $!\def'
'echo>>'wrk'\xc.red *.mod = $!\src'
'echo>>'wrk'\xc.red *.ob2 = $!\src'
'echo>>'wrk'\xc.red *.prj = $!'
end
'echo>'wrk'\xl.cmd link386 /L /CO /PM:VIO /NON /NOO /NOI /ST:64000 obj\%%1.obj,%%1.exe,,'xdsdir'\lib\libxds.lib+'xdsdir'\lib\os2min.lib';
say ''
say ' DONE'
say ''
exit