The R Project SVN R

Rev

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

Rev 60667 Rev 63181
Line 782... Line 782...
782 
	int i;
 782 
	int i;
783 
	SEXP completions,
 783 
	SEXP completions,
784 
	    assignCall = PROTECT(lang2(RComp_assignTokenSym, mkString(text))),
 784 
	    assignCall = PROTECT(lang2(RComp_assignTokenSym, mkString(text))),
785 
	    completionCall = PROTECT(lang1(RComp_completeTokenSym)),
 785 
	    completionCall = PROTECT(lang1(RComp_completeTokenSym)),
786 
	    retrieveCall = PROTECT(lang1(RComp_retrieveCompsSym));
 786 
	    retrieveCall = PROTECT(lang1(RComp_retrieveCompsSym));
- 
 
 787 
	const void *vmax = vmaxget();
787 
 
 788 
 
788 
	eval(assignCall, rcompgen_rho);
 789 
	eval(assignCall, rcompgen_rho);
789 
	eval(completionCall, rcompgen_rho);
 790 
	eval(completionCall, rcompgen_rho);
790 
	PROTECT(completions = eval(retrieveCall, rcompgen_rho));
 791 
	PROTECT(completions = eval(retrieveCall, rcompgen_rho));
791 
	list_index = 0;
 792 
	list_index = 0;
Line 795... Line 796...
795 
	    if (!compstrings)  return (char *)NULL;
 796 
	    if (!compstrings)  return (char *)NULL;
796 
	    for (i = 0; i < ncomp; i++)
 797 
	    for (i = 0; i < ncomp; i++)
797 
		compstrings[i] = strdup(translateChar(STRING_ELT(completions, i)));
 798 
		compstrings[i] = strdup(translateChar(STRING_ELT(completions, i)));
798 
	}
 799 
	}
799 
	UNPROTECT(4);
 800 
	UNPROTECT(4);
- 
 
 801 
	vmaxset(vmax);
800 
    }
 802 
    }
801 
 
 803 
 
802 
    if (list_index < ncomp)
 804 
    if (list_index < ncomp)
803 
	return compstrings[list_index++];
 805 
	return compstrings[list_index++];
804 
    else {
 806 
    else {