From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from krisdoz.my.domain (schwarze@localhost [127.0.0.1]) by krisdoz.my.domain (8.14.5/8.14.5) with ESMTP id s37HpBvF022441 for ; Mon, 7 Apr 2014 13:51:11 -0400 (EDT) Received: (from schwarze@localhost) by krisdoz.my.domain (8.14.5/8.14.3/Submit) id s37HpAF7018728; Mon, 7 Apr 2014 13:51:10 -0400 (EDT) Date: Mon, 7 Apr 2014 13:51:10 -0400 (EDT) Message-Id: <201404071751.s37HpAF7018728@krisdoz.my.domain> X-Mailinglist: mdocml-source Reply-To: source@mdocml.bsd.lv MIME-Version: 1.0 From: schwarze@mdocml.bsd.lv To: source@mdocml.bsd.lv Subject: mdocml: Accept arbitrary argument delimiters for various roff(7) escape X-Mailer: activitymail 1.26, http://search.cpan.org/dist/activitymail/ Content-Type: text/plain; charset=utf-8 Log Message: ----------- Accept arbitrary argument delimiters for various roff(7) escape sequences. Needed for example by the new Perl pod2man(1) preamble. Modified Files: -------------- mdocml: mandoc.c Revision Data ------------- Index: mandoc.c =================================================================== RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/mandoc.c,v retrieving revision 1.76 retrieving revision 1.77 diff -Lmandoc.c -Lmandoc.c -u -p -r1.76 -r1.77 --- mandoc.c +++ mandoc.c @@ -179,11 +179,11 @@ mandoc_escape(const char **end, const ch case ('X'): /* FALLTHROUGH */ case ('Z'): - if ('\'' != **start) + if ('\0' == **start) return(ESCAPE_ERROR); gly = ESCAPE_IGNORE; + term = **start; *start = ++*end; - term = '\''; break; /* @@ -203,11 +203,11 @@ mandoc_escape(const char **end, const ch case ('v'): /* FALLTHROUGH */ case ('x'): - if ('\'' != **start) + if (strchr("\0 %&()*+-./0123456789:<=>", **start)) return(ESCAPE_ERROR); gly = ESCAPE_IGNORE; + term = **start; *start = ++*end; - term = '\''; break; /* -- To unsubscribe send an email to source+unsubscribe@mdocml.bsd.lv