=================================================================== RCS file: /cvs/docbook2mdoc/macro.c,v retrieving revision 1.9 retrieving revision 1.20 diff -u -p -r1.9 -r1.20 --- docbook2mdoc/macro.c 2019/04/11 04:23:22 1.9 +++ docbook2mdoc/macro.c 2019/05/02 12:40:42 1.20 @@ -1,4 +1,4 @@ -/* $Id: macro.c,v 1.9 2019/04/11 04:23:22 schwarze Exp $ */ +/* $Id: macro.c,v 1.20 2019/05/02 12:40:42 schwarze Exp $ */ /* * Copyright (c) 2019 Ingo Schwarze * @@ -28,20 +28,36 @@ */ void +para_check(struct format *f) +{ + if (f->parastate != PARA_WANT) + return; + if (f->linestate != LINE_NEW) { + putchar('\n'); + f->linestate = LINE_NEW; + } + puts(".Pp"); + f->parastate = PARA_HAVE; +} + +void macro_open(struct format *f, const char *name) { + para_check(f); switch (f->linestate) { case LINE_MACRO: if (f->flags & FMT_NOSPC) { fputs(" Ns ", stdout); break; } - if (f->flags & (FMT_CHILD | FMT_IMPL)) { + if (f->nofill || f->flags & (FMT_CHILD | FMT_IMPL)) { putchar(' '); break; } /* FALLTHROUGH */ case LINE_TEXT: + if (f->nofill && f->linestate == LINE_TEXT) + fputs(" \\c", stdout); putchar('\n'); /* FALLTHROUGH */ case LINE_NEW: @@ -53,6 +69,7 @@ macro_open(struct format *f, const char *name) fputs(name, stdout); f->flags &= FMT_IMPL; f->flags |= FMT_ARG; + f->parastate = PARA_MID; } void @@ -79,11 +96,13 @@ void macro_addarg(struct format *f, const char *arg, int flags) { const char *cp; + int quote_now; assert(f->linestate == LINE_MACRO); /* Quote if requested and necessary. */ + quote_now = 0; if ((flags & (ARG_SINGLE | ARG_QUOTED)) == ARG_SINGLE) { for (cp = arg; *cp != '\0'; cp++) if (isspace((unsigned char)*cp)) @@ -95,6 +114,7 @@ macro_addarg(struct format *f, const char *arg, int fl } putchar('"'); flags = ARG_QUOTED; + quote_now = 1; } } @@ -112,13 +132,16 @@ macro_addarg(struct format *f, const char *arg, int fl /* Escape us if we look like a macro. */ - if ((flags & ARG_QUOTED) == 0 && + if ((flags & (ARG_QUOTED | ARG_UPPER)) == 0 && (cp == arg || isspace((unsigned char)cp[-1])) && isupper((unsigned char)cp[0]) && islower((unsigned char)cp[1]) && (cp[2] == '\0' || cp[2] == ' ' || - (islower((unsigned char)cp[2]) && - (cp[3] == '\0' || cp[3] == ' ')))) + ((cp[3] == '\0' || cp[3] == ' ') && + (strncmp(cp, "Brq", 3) == 0 || + strncmp(cp, "Bro", 3) == 0 || + strncmp(cp, "Brc", 3) == 0 || + strncmp(cp, "Bsx", 3) == 0)))) fputs("\\&", stdout); if (*cp == '"') @@ -130,6 +153,9 @@ macro_addarg(struct format *f, const char *arg, int fl if (*cp == '\\') putchar('e'); } + if (quote_now) + putchar('"'); + f->parastate = PARA_MID; } void @@ -147,7 +173,7 @@ void macro_addnode(struct format *f, struct pnode *n, int flags) { struct pnode *nc; - int quote_now; + int is_text, quote_now; assert(f->linestate == LINE_MACRO); @@ -162,6 +188,7 @@ macro_addnode(struct format *f, struct pnode *n, int f if (n->node == NODE_TEXT || n->node == NODE_ESCAPE) { macro_addarg(f, n->b, flags); + f->parastate = PARA_MID; return; } @@ -191,11 +218,18 @@ macro_addnode(struct format *f, struct pnode *n, int f while (nc != NULL) { macro_addnode(f, nc, flags); + is_text = pnode_class(nc->node) == CLASS_TEXT; nc = TAILQ_NEXT(nc, child); - flags |= ARG_SPACE; + if (nc == NULL || pnode_class(nc->node) != CLASS_TEXT) + is_text = 0; + if (is_text && (nc->flags & NFLAG_SPC) == 0) + flags &= ~ARG_SPACE; + else + flags |= ARG_SPACE; } if (quote_now) putchar('"'); + f->parastate = PARA_MID; } void @@ -212,7 +246,11 @@ macro_nodeline(struct format *f, const char *name, str * line otherwise. The flag ARG_SPACE inserts spaces between words. */ void -print_text(struct format *f, const char *word, int flags) { +print_text(struct format *f, const char *word, int flags) +{ + int ateos, inword; + + para_check(f); switch (f->linestate) { case LINE_NEW: break; @@ -224,8 +262,61 @@ print_text(struct format *f, const char *word, int fla macro_close(f); break; } - fputs(word, stdout); + if (f->linestate == LINE_NEW && (*word == '.' || *word == '\'')) + fputs("\\&", stdout); + ateos = inword = 0; + while (*word != '\0') { + if (f->nofill == 0) { + switch (*word) { + case ' ': + if (ateos == 0) { + inword = 0; + break; + } + ateos = inword = 0; + /* Handle the end of a sentence. */ + while (*word == ' ') + word++; + switch (*word) { + case '\0': + break; + case '\'': + case '.': + fputs("\n\\&", stdout); + break; + default: + putchar('\n'); + break; + } + continue; + /* Detect the end of a sentence. */ + case '!': + case '.': + case '?': + if (inword > 1 && + (word[-2] != 'n' || word[-1] != 'c') && + (word[-2] != 'v' || word[-1] != 's')) + ateos = 1; + /* FALLTHROUGH */ + case '"': + case '\'': + case ')': + case ']': + inword = 0; + break; + default: + if (isalnum((unsigned char)*word)) + inword++; + ateos = 0; + break; + } + } + putchar(*word); + if (*word++ == '\\') + putchar('e'); + } f->linestate = LINE_TEXT; + f->parastate = PARA_MID; f->flags = 0; }