1: /*
2: ================================================================================
3: RPL/2 (R) version 4.1.0.prerelease.3
4: Copyright (C) 1989-2011 Dr. BERTRAND Joël
5:
6: This file is part of RPL/2.
7:
8: RPL/2 is free software; you can redistribute it and/or modify it
9: under the terms of the CeCILL V2 License as published by the french
10: CEA, CNRS and INRIA.
11:
12: RPL/2 is distributed in the hope that it will be useful, but WITHOUT
13: ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14: FITNESS FOR A PARTICULAR PURPOSE. See the CeCILL V2 License
15: for more details.
16:
17: You should have received a copy of the CeCILL License
18: along with RPL/2. If not, write to info@cecill.info.
19: ================================================================================
20: */
21:
22:
23: #include "giac.h"
24:
25: extern "C"
26: {
27:
28: # undef PACKAGE
29: # undef PACKAGE_NAME
30: # undef PACKAGE_STRING
31: # undef PACKAGE_TARNAME
32: # undef PACKAGE_VERSION
33: # undef VERSION
34:
35: # undef _GNU_SOURCE
36: # undef _POSIX_C_SOURCE
37:
38: # include "rpl-conv.h"
39: }
40:
41: #include <iostream>
42:
43: using namespace std;
44: using namespace giac;
45:
46:
47: /*
48: ================================================================================
49: Fonction 'interface_cas'
50: ================================================================================
51: Entrées : commande à effectuer, argument
52: --------------------------------------------------------------------------------
53: Sorties : néant
54: --------------------------------------------------------------------------------
55: Effets de bord : néant
56: ================================================================================
57: */
58:
59: unsigned char *
60: interface_cas(struct_processus *s_etat_processus,
61: unsigned char *commande, const char *argument)
62: {
63: gen e(string(argument), giac::context0);
64: //cout << factor(e) << endl;
65:
66: return(NULL);
67: }
68:
69: // vim: ts=4
CVSweb interface <joel.bertrand@systella.fr>