home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / netdor3.zip / VNDINST / FRNTENDS / MPG / PACKINST.CMD next >
OS/2 REXX Batch file  |  1996-04-04  |  4KB  |  113 lines
  1. /******************************************************************
  2.  
  3. Description:    Molecular Presentation Graphics install exec
  4.  
  5. Details:        This exec is used to install MPG.
  6.  
  7.                 Installation consists of asking the user for a
  8.                 local directory spec in which to store local
  9.                 files.  This info is stored in OS2.INI.  It also
  10.                 copies several font files to the local directory.
  11.                 these files total approxiamately 22kb.
  12.  
  13. Dependencies:
  14.    Externals:   RXUTILS.DLL - Part of VENDOR package.
  15.    Drive(s):    Must be run from same drive to preserve path
  16.                 information for layouts and macros.
  17.    Directories: font files must be copied to the local directory.
  18.                 copied locally in order to be edited.
  19.    Window Type: FS/WIN
  20.    App Title:   None
  21.  
  22. Last Updated:   12/10/91
  23. ******************************************************************/
  24. '@ECHO OFF'
  25. trace 'o'
  26.  
  27. call RxFuncAdd 'RXDIREXIST',  'RXUTILS', 'RXDIREXIST'
  28. call RxFuncAdd 'RXPAUSE',     'RXUTILS', 'RXPAUSE'
  29. call RxFuncAdd 'RXMKDIR',     'RXUTILS', 'RXMKDIR'
  30. call RxFuncAdd 'RXOS2INI',    'RXUTILS', 'RXOS2INI'
  31.  
  32. say
  33. say ' Molecular Presentation Graphics '
  34. say ' ------------------------------- '
  35. say
  36.  
  37. /* Parse args */
  38. parse source . . exec
  39. path=left(exec, lastpos('\', exec))
  40. drive=left(path,2)
  41.  
  42. /***************************************************************/
  43. /** Check if a Local.Directory already exists.  If not, check **/
  44. /** old format and if it exists convert to new format.        **/
  45. /***************************************************************/
  46.  
  47. Local.Directory = RxOS2Ini(, 'Directories', 'MPG')
  48. if rxDirExist(Local.Directory)=1 then do
  49.    say ' Current Molecular Presentation Graphics directory = 'Local.Directory
  50.    say
  51. end  /* if rxDirExist... */
  52.  
  53. /***************************************************************/
  54. /** Get the valid local drives, remove the VDISK, prompt user **/
  55. /***************************************************************/
  56.  
  57. DrvMap = RxDriveMap('C:', 'LOCAL' )
  58. parse upper value RxDriveInfo( right(DrvMap,2)) with . 'LABEL='label .
  59. if pos('VDISK', label)<>0 then DrvMap=left(DrvMap, length(DrvMap)-3)
  60.  
  61. /********************************************************/
  62. /** Prompt user for Local Directory.  Do until a valid **/
  63. /** local drive is used.                               **/
  64. /********************************************************/
  65.  
  66. say
  67. say ' Enter a local directory where your Molecular Presentation'
  68. say ' Graphics files will be saved. i.e. C:\MPG'
  69. say ' Valid local Drives:' DrvMap
  70. say
  71.  
  72. /*****************************************************/
  73. /** Create Local Directory.  Add entry to OS2.INI.  **/
  74. /*****************************************************/
  75.  
  76. OK=0
  77. do until OK=1
  78.    Local.Directory = translate( LINEIN('STDIN') )
  79.    if POS( left(Local.Directory,2), DrvMap) <> 0 then
  80.       OK=1
  81.    else do
  82.       say
  83.       say d2c(7)||' Cannot create directory.  Try again...'
  84.       say
  85.       OK=0
  86.    end /* do */
  87.    if OK=1 then do
  88.       if Local.Directory<>'' then do
  89.          call rxMkDir Local.Directory
  90.          if RxDirExist(Local.Directory) then
  91.             call RxOS2Ini , 'Directories', 'MPG', Local.Directory
  92.          if RxDirExist(Local.Directory)=0 then do
  93.             OK=0
  94.             say
  95.             say d2c(7)||' Cannot create directory.  Try again...'
  96.             say
  97.          end  /* do */
  98.       end /* do */
  99.    end /* do */
  100. end /* do until */
  101.  
  102. /** copy necessary files to local directory **/
  103. 'copy 'path'*.mft 'Local.Directory
  104.  
  105. /* Give message */
  106. say
  107. say ' Molecular Presentation Graphics is now ready to run.'
  108. say ' You do not have to reboot.'
  109. say
  110. call RxPause
  111.  
  112. 'exit'
  113.