version 1.2, 2011/06/23 13:41:16
|
version 1.3, 2011/06/24 09:10:37
|
Line 22
|
Line 22
|
|
|
#include "giac.h" |
#include "giac.h" |
|
|
|
#undef PACKAGE |
|
#undef PACKAGE_NAME |
|
#undef PACKAGE_STRING |
|
#undef PACKAGE_TARNAME |
|
#undef PACKAGE_VERSION |
|
#undef VERSION |
|
|
extern "C" |
extern "C" |
{ |
{ |
|
# define __RPLCAS |
# undef PACKAGE |
|
# undef PACKAGE_NAME |
|
# undef PACKAGE_STRING |
|
# undef PACKAGE_TARNAME |
|
# undef PACKAGE_VERSION |
|
# undef VERSION |
|
|
|
# undef _GNU_SOURCE |
|
# undef _POSIX_C_SOURCE |
|
|
|
# include "rpl-conv.h" |
# include "rpl-conv.h" |
} |
} |
|
|
Line 56 using namespace giac;
|
Line 53 using namespace giac;
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
unsigned char * |
void |
interface_cas(struct_processus *s_etat_processus, |
interface_cas(struct_processus *s_etat_processus, |
unsigned char *commande, const char *argument) |
enum t_rplcas_commandes commande) |
{ |
{ |
gen e(string(argument), giac::context0); |
unsigned char *argument_1; |
//cout << factor(e) << endl; |
|
|
switch(commande) |
|
{ |
|
case RPLCAS_LIMITE: |
|
{ |
|
break; |
|
} |
|
|
|
gen e(string(reinterpret_cast<const char *>(argument_1)), |
|
giac::context0); |
|
} |
|
|
return(NULL); |
return; |
} |
} |
|
|
// vim: ts=4 |
// vim: ts=4 |