Quelle makedoc.g Sprache: unbekannt

Read( "PackageInfo.g" );
info := GAPInfo.PackageInfoCurrent;
pkgName := info.PackageName;

if (
    LoadPackage( pkgName, false ) = fail or
    LoadPackage( "AutoDoc", false ) = fail
) then
    Info( InfoGAPDoc, 1, "#I Could not load required package(s).\n" );
    ForceQuitGap( 1 );
fi;

if IsBound( info.Extensions ) then
    for ext in info.Extensions do
        for pkgver in ext.needed do
            LoadPackage( pkgver[1], pkgver[2], false );
        od;
    od;
fi;

AutoDoc( rec(
    scaffold := rec(
        bib := "manual.bib",
        entities := rec(
            AutoDoc := "<Package>AutoDoc</Package>",
            Polycyclic := "<Package>Polycyclic</Package>",
            PackageManager := "<Package>PackageManager</Package>",
            BibLaTeX := "Bib&LaTeX;",
            PackageName := pkgName,
            PACKAGENAME := Concatenation(
                "<Package>",
                pkgName,
                "</Package>"
            ),
            ABBREV := "TC",
            AUTHOR := Concatenation(
                info.Persons[1].FirstNames, " ", info.Persons[1].LastName
            ),
            AUTHORREVERSED := Concatenation(
                info.Persons[1].LastName, ", ", info.Persons[1].FirstNames
            ),
            RELEASEYEAR := String( info.Date{ [ 7 .. 10 ] } ),
            VERSION := info.Version,
            ARCHIVEURL := info.ArchiveURL,
            ISSUEURL := info.IssueTrackerURL,
            HOMEURL := info.PackageWWWHome,
            SUPPORTEMAIL := info.SupportEmail,
            SUBTITLE := info.Subtitle
        )
    ),
    autodoc := rec( files := [ "doc/manual.gd" ] ),
    gapdoc := rec(
        LaTeXOptions := rec( LateExtraPreamble := "\\usepackage{amsmath}" )
    ),
    extract_examples := rec( units := "File" )
));

if not IsReadableFile( "doc/manual.six" ) then
    Info( InfoGAPDoc, 1, "#I One or more files could not be created.\n" );
    ForceQuitGap( 1 );
else
    Info( InfoGAPDoc, 1, "#I Manual files sucessfully created.\n" );
fi;

tstFile := Concatenation(
    "tst/",
    ReplacedString( LowercaseString( pkgName ), " ", "_" ),
    "01.tst"
);

if IsReadableFile( tstFile ) then
    Info( InfoGAPDoc, 1, "#I Testing examples found in manual.\n" );
    correct := Test( tstFile, rec( compareFunction := "uptowhitespace" ) );
    RemoveFile( tstFile );
    if correct then
        Info( InfoGAPDoc, 1, "#I All examples are correct.\n" );
    else
        Info( InfoGAPDoc, 1, "#I One or more examples are incorrect.\n" );
        ForceQuitGap( 1 );
    fi;
else
    Info( InfoGAPDoc, 1, "#I No examples found in manual.\n" );
fi;

Info( InfoGAPDoc, 1, "#I Documentation successfully created.\n" );
QuitGap( 0 );

Quelle makedoc.g Sprache: unbekannt

[ Dauer der Verarbeitung: 0.14 Sekunden (vorverarbeitet) ]