From da1dad220867bd8ba8b9868aedcaa0b584e9659d Mon Sep 17 00:00:00 2001
From: Akira Kakuto <kakuto@fuk.kindai.ac.jp>
Date: Tue, 23 Feb 2016 04:07:35 +0000
Subject: texk/psutils: New convention

git-svn-id: svn://tug.org/texlive/trunk@39834 c570f23f-e606-0410-a88d-b1316a301751
---
 Build/source/texk/psutils/psutils-1.23/psresize.c | 158 ----------------------
 1 file changed, 158 deletions(-)
 delete mode 100644 Build/source/texk/psutils/psutils-1.23/psresize.c

(limited to 'Build/source/texk/psutils/psutils-1.23/psresize.c')

diff --git a/Build/source/texk/psutils/psutils-1.23/psresize.c b/Build/source/texk/psutils/psutils-1.23/psresize.c
deleted file mode 100644
index b52d77e88a8..00000000000
--- a/Build/source/texk/psutils/psutils-1.23/psresize.c
+++ /dev/null
@@ -1,158 +0,0 @@
-/* psresize.c
- * Alter page size of document
- *
- * (c) Reuben Thomas 2012-2014
- * (c) Angus J. C. Duggan 1991-1997
- * See file LICENSE for details.
- */
-
-#include "config.h"
-
-#include <unistd.h>
-#include "progname.h"
-#include "binary-io.h"
-
-#include "psutil.h"
-#include "psspec.h"
-
-const char *syntax = "[-q] [-wWIDTH] [-hHEIGHT] [-pPAPER] [-WWIDTH] [-HHEIGHT] [-PPAPER] [INFILE [OUTFILE]]\n";
-
-const char *argerr_message = "bad dimension\n";
-
-int
-main(int argc, char *argv[])
-{
-   double scale, rscale;			/* page scale */
-   double waste, rwaste;			/* amount wasted */
-   double vshift, hshift;			/* page centring shifts */
-   int rotate;
-   double inwidth = -1;
-   double inheight = -1;
-   off_t sizeheaders[20];			/* headers to remove */
-   PageSpec *specs;
-   int opt;
-
-   set_program_name (argv[0]);
-
-   if (!paper_size(NULL, &width, &height))
-     die("could not get default paper size");
-
-   vshift = hshift = 0;
-   rotate = 0;
-
-   verbose = 1;
-
-   while((opt = getopt(argc, argv,
-                       "qw:h:p:W:H:P:")) != EOF) {
-     switch(opt) {
-
-     case 'q':	/* quiet */
-       verbose = 0;
-       break;
-     case 'w':	/* page width */
-       width = singledimen(optarg);
-       break;
-     case 'h':	/* page height */
-       height = singledimen(optarg);
-       break;
-     case 'p':	/* paper type */
-       if (!paper_size(optarg, &width, &height))
-         die("paper size '%s' not recognised", optarg);
-       break;
-     case 'W':	/* input page width */
-       inwidth = singledimen(optarg);
-       break;
-     case 'H':	/* input page height */
-       inheight = singledimen(optarg);
-       break;
-     case 'P':	/* input paper type */
-       if (!paper_size(optarg, &inwidth, &inheight))
-         die("paper size '%s' not recognised", optarg);
-       break;
-     case 'v':	/* version */
-     default:
-       usage();
-     }
-   }
-
-   infile = stdin;
-   outfile = stdout;
-
-   /* Be defensive */
-   if((argc - optind) < 0 || (argc - optind) > 2) usage();
-
-   if (optind != argc) {
-     /* User specified an input file */
-     if ((infile = fopen(argv[optind], "rb")) == NULL)
-       die("can't open input file %s", argv[optind]);
-     optind++;
-   }
-
-   if (optind != argc) {
-     /* User specified an output file */
-     if ((outfile = fopen(argv[optind], "wb")) == NULL)
-       die("can't open output file %s", argv[optind]);
-     optind++;
-   }
-
-   if (optind != argc) usage();
-
-   if (infile == stdin && set_binary_mode(fileno(stdin), O_BINARY) < 0)
-      die("can't reset stdin to binary mode");
-   if (outfile == stdout && set_binary_mode(fileno(stdout), O_BINARY) < 0)
-      die("can't reset stdout to binary mode");
-
-   if ((infile=seekable(infile))==NULL)
-      die("can't seek input");
-
-   if (width <= 0 || height <= 0)
-      die("output page width and height must be set");
-
-   scanpages(sizeheaders);
-
-   if (inwidth <= 0 || inheight <= 0)
-      die("input page width and height must be set");
-
-   /* try normal orientation first */
-   scale = MIN(width/inwidth, height/inheight);
-   waste = (width-scale*inwidth)*(width-scale*inwidth) +
-      (height-scale*inheight)*(height-scale*inheight);
-   hshift = (width - inwidth*scale)/2;
-   vshift = (height - inheight*scale)/2;
-
-   /* try rotated orientation */
-   rscale = MIN(height/inwidth, width/inheight);
-   rwaste = (height-scale*inwidth)*(height-scale*inwidth) +
-      (width-scale*inheight)*(width-scale*inheight);
-   if (rwaste < waste) {
-      double tmp = width;
-      scale = rscale;
-      hshift = (width + inheight*scale)/2;
-      vshift = (height - inwidth*scale)/2;
-      rotate = 1;
-      width = height;
-      height = tmp;
-   }
-
-   width /= scale;
-   height /= scale;
-
-   /* now construct specification list and run page rearrangement procedure */
-   specs = newspec();
-
-   if (rotate) {
-      specs->rotate = 90;
-      specs->flags |= ROTATE;
-   }
-   specs->pageno = 0;
-   specs->scale = scale;
-   specs->flags |= SCALE;
-   specs->xoff = hshift;
-   specs->yoff = vshift;
-   specs->flags |= OFFSET;
-      
-   pstops_write(1, 1, 0, specs, 0.0, sizeheaders); /* do page rearrangement */
-
-   return 0;
-}
-
-- 
cgit v1.2.3