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/local/bin/perl -w
use IO::File;
while (<>)
{
last if /^static int perl_init()/;
print;
}
my @head = ($_);
while (<>)
{
push(@head,$_);
last if /^\t+dTHR/;
}
my $name = 0;
my $count = 0;
new_chunk();
sub new_chunk
{
print "}\n\n" if $count;
++$name;
print "static void Chunk_$name (void)\n{\n";
push(@head,"\tChunk_$name();\n");
$count = 0;
}
while (<>)
{
last if /^\s+return/;
print;
$count++;
if (/^\t+\{/)
{
while (<>)
{
print;
$count++;
last if /^\t+\}/;
}
}
new_chunk() if $count > 150;
}
print "}\n\n" if $count;
while (@head)
{
print shift(@head);
}
print;
while (<>)
{
print;
}
warn "$. lines\n";
|
