WIP: New command line option nobreakloop

Also introduces a new global variable AlwaysPrintTracebackOnError. Funtionality and documentation yet to be implemented.
gap-system · Jun 14, 2018 · 4361ace · 4361ace
1 parent c6bd9d1
commit 4361ace
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 2 deletions.
diff --git a/lib/init.g b/lib/init.g
@@ -236,6 +236,8 @@ fi;
 ##
 ##  - Unbind `DEBUG_LOADING', since later the `-D' option can be checked.
 ##  - Set or disable break loop according to the `-T' option.
+##  - Set or disable break loop but keep traceback according to the
+##    `--nobreakloop' option.
 ##
 CallAndInstallPostRestore( function()
     if DEBUG_LOADING then
@@ -250,11 +252,22 @@ CallAndInstallPostRestore( function()
     UNBIND_GLOBAL( "TEACHING_MODE" );
     BIND_GLOBAL( "TEACHING_MODE", GAPInfo.CommandLineOptions.T );
     if IsHPCGAP then
-      BindThreadLocal( "BreakOnError", not GAPInfo.CommandLineOptions.T );
+      BindThreadLocal(
+        "BreakOnError",
+        not ( GAPInfo.CommandLineOptions.T or GAPInfo.CommandLineOptions.nobreakloop )
+      );
+      BindThreadLocal(
+        "AlwaysPrintTracebackOnError",
+        GAPInfo.CommandLineOptions.nobreakloop
+      );
       BindThreadLocal( "SilentErrors", false );
       BindThreadLocal( "LastErrorMessage", "" );
     else
-      ASS_GVAR( "BreakOnError", not GAPInfo.CommandLineOptions.T );
+      ASS_GVAR(
+        "BreakOnError",
+        not ( GAPInfo.CommandLineOptions.T or GAPInfo.CommandLineOptions.nobreakloop )
+      );
+      ASS_GVAR( "AlwaysPrintTracebackOnError", GAPInfo.CommandLineOptions.nobreakloop );
     fi;
 end);
 

diff --git a/lib/system.g b/lib/system.g
@@ -95,6 +95,7 @@ BIND_GLOBAL( "GAPInfo", rec(
       rec( short:= "N", default := false, help := ["do not use hidden implications"] ),
       rec( short:= "O", default := false, help := ["disable/enable loading of obsolete files"] ),
       rec( short:= "T", default := false, help := ["disable/enable break loop"] ),
+      rec( long := "nobreakloop", default := false, help := ["disable/enable break loop but keep printing error traceback"]),
       rec( long := "quitonbreak", default := false, help := ["quit GAP with non-zero return value instead of entering break loop"]),
       ,
       rec( short:= "L", default := "", arg := "<file>", help := [ "restore a saved workspace"] ),