llex.c File Reference

#include <locale.h>
#include <string.h>
#include "lua.h"
#include "lctype.h"
#include "ldo.h"
#include "llex.h"
#include "lobject.h"
#include "lparser.h"
#include "lstate.h"
#include "lstring.h"
#include "ltable.h"
#include "lzio.h"

Go to the source code of this file.

Macros
#define	llex_c
#define	LUA_CORE
#define	next(ls)   (ls->current = zgetc(ls->z))
#define	currIsNewline(ls)   (ls->current == '\n' || ls->current == '\r')
#define	save_and_next(ls)   (save(ls, ls->current), next(ls))
#define	getlocaledecpoint()   (localeconv()->decimal_point[0])
#define	buff2d(b, e)   luaO_str2d(luaZ_buffer(b), luaZ_bufflen(b) - 1, e)

Functions
static l_noret	lexerror (LexState *ls, const char *msg, int token)
static void	save (LexState *ls, int c)
void	luaX_init (lua_State *L)
const char *	luaX_token2str (LexState *ls, int token)
static const char *	txtToken (LexState *ls, int token)
l_noret	luaX_syntaxerror (LexState *ls, const char *msg)
TString *	luaX_newstring (LexState *ls, const char *str, size_t l)
static void	inclinenumber (LexState *ls)
void	luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source, int firstchar)
static int	check_next (LexState *ls, const char *set)
static void	buffreplace (LexState *ls, char from, char to)
static void	trydecpoint (LexState *ls, SemInfo *seminfo)
static void	read_numeral (LexState *ls, SemInfo *seminfo)
static int	skip_sep (LexState *ls)
static void	read_long_string (LexState *ls, SemInfo *seminfo, int sep)
static void	escerror (LexState *ls, int *c, int n, const char *msg)
static int	readhexaesc (LexState *ls)
static int	readdecesc (LexState *ls)
static void	read_string (LexState *ls, int del, SemInfo *seminfo)
static int	llex (LexState *ls, SemInfo *seminfo)
void	luaX_next (LexState *ls)
int	luaX_lookahead (LexState *ls)

Variables
static const char *const	luaX_tokens []

Macro Definition Documentation

buff2d

#define buff2d	(		b,
			e )   luaO_str2d(luaZ_buffer(b), luaZ_bufflen(b) - 1, e)

Definition at line 209 of file lua-5.2.4/src/llex.c.

Referenced by read_numeral(), and trydecpoint().

currIsNewline

#define currIsNewline

(

ls

)

(ls->current == '\n' || ls->current == '\r')

Definition at line 32 of file lua-5.2.4/src/llex.c.

Referenced by inclinenumber(), llex(), read_long_string(), and read_string().

getlocaledecpoint

#define getlocaledecpoint

(

)

(localeconv()->decimal_point[0])

Definition at line 205 of file lua-5.2.4/src/llex.c.

Referenced by trydecpoint().

llex_c

#define llex_c

Definition at line 11 of file lua-5.2.4/src/llex.c.

LUA_CORE

#define LUA_CORE

Definition at line 12 of file lua-5.2.4/src/llex.c.

next

#define next

(

ls

)

(ls->current = zgetc(ls->z))

Definition at line 28 of file lua-5.2.4/src/llex.c.

Referenced by inclinenumber(), llex(), read_long_string(), read_string(), readdecesc(), and readhexaesc().

save_and_next

#define save_and_next

(

ls

)

(save(ls, ls->current), next(ls))

Definition at line 46 of file lua-5.2.4/src/llex.c.

Referenced by check_next(), llex(), read_long_string(), read_numeral(), read_string(), and skip_sep().

Function Documentation

buffreplace()

static void buffreplace ( LexState * ls, char from, char to )

static

Definition at line 196 of file lua-5.2.4/src/llex.c.

                                                           {
  size_t n = luaZ_bufflen(ls->buff);
  char *p = luaZ_buffer(ls->buff);
  while (n--)
    if (p[n] == from) p[n] = to;
}

References LexState::buff, luaZ_buffer, and luaZ_bufflen.

Referenced by read_numeral(), and trydecpoint().

check_next()

static int check_next ( LexState * ls, const char * set )

static

Definition at line 185 of file lua-5.2.4/src/llex.c.

                                                      {
  if (ls->current == '\0' || !strchr(set, ls->current))
    return 0;
  save_and_next(ls);
  return 1;
}

References LexState::current, and save_and_next.

Referenced by llex(), and read_numeral().

