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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
#!/usr/bin/perl -w
open(IN,'<all.txt') || die 'cannot open all.txt for read';
my @recs;
my $ref;
# http://www.linuxsymposium.org/2004/view_abstract.php?content_key=24
my $aurl='http://linuxsymposium.org/2004/view_abstract.php?content_key=';
my %fields=(A=>1,I=>1,T=>1,E=>1,N=>1,);
my @keyNames = qw(__TITLE__ __AUTHOR__ __INSTITUTION__ __EMAIL__ __ABSTRACT__);
sub newrec {
my $r = {};
for my $i qw(A I T E dname abstract) {
$r->{$i} = '';
}
$r->{'N'} = 0;
for my $i (@keyNames) {
$r->{$i} = 'BUG';
}
return $r;
}
sub doItem {
my ($r, $l) = @_;
my ($f, $rest) = split /=/,$l;
die "bad record: $l" if (!exists($fields{$f}));
$rest =~ s/\s+$//g;
$rest =~ s/^none$/~/;
$r->{$f} = $rest;
if ($f eq 'A') {
my @fname = split /\s+/,lc($rest);
my $aname = pop(@fname);
$aname =~ s/[[:punct:]]//g;
$r->{dname} = $aname;
$r->{__AUTHOR__} = $r->{A};
$r->{__ABSTRACT__} = ($r->{dname} . '-abstract');
} elsif ($f eq 'N') {
$r->{abstract} = ($aurl . $rest);
} elsif ($f eq 'T') {
$r->{__TITLE__} = $r->{T};
} elsif ($f eq 'I') {
$r->{__INSTITUTION__} = $r->{I};
} elsif ($f eq 'E') {
$r->{__EMAIL__} = $r->{E};
}
}
$ref = newrec();
while (defined($ln = <IN>)) {
chomp $ln;
if ($ln =~ m/^\s*$/) {
push @recs, $ref if ($ref);
$ref = newrec();
} else {
doItem($ref, $ln);
}
}
close(IN);
# print "got $#recs records\n";
my $cnt = 1;
open(OUT,'>Authors.tex') || die "cannot open Authors.tex for write";
open(CLEAN,'>Cleanup.sh') || die "cannot open Cleanup.sh for write";
print CLEAN '#!/bin/bash', "\n\n";
for my $r (@recs) {
print OUT '% email=';
print OUT $r->{E}, "\n";
print OUT '% url=', $r->{abstract}, "\n";
print OUT '\coltocauthor{';
$r->{A} =~ s/\./.\\/g;
print OUT $r->{A};
print OUT '}', "\n";
print OUT '\coltoctitle{';
print OUT $r->{T};
print OUT '}', "\n";
print OUT '\label{';
printf OUT "art%02d", $cnt;
print OUT '}', "\n";
print OUT '\import{';
print OUT $r->{dname};
print OUT '}', "\n";
print OUT "\n";
print CLEAN 'rm -rf ', $r->{dname}, "\n";
my $paper = $r->{dname} . '/' . $r->{dname} . '.tex';
my $setup = $r->{dname} . '/setup.sh';
if (! -d $r->{dname}) {
mkdir($r->{dname});
if (! -f $paper) {
open(OWT, ">$paper") || die "Cannot open $paper for writing";
open(INN, '<TEMPLATES/Blank.tex') || die 'Cannot open TEMPLATES/Blank.tex for reading';
my $ln;
while (defined($ln = <INN>)) {
chomp $ln;
for my $x (@keyNames) {
my $v = $r->{$x};
$ln =~ s/$x/$v/;
}
print OWT "$ln\n";
}
print OWT "\n";
close(INN);
close(OWT);
}
if (! -f $setup) {
open(OWT, ">$setup") || die "Cannot open $setup for writing";
print OWT '#!/bin/bash', "\n\n";
for my $i qw(ols-fonts.tex ols.sty zrl.sty) {
print OWT 'ln -s ../TEMPLATES/', $i, ' . || /bin/true', "\n";
}
print OWT 'cat ../TEMPLATES/ProtoMake | sed -e ', "'s/TOP=/TOP=",
$r->{dname}, "/' > Makefile\n";
print OWT 'echo -n ', "'%'", '> ', "'", $r->{__ABSTRACT__}, ".tex'", "\n";
print OWT "links -dump '", $r->{abstract}, "' | ../bin/cleanurl.pl >> ",
$r->{__ABSTRACT__}, '.tex', "\n";
close(OWT);
}
}
$cnt++;
}
close(OUT);
close(CLEAN);
|
