summaryrefslogtreecommitdiff
path: root/Build/source/texk/psutils/psutils-1.21/pstops.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/psutils/psutils-1.21/pstops.c')
-rw-r--r--Build/source/texk/psutils/psutils-1.21/pstops.c212
1 files changed, 212 insertions, 0 deletions
diff --git a/Build/source/texk/psutils/psutils-1.21/pstops.c b/Build/source/texk/psutils/psutils-1.21/pstops.c
new file mode 100644
index 00000000000..cb1f658c80a
--- /dev/null
+++ b/Build/source/texk/psutils/psutils-1.21/pstops.c
@@ -0,0 +1,212 @@
+/* pstops.c
+ * Rearrange pages in conforming PS file
+ *
+ * (c) Reuben Thomas 2012
+ * (c) Angus J. C. Duggan 1991-1997
+ * See file LICENSE for details.
+ */
+
+#include "config.h"
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+#include <string.h>
+#include <paper.h>
+
+#include "psutil.h"
+#include "psspec.h"
+
+const char *syntax = "[-q] [-b] [-wWIDTH] [-hHEIGHT] [-dLWIDTH] [-pPAPER] PAGESPECS [INFILE [OUTFILE]]\n";
+
+const char *argerr_message = "%page specification error:\n"
+ " pagespecs = [modulo:]spec\n"
+ " spec = [-]pageno[@scale][L|R|U|H|V][(xoff,yoff)][,spec|+spec]\n"
+ " modulo >= 1, 0 <= pageno < modulo\n";
+
+static int modulo = 1;
+static int pagesperspec = 1;
+
+static PageSpec *parsespecs(char *str)
+{
+ PageSpec *head, *tail;
+ unsigned long spec_count = 0;
+ long num = -1;
+
+ head = tail = newspec();
+ while (*str) {
+ if (isdigit(*str)) {
+ num = parseint(&str);
+ } else {
+ switch (*str++) {
+ case ':':
+ if (spec_count || head != tail || num < 1) argerror();
+ modulo = num;
+ num = -1;
+ break;
+ case '-':
+ tail->flags ^= REVERSED;
+ break;
+ case '@':
+ tail->scale *= parsedouble(&str);
+ tail->flags |= SCALE;
+ break;
+ case 'l': case 'L':
+ tail->rotate += 90;
+ tail->flags |= ROTATE;
+ break;
+ case 'r': case 'R':
+ tail->rotate -= 90;
+ tail->flags |= ROTATE;
+ break;
+ case 'u': case 'U':
+ tail->rotate += 180;
+ tail->flags |= ROTATE;
+ break;
+ case 'h': case 'H':
+ tail->flags ^= HFLIP;
+ break;
+ case 'v': case 'V':
+ tail->flags ^= VFLIP;
+ break;
+ case '(':
+ tail->xoff += parsedimen(&str);
+ if (*str++ != ',') argerror();
+ tail->yoff += parsedimen(&str);
+ if (*str++ != ')') argerror();
+ tail->flags |= OFFSET;
+ break;
+ case '+':
+ tail->flags |= ADD_NEXT;
+ case ',':
+ if (num < 0 || num >= modulo) argerror();
+ if ((tail->flags & ADD_NEXT) == 0)
+ pagesperspec++;
+ tail->pageno = num;
+ tail->next = newspec();
+ tail = tail->next;
+ num = -1;
+ break;
+ default:
+ argerror();
+ }
+ spec_count++;
+ }
+ }
+ if (num >= modulo)
+ argerror();
+ else if (num >= 0)
+ tail->pageno = num;
+ return (head);
+}
+
+int
+main(int argc, char *argv[])
+{
+ PageSpec *specs = NULL;
+ int nobinding = 0;
+ double draw = 0;
+ const struct paper *paper = NULL;
+ int opt;
+
+ SET_BINARY(stdin);
+ SET_BINARY(stdout);
+
+ set_paper_size(NULL);
+
+ verbose = 1;
+
+ program = *argv;
+
+ while((opt = getopt(argc, argv, "qd::bw:h:p:v0123456789")) != EOF) {
+ switch(opt) {
+ case 'q': /* quiet */
+ verbose = 0;
+ break;
+ case 'd': /* draw borders */
+ if(optarg)
+ draw = singledimen(optarg);
+ else
+ draw = 1;
+ break;
+ case 'b': /* no bind operator */
+ nobinding = 1;
+ break;
+ case 'w': /* page width */
+ width = singledimen(optarg);
+ break;
+ case 'h': /* page height */
+ height = singledimen(optarg);
+ break;
+ case 'p': /* paper type */
+ if ( (paper = paperinfo(optarg)) != NULL ) {
+ width = paperpswidth(paper);
+ height = paperpsheight(paper);
+ } else
+ message(FATAL, "paper size '%s' not recognised\n", optarg);
+ break;
+ case 'v': /* version */
+ usage();
+ case '0':
+ case '1':
+ case '2':
+ case '3':
+ case '4':
+ case '5':
+ case '6':
+ case '7':
+ case '8':
+ case '9':
+ if (specs == NULL) {
+ char *spec_txt = malloc((optarg ? strlen(optarg) : 0) + 3);
+ if(!spec_txt) message(FATAL, "no memory for spec allocation\n");
+ spec_txt[0] = '-';
+ spec_txt[1] = opt;
+ spec_txt[2] = 0;
+ if (optarg) strcat(spec_txt, optarg);
+ specs = parsespecs(spec_txt);
+ free(spec_txt);
+ } else {
+ usage();
+ }
+ break;
+ default:
+ usage();
+ break;
+ }
+ }
+
+ if (specs == NULL) {
+ if(optind == argc) usage();
+ specs = parsespecs(argv[optind]);
+ optind++;
+ }
+
+ 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)
+ message(FATAL, "can't open input file %s\n", argv[optind]);
+ optind++;
+ }
+
+ if (optind != argc) {
+ /* User specified an output file */
+ if ((outfile = fopen(argv[optind], "wb")) == NULL)
+ message(FATAL, "can't open output file %s\n", argv[optind]);
+ optind++;
+ }
+
+ if (optind != argc || specs == NULL) usage();
+
+ if ((infile=seekable(infile))==NULL)
+ message(FATAL, "can't seek input\n");
+
+ pstops(modulo, pagesperspec, nobinding, specs, draw);
+
+ return 0;
+}