===================================================================
RCS file: /cvs/mandoc/mandoc.c,v
retrieving revision 1.11
retrieving revision 1.13
diff -u -p -r1.11 -r1.13
--- mandoc/mandoc.c	2010/04/07 11:25:38	1.11
+++ mandoc/mandoc.c	2010/05/14 14:09:13	1.13
@@ -1,4 +1,4 @@
-/*	$Id: mandoc.c,v 1.11 2010/04/07 11:25:38 kristaps Exp $ */
+/*	$Id: mandoc.c,v 1.13 2010/05/14 14:09:13 kristaps Exp $ */
 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -300,3 +300,27 @@ mandoc_a2time(int flags, const char *p)
 	return(0);
 }
 
+
+int
+mandoc_eos(const char *p, size_t sz)
+{
+
+	if (0 == sz)
+		return(0);
+
+	switch (p[(int)sz - 1]) {
+	case ('.'):
+		/* Escaped periods. */
+		if (sz > 1 && '\\' == p[(int)sz - 2])
+			return(0);
+		/* FALLTHROUGH */
+	case ('!'):
+		/* FALLTHROUGH */
+	case ('?'):
+		break;
+	default:
+		return(0);
+	}
+
+	return(1);
+}