home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 October / Chip_2000-10_cd1.bin / zkuste / SVET_OS2 / SDD702 / SDDSE702.EXE / tw / makewps.cmd next >
OS/2 REXX Batch file  |  2000-03-14  |  5KB  |  156 lines
  1. /* Create SciTech Display Doctor Desktop objects */
  2. /*******************************************************/
  3. /* Before running, SET LANG= to the correct language.  */
  4. /* It may already be correctly set in your CONFIG.SYS. */
  5. /* For examples:                                       */
  6. /* SET LANG=ar_AA for Arabic                           */
  7. /* SET LANG=pt_BR for Brazil                           */
  8. /* SET LANG=zh_CN for Simplified Chinese               */
  9. /* SET LANG=de_DE for Germany                          */
  10. /* SET LANG=da_DK for Denmark                          */
  11. /* SET LANG=es_ES for Spain                            */
  12. /* SET LANG=el_GR for Greece                           */
  13. /* SET LANG=fi_FI for Finland                          */
  14. /* SET LANG=fr_FR for France                           */
  15. /* SET LANG=iw_IL for Israel                           */
  16. /* SET LANG=it_IT for Italy                            */
  17. /* SET LANG=ja_JP for Japan                            */
  18. /* SET LANG=ko_KR for Korea                            */
  19. /* SET LANG=nl_NL for Netherlands                      */
  20. /* SET LANG=no_NO for Norway                           */
  21. /* SET LANG=sv_SE for Sweden                           */
  22. /* SET LANG=zh_TW for Taiwan                           */
  23. /* SET LANG=en_US for English (default)                */
  24. /*******************************************************/
  25.  
  26. /******************************************
  27. * Define MRI strings here
  28. *******************************************/
  29.  
  30.   MRI_PARAMETERS_GAMON             = 'Parameters for GAMON (-h for usage)'
  31.   MRI_TITLE_CHANGE_LOG             = 'Change Log'
  32.   MRI_TITLE_CONFIGURATION_PROGRAM  = 'Configuration^Program'
  33.   MRI_TITLE_HARDWARE_REPORT        = 'Hardware^Report'
  34.   MRI_TITLE_MONITOR_UTILITY        = 'Monitor Utility'
  35.   MRI_TITLE_SCITECH_DISPLAY_DOCTOR = 'SciTech Display^Doctor/se 7.0'
  36.   MRI_TITLE_SCITECH_MARKETPLACE    = 'SciTech Marketplace^Consumer Products'
  37.   MRI_TITLE_UNINSTALL              = 'Uninstall'
  38.  
  39. /******************************************
  40. * Define message ids from *mid*.h
  41. *******************************************/
  42.  
  43.   MSG_CANNOT_MAKE            =   82
  44.   MSG_INSTALL_UNSUCCESSFUL   = 1975
  45.  
  46.  
  47.  
  48. /* Register with REXX API extensions. */
  49. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  50. Call SysLoadFuncs
  51.  
  52. /* get current directory - Where SDD utilities are installed */
  53. os2bootPath = SysSearchPath('PATH', 'os2boot')
  54. if os2bootpath \= ''
  55. then bootDrive = filespec('drive', os2bootPath)
  56. else exit
  57. sdddir=bootDrive || '\sdd'
  58.  
  59. CreateObjects:
  60.  
  61. /* Create the Scitech folder on Desktop */
  62. Class='WPFolder'
  63. Location='<WP_DESKTOP>'
  64. ObjectID='<SCITECH_DESKTOP>'
  65. Title=MRI_TITLE_SCITECH_DISPLAY_DOCTOR
  66. SETUP='ICONVIEWPOS=16 44 56 23;ALWAYSSORT=YES;OPEN=NO;DISABLETOOLBAR=1;'
  67.  
  68. Call MakeObject
  69.  
  70. /* All other objects created in Scitech folder */
  71. Location='<SCITECH_DESKTOP>'
  72.  
  73. /* Create Shadows */
  74. Class='WPShadow'
  75.  
  76. Title='System'
  77. ObjectID='<SCITECH_SYSTEM>'
  78. SETUP='SHADOWID=<WP_SYSTEM>;'
  79. Call MakeObject
  80.  
  81. Title='readme.txt'
  82. ObjectID='<SCITECH_README>'
  83. SETUP='SHADOWID='sdddir'\readme.txt'
  84. Call MakeObject
  85.  
  86. /* Make URLs */
  87. Class='WPUrl'
  88.  
  89. Title=MRI_TITLE_CHANGE_LOG
  90. ObjectID='<SCITECH_CHANGES>'
  91. SETUP='URL=http://www.scitechsoft.com/sdd2_changes.txt'
  92. Call MakeObject
  93.  
  94. Title=MRI_TITLE_SCITECH_MARKETPLACE
  95. ObjectID='<SCITECH_MARKET>'
  96. SETUP='URL=http://www.scitechsoft.com/sdd_os2_order.html'
  97. Call MakeObject
  98.  
  99. /* Make Programs */
  100. Class='WPProgram'
  101.  
  102. Title=MRI_TITLE_MONITOR_UTILITY
  103. ObjectID='<SCITECH_GAMON>'
  104. SETUP='EXENAME=CMD.EXE;'||,
  105.           'STARTUPDIR='sdddir';'||,
  106.           'PARAMETERS=/c (GAMON.EXE [' || MRI_PARAMETERS_GAMON || '] ' ||,
  107.                   '> gamon.out & e.exe gamon.out );'||,
  108.       'PROGTYPE=WINDOWABLEVIO;'
  109. Call MakeObject
  110.  
  111. Title=MRI_TITLE_CONFIGURATION_PROGRAM
  112. ObjectID='<SCITECH_GACTRL>'
  113. SETUP='EXENAME='sdddir'\GACTRL.EXE;'||,
  114.           'STARTUPDIR='sdddir';'||,
  115.       'PROGTYPE=FULLSCREEN;'
  116. Call MakeObject
  117.  
  118. Title=MRI_TITLE_HARDWARE_REPORT
  119. ObjectID='<SCITECH_REPORT>'
  120. SETUP='EXENAME=cmd.exe;'||,
  121.           'STARTUPDIR='sdddir';'||,
  122.       'PARAMETERS=/c (GAREPORT.EXE > gareport.out & start /f e.exe gareport.out);'||,
  123.       'PROGTYPE=FULLSCREEN;'
  124. Call MakeObject
  125.  
  126. Title=MRI_TITLE_UNINSTALL
  127. ObjectID='<SCITECH_UNINSTAL>'
  128. SETUP='EXENAME='sdddir'\UNINSTAL.EXE;'||,
  129.                   'STARTUPDIR='sdddir';'||,
  130.           'PROGTYPE=PM;'||,
  131.           'NOAUTOCLOSE=YES;'
  132. Call MakeObject
  133.  
  134. exit
  135.  
  136. /******************************************************
  137. * Make a Work Place Shell object
  138. *******************************************************/
  139.  
  140. MakeObject:
  141.   if SysCreateObject(Class,Title,Location,'OBJECTID='ObjectID';'||,
  142.                      'TITLE='title';'SETUP,'U')<>1,
  143.   then Say Title || ' ' || MyGetMsg(SysGetMessage(MSG_CANNOT_MAKE))
  144.   return
  145.  
  146. /******************************************************
  147. * Remove SYSXXXX: from messages
  148. *******************************************************/
  149.  
  150. MyGetMsg: Procedure
  151.  
  152.   parse arg message
  153.   if pos('SYS', word(message, 1)) == 1
  154.     then parse arg . message
  155.   return message
  156.