#include "eqn.h"
#include "pbox.h"
#define STRING_FORMAT PREFIX "str%d"
#define SPECIAL_STRING "0s"
#define SPECIAL_WIDTH_REG "0w"
#define SPECIAL_HEIGHT_REG "0h"
#define SPECIAL_DEPTH_REG "0d"
#define SPECIAL_SUB_KERN_REG "0skern"
#define SPECIAL_SKEW_REG "0skew"
class special_box : public pointer_box {
char *macro_name;
public:
special_box(char *, box *);
~special_box();
int compute_metrics(int);
void compute_subscript_kern();
void compute_skew();
void output();
void debug_print();
};
box *make_special_box(char *s, box *p)
{
return new special_box(s, p);
}
special_box::special_box(char *s, box *pp) :macro_name(s), pointer_box(pp)
{
}
special_box::~special_box()
{
a_delete macro_name;
}
int special_box::compute_metrics(int style)
{
int r = p->compute_metrics(style);
p->compute_subscript_kern();
p->compute_skew();
printf(".ds " SPECIAL_STRING " \"");
p->output();
printf("\n");
printf(".nr " SPECIAL_WIDTH_REG " 0\\n[" WIDTH_FORMAT "]\n", p->uid);
printf(".nr " SPECIAL_HEIGHT_REG " \\n[" HEIGHT_FORMAT "]\n", p->uid);
printf(".nr " SPECIAL_DEPTH_REG " \\n[" DEPTH_FORMAT "]\n", p->uid);
printf(".nr " SPECIAL_SUB_KERN_REG " \\n[" SUB_KERN_FORMAT "]\n", p->uid);
printf(".nr " SPECIAL_SKEW_REG " 0\\n[" SKEW_FORMAT "]\n", p->uid);
printf(".%s\n", macro_name);
printf(".rn " SPECIAL_STRING " " STRING_FORMAT "\n", uid);
printf(".nr " WIDTH_FORMAT " 0\\n[" SPECIAL_WIDTH_REG "]\n", uid);
printf(".nr " HEIGHT_FORMAT " 0>?\\n[" SPECIAL_HEIGHT_REG "]\n", uid);
printf(".nr " DEPTH_FORMAT " 0>?\\n[" SPECIAL_DEPTH_REG "]\n", uid);
printf(".nr " SUB_KERN_FORMAT " 0>?\\n[" SPECIAL_SUB_KERN_REG "]\n", uid);
printf(".nr " SKEW_FORMAT " 0\\n[" SPECIAL_SKEW_REG "]\n", uid);
return r;
}
void special_box::compute_subscript_kern()
{
}
void special_box::compute_skew()
{
}
void special_box::output()
{
printf("\\*[" STRING_FORMAT "]", uid);
}
void special_box::debug_print()
{
fprintf(stderr, "special %s { ", macro_name);
p->debug_print();
fprintf(stderr, " }");
}