OpenXM_contrib2/asir2000/builtin/strobj.c - diff

Return to strobj.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.46, 2004/03/25 01:56:00

version 1.47, 2004/07/07 07:40:19

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/strobj.c,v 1.45 2004/03/25 01:31:03 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/strobj.c,v 1.46 2004/03/25 01:56:00 noro Exp $

#include "ca.h"

#include "parse.h"

Line 75 void Pstring_to_tb();

void Pquotetotex_tb();

void Pquotetotex();

void Pquotetotex_env();

void Pflatten_quote();

void fnodetotex_tb(FNODE f,TB tb);

char *symbol_name(char *name);

char *conv_rule(char *name);

Line 101 struct ftab str_tab[] = {

Line 102 struct ftab str_tab[] = {

{"quotetotex_tb",Pquotetotex_tb,2},

{"quotetotex",Pquotetotex,1},

{"quotetotex_env",Pquotetotex_env,-99999999},

{"flatten_quote",Pflatten_quote,2},

{0,0,0},

};

Line 1277 int top_is_minus(FNODE f)

Line 1279 int top_is_minus(FNODE f)

default:

return 0;

}

FNODE flatten_fnode(FNODE,char *);

void Pflatten_quote(NODE arg,QUOTE *rp)

{

FNODE f;

QUOTE q;

f = flatten_fnode(BDY((QUOTE)ARG0(arg)),BDY((STRING)ARG1(arg)));

MKQUOTE(q,f);

*rp = q;

}