===================================================================
RCS file: /home/cvs/OpenXM/src/kxx/sample_kanlib.c,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -p -r1.1 -r1.3
--- OpenXM/src/kxx/sample_kanlib.c	2004/02/29 03:00:37	1.1
+++ OpenXM/src/kxx/sample_kanlib.c	2004/09/17 02:42:58	1.3
@@ -1,4 +1,4 @@
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/kxx/sample_kanlib.c,v 1.2 2004/09/05 00:51:18 takayama Exp $ */
 /*
 This is a sample program to use kanlib.a
 gcc -g -O2 -g -D_BSD_SOURCE sample_kanlib.c -o sample_kanlib  -ldl   ../kan96xx/Kan/kanlib.a -L../../lib -lgmp -lgc
@@ -21,6 +21,8 @@ gcc -g -O2 -g -D_BSD_SOURCE sample_kanlib.c -o sample_
 
 extern int Quiet;
 extern JMP_BUF EnvOfStackMachine;
+extern Calling_ctrlC_hook;
+extern int RestrictedMode, RestrictedMode_saved;
 
 void ctrlC();
 
@@ -34,7 +36,12 @@ main() {
   }
   while( fgets(s,1023,stdin) != NULL) {
 	if (SETJMP(EnvOfStackMachine)) {
-	  KSexecuteString(" ctrlC-hook "); /* Execute User Defined functions. */
+      if (!Calling_ctrlC_hook) {
+        Calling_ctrlC_hook = 1; RestrictedMode = 0; 
+        KSexecuteString(" ctrlC-hook "); /* Execute User Defined functions. */ 
+        RestrictedMode = RestrictedMode_saved;
+      }
+      Calling_ctrlC_hook = 0;
       KSexecuteString(" (Computation is interrupted.) ");
 	  continue;
 	} else {  }