/*
** pg_to_html - By Mo McKinlay (ekky@ekto.org)
**
** Converts a string containing colour codes to HTML. Doesn't work with
** Dynatext, deal with it. (If you think you can, why not add support for
** dynatext? I'll be happy to credit anybody who comes up with any useful
** revisions to this).
**
*/

#define HTML_NORMAL_FG "#FFFFFF"

int 
pg_to_html(char *dest, char *src) {
  int fdep=1, udep=0, idep=0, ccol='N', c=0;
  char *t;
  
  if(!dest) return -1;
  if(!src) {
    *dest=0;
    return -1;
  };
  dest+=sprintf(dest, "<font color=\"%s\">", HTML_NORMAL_FG);
  while(*src) {
    if(c) {
      c=0;
      if(*src=='^') {
	*dest++='^';
      } else {
	if(udep) dest+=sprintf(dest, "</u>");
	if(idep) dest+=sprintf(dest, "</i>");
	if(fdep) dest+=sprintf(dest, "</font>");
	switch(*src) {
	case 'N':
	case 'n':
	  ccol='N';
	  idep=0;
	  udep=0;
	  fdep=1;
	  break;
	case 'H':
	case 'h':
	  ccol='H';
	  fdep=1;
	  break;
	case 'R':
	case 'r':
	case 'A':
	case 'a':
	case 'C':
	case 'c':
	case 'Y':
	case 'y':
	case 'P':
	case 'p':
	case 'G':
	case 'g':
	  ccol=*src;
	  fdep=1;
	  break;
	case 'X':
	case 'x':
	  ccol='N';
	  fdep=1;
	  break;
	case 'S':
	  idep=1;
	  break;
	case 's':
	  idep=0;
	  break;
	case 'U':
	  udep=1;
	  break;
	case 'u':
	  udep=0;
	  break;
	};
	dest+=sprintf(dest, "<font color=\"");
	t=HTML_NORMAL_FG;
	switch(ccol) {
	case 'R':
	  t="#FF0000";
	  break;
	case 'r':
	  t="#770000";
	  break;
	case 'G':
	  t="#00FF00";
	  break;
	case 'g':
	  t="#007700";
	  break;
	case 'B':
	  t="#0000FF";
	  break;
	case 'b':
	  t="#000077";
	  break;
	case 'P':
	  t="#FF00FF";
	  break;
	case 'p':
	  t="#770077";
	  break;
	case 'C':
	  t="#00FFFF";
	  break;
	case 'c':
	  t="#007777";
	  break;
	case 'Y':
	  t="#FFFF00";
	  break;
	case 'y':
	  t="#777700";
	  break;
	};
	dest+=sprintf(dest, "%s\">", t);
	if(udep) dest+=sprintf(dest, "<u>");
	if(idep) dest+=sprintf(dest, "<i>");
      };
    } else {
      if(*src=='^') {
	c=1;
      } else if(*src=='\n') {
	dest+=sprintf(dest, "<br>");
      } else {
	*dest++=*src;
      };
    };
    src++;
  };
  if(udep) dest+=sprintf(dest, "</u>");
  if(idep) dest+=sprintf(dest, "</i>");
  if(fdep) dest+=sprintf(dest, "</font>");
  *dest=0;
  return 0;
}