OpenXM/src/kxx/sample_kanlib.c - diff

Return to sample_kanlib.c CVS log

Up to [local] / OpenXM / src / kxx

version 1.1, 2004/02/29 03:00:37

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

Line 1

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

Line 21 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 34 main() {

Line 36 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 { }