escerror()

static void escerror ( LexState * ls, int * c, int n, const char * msg )

static

Definition at line 305 of file lua-5.2.4/src/llex.c.

                                                                    {
  int i;
  luaZ_resetbuffer(ls->buff);  /* prepare error message */
  save(ls, '\\');
  for (i = 0; i < n && c[i] != EOZ; i++)
    save(ls, c[i]);
  lexerror(ls, msg, TK_STRING);
}

References LexState::buff, EOZ, lexerror(), luaZ_resetbuffer, save(), and TK_STRING.

Referenced by read_string(), readdecesc(), and readhexaesc().

inclinenumber()

static void inclinenumber ( LexState * ls )

static

Definition at line 148 of file lua-5.2.4/src/llex.c.

                                         {
  int old = ls->current;
  lua_assert(currIsNewline(ls));
  next(ls);  /* skip `\n' or `\r' */
  if (currIsNewline(ls) && ls->current != old)
    next(ls);  /* skip `\n\r' or `\r\n' */
  if (++ls->linenumber >= MAX_INT)
    lexerror(ls, "chunk has too many lines", 0);
}

References LexState::current, currIsNewline, lexerror(), LexState::linenumber, lua_assert, MAX_INT, and next.

Referenced by llex(), read_long_string(), and read_string().

lexerror()

static l_noret lexerror ( LexState * ls, const char * msg, int token )

static

Definition at line 104 of file lua-5.2.4/src/llex.c.

                                                                   {
  char buff[LUA_IDSIZE];
  luaO_chunkid(buff, getstr(ls->source), LUA_IDSIZE);
  msg = luaO_pushfstring(ls->L, "%s:%d: %s", buff, ls->linenumber, msg);
  if (token)
    luaO_pushfstring(ls->L, "%s near %s", msg, txtToken(ls, token));
  luaD_throw(ls->L, LUA_ERRSYNTAX);
}

References getstr, LexState::L, LexState::linenumber, LUA_ERRSYNTAX, LUA_IDSIZE, luaD_throw(), luaO_chunkid(), luaO_pushfstring(), LexState::source, and txtToken().

Referenced by escerror(), inclinenumber(), llex(), luaX_syntaxerror(), read_long_string(), read_string(), save(), and trydecpoint().

llex()

static int llex ( LexState * ls, SemInfo * seminfo )

static

Definition at line 401 of file lua-5.2.4/src/llex.c.

                                                 {
  luaZ_resetbuffer(ls->buff);
  for (;;) {
    switch (ls->current) {
      case '\n': case '\r': {  /* line breaks */
        inclinenumber(ls);
        break;
      }
      case ' ': case '\f': case '\t': case '\v': {  /* spaces */
        next(ls);
        break;
      }
      case '-': {  /* '-' or '--' (comment) */
        next(ls);
        if (ls->current != '-') return '-';
        /* else is a comment */
        next(ls);
        if (ls->current == '[') {  /* long comment? */
          int sep = skip_sep(ls);
          luaZ_resetbuffer(ls->buff);  /* `skip_sep' may dirty the buffer */
          if (sep >= 0) {
            read_long_string(ls, NULL, sep);  /* skip long comment */
            luaZ_resetbuffer(ls->buff);  /* previous call may dirty the buff. */
            break;
          }
        }
        /* else short comment */
        while (!currIsNewline(ls) && ls->current != EOZ)
          next(ls);  /* skip until end of line (or end of file) */
        break;
      }
      case '[': {  /* long string or simply '[' */
        int sep = skip_sep(ls);
        if (sep >= 0) {
          read_long_string(ls, seminfo, sep);
          return TK_STRING;
        }
        else if (sep == -1) return '[';
        else lexerror(ls, "invalid long string delimiter", TK_STRING);
      }
      case '=': {
        next(ls);
        if (ls->current != '=') return '=';
        else { next(ls); return TK_EQ; }
      }
      case '<': {
        next(ls);
        if (ls->current != '=') return '<';
        else { next(ls); return TK_LE; }
      }
      case '>': {
        next(ls);
        if (ls->current != '=') return '>';
        else { next(ls); return TK_GE; }
      }
      case '~': {
        next(ls);
        if (ls->current != '=') return '~';
        else { next(ls); return TK_NE; }
      }
      case ':': {
        next(ls);
        if (ls->current != ':') return ':';
        else { next(ls); return TK_DBCOLON; }
      }
      case '"': case '\'': {  /* short literal strings */
        read_string(ls, ls->current, seminfo);
        return TK_STRING;
      }
      case '.': {  /* '.', '..', '...', or number */
        save_and_next(ls);
        if (check_next(ls, ".")) {
          if (check_next(ls, "."))
            return TK_DOTS;   /* '...' */
          else return TK_CONCAT;   /* '..' */
        }
        else if (!lisdigit(ls->current)) return '.';
        /* else go through */
      }
      case '0': case '1': case '2': case '3': case '4':
      case '5': case '6': case '7': case '8': case '9': {
        read_numeral(ls, seminfo);
        return TK_NUMBER;
      }
      case EOZ: {
        return TK_EOS;
      }
      default: {
        if (lislalpha(ls->current)) {  /* identifier or reserved word? */
          TString *ts;
          do {
            save_and_next(ls);
          } while (lislalnum(ls->current));
          ts = luaX_newstring(ls, luaZ_buffer(ls->buff),
                                  luaZ_bufflen(ls->buff));
          seminfo->ts = ts;
          if (isreserved(ts))  /* reserved word? */
            return ts->tsv.extra - 1 + FIRST_RESERVED;
          else {
            return TK_NAME;
          }
        }
        else {  /* single-char tokens (+ - / ...) */
          int c = ls->current;
          next(ls);
          return c;
        }
      }
    }
  }
}

