Return to interface_cas.cpp CVS log

Up to [local] / rpl / src

Annotation of rpl/src/interface_cas.cpp, revision 1.3

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.3     ! bertrand   25: #undef PACKAGE
        !            26: #undef PACKAGE_NAME
        !            27: #undef PACKAGE_STRING
        !            28: #undef PACKAGE_TARNAME
        !            29: #undef PACKAGE_VERSION
        !            30: #undef VERSION
        !            31: 
1.1       bertrand   32: extern "C"
                     33: {
1.3     ! bertrand   34: #  define __RPLCAS
1.1       bertrand   35: #  include "rpl-conv.h"
                     36: }
                     37: 
                     38: #include <iostream>
                     39: 
                     40: using namespace std;
1.2       bertrand   41: using namespace giac;
                     42: 
1.1       bertrand   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: 
1.3     ! bertrand   56: void
1.1       bertrand   57: interface_cas(struct_processus *s_etat_processus,
1.3     ! bertrand   58:        enum t_rplcas_commandes commande)
1.1       bertrand   59: {
1.3     ! bertrand   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:    }
1.1       bertrand   72: 
1.3     ! bertrand   73:    return;
1.1       bertrand   74: }
                     75: 
                     76: // vim: ts=4