/* paper-size.c: TeX Live specific definition of paper_size()
Copyright 2014 Peter Breitenlohner.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public License
along with this library; if not, see . */
#include
#include
#include
#define CONFIG_NAME "paper.cfg"
#define MAX_PAPER 16 /* sufficient for "halfexecutive" */
static char default_paper[MAX_PAPER];
static void
do_init (void)
{
static int inited = 0;
int ch, i = 0;
char *fqpn;
FILE *fp = NULL;
if (inited)
return;
paperinit ();
fqpn = kpse_find_file (CONFIG_NAME, kpse_program_text_format, false);
if (fqpn)
fp = fopen (fqpn, "r");
if (!fp)
die ("can't open config file %s", CONFIG_NAME);
/* In order to specify PAPER as default papersize the config file must
contain a line 'p PAPER'. */
ch = fgetc (fp);
/* skip comment lines */
while (ch > 0 && ch != 'p') {
while (ch > 0 && ch != '\n' && ch != '\r')
ch = fgetc (fp);
while (ch == '\n' || ch == '\r')
ch = fgetc (fp);
}
/* read default papersize */
if (ch == 'p' && fgetc (fp) == ' ')
while (i < MAX_PAPER - 1 &&
(ch = fgetc (fp)) > 0 && ch != ' ' && ch != '\n' && ch != '\r')
default_paper[i++] = ch;
default_paper[i] = 0;
if (i == 0)
die ("can't read default papersize from file %s", fqpn);
fclose (fp);
free (fqpn);
inited = 1;
}
int
paper_size (const char *paper_name, double *width, double *height)
{
const struct paper *pi;
do_init ();
if (!(pi = paperinfo (paper_name ? paper_name : default_paper)))
return 0;
*width = paperpswidth (pi);
*height = paperpsheight (pi);
return 1;
}