Mercurial > dropbear

comparison libtommath/booker.pl @ 478:d4f32c3443ac dbclient-netcat-alike

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
propagate from branch 'au.asn.ucc.matt.dropbear' (head f21045c791002d81fc6b8dde6537ea481e513eb2) to branch 'au.asn.ucc.matt.dropbear.dbclient-netcat-alike' (head d1f69334581dc4c35f9ca16aa5355074c9dd315d)
author Matt Johnston <matt@ucc.asn.au>
date Sun, 14 Sep 2008 06:47:51 +0000
parents 5ff8218bcee9
children 60fc6476e044
comparison
equal deleted inserted replaced
296:6b41e2cbf071 478:d4f32c3443ac
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 }