home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
xco212p.zip
/
BIN
/
xdsdesk.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-06
|
3KB
|
104 lines
/* */
Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
Call SysLoadFuncs
parse source . . home
home = left(home,lastpos('\',home)-1) /* Strip "\<cmd-name>" */
home = left(home,lastpos('\',home)-1) /* Strip "\BIN" */
say "This script will create WPS objects for XDS"
classname = 'WPFolder'
title = 'XDS (pre-release)'
location = '<WP_DESKTOP>'
setup = 'OBJECTID=<XDS_FOLDER>;OPEN=DEFAULT;ICONFILE='home'\BIN\XDSFOLD.ICO'
call Create
classname = 'WPProgram'
title = 'XDS'
location = '<XDS_FOLDER>'
setup = 'OBJECTID=<XDS_EXE>;EXENAME='home'\BIN\XDS.EXE;PROGTYPE=PM;startupdir='home
call Create
classname = 'WPProgram'
title = 'Readme 1st'
location = '<XDS_FOLDER>'
setup = 'OBJECTID=<XDS_README1ST>;EXENAME=E.EXE;PROGTYPE=PM;PARAMETERS=README.1ST;startupdir='home
call Create
classname = 'WPFolder'
title = 'Readme 2nd'
location = '<XDS_FOLDER>'
setup = 'OBJECTID=<XDS_README2ND>;'
call Create
text = 'xds'
title = 'License Policy'
call CreateTxt
text = 'whatsnew'
title = "What's New"
call CreateTxt
text = 'intro'
title = 'Introduction'
call CreateTxt
text = 'samples'
title = 'Samples'
call CreateTxt
text = 'os2api'
title = 'OS/2 API Support'
call CreateTxt
text = 'debug'
title = 'Debugging'
call CreateTxt
text = 'problems'
title = 'Known Problems'
call CreateTxt
text = 'bench'
title = 'Benchmarks'
call CreateTxt
classname = 'WPProgram'
title = "XDS User's Guide"
location = '<XDS_FOLDER>'
setup = 'OBJECTID=<XDSUG_INF>;EXENAME=VIEW.EXE;PROGTYPE=PM;PARAMETERS=XDSUG.INF;startupdir='home'\DOC'
call Create
if SysCreateShadow("E:\XDS\SAMPLES", "<XDS_FOLDER>") = 0 then
say "Error creating Samples shadow"
classname = 'WPProgram'
title = 'Build Sample Module'
location = '<XDS_FOLDER>'
setup = 'OBJECTID=<XC_EXE_M>;EXENAME='home'\BIN\XC.EXE;PROGTYPE=WINDOWABLEVIO;PARAMETERS="=m";STARTUPDIR='home'\SAMPLES;NOAUTOCLOSE=YES;ASSOCFILTER=*.MOD,*.OB2;ICONFILE='home'\BIN\XDSMAKE.ICO'
call Create
classname = 'WPProgram'
title = 'Build Sample Project'
location = '<XDS_FOLDER>'
setup = 'OBJECTID=<XC_EXE_P>;EXENAME='home'\BIN\XC.EXE;PROGTYPE=WINDOWABLEVIO;PARAMETERS="=p";STARTUPDIR='home'\SAMPLES;NOAUTOCLOSE=YES;ASSOCFILTER=*.PRJ;ICONFILE='home'\BIN\XDSMAKE.ICO'
call Create
call SysDropFuncs
Exit
CreateTxt:
classname = 'WPProgram'
location = '<XDS_README2ND>'
setup = 'OBJECTID=<XDS_'text'>;EXENAME=E.EXE;PROGTYPE=PM;PARAMETERS='text'.TXT;startupdir='home'\DOC'
call Create
return
Create:
result = SysCreateObject(classname, title, location, setup, 'U')
if result = 1 then say 'Created: 'title
else say 'Not created: 'title' !!! Return code='result
return