remove LTM book
reuse `docs` make-target to build poster and manual fixes #383
This commit is contained in:
Steffen Jaeckel
parent
f8e9bd27f0
commit
17ca193fa7
296
doc/booker.pl
296
doc/booker.pl
@ -1,296 +0,0 @@
|
||||
#!/bin/perl
|
||||
#
|
||||
#Used to prepare the book "tommath.src" for LaTeX by pre-processing it into a .tex file
|
||||
#
|
||||
#Essentially you write the "tommath.src" as normal LaTex except where you want code snippets you put
|
||||
#
|
||||
#EXAM,file
|
||||
#
|
||||
#This preprocessor will then open "file" and insert it as a verbatim copy.
|
||||
#
|
||||
#Tom St Denis
|
||||
use strict;
|
||||
|
||||
#get graphics type
|
||||
my $graph;
|
||||
if (shift =~ /PDF/) {
|
||||
$graph = "";
|
||||
} else {
|
||||
$graph = ".ps";
|
||||
}
|
||||
|
||||
open(my $in, '<', 'tommath.src') or die "Can't open source file";
|
||||
open(my $out, '>', 'tommath.tex') or die "Can't open destination file";
|
||||
|
||||
print "Scanning for sections\n";
|
||||
my $chapter = 0;
|
||||
my $section = 0;
|
||||
my $subsection = 0;
|
||||
my $x = 0;
|
||||
my %index1;
|
||||
my %index2;
|
||||
my %index3;
|
||||
while (<$in>) {
|
||||
print ".";
|
||||
if (!(++$x % 80)) { print "\n"; }
|
||||
#update the headings
|
||||
if (~($_ =~ /\*/)) {
|
||||
if ($_ =~ /\\chapter\{.+}/) {
|
||||
++$chapter;
|
||||
$section = $subsection = 0;
|
||||
} elsif ($_ =~ /\\section\{.+}/) {
|
||||
++$section;
|
||||
$subsection = 0;
|
||||
} elsif ($_ =~ /\\subsection\{.+}/) {
|
||||
++$subsection;
|
||||
}
|
||||
}
|
||||
|
||||
if ($_ =~ m/MARK/) {
|
||||
my @m = split ',', $_;
|
||||
chomp $m[1];
|
||||
$index1{$m[1]} = $chapter;
|
||||
$index2{$m[1]} = $section;
|
||||
$index3{$m[1]} = $subsection;
|
||||
}
|
||||
}
|
||||
close $in;
|
||||
|
||||
open($in, '<', 'tommath.src') or die "Can't open source file";
|
||||
my $readline = 0;
|
||||
my $wroteline = 0;
|
||||
my $srcline = 0;
|
||||
my $totlines;
|
||||
my @text;
|
||||
|
||||
while (<$in>) {
|
||||
++$readline;
|
||||
++$srcline;
|
||||
|
||||
if ($_ =~ m/MARK/) {
|
||||
} elsif ($_ =~ m/EXAM/ || $_ =~ m/LIST/) {
|
||||
my $skipheader;
|
||||
if ($_ =~ m/EXAM/) {
|
||||
$skipheader = 1;
|
||||
} else {
|
||||
$skipheader = 0;
|
||||
}
|
||||
|
||||
# EXAM,file
|
||||
chomp($_);
|
||||
my @m = split ',', $_;
|
||||
open(my $src, '<', "../$m[1]") or die "Error:$srcline:Can't open source file $m[1]";
|
||||
|
||||
print "$srcline:Inserting $m[1]:";
|
||||
|
||||
my $line = 0;
|
||||
my $tmp = $m[1];
|
||||
my $fun = $tmp;
|
||||
$tmp =~ s/_/"\\_"/ge;
|
||||
$fun =~ s/^bn_//;
|
||||
$fun =~ s/\.c$//;
|
||||
$fun =~ s/_/"\\_"/ge;
|
||||
print {$out} "\\index{$fun}\\vspace{+3mm}\\begin{small}\n\\hspace{-5.1mm}{\\bf File}: $tmp\n\\vspace{-3mm}\n\\begin{alltt}\n";
|
||||
$wroteline += 5;
|
||||
|
||||
if ($skipheader == 1) {
|
||||
# scan till next end of comment, e.g. skip license
|
||||
while (<$src>) {
|
||||
if ($_ =~ /#ifdef BN/) {
|
||||
printf {$out} ("%03d ", $line);
|
||||
for ($x = 0; $x < length($_); $x++) {
|
||||
print {$out} chr(vec($_, $x, 8));
|
||||
if ($x == 75) {
|
||||
print {$out} "\n ";
|
||||
++$wroteline;
|
||||
}
|
||||
}
|
||||
print {$out} "...\n";
|
||||
++$wroteline;
|
||||
}
|
||||
$text[$line++] = $_;
|
||||
last if ($_ =~ /libtom\.org/);
|
||||
}
|
||||
<$src>;
|
||||
$text[$line++] = $_;
|
||||
<$src>;
|
||||
$text[$line++] = $_;
|
||||
}
|
||||
|
||||
my $inline = 0;
|
||||
while (<$src>) {
|
||||
$text[$line++] = $_;
|
||||
++$inline;
|
||||
chomp($_);
|
||||
$_ =~ s/\t/" "/ge;
|
||||
$_ =~ s/{/"^{"/ge;
|
||||
$_ =~ s/}/"^}"/ge;
|
||||
$_ =~ s/\\/'\symbol{92}'/ge;
|
||||
$_ =~ s/\^/"\\"/ge;
|
||||
|
||||
printf {$out} ("%03d ", $line);
|
||||
for ($x = 0; $x < length($_); $x++) {
|
||||
print {$out} chr(vec($_, $x, 8));
|
||||
if ($x == 75) {
|
||||
print {$out} "\n ";
|
||||
++$wroteline;
|
||||
}
|
||||
}
|
||||
print {$out} "\n";
|
||||
++$wroteline;
|
||||
}
|
||||
$totlines = $line;
|
||||
print {$out} "\\end{alltt}\n\\end{small}\n";
|
||||
close $src;
|
||||
print "$inline lines\n";
|
||||
$wroteline += 2;
|
||||
} elsif ($_ =~ m/@\d+,.+@/) {
|
||||
# line contains [number,text]
|
||||
# e.g. @14,for (ix = 0)@
|
||||
my $txt = $_;
|
||||
while ($txt =~ m/@\d+,.+@/) {
|
||||
my @m = split '@', $txt; # splits into text, one, two
|
||||
my @parms = split ',', $m[1]; # splits one,two into two elements
|
||||
|
||||
# now search from $parms[0] down for $parms[1]
|
||||
my $found;
|
||||
my $found1 = 0;
|
||||
my $found2 = 0;
|
||||
my $foundline;
|
||||
my $foundline1;
|
||||
my $foundline2;
|
||||
for (my $i = $parms[0]; $i < $totlines && $found1 == 0; $i++) {
|
||||
if ($text[$i] =~ m/\Q$parms[1]\E/) {
|
||||
$foundline1 = $i + 1;
|
||||
$found1 = 1;
|
||||
}
|
||||
}
|
||||
|
||||
# now search backwards
|
||||
for (my $i = $parms[0] - 1; $i >= 0 && $found2 == 0; $i--) {
|
||||
if ($text[$i] =~ m/\Q$parms[1]\E/) {
|
||||
$foundline2 = $i + 1;
|
||||
$found2 = 1;
|
||||
}
|
||||
}
|
||||
|
||||
# now use the closest match or the first if tied
|
||||
if ($found1 == 1 && $found2 == 0) {
|
||||
$found = 1;
|
||||
$foundline = $foundline1;
|
||||
} elsif ($found1 == 0 && $found2 == 1) {
|
||||
$found = 1;
|
||||
$foundline = $foundline2;
|
||||
} elsif ($found1 == 1 && $found2 == 1) {
|
||||
$found = 1;
|
||||
if (($foundline1 - $parms[0]) <= ($parms[0] - $foundline2)) {
|
||||
$foundline = $foundline1;
|
||||
} else {
|
||||
$foundline = $foundline2;
|
||||
}
|
||||
} else {
|
||||
$found = 0;
|
||||
}
|
||||
|
||||
# if found replace
|
||||
if ($found == 1) {
|
||||
my $delta = $parms[0] - $foundline;
|
||||
print "Found replacement tag for \"$parms[1]\" on line $srcline which refers to line $foundline (delta $delta)\n";
|
||||
$_ =~ s/@\Q$m[1]\E@/$foundline/;
|
||||
} else {
|
||||
print "ERROR: The tag \"$parms[1]\" on line $srcline was not found in the most recently parsed source!\n";
|
||||
}
|
||||
|
||||
# remake the rest of the line
|
||||
$txt = "";
|
||||
for (my $i = 2; $i < scalar(@m); $i++) {
|
||||
$txt = $txt . $m[$i] . "@";
|
||||
}
|
||||
}
|
||||
print {$out} $_;
|
||||
++$wroteline;
|
||||
} elsif ($_ =~ /~.+~/) {
|
||||
# line contains a ~text~ pair used to refer to indexing :-)
|
||||
my $txt = $_;
|
||||
while ($txt =~ /~.+~/) {
|
||||
my @m = split '~', $txt;
|
||||
|
||||
# word is the second position
|
||||
my $word = $m[1];
|
||||
my $a = $index1{$word};
|
||||
my $b = $index2{$word};
|
||||
my $c = $index3{$word};
|
||||
|
||||
# if chapter (a) is zero it wasn't found
|
||||
if ($a == 0) {
|
||||
print "ERROR: the tag \"$word\" on line $srcline was not found previously marked.\n";
|
||||
} else {
|
||||
# format the tag as x, x.y or x.y.z depending on the values
|
||||
my $str = $a;
|
||||
$str = $str . ".$b" if ($b != 0);
|
||||
$str = $str . ".$c" if ($c != 0);
|
||||
|
||||
if ($b == 0 && $c == 0) {
|
||||
# its a chapter
|
||||
if ($a <= 10) {
|
||||
if ($a == 1) {
|
||||
$str = "chapter one";
|
||||
} elsif ($a == 2) {
|
||||
$str = "chapter two";
|
||||
} elsif ($a == 3) {
|
||||
$str = "chapter three";
|
||||
} elsif ($a == 4) {
|
||||
$str = "chapter four";
|
||||
} elsif ($a == 5) {
|
||||
$str = "chapter five";
|
||||
} elsif ($a == 6) {
|
||||
$str = "chapter six";
|
||||
} elsif ($a == 7) {
|
||||
$str = "chapter seven";
|
||||
} elsif ($a == 8) {
|
||||
$str = "chapter eight";
|
||||
} elsif ($a == 9) {
|
||||
$str = "chapter nine";
|
||||
} elsif ($a == 10) {
|
||||
$str = "chapter ten";
|
||||
}
|
||||
} else {
|
||||
$str = "chapter " . $str;
|
||||
}
|
||||
} else {
|
||||
$str = "section " . $str if ($b != 0 && $c == 0);
|
||||
$str = "sub-section " . $str if ($b != 0 && $c != 0);
|
||||
}
|
||||
|
||||
#substitute
|
||||
$_ =~ s/~\Q$word\E~/$str/;
|
||||
|
||||
print "Found replacement tag for marker \"$word\" on line $srcline which refers to $str\n";
|
||||
}
|
||||
|
||||
# remake rest of the line
|
||||
$txt = "";
|
||||
for (my $i = 2; $i < scalar(@m); $i++) {
|
||||
$txt = $txt . $m[$i] . "~";
|
||||
}
|
||||
}
|
||||
print {$out} $_;
|
||||
++$wroteline;
|
||||
} elsif ($_ =~ m/FIGU/) {
|
||||
# FIGU,file,caption
|
||||
chomp($_);
|
||||
my @m = split ',', $_;
|
||||
print {$out} "\\begin{center}\n\\begin{figure}[h]\n\\includegraphics{pics/$m[1]$graph}\n";
|
||||
print {$out} "\\caption{$m[2]}\n\\label{pic:$m[1]}\n\\end{figure}\n\\end{center}\n";
|
||||
$wroteline += 4;
|
||||
} else {
|
||||
print {$out} $_;
|
||||
++$wroteline;
|
||||
}
|
||||
}
|
||||
print "Read $readline lines, wrote $wroteline lines\n";
|
||||
|
||||
close $out;
|
||||
close $in;
|
||||
|
||||
system('perl -pli -e "s/\s*$//" tommath.tex');
|
||||
19
doc/makefile
19
doc/makefile
@ -9,19 +9,10 @@ ifeq ($(PLATFORM), Darwin)
|
||||
err:
|
||||
$(error Docs can't be built on Mac)
|
||||
|
||||
docdvi poster docs mandvi manual: err
|
||||
poster docs mandvi manual: err
|
||||
endif
|
||||
|
||||
# makes the LTM book DVI file, requires tetex, perl and makeindex [part of tetex I think]
|
||||
docdvi: tommath.src
|
||||
${MAKE} -C pics/ MAKE=${MAKE}
|
||||
echo "hello" ${silent_stdout}
|
||||
perl booker.pl
|
||||
touch tommath.ind
|
||||
latex tommath ${silent_stdout}
|
||||
latex tommath ${silent_stdout}
|
||||
makeindex tommath
|
||||
latex tommath ${silent_stdout}
|
||||
docs: poster manual
|
||||
|
||||
# poster, makes the single page PDF poster
|
||||
poster: poster.tex
|
||||
@ -39,12 +30,6 @@ poster: poster.tex
|
||||
mv poster.bak poster.tex
|
||||
rm -f poster.aux poster.log poster.out
|
||||
|
||||
# makes the LTM book PDF file, requires tetex, cleans up the LaTeX temp files
|
||||
docs: docdvi
|
||||
dvipdf tommath
|
||||
rm -f tommath.log tommath.aux tommath.dvi tommath.idx tommath.toc tommath.lof tommath.ind tommath.ilg
|
||||
${MAKE} -C pics/ clean MAKE=${MAKE}
|
||||
|
||||
#LTM user manual
|
||||
mandvi: bn.tex
|
||||
cp bn.tex bn.bak
|
||||
|
||||
6350
doc/tommath.src
6350
doc/tommath.src
File diff suppressed because it is too large
Load Diff
4
makefile
4
makefile
@ -123,7 +123,7 @@ tune: $(LIBNAME)
|
||||
coveralls: lcov
|
||||
coveralls-lcov
|
||||
|
||||
docdvi poster docs mandvi manual:
|
||||
poster docs manual:
|
||||
$(MAKE) -C doc/ $@ V=$(V)
|
||||
|
||||
.PHONY: pre_gen
|
||||
@ -133,7 +133,7 @@ pre_gen:
|
||||
sed -e 's/[[:blank:]]*$$//' mpi.c > pre_gen/mpi.c
|
||||
rm mpi.c
|
||||
|
||||
zipup: clean astyle new_file manual poster
|
||||
zipup: clean astyle new_file docs
|
||||
@# Update the index, so diff-index won't fail in case the pdf has been created.
|
||||
@# As the pdf creation modifies the tex files, git sometimes detects the
|
||||
@# modified files, but misses that it's put back to its original version.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user