blob: 45d7cedbdc3ca764e15b048dd3f5f286d46d9d34 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#!/usr/bin/perl -s
#
# __________ __ ___.
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
# \/ \/ \/ \/ \/
#
my $verbose = $v;
my $reflowed = "";
my $last = "";
my $currentfile;
while(<STDIN>) {
chomp $_;
$reflowed .= $_;
if(/^.{79,}$/) {
# collapse all "full" lines
}
elsif(/^!/) {
# collapse lines indicating an error with next one and append a space.
$reflowed .= " ";
}
else {
# skip empty lines
if(length($reflowed) > 0) {
# collapse with previous line if it continues some "area".
if($reflowed =~ /^\s*(\]|\[|\\|\)|<)/) {
$last .= $reflowed;
}
else {
# find current input file
my @inputfile = $last =~ /\(([a-zA-Z_\-\/\.]+\.tex)/g;
foreach(@inputfile) {
if($verbose) {
print "\n";
}
print "LaTeX processing $_\n";
$currentfile = $_;
}
if($verbose) {
print $last;
}
# check for error
if($reflowed =~ /^!\s*(.*)/) {
my $l = $reflowed;
$l =~ s/^!\s*(.*)l.(\d+) /$2: $1/;
print "$currentfile:$l\n";
}
# restart for next reflowed line
$last = $reflowed;
}
}
# restart reflowing.
$reflowed = "";
}
}
if($verbose) {
print $last;
}
|