References LexState::buff, check_next(), LexState::current, currIsNewline, EOZ, TString::extra, FIRST_RESERVED, inclinenumber(), isreserved, lexerror(), lisdigit, lislalnum, lislalpha, luaX_newstring(), luaZ_buffer, luaZ_bufflen, luaZ_resetbuffer, next, NULL, read_long_string(), read_numeral(), read_string(), save_and_next, skip_sep(), TK_CONCAT, TK_DBCOLON, TK_DOTS, TK_EOS, TK_EQ, TK_GE, TK_LE, TK_NAME, TK_NE, TK_NUMBER, TK_STRING, SemInfo::ts, and TString::tsv.

Referenced by luaX_lookahead(), and luaX_next().

luaX_init()

void luaX_init

(

lua_State *

L

)

Definition at line 65 of file lua-5.2.4/src/llex.c.

                              {
  int i;
  for (i=0; i<NUM_RESERVED; i++) {
    TString *ts = luaS_new(L, luaX_tokens[i]);
    luaS_fix(ts);  /* reserved words are never collected */
    ts->tsv.extra = cast_byte(i+1);  /* reserved word */
  }
}

References cast_byte, TString::extra, luaS_fix, luaS_new, luaX_tokens, NUM_RESERVED, and TString::tsv.

luaX_lookahead()

int luaX_lookahead

(

LexState *

ls

)

Definition at line 525 of file lua-5.2.4/src/llex.c.

                                  {
  lua_assert(ls->lookahead.token == TK_EOS);
  ls->lookahead.token = llex(ls, &ls->lookahead.seminfo);
  return ls->lookahead.token;
}

References llex(), LexState::lookahead, lua_assert, Token::seminfo, TK_EOS, and Token::token.

luaX_newstring()

TString * luaX_newstring	(	LexState *	ls,
		const char *	str,
		size_t	l )

Definition at line 124 of file lua-5.2.4/src/llex.c.

                                                                  {
  lua_State *L = ls->L;
  TValue *o;  /* entry for `str' */
  TString *ts = luaS_newlstr(L, str, l);  /* create new string */
  setsvalue2s(L, L->top++, ts);  /* temporarily anchor it in stack */
  o = luaH_set(L, ls->fs->h, L->top - 1);
  if (ttisnil(o)) {  /* not in use yet? (see 'addK') */
    /* boolean value does not need GC barrier;
       table has no metatable, so it does not need to invalidate cache */
    setbvalue(o, 1);  /* t[string] = true */
    luaC_checkGC(L);
  }
  else {  /* string already present */
    ts = rawtsvalue(keyfromval(o));  /* re-use value previously stored */
  }
  L->top--;  /* remove string from stack */
  return ts;
}

References LexState::fs, FuncState::h, keyfromval, LexState::L, luaC_checkGC, luaH_set(), luaS_newlstr(), rawtsvalue, setbvalue, setsvalue2s, lua_State::top, and ttisnil.

Referenced by llex(), read_long_string(), and read_string().

luaX_next()

void luaX_next

(

LexState *

ls

)

