1 files changed, 107 insertions, 0 deletions
diff --git a/eqn/size.c b/eqn/size.c
new file mode 100644
index 0000000000000..c8fe71b2da968
--- /dev/null
+++ b/eqn/size.c
@@ -0,0 +1,107 @@
+/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
+/*	  All Rights Reserved  	*/
+
+
+/*
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved. The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */
+     
+/*
+ * Copyright (c) 1983, 1984 1985, 1986, 1987, 1988, Sun Microsystems, Inc.
+ * All Rights Reserved.
+ */
+  
+/*	from OpenSolaris "size.c	1.3	05/06/02 SMI"	 SVr4.0 1.1		*/
+
+/*
+ * Portions Copyright (c) 2005 Gunnar Ritter, Freiburg i. Br., Germany
+ *
+ * Sccsid @(#)size.c	1.5 (gritter) 10/19/06
+ */
+
+/*
+ * Changes Copyright (c) 2014 Carsten Kunze (carsten.kunze at arcor.de)
+ */
+
+# include "e.h"
+# include <stdlib.h>
+#include "y.tab.h"
+
+extern YYSTYPE yyval;
+
+void
+setsize(char *p)	/* set size as found in p */
+{
+	if (*p == '+')
+		ps += atof(p+1);
+	else if (*p == '-')
+		ps -= atof(p+1);
+	else
+		ps = atof(p);
+	if(dbg)printf(".\tsetsize %s; ps = %g\n", p, ps);
+}
+
+void
+size(float p1, int p2) {
+		/* old size in p1, new in ps */
+	float effps, effp1;
+
+	yyval.token = p2;
+#ifndef	NEQN
+	if(dbg)printf(".\tb:sb: S%d <- \\s%s S%d \\s%s; b=%g, h=%g\n", 
+		yyval.token, tsize(ps), p2, tsize(p1), ebase[yyval.token], eht[yyval.token]);
+#else	/* NEQN */
+	if(dbg)printf(".\tb:sb: S%d <- \\s%s S%d \\s%s; b=%d, h=%d\n", 
+		yyval.token, tsize(ps), p2, tsize(p1), ebase[yyval.token], eht[yyval.token]);
+#endif	/* NEQN */
+	effps = EFFPS(ps);
+	effp1 = EFFPS(p1);
+	printf(".ds %d \\s%s\\*(%d\\s%s\n", 
+		yyval.token, tsize(effps), p2, tsize(effp1));
+	ps = p1;
+}
+
+void
+globsize(void) {
+	char temp[20];
+
+	getstr(temp, 20);
+	if (temp[0] == '+')
+		gsize += atof(temp+1);
+	else if (temp[0] == '-')
+		gsize -= atof(temp+1);
+	else
+		gsize = atof(temp);
+	yyval.token = eqnreg = 0;
+	setps(gsize);
+	ps = gsize;
+	if (gsize >= 12)	/* sub and sup size change */
+		deltaps = gsize / 4;
+	else
+		deltaps = gsize / 3;
+	if (gsize == (int)gsize)
+		deltaps = (int)deltaps;
+}
+
+char *
+tsize(float s)
+{
+	static char	b[5][20];
+	static int	t;
+	int	i;
+
+	t = (t + 1) % 5;
+	if ((i = s) == s) {
+		if (i < 40)
+			snprintf(b[t], sizeof(b[t]), "%d", i);
+		else if (i < 100)
+			snprintf(b[t], sizeof(b[t]), "(%d", i);
+		else
+			snprintf(b[t], sizeof(b[t]), "[%d]", i);
+	} else {
+		snprintf(b[t], sizeof(b[t]), "[%g]", s);
+	}
+	return b[t];
+}