version 1.40, 2004/03/11 07:40:41 |
version 1.41, 2004/03/12 02:06:48 |
|
|
* 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.39 2004/03/11 04:52:17 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/strobj.c,v 1.40 2004/03/11 07:40:41 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
char *conv_rule(char *name) |
char *conv_rule(char *name) |
{ |
{ |
char *body,*r; |
char *body,*r; |
|
int len; |
|
|
if ( convfunc ) |
if ( convfunc ) |
name = call_convfunc(name); |
name = call_convfunc(name); |
if ( conv_flag & CONV_DMODE ) { |
if ( conv_flag & CONV_TABLE ) { |
if ( *name == 'd' ) { |
r = symbol_name(name); |
body = conv_flag&CONV_SUBS?conv_subs(name+1):symbol_name(name+1); |
if ( r ) return r; |
if ( !body ) { |
} |
r = MALLOC_ATOMIC((strlen(PARTIAL)+1)*sizeof(char)); |
if ( (conv_flag & CONV_DMODE) && *name == 'd' ) { |
strcpy(r,PARTIAL); |
body = conv_rule(name+1); |
} else { |
r = MALLOC_ATOMIC((strlen(PARTIAL)+strlen(body)+5)*sizeof(char)); |
r = MALLOC_ATOMIC((strlen(PARTIAL)+strlen(body)+5) |
if ( !body || !(len=strlen(body)) ) |
*sizeof(char)); |
strcpy(r,PARTIAL); |
sprintf(r,strlen(body)==1?"{%s}_%s":"{%s}_{%s}",PARTIAL,body); |
else if ( len == 1 ) |
} |
sprintf(r,"%s_%s",PARTIAL,body); |
return r; |
else |
} else |
sprintf(r,"%s_{%s}",PARTIAL,body); |
return conv_flag&CONV_SUBS?conv_subs(name):symbol_name(name); |
return r; |
} else |
} else |
return conv_flag&CONV_SUBS?conv_subs(name):symbol_name(name); |
return conv_subs(name); |
} |
} |
|
|
int _is_delimiter(char c) |
int _is_delimiter(char c) |
Line 192 int _is_alpha(char c) |
|
Line 193 int _is_alpha(char c) |
|
char *conv_subs(char *name) |
char *conv_subs(char *name) |
{ |
{ |
int i,j,k,len,clen,slen,start,level; |
int i,j,k,len,clen,slen,start,level; |
char *buf,*head,*r,*h,*brace; |
char *buf,*head,*r,*h,*brace,*buf_conv; |
char **subs; |
char **subs; |
|
|
len = strlen(name); |
if ( !name || !(len=strlen(name)) ) return ""; |
if ( !len ) return 0; |
if ( !(conv_flag&CONV_SUBS) ) return name; |
subs = (char **)ALLOCA(len*sizeof(char* )); |
subs = (char **)ALLOCA(len*sizeof(char* )); |
for ( i = 0, j = 0, start = i; ; j++ ) { |
for ( i = 0, j = 0, start = i; ; j++ ) { |
while ( (i < len) && _is_delimiter(name[i]) ) i++; |
while ( (i < len) && _is_delimiter(name[i]) ) i++; |
Line 228 char *conv_subs(char *name) |
|
Line 229 char *conv_subs(char *name) |
|
slen = i-start; |
slen = i-start; |
buf = (char *)ALLOCA((slen+1)*sizeof(char)); |
buf = (char *)ALLOCA((slen+1)*sizeof(char)); |
strncpy(buf,name+start,slen); buf[slen] = 0; |
strncpy(buf,name+start,slen); buf[slen] = 0; |
subs[j] = symbol_name(buf); |
buf_conv = symbol_name(buf); |
|
subs[j] = buf_conv?buf_conv:buf; |
} |
} |
} |
} |
for ( k = 0, clen = 0; k < j; k++ ) clen += strlen(subs[k]); |
for ( k = 0, clen = 0; k < j; k++ ) clen += strlen(subs[k]); |
Line 776 char *symbol_name(char *name) |
|
Line 778 char *symbol_name(char *name) |
|
{ |
{ |
int i; |
int i; |
|
|
|
if ( !name || strlen(name) == 0 ) |
|
return ""; |
if ( !(conv_flag & CONV_TABLE) ) |
if ( !(conv_flag & CONV_TABLE) ) |
return name; |
return name; |
|
|
Line 786 char *symbol_name(char *name) |
|
Line 790 char *symbol_name(char *name) |
|
for ( i = 0; texsymbol[i].text; i++ ) |
for ( i = 0; texsymbol[i].text; i++ ) |
if ( !strcmp(texsymbol[i].text,name) ) |
if ( !strcmp(texsymbol[i].text,name) ) |
return texsymbol[i].symbol; |
return texsymbol[i].symbol; |
return name; |
return 0; |
} |
} |
|
|
void fnodetotex_tb(FNODE f,TB tb) |
void fnodetotex_tb(FNODE f,TB tb) |