32 #define next(ls)	(ls->current = zgetc(ls->z))
36 #define currIsNewline(ls)	(ls->current == '\n' || ls->current == '\r')
51 #define save_and_next(ls) (save(ls, ls->current), next(ls))
157   int old = ls->current;  in inclinenumber()
160   if (currIsNewline(ls) && ls->current != old)  in inclinenumber()
171   ls->current = firstchar;  in luaX_setinput()
192   if (ls->current == c) {  in check_next1()
206   if (ls->current == set[0] || ls->current == set[1]) {  in check_next2()
230   int first = ls->current;  in read_numeral()
231   lua_assert(lisdigit(ls->current));  in read_numeral()
238     else if (lisxdigit(ls->current) || ls->current == '.')  /* '%x|%.' */  in read_numeral()
242   if (lislalpha(ls->current))  /* is numeral touching a letter? */  in read_numeral()
267   int s = ls->current;  in skip_sep()
270   while (ls->current == '=') {  in skip_sep()
274   return (ls->current == s) ? count + 2  in skip_sep()
286     switch (ls->current) {  in read_long_string()
321     if (ls->current != EOZ)  in esccheck()
330   esccheck (ls, lisxdigit(ls->current), "hexadecimal digit expected");  in gethexa()
331   return luaO_hexavalue(ls->current);  in gethexa()
347   esccheck(ls, ls->current == '{', "missing '{'");  in readutf8esc()
349   while (cast_void(save_and_next(ls)), lisxdigit(ls->current)) {  in readutf8esc()
352     r = (r << 4) + luaO_hexavalue(ls->current);  in readutf8esc()
354   esccheck(ls, ls->current == '}', "missing '}'");  in readutf8esc()
372   for (i = 0; i < 3 && lisdigit(ls->current); i++) {  /* read up to 3 digits */  in readdecesc()
373     r = 10*r + ls->current - '0';  in readdecesc()
384   while (ls->current != del) {  in read_string()
385     switch (ls->current) {  in read_string()
396         switch (ls->current) {  in read_string()
409             c = ls->current; goto read_save;  in read_string()
414             while (lisspace(ls->current)) {  in read_string()
421             esccheck(ls, lisdigit(ls->current), "invalid escape sequence");  in read_string()
448     switch (ls->current) {  in llex()
459         if (ls->current != '-') return '-';  in llex()
462         if (ls->current == '[') {  /* long comment? */  in llex()
472         while (!currIsNewline(ls) && ls->current != EOZ)  in llex()
519         read_string(ls, ls->current, seminfo);  in llex()
529         else if (!lisdigit(ls->current)) return '.';  in llex()
540         if (lislalpha(ls->current)) {  /* identifier or reserved word? */  in llex()
544           } while (lislalnum(ls->current));  in llex()
555           int c = ls->current;  in llex()