The R Project SVN R

Rev

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

Rev 24068 Rev 24735
Line 300... Line 300...
300 
 
 300 
 
301 
/* Foreign Function Interface.  This code allows a user to call C */
 301 
/* Foreign Function Interface.  This code allows a user to call C */
302 
/* or Fortran code which is either statically or dynamically linked. */
 302 
/* or Fortran code which is either statically or dynamically linked. */
303 
 
 303 
 
304 
/* NB: despite its name, this leaves NAOK and DUP arguments on the list */
 304 
/* NB: despite its name, this leaves NAOK and DUP arguments on the list */
305 
#ifdef OLD
 - 
 
306 
static SEXP naoktrim(SEXP s, int * len, int *naok, int *dup)
 - 
 
307 
{
 - 
 
308 
    SEXP value;
 - 
 
309 
    if(s == R_NilValue) {
 - 
 
310 
	value = R_NilValue;
 - 
 
311 
	*naok = 0;
 - 
 
312 
	*dup = 1;
 - 
 
313 
	*len = 0;
 - 
 
314 
    }
 - 
 
315 
    else if(TAG(s) == NaokSymbol) {
 - 
 
316 
	value = naoktrim(CDR(s), len, naok, dup);
 - 
 
317 
	*naok = asLogical(CAR(s));
 - 
 
318 
	(*len)++;
 - 
 
319 
    }
 - 
 
320 
    else if(TAG(s) == DupSymbol) {
 - 
 
321 
	value = naoktrim(CDR(s), len, naok, dup);
 - 
 
322 
	*dup = asLogical(CAR(s));
 - 
 
323 
	(*len)++;
 - 
 
324 
    }
 - 
 
325 
    else if(TAG(s) == PkgSymbol) {
 - 
 
326 
	value = naoktrim(CDR(s), len, naok, dup);
 - 
 
327 
	strcpy(DLLname, CHAR(STRING_ELT(CAR(s), 0)));
 - 
 
328 
	return value;
 - 
 
329 
    }
 - 
 
330 
    else {
 - 
 
331 
	CDR(s) = naoktrim(CDR(s), len, naok, dup);
 - 
 
332 
	(*len)++;
 - 
 
333 
    }
 - 
 
334 
    return s;
 - 
 
335 
}
 - 
 
336 
#endif
 - 
 
337 
 
 305 
 
338 
/* find NAOK and DUP, find and remove PACKAGE */
 306 
/* find NAOK and DUP, find and remove PACKAGE */
339 
static SEXP naokfind(SEXP args, int * len, int *naok, int *dup)
 307 
static SEXP naokfind(SEXP args, int * len, int *naok, int *dup)
340 
{
 308 
{
341 
    SEXP s, prev;
 309 
    SEXP s, prev;