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: extern "C"
23: {
24: # undef _GNU_SOURCE
25: # include "rpl-conv.h"
26: }
27:
28: #include <iostream>
29: #include "giac.h"
30:
31: using namespace std;
32:
33: /*
34: ================================================================================
35: Fonction 'interface_cas'
36: ================================================================================
37: Entrées : commande à effectuer, argument
38: --------------------------------------------------------------------------------
39: Sorties : néant
40: --------------------------------------------------------------------------------
41: Effets de bord : néant
42: ================================================================================
43: */
44:
45: unsigned char *
46: interface_cas(struct_processus *s_etat_processus,
47: unsigned char *commande, unsigned char *argument)
48: {
49: gen e(string("x^2-1"));
50: cout << factor(e) << endl;
51:
52: return(NULL);
53: }
54:
55: // vim: ts=4
CVSweb interface <joel.bertrand@systella.fr>