src/clipsmm/module.cpp

Go to the documentation of this file.

/***************************************************************************
 *   Copyright (C) 2006 by Rick L. Vinyard, Jr.                            *
 *   rvinyard@cs.nmsu.edu                                                  *
 *                                                                         *
 *   This file is part of the clipsmm library.                             *
 *                                                                         *
 *   The clipsmm library is free software; you can redistribute it and/or  *
 *   modify it under the terms of the GNU General Public License           *
 *   version 3 as published by the Free Software Foundation.               *
 *                                                                         *
 *   The clipsmm library 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 GNU   *
 *   General Public License for more details.                              *
 *                                                                         *
 *   You should have received a copy of the GNU General Public License     *
 *   along with this software. If not see <http://www.gnu.org/licenses/>.  *
 ***************************************************************************/
#include <clipsmm/module.h>

extern "C" {
  #include <clips/clips.h>
};

#include <clipsmm/environment.h>

namespace DACLIPS {

Module::Module( Environment& environment, void* cobj ):
    EnvironmentObject( environment, cobj )
{
}

Module::pointer Module::create( Environment & environment, void * cobj )
{
  return Module::pointer( new Module( environment, cobj ) );
}

Module::~Module()
{
}

std::string Module::name( )
{
  if ( m_cobj )
    return EnvGetDefmoduleName( m_environment.cobj(), m_cobj );
  else
    return std::string();
}

std::string Module::formatted( )
{
  if ( m_cobj )
    return EnvGetDefmodulePPForm( m_environment.cobj(), m_cobj );
  else
    return std::string();
}

Module::pointer Module::next( )
{
  void* nxt;
  if ( !m_cobj )
    return Module::pointer();
  nxt = EnvGetNextDefmodule( m_environment.cobj(), m_cobj );
  if ( nxt )
    return Module::create( m_environment, nxt );
  else
    return Module::pointer();
}

Module::pointer Module::set_current( )
{
  void* old;
  if ( !m_cobj )
    return Module::pointer();
  old = EnvSetCurrentModule( m_environment.cobj(), m_cobj );
  if ( old )
    return Module::create( m_environment, old );
  else
    return Module::pointer();
}

void Module::focus( )
{
  if ( m_cobj )
    EnvFocus( m_environment.cobj(), m_cobj );
}

}

---