Annotation of rpl/src/interface_cas.cpp, revision 1.2
1.1 bertrand 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:
1.2 ! bertrand 22:
! 23: #include "giac.h"
! 24:
1.1 bertrand 25: extern "C"
26: {
1.2 ! bertrand 27:
! 28: # undef PACKAGE
! 29: # undef PACKAGE_NAME
! 30: # undef PACKAGE_STRING
! 31: # undef PACKAGE_TARNAME
! 32: # undef PACKAGE_VERSION
! 33: # undef VERSION
! 34:
1.1 bertrand 35: # undef _GNU_SOURCE
1.2 ! bertrand 36: # undef _POSIX_C_SOURCE
! 37:
1.1 bertrand 38: # include "rpl-conv.h"
39: }
40:
41: #include <iostream>
42:
43: using namespace std;
1.2 ! bertrand 44: using namespace giac;
! 45:
1.1 bertrand 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,
1.2 ! bertrand 61: unsigned char *commande, const char *argument)
1.1 bertrand 62: {
1.2 ! bertrand 63: gen e(string(argument), giac::context0);
! 64: //cout << factor(e) << endl;
1.1 bertrand 65:
66: return(NULL);
67: }
68:
69: // vim: ts=4
CVSweb interface <joel.bertrand@systella.fr>