#include "mbconfig.h"
#include <cstring>
#include <stdlib.h>
#include <stack>
#include <map>
#include "mathtyp.h"
#include "parser.h"
#include "filename.h"
#include "Rot.hh"

Include dependency graph for parser.cc:

Go to the source code of this file.

Classes
struct	DescWordSetType

struct	RemarkDR

struct	PrintSymbolTableDR

struct	SetDR

struct	SetEnvDR

struct	ExitDR

Typedefs
typedef std::map< std::string, DescRead *, ltstrcase >	DescFuncMapType

Functions
static int	skip_remarks (HighParser &HP, InputStream &In, char &cIn)

bool	SetDescData (const std::string &name, DescRead *rf)

bool	ReadDescription (HighParser &HP, const std::string &desc)

static void	InitDescData (void)

static void	DestroyDescData (void)

HighParser::ErrOut	mbdyn_get_line_data (void)

std::ostream &	mbdyn_print_line_data (std::ostream &out)

std::ostream &	operator<< (std::ostream &out, const HighParser::ErrOut &err)

Variables
static DescFuncMapType	DescFuncMap

static DescWordSetType	DescWordSet

static unsigned	desc_done

static std::stack< const HighParser * >	pHP

static const HighParser::ErrOut	unknownErr = { "(unknown)", "(unknown)", 0 }

Typedef Documentation

typedef std::map<std::string, DescRead *, ltstrcase> DescFuncMapType

Definition at line 289 of file parser.cc.

Function Documentation

static void DestroyDescData ( void )

static

Definition at line 575 of file parser.cc.

References desc_done, DescFuncMap, and MBDYN_EXCEPT_ARGS.

Referenced by HighParser::~HighParser().

 {
         if (::desc_done == 0) {
                 silent_cerr("DestroyDescData() called once too many" << std::endl);
                 throw ErrGeneric(MBDYN_EXCEPT_ARGS);
         }
 
         if (--::desc_done > 0) {
                 return;
         }
 
         /* free stuff */
         for (DescFuncMapType::iterator i = DescFuncMap.begin(); i != DescFuncMap.end(); ++i) {
                 delete i->second;
         }
         DescFuncMap.clear();
 }

static void InitDescData ( void )

static

Definition at line 553 of file parser.cc.

References desc_done, and SetDescData().

Referenced by HighParser::HighParser().

 {
         if (::desc_done++ > 0) {
                 return;
         }
 
         SetDescData("remark", new RemarkDR);
         SetDescData("print" "symbol" "table", new PrintSymbolTableDR);
         SetDescData("set", new SetDR);
         SetDescData("setenv", new SetEnvDR);
         SetDescData("exit", new ExitDR);
 
         /* NOTE: add here initialization of new built-in descriptions;
          * alternative ways to register new custom descriptions are:
          * - call SetDescData() from anywhere in the code
          * - write a module that calls SetDescData() from inside a function
          *   called module_init(), and run-time load it using "module load"
          *   in the input file.
          */
 }

Here is the call graph for this function:

HighParser::ErrOut mbdyn_get_line_data ( void )

Definition at line 603 of file parser.cc.

References pHP, and unknownErr.

Referenced by TypedValue::Cast(), and MathParser::stmt().

 {
         if (!pHP.empty()) {
                 return pHP.top()->GetLineData();
         }
 
         return unknownErr;
 }

std::ostream& mbdyn_print_line_data ( std::ostream & out )

Definition at line 613 of file parser.cc.

References pHP.

 {
         if (!pHP.empty()) {
                 out << pHP.top()->GetLineData();
         }
 
         return out;
 }

std::ostream& operator<<	(	std::ostream &	out,
		const HighParser::ErrOut &	err
	)

Definition at line 1372 of file parser.cc.

References DIR_SEP, HighParser::ErrOut::iLineNumber, HighParser::ErrOut::sFileName, and HighParser::ErrOut::sPathName.

 {
         out << err.iLineNumber;
 
         if (err.sFileName != 0) {
                 out << ", file <";
                 if (err.sPathName != 0) {
                         out << err.sPathName << DIR_SEP;
                 }
                 out << err.sFileName << '>';
         }
 
         return out;
 }

