lua/src/lstrlib.c

229 static const char *match (MatchState *ms, const char *s, const char *p);
232 /* maximum recursion depth for 'match' */
366   /* keeps trying to match with the maximum repetitions */
368     const char *res = match(ms, (s+i), ep+1);
370     i--;  /* else didn't match; reduce 1 repetition to try again */
379     const char *res = match(ms, s, ep+1);
397   if ((res=match(ms, s, p)) == NULL)  /* match failed? */
408   if ((res = match(ms, s, p)) == NULL)  /* match failed? */
425 static const char *match (MatchState *ms, const char *s, const char *p) {
453               p += 4; goto init;  /* return match(ms, s, p + 4); */
466               p = ep; goto init;  /* return match(ms, s, ep); */
468             s = NULL;  /* match failed */
476               p += 2; goto init;  /* return match(ms, s, p + 2) */
486         /* does not match at least once? */
489             p = ep + 1; goto init;  /* return match(ms, s, ep + 1); */
498               if ((res = match(ms, s + 1, ep + 1)) != NULL)
501                 p = ep + 1; goto init;  /* else return match(ms, s, ep + 1); */
506               s++;  /* 1 match already done */
515               s++; p = ep; goto init;  /* return match(ms, s + 1, ep); */
554       lua_pushlstring(ms->L, s, e - s);  /* add whole match */
638       if ((res=match(&ms, s1, p)) != NULL) {
668   const char *lastmatch;  /* end of last match */
669   MatchState ms;  /* match state */
680     if ((e = match(&gm->ms, src, gm->p)) != NULL && e != gm->lastmatch) {
766   const char *lastmatch = NULL;  /* end of last match */
783     reprepstate(&ms);  /* (re)prepare state for new match */
784     if ((e = match(&ms, src, p)) != NULL && e != lastmatch) {  /* match? */
813 ** Hexadecimal floating-point formatter
859     e -= L_NBFD;  /* this digit goes before the radix point */
861       buff[n++] = lua_getlocaledecpoint();  /* add radix point */
937     char point = lua_getlocaledecpoint();  /* try locale point */
938     char *ppoint = (char *)memchr(buff, point, nb);
1177   Kfloat,	/* floating-point numbers */
1377       case Kfloat: {  /* floating-point options */
1573   {"match", str_match},