version 1.1, 2004/02/29 03:00:37 |
version 1.2, 2004/09/05 00:51:18 |
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/kxx/sample_kanlib.c,v 1.1 2004/02/29 03:00:37 takayama Exp $ */ |
/* |
/* |
This is a sample program to use kanlib.a |
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 |
gcc -g -O2 -g -D_BSD_SOURCE sample_kanlib.c -o sample_kanlib -ldl ../kan96xx/Kan/kanlib.a -L../../lib -lgmp -lgc |
Line 21 gcc -g -O2 -g -D_BSD_SOURCE sample_kanlib.c -o sample_ |
|
Line 21 gcc -g -O2 -g -D_BSD_SOURCE sample_kanlib.c -o sample_ |
|
|
|
extern int Quiet; |
extern int Quiet; |
extern JMP_BUF EnvOfStackMachine; |
extern JMP_BUF EnvOfStackMachine; |
|
extern Calling_ctrlC_hook; |
|
|
void ctrlC(); |
void ctrlC(); |
|
|
|
|
} |
} |
while( fgets(s,1023,stdin) != NULL) { |
while( fgets(s,1023,stdin) != NULL) { |
if (SETJMP(EnvOfStackMachine)) { |
if (SETJMP(EnvOfStackMachine)) { |
KSexecuteString(" ctrlC-hook "); /* Execute User Defined functions. */ |
if (!Calling_ctrlC_hook) { |
|
Calling_ctrlC_hook = 1; |
|
KSexecuteString(" ctrlC-hook "); /* Execute User Defined functions. */ |
|
} |
|
Calling_ctrlC_hook = 0; |
KSexecuteString(" (Computation is interrupted.) "); |
KSexecuteString(" (Computation is interrupted.) "); |
continue; |
continue; |
} else { } |
} else { } |