===================================================================
RCS file: /cvs/mandoc/Attic/strings.c,v
retrieving revision 1.11
retrieving revision 1.25
diff -u -p -r1.11 -r1.25
--- mandoc/Attic/strings.c	2009/01/20 22:55:46	1.11
+++ mandoc/Attic/strings.c	2009/03/05 13:12:12	1.25
@@ -1,4 +1,4 @@
-/* $Id: strings.c,v 1.11 2009/01/20 22:55:46 kristaps Exp $ */
+/* $Id: strings.c,v 1.25 2009/03/05 13:12:12 kristaps Exp $ */
 /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -25,12 +25,79 @@
 #include <time.h>
 #endif
 
+/*
+ * Convert scalars to and from string format.
+ */
+
 #include "private.h"
 
 #ifdef __linux__
 extern	char		*strptime(const char *, const char *, struct tm *);
 #endif
 
+
+size_t
+mdoc_isescape(const char *p)
+{
+	size_t		 c;
+	
+	if ('\\' != *p++)
+		return(0);
+
+	switch (*p) {
+	case ('\\'):
+		/* FALLTHROUGH */
+	case ('\''):
+		/* FALLTHROUGH */
+	case ('`'):
+		/* FALLTHROUGH */
+	case ('-'):
+		/* FALLTHROUGH */
+	case (' '):
+		/* FALLTHROUGH */
+	case ('&'):
+		/* FALLTHROUGH */
+	case ('.'):
+		/* FALLTHROUGH */
+	case ('e'):
+		return(2);
+	case ('*'):
+		if (0 == *++p || ! isgraph((u_char)*p))
+			return(0);
+		switch (*p) {
+		case ('('):
+			if (0 == *++p || ! isgraph((u_char)*p))
+				return(0);
+			return(4);
+		case ('['):
+			for (c = 3, p++; *p && ']' != *p; p++, c++)
+				if ( ! isgraph((u_char)*p))
+					break;
+			return(*p == ']' ? c : 0);
+		default:
+			break;
+		}
+		return(3);
+	case ('('):
+		if (0 == *++p || ! isgraph((u_char)*p))
+			return(0);
+		if (0 == *++p || ! isgraph((u_char)*p))
+			return(0);
+		return(4);
+	case ('['):
+		break;
+	default:
+		return(0);
+	}
+
+	for (c = 3, p++; *p && ']' != *p; p++, c++)
+		if ( ! isgraph((u_char)*p))
+			break;
+
+	return(*p == ']' ? c : 0);
+}
+
+
 int
 mdoc_iscdelim(char p)
 {
@@ -128,9 +195,9 @@ mdoc_atotime(const char *p)
 
 	(void)memset(&tm, 0, sizeof(struct tm));
 
-	if (xstrcmp(p, "$Mdocdate: January 20 2009 $"))
+	if (xstrcmp(p, "$Mdocdate: March 5 2009 $"))
 		return(time(NULL));
-	if ((pp = strptime(p, "$Mdocdate: January 20 2009 $", &tm)) && 0 == *pp)
+	if ((pp = strptime(p, "$Mdocdate: March 5 2009 $", &tm)) && 0 == *pp)
 		return(mktime(&tm));
 	/* XXX - this matches "June 1999", which is wrong. */
 	if ((pp = strptime(p, "%b %d %Y", &tm)) && 0 == *pp)
@@ -296,6 +363,8 @@ mdoc_atoatt(const char *p)
 		return(ATT_v7);
 	else if (0 == strcmp(p, "32v"))
 		return(ATT_32v);
+	else if (0 == strcmp(p, "V"))
+		return(ATT_V);
 	else if (0 == strcmp(p, "V.1"))
 		return(ATT_V1);
 	else if (0 == strcmp(p, "V.2"))
@@ -333,4 +402,443 @@ mdoc_type2a(enum mdoc_type type)
 
 	abort();
 	/* NOTREACHED */
+}
+
+
+const char *
+mdoc_arch2a(enum mdoc_arch arch)
+{
+
+	switch (arch) {
+	case (ARCH_alpha):
+		return("Alpha");
+	case (ARCH_amd64):
+		return("AMD64");
+	case (ARCH_amiga):
+		return("Amiga");
+	case (ARCH_arc):
+		return("ARC");
+	case (ARCH_arm):
+		return("ARM");
+	case (ARCH_armish):
+		return("ARMISH");
+	case (ARCH_aviion):
+		return("AViiON");
+	case (ARCH_hp300):
+		return("HP300");
+	case (ARCH_hppa):
+		return("HPPA");
+	case (ARCH_hppa64):
+		return("HPPA64");
+	case (ARCH_i386):
+		return("i386");
+	case (ARCH_landisk):
+		return("LANDISK");
+	case (ARCH_luna88k):
+		return("Luna88k");
+	case (ARCH_mac68k):
+		return("Mac68k");
+	case (ARCH_macppc):
+		return("MacPPC");
+	case (ARCH_mvme68k):
+		return("MVME68k");
+	case (ARCH_mvme88k):
+		return("MVME88k");
+	case (ARCH_mvmeppc):
+		return("MVMEPPC");
+	case (ARCH_pmax):
+		return("PMAX");
+	case (ARCH_sgi):
+		return("SGI");
+	case (ARCH_socppc):
+		return("SOCPPC");
+	case (ARCH_sparc):
+		return("SPARC");
+	case (ARCH_sparc64):
+		return("SPARC64");
+	case (ARCH_sun3):
+		return("Sun3");
+	case (ARCH_vax):
+		return("VAX");
+	case (ARCH_zaurus):
+		return("Zaurus");
+	case (ARCH_DEFAULT):
+		return(NULL);
+	default:
+		break;
+	}
+
+	abort();
+	/* NOTREACHED */
+}
+
+
+const char *
+mdoc_vol2a(enum mdoc_vol vol)
+{
+
+	switch (vol) {
+	case (VOL_AMD):
+		return("Ancestral Manual Documents");
+	case (VOL_IND):
+		return("Manual Master Index");
+	case (VOL_KM):
+		return("Kernel Manual");
+	case (VOL_LOCAL):
+		return("Local Manual");
+	case (VOL_PRM):
+		return("Programmer's Manual");
+	case (VOL_PS1):
+		return("Programmer's Supplementary Documents");
+	case (VOL_SMM):
+		return("System Manager's Manual");
+	case (VOL_URM):
+		return("Reference Manual");
+	case (VOL_USD):
+		return("User's Supplementary Documents");
+	case (VOL_DEFAULT):
+		return(NULL);
+	default:
+		break;
+	}
+
+	abort();
+	/* NOTREACHED */
+}
+
+
+const char *
+mdoc_msec2a(enum mdoc_msec msec)
+{
+
+	switch (msec) {
+	case(MSEC_1):
+		return("1");
+	case(MSEC_2):
+		return("2");
+	case(MSEC_3):
+		return("3");
+	case(MSEC_3f):
+		return("3f");
+	case(MSEC_3p):
+		return("3p");
+	case(MSEC_4):
+		return("4");
+	case(MSEC_5):
+		return("5");
+	case(MSEC_6):
+		return("6");
+	case(MSEC_7):
+		return("7");
+	case(MSEC_8):
+		return("8");
+	case(MSEC_9):
+		return("9");
+	case(MSEC_X11):
+		return("X11");
+	case(MSEC_X11R6):
+		return("X11R6");
+	case(MSEC_local):
+		return("local");
+	case(MSEC_n):
+		return("n");
+	case(MSEC_unass):
+		/* FALLTHROUGH */
+	case(MSEC_draft):
+		return("draft");
+	case(MSEC_paper):
+		return("paper");
+	case(MSEC_DEFAULT):
+		return(NULL);
+	default:
+		break;
+	}
+
+	abort();
+	/* NOTREACHED */
+}
+
+
+const char *
+mdoc_st2a(int c)
+{
+	char		 *p;
+
+	switch (c) {
+	case(MDOC_p1003_1_88):
+		p = "IEEE Std 1003.1-1988 (\\(lqPOSIX\\(rq)";
+		break;
+	case(MDOC_p1003_1_90):
+		p = "IEEE Std 1003.1-1990 (\\(lqPOSIX\\(rq)";
+		break;
+	case(MDOC_p1003_1_96):
+		p = "ISO/IEC 9945-1:1996 (\\(lqPOSIX\\(rq)";
+		break;
+	case(MDOC_p1003_1_2001):
+		p = "IEEE Std 1003.1-2001 (\\(lqPOSIX\\(rq)";
+		break;
+	case(MDOC_p1003_1_2004):
+		p = "IEEE Std 1003.1-2004 (\\(lqPOSIX\\(rq)";
+		break;
+	case(MDOC_p1003_1):
+		p = "IEEE Std 1003.1 (\\(lqPOSIX\\(rq)";
+		break;
+	case(MDOC_p1003_1b):
+		p = "IEEE Std 1003.1b (\\(lqPOSIX\\(rq)";
+		break;
+	case(MDOC_p1003_1b_93):
+		p = "IEEE Std 1003.1b-1993 (\\(lqPOSIX\\(rq)";
+		break;
+	case(MDOC_p1003_1c_95):
+		p = "IEEE Std 1003.1c-1995 (\\(lqPOSIX\\(rq)";
+		break;
+	case(MDOC_p1003_1g_2000):
+		p = "IEEE Std 1003.1g-2000 (\\(lqPOSIX\\(rq)";
+		break;
+	case(MDOC_p1003_2_92):
+		p = "IEEE Std 1003.2-1992 (\\(lqPOSIX.2\\(rq)";
+		break;
+	case(MDOC_p1387_2_95):
+		p = "IEEE Std 1387.2-1995 (\\(lqPOSIX.7.2\\(rq)";
+		break;
+	case(MDOC_p1003_2):
+		p = "IEEE Std 1003.2 (\\(lqPOSIX.2\\(rq)";
+		break;
+	case(MDOC_p1387_2):
+		p = "IEEE Std 1387.2 (\\(lqPOSIX.7.2\\(rq)";
+		break;
+	case(MDOC_isoC_90):
+		p = "ISO/IEC 9899:1990 (\\(lqISO C90\\(rq)";
+		break;
+	case(MDOC_isoC_amd1):
+		p = "ISO/IEC 9899/AMD1:1995 (\\(lqISO C90\\(rq)";
+		break;
+	case(MDOC_isoC_tcor1):
+		p = "ISO/IEC 9899/TCOR1:1994 (\\(lqISO C90\\(rq)";
+		break;
+	case(MDOC_isoC_tcor2):
+		p = "ISO/IEC 9899/TCOR2:1995 (\\(lqISO C90\\(rq)";
+		break;
+	case(MDOC_isoC_99):
+		p = "ISO/IEC 9899:1999 (\\(lqISO C99\\(rq)";
+		break;
+	case(MDOC_ansiC):
+		p = "ANSI X3.159-1989 (\\(lqANSI C\\(rq)";
+		break;
+	case(MDOC_ansiC_89):
+		p = "ANSI X3.159-1989 (\\(lqANSI C\\(rq)";
+		break;
+	case(MDOC_ansiC_99):
+		p = "ANSI/ISO/IEC 9899-1999 (\\(lqANSI C99\\(rq)";
+		break;
+	case(MDOC_ieee754):
+		p = "IEEE Std 754-1985";
+		break;
+	case(MDOC_iso8802_3):
+		p = "ISO 8802-3: 1989";
+		break;
+	case(MDOC_xpg3):
+		p = "X/Open Portability Guide Issue 3 "
+			"(\\(lqXPG3\\(rq)";
+		break;
+	case(MDOC_xpg4):
+		p = "X/Open Portability Guide Issue 4 "
+			"(\\(lqXPG4\\(rq)";
+		break;
+	case(MDOC_xpg4_2):
+		p = "X/Open Portability Guide Issue 4.2 "
+			"(\\(lqXPG4.2\\(rq)";
+		break;
+	case(MDOC_xpg4_3):
+		p = "X/Open Portability Guide Issue 4.3 "
+			"(\\(lqXPG4.3\\(rq)";
+		break;
+	case(MDOC_xbd5):
+		p = "X/Open System Interface Definitions Issue 5 "
+			"(\\(lqXBD5\\(rq)";
+		break;
+	case(MDOC_xcu5):
+		p = "X/Open Commands and Utilities Issue 5 "
+			"(\\(lqXCU5\\(rq)";
+		break;
+	case(MDOC_xsh5):
+		p = "X/Open System Interfaces and Headers Issue 5 "
+			"(\\(lqXSH5\\(rq)";
+		break;
+	case(MDOC_xns5):
+		p = "X/Open Networking Services Issue 5 "
+			"(\\(lqXNS5\\(rq)";
+		break;
+	case(MDOC_xns5_2d2_0):
+		p = "X/Open Networking Services Issue 5.2 Draft 2.0 "
+			"(\\(lqXNS5.2D2.0\\(rq)";
+		break;
+	case(MDOC_xcurses4_2):
+		p = "X/Open Curses Issue 4 Version 2 "
+			"(\\(lqXCURSES4.2\\(rq)";
+		break;
+	case(MDOC_susv2):
+		p = "Version 2 of the Single UNIX Specification";
+		break;
+	case(MDOC_susv3):
+		p = "Version 3 of the Single UNIX Specification";
+		break;
+	case(MDOC_svid4):
+		p = "System V Interface Definition, Fourth Edition "
+			"(\\(lqSVID4\\(rq)";
+		break;
+	default:
+		p = NULL;
+		break;
+	}
+
+	return(p);
+}
+
+
+const char *
+mdoc_att2a(enum mdoc_att c)
+{
+	char		*p;
+	
+	switch (c) {
+	case(ATT_v1):
+		p = "Version 1 AT&T UNIX";
+		break;
+	case(ATT_v2):
+		p = "Version 2 AT&T UNIX";
+		break;
+	case(ATT_v3):
+		p = "Version 3 AT&T UNIX";
+		break;
+	case(ATT_v4):
+		p = "Version 4 AT&T UNIX";
+		break;
+	case(ATT_v5):
+		p = "Version 5 AT&T UNIX";
+		break;
+	case(ATT_v6):
+		p = "Version 6 AT&T UNIX";
+		break;
+	case(ATT_v7):
+		p = "Version 7 AT&T UNIX";
+		break;
+	case(ATT_32v):
+		p = "Version 32V AT&T UNIX";
+		break;
+	case(ATT_V):
+		p = "AT&T System V UNIX";
+		break;
+	case(ATT_V1):
+		p = "AT&T System V.1 UNIX";
+		break;
+	case(ATT_V2):
+		p = "AT&T System V.2 UNIX";
+		break;
+	case(ATT_V3):
+		p = "AT&T System V.3 UNIX";
+		break;
+	case(ATT_V4):
+		p = "AT&T System V.4 UNIX";
+		break;
+	default:
+		p = "AT&T UNIX";
+		break;
+	}
+
+	return(p);
+}
+
+
+size_t
+mdoc_macro2len(int macro)
+{
+
+	switch (macro) {
+	case(MDOC_Ad):
+		return(12);
+	case(MDOC_Ao):
+		return(12);
+	case(MDOC_An):
+		return(12);
+	case(MDOC_Aq):
+		return(12);
+	case(MDOC_Ar):
+		return(12);
+	case(MDOC_Bo):
+		return(12);
+	case(MDOC_Bq):
+		return(12);
+	case(MDOC_Cd):
+		return(12);
+	case(MDOC_Cm):
+		return(10);
+	case(MDOC_Do):
+		return(10);
+	case(MDOC_Dq):
+		return(12);
+	case(MDOC_Dv):
+		return(12);
+	case(MDOC_Eo):
+		return(12);
+	case(MDOC_Em):
+		return(10);
+	case(MDOC_Er):
+		return(12);
+	case(MDOC_Ev):
+		return(15);
+	case(MDOC_Fa):
+		return(12);
+	case(MDOC_Fl):
+		return(10);
+	case(MDOC_Fo):
+		return(16);
+	case(MDOC_Fn):
+		return(16);
+	case(MDOC_Ic):
+		return(10);
+	case(MDOC_Li):
+		return(16);
+	case(MDOC_Ms):
+		return(6);
+	case(MDOC_Nm):
+		return(10);
+	case(MDOC_No):
+		return(12);
+	case(MDOC_Oo):
+		return(10);
+	case(MDOC_Op):
+		return(14);
+	case(MDOC_Pa):
+		return(32);
+	case(MDOC_Pf):
+		return(12);
+	case(MDOC_Po):
+		return(12);
+	case(MDOC_Pq):
+		return(12);
+	case(MDOC_Ql):
+		return(16);
+	case(MDOC_Qo):
+		return(12);
+	case(MDOC_So):
+		return(12);
+	case(MDOC_Sq):
+		return(12);
+	case(MDOC_Sy):
+		return(6);
+	case(MDOC_Sx):
+		return(16);
+	case(MDOC_Tn):
+		return(10);
+	case(MDOC_Va):
+		return(12);
+	case(MDOC_Vt):
+		return(12);
+	case(MDOC_Xr):
+		return(10);
+	default:
+		break;
+	};
+	return(0);
 }