[BACK]Return to interface_cas.cpp CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/interface_cas.cpp between versions 1.8 and 1.9

version 1.8, 2011/06/27 09:05:00 version 1.9, 2011/07/22 07:38:40
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.0    RPL/2 (R) version 4.1.1
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2011 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 20 Line 20
 */  */
   
   
 #include "giac.h"  #ifdef RPLCAS
   #   include "giac.h"
   
 #undef PACKAGE  #   undef PACKAGE
 #undef PACKAGE_NAME  #   undef PACKAGE_NAME
 #undef PACKAGE_STRING  #   undef PACKAGE_STRING
 #undef PACKAGE_TARNAME  #   undef PACKAGE_TARNAME
 #undef PACKAGE_VERSION  #   undef PACKAGE_VERSION
 #undef VERSION  #   undef VERSION
   #endif
   
 extern "C"  extern "C"
 {  {
Line 38  extern "C" Line 40  extern "C"
 #include <iostream>  #include <iostream>
   
 using namespace std;  using namespace std;
 using namespace giac;  
   #ifdef RPLCAS
       using namespace giac;
   #endif
   
   
 static unsigned char *  static unsigned char *
Line 210  void Line 215  void
 interface_cas(struct_processus *s_etat_processus,  interface_cas(struct_processus *s_etat_processus,
         enum t_rplcas_commandes commande)          enum t_rplcas_commandes commande)
 {  {
   #   ifdef RPLCAS
     struct_objet            *s_objet_argument_1;      struct_objet            *s_objet_argument_1;
     struct_objet            *s_objet_argument_2;      struct_objet            *s_objet_argument_2;
   
Line 304  interface_cas(struct_processus *s_etat_p Line 310  interface_cas(struct_processus *s_etat_p
     }      }
   
     return;      return;
   
   #else
   
       if (s_etat_processus->langue == 'F')
       {
           printf("+++Attention : RPL/CAS non compilé !\n");
       }
       else
       {
           printf("+++Warning : RPL/CAS not available !\n");
       }
   
       fflush(stdout);
   
       return;
   
   #endif
 }  }
   
 // vim: ts=4  // vim: ts=4
Removed from v.1.8  
changed lines
  Added in v.1.9

CVSweb interface <joel.bertrand@systella.fr>