version 1.51, 2004/02/13 05:48:36 |
version 1.55, 2004/03/09 07:18:26 |
|
|
* 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_asir.c,v 1.50 2003/12/13 08:03:56 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.54 2004/03/04 06:29:47 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 185 void ox_main(int argc,char **argv) { |
|
Line 185 void ox_main(int argc,char **argv) { |
|
if ( ret == 1 ) { |
if ( ret == 1 ) { |
create_error(&err,serial,LastError); |
create_error(&err,serial,LastError); |
asir_push_one((Obj)err); |
asir_push_one((Obj)err); |
|
while ( NEXT(asir_infile) ) |
|
closecurrentinput(); |
} |
} |
break; |
break; |
} |
} |
Line 593 void asir_pushCMOtag(unsigned int serial) |
|
Line 595 void asir_pushCMOtag(unsigned int serial) |
|
void asir_popString() |
void asir_popString() |
{ |
{ |
Obj val; |
Obj val; |
char *buf,*obuf; |
char *buf; |
int l; |
int l; |
STRING str; |
STRING str; |
|
|
val = asir_pop_one(); |
val = asir_pop_one(); |
if ( !val ) |
if ( !val ) |
obuf = "0"; |
buf = "0"; |
else { |
else { |
l = estimate_length(CO,val); |
l = estimate_length(CO,val); |
buf = (char *)ALLOCA(l+1); |
buf = (char *)ALLOCA(l+1); |
soutput_init(buf); |
soutput_init(buf); |
sprintexpr(CO,val); |
sprintexpr(CO,val); |
l = strlen(buf); |
|
obuf = (char *)MALLOC(l+1); |
|
strcpy(obuf,buf); |
|
} |
} |
MKSTR(str,obuf); |
MKSTR(str,buf); |
ox_send_data(0,str); |
ox_send_data(0,str); |
} |
} |
|
|
Line 664 void asir_evalName(unsigned int serial) |
|
Line 663 void asir_evalName(unsigned int serial) |
|
asir_push_one(val); |
asir_push_one(val); |
} |
} |
|
|
|
char *augment_backslash(char *s) |
|
{ |
|
char *p,*r; |
|
int i; |
|
|
|
for ( i = 0, p = s; *p; p++, i++ ) if ( *p == '\\' ) i++; |
|
r = (char *)MALLOC_ATOMIC((i+1)*sizeof(char)); |
|
for ( i = 0, p = s; *p; p++, i++ ) { |
|
if ( *p == '\\' ) r[i++] = '\\'; |
|
r[i] = *p; |
|
} |
|
return r; |
|
} |
|
|
int asir_executeString() |
int asir_executeString() |
{ |
{ |
SNODE snode; |
SNODE snode; |
Line 680 int asir_executeString() |
|
Line 693 int asir_executeString() |
|
# endif |
# endif |
#endif |
#endif |
cmd = ((STRING)asir_pop_one())->body; |
cmd = ((STRING)asir_pop_one())->body; |
parse_strp = cmd; |
parse_strp = augment_backslash(cmd); |
if ( mainparse(&snode) ) { |
if ( mainparse(&snode) ) { |
return -1; |
return -1; |
} |
} |