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.4, 2015/10/08 11:49:38

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.3 2004/09/17 02:42:58 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 8 gcc -g -O2 -g -D_BSD_SOURCE sample_kanlib.c -o sample_

#include <setjmp.h>

#include <signal.h>

#if defined(__CYGWIN__)

// serversm.h is not included.

#if defined(__CYGWIN__) || defined(__MSYS__)

#define JMP_BUF sigjmp_buf

#define SETJMP(env) sigsetjmp(env,1)

#define SETJMP(env) _setjmp(env)

#define LONGJMP(env,p) siglongjmp(env,p)

#define LONGJMP(env,p) _longjmp(env,p)

#else

#define JMP_BUF jmp_buf

#define SETJMP(env) setjmp(env)

Line 22 gcc -g -O2 -g -D_BSD_SOURCE sample_kanlib.c -o sample_

Line 23 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 38 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.) ");