/* For setting, clearing, and getting the values of flags that recordthe existence of (at least one) warning or error.Contains:# proc: is_w_set - sets the warning flag.# proc: is_w_clr - clears the warning flag.# proc: is_w_get - gets the values of the warning flag.# proc: is_e_set - sets the error flag.# proc: is_e_clr - clears the error flag.# proc: is_e_get - gets the value of the error flag.*/#include <mlp/defs.h>static char is_w = FALSE, is_e = FALSE;/********************************************************************/voidis_w_set(){  is_w = TRUE;}/********************************************************************/voidis_w_clr(){  is_w = FALSE;}/********************************************************************/charis_w_get(){  return is_w;}/********************************************************************/voidis_e_set(){  is_e = TRUE;}/********************************************************************/voidis_e_clr(){  is_e = FALSE;}/********************************************************************/  charis_e_get(){  return is_e;}/********************************************************************/