Scol » Lib2D GTK » Utils_g

#define GLIB_PCRE_PKG_NB         31

    int mpattern, mstring, mreplace, mcompile, mstart, mmatch;

    gchar *pattern, *string, *replace, *result;

    GRegex *regex;

    GError *error = NULL;

    MMechostr (MSKDEBUG, "SCOL_pcreNormalReplace : entering\n");

    mmatch = MMpull (m);

    mstart = MTOI (MMpull (m));

    mcompile = MMpull (m);

    mreplace = MTOP (MMpull (m));

    mstring = MTOP (MMpull (m));

    mpattern = MTOP (MMpull (m));

    if(mstring == NIL)

    {

        MMechostr (0, "SCOL_pcreNormalReplace error : string is nil");

        MMpush (m, NIL);

        return 0;

    }

    if ((mreplace == NIL) || (mpattern == NIL))

    {

        Mpushstrbloc (m, MMstartstr (m, mstring));

        return 0;

    }

    if (mstart < 0)

        mstart = 0;

    if (mcompile == NIL)

        mcompile = 0;

    if (mmatch == NIL)

        mmatch = 0;

    pattern = SCOLUTF8 (MMstartstr (m, mpattern), MMsizestr (m, mpattern));

    string = SCOLUTF8 (MMstartstr (m, mstring), MMsizestr (m, mstring));

    replace = SCOLUTF8 (MMstartstr (m, mreplace), MMsizestr (m, mreplace));

    regex = scol_pcre_regex_new (pattern, mcompile, mmatch);

    result = g_regex_replace (regex, string, strlen (string), mstart, replace, mmatch, &error);

    g_regex_unref (regex);

    if (error != NULL)

    {

        MMechostr (0, "SCOL_pcreNormalReplace error : %s\n", error->message);

        MMpush (m, NIL);

        g_error_free (error);

    }

    Mpushstrbloc (m, UTF8SCOL (result, strlen (result)));

    g_free (result);

    g_free (string);

    g_free (pattern);

    "_pcreNormalSplit",

    "_pcreNormalReplace"

    SCOL_pcreNormalSplit,

    SCOL_pcreNormalReplace

    6,

    "fun [S S I I I I] [S r1]",

    "fun [S S S I I I] S"