/TeXmacs-1.0.7.11-src/src/Plugins/Pdf/dvipdfmx/pst.c
C | 182 lines | 137 code | 21 blank | 24 comment | 59 complexity | 67bbd61719197cc49e164613842fab96 MD5 | raw file
Possible License(s): GPL-3.0, GPL-2.0, MPL-2.0-no-copyleft-exception
- /* $Header: /home/cvsroot/dvipdfmx/src/pst.c,v 1.6 2008/01/11 18:04:15 matthias Exp $
- This is dvipdfmx, an eXtended version of dvipdfm by Mark A. Wicks.
- Copyright (C) 2002 by Jin-Hwan Cho and Shunsaku Hirata,
- the dvipdfmx project team <dvipdfmx@project.ktug.or.kr>
- Copyright (C) 1998, 1999 by Mark A. Wicks <mwicks@kettering.edu>
- 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 <string.h>
- #include <ctype.h>
- #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;
- }