/* This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks. Copyright (C) 2002-2016 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. */ #ifdef HAVE_CONFIG_H #include #endif #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 int 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 int 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; }