equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # A N T S I O . P L |
3 # A N T S I O . P L |
4 # doc: Fri Jun 19 19:22:51 1998 |
4 # doc: Fri Jun 19 19:22:51 1998 |
5 # dlm: Mon Apr 23 14:20:58 2018 |
5 # dlm: Wed Apr 10 16:57:59 2019 |
6 # (c) 1998 A.M. Thurnherr |
6 # (c) 1998 A.M. Thurnherr |
7 # uE-Info: 216 82 NIL 0 0 70 2 2 4 NIL ofnI |
7 # uE-Info: 217 48 NIL 0 0 70 2 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # HISTORY: |
10 # HISTORY: |
11 # Jun 19, 1998: - created |
11 # Jun 19, 1998: - created |
12 # Dec 29, 1998: - added antsLineFlag and antsLinePrefix |
12 # Dec 29, 1998: - added antsLineFlag and antsLinePrefix |
212 # reversed |
212 # reversed |
213 # Sep 13, 2016: - modified &antsAddParams to make more flexible |
213 # Sep 13, 2016: - modified &antsAddParams to make more flexible |
214 # Mar 10, 2017: - BUG: antsCheckDeps() used ctime instead of mtime!!! |
214 # Mar 10, 2017: - BUG: antsCheckDeps() used ctime instead of mtime!!! |
215 # Apr 5, 2017: - BUG: stale file mtime dependency info was not printed correctly |
215 # Apr 5, 2017: - BUG: stale file mtime dependency info was not printed correctly |
216 # Apr 23, 2018: - BUG: @antsLayout was not kept up-to-date when layout-changes are allowed |
216 # Apr 23, 2018: - BUG: @antsLayout was not kept up-to-date when layout-changes are allowed |
|
217 # Apr 10, 2019: - disabled dependency warnings |
217 |
218 |
218 # GENERAL NOTES: |
219 # GENERAL NOTES: |
219 # - %P was named without an ants-prefix because associative arrays |
220 # - %P was named without an ants-prefix because associative arrays |
220 # are rare (and perl supports multiple name spaces for the |
221 # are rare (and perl supports multiple name spaces for the |
221 # different variable types) and to facilitate its use in |
222 # different variable types) and to facilitate its use in |
290 # antsCheckDeps([filename]): |
291 # antsCheckDeps([filename]): |
291 # - call only after header has been parsed |
292 # - call only after header has been parsed |
292 # - by default, tests current <> file |
293 # - by default, tests current <> file |
293 #---------------------------------------------------------------------- |
294 #---------------------------------------------------------------------- |
294 |
295 |
295 { my($warned); |
296 { my($warned) = 1; # disable dependency warning |
296 |
297 |
297 sub antsCheckDeps() |
298 sub antsCheckDeps() |
298 { |
299 { |
299 # print(STDERR "checking dependencies of file $infile (deps = @antsDeps)\n"); |
300 # print(STDERR "checking dependencies of file $infile (deps = @antsDeps)\n"); |
300 return unless (@antsDeps); # no dependency info |
301 return unless (@antsDeps); # no dependency info |