The R Project SVN R

Rev

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

Rev 61782 Rev 63181
Line 229... Line 229...
229 
    }
 229 
    }
230 
#endif
 230 
#endif
231 
 
 231 
 
232 
    /* Make up the load symbol */
 232 
    /* Make up the load symbol */
233 
    if(TYPEOF(op) == STRSXP) {
 233 
    if(TYPEOF(op) == STRSXP) {
- 
 
 234 
	const void *vmax = vmaxget();
234 
	p = translateChar(STRING_ELT(op, 0));
 235 
	p = translateChar(STRING_ELT(op, 0));
235 
	if(strlen(p) >= MaxSymbolBytes)
 236 
	if(strlen(p) >= MaxSymbolBytes)
236 
	    error(_("symbol '%s' is too long"), p);
 237 
	    error(_("symbol '%s' is too long"), p);
237 
	q = buf;
 238 
	q = buf;
238 
	while ((*q = *p) != '\0') {
 239 
	while ((*q = *p) != '\0') {
239 
	    if(symbol->type == R_FORTRAN_SYM) *q = (char) tolower(*q);
 240 
	    if(symbol->type == R_FORTRAN_SYM) *q = (char) tolower(*q);
240 
	    p++;
 241 
	    p++;
241 
	    q++;
 242 
	    q++;
242 
	}
 243 
	}
- 
 
 244 
	vmaxset(vmax);
243 
    }
 245 
    }
244 
 
 246 
 
245 
    if(dll.type != FILENAME && strlen(ns)) {
 247 
    if(dll.type != FILENAME && strlen(ns)) {
246 
	/* no PACKAGE= arg, so see if we can identify a DLL
 248 
	/* no PACKAGE= arg, so see if we can identify a DLL
247 
	   from the namespace defining the function */
 249 
	   from the namespace defining the function */
Line 1387... Line 1389...
1387 
    VarFun fun = NULL;
 1389 
    VarFun fun = NULL;
1388 
    SEXP ans, pa, s;
 1390 
    SEXP ans, pa, s;
1389 
    R_RegisteredNativeSymbol symbol = {R_C_SYM, {NULL}, NULL};
 1391 
    R_RegisteredNativeSymbol symbol = {R_C_SYM, {NULL}, NULL};
1390 
    R_NativePrimitiveArgType *checkTypes = NULL;
 1392 
    R_NativePrimitiveArgType *checkTypes = NULL;
1391 
    R_NativeArgStyle *argStyles = NULL;
 1393 
    R_NativeArgStyle *argStyles = NULL;
1392 
    void *vmax;
 1394 
    const void *vmax;
1393 
    char symName[MaxSymbolBytes];
 1395 
    char symName[MaxSymbolBytes];
1394 
 
 1396 
 
1395 
    if (length(args) < 1) errorcall(call, _("'.NAME' is missing"));
 1397 
    if (length(args) < 1) errorcall(call, _("'.NAME' is missing"));
1396 
    check1arg2(args, call, ".NAME");
 1398 
    check1arg2(args, call, ".NAME");
1397 
    if (NaokSymbol == NULL || DupSymbol == NULL || PkgSymbol == NULL) {
 1399 
    if (NaokSymbol == NULL || DupSymbol == NULL || PkgSymbol == NULL) {