===================================================================
RCS file: /cvs/mandoc/Attic/strings.c,v
retrieving revision 1.5
retrieving revision 1.7
diff -u -p -r1.5 -r1.7
--- mandoc/Attic/strings.c	2009/01/06 15:49:44	1.5
+++ mandoc/Attic/strings.c	2009/01/16 11:50:54	1.7
@@ -1,4 +1,4 @@
-/* $Id: strings.c,v 1.5 2009/01/06 15:49:44 kristaps Exp $ */
+/* $Id: strings.c,v 1.7 2009/01/16 11:50:54 kristaps Exp $ */
 /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -36,8 +36,6 @@ mdoc_iscdelim(char p)
 {
 
 	switch (p) {
-	case('{'):
-		/* FALLTHROUGH */
 	case('.'):
 		/* FALLTHROUGH */
 	case(','):
@@ -58,6 +56,8 @@ mdoc_iscdelim(char p)
 		/* FALLTHROUGH */
 	case(']'):
 		/* FALLTHROUGH */
+	case('{'):
+		/* FALLTHROUGH */
 	case('}'):
 		return(1);
 	default:
@@ -306,4 +306,31 @@ mdoc_atoatt(const char *p)
 		return(ATT_V4);
 	
 	return(ATT_DEFAULT);
+}
+
+
+char *
+mdoc_type2a(enum mdoc_type type)
+{
+	switch (type) {
+	case (MDOC_ROOT):
+		return("root");
+	case (MDOC_BLOCK):
+		return("block");
+	case (MDOC_HEAD):
+		return("block-head");
+	case (MDOC_BODY):
+		return("block-body");
+	case (MDOC_TAIL):
+		return("block-tail");
+	case (MDOC_ELEM):
+		return("elem");
+	case (MDOC_TEXT):
+		return("text");
+	default:
+		break;
+	}
+
+	abort();
+	/* NOTREACHED */
 }