Changeset 640

Timestamp:

Apr 28, 2007, 11:04:33 PM (19 years ago)

Author:

John Small

Message:

• Previous version had a bug which affected only those still

building WPI files from an unzipped FM/2 distribution. This
change "fixes" the bug. Those still building WPI files this
way will not be able to take advantage of the selective
rebuild process added recently; they will always build the
WPI file completely (not just add the recently changed files.).

File:

• trunk/warpin/bld_fm2_wpidirs.cmd (modified) (3 diffs)

trunk/warpin/bld_fm2_wpidirs.cmd

@@ -21 +21 @@
 
 n = setlocal()
-
+trace 'i'
 parse source . . thispgm
 thisdir = left(thispgm, lastpos('\', thispgm) - 1)
@@ -141 +141 @@
       WPI.src_basedir = WPI.src_basedir || '\'
    if args == '' then
-/*
-      WPI.infile = 'BLD_FM2_WPIDIRS.TXT'
-*/
       WPI.infile = 'BLD_FM2_WPIDIRS.IN'
    else
@@ -150 +147 @@
       else
          WPI.infile = word(args, 1)
+   if stream(WPI.infile, 'c', 'query exists') == '' then
+      WPI.infile = 'BLD_FM2_WPIDIRS.TXT'
 return