-
Notifications
You must be signed in to change notification settings - Fork 0
/
init.g
46 lines (42 loc) · 1.54 KB
/
init.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
39
40
41
42
43
44
45
#############################################################################
##
## LINBOXING - init.g
## Initialisation file
## Paul Smith
##
## Copyright (C) 2007-2008
## Paul Smith
## National University of Ireland Galway
##
## This file is part of the linboxing GAP package.
##
## The linboxing package is free software; you can redistribute it and/or
## modify it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or (at your
## option) any later version.
##
## The linboxing package is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
## Public License for more details.
##
## You should have received a copy of the GNU General Public License along
## with this program. If not, see <https://www.gnu.org/licenses/>.
##
## $Id: init.g 90 2008-01-29 15:10:15Z pas $
##
#############################################################################
ReadPackage( "linboxing", "lib/linboxing.gd" );
# load kernel functions if possible
# try the static module first
if not IsBound(LinBox) then
if "linboxing" in SHOW_STAT() then
LoadStaticModule("linboxing");
fi;
fi;
# now try the dynamic module
if not IsBound(LinBox) then
if Filename(DirectoriesPackagePrograms("linboxing"), "linboxing.so") <> fail then
LoadDynamicModule(Filename(DirectoriesPackagePrograms("linboxing"), "linboxing.so"));
fi;
fi;