shithub: neatroff

Info  •  Files  •  Log  •  Branches

ren: allow scale indicators for arguments of .ps

Some old macro packages use ".ps 10p" instead of ".ps 10".

--- a/ren.c

+++ b/ren.c

@@ -493,9 +493,10 @@

 static void ren_ps(char *s)

 {

-	int ps = !s || !*s || !strcmp("0", s) ? n_s0 : eval_re(s, n_s, 0);

+	int ps = !s || !*s || !strcmp("0", s) ?

+		n_s0 * SC_PT : eval_re(s, n_s * SC_PT, 'p');

 	n_s0 = n_s;

-	n_s = MAX(1, ps);

+	n_s = MAX(1, (ps + SC_PT / 2) / SC_PT);

 }

 void tr_ps(char **args)