Definition at line 514 of file lua-5.2.4/src/llex.c.

                              {
  ls->lastline = ls->linenumber;
  if (ls->lookahead.token != TK_EOS) {  /* is there a look-ahead token? */
    ls->t = ls->lookahead;  /* use this one */
    ls->lookahead.token = TK_EOS;  /* and discharge it */
  }
  else
    ls->t.token = llex(ls, &ls->t.seminfo);  /* read next token */
}

References LexState::lastline, LexState::linenumber, llex(), LexState::lookahead, Token::seminfo, LexState::t, TK_EOS, and Token::token.

luaX_setinput()

void luaX_setinput	(	lua_State *	L,
		LexState *	ls,
		ZIO *	z,
		TString *	source,
		int	firstchar )

Definition at line 159 of file lua-5.2.4/src/llex.c.

                                   {
  ls->decpoint = '.';
  ls->L = L;
  ls->current = firstchar;
  ls->lookahead.token = TK_EOS;  /* no look-ahead token */
  ls->z = z;
  ls->fs = NULL;
  ls->linenumber = 1;
  ls->lastline = 1;
  ls->source = source;
  ls->envn = luaS_new(L, LUA_ENV);  /* create env name */
  luaS_fix(ls->envn);  /* never collect this name */
  luaZ_resizebuffer(ls->L, ls->buff, LUA_MINBUFFER);  /* initialize buffer */
}

References LexState::buff, LexState::current, LexState::decpoint, LexState::envn, LexState::fs, LexState::L, LexState::lastline, LexState::linenumber, LexState::lookahead, LUA_ENV, LUA_MINBUFFER, luaS_fix, luaS_new, luaZ_resizebuffer, NULL, LexState::source, TK_EOS, Token::token, and LexState::z.

luaX_syntaxerror()

l_noret luaX_syntaxerror	(	LexState *	ls,
		const char *	msg )

Definition at line 114 of file lua-5.2.4/src/llex.c.

                                                         {
  lexerror(ls, msg, ls->t.token);
}

References lexerror(), LexState::t, and Token::token.

luaX_token2str()

const char * luaX_token2str	(	LexState *	ls,
		int	token )

Definition at line 75 of file lua-5.2.4/src/llex.c.

                                                     {
  if (token < FIRST_RESERVED) {  /* single-byte symbols? */
    lua_assert(token == cast(unsigned char, token));
    return (lisprint(token)) ? luaO_pushfstring(ls->L, LUA_QL("%c"), token) :
                              luaO_pushfstring(ls->L, "char(%d)", token);
  }
  else {
    const char *s = luaX_tokens[token - FIRST_RESERVED];
    if (token < TK_EOS)  /* fixed format (symbols and reserved words)? */
      return luaO_pushfstring(ls->L, LUA_QS, s);
    else  /* names, strings, and numerals */
      return s;
  }
}

References cast, FIRST_RESERVED, LexState::L, lisprint, lua_assert, LUA_QL, LUA_QS, luaO_pushfstring(), luaX_tokens, s, and TK_EOS.

Referenced by txtToken().

read_long_string()

static void read_long_string ( LexState * ls, SemInfo * seminfo, int sep )

static

Definition at line 270 of file lua-5.2.4/src/llex.c.

                                                                       {
  save_and_next(ls);  /* skip 2nd `[' */
  if (currIsNewline(ls))  /* string starts with a newline? */
    inclinenumber(ls);  /* skip it */
  for (;;) {
    switch (ls->current) {
      case EOZ:
        lexerror(ls, (seminfo) ? "unfinished long string" :
                                 "unfinished long comment", TK_EOS);
        break;  /* to avoid warnings */
      case ']': {
        if (skip_sep(ls) == sep) {
          save_and_next(ls);  /* skip 2nd `]' */
          goto endloop;
        }
        break;
      }
      case '\n': case '\r': {
        save(ls, '\n');
        inclinenumber(ls);
        if (!seminfo) luaZ_resetbuffer(ls->buff);  /* avoid wasting space */
        break;
      }
      default: {
        if (seminfo) save_and_next(ls);
        else next(ls);
      }
    }
  } endloop:
  if (seminfo)
    seminfo->ts = luaX_newstring(ls, luaZ_buffer(ls->buff) + (2 + sep),
                                     luaZ_bufflen(ls->buff) - 2*(2 + sep));
}

References LexState::buff, LexState::current, currIsNewline, EOZ, inclinenumber(), lexerror(), luaX_newstring(), luaZ_buffer, luaZ_bufflen, luaZ_resetbuffer, next, save(), save_and_next, skip_sep(), TK_EOS, and SemInfo::ts.

