+ struct utsname utsname;
+
+ if (mdoc->meta.os)
+ free(mdoc->meta.os);
+
+ (void)xstrlcpys(buf, mdoc->last->child, sizeof(buf));
+
+ if (0 == buf[0]) {
+ if (-1 == uname(&utsname))
+ return(mdoc_err(mdoc, "utsname"));
+ (void)xstrlcpy(buf, utsname.sysname, sizeof(buf));
+ (void)xstrlcat(buf, " ", sizeof(buf));
+ (void)xstrlcat(buf, utsname.release, sizeof(buf));
+ }
+
+ mdoc->meta.os = xstrdup(buf);
+ mdoc_msg(mdoc, "system: %s", mdoc->meta.os);
+
+ mdoc->lastnamed = mdoc->lastsec = SEC_BODY;
+
+ return(post_prologue(mdoc));
+}
+
+
+static int
+post_bl_tagwidth(struct mdoc *mdoc)
+{
+ struct mdoc_node *n;
+ struct mdoc_block *b;
+ int sz;
+ char buf[32];
+
+ /*
+ * If -tag has been specified and -width has not been, then try
+ * to intuit our width from the first body element.
+ */
+
+ b = &mdoc->last->data.block;
+
+ if (NULL == (n = b->body->child))
+ return(1);
+ assert(MDOC_It == n->tok);
+
+ /*
+ * Use the text width, if a text node, or the default macro
+ * width if a macro.
+ */
+
+ if ((n = n->data.block.head->child)) {
+ if (MDOC_TEXT != n->type) {
+ if (0 == (sz = mdoc_macro2len(n->tok)))
+ sz = -1;
+ } else
+ sz = (int)strlen(n->data.text.string) + 1;
+ } else
+ sz = -1;
+
+ if (-1 == sz) {
+ if ( ! mdoc_warn(mdoc, WARN_SYNTAX,
+ "cannot determine default %s",
+ mdoc_argnames[MDOC_Width]))
+ return(0);
+ sz = 10;
+ }
+
+ (void)snprintf(buf, sizeof(buf), "%dn", sz);
+
+ /*
+ * We have to dynamically add this to the macro's argument list.
+ * We're guaranteed that a MDOC_Width doesn't already exist.
+ */
git.ckatri.com / mandoc.git / blobdiff