/*
================================================================================
  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"

extern "C"
{

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

#	undef _GNU_SOURCE
#	undef _POSIX_C_SOURCE

#	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
================================================================================
*/

unsigned char *
interface_cas(struct_processus *s_etat_processus,
		unsigned char *commande, const char *argument)
{
	gen e(string(argument), giac::context0);
	//cout << factor(e) << endl;

	return(NULL);
}

// vim: ts=4