Referenced by llex().

read_numeral()

static void read_numeral ( LexState * ls, SemInfo * seminfo )

static

Definition at line 232 of file lua-5.2.4/src/llex.c.

                                                          {
  const char *expo = "Ee";
  int first = ls->current;
  lua_assert(lisdigit(ls->current));
  save_and_next(ls);
  if (first == '0' && check_next(ls, "Xx"))  /* hexadecimal? */
    expo = "Pp";
  for (;;) {
    if (check_next(ls, expo))  /* exponent part? */
      check_next(ls, "+-");  /* optional exponent sign */
    if (lisxdigit(ls->current) || ls->current == '.')
      save_and_next(ls);
    else  break;
  }
  save(ls, '\0');
  buffreplace(ls, '.', ls->decpoint);  /* follow locale for decimal point */
  if (!buff2d(ls->buff, &seminfo->r))  /* format error? */
    trydecpoint(ls, seminfo); /* try to update decimal point separator */
}

References LexState::buff, buff2d, buffreplace(), check_next(), LexState::current, LexState::decpoint, lisdigit, lisxdigit, lua_assert, SemInfo::r, save(), save_and_next, and trydecpoint().

Referenced by llex().

read_string()

static void read_string ( LexState * ls, int del, SemInfo * seminfo )

static

Definition at line 343 of file lua-5.2.4/src/llex.c.

                                                                  {
  save_and_next(ls);  /* keep delimiter (for error messages) */
  while (ls->current != del) {
    switch (ls->current) {
      case EOZ:
        lexerror(ls, "unfinished string", TK_EOS);
        break;  /* to avoid warnings */
      case '\n':
      case '\r':
        lexerror(ls, "unfinished string", TK_STRING);
        break;  /* to avoid warnings */
      case '\\': {  /* escape sequences */
        int c;  /* final character to be saved */
        next(ls);  /* do not save the `\' */
        switch (ls->current) {
          case 'a': c = '\a'; goto read_save;
          case 'b': c = '\b'; goto read_save;
          case 'f': c = '\f'; goto read_save;
          case 'n': c = '\n'; goto read_save;
          case 'r': c = '\r'; goto read_save;
          case 't': c = '\t'; goto read_save;
          case 'v': c = '\v'; goto read_save;
          case 'x': c = readhexaesc(ls); goto read_save;
          case '\n': case '\r':
            inclinenumber(ls); c = '\n'; goto only_save;
          case '\\': case '\"': case '\'':
            c = ls->current; goto read_save;
          case EOZ: goto no_save;  /* will raise an error next loop */
          case 'z': {  /* zap following span of spaces */
            next(ls);  /* skip the 'z' */
            while (lisspace(ls->current)) {
              if (currIsNewline(ls)) inclinenumber(ls);
              else next(ls);
            }
            goto no_save;
          }
          default: {
            if (!lisdigit(ls->current))
              escerror(ls, &ls->current, 1, "invalid escape sequence");
            /* digital escape \ddd */
            c = readdecesc(ls);
            goto only_save;
          }
        }
       read_save: next(ls);  /* read next character */
       only_save: save(ls, c);  /* save 'c' */
       no_save: break;
      }
      default:
        save_and_next(ls);
    }
  }
  save_and_next(ls);  /* skip delimiter */
  seminfo->ts = luaX_newstring(ls, luaZ_buffer(ls->buff) + 1,
                                   luaZ_bufflen(ls->buff) - 2);
}

References LexState::buff, LexState::current, currIsNewline, EOZ, escerror(), inclinenumber(), lexerror(), lisdigit, lisspace, luaX_newstring(), luaZ_buffer, luaZ_bufflen, next, readdecesc(), readhexaesc(), save(), save_and_next, TK_EOS, TK_STRING, and SemInfo::ts.

Referenced by llex().

readdecesc()

static int readdecesc ( LexState * ls )

static

Definition at line 329 of file lua-5.2.4/src/llex.c.

                                     {
  int c[3], i;
  int r = 0;  /* result accumulator */
  for (i = 0; i < 3 && lisdigit(ls->current); i++) {  /* read up to 3 digits */
    c[i] = ls->current;
    r = 10*r + c[i] - '0';
    next(ls);
  }
  if (r > UCHAR_MAX)
    escerror(ls, c, i, "decimal escape too large");
  return r;
}

References LexState::current, escerror(), lisdigit, and next.

Referenced by read_string().

readhexaesc()

