SetEnvDR Struct Reference

Inheritance diagram for SetEnvDR:

Collaboration diagram for SetEnvDR:

Public Member Functions
bool	Read (HighParser &HP)
Public Member Functions inherited from DescRead
virtual	~DescRead (void)

Detailed Description

Definition at line 442 of file parser.cc.

Member Function Documentation

bool SetEnvDR::Read ( HighParser &  HP )

virtual

Implements DescRead.

Definition at line 448 of file parser.cc.

References HighParser::GetLineData(), HighParser::GetStringWithDelims(), HighParser::GetYesNoOrBool(), HighParser::IsArg(), HighParser::IsKeyWord(), and MBDYN_EXCEPT_ARGS.

{
#ifdef HAVE_SETENV
        if (!HP.IsArg()) {
                silent_cerr("Parser error in SetEnvDR::Read(), "
                        "arg(s) expected at line "
                        << HP.GetLineData() << std::endl);
                throw HighParser::ErrColonExpected(MBDYN_EXCEPT_ARGS);
        }

        int overwrite = 0;
        if (HP.IsKeyWord("overwrite")) {
                bool b = HP.GetYesNoOrBool();
                overwrite = b ? 1 : 0;
        }

        const char *ava = HP.GetStringWithDelims();
        if (ava == NULL) {
                silent_cerr("unable to get AVA for \"setenv\" at line "
                                << HP.GetLineData() << std::endl);
                throw ErrGeneric(MBDYN_EXCEPT_ARGS);
        }

        char *avasep = std::strchr(const_cast<char *>(ava), '=');
        if (avasep == NULL) {
#ifdef HAVE_UNSETENV
                unsetenv(ava);
#elif defined(HAVE_PUTENV)
                if (putenv(ava)) {
                        silent_cerr("unable to unset the environment variable "
                                        "\"" << ava << "\" at line "
                                        << HP.GetLineData() << std::endl);
                        throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                }
#endif  /* !HAVE_UNSETENV && !HAVE_PUTENV */

        } else {
                if (avasep == ava) {
                        silent_cerr("illegal AVA \"" << ava
                                        << "\" at line "
                                        << HP.GetLineData() << std::endl);
                        throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                }

                avasep[0] = '\0';
                avasep++;
                bool bPresent(getenv(ava) != NULL);
                int rc = setenv(ava, avasep, overwrite);
                if (rc) {
                        silent_cerr("unable to set the environment variable \""
                                        << ava << "\" to \"" << avasep 
                                        << "\" at line " << HP.GetLineData()
                                        << std::endl);
                        throw ErrGeneric(MBDYN_EXCEPT_ARGS);
                }

                if (bPresent && overwrite == 0) {
                        silent_cout("Environment variable \"" << ava
                                << "\" _not_ overwritten with \"" << avasep
                                << "\" (current value is \"" << getenv(ava)
                                << "\") at line " << HP.GetLineData()
                                << std::endl);

                } else if (!bPresent) {
                        silent_cout("Environment variable \"" << ava
                                << "\" set to \"" << avasep
                                << "\" at line " << HP.GetLineData()
                                << std::endl);

                } else {
                        silent_cout("Environment variable \"" << ava
                                << "\" overwritten to \"" << avasep
                                << "\" at line " << HP.GetLineData()
                                << std::endl);
                }
        }
#else // ! HAVE_SETENV
        silent_cerr("SetEnvDR::Read(): warning, setenv() not available; ignored at line "
                << HP.GetLineData() << std::endl);
#endif // !HAVE_SETENV
        return true;
}

Here is the call graph for this function:

---

The documentation for this struct was generated from the following file:

• parser.cc