version 1.6, 2004/02/13 05:48:36 |
version 1.8, 2012/12/17 07:20:45 |
|
|
* 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/parse/asir_sm.c,v 1.5 2003/02/14 22:29:17 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/asir_sm.c,v 1.7 2004/06/15 00:56:52 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
asir_save_handler(); |
asir_save_handler(); |
if ( ox_asir_initialized ) |
if ( ox_asir_initialized ) |
return; |
return; |
|
GC_init(); |
ox_asir_initialized = 1; |
ox_asir_initialized = 1; |
ox_do_copy = 1; |
ox_do_copy = 1; |
#if defined(THINK_C) |
#if defined(THINK_C) |
|
|
#if defined(TOWNS) && !defined(GO32) && !defined(__WIN32__) |
#if defined(TOWNS) && !defined(GO32) && !defined(__WIN32__) |
disable_ctrl_c(); |
disable_ctrl_c(); |
#endif |
#endif |
GC_init(); |
|
/* process_args(argc,argv); */ |
/* process_args(argc,argv); */ |
#if 0 |
#if 0 |
copyright(); |
copyright(); |
Line 202 char *Asir_PopString() |
|
Line 202 char *Asir_PopString() |
|
soutput_init(buf); |
soutput_init(buf); |
sprintexpr(CO,val); |
sprintexpr(CO,val); |
l = strlen(buf); |
l = strlen(buf); |
obuf = (char *)GC_malloc(l+1); |
obuf = (char *)MALLOC(l+1); |
strcpy(obuf,buf); |
strcpy(obuf,buf); |
return obuf; |
return obuf; |
} |
} |
|
|
saveobj(0,val); |
saveobj(0,val); |
*size = ox_count_length; |
*size = ox_count_length; |
ox_count_length = 0; ox_do_count = 0; |
ox_count_length = 0; ox_do_count = 0; |
ox_copy_bptr = buf = (char *)GC_malloc(*size); |
ox_copy_bptr = buf = (char *)MALLOC(*size); |
savevl(0,vl); |
savevl(0,vl); |
saveobj(0,val); |
saveobj(0,val); |
ox_copy_bptr = 0; |
ox_copy_bptr = 0; |