| version 1.3, 2005/02/08 16:42:39 |
version 1.5, 2005/07/14 22:46:03 |
|
|
| /* |
/* |
| * $OpenXM: OpenXM_contrib2/asir2000/builtin/itvnum.c,v 1.2 2002/01/08 04:14:36 kondoh Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/itvnum.c,v 1.4 2005/02/08 16:53:00 saito Exp $ |
| */ |
*/ |
| |
|
| #include "ca.h" |
#include "ca.h" |
| Line 56 struct ftab interval_tab[] = { |
|
| Line 56 struct ftab interval_tab[] = { |
|
| |
|
| #if defined(INTERVAL) |
#if defined(INTERVAL) |
| static void |
static void |
| Pitvversion(Obj *rp) |
Pitvversion(Q *rp) |
| { |
{ |
| STOQ(ASIR_VERSION, *rp); |
STOQ(ASIR_VERSION, *rp); |
| } |
} |
| Line 209 Pinf(NODE arg, Obj *rp) |
|
| Line 209 Pinf(NODE arg, Obj *rp) |
|
| itvtois((Itv)ARG0(arg),&i,&s); |
itvtois((Itv)ARG0(arg),&i,&s); |
| *rp = (Obj)i; |
*rp = (Obj)i; |
| break; |
break; |
| defaults: |
default: |
| *rp = (Obj)a; |
*rp = (Obj)a; |
| break; |
break; |
| } |
} |
| Line 241 Psup(NODE arg, Obj *rp) |
|
| Line 241 Psup(NODE arg, Obj *rp) |
|
| itvtois((Itv)ARG0(arg),&i,&s); |
itvtois((Itv)ARG0(arg),&i,&s); |
| *rp = (Obj)s; |
*rp = (Obj)s; |
| break; |
break; |
| defaults: |
default: |
| *rp = (Obj)a; |
*rp = (Obj)a; |
| break; |
break; |
| } |
} |
| Line 283 Pmid(NODE arg, Obj *rp) |
|
| Line 283 Pmid(NODE arg, Obj *rp) |
|
| case O_VECT: |
case O_VECT: |
| case O_MAT: |
case O_MAT: |
| #endif |
#endif |
| defaults: |
default: |
| *rp = (Obj)a; |
*rp = (Obj)a; |
| break; |
break; |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to itvnum.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / builtin