|
#############################################################################
####
##
#W ace.gi ACE Package Alexander Hulpke
#W Greg Gamble
##
## `Head' file for the GAP interface to the ACE (Advanced Coset Enumerator),
## by George Havas and Colin Ramsay. The original interface was written by
## Alexander Hulpke and extensively modified by Greg Gamble.
##
#Y Copyright (C) 2000 Centre for Discrete Mathematics and Computing
#Y Department of Information Technology & Electrical Eng.
#Y University of Queensland, Australia.
##
#############################################################################
####
##
#V ACEData . . . . . . . record used by various functions of the ACE package
##
## The fields of ACEData are:
##
## "binary" . . the path of the ACE binary
## "tmpdir" . . the path of the temporary directory for ACE i/o files
## "ni" . . . . record for a non-interactive process
## "io" . . . . list of data records for ACEStart IO Streams
## "infile" . . the path of the ACE input file
## "outfile" . . the path of the ACE output file
## "version" . . the version of the current ACE binary
##
InstallValue( ACEData,
rec( binary := Filename(DirectoriesPackagePrograms("ace"), "ace"),
tmpdir := DirectoryTemporary(),
ni := rec(),
io := [] # Initially no ACEStart IO Streams
)
);
ACEData.infile := Filename(ACEData.tmpdir, "in");
ACEData.outfile := Filename(ACEData.tmpdir, "out");
PrintTo(ACEData.infile, "\n");
# Fire up ACE with an empty input to generate a banner (which has ACE's
# current version)
ACEData.version := "";
Process( DirectoryCurrent(), ACEData.binary, InputTextNone(), OutputTextString( ACEData.version, false ), [ ] );
ACEData.scratch := PositionSublist(ACEData.version, "ACE") + 4;
ACEData.version := ACEData.version{[ACEData.scratch ..
Position(ACEData.version, ' ',
ACEData.scratch) - 1]};
Unbind(ACEData.scratch); # We don't need ACEData.scratch, anymore.
#############################################################################
##
#I InfoClass
##
# Set the default level of InfoACE
SetInfoLevel(InfoACE, 1);
#############################################################################
####
##
#V ACEIgnoreUnknownDefault . . . . . . . . . . . . the default value of the
## . . . . . . . . . . . . . . . . . . . . . . . . `aceignoreunknown' option
##
ACEIgnoreUnknownDefault := true;
#############################################################################
####
## Ensure no zombie ACE processes from interactive (ACEStart) sessions are
## . . . . . . . . . . . . . . . . . left lying around when user quits GAP
##
InstallAtExit( ACEQuitAll );
#E ace.gi . . . . . . . . . . . . . . . . . . . . . . . . . . . . ends here
[ Dauer der Verarbeitung: 0.8 Sekunden
(vorverarbeitet)
]
|
