Changeset 1234

Timestamp:

Sep 16, 2008, 7:47:17 PM (17 years ago)

Author:

John Small

Message:

Ticket 282: Support wildcard masks in bld_fm2_dirs.txt.

File:

• trunk/warpin/ckfiles.cmd (modified) (2 diffs, 2 props)

trunk/warpin/ckfiles.cmd

@@ -1 @@
-/*      Check files to see if they have been updated */
+/*
+ *
+ * $Id$
+ *
+ * Check files destined for the WPI file to see if they have been updated.
+ * If so, appropriate lines are written to bld_wpi_dirs.in so that
+ * these files can first be staged and then added to the WPI file.
+ *
+ */
 
 call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
@@ -49 +57 @@
                if translate(word(line, 1)) = 'FILE:' then
                   do
-                     file  =  word(line, 2)
+                     file_mask  =  word(line, 2)
                      dir   =  word(line, 4)
-                     file_date_time = GetDate( '..\' || dir || '\' || file )
-                     if file_date_time > out_file_date_time then
-                        do
-                           if file_reset = 0 then
-                              do
-                                 file_reset = 1
-                                 if stream(out_file, 'c', 'query exists') \= '' then
-                                    '@del 'out_file
-                                 call lineout out_file, '; Do not edit this file!'
-                                 call lineout out_file, ';'
-                                 call lineout out_file, '; Any desired edits should be done to BLD_FM2_WPIDIRS.TXT, instead.'
-                                 call lineout out_file, ';'
-                              end
-                           call lineout out_file, line
-                        end
+                     call SysFileTree '..\' || dir || '\' || file_mask, 'filelist.', 'FO'
+                     do f = 1 to filelist.0
+                        file = filelist.f
+                        file_date_time = GetDate( file )
+                        if file_date_time > out_file_date_time then
+                           do
+                              if file_reset = 0 then
+                                 do
+                                    file_reset = 1
+                                    if stream(out_file, 'c', 'query exists') \= '' then
+                                       '@del 'out_file
+                                    call lineout out_file, '; Do not edit this file!'
+                                    call lineout out_file, ';'
+                                    call lineout out_file, '; Any desired edits should be done to BLD_FM2_WPIDIRS.TXT, instead.'
+                                    call lineout out_file, ';'
+                                 end
+                              call lineout out_file, 'FILE:' substr(file, lastpos('\', file) + 1) substr(line, wordindex(line, 3))
+                           end
+                     end
                   end
                else /* must be a NOFILESPACKAGE line */