1/*	$NetBSD$	*/
2
3// -*- C++ -*-
4/* Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc.
5     Written by James Clark (jjc@jclark.com)
6
7This file is part of groff.
8
9groff is free software; you can redistribute it and/or modify it under
10the terms of the GNU General Public License as published by the Free
11Software Foundation; either version 2, or (at your option) any later
12version.
13
14groff is distributed in the hope that it will be useful, but WITHOUT ANY
15WARRANTY; without even the implied warranty of MERCHANTABILITY or
16FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
17for more details.
18
19You should have received a copy of the GNU General Public License along
20with groff; see the file COPYING.  If not, write to the Free Software
21Foundation, 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/*
36For 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
42define cancel 'special Cl'
43.EN
44*/
45
46
47class special_box : public pointer_box {
48  char *macro_name;
49public:
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
59box *make_special_box(char *s, box *p)
60{
61  return new special_box(s, p);
62}
63
64special_box::special_box(char *s, box *pp) : pointer_box(pp), macro_name(s)
65{
66}
67
68special_box::~special_box()
69{
70  a_delete macro_name;
71}
72
73int 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
97void special_box::compute_subscript_kern()
98{
99  // Already computed in compute_metrics(), so do nothing.
100}
101
102void special_box::compute_skew()
103{
104  // Already computed in compute_metrics(), so do nothing.
105}
106
107void special_box::output()
108{
109  printf("\\*[" STRING_FORMAT "]", uid);
110}
111
112void special_box::debug_print()
113{
114  fprintf(stderr, "special %s { ", macro_name);
115  p->debug_print();
116  fprintf(stderr, " }");
117}
118