bool ReadDescription	(	HighParser &	HP,
		const std::string &	desc
	)

Definition at line 310 of file parser.cc.

References DEBUGCOUTFNAME, DescFuncMap, func(), HighParser::GetLineData(), HighParser::GotDescription(), HighParser::IsArg(), HighParser::IsDescription(), and MBDYN_EXCEPT_ARGS.

Referenced by HighParser::GetDescription().

 {
         DEBUGCOUTFNAME("ReadDescription()");
 
         bool bRC(false);
         DescFuncMapType::iterator func = DescFuncMap.find(desc);
         if (func != DescFuncMap.end()) {
                 HP.GotDescription();
                 if (!HP.IsArg() && !HP.IsDescription()) {
                         silent_cerr("Parser error in ReadDescription(),"
                                 " colon or semicolon expected after description at line "
                                 << HP.GetLineData() << std::endl);
                         throw HighParser::ErrColonExpected(MBDYN_EXCEPT_ARGS);
                 }
 
                 bRC = func->second->Read(HP);
 
                 if (HP.IsArg()) {
                         silent_cerr("semicolon expected at line " << HP.GetLineData() << std::endl);
                         throw HighParser::ErrSemicolonExpected(MBDYN_EXCEPT_ARGS);
                 }
         }
 
         return bRC;
 }

Here is the call graph for this function:

bool SetDescData	(	const std::string &	name,
		DescRead *	rf
	)

Definition at line 301 of file parser.cc.

References DescFuncMap.

Referenced by InitDescData(), and module_init().

 {
         pedantic_cout("registering description \"" << name << "\"" << std::endl);
         return DescFuncMap.insert(DescFuncMapType::value_type(name, rf)).second;
 }

static int skip_remarks	(	HighParser &	HP,
		InputStream &	In,
		char &	cIn
	)

static

Definition at line 49 of file parser.cc.

References InputStream::eof(), InputStream::get(), HighParser::GetLineData(), MathParser::ONE_LINE_REMARK, and InputStream::putback().

Referenced by HighParser::GetStringWithDelims(), LowParser::GetToken(), HighParser::IsStringWithDelims(), and HighParser::ParseWord().

 {
 skip_again:;
         for (cIn = In.get(); isspace(cIn); cIn = In.get()) {
                 // this is here in case in some implementation isspace returns success for EOF
                 if (In.eof()) {
                         return -1;
                 }
         }
 
         if (In.eof()) {
                 return -1;
         }
 
         switch (cIn) {
         case -1: // should be EOF!
                 return -1;
         
         case MathParser::ONE_LINE_REMARK:
                 for (cIn = In.get(); cIn != '\n'; cIn = In.get()) {
                         if (cIn == '\\') {
                                 cIn = In.get();
                                 if (In.eof()) {
                                         return -1;
                                 }
                                 if (cIn == '\r') {
                                         /* if input file was prepared
                                          * under DOS/Windows */
                                         cIn = In.get();
                                         if (In.eof()) {
                                                 return -1;
                                         }
                                 }
                         }
                         if (In.eof()) {
                                 return -1;
                         }
                 }
                 goto skip_again;
 
         case '/':
                 cIn = In.get();
                 if (In.eof()) {
                         return -1;
 
                 } else if (cIn == '*') {
                         for (cIn = In.get(); !In.eof(); cIn = In.get()) {
                                 if (cIn == '*') {
 end_of_comment:;
                                         cIn = In.get();
                                         if (In.eof()) {
                                                 return -1;
                                         }
                                         if (cIn == '/') {
                                                 goto skip_again;
                                         }
 
                                 } else if (cIn == '/') {
                                         cIn = In.get();
                                         if (In.eof()) {
                                                 return -1;
                                         }
                                         if (cIn == '*') {
                                                 silent_cerr("warning: '/*' inside a comment "
                                                         "at line " << HP.GetLineData()
                                                         << std::endl);
                                                 goto end_of_comment;
                                         }
                                 }
                         }
                         if (In.eof()) {
                                 return -1;
                         }
 
                 } else {
                         In.putback(cIn);
                         return 0;
                 }
         }
 
         return 0;
 }