home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xc212os2.zip / BIN / xdsdesk.cmd < prev    next >
OS/2 REXX Batch file  |  1996-03-06  |  3KB  |  104 lines
  1. /*  */
  2.  
  3. Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  4. Call SysLoadFuncs
  5.  
  6. parse source . . home
  7. home = left(home,lastpos('\',home)-1)      /* Strip "\<cmd-name>" */
  8. home = left(home,lastpos('\',home)-1)      /* Strip "\BIN" */
  9.  
  10. say "This script will create WPS objects for XDS"
  11.  
  12. classname = 'WPFolder'
  13. title     = 'XDS (pre-release)'
  14. location  = '<WP_DESKTOP>'
  15. setup     = 'OBJECTID=<XDS_FOLDER>;OPEN=DEFAULT;ICONFILE='home'\BIN\XDSFOLD.ICO'
  16. call Create
  17.  
  18. classname = 'WPProgram'
  19. title     = 'XDS'
  20. location  = '<XDS_FOLDER>'
  21. setup     = 'OBJECTID=<XDS_EXE>;EXENAME='home'\BIN\XDS.EXE;PROGTYPE=PM;startupdir='home
  22. call Create
  23.  
  24. classname = 'WPProgram'
  25. title     = 'Readme 1st'
  26. location  = '<XDS_FOLDER>'
  27. setup     = 'OBJECTID=<XDS_README1ST>;EXENAME=E.EXE;PROGTYPE=PM;PARAMETERS=README.1ST;startupdir='home
  28. call Create
  29.  
  30. classname = 'WPFolder'
  31. title     = 'Readme 2nd'
  32. location  = '<XDS_FOLDER>'
  33. setup     = 'OBJECTID=<XDS_README2ND>;'
  34. call Create
  35.  
  36. text  = 'xds'
  37. title = 'License Policy'
  38. call CreateTxt
  39.  
  40. text  = 'whatsnew'
  41. title = "What's New"
  42. call CreateTxt
  43.  
  44. text  = 'intro'
  45. title = 'Introduction'
  46. call CreateTxt
  47.  
  48. text  = 'samples'
  49. title = 'Samples'
  50. call CreateTxt
  51.  
  52. text  = 'os2api'
  53. title = 'OS/2 API Support'
  54. call CreateTxt
  55.  
  56. text  = 'debug'
  57. title = 'Debugging'
  58. call CreateTxt
  59.  
  60. text  = 'problems'
  61. title = 'Known Problems'
  62. call CreateTxt
  63.  
  64. text  = 'bench'
  65. title = 'Benchmarks'
  66. call CreateTxt
  67.  
  68. classname = 'WPProgram'
  69. title     = "XDS User's Guide"
  70. location  = '<XDS_FOLDER>'
  71. setup     = 'OBJECTID=<XDSUG_INF>;EXENAME=VIEW.EXE;PROGTYPE=PM;PARAMETERS=XDSUG.INF;startupdir='home'\DOC'
  72. call Create
  73.  
  74. if SysCreateShadow("E:\XDS\SAMPLES", "<XDS_FOLDER>") = 0 then
  75.   say "Error creating Samples shadow"
  76.  
  77. classname = 'WPProgram'
  78. title     = 'Build Sample Module'
  79. location  = '<XDS_FOLDER>'
  80. 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'
  81. call Create
  82.  
  83. classname = 'WPProgram'
  84. title     = 'Build Sample Project'
  85. location  = '<XDS_FOLDER>'
  86. 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'
  87. call Create
  88.  
  89. call SysDropFuncs
  90. Exit
  91.  
  92. CreateTxt:
  93.   classname = 'WPProgram'
  94.   location  = '<XDS_README2ND>'
  95.   setup     = 'OBJECTID=<XDS_'text'>;EXENAME=E.EXE;PROGTYPE=PM;PARAMETERS='text'.TXT;startupdir='home'\DOC'
  96.   call Create
  97.   return
  98.  
  99. Create:
  100.   result = SysCreateObject(classname, title, location, setup, 'U')
  101.   if result = 1 then say  'Created: 'title
  102.   else             say  'Not created: 'title' !!! Return code='result
  103.   return
  104.