module/lua/llex.c

24 #define next(ls) (ls->current = zgetc(ls->z))
28 #define currIsNewline(ls)	(ls->current == '\n' || ls->current == '\r')
42 #define save_and_next(ls) (save(ls, ls->current), next(ls))
145   int old = ls->current;
148   if (currIsNewline(ls) && ls->current != old)
159   ls->current = firstchar;
182   if (ls->current == '\0' || !strchr(set, ls->current))
209 ** the one defined in the current locale and check again
230   int first = ls->current;
231   lua_assert(lisdigit(ls->current));
238     if (lisxdigit(ls->current) || ls->current == '.')
255   int s = ls->current;
258   while (ls->current == '=') {
262   return (ls->current == s) ? count : (-count) - 1;
271     switch (ls->current) {
328   for (i = 0; i < 3 && lisdigit(ls->current); i++) {  /* read up to 3 digits */
329     c[i] = ls->current;
341   while (ls->current != del) {
342     switch (ls->current) {
353         switch (ls->current) {
365             c = ls->current; goto read_save;
369             while (lisspace(ls->current)) {
376             if (!lisdigit(ls->current))
377               escerror(ls, &ls->current, 1, "invalid escape sequence");
400     switch (ls->current) {
411         if (ls->current != '-') return '-';
414         if (ls->current == '[') {  /* long comment? */
424         while (!currIsNewline(ls) && ls->current != EOZ)
442         if (ls->current != '=') return '=';
447         if (ls->current != '=') return '<';
452         if (ls->current != '=') return '>';
457         if (ls->current != '=') return '~';
462         if (ls->current != ':') return ':';
466         read_string(ls, ls->current, seminfo);
476         else if (!lisdigit(ls->current)) return '.';
489         if (lislalpha(ls->current)) {  /* identifier or reserved word? */
493           } while (lislalnum(ls->current));
504           int c = ls->current;