text: /* Public domain fmtmsg()
   * Written by Isaac Dunham, 2014
   */
  #include <fmtmsg.h>
  #include <fcntl.h>
  #include <unistd.h>
  #include <stdio.h>
  #include <string.h>
  #include <stdlib.h>
  #include <pthread.h>
  
  /*
   * If lstr is the first part of bstr, check that the next char in bstr
   * is either \0 or :
   */
  static int _strcolcmp(const char *lstr, const char *bstr)
  {
  	size_t i = 0;
  	while (lstr[i] && bstr[i] && (bstr[i] == lstr[i])) i++;
  	if ( lstr[i] || (bstr[i] && bstr[i] != ':')) return 1;
  	return 0;
  }
  
  int fmtmsg(long classification, const char *label, int severity,
             const char *text, const char *action, const char *tag)
  {
  	int ret = 0, i, consolefd, verb = 0;
  	char *errstring = MM_NULLSEV, *cmsg = getenv("MSGVERB");
  	char *const msgs[] = {
  		"label", "severity", "text", "action", "tag", NULL
  	};
  	int cs;
  
  	pthread_setcancelstate(PTHREAD_CANCEL_DISABLE, &cs);
  
  	if (severity == MM_HALT) errstring = "HALT: ";
  	else if (severity == MM_ERROR) errstring = "ERROR: ";
  	else if (severity == MM_WARNING) errstring = "WARNING: ";
  	else if (severity == MM_INFO) errstring = "INFO: ";
  
  	if (classification & MM_CONSOLE) {
  		consolefd = open("/dev/console", O_WRONLY);
  		if (consolefd < 0) {
  			ret = MM_NOCON;
  		} else {
  			if (dprintf(consolefd, "%s%s%s%s%s%s%s%s\n",
  			            label?label:"", label?": ":"",
  			            severity?errstring:"", text?text:"",
  			            action?"\nTO FIX: ":"",
  			            action?action:"", action?" ":"",
  			            tag?tag:"" )<1)
  				ret = MM_NOCON;
  			close(consolefd);
  		}
  	}
  
  	if (classification & MM_PRINT) {
  		while (cmsg && cmsg[0]) {
  			for(i=0; msgs[i]; i++) {
  				if (!_strcolcmp(msgs[i], cmsg)) break;
  			}
  			if (msgs[i] == NULL) {
  				//ignore MSGVERB-unrecognized component
  				verb = 0xFF;
  				break;
  			} else {
  				verb |= (1 << i);
  				cmsg = strchr(cmsg, ':');
  				if (cmsg) cmsg++;
  			}
  		}
  		if (!verb) verb = 0xFF;
  		if (dprintf(2, "%s%s%s%s%s%s%s%s\n",
  		            (verb&1 && label) ? label : "",
  		            (verb&1 && label) ? ": " : "",
  		            (verb&2 && severity) ? errstring : "",
  		            (verb&4 && text) ? text : "",
  		            (verb&8 && action) ? "\nTO FIX: " : "",
  		            (verb&8 && action) ? action : "",
  		            (verb&8 && action) ? " " : "",
  		            (verb&16 && tag) ? tag : "" ) < 1)
  			ret |= MM_NOMSG;
  	}
  	if ((ret & (MM_NOCON|MM_NOMSG)) == (MM_NOCON|MM_NOMSG))
  		ret = MM_NOTOK;
  
  	pthread_setcancelstate(cs, 0);
  
  	return ret;
  }
  