Changeset 854

Timestamp:

Oct 10, 2007, 2:18:48 AM (18 years ago)

Author:

John Small

Message:

Changed the "find Warpin" code so that it will no longer mistakenly find
a WIC.EXE on the PATH which may not be Warpin's WIC.EXE.

File:

• trunk/warpin/bld_fm2_wpi.cmd (modified) (2 diffs)

trunk/warpin/bld_fm2_wpi.cmd

@@ -5 +5 @@
  *    John Small
  *    jsmall@os2world.net
+ *
+ * Hostory
+ *    09 Oct 07 jbs: Changed the "find Warpin" code so that it will no longer
+ *       mistakenly find a WIC.EXE on the PATH which may not be Warpin's
+ *       WIC.EXE
  *
  * Requirements/assumptions
@@ -153 +158 @@
       end
    end
-   WPI.WIC_pgm = 'WIC.EXE'
-   WIC_filename = SysSearchPath( 'PATH', 'WIC.EXE' )
-   if WIC_filename == '' then
-      do
-         parse value SysIni( , 'WarpIN', 'Path' ) with Warpin_Path '00'x .
-         WPI.WIC_pgm = Warpin_Path || '\WIC.EXE'
-         if stream( WPI.WIC_pgm, 'C', 'query exists') = '' then
-            call ErrorExit 2
-      end
-   else
-      Warpin_Path = left(WIC_filename, lastpos('\', WIC_filename) - 1)
-
+   parse value SysIni( , 'WarpIN', 'Path' ) with Warpin_Path '00'x .
+   WPI.WIC_pgm = Warpin_Path || '\WIC.EXE'
+   if stream( WPI.WIC_pgm, 'C', 'query exists') = '' then
+      call ErrorExit 2
    Warpin_pathentry = ';' || translate(Warpin_path) || ';'