diff --git a/gap/GraphBacktracking.gd b/gap/GraphBacktracking.gd index cfe5e8a..7c1f91a 100644 --- 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 index 9aadb80..972ca9d 100644 --- 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 index 8ddedf6..61a9972 100644 --- 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 index 6036655..e57000d 100644 --- 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 index 2c8a187..04ea650 100644 --- 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 index 5f1b2f3..8890a23 100644 --- 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");