version 1.1, 2000/01/28 07:04:25 |
version 1.3, 2000/03/14 11:14:00 |
|
|
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/ruby/testserv1.c,v 1.2 2000/01/28 08:24:42 ogino Exp $ */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
/* #include <pari.h> */ |
/* #include <pari.h> */ |
#include "../ox_toolkit/ox.h" |
#include "ox_toolkit.h" |
|
|
int fd_rw = 3; |
int fd_rw = 3; |
|
|
|
|
|
|
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; |
} |
} |