blob: b4dded2966b9691a2f8d8528492d05440e3ab763 (
plain) (
blame)
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
#!/usr/bin/perl -w
# Extract or update a section from a combined patch + documentation +
# meta information file.
use FileHandle;
use Getopt::Long;
use strict;
my $select;
my $update;
if (!GetOptions("s|select=s" => \$select,
"u|update=s" => \$update) ||
(!defined $select && !defined $update)) {
print STDERR "USAGE: $0 {-s|-u} section file [< replacement]\n";
exit 1;
}
foreach my $arg (@ARGV) {
my $fh;
if ($arg =~ /\.gz$/) {
$fh = new FileHandle("gzip -cd $arg |");
} elsif ($arg =~ /\.bz2$/) {
$fh = new FileHandle("bzip2 -cd $arg |");
} else {
$fh = new FileHandle("< $arg");
}
unless ($fh) {
print STDERR "$arg: $!\n";
next;
}
if (defined $select) {
my $section = "head";
my $newline = "";
while (<$fh>) {
if (/^%(.*)/) {
last if $section eq $select;
$section = $1;
next;
}
if ($section eq $select) {
print $newline;
if ($_ eq "\n") {
$newline = $_;
} else {
$newline="";
print;
}
}
}
} elsif (defined $update) {
my $fh2;
if ($arg =~ /\.gz$/) {
$fh2 = new FileHandle("| gzip -c > $arg.parse");
} elsif ($arg =~ /\.bz2$/) {
$fh2 = new FileHandle("| bzip2 -c > $arg.parse");
} else {
$fh2 = new FileHandle("$arg.parse", O_CREAT|O_WRONLY);
}
unless ($fh2) {
die "$arg.parse: $!\n";
}
# Copy things before updated section
while (<$fh>) {
if (/^%(.*)/ && $1 eq $update) {
last;
}
print $fh2 $_;
}
# Create/replace updated section
print $fh2 "%$update\n";
while (<STDIN>) {
print $fh2 $_;
}
print $fh2 "\n";
# Skip obsolete section
while (<$fh>) {
if (/^%(.*)/) {
print $fh2 $_;
last;
}
}
# Copy things after updated section
while (<$fh>) {
print $fh2 $_;
}
unless (close $fh2) {
die "$arg.patch: $!\n";
}
unlink "$arg~";
unless (rename $arg, "$arg~") {
die "Failed to rename $arg to $arg~: $!\n";
}
unless (rename "$arg.parse", $arg) {
die "Failed to rename $arg.parse to $arg: $!\n";
}
}
close $fh;
}
|
