Finish adding 'interface' mode

peal · Aug 26, 2024 · 8733309 · 8733309
1 parent fb8b821
commit 8733309
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 17 deletions.
diff --git a/init.g b/init.g
@@ -4,9 +4,14 @@
 # Reading the declaration part of the package.
 #
 
-if not IsBound(_BT_SKIP_INTERFACE) then
+
+if not IsBound(_BT_SKIP_INTERFACE) and not IsBound(_BTKit.InitInterfaceGB) then
+    _BTKit.InitInterfaceGB := true;
     ReadPackage( "GraphBacktracking", "gap/interface.gd");
 fi;
 
-ReadPackage( "GraphBacktracking", "gap/GraphBacktracking.gd");
-ReadPackage( "GraphBacktracking", "gap/Equitable.gd");
+if not IsBound(_BTKit.FilesInitGB) then
+    _BTKit.FilesInitGB := true;
+    ReadPackage( "GraphBacktracking", "gap/GraphBacktracking.gd");
+    ReadPackage( "GraphBacktracking", "gap/Equitable.gd");
+fi;
diff --git a/read.g b/read.g
@@ -4,22 +4,26 @@
 # Reading the implementation part of the package.
 #
 
+if not IsBound(_BTKit.FilesReadGB) then
+    _GB := AtomicRecord(rec());
+fi;
 
-# Private methods of package
-_GB := AtomicRecord(rec());
-
-if not IsBound(_BT_SKIP_INTERFACE) then
+if not IsBound(_BT_SKIP_INTERFACE) and not IsBound(_BTKit.ReadInterfaceGB) then
+    _BTKit.ReadInterfaceGB := true;
     ReadPackage( "GraphBacktracking", "gap/interface.gi");
 fi;
 
-ReadPackage( "GraphBacktracking", "gap/GraphBacktracking.gi");
-ReadPackage( "GraphBacktracking", "gap/Equitable.gi");
-ReadPackage( "GraphBacktracking", "gap/constraints/simpleconstraints.g");
-ReadPackage( "GraphBacktracking", "gap/constraints/normaliser.g");
-ReadPackage( "GraphBacktracking", "gap/constraints/canonicalconstraints.g");
-ReadPackage( "GraphBacktracking", "gap/constraints/conjugacy.g");
-ReadPackage( "GraphBacktracking", "gap/constraints/digraphs.g");
-ReadPackage( "GraphBacktracking", "gap/refiners.gi");
+if not IsBound(_BTKit.FilesReadGB) then
+    _BTKit.FilesReadGB := true;
+    ReadPackage( "GraphBacktracking", "gap/GraphBacktracking.gi");
+    ReadPackage( "GraphBacktracking", "gap/Equitable.gi");
+    ReadPackage( "GraphBacktracking", "gap/constraints/simpleconstraints.g");
+    ReadPackage( "GraphBacktracking", "gap/constraints/normaliser.g");
+    ReadPackage( "GraphBacktracking", "gap/constraints/canonicalconstraints.g");
+    ReadPackage( "GraphBacktracking", "gap/constraints/conjugacy.g");
+    ReadPackage( "GraphBacktracking", "gap/constraints/digraphs.g");
+    ReadPackage( "GraphBacktracking", "gap/refiners.gi");
 
-Perform(["GB_Con", "_GB"],
-        SetNamesForFunctionsInRecord);
+    Perform(["GB_Con", "_GB"],
+            SetNamesForFunctionsInRecord);
+fi;