![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to quote.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / parse|
Return to quote.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / parse |
| version 1.17, 2004/07/13 07:59:54 | version 1.18, 2004/07/13 09:10:39 | ||
|---|---|---|---|
|
|
||
| /* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.16 2004/07/08 03:00:30 noro Exp $ */ | /* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.17 2004/07/13 07:59:54 noro Exp $ */ | ||
| #include "ca.h" | #include "ca.h" | ||
| #include "parse.h" | #include "parse.h" | ||
|
|
||
| } | } | ||
| } | } | ||
| NODE flatten_fnodenode(NODE n,char *opname); | |||
| FNODE flatten_fnode(FNODE f,char *opname); | |||
| NODE flatten_fnodenode(NODE n,char *opname) | |||
| { | |||
| NODE r0,r,t; | |||
| r0 = 0; | |||
| for ( t = n; t; t = NEXT(t) ) { | |||
| NEXTNODE(r0,r); | |||
| BDY(r) = (pointer)flatten_fnode((FNODE)BDY(t),opname); | |||
| } | |||
| if ( r0 ) NEXT(r) = 0; | |||
| return r0; | |||
| } | |||
| FNODE flatten_fnode(FNODE f,char *opname) | FNODE flatten_fnode(FNODE f,char *opname) | ||
| { | { | ||
| fid_spec_p spec; | fid_spec_p spec; | ||
|
|
||
| for ( i = 0; type[i] != A_end; i++ ) { | for ( i = 0; type[i] != A_end; i++ ) { | ||
| if ( type[i] == A_fnode ) | if ( type[i] == A_fnode ) | ||
| r->arg[i] = (pointer)flatten_fnode(f->arg[i],opname); | r->arg[i] = (pointer)flatten_fnode(f->arg[i],opname); | ||
| else if ( type[i] == A_node ) | |||
| r->arg[i] = (pointer)flatten_fnodenode(f->arg[i],opname); | |||
| else | else | ||
| r->arg[i] = f->arg[i]; | r->arg[i] = f->arg[i]; | ||
| } | } |