1991-02-19 12:39:46 +00:00
|
|
|
/***********************************************************
|
1995-01-04 19:08:09 +00:00
|
|
|
Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
|
|
|
|
The Netherlands.
|
1991-02-19 12:39:46 +00:00
|
|
|
|
|
|
|
All Rights Reserved
|
|
|
|
|
1996-10-25 14:44:06 +00:00
|
|
|
Permission to use, copy, modify, and distribute this software and its
|
|
|
|
documentation for any purpose and without fee is hereby granted,
|
1991-02-19 12:39:46 +00:00
|
|
|
provided that the above copyright notice appear in all copies and that
|
1996-10-25 14:44:06 +00:00
|
|
|
both that copyright notice and this permission notice appear in
|
1991-02-19 12:39:46 +00:00
|
|
|
supporting documentation, and that the names of Stichting Mathematisch
|
1996-10-25 14:44:06 +00:00
|
|
|
Centrum or CWI or Corporation for National Research Initiatives or
|
|
|
|
CNRI not be used in advertising or publicity pertaining to
|
|
|
|
distribution of the software without specific, written prior
|
|
|
|
permission.
|
1991-02-19 12:39:46 +00:00
|
|
|
|
1996-10-25 14:44:06 +00:00
|
|
|
While CWI is the initial source for this software, a modified version
|
|
|
|
is made available by the Corporation for National Research Initiatives
|
|
|
|
(CNRI) at the Internet address ftp://ftp.python.org.
|
|
|
|
|
|
|
|
STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
|
|
|
|
REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
|
|
|
|
MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
|
|
|
|
CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
|
|
|
|
DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
|
|
|
|
PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|
|
|
|
TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
|
|
|
PERFORMANCE OF THIS SOFTWARE.
|
1991-02-19 12:39:46 +00:00
|
|
|
|
|
|
|
******************************************************************/
|
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
/* Tokenizer implementation */
|
|
|
|
|
1990-12-20 15:06:42 +00:00
|
|
|
#include "pgenheaders.h"
|
1990-10-14 12:07:46 +00:00
|
|
|
|
|
|
|
#include <ctype.h>
|
|
|
|
|
|
|
|
#include "tokenizer.h"
|
|
|
|
#include "errcode.h"
|
|
|
|
|
1997-04-29 21:03:06 +00:00
|
|
|
extern char *PyOS_Readline Py_PROTO((char *));
|
1994-08-29 12:43:07 +00:00
|
|
|
/* Return malloc'ed string including trailing \n;
|
|
|
|
empty malloc'ed string for EOF;
|
|
|
|
NULL if interrupted */
|
|
|
|
|
1992-02-26 15:24:44 +00:00
|
|
|
/* Don't ever change this -- it would break the portability of Python code */
|
1990-10-14 12:07:46 +00:00
|
|
|
#define TABSIZE 8
|
|
|
|
|
1998-01-19 22:07:46 +00:00
|
|
|
/* Convert a possibly signed character to a nonnegative int */
|
|
|
|
/* XXX This assumes characters are 8 bits wide */
|
|
|
|
#ifdef __CHAR_UNSIGNED__
|
|
|
|
#define Py_CHARMASK(c) (c)
|
|
|
|
#else
|
|
|
|
#define Py_CHARMASK(c) ((c) & 0xff)
|
|
|
|
#endif
|
|
|
|
|
1990-12-20 15:06:42 +00:00
|
|
|
/* Forward */
|
1997-04-29 21:03:06 +00:00
|
|
|
static struct tok_state *tok_new Py_PROTO((void));
|
|
|
|
static int tok_nextc Py_PROTO((struct tok_state *tok));
|
|
|
|
static void tok_backup Py_PROTO((struct tok_state *tok, int c));
|
1990-12-20 15:06:42 +00:00
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
/* Token names */
|
|
|
|
|
1997-04-29 21:03:06 +00:00
|
|
|
char *_PyParser_TokenNames[] = {
|
1990-10-14 12:07:46 +00:00
|
|
|
"ENDMARKER",
|
|
|
|
"NAME",
|
|
|
|
"NUMBER",
|
|
|
|
"STRING",
|
|
|
|
"NEWLINE",
|
|
|
|
"INDENT",
|
|
|
|
"DEDENT",
|
|
|
|
"LPAR",
|
|
|
|
"RPAR",
|
|
|
|
"LSQB",
|
|
|
|
"RSQB",
|
|
|
|
"COLON",
|
|
|
|
"COMMA",
|
|
|
|
"SEMI",
|
|
|
|
"PLUS",
|
|
|
|
"MINUS",
|
|
|
|
"STAR",
|
|
|
|
"SLASH",
|
|
|
|
"VBAR",
|
|
|
|
"AMPER",
|
|
|
|
"LESS",
|
|
|
|
"GREATER",
|
|
|
|
"EQUAL",
|
|
|
|
"DOT",
|
|
|
|
"PERCENT",
|
|
|
|
"BACKQUOTE",
|
|
|
|
"LBRACE",
|
|
|
|
"RBRACE",
|
1991-10-20 20:25:03 +00:00
|
|
|
"EQEQUAL",
|
|
|
|
"NOTEQUAL",
|
|
|
|
"LESSEQUAL",
|
|
|
|
"GREATEREQUAL",
|
1991-10-24 14:59:40 +00:00
|
|
|
"TILDE",
|
|
|
|
"CIRCUMFLEX",
|
|
|
|
"LEFTSHIFT",
|
|
|
|
"RIGHTSHIFT",
|
1996-01-12 01:31:58 +00:00
|
|
|
"DOUBLESTAR",
|
1991-10-20 20:25:03 +00:00
|
|
|
/* This table must match the #defines in token.h! */
|
1990-10-14 12:07:46 +00:00
|
|
|
"OP",
|
|
|
|
"<ERRORTOKEN>",
|
|
|
|
"<N_TOKENS>"
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
/* Create and initialize a new tok_state structure */
|
|
|
|
|
|
|
|
static struct tok_state *
|
|
|
|
tok_new()
|
|
|
|
{
|
1997-04-29 21:03:06 +00:00
|
|
|
struct tok_state *tok = PyMem_NEW(struct tok_state, 1);
|
1990-10-14 12:07:46 +00:00
|
|
|
if (tok == NULL)
|
|
|
|
return NULL;
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->buf = tok->cur = tok->end = tok->inp = tok->start = NULL;
|
1990-10-14 12:07:46 +00:00
|
|
|
tok->done = E_OK;
|
|
|
|
tok->fp = NULL;
|
|
|
|
tok->tabsize = TABSIZE;
|
|
|
|
tok->indent = 0;
|
|
|
|
tok->indstack[0] = 0;
|
|
|
|
tok->atbol = 1;
|
|
|
|
tok->pendin = 0;
|
|
|
|
tok->prompt = tok->nextprompt = NULL;
|
|
|
|
tok->lineno = 0;
|
1993-05-12 11:35:44 +00:00
|
|
|
tok->level = 0;
|
1998-04-09 21:38:06 +00:00
|
|
|
tok->filename = NULL;
|
|
|
|
tok->altwarning = 0;
|
|
|
|
tok->alterror = 0;
|
|
|
|
tok->alttabsize = 1;
|
|
|
|
tok->altindstack[0] = 0;
|
1990-10-14 12:07:46 +00:00
|
|
|
return tok;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Set up tokenizer for string */
|
|
|
|
|
|
|
|
struct tok_state *
|
1997-04-29 21:03:06 +00:00
|
|
|
PyTokenizer_FromString(str)
|
1990-10-14 12:07:46 +00:00
|
|
|
char *str;
|
|
|
|
{
|
|
|
|
struct tok_state *tok = tok_new();
|
|
|
|
if (tok == NULL)
|
|
|
|
return NULL;
|
1994-09-19 08:06:25 +00:00
|
|
|
tok->buf = tok->cur = tok->end = tok->inp = str;
|
1990-10-14 12:07:46 +00:00
|
|
|
return tok;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1991-07-27 21:42:56 +00:00
|
|
|
/* Set up tokenizer for file */
|
1990-10-14 12:07:46 +00:00
|
|
|
|
|
|
|
struct tok_state *
|
1997-04-29 21:03:06 +00:00
|
|
|
PyTokenizer_FromFile(fp, ps1, ps2)
|
1990-10-14 12:07:46 +00:00
|
|
|
FILE *fp;
|
|
|
|
char *ps1, *ps2;
|
|
|
|
{
|
|
|
|
struct tok_state *tok = tok_new();
|
|
|
|
if (tok == NULL)
|
|
|
|
return NULL;
|
1997-04-29 21:03:06 +00:00
|
|
|
if ((tok->buf = PyMem_NEW(char, BUFSIZ)) == NULL) {
|
|
|
|
PyMem_DEL(tok);
|
1990-10-14 12:07:46 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
tok->cur = tok->inp = tok->buf;
|
|
|
|
tok->end = tok->buf + BUFSIZ;
|
|
|
|
tok->fp = fp;
|
|
|
|
tok->prompt = ps1;
|
|
|
|
tok->nextprompt = ps2;
|
|
|
|
return tok;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Free a tok_state structure */
|
|
|
|
|
|
|
|
void
|
1997-04-29 21:03:06 +00:00
|
|
|
PyTokenizer_Free(tok)
|
1990-10-14 12:07:46 +00:00
|
|
|
struct tok_state *tok;
|
|
|
|
{
|
|
|
|
if (tok->fp != NULL && tok->buf != NULL)
|
1997-04-29 21:03:06 +00:00
|
|
|
PyMem_DEL(tok->buf);
|
|
|
|
PyMem_DEL(tok);
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Get next char, updating state; error code goes into tok->done */
|
|
|
|
|
|
|
|
static int
|
|
|
|
tok_nextc(tok)
|
|
|
|
register struct tok_state *tok;
|
|
|
|
{
|
|
|
|
for (;;) {
|
1994-09-19 08:06:25 +00:00
|
|
|
if (tok->cur != tok->inp) {
|
1998-01-19 22:07:46 +00:00
|
|
|
return Py_CHARMASK(*tok->cur++); /* Fast path */
|
1994-09-19 08:06:25 +00:00
|
|
|
}
|
1993-05-12 08:24:20 +00:00
|
|
|
if (tok->done != E_OK)
|
|
|
|
return EOF;
|
1990-10-14 12:07:46 +00:00
|
|
|
if (tok->fp == NULL) {
|
1994-09-19 08:06:25 +00:00
|
|
|
char *end = strchr(tok->inp, '\n');
|
|
|
|
if (end != NULL)
|
|
|
|
end++;
|
|
|
|
else {
|
|
|
|
end = strchr(tok->inp, '\0');
|
|
|
|
if (end == tok->inp) {
|
|
|
|
tok->done = E_EOF;
|
|
|
|
return EOF;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (tok->start == NULL)
|
|
|
|
tok->buf = tok->cur;
|
|
|
|
tok->lineno++;
|
|
|
|
tok->inp = end;
|
1998-01-19 22:07:46 +00:00
|
|
|
return Py_CHARMASK(*tok->cur++);
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
if (tok->prompt != NULL) {
|
1997-04-29 21:03:06 +00:00
|
|
|
char *new = PyOS_Readline(tok->prompt);
|
1990-10-14 12:07:46 +00:00
|
|
|
if (tok->nextprompt != NULL)
|
|
|
|
tok->prompt = tok->nextprompt;
|
1994-08-29 12:43:07 +00:00
|
|
|
if (new == NULL)
|
|
|
|
tok->done = E_INTR;
|
|
|
|
else if (*new == '\0') {
|
2000-05-03 23:44:39 +00:00
|
|
|
PyMem_FREE(new);
|
1990-10-14 12:07:46 +00:00
|
|
|
tok->done = E_EOF;
|
|
|
|
}
|
1994-08-29 12:43:07 +00:00
|
|
|
else if (tok->start != NULL) {
|
|
|
|
int start = tok->start - tok->buf;
|
|
|
|
int oldlen = tok->cur - tok->buf;
|
|
|
|
int newlen = oldlen + strlen(new);
|
2000-05-03 23:44:39 +00:00
|
|
|
char *buf = tok->buf;
|
|
|
|
PyMem_RESIZE(buf, char, newlen+1);
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->lineno++;
|
|
|
|
if (buf == NULL) {
|
2000-05-03 23:44:39 +00:00
|
|
|
PyMem_DEL(tok->buf);
|
1994-12-30 15:46:02 +00:00
|
|
|
tok->buf = NULL;
|
2000-05-03 23:44:39 +00:00
|
|
|
PyMem_FREE(new);
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->done = E_NOMEM;
|
|
|
|
return EOF;
|
|
|
|
}
|
|
|
|
tok->buf = buf;
|
|
|
|
tok->cur = tok->buf + oldlen;
|
|
|
|
strcpy(tok->buf + oldlen, new);
|
2000-05-03 23:44:39 +00:00
|
|
|
PyMem_FREE(new);
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->inp = tok->buf + newlen;
|
|
|
|
tok->end = tok->inp + 1;
|
|
|
|
tok->start = tok->buf + start;
|
|
|
|
}
|
1990-10-14 12:07:46 +00:00
|
|
|
else {
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->lineno++;
|
|
|
|
if (tok->buf != NULL)
|
2000-05-03 23:44:39 +00:00
|
|
|
PyMem_DEL(tok->buf);
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->buf = new;
|
1993-05-12 08:24:20 +00:00
|
|
|
tok->cur = tok->buf;
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->inp = strchr(tok->buf, '\0');
|
|
|
|
tok->end = tok->inp + 1;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
}
|
1994-08-29 12:43:07 +00:00
|
|
|
else {
|
|
|
|
int done = 0;
|
|
|
|
int cur = 0;
|
1995-06-14 18:26:02 +00:00
|
|
|
char *pt;
|
1994-08-29 12:43:07 +00:00
|
|
|
if (tok->start == NULL) {
|
1993-05-12 08:24:20 +00:00
|
|
|
if (tok->buf == NULL) {
|
1997-04-29 21:03:06 +00:00
|
|
|
tok->buf = PyMem_NEW(char, BUFSIZ);
|
1994-08-29 12:43:07 +00:00
|
|
|
if (tok->buf == NULL) {
|
|
|
|
tok->done = E_NOMEM;
|
|
|
|
return EOF;
|
|
|
|
}
|
|
|
|
tok->end = tok->buf + BUFSIZ;
|
|
|
|
}
|
|
|
|
if (fgets(tok->buf, (int)(tok->end - tok->buf),
|
|
|
|
tok->fp) == NULL) {
|
|
|
|
tok->done = E_EOF;
|
|
|
|
done = 1;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
tok->done = E_OK;
|
|
|
|
tok->inp = strchr(tok->buf, '\0');
|
|
|
|
done = tok->inp[-1] == '\n';
|
1993-05-12 08:24:20 +00:00
|
|
|
}
|
|
|
|
}
|
1994-08-29 12:43:07 +00:00
|
|
|
else {
|
|
|
|
cur = tok->cur - tok->buf;
|
1995-01-17 16:12:13 +00:00
|
|
|
if (feof(tok->fp)) {
|
|
|
|
tok->done = E_EOF;
|
|
|
|
done = 1;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
tok->done = E_OK;
|
1994-08-29 12:43:07 +00:00
|
|
|
}
|
|
|
|
tok->lineno++;
|
1993-05-12 08:24:20 +00:00
|
|
|
/* Read until '\n' or EOF */
|
1994-08-29 12:43:07 +00:00
|
|
|
while (!done) {
|
|
|
|
int curstart = tok->start == NULL ? -1 :
|
|
|
|
tok->start - tok->buf;
|
1993-05-12 08:24:20 +00:00
|
|
|
int curvalid = tok->inp - tok->buf;
|
1995-09-21 20:36:34 +00:00
|
|
|
int newsize = curvalid + BUFSIZ;
|
1993-05-12 08:24:20 +00:00
|
|
|
char *newbuf = tok->buf;
|
1997-04-29 21:03:06 +00:00
|
|
|
PyMem_RESIZE(newbuf, char, newsize);
|
1993-05-12 08:24:20 +00:00
|
|
|
if (newbuf == NULL) {
|
|
|
|
tok->done = E_NOMEM;
|
|
|
|
tok->cur = tok->inp;
|
|
|
|
return EOF;
|
|
|
|
}
|
|
|
|
tok->buf = newbuf;
|
|
|
|
tok->inp = tok->buf + curvalid;
|
|
|
|
tok->end = tok->buf + newsize;
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->start = curstart < 0 ? NULL :
|
|
|
|
tok->buf + curstart;
|
|
|
|
if (fgets(tok->inp,
|
1993-05-12 08:24:20 +00:00
|
|
|
(int)(tok->end - tok->inp),
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->fp) == NULL) {
|
|
|
|
/* Last line does not end in \n,
|
|
|
|
fake one */
|
|
|
|
strcpy(tok->inp, "\n");
|
|
|
|
}
|
1993-05-12 08:24:20 +00:00
|
|
|
tok->inp = strchr(tok->inp, '\0');
|
1994-08-29 12:43:07 +00:00
|
|
|
done = tok->inp[-1] == '\n';
|
1993-05-12 08:24:20 +00:00
|
|
|
}
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->cur = tok->buf + cur;
|
1997-04-11 19:16:25 +00:00
|
|
|
#ifndef macintosh
|
1995-06-14 18:26:02 +00:00
|
|
|
/* replace "\r\n" with "\n" */
|
1997-04-11 19:16:25 +00:00
|
|
|
/* For Mac we leave the \r, giving a syntax error */
|
1995-06-14 18:26:02 +00:00
|
|
|
pt = tok->inp - 2;
|
|
|
|
if (pt >= tok->buf && *pt == '\r') {
|
|
|
|
*pt++ = '\n';
|
|
|
|
*pt = '\0';
|
|
|
|
tok->inp = pt;
|
|
|
|
}
|
1997-04-11 19:16:25 +00:00
|
|
|
#endif
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
if (tok->done != E_OK) {
|
|
|
|
if (tok->prompt != NULL)
|
1998-08-25 18:13:04 +00:00
|
|
|
PySys_WriteStderr("\n");
|
1993-05-12 08:24:20 +00:00
|
|
|
tok->cur = tok->inp;
|
1990-10-14 12:07:46 +00:00
|
|
|
return EOF;
|
|
|
|
}
|
|
|
|
}
|
1993-05-12 08:24:20 +00:00
|
|
|
/*NOTREACHED*/
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Back-up one character */
|
|
|
|
|
|
|
|
static void
|
|
|
|
tok_backup(tok, c)
|
|
|
|
register struct tok_state *tok;
|
|
|
|
register int c;
|
|
|
|
{
|
|
|
|
if (c != EOF) {
|
1994-12-30 15:46:02 +00:00
|
|
|
if (--tok->cur < tok->buf)
|
1997-04-29 21:03:06 +00:00
|
|
|
Py_FatalError("tok_backup: begin of buffer");
|
1990-10-14 12:07:46 +00:00
|
|
|
if (*tok->cur != c)
|
|
|
|
*tok->cur = c;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Return the token corresponding to a single character */
|
|
|
|
|
|
|
|
int
|
1997-04-29 21:03:06 +00:00
|
|
|
PyToken_OneChar(c)
|
1990-10-14 12:07:46 +00:00
|
|
|
int c;
|
|
|
|
{
|
|
|
|
switch (c) {
|
|
|
|
case '(': return LPAR;
|
|
|
|
case ')': return RPAR;
|
|
|
|
case '[': return LSQB;
|
|
|
|
case ']': return RSQB;
|
|
|
|
case ':': return COLON;
|
|
|
|
case ',': return COMMA;
|
|
|
|
case ';': return SEMI;
|
|
|
|
case '+': return PLUS;
|
|
|
|
case '-': return MINUS;
|
|
|
|
case '*': return STAR;
|
|
|
|
case '/': return SLASH;
|
|
|
|
case '|': return VBAR;
|
|
|
|
case '&': return AMPER;
|
|
|
|
case '<': return LESS;
|
|
|
|
case '>': return GREATER;
|
|
|
|
case '=': return EQUAL;
|
|
|
|
case '.': return DOT;
|
|
|
|
case '%': return PERCENT;
|
|
|
|
case '`': return BACKQUOTE;
|
|
|
|
case '{': return LBRACE;
|
|
|
|
case '}': return RBRACE;
|
1991-10-24 14:59:40 +00:00
|
|
|
case '^': return CIRCUMFLEX;
|
|
|
|
case '~': return TILDE;
|
1990-10-14 12:07:46 +00:00
|
|
|
default: return OP;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1991-10-20 20:25:03 +00:00
|
|
|
int
|
1997-04-29 21:03:06 +00:00
|
|
|
PyToken_TwoChars(c1, c2)
|
1991-10-20 20:25:03 +00:00
|
|
|
int c1, c2;
|
|
|
|
{
|
|
|
|
switch (c1) {
|
|
|
|
case '=':
|
|
|
|
switch (c2) {
|
|
|
|
case '=': return EQEQUAL;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case '!':
|
|
|
|
switch (c2) {
|
|
|
|
case '=': return NOTEQUAL;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case '<':
|
|
|
|
switch (c2) {
|
|
|
|
case '>': return NOTEQUAL;
|
|
|
|
case '=': return LESSEQUAL;
|
1991-10-24 14:59:40 +00:00
|
|
|
case '<': return LEFTSHIFT;
|
1991-10-20 20:25:03 +00:00
|
|
|
}
|
|
|
|
break;
|
|
|
|
case '>':
|
|
|
|
switch (c2) {
|
|
|
|
case '=': return GREATEREQUAL;
|
1991-10-24 14:59:40 +00:00
|
|
|
case '>': return RIGHTSHIFT;
|
1991-10-20 20:25:03 +00:00
|
|
|
}
|
|
|
|
break;
|
1996-01-12 01:31:58 +00:00
|
|
|
case '*':
|
|
|
|
switch (c2) {
|
|
|
|
case '*': return DOUBLESTAR;
|
|
|
|
}
|
|
|
|
break;
|
1991-10-20 20:25:03 +00:00
|
|
|
}
|
|
|
|
return OP;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1998-04-09 21:38:06 +00:00
|
|
|
static int
|
|
|
|
indenterror(tok)
|
|
|
|
struct tok_state *tok;
|
|
|
|
{
|
|
|
|
if (tok->alterror) {
|
|
|
|
tok->done = E_INDENT;
|
|
|
|
tok->cur = tok->inp;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
if (tok->altwarning) {
|
1998-08-25 18:13:04 +00:00
|
|
|
PySys_WriteStderr("%s: inconsistent tab/space usage\n",
|
1998-04-09 21:38:06 +00:00
|
|
|
tok->filename);
|
|
|
|
tok->altwarning = 0;
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
/* Get next token, after space stripping etc. */
|
|
|
|
|
|
|
|
int
|
1997-04-29 21:03:06 +00:00
|
|
|
PyTokenizer_Get(tok, p_start, p_end)
|
1990-10-14 12:07:46 +00:00
|
|
|
register struct tok_state *tok; /* In/out: tokenizer state */
|
|
|
|
char **p_start, **p_end; /* Out: point to start/end of token */
|
|
|
|
{
|
|
|
|
register int c;
|
1991-07-27 21:42:56 +00:00
|
|
|
int blankline;
|
|
|
|
|
1994-08-29 12:43:07 +00:00
|
|
|
*p_start = *p_end = NULL;
|
1991-07-27 21:42:56 +00:00
|
|
|
nextline:
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->start = NULL;
|
1991-07-27 21:42:56 +00:00
|
|
|
blankline = 0;
|
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
/* Get indentation level */
|
|
|
|
if (tok->atbol) {
|
|
|
|
register int col = 0;
|
1998-04-09 21:38:06 +00:00
|
|
|
register int altcol = 0;
|
1990-10-14 12:07:46 +00:00
|
|
|
tok->atbol = 0;
|
|
|
|
for (;;) {
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
if (c == ' ')
|
1998-04-09 21:38:06 +00:00
|
|
|
col++, altcol++;
|
|
|
|
else if (c == '\t') {
|
1990-10-14 12:07:46 +00:00
|
|
|
col = (col/tok->tabsize + 1) * tok->tabsize;
|
1998-04-09 21:38:06 +00:00
|
|
|
altcol = (altcol/tok->alttabsize + 1)
|
|
|
|
* tok->alttabsize;
|
|
|
|
}
|
1995-07-07 22:27:27 +00:00
|
|
|
else if (c == '\014') /* Control-L (formfeed) */
|
1998-04-09 21:38:06 +00:00
|
|
|
col = altcol = 0; /* For Emacs users */
|
1990-10-14 12:07:46 +00:00
|
|
|
else
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
tok_backup(tok, c);
|
1991-07-27 21:42:56 +00:00
|
|
|
if (c == '#' || c == '\n') {
|
|
|
|
/* Lines with only whitespace and/or comments
|
|
|
|
shouldn't affect the indentation and are
|
|
|
|
not passed to the parser as NEWLINE tokens,
|
|
|
|
except *totally* empty lines in interactive
|
|
|
|
mode, which signal the end of a command group. */
|
|
|
|
if (col == 0 && c == '\n' && tok->prompt != NULL)
|
|
|
|
blankline = 0; /* Let it through */
|
|
|
|
else
|
|
|
|
blankline = 1; /* Ignore completely */
|
|
|
|
/* We can't jump back right here since we still
|
|
|
|
may need to skip to the end of a comment */
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
1993-05-12 11:35:44 +00:00
|
|
|
if (!blankline && tok->level == 0) {
|
1991-07-27 21:42:56 +00:00
|
|
|
if (col == tok->indstack[tok->indent]) {
|
|
|
|
/* No change */
|
1998-04-09 21:38:06 +00:00
|
|
|
if (altcol != tok->altindstack[tok->indent]) {
|
|
|
|
if (indenterror(tok))
|
|
|
|
return ERRORTOKEN;
|
|
|
|
}
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
1991-07-27 21:42:56 +00:00
|
|
|
else if (col > tok->indstack[tok->indent]) {
|
|
|
|
/* Indent -- always one */
|
|
|
|
if (tok->indent+1 >= MAXINDENT) {
|
1998-08-25 18:13:04 +00:00
|
|
|
PySys_WriteStderr(
|
|
|
|
"excessive indent\n");
|
1991-07-27 21:42:56 +00:00
|
|
|
tok->done = E_TOKEN;
|
1993-05-12 08:24:20 +00:00
|
|
|
tok->cur = tok->inp;
|
1991-07-27 21:42:56 +00:00
|
|
|
return ERRORTOKEN;
|
|
|
|
}
|
1998-04-09 21:38:06 +00:00
|
|
|
if (altcol <= tok->altindstack[tok->indent]) {
|
|
|
|
if (indenterror(tok))
|
|
|
|
return ERRORTOKEN;
|
|
|
|
}
|
1991-07-27 21:42:56 +00:00
|
|
|
tok->pendin++;
|
|
|
|
tok->indstack[++tok->indent] = col;
|
1998-04-09 21:38:06 +00:00
|
|
|
tok->altindstack[tok->indent] = altcol;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
1991-07-27 21:42:56 +00:00
|
|
|
else /* col < tok->indstack[tok->indent] */ {
|
|
|
|
/* Dedent -- any number, must be consistent */
|
|
|
|
while (tok->indent > 0 &&
|
|
|
|
col < tok->indstack[tok->indent]) {
|
|
|
|
tok->pendin--;
|
1998-02-16 22:18:00 +00:00
|
|
|
tok->indent--;
|
1991-07-27 21:42:56 +00:00
|
|
|
}
|
|
|
|
if (col != tok->indstack[tok->indent]) {
|
1998-12-04 18:51:01 +00:00
|
|
|
PySys_WriteStderr(
|
1997-04-29 21:03:06 +00:00
|
|
|
"inconsistent dedent\n");
|
1991-07-27 21:42:56 +00:00
|
|
|
tok->done = E_TOKEN;
|
1993-05-12 08:24:20 +00:00
|
|
|
tok->cur = tok->inp;
|
1991-07-27 21:42:56 +00:00
|
|
|
return ERRORTOKEN;
|
|
|
|
}
|
1998-04-09 21:38:06 +00:00
|
|
|
if (altcol != tok->altindstack[tok->indent]) {
|
|
|
|
if (indenterror(tok))
|
|
|
|
return ERRORTOKEN;
|
|
|
|
}
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->start = tok->cur;
|
1990-10-14 12:07:46 +00:00
|
|
|
|
|
|
|
/* Return pending indents/dedents */
|
|
|
|
if (tok->pendin != 0) {
|
|
|
|
if (tok->pendin < 0) {
|
|
|
|
tok->pendin++;
|
|
|
|
return DEDENT;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
tok->pendin--;
|
|
|
|
return INDENT;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
again:
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->start = NULL;
|
1990-10-14 12:07:46 +00:00
|
|
|
/* Skip spaces */
|
|
|
|
do {
|
|
|
|
c = tok_nextc(tok);
|
1995-07-07 22:27:27 +00:00
|
|
|
} while (c == ' ' || c == '\t' || c == '\014');
|
1990-10-14 12:07:46 +00:00
|
|
|
|
|
|
|
/* Set start of current token */
|
1994-08-29 12:43:07 +00:00
|
|
|
tok->start = tok->cur - 1;
|
1990-10-14 12:07:46 +00:00
|
|
|
|
2000-03-31 00:52:27 +00:00
|
|
|
/* Skip comment, while looking for tab-setting magic */
|
1990-10-14 12:07:46 +00:00
|
|
|
if (c == '#') {
|
2000-03-31 00:52:27 +00:00
|
|
|
static char *tabforms[] = {
|
|
|
|
"tab-width:", /* Emacs */
|
|
|
|
":tabstop=", /* vim, full form */
|
|
|
|
":ts=", /* vim, abbreviated form */
|
|
|
|
"set tabsize=", /* will vi never die? */
|
|
|
|
/* more templates can be added here to support other editors */
|
|
|
|
};
|
|
|
|
char cbuf[80];
|
|
|
|
char *tp, **cp;
|
|
|
|
tp = cbuf;
|
1990-10-14 12:07:46 +00:00
|
|
|
do {
|
2000-03-31 00:52:27 +00:00
|
|
|
*tp++ = c = tok_nextc(tok);
|
|
|
|
} while (c != EOF && c != '\n' &&
|
|
|
|
tp - cbuf + 1 < sizeof(cbuf));
|
|
|
|
*tp = '\0';
|
|
|
|
for (cp = tabforms;
|
|
|
|
cp < tabforms + sizeof(tabforms)/sizeof(tabforms[0]);
|
|
|
|
cp++) {
|
|
|
|
if ((tp = strstr(cbuf, *cp))) {
|
|
|
|
int newsize = atoi(tp + strlen(*cp));
|
|
|
|
|
|
|
|
if (newsize >= 1 && newsize <= 40) {
|
|
|
|
tok->tabsize = newsize;
|
2000-04-03 23:02:17 +00:00
|
|
|
if (Py_VerboseFlag)
|
|
|
|
PySys_WriteStderr(
|
2000-03-31 00:52:27 +00:00
|
|
|
"Tab size set to %d\n",
|
|
|
|
newsize);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
while (c != EOF && c != '\n')
|
1990-10-14 12:07:46 +00:00
|
|
|
c = tok_nextc(tok);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Check for EOF and errors now */
|
1991-10-24 14:59:40 +00:00
|
|
|
if (c == EOF) {
|
1990-10-14 12:07:46 +00:00
|
|
|
return tok->done == E_EOF ? ENDMARKER : ERRORTOKEN;
|
1991-10-24 14:59:40 +00:00
|
|
|
}
|
1990-10-14 12:07:46 +00:00
|
|
|
|
|
|
|
/* Identifier (most frequent token!) */
|
|
|
|
if (isalpha(c) || c == '_') {
|
2000-03-10 22:56:54 +00:00
|
|
|
/* Process r"", u"" and ur"" */
|
1997-04-25 17:32:00 +00:00
|
|
|
switch (c) {
|
|
|
|
case 'r':
|
|
|
|
case 'R':
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
if (c == '"' || c == '\'')
|
|
|
|
goto letter_quote;
|
2000-03-10 22:56:54 +00:00
|
|
|
break;
|
|
|
|
case 'u':
|
|
|
|
case 'U':
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
if (c == 'r' || c == 'R')
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
if (c == '"' || c == '\'')
|
|
|
|
goto letter_quote;
|
|
|
|
break;
|
1997-04-25 17:32:00 +00:00
|
|
|
}
|
1997-04-06 03:46:20 +00:00
|
|
|
while (isalnum(c) || c == '_') {
|
1990-10-14 12:07:46 +00:00
|
|
|
c = tok_nextc(tok);
|
1997-04-06 03:46:20 +00:00
|
|
|
}
|
1990-10-14 12:07:46 +00:00
|
|
|
tok_backup(tok, c);
|
1994-08-29 12:43:07 +00:00
|
|
|
*p_start = tok->start;
|
1990-10-14 12:07:46 +00:00
|
|
|
*p_end = tok->cur;
|
|
|
|
return NAME;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Newline */
|
|
|
|
if (c == '\n') {
|
|
|
|
tok->atbol = 1;
|
1993-05-12 11:35:44 +00:00
|
|
|
if (blankline || tok->level > 0)
|
1991-07-27 21:42:56 +00:00
|
|
|
goto nextline;
|
1994-08-29 12:43:07 +00:00
|
|
|
*p_start = tok->start;
|
1990-10-14 12:07:46 +00:00
|
|
|
*p_end = tok->cur - 1; /* Leave '\n' out of the string */
|
|
|
|
return NEWLINE;
|
|
|
|
}
|
|
|
|
|
1997-04-11 19:16:25 +00:00
|
|
|
#ifdef macintosh
|
|
|
|
if (c == '\r') {
|
1998-08-25 18:13:04 +00:00
|
|
|
PySys_WriteStderr(
|
1997-04-29 21:03:06 +00:00
|
|
|
"File contains \\r characters (incorrect line endings?)\n");
|
1997-04-11 19:16:25 +00:00
|
|
|
tok->done = E_TOKEN;
|
|
|
|
tok->cur = tok->inp;
|
|
|
|
return ERRORTOKEN;
|
|
|
|
}
|
|
|
|
#endif
|
1991-10-24 14:59:40 +00:00
|
|
|
/* Period or number starting with period? */
|
|
|
|
if (c == '.') {
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
if (isdigit(c)) {
|
|
|
|
goto fraction;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
tok_backup(tok, c);
|
1994-08-29 12:43:07 +00:00
|
|
|
*p_start = tok->start;
|
1991-10-24 14:59:40 +00:00
|
|
|
*p_end = tok->cur;
|
|
|
|
return DOT;
|
|
|
|
}
|
|
|
|
}
|
1996-01-12 01:31:58 +00:00
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
/* Number */
|
|
|
|
if (isdigit(c)) {
|
|
|
|
if (c == '0') {
|
|
|
|
/* Hex or octal */
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
if (c == '.')
|
|
|
|
goto fraction;
|
1996-01-12 01:31:58 +00:00
|
|
|
#ifndef WITHOUT_COMPLEX
|
1996-01-26 18:59:07 +00:00
|
|
|
if (c == 'j' || c == 'J')
|
1996-01-12 01:31:58 +00:00
|
|
|
goto imaginary;
|
|
|
|
#endif
|
1990-10-14 12:07:46 +00:00
|
|
|
if (c == 'x' || c == 'X') {
|
|
|
|
/* Hex */
|
|
|
|
do {
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
} while (isxdigit(c));
|
|
|
|
}
|
|
|
|
else {
|
1991-12-10 14:01:05 +00:00
|
|
|
/* XXX This is broken! E.g.,
|
|
|
|
09.9 should be accepted as float! */
|
1990-10-14 12:07:46 +00:00
|
|
|
/* Octal; c is first char of it */
|
|
|
|
/* There's no 'isoctdigit' macro, sigh */
|
|
|
|
while ('0' <= c && c < '8') {
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
}
|
|
|
|
}
|
1991-05-05 20:16:20 +00:00
|
|
|
if (c == 'l' || c == 'L')
|
|
|
|
c = tok_nextc(tok);
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
else {
|
|
|
|
/* Decimal */
|
|
|
|
do {
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
} while (isdigit(c));
|
1991-05-05 20:16:20 +00:00
|
|
|
if (c == 'l' || c == 'L')
|
1990-10-14 12:07:46 +00:00
|
|
|
c = tok_nextc(tok);
|
1991-05-05 20:16:20 +00:00
|
|
|
else {
|
|
|
|
/* Accept floating point numbers.
|
|
|
|
XXX This accepts incomplete things like
|
1994-08-29 12:43:07 +00:00
|
|
|
XXX 12e or 1e+; worry run-time */
|
1991-05-05 20:16:20 +00:00
|
|
|
if (c == '.') {
|
|
|
|
fraction:
|
|
|
|
/* Fraction */
|
|
|
|
do {
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
} while (isdigit(c));
|
|
|
|
}
|
|
|
|
if (c == 'e' || c == 'E') {
|
|
|
|
/* Exponent part */
|
1990-10-14 12:07:46 +00:00
|
|
|
c = tok_nextc(tok);
|
1991-05-05 20:16:20 +00:00
|
|
|
if (c == '+' || c == '-')
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
while (isdigit(c)) {
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
}
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
1996-01-12 01:31:58 +00:00
|
|
|
#ifndef WITHOUT_COMPLEX
|
1996-01-26 18:59:07 +00:00
|
|
|
if (c == 'j' || c == 'J')
|
1996-01-12 01:31:58 +00:00
|
|
|
/* Imaginary part */
|
|
|
|
imaginary:
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
#endif
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
tok_backup(tok, c);
|
1994-08-29 12:43:07 +00:00
|
|
|
*p_start = tok->start;
|
1990-10-14 12:07:46 +00:00
|
|
|
*p_end = tok->cur;
|
|
|
|
return NUMBER;
|
|
|
|
}
|
1997-04-06 03:46:20 +00:00
|
|
|
|
|
|
|
letter_quote:
|
1994-08-29 12:43:07 +00:00
|
|
|
/* String */
|
|
|
|
if (c == '\'' || c == '"') {
|
1998-02-16 15:42:50 +00:00
|
|
|
int quote2 = tok->cur - tok->start + 1;
|
1994-08-29 12:43:07 +00:00
|
|
|
int quote = c;
|
|
|
|
int triple = 0;
|
|
|
|
int tripcount = 0;
|
1990-10-14 12:07:46 +00:00
|
|
|
for (;;) {
|
|
|
|
c = tok_nextc(tok);
|
1994-08-29 12:43:07 +00:00
|
|
|
if (c == '\n') {
|
|
|
|
if (!triple) {
|
1990-10-14 12:07:46 +00:00
|
|
|
tok->done = E_TOKEN;
|
1994-08-29 12:43:07 +00:00
|
|
|
tok_backup(tok, c);
|
1990-10-14 12:07:46 +00:00
|
|
|
return ERRORTOKEN;
|
|
|
|
}
|
1994-08-29 12:43:07 +00:00
|
|
|
tripcount = 0;
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
1994-08-29 12:43:07 +00:00
|
|
|
else if (c == EOF) {
|
1993-10-26 15:19:44 +00:00
|
|
|
tok->done = E_TOKEN;
|
|
|
|
tok->cur = tok->inp;
|
|
|
|
return ERRORTOKEN;
|
|
|
|
}
|
1994-08-29 12:43:07 +00:00
|
|
|
else if (c == quote) {
|
|
|
|
tripcount++;
|
1998-02-16 15:42:50 +00:00
|
|
|
if (tok->cur - tok->start == quote2) {
|
1994-08-29 12:43:07 +00:00
|
|
|
c = tok_nextc(tok);
|
|
|
|
if (c == quote) {
|
|
|
|
triple = 1;
|
|
|
|
tripcount = 0;
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
tok_backup(tok, c);
|
|
|
|
}
|
|
|
|
if (!triple || tripcount == 3)
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
else if (c == '\\') {
|
|
|
|
tripcount = 0;
|
1993-10-26 15:19:44 +00:00
|
|
|
c = tok_nextc(tok);
|
1994-08-29 12:43:07 +00:00
|
|
|
if (c == EOF) {
|
1993-10-26 15:19:44 +00:00
|
|
|
tok->done = E_TOKEN;
|
|
|
|
tok->cur = tok->inp;
|
|
|
|
return ERRORTOKEN;
|
|
|
|
}
|
|
|
|
}
|
1994-08-29 12:43:07 +00:00
|
|
|
else
|
|
|
|
tripcount = 0;
|
1993-10-26 15:19:44 +00:00
|
|
|
}
|
1994-08-29 12:43:07 +00:00
|
|
|
*p_start = tok->start;
|
1993-10-26 15:19:44 +00:00
|
|
|
*p_end = tok->cur;
|
|
|
|
return STRING;
|
|
|
|
}
|
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
/* Line continuation */
|
|
|
|
if (c == '\\') {
|
|
|
|
c = tok_nextc(tok);
|
|
|
|
if (c != '\n') {
|
|
|
|
tok->done = E_TOKEN;
|
1993-05-12 08:24:20 +00:00
|
|
|
tok->cur = tok->inp;
|
1990-10-14 12:07:46 +00:00
|
|
|
return ERRORTOKEN;
|
|
|
|
}
|
|
|
|
goto again; /* Read next line */
|
|
|
|
}
|
|
|
|
|
1991-10-20 20:25:03 +00:00
|
|
|
/* Check for two-character token */
|
|
|
|
{
|
|
|
|
int c2 = tok_nextc(tok);
|
1997-04-29 21:03:06 +00:00
|
|
|
int token = PyToken_TwoChars(c, c2);
|
1991-10-20 20:25:03 +00:00
|
|
|
if (token != OP) {
|
1994-08-29 12:43:07 +00:00
|
|
|
*p_start = tok->start;
|
1991-10-20 20:25:03 +00:00
|
|
|
*p_end = tok->cur;
|
|
|
|
return token;
|
|
|
|
}
|
|
|
|
tok_backup(tok, c2);
|
|
|
|
}
|
|
|
|
|
1994-08-29 12:43:07 +00:00
|
|
|
/* Keep track of parentheses nesting level */
|
1993-05-12 11:35:44 +00:00
|
|
|
switch (c) {
|
|
|
|
case '(':
|
|
|
|
case '[':
|
|
|
|
case '{':
|
|
|
|
tok->level++;
|
|
|
|
break;
|
|
|
|
case ')':
|
|
|
|
case ']':
|
|
|
|
case '}':
|
|
|
|
tok->level--;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
1990-10-14 12:07:46 +00:00
|
|
|
/* Punctuation character */
|
1994-08-29 12:43:07 +00:00
|
|
|
*p_start = tok->start;
|
1990-10-14 12:07:46 +00:00
|
|
|
*p_end = tok->cur;
|
1997-04-29 21:03:06 +00:00
|
|
|
return PyToken_OneChar(c);
|
1990-10-14 12:07:46 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1996-12-30 16:17:54 +00:00
|
|
|
#ifdef Py_DEBUG
|
1990-10-14 12:07:46 +00:00
|
|
|
|
|
|
|
void
|
|
|
|
tok_dump(type, start, end)
|
|
|
|
int type;
|
|
|
|
char *start, *end;
|
|
|
|
{
|
1997-04-29 21:03:06 +00:00
|
|
|
printf("%s", _PyParser_TokenNames[type]);
|
1990-10-14 12:07:46 +00:00
|
|
|
if (type == NAME || type == NUMBER || type == STRING || type == OP)
|
|
|
|
printf("(%.*s)", (int)(end - start), start);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif
|