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))
152   int old = ls->current;  in inclinenumber()
155   if (currIsNewline(ls) && ls->current != old)  in inclinenumber()
166   ls->current = firstchar;  in luaX_setinput()
187   if (ls->current == c) {  in check_next1()
201   if (ls->current == set[0] || ls->current == set[1]) {  in check_next2()
217   int first = ls->current;  in read_numeral()
218   lua_assert(lisdigit(ls->current));  in read_numeral()
225     if (lisxdigit(ls->current))  in read_numeral()
227     else if (ls->current == '.')  in read_numeral()
253   int s = ls->current;  in skip_sep()
256   while (ls->current == '=') {  in skip_sep()
260   return (ls->current == s) ? count : (-count) - 1;  in skip_sep()
270     switch (ls->current) {  in read_long_string()
305     if (ls->current != EOZ)  in esccheck()
314   esccheck (ls, lisxdigit(ls->current), "hexadecimal digit expected");  in gethexa()
315   return luaO_hexavalue(ls->current);  in gethexa()
331   esccheck(ls, ls->current == '{', "missing '{'");  in readutf8esc()
333   while ((save_and_next(ls), lisxdigit(ls->current))) {  in readutf8esc()
335     r = (r << 4) + luaO_hexavalue(ls->current);  in readutf8esc()
338   esccheck(ls, ls->current == '}', "missing '}'");  in readutf8esc()
356   for (i = 0; i < 3 && lisdigit(ls->current); i++) {  /* read up to 3 digits */  in readdecesc()
357     r = 10*r + ls->current - '0';  in readdecesc()
368   while (ls->current != del) {  in read_string()
369     switch (ls->current) {  in read_string()
380         switch (ls->current) {  in read_string()
393             c = ls->current; goto read_save;  in read_string()
398             while (lisspace(ls->current)) {  in read_string()
405             esccheck(ls, lisdigit(ls->current), "invalid escape sequence");  in read_string()
432     switch (ls->current) {  in llex()
443         if (ls->current != '-') return '-';  in llex()
446         if (ls->current == '[') {  /* long comment? */  in llex()
456         while (!currIsNewline(ls) && ls->current != EOZ)  in llex()
503         read_string(ls, ls->current, seminfo);  in llex()
513         else if (!lisdigit(ls->current)) return '.';  in llex()
524         if (lislalpha(ls->current)) {  /* identifier or reserved word? */  in llex()
528           } while (lislalnum(ls->current));  in llex()
539           int c = ls->current;  in llex()