2 /* Copyright (C) 1989-2018 Free Software Foundation, Inc.
3 Written by James Clark (jjc@jclark.com)
5 This file is part of groff.
7 groff is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 groff is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 #define STRING_FORMAT PREFIX "str%d"
25 #define SPECIAL_STRING "0s"
26 #define SPECIAL_WIDTH_REG "0w"
27 #define SPECIAL_HEIGHT_REG "0h"
28 #define SPECIAL_DEPTH_REG "0d"
29 #define SPECIAL_SUB_KERN_REG "0skern"
30 #define SPECIAL_SKEW_REG "0skew"
36 .ds 0s \Z'\\*[0s]'\v'\\n(0du'\D'l \\n(0wu -\\n(0hu-\\n(0du'\v'\\n(0hu'
39 define cancel 'special Cl'
44 class special_box : public pointer_box {
47 special_box(char *, box *);
49 int compute_metrics(int);
50 void compute_subscript_kern();
56 box *make_special_box(char *s, box *p)
58 return new special_box(s, p);
61 special_box::special_box(char *s, box *pp) : pointer_box(pp), macro_name(s)
65 special_box::~special_box()
70 int special_box::compute_metrics(int style)
72 int r = p->compute_metrics(style);
73 p->compute_subscript_kern();
75 printf(".ds " SPECIAL_STRING " \"");
78 printf(".nr " SPECIAL_WIDTH_REG " 0\\n[" WIDTH_FORMAT "]\n", p->uid);
79 printf(".nr " SPECIAL_HEIGHT_REG " \\n[" HEIGHT_FORMAT "]\n", p->uid);
80 printf(".nr " SPECIAL_DEPTH_REG " \\n[" DEPTH_FORMAT "]\n", p->uid);
81 printf(".nr " SPECIAL_SUB_KERN_REG " \\n[" SUB_KERN_FORMAT "]\n", p->uid);
82 printf(".nr " SPECIAL_SKEW_REG " 0\\n[" SKEW_FORMAT "]\n", p->uid);
83 printf(".%s\n", macro_name);
84 printf(".rn " SPECIAL_STRING " " STRING_FORMAT "\n", uid);
85 printf(".nr " WIDTH_FORMAT " 0\\n[" SPECIAL_WIDTH_REG "]\n", uid);
86 printf(".nr " HEIGHT_FORMAT " 0>?\\n[" SPECIAL_HEIGHT_REG "]\n", uid);
87 printf(".nr " DEPTH_FORMAT " 0>?\\n[" SPECIAL_DEPTH_REG "]\n", uid);
88 printf(".nr " SUB_KERN_FORMAT " 0>?\\n[" SPECIAL_SUB_KERN_REG "]\n", uid);
89 printf(".nr " SKEW_FORMAT " 0\\n[" SPECIAL_SKEW_REG "]\n", uid);
90 // User will have to change MARK_REG if appropriate.
94 void special_box::compute_subscript_kern()
96 // Already computed in compute_metrics(), so do nothing.
99 void special_box::compute_skew()
101 // Already computed in compute_metrics(), so do nothing.
104 void special_box::output()
106 if (output_format == troff)
107 printf("\\*[" STRING_FORMAT "]", uid);
108 else if (output_format == mathml)
109 printf("<merror>eqn specials cannot be expressed in MathML</merror>");
112 void special_box::debug_print()
114 fprintf(stderr, "special %s { ", macro_name);
116 fprintf(stderr, " }");