25 #define next(ls) (ls->current = zgetc(ls->z))
29 #define currIsNewline(ls)	(ls->current == '\n' || ls->current == '\r')
43 #define save_and_next(ls) (save(ls, ls->current), next(ls))
146   int old = ls->current;  in inclinenumber()
149   if (currIsNewline(ls) && ls->current != old)  in inclinenumber()
160   ls->current = firstchar;  in luaX_setinput()
183   if (ls->current == '\0' || !strchr(set, ls->current))  in check_next()
231   int first = ls->current;  in read_numeral()
232   lua_assert(lisdigit(ls->current));  in read_numeral()
239     if (lisxdigit(ls->current) || ls->current == '.')  in read_numeral()
256   int s = ls->current;  in skip_sep()
259   while (ls->current == '=') {  in skip_sep()
263   return (ls->current == s) ? count : (-count) - 1;  in skip_sep()
272     switch (ls->current) {  in read_long_string()
329   for (i = 0; i < 3 && lisdigit(ls->current); i++) {  /* read up to 3 digits */  in readdecesc()
330     c[i] = ls->current;  in readdecesc()
342   while (ls->current != del) {  in read_string()
343     switch (ls->current) {  in read_string()
354         switch (ls->current) {  in read_string()
366             c = ls->current; goto read_save;  in read_string()
370             while (lisspace(ls->current)) {  in read_string()
377             if (!lisdigit(ls->current))  in read_string()
378               escerror(ls, &ls->current, 1, "invalid escape sequence");  in read_string()
401     switch (ls->current) {  in llex()
412         if (ls->current != '-') return '-';  in llex()
415         if (ls->current == '[') {  /* long comment? */  in llex()
425         while (!currIsNewline(ls) && ls->current != EOZ)  in llex()
443         if (ls->current != '=') return '=';  in llex()
448         if (ls->current != '=') return '<';  in llex()
453         if (ls->current != '=') return '>';  in llex()
458         if (ls->current != '=') return '~';  in llex()
463         if (ls->current != ':') return ':';  in llex()
467         read_string(ls, ls->current, seminfo);  in llex()
477         else if (!lisdigit(ls->current)) return '.';  in llex()
490         if (lislalpha(ls->current)) {  /* identifier or reserved word? */  in llex()
494           } while (lislalnum(ls->current));  in llex()
505           int c = ls->current;  in llex()