---

nmlmsg.cc

Go to the documentation of this file.

/*************************************************************************
* File: nmlmsg.cc                                                        *
* Authors: Fred Proctor, Will Shackleford                                *
* Purpose: C++ file for the  Neutral Manufacturing Language (NML).       *
*          Includes:                                                     *
*                    1. Member functions for class NMLmsg.               *
*************************************************************************/

#define NML_OLD_COMPAT

/* Include Files */
#include "rcs_defs.hh"          /* EXTERN_C_STD_HEADERS */

#ifdef EXTERN_C_STD_HEADERS
extern "C"
{
#endif
#include <string.h>             // memset

#ifdef EXTERN_C_STD_HEADERS
}
#endif


#include "cms.hh"
#include "nmlmsg.hh"
#include "rcs_prnt.hh"          /* rcs_error_print() */

/* NMLmsg Functions. */

int
  NMLmsg::automatically_clear = 1;

/* Constructor */
NMLmsg::NMLmsg (NMLTYPE t, long s)
{
  type = t;
  size = s;
  if (automatically_clear)
    {
      clear ();
    }
  if (size < ((long) sizeof (NMLmsg)))
    {
      rcs_print_error ("NMLmsg: size(=%d) must be atleast %d\n", size,
                       sizeof (NMLmsg));
      size = sizeof (NMLmsg);
    }
  if (type <= 0)
    {
      rcs_print_error ("NMLmsg: type(=%d) should be greater than zero.\n",
                       type);
    }
};

NMLmsg::NMLmsg (NMLTYPE t, size_t s)
{
  type = t;
  size = s;
  if (automatically_clear)
    {
      clear ();
    }
  if (size < ((long) sizeof (NMLmsg)))
    {
      rcs_print_error ("NMLmsg: size(=%d) must be atleast %d\n", size,
                       sizeof (NMLmsg));
      size = sizeof (NMLmsg);
    }
  if (type <= 0)
    {
      rcs_print_error ("NMLmsg: type(=%d) should be greater than zero.\n",
                       type);
    }
}



NMLmsg::NMLmsg (NMLTYPE t, long s, int noclear)
{
  if (automatically_clear && !noclear)
    {
      clear ();
    }
  type = t;
  size = s;
  if (size < ((long) sizeof (NMLmsg)))
    {
      rcs_print_error ("NMLmsg: size(=%d) must be atleast %d\n", size,
                       sizeof (NMLmsg));
      size = sizeof (NMLmsg);
    }
  if (type <= 0)
    {
      rcs_print_error ("NMLmsg: type(=%d) should be greater than zero.\n",
                       type);
    }
};


void
NMLmsg::clear ()
{
  long temp_size;
  NMLTYPE temp_type;
  temp_size = size;
  temp_type = type;
  memset ((void *) this, 0, size);
  size = temp_size;
  type = temp_type;
  if (size < ((long) sizeof (NMLmsg)))
    {
      rcs_print_error ("NMLmsg: size(=%d) must be atleast %d\n", size,
                       sizeof (NMLmsg));
      size = sizeof (NMLmsg);
    }
}


/* Error message stub for base class. */
 /* update should only be called with derived classes. */
void
NMLmsg::update (CMS * cms)
{
  rcs_print_error ("update called for NMLmsg base class.");
  rcs_print_error ("(This is an error.)\n");
  cms->status = CMS_MISC_ERROR;
}

---