contrib/mdocml/eqn_term.c

   1 /*      $Id: eqn_term.c,v 1.9 2017/02/12 14:19:01 schwarze Exp $ */
   2 /*
   3  * Copyright (c) 2011 Kristaps Dzonsons <kristaps@bsd.lv>
   4  * Copyright (c) 2014, 2015, 2017 Ingo Schwarze <schwarze@openbsd.org>
   5  *
   6  * Permission to use, copy, modify, and distribute this software for any
   7  * purpose with or without fee is hereby granted, provided that the above
   8  * copyright notice and this permission notice appear in all copies.
   9  *
  10  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  11  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  12  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  13  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  14  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  15  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  16  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  17  */
  18 #include "config.h"
  19
  20 #include <sys/types.h>
  21
  22 #include <assert.h>
  23 #include <stdio.h>
  24 #include <stdlib.h>
  25 #include <string.h>
  26
  27 #include "mandoc.h"
  28 #include "out.h"
  29 #include "term.h"
  30
  31 static  const enum termfont fontmap[EQNFONT__MAX] = {
  32         TERMFONT_NONE, /* EQNFONT_NONE */
  33         TERMFONT_NONE, /* EQNFONT_ROMAN */
  34         TERMFONT_BOLD, /* EQNFONT_BOLD */
  35         TERMFONT_BOLD, /* EQNFONT_FAT */
  36         TERMFONT_UNDER /* EQNFONT_ITALIC */
  37 };
  38
  39 static void     eqn_box(struct termp *, const struct eqn_box *);
  40
  41
  42 void
  43 term_eqn(struct termp *p, const struct eqn *ep)
  44 {
  45
  46         eqn_box(p, ep->root);
  47         p->flags &= ~TERMP_NOSPACE;
  48 }
  49
  50 static void
  51 eqn_box(struct termp *p, const struct eqn_box *bp)
  52 {
  53         const struct eqn_box *child;
  54
  55         if (bp->type == EQN_LIST ||
  56             (bp->type == EQN_PILE && (bp->prev || bp->next)) ||
  57             (bp->parent != NULL && bp->parent->pos == EQNPOS_SQRT)) {
  58                 if (bp->parent->type == EQN_SUBEXPR && bp->prev != NULL)
  59                         p->flags |= TERMP_NOSPACE;
  60                 term_word(p, bp->left != NULL ? bp->left : "(");
  61                 p->flags |= TERMP_NOSPACE;
  62         }
  63         if (bp->font != EQNFONT_NONE)
  64                 term_fontpush(p, fontmap[(int)bp->font]);
  65
  66         if (bp->text != NULL)
  67                 term_word(p, bp->text);
  68
  69         if (bp->pos == EQNPOS_SQRT) {
  70                 term_word(p, "sqrt");
  71                 if (bp->first != NULL) {
  72                         p->flags |= TERMP_NOSPACE;
  73                         eqn_box(p, bp->first);
  74                 }
  75         } else if (bp->type == EQN_SUBEXPR) {
  76                 child = bp->first;
  77                 eqn_box(p, child);
  78                 p->flags |= TERMP_NOSPACE;
  79                 term_word(p, bp->pos == EQNPOS_OVER ? "/" :
  80                     (bp->pos == EQNPOS_SUP ||
  81                      bp->pos == EQNPOS_TO) ? "^" : "_");
  82                 p->flags |= TERMP_NOSPACE;
  83                 child = child->next;
  84                 if (child != NULL) {
  85                         eqn_box(p, child);
  86                         if (bp->pos == EQNPOS_FROMTO ||
  87                             bp->pos == EQNPOS_SUBSUP) {
  88                                 p->flags |= TERMP_NOSPACE;
  89                                 term_word(p, "^");
  90                                 p->flags |= TERMP_NOSPACE;
  91                                 child = child->next;
  92                                 if (child != NULL)
  93                                         eqn_box(p, child);
  94                         }
  95                 }
  96         } else {
  97                 child = bp->first;
  98                 if (bp->type == EQN_MATRIX &&
  99                     child != NULL && child->type == EQN_LIST)
 100                         child = child->first;
 101                 while (child != NULL) {
 102                         eqn_box(p,
 103                             bp->type == EQN_PILE &&
 104                             child->type == EQN_LIST &&
 105                             child->args == 1 ?
 106                             child->first : child);
 107                         child = child->next;
 108                 }
 109         }
 110
 111         if (bp->font != EQNFONT_NONE)
 112                 term_fontpop(p);
 113         if (bp->type == EQN_LIST ||
 114             (bp->type == EQN_PILE && (bp->prev || bp->next)) ||
 115             (bp->parent != NULL && bp->parent->pos == EQNPOS_SQRT)) {
 116                 p->flags |= TERMP_NOSPACE;
 117                 term_word(p, bp->right != NULL ? bp->right : ")");
 118                 if (bp->parent->type == EQN_SUBEXPR && bp->next != NULL)
 119                         p->flags |= TERMP_NOSPACE;
 120         }
 121
 122         if (bp->top != NULL) {
 123                 p->flags |= TERMP_NOSPACE;
 124                 term_word(p, bp->top);
 125         }
 126         if (bp->bottom != NULL) {
 127                 p->flags |= TERMP_NOSPACE;
 128                 term_word(p, "_");
 129         }
 130 }