From: kristaps@mdocml.bsd.lv
To: source@mdocml.bsd.lv
Subject: mdocml: Add in -Opaper=xxx support for -Tps postscript.
Date: Tue, 29 Jun 2010 10:53:14 -0400 (EDT) [thread overview]
Message-ID: <201006291453.o5TErEHu003917@krisdoz.my.domain> (raw)
Log Message:
-----------
Add in -Opaper=xxx support for -Tps postscript. This doesn't have any
functional changes beyond the getsubopt() parse in term_ps.c. If you
want to test this (it only does -Opaper=a4 and -Opaper=letter; adding
more is trivial), make sure you specify (e.g.) -sPAPERSIZE=a4 to gs(1).
Modified Files:
--------------
mdocml:
main.c
main.h
term_ps.c
Revision Data
-------------
Index: term_ps.c
===================================================================
RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/term_ps.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -Lterm_ps.c -Lterm_ps.c -u -p -r1.16 -r1.17
--- term_ps.c
+++ term_ps.c
@@ -22,6 +22,7 @@
#include <assert.h>
#include <stdarg.h>
+#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
@@ -373,14 +374,17 @@ static void ps_setfont(struct termp *
void *
-ps_alloc(void)
+ps_alloc(char *outopts)
{
struct termp *p;
size_t pagex, pagey, margin;
+ const char *toks[2];
+ char *v;
if (NULL == (p = term_alloc(TERMENC_ASCII)))
return(NULL);
+ /* Default is USA letter. */
pagex = 612;
pagey = 792;
margin = 72;
@@ -392,6 +396,24 @@ ps_alloc(void)
p->advance = ps_advance;
p->endline = ps_endline;
p->width = ps_width;
+
+ toks[0] = "paper";
+ toks[1] = NULL;
+
+ while (outopts && *outopts)
+ switch (getsubopt(&outopts, UNCONST(toks), &v)) {
+ case (0):
+ if (0 == strcasecmp(v, "a4")) {
+ pagex = 595;
+ pagey = 842;
+ } else if (0 == strcasecmp(v, "letter")) {
+ pagex = 612;
+ pagey = 792;
+ }
+ break;
+ default:
+ break;
+ }
assert(margin * 2 < pagex);
assert(margin * 2 < pagey);
Index: main.h
===================================================================
RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/main.h,v
retrieving revision 1.7
retrieving revision 1.8
diff -Lmain.h -Lmain.h -u -p -r1.7 -r1.8
--- main.h
+++ main.h
@@ -44,7 +44,7 @@ void tree_man(void *, const struct ma
void *ascii_alloc(char *);
void ascii_free(void *);
-void *ps_alloc(void);
+void *ps_alloc(char *);
void ps_free(void *);
void terminal_mdoc(void *, const struct mdoc *);
Index: main.c
===================================================================
RCS file: /usr/vhosts/mdocml.bsd.lv/cvs/mdocml/main.c,v
retrieving revision 1.92
retrieving revision 1.93
diff -Lmain.c -Lmain.c -u -p -r1.92 -r1.93
--- main.c
+++ main.c
@@ -599,7 +599,7 @@ fdesc(struct curparse *curp)
curp->outfree = ascii_free;
break;
case (OUTT_PS):
- curp->outdata = ps_alloc();
+ curp->outdata = ps_alloc(curp->outopts);
curp->outfree = ps_free;
break;
default:
--
To unsubscribe send an email to source+unsubscribe@mdocml.bsd.lv
next reply other threads:[~2010-06-29 14:53 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-06-29 14:53 kristaps [this message]
2010-06-29 16:34 ` Joerg Sonnenberger
2010-06-29 19:12 ` Kristaps Dzonsons
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=201006291453.o5TErEHu003917@krisdoz.my.domain \
--to=kristaps@mdocml.bsd.lv \
--cc=source@mdocml.bsd.lv \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).