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