1 /* $NetBSD: special.cpp,v 1.1.1.1 2016/01/13 18:41:49 christos Exp $ */
2
3 // -*- C++ -*-
4 /* Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc.
5 Written by James Clark (jjc@jclark.com)
6
7 This file is part of groff.
8
9 groff is free software; you can redistribute it and/or modify it under
10 the terms of the GNU General Public License as published by the Free
11 Software Foundation; either version 2, or (at your option) any later
12 version.
13
14 groff is distributed in the hope that it will be useful, but WITHOUT ANY
15 WARRANTY; without even the implied warranty of MERCHANTABILITY or
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 for more details.
18
19 You should have received a copy of the GNU General Public License along
20 with groff; see the file COPYING. If not, write to the Free Software
21 Foundation, 51 Franklin St - Fifth Floor, Boston, MA 02110-1301, USA. */
22
23 #include "eqn.h"
24 #include "pbox.h"
25
26 #define STRING_FORMAT PREFIX "str%d"
27
28 #define SPECIAL_STRING "0s"
29 #define SPECIAL_WIDTH_REG "0w"
30 #define SPECIAL_HEIGHT_REG "0h"
31 #define SPECIAL_DEPTH_REG "0d"
32 #define SPECIAL_SUB_KERN_REG "0skern"
33 #define SPECIAL_SKEW_REG "0skew"
34
35 /*
36 For example:
37
38 .de Cl
39 .ds 0s \Z'\\*[0s]'\v'\\n(0du'\D'l \\n(0wu -\\n(0hu-\\n(0du'\v'\\n(0hu'
40 ..
41 .EQ
42 define cancel 'special Cl'
43 .EN
44 */
45
46
47 class special_box : public pointer_box {
48 char *macro_name;
49 public:
50 special_box(char *, box *);
51 ~special_box();
52 int compute_metrics(int);
53 void compute_subscript_kern();
54 void compute_skew();
55 void output();
56 void debug_print();
57 };
58
make_special_box(char * s,box * p)59 box *make_special_box(char *s, box *p)
60 {
61 return new special_box(s, p);
62 }
63
special_box(char * s,box * pp)64 special_box::special_box(char *s, box *pp) : pointer_box(pp), macro_name(s)
65 {
66 }
67
~special_box()68 special_box::~special_box()
69 {
70 a_delete macro_name;
71 }
72
compute_metrics(int style)73 int special_box::compute_metrics(int style)
74 {
75 int r = p->compute_metrics(style);
76 p->compute_subscript_kern();
77 p->compute_skew();
78 printf(".ds " SPECIAL_STRING " \"");
79 p->output();
80 printf("\n");
81 printf(".nr " SPECIAL_WIDTH_REG " 0\\n[" WIDTH_FORMAT "]\n", p->uid);
82 printf(".nr " SPECIAL_HEIGHT_REG " \\n[" HEIGHT_FORMAT "]\n", p->uid);
83 printf(".nr " SPECIAL_DEPTH_REG " \\n[" DEPTH_FORMAT "]\n", p->uid);
84 printf(".nr " SPECIAL_SUB_KERN_REG " \\n[" SUB_KERN_FORMAT "]\n", p->uid);
85 printf(".nr " SPECIAL_SKEW_REG " 0\\n[" SKEW_FORMAT "]\n", p->uid);
86 printf(".%s\n", macro_name);
87 printf(".rn " SPECIAL_STRING " " STRING_FORMAT "\n", uid);
88 printf(".nr " WIDTH_FORMAT " 0\\n[" SPECIAL_WIDTH_REG "]\n", uid);
89 printf(".nr " HEIGHT_FORMAT " 0>?\\n[" SPECIAL_HEIGHT_REG "]\n", uid);
90 printf(".nr " DEPTH_FORMAT " 0>?\\n[" SPECIAL_DEPTH_REG "]\n", uid);
91 printf(".nr " SUB_KERN_FORMAT " 0>?\\n[" SPECIAL_SUB_KERN_REG "]\n", uid);
92 printf(".nr " SKEW_FORMAT " 0\\n[" SPECIAL_SKEW_REG "]\n", uid);
93 // User will have to change MARK_REG if appropriate.
94 return r;
95 }
96
compute_subscript_kern()97 void special_box::compute_subscript_kern()
98 {
99 // Already computed in compute_metrics(), so do nothing.
100 }
101
compute_skew()102 void special_box::compute_skew()
103 {
104 // Already computed in compute_metrics(), so do nothing.
105 }
106
output()107 void special_box::output()
108 {
109 printf("\\*[" STRING_FORMAT "]", uid);
110 }
111
debug_print()112 void special_box::debug_print()
113 {
114 fprintf(stderr, "special %s { ", macro_name);
115 p->debug_print();
116 fprintf(stderr, " }");
117 }
118