diff options
Diffstat (limited to 'Build/source/texk/psutils/paper-size.c')
-rw-r--r-- | Build/source/texk/psutils/paper-size.c | 82 |
1 files changed, 0 insertions, 82 deletions
diff --git a/Build/source/texk/psutils/paper-size.c b/Build/source/texk/psutils/paper-size.c deleted file mode 100644 index 0781d2394ad..00000000000 --- a/Build/source/texk/psutils/paper-size.c +++ /dev/null @@ -1,82 +0,0 @@ -/* 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 <http://www.gnu.org/licenses/>. */ - -#include <config.h> -#include <psutil.h> -#include <paper.h> - -#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; -} |