// -*- C++ -*-

%module tiger_parse

%include "std_string.i"
%include "std_pair.i"

%{
  #include <sstream>
  #include <misc/error.hh>
  #include <parse/location.hh>
  #include <parse/tiger-driver.hh>
  #include <parse/libparse.hh>
%}

%import "tiger_misc.i"

%include "parse/fwd.hh"

// Explicit instantiation of MetavarMap's.
%include "parse/metavar-map.hh"
%template(MetavarMap) parse::MetavarMap<ast::Exp>;
%template(MetavarVar) parse::MetavarMap<ast::Var>;
%template(MetavarNameTy) parse::MetavarMap<ast::NameTy>;
%template(MetavarChunkList) parse::MetavarMap<ast::ChunkList>;
%template(MetavarTweast) parse::MetavarMap<parse::Tweast>;

/*------------------.
| parse::position.  |
`------------------*/

// Replace parse::position's ctor and ignore parse::position::initialize,
// as Python is unable to parse the literal `1u' used as default value
// of two of their arguments.
%extend parse::position
{
  // External ctor.  For more information, see
  // http://www.nabble.com/Java---adding-code-to-a-constructor-td20210601.html
  position (const std::string* f = nullptr,
            unsigned int l = 1, unsigned int c = 1)
  {
    return new parse::position(f, l, c);
  }
}
%ignore parse::position::position;
%ignore parse::position::initialize;
%extend parse::position
{
  std::string
  __str__ () const
  {
    std::ostringstream o;
    o << *$self;
    return o.str ();
  }
}

/*------------------.
| parse::location.  |
`------------------*/

// Ignore parse::location::initialize, as Python is unable to
// parse the literal `1u' used as default value of two of its
// arguments.
%ignore parse::location::initialize;
%include "parse/location.hh"
%extend parse::location
{
  std::string
  __str__ () const
  {
    std::ostringstream o;
    o << *$self;
    return o.str ();
  }
}

/*-----------.
| libparse.  |
`-----------*/

%import "parse/tweast.hh"
%include "parse/tiger-driver.hh"
%inline
{
  namespace parse
  {
    // Parse a Tiger file, return the corresponding abstract syntax.
    ast::ChunkList*
    parse (const std::string& prelude, const std::string& fname,
           misc::file_library& library)
    {
      std::pair<ast::ChunkList*, misc::error> res =
        parse (prelude, fname, library, false, false, true);
      res.second.exit_on_error();
      return res.first;
    }
  }

}

%include "parse/libparse.hh"