![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to sfile.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / hgm / mh / src|
Return to sfile.c CVS log | Up to [local] / OpenXM / src / hgm / mh / src |
| version 1.11, 2013/03/05 00:43:29 | version 1.12, 2013/03/05 05:26:07 | ||
|---|---|---|---|
|
|
||
| /* | /* | ||
| $OpenXM: OpenXM/src/hgm/mh/src/sfile.c,v 1.10 2013/03/01 05:26:25 takayama Exp $ | $OpenXM: OpenXM/src/hgm/mh/src/sfile.c,v 1.11 2013/03/05 00:43:29 takayama Exp $ | ||
| */ | */ | ||
| #include <stdio.h> | #include <stdio.h> | ||
| #include <stdlib.h> | #include <stdlib.h> | ||
| #include <string.h> | #include <string.h> | ||
| #include "sfile.h" | |||
| #ifndef STANDALONE | #ifndef STANDALONE | ||
| #include <R.h> | #include <R.h> | ||
| #include <R_ext/Utils.h> | |||
| #endif | #endif | ||
| #include "sfile.h" | |||
| #define SSIZE 5 | #define SSIZE 5 | ||
| int MH_DEBUG = 0; | int MH_DEBUG = 0; | ||
| void mh_check_intr(int interval) { | |||
| static int intr=0; | |||
| if (intr >= interval) { | |||
| intr = 0; | |||
| #ifndef STANDALONE | |||
| R_CheckUserInterrupt(); | |||
| #endif | |||
| }else intr++; | |||
| } | |||
| void *mh_malloc(int s) { | void *mh_malloc(int s) { | ||
| void *p; | void *p; |