home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / bcdwg02.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1998-09-06  |  2KB  |  68 lines
  1. /* 
  2.  * DWG Filter for BlueCAD 1.0 for OS/2
  3.  *
  4.  * (C) 1998 Yuri Dario <mc6530@mclink.it> 
  5.  *
  6.  */
  7. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8. call SysLoadFuncs
  9.  
  10.    '@echo off'
  11.    RootDir = SysIni( 'USER', 'BlueCAD', 'ROOTDIR' )
  12.  
  13.    if RootDir = 'ERROR:'
  14.      then
  15.      do
  16.        call beep  500, 100
  17.        say '***** Error **********************'
  18.        say '* BlueCAD installation not found *'
  19.        say '**********************************'
  20.        exit
  21.      end
  22.  
  23.    say 'DWG Filter for BlueCAD (C) 1998 Yuri Dario <mc6530@mclink.it>'
  24.    say 'BlueCAD installation directory : ' RootDir
  25.    say 'File copy, please wait...'
  26.  
  27.    RootDir = substr( RootDir, 1, (length(RootDir)-1) )
  28.  
  29.       /* copy files */
  30.    destDir = RootDir '\DLL'
  31.    destDir = space( destDir, 0 )
  32.    'copy *.dll ' destDir ' > NUL'
  33.  
  34.    prgmDir = RootDir '\PRGM'
  35.    prgmDir = space( prgmDir, 0 )
  36.    'copy font.map ' prgmDir  ' > NUL'
  37.    'copy cadnewpl.eng ' prgmDir ' > NUL'
  38.  
  39.    macroDir = RootDir '\MACRO'
  40.    macroDir = space( macroDir, 0 )
  41.    'copy *.rxm ' macroDir ' > NUL'
  42.    'copy *.bmp ' macroDir ' > NUL'
  43.   
  44.       /* add macro to menu */
  45.    BCINI = SysBootDrive()'\OS2\BLUECAD.INI'
  46.  
  47.    say 'Adding macros, please wait...'
  48.  
  49.    macroNum = SysIni( BCINI, 'MACRO', 'MACNUM' )
  50.    macroNum = substr( macroNum, 1, (length(macroNum)-1) )
  51.    dwgIn = space( 'MACNAME#'macroNum)
  52.    macroIn = 'dwgin 'macroDir'\dwgin.rxm 'macroDir'\dwgin.bmp'
  53.  
  54.    call SysIni BCINI, 'MACRO', dwgIn, macroIn
  55.  
  56.    macroNum = macroNum + 1
  57.    dwgOut = space( 'MACNAME#'macroNum)
  58.    macroOut = 'dwgout 'macroDir'\dwgout.rxm 'macroDir'\dwgout.bmp'
  59.    call SysIni BCINI, 'MACRO', dwgOut, macroOut
  60.  
  61.    macroNum = macroNum + 1
  62.    call SysIni BCINI, 'MACRO', 'MACNUM', macroNum
  63.  
  64.    say 'Adding PE2LXVER to BlueCAD executable, please wait...'
  65.    'eautil 'prgmDir'\BLUECAD.EXE bcdwg.ea  /J /M /P'
  66.    say
  67.    say 'DWG Filter succesfully installed'
  68.