Spracherkennung für: .g vermutete Sprache: Unknown {[0] [0] [0]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]
#############################################################################
##
#W Make.g GAPDoc Frank Lübeck
##
##
#Y Copyright (C) 2000, Frank Lübeck, Lehrstuhl D für Mathematik,
#Y RWTH Aachen
##
## This file contains a function which may be used for building all
## output versions of a GAPDoc XML document which are provided by the
## GAPDoc package.
##
## args:
## path, main, files, bookname[, gaproot][, "MathML"][, "Tth"][, "MathJax"]
BindGlobal("MakeGAPDocDoc", function(path, main, files, bookname, opts...)
local special, gaproot, str, r, t, l, latex, null, log, pos, h, i, j;
special := Filtered(opts, a-> a in ["MathML", "Tth", "MathJax", "nopdf"]);
if Length(special) > 0 then
opts := Filtered(opts, a-> not a in ["MathML", "Tth", "MathJax", "nopdf"]);
fi;
if IsBound(opts[1]) then
gaproot := opts[1];
else
gaproot := false;
fi;
# ensure that path is directory object
if IsString(path) then
path := Directory(path);
fi;
# ensure that .xml is stripped from name of main file
if Length(main)>3 and main{[Length(main)-3..Length(main)]} = ".xml" then
main := main{[1..Length(main)-4]};
fi;
# compose the XML document
Info(InfoGAPDoc, 1, "#I Composing XML document . . .\n");
str := ComposedDocument("GAPDoc", path,
Concatenation(main, ".xml"), files, true);
# parse the XML document
Info(InfoGAPDoc, 1, "#I Parsing XML document . . .\n");
r := ParseTreeXMLString(str[1], str[2]);
# clean the result
Info(InfoGAPDoc, 1, "#I Checking XML structure . . .\n");
CheckAndCleanGapDocTree(r);
# produce text version
Info(InfoGAPDoc, 1,
"#I Text version (also produces labels for hyperlinks):\n");
t := GAPDoc2Text(r, path);
GAPDoc2TextPrintTextFiles(t, path);
# produce LaTeX version
Info(InfoGAPDoc, 1, "#I Constructing LaTeX version and calling pdflatex:\n");
r.bibpath := path;
l := GAPDoc2LaTeX(r);
Info(InfoGAPDoc, 1, "#I Writing LaTeX file, \c");
Info(InfoGAPDoc, 2, Concatenation(main, ".tex"), "\n#I ");
FileString(Filename(path, Concatenation(main, ".tex")), l);
if "nopdf" in special then
Info(InfoGAPDoc, 1, " NO PDF generated!\n");
PrintSixFile(Filename(path, "manual.six"), r, bookname);
else
if Filename(DirectoriesSystemPrograms(), "pdflatex") = fail then
Info(InfoGAPDoc, 1, "\n#W WARNING: cannot find 'pdflatex', please install TeX.\n");
Info(InfoGAPDoc, 1, "#W WARNING: will NOT produce pdf version from LaTeX file.\n");
else
# call latex and pdflatex (with bibtex, makeindex and dvips)
latex := "latex -interaction=nonstopmode ";
# sh-syntax for redirecting stderr and stdout to /dev/null
null := " > /dev/null 2>&1 ";
Info(InfoGAPDoc, 1, "4 x pdflatex with bibtex and makeindex, \c");
Exec(Concatenation("sh -c \" cd ", Filename(path,""),
"; rm -f ", main, ".aux ", main, ".pdf ", main, ".log ",
"; pdf", latex, main, null,
"; bibtex ", main, null,
"; pdf", latex, main, null,
"; makeindex ", main, null,
"; pdf", latex, main, null,
"; pdf", latex, main, null,"\""));
# check log file for errors, warning, overfull boxes
log := Filename(path, Concatenation(main, ".log"));
log := StringFile(log);
if log = fail then
Info(InfoGAPDoc, 1, "\n#W WARNING: Something wrong, don't find log file ",
Filename(path, Concatenation(main, ".log")), "\n");
else
log := SplitString(log, "\n", "");
pos := Filtered([1..Length(log)], i-> Length(log[i]) > 0
and log[i][1] = '!');
if Length(pos) > 0 then
Info(InfoGAPDoc, 1, "\n#W There were LaTeX errors:\n");
for i in pos do
for j in [i..Minimum(i+2, Length(log))] do
Info(InfoGAPDoc, 1, log[j], "\n");
od;
Info(InfoGAPDoc, 1, "____________________\n");
od;
fi;
pos := Filtered([1..Length(log)], i-> Length(log[i]) > 13
and log[i]{[1..14]} = "LaTeX Warning:");
if Length(pos) > 0 then
Info(InfoGAPDoc, 1, "\n#W There were LaTeX Warnings:\n");
for i in pos do
for j in [i..Minimum(i+2, Length(log))] do
Info(InfoGAPDoc, 1, log[j], "\n");
od;
Info(InfoGAPDoc, 1, "____________________\n");
od;
fi;
pos := Filtered([1..Length(log)], i-> Length(log[i]) > 7
and log[i]{[1..8]} = "Overfull");
if Length(pos) > 0 then
Info(InfoGAPDoc, 1, "\n#W There are overfull boxes:\n");
for i in pos do
Info(InfoGAPDoc, 1, log[i], "\n");
od;
fi;
fi;
# check for BibTeX warnings
log := StringFile(Filename(path, Concatenation(main, ".blg")));
if log <> fail then
log := SplitString(log, "\n", "");
log := Filtered(log, z-> PositionSublist(z, "Warning--") = 1);
if Length(log) > 0 then
Info(InfoGAPDoc, 1, "\n#W BibTeX had warnings:\n",
JoinStringsWithSeparator(log, "\n"));
fi;
fi;
if not IsExistingFile(Filename(path, Concatenation(main, ".pdf"))) then
Info(InfoGAPDoc, 1, "\n#I ERROR: no .pdf file produced (writing incomplete .six file)\n");
PrintSixFile(Filename(path, "manual.six"), r, bookname);
else
Exec(Concatenation("sh -c \" cd ", Filename(path,""),
"; mv ", main, ".pdf manual.pdf; ",
"\""));
Info(InfoGAPDoc, 1, "\n");
# read page number information for .six file
Info(InfoGAPDoc, 1, "#I Writing manual.six file ... \c");
Info(InfoGAPDoc, 2, Filename(path, "manual.six"), "\n");
Info(InfoGAPDoc, 1, "\n");
AddPageNumbersToSix(r, Filename(path, Concatenation(main, ".pnr")));
# print manual.six file
PrintSixFile(Filename(path, "manual.six"), r, bookname);
fi;
fi;
fi;
# produce html version
Info(InfoGAPDoc, 1, "#I Finally the HTML version . . .\n");
# if MathJax version is also produced we include links to them
if "MathJax" in special then
r.LinkToMathJax := true;
fi;
h := GAPDoc2HTML(r, path, gaproot);
GAPDoc2HTMLPrintHTMLFiles(h, path);
Unbind(r.LinkToMathJax);
if "Tth" in special then
Info(InfoGAPDoc, 1,
"#I - also HTML version with 'tth' translated formulae . . .\n");
h := GAPDoc2HTML(r, path, gaproot, "Tth");
GAPDoc2HTMLPrintHTMLFiles(h, path);
fi;
if "MathML" in special then
Info(InfoGAPDoc, 1, "#I - also HTML + MathML version with 'ttm' . . .\n");
h := GAPDoc2HTML(r, path, gaproot, "MathML");
GAPDoc2HTMLPrintHTMLFiles(h, path);
fi;
if "MathJax" in special then
Info(InfoGAPDoc, 1, "#I - also HTML version for MathJax . . .\n");
h := GAPDoc2HTML(r, path, gaproot, "MathJax");
GAPDoc2HTMLPrintHTMLFiles(h, path);
fi;
return r;
end);
