-
Notifications
You must be signed in to change notification settings - Fork 2
/
read.g
40 lines (31 loc) · 1.02 KB
/
read.g
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#############################################################################
##
#A read.g StandardFF package Frank Lübeck
##
## Reading the library of the package.
##
# workaround for some (not very realistic) CI tests
if not IsBound(BRENTFACTORS) then
BRENTFACTORS := 0;
WriteBrentFactorsFiles := 0;
fi;
if not IsBound(IO_PipeThrough) then
IO_PipeThrough := 0;
fi;
ReadPackage( "StandardFF", "lib/Util.gi");
ReadPackage( "StandardFF", "lib/IsIrred.gi");
ReadPackage( "StandardFF", "lib/StandardFF.gi");
ReadPackage( "StandardFF", "lib/StandardCyc.gi");
ReadPackage( "StandardFF", "lib/CANFACT.g");
ReadPackage( "StandardFF", "lib/TestFuncs.g");
# redefine the Info handler and output, we use the plain one from GAPDoc
SetInfoHandler(InfoStandardFF, PlainInfoHandler);
SetInfoOutput(InfoStandardFF, "*errout*");
# part of workaround above:
if BRENTFACTORS = 0 then
Unbind(BRENTFACTORS);
Unbind(WriteBrentFactorsFiles);
fi;
if IO_PipeThrough = 0 then
Unbind(IO_PipeThrough);
fi;