Changeset a056b96 in tol

Timestamp:

Mar 13, 2012, 1:22:24 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

7cf1759

Parents:

589877d

Message:

refs #1430, dos Ctrl-C sucesivos emitidos dentro del intervalo de un segundo provoca la salida de la aplicación, el primer Ctrl-C interrumpe la evaluación.

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4345 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/init.cpp (modified) (2 diffs)

tol/init.cpp

@@ -69 +69 @@
 #include <contrib/cint/tolCint.h>
 
+#include <time.h>
+
 
 #ifdef _DEBUG
@@ -225 +227 @@
 //--------------------------------------------------------------------
 {
-  Error("SIGNAL: Interactive attention signal; on interactive systems this is usually generated by typing some break-in key at the terminal. (Interrupt.)");
-  //Error_UnexpectedTolEnd();
-  StopFlagOn();
-  //exit(sig);
+  static time_t *tm0 = NULL;
+  time_t tm1 = time( NULL );
+  
+  if ( tm0 && (tm1 - *tm0) < 1 ) {
+    Error("SIGNAL: Interactive attention signal; on interactive systems this is usually generated by typing some break-in key at the terminal. (Exit application)");
+    exit(sig);
+  } else {
+    Error("SIGNAL: Interactive attention signal; on interactive systems this is usually generated by typing some break-in key at the terminal. (Stop evaluation)");
+    //Error_UnexpectedTolEnd();
+    StopFlagOn();
+    if ( !tm0 ) {
+      tm0 = new time_t;
+    }
+    time( tm0 );
+  }
 };