Changeset 602

Timestamp:

Apr 4, 2007, 12:11:10 PM (19 years ago)

Author:

John Small

Message:

• Coded a workaround to the problem of 4OS2 reporting a false error

on a 'if exist ...' command

• Changed the code so that it now uses BEGINLIBPATH instead of ENDLIBPATH

when it sets up command line access to WIC.EXE

File:

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

trunk/warpin/bld_fm2_wpi.cmd

@@ -71 +71 @@
 /* Add the files to the WPI   */
    do
-      if archive_previous_WPI == 1 then
-         'if exist 'WPI.archivename' ren 'WPI.archivename WPI.archivename || '.' || time('S')
-      else
-         'if exist 'WPI.archivename' del 'WPI.archivename
+      if stream(WPI.archivename, 'c', 'query exists') \= '' then
+         if archive_previous_WPI == 1 then
+            'ren 'WPI.archivename WPI.archivename || '.' || time('S')
+         else
+            'del 'WPI.archivename
       do p = 1 to WPI.pkg.0
          call SysFileTree WPI.pkg.p.dir || '\*', 'pkgfilelist.', 'FOS'
@@ -177 +178 @@
    ext_libpath = SysQueryExtLibpath('B')
    if pos( Warpin_pathentry, ';' || translate(SysQueryExtLibpath('B')) || ';' ) == 0 then
-      do
-         ext_libpath = SysQueryExtLibpath('E')
-         if pos( Warpin_pathentry, ';' || translate(SysQueryExtLibpath('E')) || ';' ) == 0 then
-            call SysSetExtLibpath Warpin_pathentry || ';' || ext_libpath, 'E'
-      end
+      call SysSetExtLibpath Warpin_pathentry || ';' || ext_libpath, 'B'
 
    parse source . . thispgm