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;  in inclinenumber()
148   if (currIsNewline(ls) && ls->current != old)  in inclinenumber()
159   ls->current = firstchar;  in luaX_setinput()
182   if (ls->current == '\0' || !strchr(set, ls->current))  in check_next()
230   int first = ls->current;  in read_numeral()
231   lua_assert(lisdigit(ls->current));  in read_numeral()
238     if (lisxdigit(ls->current) || ls->current == '.')  in read_numeral()
255   int s = ls->current;  in skip_sep()
258   while (ls->current == '=') {  in skip_sep()
262   return (ls->current == s) ? count : (-count) - 1;  in skip_sep()
271     switch (ls->current) {  in read_long_string()
328   for (i = 0; i < 3 && lisdigit(ls->current); i++) {  /* read up to 3 digits */  in readdecesc()
329     c[i] = ls->current;  in readdecesc()
341   while (ls->current != del) {  in read_string()
342     switch (ls->current) {  in read_string()
353         switch (ls->current) {  in read_string()
365             c = ls->current; goto read_save;  in read_string()
369             while (lisspace(ls->current)) {  in read_string()
376             if (!lisdigit(ls->current))  in read_string()
377               escerror(ls, &ls->current, 1, "invalid escape sequence");  in read_string()
400     switch (ls->current) {  in llex()
411         if (ls->current != '-') return '-';  in llex()
414         if (ls->current == '[') {  /* long comment? */  in llex()
424         while (!currIsNewline(ls) && ls->current != EOZ)  in llex()
442         if (ls->current != '=') return '=';  in llex()
447         if (ls->current != '=') return '<';  in llex()
452         if (ls->current != '=') return '>';  in llex()
457         if (ls->current != '=') return '~';  in llex()
462         if (ls->current != ':') return ':';  in llex()
466         read_string(ls, ls->current, seminfo);  in llex()
476         else if (!lisdigit(ls->current)) return '.';  in llex()
489         if (lislalpha(ls->current)) {  /* identifier or reserved word? */  in llex()
493           } while (lislalnum(ls->current));  in llex()
504           int c = ls->current;  in llex()