The R Project SVN R

Rev

Rev 26844 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 26844 Rev 28008
Line 25... Line 25...
25 
 
 25 
 
26 
#include <sys/types.h>
 26 
#include <sys/types.h>
27 
 
 27 
 
28 
#include "Defn.h"
 28 
#include "Defn.h"
29 
 
 29 
 
30 
#if 1 /* we always have PCRE */
 - 
 
31 
 
 - 
 
32 
#ifdef HAVE_PCRE_PCRE_H
 30 
#ifdef HAVE_PCRE_PCRE_H
33 
# include <pcre/pcre.h>
 31 
# include <pcre/pcre.h>
34 
#else
 32 
#else
35 
# include <pcre.h>
 33 
# include <pcre.h>
36 
#endif
 34 
#endif
Line 337... Line 335...
337 
    (pcre_free)(re_pcre);
 335 
    (pcre_free)(re_pcre);
338 
    setAttrib(ans, install("match.length"), matchlen);
 336 
    setAttrib(ans, install("match.length"), matchlen);
339 
    UNPROTECT(2);
 337 
    UNPROTECT(2);
340 
    return ans;
 338 
    return ans;
341 
}
 339 
}
342 
#else
 - 
 
343 
SEXP do_pgrep(SEXP call, SEXP op, SEXP args, SEXP env)
 - 
 
344 
{
 - 
 
345 
    error("`perl = TRUE' is not supported on this platform");
 - 
 
346 
}
 - 
 
347 
SEXP do_pgsub(SEXP call, SEXP op, SEXP args, SEXP env)
 - 
 
348 
{
 - 
 
349 
    error("`perl = TRUE' is not supported on this platform");
 - 
 
350 
}
 - 
 
351 
SEXP do_pregexpr(SEXP call, SEXP op, SEXP args, SEXP env)
 - 
 
352 
{
 - 
 
353 
    error("`perl = TRUE' is not supported on this platform");
 - 
 
354 
}
 - 
 
355 
#endif
 -