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: #undef PACKAGE
26: #undef PACKAGE_NAME
27: #undef PACKAGE_STRING
28: #undef PACKAGE_TARNAME
29: #undef PACKAGE_VERSION
30: #undef VERSION
31:
32: extern "C"
33: {
34: # define __RPLCAS
35: # include "rpl-conv.h"
36: }
37:
38: #include <iostream>
39:
40: using namespace std;
41: using namespace giac;
42:
43:
44: /*
45: ================================================================================
46: Fonction 'interface_cas'
47: ================================================================================
48: Entrées : commande à effectuer, argument
49: --------------------------------------------------------------------------------
50: Sorties : néant
51: --------------------------------------------------------------------------------
52: Effets de bord : néant
53: ================================================================================
54: */
55:
56: void
57: interface_cas(struct_processus *s_etat_processus,
58: enum t_rplcas_commandes commande)
59: {
60: unsigned char *argument_1;
61:
62: switch(commande)
63: {
64: case RPLCAS_LIMITE:
65: {
66: break;
67: }
68:
69: gen e(string(reinterpret_cast<const char *>(argument_1)),
70: giac::context0);
71: }
72:
73: return;
74: }
75:
76: // vim: ts=4
CVSweb interface <joel.bertrand@systella.fr>