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