Have `Fd' in -T[x]html generate an "include" link if it detects one

[mandoc.git] / mdoc_html.c

diff --git a/mdoc_html.c b/mdoc_html.c
index ae27c516f1c611fcf542f91e335e9d97c8d200d5..49782a39f9a9a36520e5095b55ee569a266cd5ad 100644 (file)
--- a/mdoc_html.c
+++ b/mdoc_html.c
@@ -1,4 +1,4 @@
-/*     $Id: mdoc_html.c,v 1.161 2011/04/04 16:44:56 kristaps Exp $ */
+/*     $Id: mdoc_html.c,v 1.162 2011/04/04 16:48:18 kristaps Exp $ */
 /*
  * Copyright (c) 2008, 2009, 2010, 2011 Kristaps Dzonsons <kristaps@bsd.lv>
  *
@@ -1405,13 +1405,61 @@ mdoc_fa_pre(MDOC_ARGS)
 static int
 mdoc_fd_pre(MDOC_ARGS)
 {
-       struct htmlpair  tag;
+       struct htmlpair  tag[2];
+       char             buf[BUFSIZ];
+       size_t           sz;
+       int              i;
+       struct tag      *t;
 
        synopsis_pre(h, n);
 
-       PAIR_CLASS_INIT(&tag, "macro");
-       print_otag(h, TAG_B, 1, &tag);
-       return(1);
+       if (NULL == (n = n->child))
+               return(0);
+
+       assert(MDOC_TEXT == n->type);
+
+       if (strcmp(n->string, "#include")) {
+               PAIR_CLASS_INIT(&tag[0], "macro");
+               print_otag(h, TAG_B, 1, tag);
+               return(1);
+       }
+
+       PAIR_CLASS_INIT(&tag[0], "includes");
+       print_otag(h, TAG_B, 1, tag);
+       print_text(h, n->string);
+
+       if (NULL != (n = n->next)) {
+               assert(MDOC_TEXT == n->type);
+               strlcpy(buf, '<' == *n->string || '"' == *n->string ? 
+                               n->string + 1 : n->string, BUFSIZ);
+
+               sz = strlen(buf);
+               if (sz && ('>' == buf[sz - 1] || '"' == buf[sz - 1]))
+                       buf[sz - 1] = '\0';
+
+               PAIR_CLASS_INIT(&tag[0], "link-includes");
+               bufinit(h);
+               
+               i = 1;
+               if (h->base_includes) {
+                       buffmt_includes(h, buf);
+                       PAIR_HREF_INIT(&tag[i], h->buf);
+                       i++;
+               } 
+
+               t = print_otag(h, TAG_A, i, tag);
+               print_text(h, n->string);
+               print_tagq(h, t);
+
+               n = n->next;
+       }
+
+       for ( ; n; n = n->next) {
+               assert(MDOC_TEXT == n->type);
+               print_text(h, n->string);
+       }
+
+       return(0);
 }