1#############################################################################
2##
3##  init.g
4##  Copyright (C) 2014                                   James D. Mitchell
5##
6##  Licensing information can be found in the README file of this package.
7##
8#############################################################################
9##
10
11# load a method for UserHomeExpand if necessary
12if not IsBound(UserHomeExpand) then
13  BindGlobal("UserHomeExpand", USER_HOME_EXPAND);
14fi;
15
16# load kernel function if it is installed:
17if not IsBound(DIGRAPH_OUT_NBS) and "digraphs" in SHOW_STAT() then
18  # try static module
19  LoadStaticModule("digraphs");
20fi;
21if not IsBound(DIGRAPH_OUT_NBS) and
22    Filename(DirectoriesPackagePrograms("digraphs"), "digraphs.so") <> fail then
23  LoadDynamicModule(Filename(DirectoriesPackagePrograms("digraphs"),
24                             "digraphs.so"));
25fi;
26
27BindGlobal("DIGRAPHS_IsGrapeLoaded",
28           IsPackageMarkedForLoading("grape", "4.8.1"));
29
30if not DIGRAPHS_IsGrapeLoaded then
31  IsGraph := ReturnFalse;
32  Vertices := IdFunc;
33  Adjacency := IdFunc;
34fi;
35
36ReadPackage("digraphs", "gap/digraph.gd");
37ReadPackage("digraphs", "gap/digraphs.g");
38ReadPackage("digraphs", "gap/constructors.gd");
39ReadPackage("digraphs", "gap/grape.gd");
40ReadPackage("digraphs", "gap/labels.gd");
41ReadPackage("digraphs", "gap/attr.gd");
42ReadPackage("digraphs", "gap/prop.gd");
43ReadPackage("digraphs", "gap/oper.gd");
44ReadPackage("digraphs", "gap/display.gd");
45ReadPackage("digraphs", "gap/isomorph.gd");
46ReadPackage("digraphs", "gap/utils.gd");
47ReadPackage("digraphs", "gap/io.gd");
48ReadPackage("digraphs", "gap/grahom.gd");
49ReadPackage("digraphs", "gap/orbits.gd");
50ReadPackage("digraphs", "gap/cliques.gd");
51ReadPackage("digraphs", "gap/planar.gd");
52ReadPackage("digraphs", "gap/examples.gd");
53
54DeclareInfoClass("InfoDigraphs");
55