36 #define next(ls)	(ls->current = zgetc(ls->z))
40 #define currIsNewline(ls)	(ls->current == '\n' || ls->current == '\r')
55 #define save_and_next(ls) (save(ls, ls->current), next(ls))
165   int old = ls->current;  in inclinenumber()
168   if (currIsNewline(ls) && ls->current != old)  in inclinenumber()
179   ls->current = firstchar;  in luaX_setinput()
200   if (ls->current == c) {  in check_next1()
214   if (ls->current == set[0] || ls->current == set[1]) {  in check_next2()
239   int first = ls->current;  in read_numeral()
240   lua_assert(lisdigit(ls->current));  in read_numeral()
247     else if (lisxdigit(ls->current) || ls->current == '.')  /* '%x|%.' */  in read_numeral()
251   if (lislalpha(ls->current))  /* is numeral touching a letter? */  in read_numeral()
271   int first = ls->current;  in read_numeral()
272   lua_assert(lisdigit(ls->current));  in read_numeral()
277     if (lisxdigit(ls->current))  in read_numeral()
298   int s = ls->current;  in skip_sep()
301   while (ls->current == '=') {  in skip_sep()
305   return (ls->current == s) ? count + 2  in skip_sep()
317     switch (ls->current) {  in read_long_string()
352     if (ls->current != EOZ)  in esccheck()
361   esccheck (ls, lisxdigit(ls->current), "hexadecimal digit expected");  in gethexa()
362   return luaO_hexavalue(ls->current);  in gethexa()
378   esccheck(ls, ls->current == '{', "missing '{'");  in readutf8esc()
380   while (cast_void(save_and_next(ls)), lisxdigit(ls->current)) {  in readutf8esc()
383     r = (r << 4) + luaO_hexavalue(ls->current);  in readutf8esc()
385   esccheck(ls, ls->current == '}', "missing '}'");  in readutf8esc()
403   for (i = 0; i < 3 && lisdigit(ls->current); i++) {  /* read up to 3 digits */  in readdecesc()
404     r = 10*r + ls->current - '0';  in readdecesc()
415   while (ls->current != del) {  in read_string()
416     switch (ls->current) {  in read_string()
427         switch (ls->current) {  in read_string()
440             c = ls->current; goto read_save;  in read_string()
445             while (lisspace(ls->current)) {  in read_string()
452             esccheck(ls, lisdigit(ls->current), "invalid escape sequence");  in read_string()
479     switch (ls->current) {  in llex()
490         if (ls->current != '-') return '-';  in llex()
493         if (ls->current == '[') {  /* long comment? */  in llex()
503         while (!currIsNewline(ls) && ls->current != EOZ)  in llex()
550         read_string(ls, ls->current, seminfo);  in llex()
561         else if (!lisdigit(ls->current)) return '.';  in llex()
575         if (lislalpha(ls->current)) {  /* identifier or reserved word? */  in llex()
579           } while (lislalnum(ls->current));  in llex()
590           int c = ls->current;  in llex()