diff options
Diffstat (limited to 'Build/source/utils/t1utils/t1utils-src/t1ascii.c')
-rw-r--r-- | Build/source/utils/t1utils/t1utils-src/t1ascii.c | 312 |
1 files changed, 312 insertions, 0 deletions
diff --git a/Build/source/utils/t1utils/t1utils-src/t1ascii.c b/Build/source/utils/t1utils/t1utils-src/t1ascii.c new file mode 100644 index 00000000000..757ae2225a8 --- /dev/null +++ b/Build/source/utils/t1utils/t1utils-src/t1ascii.c @@ -0,0 +1,312 @@ +/* t1ascii + * + * This program takes an Adobe Type-1 font program in binary (PFB) format and + * converts it to ASCII (PFA) format. + * + * Copyright (c) 1992 by I. Lee Hetherington, all rights reserved. + * Copyright (c) 1998-2013 Eddie Kohler + * + * Permission is hereby granted, free of charge, to any person obtaining a + * copy of this software and associated documentation files (the + * "Software"), to deal in the Software without restriction, subject to the + * conditions listed in the Click LICENSE file, which is available in full at + * http://github.com/kohler/click/blob/master/LICENSE. The conditions + * include: you must preserve this copyright notice, and you cannot mention + * the copyright holders in advertising related to the Software without + * their permission. The Software is provided WITHOUT ANY WARRANTY, EXPRESS + * OR IMPLIED. This notice is a summary of the Click LICENSE file; the + * license in that file is binding. + * + * New change log in `NEWS'. Old change log: + * + * Revision 1.2 92/06/23 10:58:43 ilh + * MSDOS porting by Kai-Uwe Herbing (herbing@netmbx.netmbx.de) + * incoporated. + * + * Revision 1.1 92/05/22 11:47:24 ilh + * initial version + * + * Ported to Microsoft C/C++ Compiler and MS-DOS operating system by + * Kai-Uwe Herbing (herbing@netmbx.netmbx.de) on June 12, 1992. Code + * specific to the MS-DOS version is encapsulated with #ifdef _MSDOS + * ... #endif, where _MSDOS is an identifier, which is automatically + * defined, if you compile with the Microsoft C/C++ Compiler. + * + */ + +/* Note: this is ANSI C. */ + +#ifdef HAVE_CONFIG_H +# include <config.h> +#endif +#if defined(_MSDOS) || defined(_WIN32) +# include <fcntl.h> +# include <io.h> +#endif +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include <ctype.h> +#include <limits.h> +#include <stdarg.h> +#include <errno.h> +#include <lcdf/clp.h> +#include "t1lib.h" + +#ifdef __cplusplus +extern "C" { +#endif + +static FILE *ofp; +static int line_length = 64; + + +/***** + * Command line + **/ + +#define OUTPUT_OPT 301 +#define VERSION_OPT 302 +#define HELP_OPT 303 +#define LINE_LEN_OPT 304 +#define WARNINGS_OPT 305 + +static Clp_Option options[] = { + { "help", 0, HELP_OPT, 0, 0 }, + { "line-length", 'l', LINE_LEN_OPT, Clp_ValInt, 0 }, + { "output", 'o', OUTPUT_OPT, Clp_ValString, 0 }, + { "version", 0, VERSION_OPT, 0, 0 }, + { "warnings", 'w', WARNINGS_OPT, 0, Clp_Negate } +}; +static const char *program_name; +static const char *ifp_filename = "<stdin>"; +static int line_length_warning = -1; + +void +fatal_error(const char *message, ...) +{ + va_list val; + va_start(val, message); + fprintf(stderr, "%s: ", program_name); + vfprintf(stderr, message, val); + putc('\n', stderr); + va_end(val); + exit(1); +} + +void +error(const char *message, ...) +{ + va_list val; + va_start(val, message); + fprintf(stderr, "%s: ", program_name); + vfprintf(stderr, message, val); + putc('\n', stderr); + va_end(val); +} + +static void +short_usage(void) +{ + fprintf(stderr, "Usage: %s [OPTION]... [INPUT [OUTPUT]]\n\ +Try `%s --help' for more information.\n", + program_name, program_name); +} + +static void +usage(void) +{ + printf("\ +`T1ascii' translates a PostScript Type 1 font from compact binary (PFB) to\n\ +ASCII (PFA) format. The result is written to the standard output unless an\n\ +OUTPUT file is given.\n\ +\n\ +Usage: %s [OPTION]... [INPUT [OUTPUT]]\n\ +\n\ +Options:\n\ + -l, --line-length=NUM Set max encrypted line length (default 64).\n\ + -o, --output=FILE Write output to FILE.\n\ + -w, --warnings Warn on too-long lines.\n\ + -h, --help Print this message and exit.\n\ + --version Print version number and warranty and exit.\n\ +\n\ +Report bugs to <ekohler@gmail.com>.\n", program_name); +} + + +/***** + * PFA font_reader functions + **/ + +static int hexcol = 0; + +static void +pfa_output_ascii(char *data, int len) +{ + if (hexcol) { + putc('\n', ofp); + hexcol = 0; + } + if (line_length_warning == 0 && len > 256) { + line_length_warning = 1; + fprintf(stderr, "%s: warning: %s has lines longer than 255 characters\n%s: (This may cause problems with older printers.)\n", program_name, ifp_filename, program_name); + } + fputs(data, ofp); + if (len && data[len - 1] != '\n') { + int p = len - 2; + while (p > 0 && data[p] != '\n') + p--; + hexcol = (p ? len - p - 1 : hexcol + len); + } +} + +static void +pfa_output_binary(unsigned char *data, int len) +{ + static const char *hexchar = "0123456789abcdef"; + for (; len > 0; len--, data++) { + /* trim hexadecimal lines to line_length columns */ + if (hexcol >= line_length) { + putc('\n', ofp); + hexcol = 0; + } + putc(hexchar[(*data >> 4) & 0xf], ofp); + putc(hexchar[*data & 0xf], ofp); + hexcol += 2; + } +} + +static void +pfa_output_end(void) +{ +} + +#ifdef __cplusplus +} +#endif + + +/***** + * main() + **/ + +int +main(int argc, char *argv[]) +{ + struct font_reader fr; + int c; + FILE *ifp = 0; + + Clp_Parser *clp = + Clp_NewParser(argc, (const char * const *)argv, sizeof(options) / sizeof(options[0]), options); + program_name = Clp_ProgramName(clp); + + /* interpret command line arguments using CLP */ + while (1) { + int opt = Clp_Next(clp); + switch (opt) { + + case LINE_LEN_OPT: + line_length = clp->val.i; + if (line_length < 8) { + line_length = 8; + error("warning: line length raised to %d", line_length); + } else if (line_length > 1024) { + line_length = 1024; + error("warning: line length lowered to %d", line_length); + } + break; + + output_file: + case OUTPUT_OPT: + if (ofp) + fatal_error("output file already specified"); + if (strcmp(clp->vstr, "-") == 0) + ofp = stdout; + else { + ofp = fopen(clp->vstr, "w"); + if (!ofp) fatal_error("%s: %s", clp->vstr, strerror(errno)); + } + break; + + case WARNINGS_OPT: + line_length_warning = (clp->negated ? -1 : 0); + break; + + case HELP_OPT: + usage(); + exit(0); + break; + + case VERSION_OPT: + printf("t1ascii (LCDF t1utils) %s\n", VERSION); + printf("Copyright (C) 1992-2010 I. Lee Hetherington, Eddie Kohler et al.\n\ +This is free software; see the source for copying conditions.\n\ +There is NO warranty, not even for merchantability or fitness for a\n\ +particular purpose.\n"); + exit(0); + break; + + case Clp_NotOption: + if (ifp && ofp) + fatal_error("too many arguments"); + else if (ifp) + goto output_file; + if (strcmp(clp->vstr, "-") == 0) { + ifp_filename = "<stdin>"; + ifp = stdin; + } else { + ifp_filename = clp->vstr; + ifp = fopen(clp->vstr, "rb"); + if (!ifp) + fatal_error("%s: %s", clp->vstr, strerror(errno)); + } + break; + + case Clp_Done: + goto done; + + case Clp_BadOption: + short_usage(); + exit(1); + break; + + } + } + + done: + if (!ifp) + ifp = stdin; + if (!ofp) + ofp = stdout; + if (line_length > 255 && line_length_warning == 0) + fprintf(stderr, "%s: warning: selected --line-length is greater than 255\n", program_name); + +#if defined(_MSDOS) || defined(_WIN32) + /* As we are processing a PFB (binary) input */ + /* file, we must set its file mode to binary. */ + _setmode(_fileno(ifp), _O_BINARY); + _setmode(_fileno(ofp), _O_BINARY); +#endif + + /* prepare font reader */ + fr.output_ascii = pfa_output_ascii; + fr.output_binary = pfa_output_binary; + fr.output_end = pfa_output_end; + + /* peek at first byte to see if it is the PFB marker 0x80 */ + c = getc(ifp); + ungetc(c, ifp); + + /* do the file */ + if (c == PFB_MARKER) + process_pfb(ifp, ifp_filename, &fr); + else if (c == '%') + process_pfa(ifp, ifp_filename, &fr); + else + fatal_error("%s does not start with font marker (`%%' or 0x80)", ifp_filename); + + fclose(ifp); + fclose(ofp); + return 0; +} |