diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
commit | 487ca4806cc046076293cf6cc5fbba0db282bac7 (patch) | |
tree | 847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/dvipsk/squeeze.c | |
parent | a3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff) |
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/dvipsk/squeeze.c')
-rw-r--r-- | Build/source/texk/dvipsk/squeeze.c | 159 |
1 files changed, 159 insertions, 0 deletions
diff --git a/Build/source/texk/dvipsk/squeeze.c b/Build/source/texk/dvipsk/squeeze.c new file mode 100644 index 00000000000..7395f604eba --- /dev/null +++ b/Build/source/texk/dvipsk/squeeze.c @@ -0,0 +1,159 @@ +/* + * This software is Copyright 1988 by Radical Eye Software. + */ +/* + * This routine squeezes a PostScript file down to its + * minimum. We parse and then output it. + */ + +#ifdef KPATHSEA +#include <kpathsea/config.h> +#include <kpathsea/c-fopen.h> +#include <c-auto.h> +#else +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include "dvips.h" +#endif +#ifdef fopen +#undef fopen +#endif + +#define LINELENGTH (72) +#define BUFLENGTH (1000) +#ifdef putchar +#undef putchar +#endif +#define putchar(a) (void)putc(a, out) ; +FILE *in, *out ; +static int linepos = 0 ; +static int lastspecial = 1 ; +/* + * This next routine writes out a `special' character. In this case, + * we simply put it out, since any special character terminates the + * preceding token. + */ +void specialout P1C(char, c) +{ + if (linepos + 1 > LINELENGTH) { + putchar('\n') ; + linepos = 0 ; + } + putchar(c) ; + linepos++ ; + lastspecial = 1 ; +} +void strout P1C(char *, s) +{ + if (linepos + strlen(s) > LINELENGTH) { + putchar('\n') ; + linepos = 0 ; + } + linepos += strlen(s) ; + while (*s != 0) + putchar(*s++) ; + lastspecial = 1 ; +} +void cmdout P1C(char *, s) +{ + int l ; + + l = strlen(s) ; + if (linepos + l + 1 > LINELENGTH) { + putchar('\n') ; + linepos = 0 ; + lastspecial = 1 ; + } + if (! lastspecial && *s != '/') { + putchar(' ') ; + linepos++ ; + } + while (*s != 0) { + putchar(*s++) ; + } + linepos += l ; + lastspecial = 0 ; +} +char buf[BUFLENGTH] ; +int main P2C(int, argc, char **, argv) +{ + int c ; + char *b ; + char seeking ; + + if (argc > 3 || (in=(argc < 2 ? stdin : fopen(argv[1], "r")))==NULL || + (out=(argc < 3 ? stdout : fopen(argv[2], "w")))==NULL) { + (void)fprintf(stderr, "Usage: squeeze [infile [outfile]]\n") ; + exit(1) ; + } + /* Binary output is safer (for those systems which care to know the + difference) since PostScript can include non-printable characters. */ + if (O_BINARY && !isatty(fileno(in))) + SET_BINARY(fileno(in)) ; + if (O_BINARY && !isatty(fileno(out))) + SET_BINARY(fileno(out)) ; + + (void)fprintf(out, "%%!\n") ; + while (1) { + c = getc(in) ; + if (c==EOF) + break ; + if (c=='%') { + while ((c=getc(in))!='\n') ; + } + if (c <= ' ') + continue ; + switch (c) { +case '{' : +case '}' : +case '[' : +case ']' : + specialout(c) ; + break ; +case '<' : +case '(' : + if (c=='(') + seeking = ')' ; + else + seeking = '>' ; + b = buf ; + *b++ = c ; + do { + c = getc(in) ; + if (b > buf + BUFLENGTH-2) { + (void)fprintf(stderr, "Overran buffer seeking %c", seeking) ; + exit(1) ; + } + *b++ = c ; + if (c=='\\') + *b++ = getc(in) ; + } while (c != seeking) ; + *b++ = 0 ; + strout(buf) ; + break ; +default: + b = buf ; + while ((c>='A'&&c<='Z')||(c>='a'&&c<='z')|| + (c>='0'&&c<='9')||(c=='/')||(c=='@')|| + (c=='!')||(c=='"')||(c=='&')||(c=='*')||(c==':')|| + (c==',')||(c==';')||(c=='?')||(c=='^')||(c=='~')|| + (c=='-')||(c=='.')||(c=='#')||(c=='|')||(c=='_')|| + (c=='=')||(c=='$')||(c=='+')) { + *b++ = c ; + c = getc(in) ; + } + if (b == buf) { + (void)fprintf(stderr, "Oops! Missed a case: %c.\n", c) ; + exit(1) ; + } + *b++ = 0 ; + (void)ungetc(c, in) ; + cmdout(buf) ; + } + } + if (linepos != 0) + putchar('\n') ; + exit(0) ; + /*NOTREACHED*/ +} |