=================================================================== RCS file: /cvs/pod2mdoc/pod2mdoc.c,v retrieving revision 1.20 retrieving revision 1.22 diff -u -p -r1.20 -r1.22 --- pod2mdoc/pod2mdoc.c 2014/04/03 11:34:30 1.20 +++ pod2mdoc/pod2mdoc.c 2014/04/03 16:50:32 1.22 @@ -1,4 +1,4 @@ -/* $Id: pod2mdoc.c,v 1.20 2014/04/03 11:34:30 kristaps Exp $ */ +/* $Id: pod2mdoc.c,v 1.22 2014/04/03 16:50:32 kristaps Exp $ */ /* * Copyright (c) 2014 Kristaps Dzonsons * @@ -179,7 +179,8 @@ formatescape(const char *buf, size_t *start, size_t en static int trylink(const char *buf, size_t *start, size_t end, size_t dsz) { - size_t linkstart, realend, linkend, i, j, textsz; + size_t linkstart, realend, linkend, + i, j, textsz, stack; const char *text; /* @@ -187,6 +188,7 @@ trylink(const char *buf, size_t *start, size_t end, si * This function is more or less replicated in the formatcode() * for null or index formatting codes. */ + stack = 0; for (linkstart = realend = *start; realend < end; realend++) { if ('>' != buf[realend]) continue; @@ -848,10 +850,47 @@ static void verbatim(struct state *st, const char *buf, size_t start, size_t end) { int last; + size_t i; if ( ! st->parsing || st->paused) return; - +again: + /* + * If we're in the SYNOPSIS, see if we're an #include block. + * If we are, then print the "In" macro and re-loop. + * This handles any number of inclusions, but only when they + * come before the remaining parts... + */ + if (SECT_SYNOPSIS == st->sect) { + i = start; + for (i = start; i < end && ' ' == buf[i]; i++) + /* Spin. */ ; + if (i == end) + return; + /* We're an include block! */ + if (end - i > 10 && + 0 == memcmp(&buf[i], "#include <", 10)) { + start = i + 10; + while (start < end && ' ' == buf[start]) + start++; + fputs(".In ", stdout); + /* Stop til the '>' marker or we hit eoln. */ + while (start < end && + '>' != buf[start] && '\n' != buf[start]) + putchar(buf[start++]); + putchar('\n'); + if (start < end && '>' == buf[start]) + start++; + if (start < end && '\n' == buf[start]) + start++; + if (start < end) + goto again; + return; + } + } + + if (start == end) + return; puts(".Bd -literal"); for (last = ' '; start < end; start++) { /*