Mercurial > dropbear

comparison libtommath/booker.pl @ 435:337c45621e81

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge of 'a9b0496634cdd25647b65e585cc3240f3fa699ee' and 'c22be8b8f570b48e9662dac32c7b3e7148a42206'
author Matt Johnston <matt@ucc.asn.au>
date Thu, 22 Feb 2007 14:53:49 +0000
parents 5ff8218bcee9
children 60fc6476e044
comparison
equal deleted inserted replaced
434:0aaaf68e97dc 435:337c45621e81
80 80
81 if ($skipheader == 1) { 81 if ($skipheader == 1) {
82 # scan till next end of comment, e.g. skip license 82 # scan till next end of comment, e.g. skip license
83 while (<SRC>) { 83 while (<SRC>) {
84 $text[$line++] = $_; 84 $text[$line++] = $_;
85 last if ($_ =~ /math\.libtomcrypt\.org/); 85 last if ($_ =~ /math\.libtomcrypt\.com/);
86 } 86 }
87 <SRC>; 87 <SRC>;
88 } 88 }
89 89
90 $inline = 0; 90 $inline = 0;
91 while (<SRC>) { 91 while (<SRC>) {
92 next if ($_ =~ /\$Source/);
93 next if ($_ =~ /\$Revision/);
94 next if ($_ =~ /\$Date/);
92 $text[$line++] = $_; 95 $text[$line++] = $_;
93 ++$inline; 96 ++$inline;
94 chomp($_); 97 chomp($_);
95 $_ =~ s/\t/" "/ge; 98 $_ =~ s/\t/" "/ge;
96 $_ =~ s/{/"^{"/ge; 99 $_ =~ s/{/"^{"/ge;
216 $str = "chapter seven"; 219 $str = "chapter seven";
217 } elsif ($a == 8) { 220 } elsif ($a == 8) {
218 $str = "chapter eight"; 221 $str = "chapter eight";
219 } elsif ($a == 9) { 222 } elsif ($a == 9) {
220 $str = "chapter nine"; 223 $str = "chapter nine";
221 } elsif ($a == 2) { 224 } elsif ($a == 10) {
222 $str = "chapter ten"; 225 $str = "chapter ten";
223 } 226 }
224 } else { 227 } else {
225 $str = "chapter " . $str; 228 $str = "chapter " . $str;
226 } 229 }