![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to testserv1.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / ruby|
Return to testserv1.c CVS log | Up to [local] / OpenXM / src / ruby |
| version 1.1, 2000/01/28 07:04:25 | version 1.2, 2000/01/28 08:24:42 | ||
|---|---|---|---|
|
|
||
| /* $OpenXM$ */ | /* $OpenXM: OpenXM/src/ruby/testserv1.c,v 1.1 2000/01/28 07:04:25 ogino Exp $ */ | ||
| #include <stdio.h> | #include <stdio.h> | ||
| /* #include <pari.h> */ | /* #include <pari.h> */ | ||
|
|
||
| int pushdisc() | int pushdisc() | ||
| { | { | ||
| if (get_i() != 1) { | |||
| push(make_error2(0)); | |||
| return -1; | |||
| } | |||
| push(new_cmo_int32(getdisc(get_i()))); | push(new_cmo_int32(getdisc(get_i()))); | ||
| return 0; | return 0; | ||
| } | } |