The R Project SVN R

Rev

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

Rev 34946 Rev 35265
Line 137... Line 137...
137 
    strcpy(dll.DLLname, "");
 137 
    strcpy(dll.DLLname, "");
138 
    if(symbol->type == R_C_SYM || symbol->type == R_FORTRAN_SYM) {
 138 
    if(symbol->type == R_C_SYM || symbol->type == R_FORTRAN_SYM) {
139 
	args = naokfind(CDR(args), nargs, naok, dup, &dll);
 139 
	args = naokfind(CDR(args), nargs, naok, dup, &dll);
140 
 
 140 
 
141 
	if(*naok == NA_LOGICAL)
 141 
	if(*naok == NA_LOGICAL)
142 
	    errorcall(call, _("invalid 'naok' value"));
 142 
	    errorcall(call, _("invalid '%s' value"), "naok");
143 
	if(*nargs > MAX_ARGS)
 143 
	if(*nargs > MAX_ARGS)
144 
	    errorcall(call, _("too many arguments in foreign function call"));
 144 
	    errorcall(call, _("too many arguments in foreign function call"));
145 
    } else {
 145 
    } else {
146 
	if (PkgSymbol == NULL) PkgSymbol = install("PACKAGE");
 146 
	if (PkgSymbol == NULL) PkgSymbol = install("PACKAGE");
147 
	/* This has the side effect of setting dll.type if a PACKAGE=
 147 
	/* This has the side effect of setting dll.type if a PACKAGE=