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))
154   int old = ls->current;  in inclinenumber()
157   if (currIsNewline(ls) && ls->current != old)  in inclinenumber()
168   ls->current = firstchar;  in luaX_setinput()
189   if (ls->current == c) {  in check_next1()
203   if (ls->current == set[0] || ls->current == set[1]) {  in check_next2()
227   int first = ls->current;  in read_numeral()
228   lua_assert(lisdigit(ls->current));  in read_numeral()
235     else if (lisxdigit(ls->current) || ls->current == '.')  /* '%x|%.' */  in read_numeral()
239   if (lislalpha(ls->current))  /* is numeral touching a letter? */  in read_numeral()
264   int s = ls->current;  in skip_sep()
267   while (ls->current == '=') {  in skip_sep()
271   return (ls->current == s) ? count + 2  in skip_sep()
283     switch (ls->current) {  in read_long_string()
318     if (ls->current != EOZ)  in esccheck()
327   esccheck (ls, lisxdigit(ls->current), "hexadecimal digit expected");  in gethexa()
328   return luaO_hexavalue(ls->current);  in gethexa()
344   esccheck(ls, ls->current == '{', "missing '{'");  in readutf8esc()
346   while (cast_void(save_and_next(ls)), lisxdigit(ls->current)) {  in readutf8esc()
349     r = (r << 4) + luaO_hexavalue(ls->current);  in readutf8esc()
351   esccheck(ls, ls->current == '}', "missing '}'");  in readutf8esc()
369   for (i = 0; i < 3 && lisdigit(ls->current); i++) {  /* read up to 3 digits */  in readdecesc()
370     r = 10*r + ls->current - '0';  in readdecesc()
381   while (ls->current != del) {  in read_string()
382     switch (ls->current) {  in read_string()
393         switch (ls->current) {  in read_string()
406             c = ls->current; goto read_save;  in read_string()
411             while (lisspace(ls->current)) {  in read_string()
418             esccheck(ls, lisdigit(ls->current), "invalid escape sequence");  in read_string()
445     switch (ls->current) {  in llex()
456         if (ls->current != '-') return '-';  in llex()
459         if (ls->current == '[') {  /* long comment? */  in llex()
469         while (!currIsNewline(ls) && ls->current != EOZ)  in llex()
516         read_string(ls, ls->current, seminfo);  in llex()
526         else if (!lisdigit(ls->current)) return '.';  in llex()
537         if (lislalpha(ls->current)) {  /* identifier or reserved word? */  in llex()
541           } while (lislalnum(ls->current));  in llex()
552           int c = ls->current;  in llex()