/*
================================================================================
  RPL/2 (R) version 4.1.0.prerelease.3
  Copyright (C) 1989-2011 Dr. BERTRAND Joël

  This file is part of RPL/2.

  RPL/2 is free software; you can redistribute it and/or modify it
  under the terms of the CeCILL V2 License as published by the french
  CEA, CNRS and INRIA.
 
  RPL/2 is distributed in the hope that it will be useful, but WITHOUT
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  FITNESS FOR A PARTICULAR PURPOSE.  See the CeCILL V2 License
  for more details.
 
  You should have received a copy of the CeCILL License
  along with RPL/2. If not, write to info@cecill.info.
================================================================================
*/


#include "giac.h"

#undef PACKAGE
#undef PACKAGE_NAME
#undef PACKAGE_STRING
#undef PACKAGE_TARNAME
#undef PACKAGE_VERSION
#undef VERSION

extern "C"
{
#	define __RPLCAS
#	include "rpl-conv.h"
}

#include <iostream>

using namespace std;
using namespace giac;


/*
================================================================================
  Fonction 'interface_cas'
================================================================================
  Entrées : commande à effectuer, argument
--------------------------------------------------------------------------------
  Sorties : néant
--------------------------------------------------------------------------------
  Effets de bord : néant
================================================================================
*/

void
interface_cas(struct_processus *s_etat_processus,
		enum t_rplcas_commandes commande)
{
	unsigned char			*argument_1;

	switch(commande)
	{
		case RPLCAS_LIMITE:
		{
			break;
		}

		gen e(string(reinterpret_cast<const char *>(argument_1)),
				giac::context0);
	}

	return;
}

// vim: ts=4