Added IsLIBGAP constant

This constant can be set to true in the initialize_libgap function (future work) to stop GAP from starting an interactive session
gap-system · Jun 7, 2018 · 68add25 · 68add25
1 parent 8f47553
commit 68add25
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 1 deletion.
diff --git a/lib/init.g b/lib/init.g
@@ -1019,8 +1019,11 @@ end );
 if IsHPCGAP and THREAD_UI() then
   ReadLib("hpc/consoleui.g");
   MULTI_SESSION();
-else
+elif not IsBound( IsLIBGAP ) or IsLIBGAP = false then
+  BIND_GLOBAL( "IsLIBGAP", false );
   SESSION();
+else
+  BIND_GLOBAL( "IsLIBGAP", true );
 fi;
 
 PROGRAM_CLEAN_UP();

diff --git a/tst/testinstall/IsLIBGAP.tst b/tst/testinstall/IsLIBGAP.tst
@@ -0,0 +1,12 @@
+#############################################################################
+##
+#W  IsLIBGAP.tst                  GAP library               Sebastian Gutsche
+##
+##
+#Y  Copyright (C)  2018,  GAP Group
+##
+gap> START_TEST("IsLIBGAP.tst");
+gap> IsBound( IsLIBGAP );
+true
+gap> STOP_TEST( "IsLIBGAP.tst", 1);
+