c_dd94.c

这是一个DFA简化和生成LL(1)分析表的程序,自动生成表格及图形

/*
 * This file was generated automatically by ExtUtils::ParseXS version 2.12 from the
 * contents of C_dd94.xs. Do not edit this file, edit C_dd94.xs instead.
 *
 *	ANY CHANGES MADE HERE WILL BE LOST! 
 *
 */

#line 1 "C_dd94.xs"
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "INLINE.h"
int re_DFA_C_0 (char* s) {
    int pos = -1;
    int state = 1;
    int done = -1;

    while (1) {
        char c;
        c = s[++pos];
        if (state == 1) {
            if (c == '\0') break;
            if (c == ''') {
                state = 2;
                continue;
            }
            break;
        }
        if (state == 2) {
            done = pos;
            break;
        }
        fprintf( stderr, "error: Unknown state: %d", state );
        exit(2);
    }
    return done;
}

#ifndef PERL_UNUSED_VAR
#  define PERL_UNUSED_VAR(var) if (0) var = var
#endif

#line 45 "C_dd94.c"

XS(XS_re__DFA__C_re_DFA_C_0); /* prototype to pass -Wmissing-prototypes */
XS(XS_re__DFA__C_re_DFA_C_0)
{
    dXSARGS;
    if (items != 1)
	Perl_croak(aTHX_ "Usage: re::DFA::C::re_DFA_C_0(s)");
    PERL_UNUSED_VAR(cv); /* -W */
    {
	char *	s = (char *)SvPV_nolen(ST(0));
	int	RETVAL;
	dXSTARG;

	RETVAL = re_DFA_C_0(s);
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

#ifdef __cplusplus
extern "C"
#endif
XS(boot_re__DFA__C_dd94); /* prototype to pass -Wmissing-prototypes */
XS(boot_re__DFA__C_dd94)
{
    dXSARGS;
    char* file = __FILE__;

    PERL_UNUSED_VAR(cv); /* -W */
    PERL_UNUSED_VAR(items); /* -W */
    XS_VERSION_BOOTCHECK ;

        newXS("re::DFA::C::re_DFA_C_0", XS_re__DFA__C_re_DFA_C_0, file);
    XSRETURN_YES;
}