Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 41 lines (36 sloc) 0.685 kb
784582b * Change /usr/local/bin/perl to the perl in PATH.
audreyt authored
1 #!/usr/bin/env perl
e39d0a7 [STD etc.] implement setting compilation to produce CORE.yml from CORE.p...
lwall authored
2
3 use STD;
4 use utf8;
5
6 my $failures = 0;
7
04bf5ba [STD] add PROCESS::
lwall authored
8 @ARGV = 'CORE.setting' unless @ARGV;
e39d0a7 [STD etc.] implement setting compilation to produce CORE.yml from CORE.p...
lwall authored
9
10 for my $file (@ARGV) {
11 warn $file,"\n" if @ARGV > 1;
12 next unless -f $file;
04bf5ba [STD] add PROCESS::
lwall authored
13 my $setting = "CORE";
9a57cc7 [STD setting] parse setting files with names containing CORE with the NU...
diakopter authored
14 $setting = "NULL" if $file =~ /CORE/;
e39d0a7 [STD etc.] implement setting compilation to produce CORE.yml from CORE.p...
lwall authored
15 eval {
04bf5ba [STD] add PROCESS::
lwall authored
16 warn "Undefined\n" unless defined STD->parsefile($file, setting => $setting);
e39d0a7 [STD etc.] implement setting compilation to produce CORE.yml from CORE.p...
lwall authored
17 };
18 if ($@) {
19 warn $@;
20 $failures++;
21 }
22 }
23 my ($time, $vsz) = split(' ', `ps -o "time= vsz=" $$`);
24 $time =~ s/^00://;
25 $vsz =~ s/\d\d\d$/m/;
26 if ($failures) {
27 if ($vsz) {
28 warn "FAILED $time $vsz\n";
29 }
30 else {
31 warn "FAILED\n";
32 }
33 exit $failures;
34 }
35 elsif ($vsz) {
36 warn "ok $time $vsz\n";
37 }
38 else {
39 warn "ok\n";
40 }
Something went wrong with that request. Please try again.