static int readhexaesc ( LexState * ls )

static

Definition at line 315 of file lua-5.2.4/src/llex.c.

                                      {
  int c[3], i;  /* keep input for error message */
  int r = 0;  /* result accumulator */
  c[0] = 'x';  /* for error message */
  for (i = 1; i < 3; i++) {  /* read two hexadecimal digits */
    c[i] = next(ls);
    if (!lisxdigit(c[i]))
      escerror(ls, c, i + 1, "hexadecimal digit expected");
    r = (r << 4) + luaO_hexavalue(c[i]);
  }
  return r;
}

References escerror(), lisxdigit, luaO_hexavalue(), and next.

Referenced by read_string().

save()

static void save ( LexState * ls, int c )

static

Definition at line 52 of file lua-5.2.4/src/llex.c.

                                       {
  Mbuffer *b = ls->buff;
  if (luaZ_bufflen(b) + 1 > luaZ_sizebuffer(b)) {
    size_t newsize;
    if (luaZ_sizebuffer(b) >= MAX_SIZET/2)
      lexerror(ls, "lexical element too long", 0);
    newsize = luaZ_sizebuffer(b) * 2;
    luaZ_resizebuffer(ls->L, b, newsize);
  }
  b->buffer[luaZ_bufflen(b)++] = cast(char, c);
}

References LexState::buff, Mbuffer::buffer, cast, LexState::L, lexerror(), luaZ_bufflen, luaZ_resizebuffer, luaZ_sizebuffer, and MAX_SIZET.

Referenced by escerror(), read_long_string(), read_numeral(), read_string(), and txtToken().

skip_sep()

static int skip_sep ( LexState * ls )

static

Definition at line 257 of file lua-5.2.4/src/llex.c.

                                   {
  int count = 0;
  int s = ls->current;
  lua_assert(s == '[' || s == ']');
  save_and_next(ls);
  while (ls->current == '=') {
    save_and_next(ls);
    count++;
  }
  return (ls->current == s) ? count : (-count) - 1;
}

References LexState::current, lua_assert, s, and save_and_next.

Referenced by llex(), and read_long_string().

trydecpoint()

static void trydecpoint ( LexState * ls, SemInfo * seminfo )

static

Definition at line 215 of file lua-5.2.4/src/llex.c.

                                                         {
  char old = ls->decpoint;
  ls->decpoint = getlocaledecpoint();
  buffreplace(ls, old, ls->decpoint);  /* try new decimal separator */
  if (!buff2d(ls->buff, &seminfo->r)) {
    /* format error with correct decimal point: no more options */
    buffreplace(ls, ls->decpoint, '.');  /* undo change (for error message) */
    lexerror(ls, "malformed number", TK_NUMBER);
  }
}

References LexState::buff, buff2d, buffreplace(), LexState::decpoint, getlocaledecpoint, lexerror(), SemInfo::r, and TK_NUMBER.

Referenced by read_numeral().

txtToken()

static const char * txtToken ( LexState * ls, int token )

static

Definition at line 91 of file lua-5.2.4/src/llex.c.

                                                      {
  switch (token) {
    case TK_NAME:
    case TK_STRING:
    case TK_NUMBER:
      save(ls, '\0');
      return luaO_pushfstring(ls->L, LUA_QS, luaZ_buffer(ls->buff));
    default:
      return luaX_token2str(ls, token);
  }
}

References LexState::buff, LexState::L, LUA_QS, luaO_pushfstring(), luaX_token2str(), luaZ_buffer, save(), TK_NAME, TK_NUMBER, and TK_STRING.

Referenced by lexerror().

Variable Documentation

luaX_tokens

const char* const luaX_tokens[]

static

Initial value:

= {
    "and", "break", "do", "else", "elseif",
    "end", "false", "for", "function", "goto", "if",
    "in", "local", "nil", "not", "or", "repeat",
    "return", "then", "true", "until", "while",
    "..", "...", "==", ">=", "<=", "~=", "::", "<eof>",
    "<number>", "<name>", "<string>"
}

Definition at line 36 of file lua-5.2.4/src/llex.c.

                                          {
    "and", "break", "do", "else", "elseif",
    "end", "false", "for", "function", "goto", "if",
    "in", "local", "nil", "not", "or", "repeat",
    "return", "then", "true", "until", "while",
    "..", "...", "==", ">=", "<=", "~=", "::", "<eof>",
    "<number>", "<name>", "<string>"
};

Referenced by luaX_init(), and luaX_token2str().