version 1.37, 2016/06/29 05:10:14 |
version 1.38, 2016/08/24 00:52:50 |
|
|
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* $OpenXM: OpenXM_contrib2/asir2000/io/ox.c,v 1.36 2015/08/18 02:26:05 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/ox.c,v 1.37 2016/06/29 05:10:14 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
unsigned int *smcap; |
unsigned int *smcap; |
int noxcap; |
int noxcap; |
struct oxcap *oxcap; |
struct oxcap *oxcap; |
|
int no_ox_reset; |
}; |
}; |
|
|
struct oxcap *my_oxcap; |
struct oxcap *my_oxcap; |
Line 108 void cleanup_events() |
|
Line 109 void cleanup_events() |
|
} |
} |
#endif |
#endif |
|
|
|
/* 1 if no_ox_reset, 0 if ox_reset OK, -1 if invalid */ |
|
int no_ox_reset(int s) |
|
{ |
|
if ( remote_mc && s >= 0 && s < remote_mc_len ) |
|
return remote_mc[s].no_ox_reset; |
|
else |
|
return -1; |
|
} |
|
|
void ox_resetenv(char *s) |
void ox_resetenv(char *s) |
{ |
{ |
#if defined(VISUAL) || defined(__MINGW32__) |
#if defined(VISUAL) || defined(__MINGW32__) |
Line 300 void mclist_to_mc(LIST mclist,struct mathcap *mc) |
|
Line 310 void mclist_to_mc(LIST mclist,struct mathcap *mc) |
|
[o2,[n21,n22,...]], |
[o2,[n21,n22,...]], |
... |
... |
] |
] |
|
(optional)[s1,s2,...] (no_ox_reset) |
] |
] |
*/ |
*/ |
n = BDY(mclist); |
n = BDY(mclist); |
Line 332 void mclist_to_mc(LIST mclist,struct mathcap *mc) |
|
Line 343 void mclist_to_mc(LIST mclist,struct mathcap *mc) |
|
for ( t = cap, ptr = mc->oxcap[j].cap, i = 0; i < l; t = NEXT(t), i++ ) |
for ( t = cap, ptr = mc->oxcap[j].cap, i = 0; i < l; t = NEXT(t), i++ ) |
ptr[i] = BDY((USINT)BDY(t)); |
ptr[i] = BDY((USINT)BDY(t)); |
} |
} |
|
/* check of no_ox_reset */ |
|
mc->no_ox_reset = 0; |
|
n = BDY(mclist); |
|
if ( length(n) >= 4 ) { |
|
t = BDY((LIST)ARG3(n)); |
|
for ( ; t; t = NEXT(t) ) |
|
if ( !strcmp(BDY((STRING)BDY(t)),"no_ox_reset") ) |
|
mc->no_ox_reset = 1; |
|
} |
} |
} |
|
|
int check_sm_by_mc(int s,unsigned int smtag) |
int check_sm_by_mc(int s,unsigned int smtag) |