version 1.17, 2004/03/04 05:16:42 |
version 1.19, 2004/03/04 08:02:36 |
|
|
* 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.16 2004/03/04 03:31:28 noro Exp $ |
* $OpenXM$ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 58 extern jmp_buf environnement; |
|
Line 58 extern jmp_buf environnement; |
|
#endif |
#endif |
#include <string.h> |
#include <string.h> |
|
|
|
struct TeXSymbol { |
|
char *text; |
|
char *symbol; |
|
}; |
|
|
extern char *parse_strp; |
extern char *parse_strp; |
|
|
void Prtostr(), Pstrtov(), Peval_str(); |
void Prtostr(), Pstrtov(), Peval_str(); |
Line 69 void Pclear_tb(); |
|
Line 74 void Pclear_tb(); |
|
void Pstring_to_tb(); |
void Pstring_to_tb(); |
void Pquotetotex_tb(); |
void Pquotetotex_tb(); |
void Pquotetotex(); |
void Pquotetotex(); |
|
void Pquotetotex_setenv(); |
void fnodetotex_tb(FNODE f,TB tb); |
void fnodetotex_tb(FNODE f,TB tb); |
char *symbol_name(char *name); |
char *symbol_name(char *name); |
void tb_to_string(TB tb,STRING *rp); |
void tb_to_string(TB tb,STRING *rp); |
Line 90 struct ftab str_tab[] = { |
|
Line 96 struct ftab str_tab[] = { |
|
{"string_to_tb",Pstring_to_tb,1}, |
{"string_to_tb",Pstring_to_tb,1}, |
{"quotetotex_tb",Pquotetotex_tb,2}, |
{"quotetotex_tb",Pquotetotex_tb,2}, |
{"quotetotex",Pquotetotex,1}, |
{"quotetotex",Pquotetotex,1}, |
|
{"quotetotex_setenv",Pquotetotex_setenv,-99999999}, |
{0,0,0}, |
{0,0,0}, |
}; |
}; |
|
|
Line 103 void write_tb(char *s,TB tb) |
|
Line 110 void write_tb(char *s,TB tb) |
|
tb->next++; |
tb->next++; |
} |
} |
|
|
|
int register_symbol_table(Obj arg); |
|
int register_conv_rule(Obj arg); |
|
static struct TeXSymbol *user_texsymbol; |
|
static char *(*conv_rule)(char *); |
|
|
|
static struct { |
|
char *name; |
|
Obj value; |
|
int (*reg)(); |
|
} qtot_env[] = { |
|
{"symbol_table",0,register_symbol_table}, |
|
{"conv_rule",0,register_conv_rule}, |
|
{0,0,0}, |
|
}; |
|
|
|
char *conv_rule_d(char *name) |
|
{ |
|
char *p,*h,*t,*u; |
|
int l; |
|
|
|
if ( *name == 'd' ) { |
|
h = "\\partial"; |
|
if ( isdigit(name[1]) ) { |
|
t = conv_rule_d(name+1); |
|
/* 3 : _{} */ |
|
l = strlen(h)+strlen(t)+3; |
|
u = (char *)MALLOC_ATOMIC(l+1); |
|
sprintf(u,"%s_{%s}",h,t); |
|
} else { |
|
/* XXX */ |
|
t = conv_rule_d(name+2); |
|
/* 6 : _{ _{ }} */ |
|
l = strlen(h)+strlen(t)+6; |
|
u = (char *)MALLOC_ATOMIC(l+1); |
|
sprintf(u,"%s_{%c_{%s}}",h,name[1],t); |
|
} |
|
return u; |
|
} else if ( p = strchr(name,'_') ) { |
|
l = p-name; |
|
h = (char *)ALLOCA(l+1); |
|
strncpy(h,name,l); |
|
h[l] = 0; |
|
h = conv_rule_d(h); |
|
t = conv_rule_d(p+1); |
|
/* 3 : _{} */ |
|
l = strlen(h)+strlen(t)+3; |
|
u = (char *)MALLOC_ATOMIC(l+1); |
|
sprintf(u,"%s_{%s}",h,t); |
|
return u; |
|
} else |
|
return name; |
|
} |
|
|
|
int register_symbol_table(Obj arg) |
|
{ |
|
NODE n,t; |
|
Obj b; |
|
STRING a0,a1; |
|
struct TeXSymbol *uts; |
|
int i,len; |
|
|
|
/* check */ |
|
if ( !arg ) { |
|
user_texsymbol = 0; |
|
return 1; |
|
} |
|
if ( OID(arg) != O_LIST ) return 0; |
|
|
|
n = BDY((LIST)arg); |
|
len = length(n); |
|
uts = (struct TeXSymbol *)MALLOC((len+1)*sizeof(struct TeXSymbol)); |
|
for ( i = 0; n; n = NEXT(n), i++ ) { |
|
b = (Obj)BDY(n); |
|
if ( !b || OID(b) != O_LIST ) return 0; |
|
t = BDY((LIST)b); |
|
if ( !t || !NEXT(t) ) return 0; |
|
a0 = (STRING)BDY(t); |
|
a1 = (STRING)BDY(NEXT(t)); |
|
if ( !a0 || OID(a0) != O_STR ) return 0; |
|
if ( !a1 || OID(a1) != O_STR ) return 0; |
|
uts[i].text = BDY(a0); |
|
uts[i].symbol = BDY(a1); |
|
} |
|
uts[i].text = 0; |
|
uts[i].symbol = 0; |
|
user_texsymbol = uts; |
|
return 1; |
|
} |
|
|
|
int register_conv_rule(Obj arg) |
|
{ |
|
if ( INT(arg) ) { |
|
switch ( QTOS((Q)arg) ) { |
|
case 0: |
|
conv_rule = 0; |
|
return 1; |
|
break; |
|
case 1: |
|
conv_rule = conv_rule_d; |
|
return 1; |
|
break; |
|
default: |
|
return 0; |
|
break; |
|
} |
|
} else return 0; |
|
} |
|
|
|
void Pquotetotex_setenv(NODE arg,Obj *rp) |
|
{ |
|
int ac,i; |
|
char *name; |
|
NODE n,n0; |
|
STRING s; |
|
LIST l; |
|
|
|
ac = argc(arg); |
|
if ( !ac ) { |
|
n0 = 0; |
|
for ( i = 0; qtot_env[i].name; i++ ) { |
|
NEXTNODE(n0,n); MKSTR(s,qtot_env[i].name); BDY(n) = (pointer)s; |
|
NEXTNODE(n0,n); BDY(n) = (Q)qtot_env[i].value; |
|
} |
|
NEXT(n) = 0; |
|
MKLIST(l,n0); |
|
*rp = (Obj)l; |
|
} else if ( ac == 1 || ac == 2 ) { |
|
asir_assert(ARG0(arg),O_STR,"quotetotex_setenv"); |
|
name = BDY((STRING)ARG0(arg)); |
|
for ( i = 0; qtot_env[i].name; i++ ) |
|
if ( !strcmp(qtot_env[i].name,name) ) { |
|
if ( ac == 2 ) { |
|
if ( (qtot_env[i].reg)((Obj)ARG1(arg)) ) |
|
qtot_env[i].value = (Obj)ARG1(arg); |
|
else |
|
error("quotetotex_setenv : invalid argument"); |
|
} |
|
*rp = qtot_env[i].value; |
|
return; |
|
} |
|
*rp = 0; |
|
} else |
|
*rp = 0; |
|
} |
|
|
void Pwrite_to_tb(NODE arg,Q *rp) |
void Pwrite_to_tb(NODE arg,Q *rp) |
{ |
{ |
int i; |
int i; |
|
|
#endif |
#endif |
} |
} |
|
|
struct TeXSymbol { |
|
char *text; |
|
char *symbol; |
|
}; |
|
|
|
static struct TeXSymbol texsymbol[] = { |
static struct TeXSymbol texsymbol[] = { |
{"sin","\\sin"}, |
{"sin","\\sin"}, |
{"cos","\\cos"}, |
{"cos","\\cos"}, |
Line 451 char *symbol_name(char *name) |
|
Line 598 char *symbol_name(char *name) |
|
{ |
{ |
int i; |
int i; |
|
|
|
if ( user_texsymbol ) |
|
for ( i = 0; user_texsymbol[i].text; i++ ) |
|
if ( !strcmp(user_texsymbol[i].text,name) ) |
|
return user_texsymbol[i].symbol; |
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; |
if ( conv_rule ) |
|
return (*conv_rule)(name); |
|
else |
|
return name; |
} |
} |
|
|
void fnodetotex_tb(FNODE f,TB tb) |
void fnodetotex_tb(FNODE f,TB tb) |