1 files changed, 70 insertions, 0 deletions
diff --git a/src/cmd/eqn/size.c b/src/cmd/eqn/size.c
new file mode 100644
index 00000000..59bf3f20
--- /dev/null
+++ b/src/cmd/eqn/size.c
@@ -0,0 +1,70 @@
+#include "e.h"
+#include <ctype.h>
+
+void setsize(char *p)	/* set size as found in p */
+{
+	nszstack++;
+	szstack[nszstack] = 0;		/* assume relative */
+	if (*p == '+') {
+		ps += atoi(p+1);
+		if (szstack[nszstack-1] != 0)	/* propagate absolute size */
+			szstack[nszstack] = ps;
+	} else if (*p == '-') {
+		ps -= atoi(p+1);
+		if (szstack[nszstack-1] != 0)
+			szstack[nszstack] = ps;
+	} else if (isdigit(*p)) {
+		if (szstack[nszstack-1] == 0)
+			printf(".nr %d \\n(.s\n", 99-nszstack);
+		else
+			printf(".nr %d %d\n", 99-nszstack, ps);
+		szstack[nszstack] = ps = atoi(p);
+	} else {
+		ERROR "illegal size %s ignored", p WARNING;
+	}
+	dprintf(".\tsetsize %s; ps = %d\n", p, ps);
+}
+
+void size(int p1, int p2)
+{
+		/* old size in p1, new in ps */
+	yyval = p2;
+	dprintf(".\tS%d <- \\s%d %d \\s%d; b=%g, h=%g\n", 
+		yyval, ps, p2, p1, ebase[yyval], eht[yyval]);
+	if (szstack[nszstack] != 0) {
+		printf(".ds %d %s\\*(%d\\s\\n(%d\n", yyval, ABSPS(ps), p2, 99-nszstack);
+	} else
+		printf(".ds %d %s\\*(%d%s\n", yyval, DPS(p1,ps), p2, DPS(ps,p1));
+	nszstack--;
+	ps = p1;
+}
+
+void globsize(void)
+{
+	char temp[20];
+
+	getstr(temp, sizeof(temp));
+	if (temp[0] == '+') {
+		gsize += atoi(temp+1);
+		if (szstack[0] != 0)
+			szstack[0] = gsize;
+	} else if (temp[0] == '-') {
+		gsize -= atoi(temp+1);
+		if (szstack[0] != 0)
+			szstack[0] = gsize;
+	} else  if (isdigit(temp[0])) {
+		gsize = atoi(temp);
+		szstack[0] = gsize;
+		printf(".nr 99 \\n(.s\n");
+	} else {
+		ERROR "illegal gsize %s ignored", temp WARNING;
+	}
+	yyval = eqnreg = 0;
+	ps = gsize;
+	if (gsize < 12 && !dps_set)		/* sub and sup size change */
+		deltaps = gsize / 3;
+	else if (gsize < 20)
+		deltaps = gsize / 4;
+	else
+		deltaps = gsize / 5;
+}