[mgp-users-jp 00365] real numbers in font size

[asami@freebsd.org (Satoshi Asami)]

$B$3$s$K$A$O!"@u8+$G$9!#!J%a!<%j%s%0%j%9%H$K$OF~$C$F$$$^$;$s!#!K(B

$B$:!<$C$H0JA0$K$b$*Aw$j$7$?%U%)%s%H%5%$%:$r>.?t$G;XDj$G$-$k%Q%C%A$G$9$,!"(B
1.04a$BBP1~$K$7$^$7$?!#%i%C%W%H%C%W$J$s$+$N>.$5$$2hLL$K$$$m$$$m5M$a9~$_(B
$B$?$$>l9g$K$O7k9=JXMx$G$9$N$G!"$48!F$2<$5$$!#(B

===
--- ./print.c.org	Sat Sep  5 19:58:02 1998
+++ ./print.c	Tue Dec  8 01:36:21 1998
@@ -487,7 +487,7 @@
 	struct fontmap *font;
 	switch(cp->ct_op) {
 	case CTL_SIZE:
-		char_size = window_height * cp->cti_value / 100;
+		char_size = window_height * cp->ctf_value / 100;
 		fprintf(fp, "%d setcharsize\n", char_size);
 		break;
 
--- ./draw.c.org	Fri Sep  4 08:06:52 1998
+++ ./draw.c	Tue Dec  8 01:33:26 1998
@@ -394,7 +394,7 @@
 
 	switch(cp->ct_op) {
 	case CTL_SIZE:
-		char_size = state->height * cp->cti_value / 100;
+		char_size = state->height * cp->ctf_value / 100;
 #ifdef FREETYPE
 		tfc_setsize(char_size);
 #endif
--- ./grammar.y.org	Fri Sep  4 08:06:56 1998
+++ ./grammar.y	Tue Dec  8 01:35:48 1998
@@ -134,6 +134,21 @@
 }
 
 static struct ctrl *
+gen_double_int(op, v)
+	int op;
+	int v;
+{
+	struct ctrl *ct;
+
+	if (!(ct = ctlalloc1(op))) {
+		yyerror("cannot allocate double node");
+		return ct;
+	}
+	ct->ctf_value = (double)v;
+	return ct;
+}
+
+static struct ctrl *
 gen_double(op, v)
 	int op;
 	double v;
@@ -141,7 +156,7 @@
 	struct ctrl *ct;
 
 	if (!(ct = ctlalloc1(op))) {
-		yyerror("cannot allocate integer node");
+		yyerror("cannot allocate double node");
 		return ct;
 	}
 	ct->ctf_value = v;
@@ -514,7 +529,8 @@
 	| KW_AGAIN	{ $$ = gen_void(CTL_AGAIN); }
 	| KW_MARK	{ $$ = gen_void(CTL_MARK); }
 	| KW_PAGE	{ $$ = gen_void(CTL_PAGE); }
-	| KW_SIZE NUM	{ $$ = gen_int(CTL_SIZE, $2); }
+	| KW_SIZE NUM	{ $$ = gen_double_int(CTL_SIZE, $2); }
+	| KW_SIZE DOUBLE	{ $$ = gen_double(CTL_SIZE, $2); }
 	| KW_HGAP NUM	{ $$ = gen_int(CTL_HGAP, $2); }
 	| KW_VGAP NUM	{ $$ = gen_int(CTL_VGAP, $2); }
 	| KW_GAP NUM	{ $$ = gen_int(CTL_GAP, $2); }
===

$BIbF0>.?tE@7?$N%U%#!<%k%I$O$9$G$KDI2C$5$l$F$$$k$N$G!"$@$$$V4JC1$K$J$j$^(B
$B$7$?!#(B"size" $B$K@0?t$,Mh$?>l9g$K6/0z$KIbF0>.?tE@$K$9$k$?$a$K?7$7$$4X?t(B
$B$rDI2C$7$F$$$^$9!#(B

$B$H$3$m$G!"(B1.04a$B!J;d$N%Q%C%A$J$7$G$b!K$r;H$C$F$$$k$H(B

===
tfc_setfont: font name not given, fail
===

$B$H$$$&%(%i!<$,BgNL$K=P$k$s$G$9$,!"$I$&$7$F$G$7$g$&!#I=<($O$A$c$s$H$G$-(B
$B$F$$$k$h$&$G$9!#(B

===
%default 1 size 5, xfont "utopia"
%page
foo
===

$B$J$s$F$$$&%U%!%$%k$G$b=P$^$9!#(B~/.mgprc$B$O$"$j$^$;$s!#!J$A$g$C$HGA$$$F$_(B
$B$?$H$3$m$G$O(B "tfont" $B;XDj$,$J$1$l$P8F$P$l$J$$4X?t$N$O$:$J$s$G$9$,(B...$B!#!K(B

X$B$N%P!<%8%g%s$O(BXFree86-3.3.2 + FreeBSD$B$N(B ports$B$KF~$C$F$$$k(BXtt patch
$B!J$b$7$+$7$F$3$l$,$$$1$J$$!)!K$G$9!#(B

$B$"$5$_(B