Changeset 653


Ignore:
Timestamp:
May 2, 2007, 3:11:12 AM (19 years ago)
Author:
John Small
Message:
  • Added REXX code to search the WarpIN database for a previously

installed FM/2. If found, the default installation directory is
set to the Utils subdirectory of the FM/2 installation directory.
If FM/2 is not found in the WarpIN database (for the current boot
drive) then the default installation directory is set to the
WarpIN default Tools path.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/warpin/fm2Utils.wis

    r649 r653  
    22
    33<HEAD>
     4<REXX NAME=FindFM2>
     5   call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
     6   call SysLoadFuncs
     7   warpin_path = strip(SysIni(, 'WarpIN', 'Path'), 'T', '00'x)
     8   database_file = warpin_path || '\DATBAS_' || left(SysBootDrive(), 1) || '.INI'
     9   call SysIni database_file, 'ALL:', 'apps.'
     10   fm2_app_prefix = 'Netlabs\FM2\Base\'
     11   fm2_app_prefix_len = length(fm2_app_prefix)
     12   do a = 1 to apps.0
     13      if left(apps.a, fm2_app_prefix_len) = fm2_app_prefix then
     14         leave
     15   end
     16   if a > apps.0 then
     17      target_path = WirexxGetEnv('WARPIN_DEFAULTTOOLSPATH')
     18   else
     19      target_path = strip(SysIni(database_file, apps.a, 'TargetPath'), 'T', '00'x) || '\Utils'
     20   return target_path
     21</REXX>
    422
    523<PCK INDEX=7
    624  PACKAGEID="Netlabs\FM2 Utilities\FM2Utils\1\0\0"
    725  TITLE="FM/2 Utilities"
    8   TARGET="$(WARPIN_DEFAULTTOOLSPATH)"
     26  TARGET="=("FindFM2")"
    927  SELECT
    1028  CREATEOBJECT="WPFolder|FM/2 Utilities|<WP_DESKTOP>|OBJECTID=<FM2_Utilities>;"
Note: See TracChangeset for help on using the changeset viewer.