From be2f62b1c99597ad47dde539964c3a4a3b5cf773 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Tue, 6 Aug 2013 12:39:49 +0000 Subject: Recover texk/dvipdfm-x@31034 (essentially dvipdfmx and xdvipdfmx from branch-2013) as texk/dvipdf-x. Not built by default, only used to analyze various problems git-svn-id: svn://tug.org/texlive/trunk@31364 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/dvipdf-x/pst.c | 182 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 182 insertions(+) create mode 100644 Build/source/texk/dvipdf-x/pst.c (limited to 'Build/source/texk/dvipdf-x/pst.c') diff --git a/Build/source/texk/dvipdf-x/pst.c b/Build/source/texk/dvipdf-x/pst.c new file mode 100644 index 00000000000..fd3dab66678 --- /dev/null +++ b/Build/source/texk/dvipdf-x/pst.c @@ -0,0 +1,182 @@ +/* + + This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. + + Copyright (C) 2002-2012 by Jin-Hwan Cho and Shunsaku Hirata, + the dvipdfmx project team. + + Copyright (C) 1998, 1999 by Mark A. Wicks + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program 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 General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. +*/ + +#include +#include + +#include "system.h" +#include "mem.h" +#include "error.h" +#include "dpxutil.h" +#include "pst_obj.h" +#include "pst.h" + + +#define TYPE_CHECK(o, t) do { \ + if ((o) == NULL || pst_type_of((o)) != (t)) \ + ERROR("typecheck: object %p not of type %d.", (o), (t)); \ + } while (0) + +static pst_obj * +pst_parse_any (unsigned char **inbuf, unsigned char *inbufend) +{ + unsigned char *data; + unsigned char *cur = *inbuf; + unsigned long len; + + while (cur < inbufend && !PST_TOKEN_END(cur, inbufend)) + cur++; + + len = cur - (*inbuf); + data = NEW(len+1, unsigned char); + memcpy(data, *inbuf, len); + data[len] = '\0'; + + *inbuf = cur; + return pst_new_obj(PST_TYPE_UNKNOWN, data); +} + +static void +skip_line (unsigned char **inbuf, unsigned char *inbufend) +{ + while (*inbuf < inbufend && **inbuf != '\n' && **inbuf != '\r') + (*inbuf)++; + if (*inbuf < inbufend && **inbuf == '\r') + (*inbuf)++; + if (*inbuf < inbufend && **inbuf == '\n') + (*inbuf)++; +} + +static void +skip_comments (unsigned char **inbuf, unsigned char *inbufend) +{ + while (*inbuf < inbufend && **inbuf == '%') { + skip_line(inbuf, inbufend); + skip_white_spaces(inbuf, inbufend); + } +} + +#if 0 +static pst_obj * +pst_parse_comment (unsigned char **inbuf, unsigned char *inbufend) +{ + unsigned char *data; + unsigned char *cur = *inbuf; + unsigned long len; + + if (*cur != '%') + return NULL; + + while (cur < inbufend && *cur != '\n' && *cur != '\r') + cur++; + len = cur - (*inbuf); + data = NEW(len+1, unsigned char); + memcpy(data, *inbuf, len); + data[len] = '\0'; + + *inbuf = cur; + return pst_new_obj(PST_TYPE_UNKNOWN, data); +} +#endif + +/* NOTE: the input buffer must be null-terminated, i.e., *inbufend == 0 */ +pst_obj * +pst_get_token (unsigned char **inbuf, unsigned char *inbufend) +{ + pst_obj *obj = NULL; + unsigned char c; + + ASSERT(*inbuf <= inbufend && !*inbufend); + + skip_white_spaces(inbuf, inbufend); + skip_comments(inbuf, inbufend); + if (*inbuf >= inbufend) + return NULL; + c = **inbuf; + switch (c) { +#if 0 + case '%': + obj = pst_parse_comment(inbuf, inbufend); + break; +#endif + case '/': + obj = pst_parse_name(inbuf, inbufend); + break; + case '[': case '{': /* This is wrong */ + obj = pst_new_mark(); + (*inbuf)++; + break; + case '<': + if (*inbuf + 1 >= inbufend) + return NULL; + c = *(*inbuf+1); + if (c == '<') { + obj = pst_new_mark(); + *inbuf += 2; + } else if (isxdigit(c)) + obj = pst_parse_string(inbuf, inbufend); + else if (c == '~') /* ASCII85 */ + obj = pst_parse_string(inbuf, inbufend); + break; + case '(': + obj = pst_parse_string(inbuf, inbufend); + break; + case '>': + if (*inbuf + 1 >= inbufend || *(*inbuf+1) != '>') { + ERROR("Unexpected end of ASCII hex string marker."); + } else { + char *mark; + + mark = NEW(3, char); + mark[0] = '>'; mark[1] = '>'; mark[2] = '\0'; + obj = pst_new_obj(PST_TYPE_UNKNOWN, mark); + (*inbuf) += 2; + } + break; + case ']': case '}': + { + char *mark; + + mark = NEW(2, char); + mark[0] = c; mark[1] = '\0'; + obj = pst_new_obj(PST_TYPE_UNKNOWN, mark); + (*inbuf)++; + } + break; + default: + if (c == 't' || c == 'f') + obj = pst_parse_boolean(inbuf, inbufend); + else if (c == 'n') + obj = pst_parse_null(inbuf, inbufend); + else if (c == '+' || c == '-' || isdigit(c) || c == '.') + obj = pst_parse_number(inbuf, inbufend); + break; + } + + if (!obj) { + obj = pst_parse_any(inbuf, inbufend); + } + + return obj; +} -- cgit v1.2.3