![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ox_eval.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / ox_gsl|
Return to ox_eval.c CVS log | Up to [local] / OpenXM / src / ox_gsl |
| version 1.4, 2018/04/06 10:44:51 | version 1.5, 2018/04/13 16:51:42 | ||
|---|---|---|---|
|
|
||
| /* $OpenXM: OpenXM/src/ox_gsl/ox_eval.c,v 1.3 2018/04/05 13:02:39 ohara Exp $ */ | /* $OpenXM: OpenXM/src/ox_gsl/ox_eval.c,v 1.4 2018/04/06 10:44:51 ohara Exp $ */ | ||
| #include <stdio.h> | #include <stdio.h> | ||
| #include <stdlib.h> | #include <stdlib.h> | ||
|
|
||
| { | { | ||
| int tag = c->tag; | int tag = c->tag; | ||
| switch(c->tag) { | switch(c->tag) { | ||
| case CMO_NULL: | |||
| case CMO_ZERO: | case CMO_ZERO: | ||
| *retval = 0; | *retval = 0; | ||
| break; | break; |