| version 1.41, 2016/03/31 05:27:34 |
version 1.43, 2018/09/07 00:15:44 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.40 2016/03/31 03:22:54 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.42 2016/03/31 06:34:29 takayama Exp $ */ |
| /* stackmachin.c */ |
/* stackmachin.c */ |
| |
|
| #include <stdio.h> |
#include <stdio.h> |
| Line 1246 KSexecuteString(s) |
|
| Line 1246 KSexecuteString(s) |
|
| } |
} |
| Calling_ctrlC_hook = 0; |
Calling_ctrlC_hook = 0; |
| KSexecuteString(" (Computation is interrupted.) "); /* move to ctrlC-hook?*/ |
KSexecuteString(" (Computation is interrupted.) "); /* move to ctrlC-hook?*/ |
| |
/* fprintf(stderr,"result code=-1 for %s\n",s); */ |
| return(-1); |
return(-1); |
| }else{ } |
}else{ } |
| }else{ |
}else{ |
| Line 1270 KSexecuteString(s) |
|
| Line 1271 KSexecuteString(s) |
|
| Calling_ctrlC_hook = 0; |
Calling_ctrlC_hook = 0; |
| Calling_ctrlC_hook = 0; |
Calling_ctrlC_hook = 0; |
| KSexecuteString(" (Computation is interrupted.) "); |
KSexecuteString(" (Computation is interrupted.) "); |
| |
/* fprintf(stderr,"result code=-1 for %s\n",s);*/ |
| return(-1); |
return(-1); |
| }else { } |
}else { } |
| } |
} |
| Line 1313 KSdefineMacros() { |
|
| Line 1315 KSdefineMacros() { |
|
| |
|
| } |
} |
| |
|
| |
void KSstart_quiet() { |
| |
extern int Quiet; |
| |
Quiet=1; |
| |
KSstart(); |
| |
} |
| void KSstart() { |
void KSstart() { |
| struct tokens token; |
struct tokens token; |
| int tmp; |
int tmp; |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to stackmachine.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan