src/mmc_glue.cpp

Go to the documentation of this file.

/******************************************************************************
* MODULE     : mmc_glue.cpp
* DESCRIPTION: Additional glue for the compiler
* COPYRIGHT  : (C) 2006  Joris van der Hoeven
*******************************************************************************
* This software falls under the GNU general public license and comes WITHOUT
* ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for more details.
* If you don't have this file, write to the Free Software Foundation, Inc.,
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
******************************************************************************/

#include <basix/mmc_glue.hpp>
#include <basix/source_track.hpp>
#include <basix/mmx_syntax.hpp>
namespace mmx {

/******************************************************************************
* Start and exit
******************************************************************************/

vector<string> mmc_args;

void (*compiler_initialize) (void) = NULL;
void (*compiler_terminate) (void) = NULL;

void
mmc_initialize (int argc, char** argv) {
  mmc_args= fill<string> (argc);
  for (int i= 0; i<argc; i++)
    mmc_args[(nat) i]= string (argv[i]);
  if (compiler_initialize != NULL) compiler_initialize ();
}

void
mmc_terminate () {
  if (compiler_terminate != NULL) compiler_terminate ();
}

void
mmc_exit (const int& status) {
  mmc_terminate ();
  exit (status);
}

/******************************************************************************
* Extra routines for files
******************************************************************************/

vector<string> mmc_load_directory (const string& name) {
  string dir_name= relative_name ("", name);
  vector<string> dir;
  if (load_directory (dir_name, dir))
    ERROR ("directory " * dir_name * " not found");
  return dir;
}

void
mmc_save (const string& name, const string& s) {
  (void) save (name, s);
}

string
mmc_load (const string& name) {
  string s;
  string file_name= name; //resolve_name ("", name); FIXME ???
  bool e= load (file_name, s);
  ASSERT (!e, "file did not load");
  return s;
}

static string
strip_preamble (const string& s) {
  string preamble= "#!/usr/bin/env mmx-light\n";
  if (N(s) >= N(preamble) && s (0, N(preamble)) == preamble)
    return s (N(preamble)-1, N(s));
  return s;
}

generic
mmc_parse (const string& file_name) {
  string s;
  if (load (file_name, s))
    ERROR ("file " * file_name * " not found");
  s= strip_preamble (s);
  store_file_source (file_name, s);
  generic r= mmx_parse (file_name, s);
  if (is<exception> (r)) throw as<exception> (r);
  return r;
}

generic
mmc_parse (const string& s, const string& input_name) {
  store_file_source (input_name, s);
  generic r= mmx_parse (input_name, s);
  if (is<exception> (r)) throw as<exception> (r);
  return r;  
}

/******************************************************************************
* Miscellaneous routines
******************************************************************************/

exception
mmc_exception (const string& message, const generic& where) {
  return exception (message, where);
}

string
as_string (const exception& e) {
  return source_exception (e);
}

generic
mmc_unliteral (const generic& x) {
  if (is_func (x, "literal_integer", 1))
    return as<generic> (as_int (as_string (as<literal> (x[1]))));
  else if (is_func (x, "literal_floating", 1))
    return as<generic> (as_double (as_string (as<literal> (x[1]))));
  else if (is_func (x, "literal_string", 1))
    return as<generic> (unquote (as_string (as<literal> (x[1]))));
  else {
    mmerr << "x= " << x << "\n";
    ERROR ("unknown literal type");
  }
}

} // namespace mmx

---