The R Project SVN R

Rev

Rev 60667 | Rev 66712 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 60667 Rev 60844
Line 2406... Line 2406...
2406
	pcre_fullinfo(re_pcre, re_pe, PCRE_INFO_NAMETABLE, &name_table);
2406
	pcre_fullinfo(re_pcre, re_pe, PCRE_INFO_NAMETABLE, &name_table);
2407
	info_code = 
2407
	info_code = 
2408
	    pcre_fullinfo(re_pcre, re_pe, PCRE_INFO_CAPTURECOUNT, 
2408
	    pcre_fullinfo(re_pcre, re_pe, PCRE_INFO_CAPTURECOUNT, 
2409
			  &capture_count);
2409
			  &capture_count);
2410
	if(info_code < 0)
2410
	if(info_code < 0)
2411
	    error(_("pcre_fullinfo returned '%d' "), info_code);
2411
	    error(_("'pcre_fullinfo' returned '%d' "), info_code);
2412
	ovector_size = (capture_count + 1) * 3;
2412
	ovector_size = (capture_count + 1) * 3;
2413
	ovector = (int *) malloc(ovector_size*sizeof(int));
2413
	ovector = (int *) malloc(ovector_size*sizeof(int));
2414
	SEXP thisname;
2414
	SEXP thisname;
2415
	PROTECT(capture_names = allocVector(STRSXP, capture_count));
2415
	PROTECT(capture_names = allocVector(STRSXP, capture_count));
2416
	for(i = 0; i < name_count; i++) {
2416
	for(i = 0; i < name_count; i++) {