Fix checking package in read.g/init.g

peal · Aug 27, 2024 · 7915ad2 · 7915ad2
1 parent a6871f8
commit 7915ad2
Show file tree

Hide file tree

Showing 6 changed files with 14 additions and 4 deletions.
diff --git a/gap/GraphBacktracking.gd b/gap/GraphBacktracking.gd
@@ -8,3 +8,5 @@
 #!  Information about backtrack search
 InfoGB := InfoBTKit;
 
+# From init.g
+_BTKit.FilesInitGB := true;
diff --git a/gap/GraphBacktracking.gi b/gap/GraphBacktracking.gi
@@ -128,3 +128,5 @@ _GB.BuildProblem :=
     {ps, conlist, conf} -> Objectify(GBStateType, rec(ps := ps, conlist := conlist, graphs := [], raw_graphs := [],
                             config := _BTKit.FillConfig(conf, _GB.DefaultConfig)));
 
+# For read.g
+_BTKit.FilesReadGB := true;
diff --git a/gap/interface.gd b/gap/interface.gd
@@ -6,3 +6,6 @@ DeclareGlobalFunction( "GB_SimpleAllPermSearch" );
 
 DeclareGlobalFunction( "GB_CheckInitialGroup" );
 DeclareGlobalFunction( "GB_CheckInitialCoset" );
+
+# From init.g
+_BTKit.InitInterfaceGB := true;
diff --git a/gap/interface.gi b/gap/interface.gi
@@ -64,3 +64,6 @@ InstallGlobalFunction( GB_CheckInitialCoset,
         autgraph2 := [OnDigraphs(sols2.graph[1], sols2.canonicalperm), List(sols2.graph[2], x -> OnSets(x, sols2.canonicalperm))];
         return rec(graph1 := autgraph1, graph2 := autgraph2, equal := autgraph1 = autgraph2);
 end);
+
+# For read.g
+_BTKit.ReadInterfaceGB := true;
diff --git a/init.g b/init.g
@@ -6,12 +6,12 @@
 
 
 if not IsBound(_BT_SKIP_INTERFACE) and not IsBound(_BTKit.InitInterfaceGB) then
-    _BTKit.InitInterfaceGB := true;
+    # _BTKit.InitInterfaceGB := true; in gap/interface.gd
     ReadPackage( "GraphBacktracking", "gap/interface.gd");
 fi;
 
 if not IsBound(_BTKit.FilesInitGB) then
-    _BTKit.FilesInitGB := true;
+    # _BTKit.FilesInitGB := true; in gap/GraphBacktracking.gd
     ReadPackage( "GraphBacktracking", "gap/GraphBacktracking.gd");
     ReadPackage( "GraphBacktracking", "gap/Equitable.gd");
 fi;
diff --git a/read.g b/read.g
@@ -9,12 +9,12 @@ if not IsBound(_BTKit.FilesReadGB) then
 fi;
 
 if not IsBound(_BT_SKIP_INTERFACE) and not IsBound(_BTKit.ReadInterfaceGB) then
-    _BTKit.ReadInterfaceGB := true;
+    # _BTKit.ReadInterfaceGB := true; in gap/interface.gi
     ReadPackage( "GraphBacktracking", "gap/interface.gi");
 fi;
 
 if not IsBound(_BTKit.FilesReadGB) then
-    _BTKit.FilesReadGB := true;
+    # _BTKit.FilesReadGB := true; in gap/GraphBacktracking.gi
     ReadPackage( "GraphBacktracking", "gap/GraphBacktracking.gi");
     ReadPackage( "GraphBacktracking", "gap/Equitable.gi");
     ReadPackage( "GraphBacktracking", "gap/constraints/simpleconstraints.g");