zfs/lua/llex.c

26 #define next(ls) (ls->current = zgetc(ls->z))
30 #define currIsNewline(ls)	(ls->current == '\n' || ls->current == '\r')
44 #define save_and_next(ls) (save(ls, ls->current), next(ls))
147   int old = ls->current;
150   if (currIsNewline(ls) && ls->current != old)
161   ls->current = firstchar;
184   if (ls->current == '\0' || !strchr(set, ls->current))
211 ** the one defined in the current locale and check again
232   int first = ls->current;
233   lua_assert(lisdigit(ls->current));
240     if (lisxdigit(ls->current) || ls->current == '.')
257   int s = ls->current;
260   while (ls->current == '=') {
264   return (ls->current == s) ? count : (-count) - 1;
273     switch (ls->current) {
330   for (i = 0; i < 3 && lisdigit(ls->current); i++) {  /* read up to 3 digits */
331     c[i] = ls->current;
343   while (ls->current != del) {
344     switch (ls->current) {
355         switch (ls->current) {
367             c = ls->current; goto read_save;
371             while (lisspace(ls->current)) {
378             if (!lisdigit(ls->current))
379               escerror(ls, &ls->current, 1, "invalid escape sequence");
402     switch (ls->current) {
413         if (ls->current != '-') return '-';
416         if (ls->current == '[') {  /* long comment? */
426         while (!currIsNewline(ls) && ls->current != EOZ)
441         if (ls->current != '=') return '=';
446         if (ls->current != '=') return '<';
451         if (ls->current != '=') return '>';
456         if (ls->current != '=') return '~';
461         if (ls->current != ':') return ':';
465         read_string(ls, ls->current, seminfo);
475         else if (!lisdigit(ls->current)) return '.';
488         if (lislalpha(ls->current)) {  /* identifier or reserved word? */
492           } while (lislalnum(ls->current));
503           int c = ls->current;