| version 1.11, 2004/03/10 02:41:08 |
version 1.12, 2004/03/10 05:27:03 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.10 2004/03/09 08:02:01 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/parse/quote.c,v 1.11 2004/03/10 02:41:08 noro Exp $ */ |
| |
|
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| Line 239 void dctoquote(DCP dc,QUOTE v,QUOTE *q,int *sgn) |
|
| Line 239 void dctoquote(DCP dc,QUOTE v,QUOTE *q,int *sgn) |
|
| objtoquote((Obj)ONE,&r); |
objtoquote((Obj)ONE,&r); |
| } else { |
} else { |
| objtoquote((Obj)c,&u); |
objtoquote((Obj)c,&u); |
| if ( !NUM(c) && NEXT(DC(c)) ) { |
if ( !NUM(c) && NEXT(DC(c)) && d ) { |
| MKQUOTE(t,mkfnode(1,I_PAREN,BDY(u))); |
MKQUOTE(t,mkfnode(1,I_PAREN,BDY(u))); |
| u = t; |
u = t; |
| } |
} |
![[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