version 1.49, 2004/07/13 09:10:38 |
version 1.51, 2004/08/05 00:56:54 |
|
|
* 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/builtin/strobj.c,v 1.48 2004/07/13 07:59:53 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/strobj.c,v 1.50 2004/07/13 10:57:26 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 65 struct TeXSymbol { |
|
Line 65 struct TeXSymbol { |
|
|
|
extern char *parse_strp; |
extern char *parse_strp; |
|
|
|
void Psprintf(); |
void Prtostr(), Pstrtov(), Peval_str(); |
void Prtostr(), Pstrtov(), Peval_str(); |
void Pstrtoascii(), Pasciitostr(); |
void Pstrtoascii(), Pasciitostr(); |
void Pstr_len(), Pstr_chr(), Psub_str(); |
void Pstr_len(), Pstr_chr(), Psub_str(); |
Line 88 void fargstotex_tb(char *opname,FNODE f,TB tb); |
|
Line 89 void fargstotex_tb(char *opname,FNODE f,TB tb); |
|
int top_is_minus(FNODE f); |
int top_is_minus(FNODE f); |
|
|
struct ftab str_tab[] = { |
struct ftab str_tab[] = { |
|
{"sprintf",Psprintf,-99999999}, |
{"rtostr",Prtostr,1}, |
{"rtostr",Prtostr,1}, |
{"strtov",Pstrtov,1}, |
{"strtov",Pstrtov,1}, |
{"eval_str",Peval_str,1}, |
{"eval_str",Peval_str,1}, |
Line 842 char *symbol_name(char *name) |
|
Line 844 char *symbol_name(char *name) |
|
return 0; |
return 0; |
} |
} |
|
|
|
FNODE strip_paren(FNODE); |
|
|
void fnodetotex_tb(FNODE f,TB tb) |
void fnodetotex_tb(FNODE f,TB tb) |
{ |
{ |
NODE n,t,t0; |
NODE n,t,t0; |
Line 914 void fnodetotex_tb(FNODE f,TB tb) |
|
Line 918 void fnodetotex_tb(FNODE f,TB tb) |
|
} else if ( !strcmp(opname,"^") ) { |
} else if ( !strcmp(opname,"^") ) { |
fnodetotex_tb((FNODE)FA1(f),tb); |
fnodetotex_tb((FNODE)FA1(f),tb); |
write_tb("^{",tb); |
write_tb("^{",tb); |
fnodetotex_tb((FNODE)FA2(f),tb); |
fnodetotex_tb(strip_paren((FNODE)FA2(f)),tb); |
write_tb("} ",tb); |
write_tb("} ",tb); |
} else if ( !strcmp(opname,"%") ) { |
} else if ( !strcmp(opname,"%") ) { |
fnodetotex_tb((FNODE)FA1(f),tb); |
fnodetotex_tb((FNODE)FA1(f),tb); |
Line 1198 char *objtostr(Obj obj) |
|
Line 1202 char *objtostr(Obj obj) |
|
soutput_init(r); |
soutput_init(r); |
sprintexpr(CO,obj); |
sprintexpr(CO,obj); |
return r; |
return r; |
|
} |
|
|
|
void Psprintf(NODE arg,STRING *rp) |
|
{ |
|
STRING string; |
|
char *s,*t,*r; |
|
int argc,n,len; |
|
NODE node; |
|
|
|
string = (STRING)ARG0(arg); |
|
asir_assert(string,O_STR,"sprintf"); |
|
s = BDY(string); |
|
for(n = 0, t = s; *t; t++) { |
|
if (*t=='%' && *(t+1)=='a') { |
|
n++; |
|
} |
|
} |
|
for(node = NEXT(arg), argc = 0, len = strlen(s); node; node = NEXT(node), argc++) { |
|
len += estimate_length(CO,BDY(node)); |
|
} |
|
if (argc < n) { |
|
error("sprintf: invalid argument"); |
|
} |
|
r = (char *)MALLOC_ATOMIC(len); |
|
for(node = NEXT(arg), t = r; *s; s++) { |
|
if (*s=='%' && *(s+1)=='a') { |
|
strcpy(t,objtostr(BDY(node))); |
|
node = NEXT(node); |
|
t = strchr(t,0); |
|
s++; |
|
}else { |
|
*t++ = *s; |
|
} |
|
} |
|
*t = 0; |
|
MKSTR(*rp,r); |
} |
} |
|
|
void fnodenodetotex_tb(NODE n,TB tb) |
void fnodenodetotex_tb(NODE n,TB tb) |