[perl5.git] / dquote_static.c

/*    dquote_static.c
 *
 * This file contains static inline functions that are related to
 * parsing double-quotish expressions, but are used in more than
 * one file.
 *
 * It is currently #included by regcomp.c and toke.c.
*/

/*
 - regcurly - a little FSA that accepts {\d+,?\d*}
    Pulled from regcomp.c.
 */

/* embed.pl doesn't yet know how to handle static inline functions, so
   manually decorate it here with gcc-style attributes.
*/
PERL_STATIC_INLINE I32
regcurly(register const char *s)
    __attribute__warn_unused_result__
    __attribute__pure__
    __attribute__nonnull__(1);

PERL_STATIC_INLINE I32
regcurly(register const char *s)
{
    assert(s);

    if (*s++ != '{')
	return FALSE;
    if (!isDIGIT(*s))
	return FALSE;
    while (isDIGIT(*s))
	s++;
    if (*s == ',') {
	s++;
	while (isDIGIT(*s))
	    s++;
    }
    if (*s != '}')
	return FALSE;
    return TRUE;
}
/*
 * Local variables:
 * c-indentation-style: bsd
 * c-basic-offset: 4
 * indent-tabs-mode: t
 * End:
 *
 * ex: set ts=8 sts=4 sw=4 noet:
 */
Commit	Line	Data
04e98a4d AD	1	/* dquote_static.c
	2	*
	3	* This file contains static inline functions that are related to
	4	* parsing double-quotish expressions, but are used in more than
	5	* one file.
	6	*
	7	* It is currently #included by regcomp.c and toke.c.
	8	*/
	9
	10	/*
	11	- regcurly - a little FSA that accepts {\d+,?\d*}
	12	Pulled from regcomp.c.
	13	*/
	14
	15	/* embed.pl doesn't yet know how to handle static inline functions, so
	16	manually decorate it here with gcc-style attributes.
	17	*/
	18	PERL_STATIC_INLINE I32
	19	regcurly(register const char *s)
	20	__attribute__warn_unused_result__
	21	__attribute__pure__
	22	__attribute__nonnull__(1);
	23
	24	PERL_STATIC_INLINE I32
	25	regcurly(register const char *s)
	26	{
	27	assert(s);
	28
	29	if (*s++ != '{')
	30	return FALSE;
	31	if (!isDIGIT(*s))
	32	return FALSE;
	33	while (isDIGIT(*s))
	34	s++;
2ec31dd9	35	if (*s == ',') {
04e98a4d	36	s++;
2ec31dd9 KW	37	while (isDIGIT(*s))
	38	s++;
	39	}
04e98a4d AD	40	if (*s != '}')
	41	return FALSE;
	42	return TRUE;
	43	}
	44	/*
	45	* Local variables:
	46	* c-indentation-style: bsd
	47	* c-basic-offset: 4
	48	* indent-tabs-mode: t
	49	* End:
	50	*
	51	* ex: set ts=8 sts=4 sw=4 noet:
	52	*/