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 s7ONhEJ4029264 for ; Sun, 24 Aug 2014 19:43:14 -0400 (EDT) Received: (from schwarze@localhost) by krisdoz.my.domain (8.14.5/8.14.3/Submit) id s7ONhDFG010177; Sun, 24 Aug 2014 19:43:13 -0400 (EDT) Date: Sun, 24 Aug 2014 19:43:13 -0400 (EDT) Message-Id: <201408242343.s7ONhDFG010177@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: When support for bold italic font was added to the parsers and X-Mailer: activitymail 1.26, http://search.cpan.org/dist/activitymail/ Content-Type: text/plain; charset=utf-8 Log Message: ----------- When support for bold italic font was added to the parsers and to the generic parts of the formatters some time ago, the PostScript- and PDF-specific part of the formatters was neglected. Now pascal@ reports that mandoc -Tps throws an assertion on perl(1), apparently because that manual actually uses bold italic font. So here is an overdue implementation of bold italic font support for PostScript and PDF output. Modified Files: -------------- mdocml: term_ps.c Revision Data ------------- Index: term_ps.c =================================================================== RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/term_ps.c,v retrieving revision 1.64 retrieving revision 1.65 diff -Lterm_ps.c -Lterm_ps.c -u -p -r1.64 -r1.65 --- term_ps.c +++ term_ps.c @@ -67,6 +67,7 @@ struct termp_ps { size_t psmargcur; /* cur index in margin buf */ char last; /* character buffer */ enum termfont lastf; /* last set font */ + enum termfont nextf; /* building next font here */ size_t scale; /* font scaling factor */ size_t pages; /* number of pages shown */ size_t lineheight; /* line height (AFM units) */ @@ -406,6 +407,103 @@ static const struct font fonts[TERMFONT_ { 400 }, { 541 }, } }, + { "Times-BoldItalic", { + { 250 }, + { 389 }, + { 555 }, + { 500 }, + { 500 }, + { 833 }, + { 778 }, + { 333 }, + { 333 }, + { 333 }, + { 500 }, + { 570 }, + { 250 }, + { 333 }, + { 250 }, + { 278 }, + { 500 }, + { 500 }, + { 500 }, + { 500 }, + { 500 }, + { 500 }, + { 500 }, + { 500 }, + { 500 }, + { 500 }, + { 333 }, + { 333 }, + { 570 }, + { 570 }, + { 570 }, + { 500 }, + { 832 }, + { 667 }, + { 667 }, + { 667 }, + { 722 }, + { 667 }, + { 667 }, + { 722 }, + { 778 }, + { 389 }, + { 500 }, + { 667 }, + { 611 }, + { 889 }, + { 722 }, + { 722 }, + { 611 }, + { 722 }, + { 667 }, + { 556 }, + { 611 }, + { 722 }, + { 667 }, + { 889 }, + { 667 }, + { 611 }, + { 611 }, + { 333 }, + { 278 }, + { 333 }, + { 570 }, + { 500 }, + { 333 }, + { 500 }, + { 500 }, + { 444 }, + { 500 }, + { 444 }, + { 333 }, + { 500 }, + { 556 }, + { 278 }, + { 278 }, + { 500 }, + { 278 }, + { 778 }, + { 556 }, + { 500 }, + { 500 }, + { 500 }, + { 389 }, + { 389 }, + { 278 }, + { 556 }, + { 444 }, + { 667 }, + { 500 }, + { 444 }, + { 389 }, + { 348 }, + { 220 }, + { 348 }, + { 570 }, + } }, }; void * @@ -953,11 +1051,13 @@ ps_fclose(struct termp *p) * Following this, close out any scope that's open. */ - if ('\0' != p->ps->last) { - if (p->ps->lastf != TERMFONT_NONE) { + if (p->ps->last != '\0') { + assert(p->ps->last != 8); + if (p->ps->nextf != p->ps->lastf) { ps_pclose(p); - ps_setfont(p, TERMFONT_NONE); + ps_setfont(p, p->ps->nextf); } + p->ps->nextf = TERMFONT_NONE; ps_pletter(p, p->ps->last); p->ps->last = '\0'; } @@ -971,50 +1071,54 @@ ps_fclose(struct termp *p) static void ps_letter(struct termp *p, int arg) { - char cc, c; + char c; c = arg >= 128 || arg <= 0 ? '?' : arg; /* - * State machine dictates whether to buffer the last character - * or not. Basically, encoded words are detected by checking if - * we're an "8" and switching on the buffer. Then we put "8" in - * our buffer, and on the next charater, flush both character - * and buffer. Thus, "regular" words are detected by having a - * regular character and a regular buffer character. + * When receiving an initial character, merely buffer it, + * because a backspace might follow to specify formatting. + * When receiving a backspace, use the buffered character + * to build the font instruction and clear the buffer. + * Only when there are two non-backspace characters in a row, + * activate the font built so far and print the first of them; + * the second, again, merely gets buffered. + * The final character will get printed from ps_fclose(). */ - if ('\0' == p->ps->last) { - assert(8 != c); - p->ps->last = c; - return; - } else if (8 == p->ps->last) { - assert(8 != c); - p->ps->last = '\0'; - } else if (8 == c) { - assert(8 != p->ps->last); + if (c == 8) { + assert(p->ps->last != '\0'); + assert(p->ps->last != 8); if ('_' == p->ps->last) { - if (p->ps->lastf != TERMFONT_UNDER) { - ps_pclose(p); - ps_setfont(p, TERMFONT_UNDER); + switch (p->ps->nextf) { + case TERMFONT_BI: + break; + case TERMFONT_BOLD: + p->ps->nextf = TERMFONT_BI; + break; + default: + p->ps->nextf = TERMFONT_UNDER; + } + } else { + switch (p->ps->nextf) { + case TERMFONT_BI: + break; + case TERMFONT_UNDER: + p->ps->nextf = TERMFONT_BI; + break; + default: + p->ps->nextf = TERMFONT_BOLD; } - } else if (p->ps->lastf != TERMFONT_BOLD) { - ps_pclose(p); - ps_setfont(p, TERMFONT_BOLD); } - p->ps->last = c; - return; - } else { - if (p->ps->lastf != TERMFONT_NONE) { + } else if (p->ps->last != '\0' && p->ps->last != 8) { + if (p->ps->nextf != p->ps->lastf) { ps_pclose(p); - ps_setfont(p, TERMFONT_NONE); + ps_setfont(p, p->ps->nextf); } - cc = p->ps->last; - p->ps->last = c; - c = cc; + p->ps->nextf = TERMFONT_NONE; + ps_pletter(p, p->ps->last); } - - ps_pletter(p, c); + p->ps->last = c; } static void -- To unsubscribe send an email to source+unsubscribe@mdocml.bsd.lv