OpenXM/src/kxx/sample_kanlib.c - diff

Return to sample_kanlib.c CVS log

Up to [local] / OpenXM / src / kxx

version 1.2, 2004/09/05 00:51:18

version 1.3, 2004/09/17 02:42:58

Line 1

/* $OpenXM: OpenXM/src/kxx/sample_kanlib.c,v 1.1 2004/02/29 03:00:37 takayama Exp $ */

/* $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

Line 22 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();

Line 36 main() {

Line 37 main() {

while( fgets(s,1023,stdin) != NULL) {

if (SETJMP(EnvOfStackMachine)) {

if (!Calling_ctrlC_hook) {

Calling_ctrlC_hook = 1;

Calling_ctrlC_hook = 1; RestrictedMode = 0;

KSexecuteString(" ctrlC-hook "); /* Execute User Defined functions. */

RestrictedMode = RestrictedMode_saved;

}

Calling_ctrlC_hook = 0;

KSexecuteString(" (Computation is interrupted.) ");