28 #define next(ls) (ls->current = zgetc(ls->z))
33 #define currIsNewline(ls)	(ls->current == '\n' || ls->current == '\r')
48 #define save_and_next(ls) (save(ls, ls->current), next(ls))
130   int old = ls->current;  in inclinenumber()
133   if (currIsNewline(ls) && ls->current != old)  in inclinenumber()
164   if (!strchr(set, ls->current))  in check_next()
195   lua_assert(isdigit(ls->current));  in read_numeral()
198   } while (isdigit(ls->current) || ls->current == '.');  in read_numeral()
201   while (isalnum(ls->current) || ls->current == '_')  in read_numeral()
212   int s = ls->current;  in skip_sep()
215   while (ls->current == '=') {  in skip_sep()
219   return (ls->current == s) ? count : (-count) - 1;  in skip_sep()
230     switch (ls->current) {  in read_long_string()
280   while (ls->current != del) {  in read_string()
281     switch (ls->current) {  in read_string()
292         switch (ls->current) {  in read_string()
304             if (!isdigit(ls->current))  in read_string()
310                 c = 10*c + (ls->current-'0');  in read_string()
312               } while (++i<3 && isdigit(ls->current));  in read_string()
337     switch (ls->current) {  in llex()
345         if (ls->current != '-') return '-';  in llex()
348         if (ls->current == '[') {  in llex()
358         while (!currIsNewline(ls) && ls->current != EOZ)  in llex()
373         if (ls->current != '=') return '=';  in llex()
378         if (ls->current != '=') return '<';  in llex()
383         if (ls->current != '=') return '>';  in llex()
388         if (ls->current != '=') return '~';  in llex()
393         read_string(ls, ls->current, seminfo);  in llex()
403         else if (!isdigit(ls->current)) return '.';  in llex()
413         if (isspace(ls->current)) {  in llex()
418         else if (isdigit(ls->current)) {  in llex()
422         else if (isalpha(ls->current) || ls->current == '_') {  in llex()
427           } while (isalnum(ls->current) || ls->current == '_');  in llex()
438           int c = ls->current;  in llex()