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