lua/src/llex.c

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))
157   int old = ls->current;
160   if (currIsNewline(ls) && ls->current != old)
171   ls->current = firstchar;
192   if (ls->current == c) {
201 ** Check whether current char is in set 'set' (with two chars) and
206   if (ls->current == set[0] || ls->current == set[1]) {
230   int first = ls->current;
231   lua_assert(lisdigit(ls->current));
238     else if (lisxdigit(ls->current) || ls->current == '.')  /* '%x|%.' */
242   if (lislalpha(ls->current))  /* is numeral touching a letter? */
267   int s = ls->current;
270   while (ls->current == '=') {
274   return (ls->current == s) ? count + 2
286     switch (ls->current) {
321     if (ls->current != EOZ)
322       save_and_next(ls);  /* add current to buffer for error message */
330   esccheck (ls, lisxdigit(ls->current), "hexadecimal digit expected");
331   return luaO_hexavalue(ls->current);
347   esccheck(ls, ls->current == '{', "missing '{'");
349   while (cast_void(save_and_next(ls)), lisxdigit(ls->current)) {
352     r = (r << 4) + luaO_hexavalue(ls->current);
354   esccheck(ls, ls->current == '}', "missing '}'");
372   for (i = 0; i < 3 && lisdigit(ls->current); i++) {  /* read up to 3 digits */
373     r = 10*r + ls->current - '0';
384   while (ls->current != del) {
385     switch (ls->current) {
396         switch (ls->current) {
409             c = ls->current; goto read_save;
414             while (lisspace(ls->current)) {
421             esccheck(ls, lisdigit(ls->current), "invalid escape sequence");
448     switch (ls->current) {
459         if (ls->current != '-') return '-';
462         if (ls->current == '[') {  /* long comment? */
472         while (!currIsNewline(ls) && ls->current != EOZ)
519         read_string(ls, ls->current, seminfo);
529         else if (!lisdigit(ls->current)) return '.';
540         if (lislalpha(ls->current)) {  /* identifier or reserved word? */
544           } while (lislalnum(ls->current));
555           int c = ls->current;