The R Project SVN R

Rev

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

Rev 62580 Rev 63181
Line 1077... Line 1077...
1077 
  for which it is intended (i.e. .C(), .Call(), etc.)
 1077 
  for which it is intended (i.e. .C(), .Call(), etc.)
1078 
 */
 1078 
 */
1079 
SEXP attribute_hidden
 1079 
SEXP attribute_hidden
1080 
R_getSymbolInfo(SEXP sname, SEXP spackage, SEXP withRegistrationInfo)
 1080 
R_getSymbolInfo(SEXP sname, SEXP spackage, SEXP withRegistrationInfo)
1081 
{
 1081 
{
- 
 
 1082 
    const void *vmax = vmaxget();
1082 
    const char *package, *name;
 1083 
    const char *package, *name;
1083 
    R_RegisteredNativeSymbol symbol = {R_ANY_SYM, {NULL}, NULL};
 1084 
    R_RegisteredNativeSymbol symbol = {R_ANY_SYM, {NULL}, NULL};
1084 
    SEXP sym = R_NilValue;
 1085 
    SEXP sym = R_NilValue;
1085 
    DL_FUNC f = NULL;
 1086 
    DL_FUNC f = NULL;
1086 
 
 1087 
 
Line 1104... Line 1105...
1104 
 
 1105 
 
1105 
    if(f)
 1106 
    if(f)
1106 
	sym = createRSymbolObject(sname, f, &symbol,
 1107 
	sym = createRSymbolObject(sname, f, &symbol,
1107 
				  LOGICAL(withRegistrationInfo)[0]);
 1108 
				  LOGICAL(withRegistrationInfo)[0]);
1108 
 
 1109 
 
- 
 
 1110 
    vmaxset(vmax);
1109 
    return(sym);
 1111 
    return sym;
1110 
}
 1112 
}
1111 
 
 1113 
 
1112 
SEXP attribute_hidden
 1114 
SEXP attribute_hidden
1113 
R_getDllTable()
 1115 
R_getDllTable()
1114 
{
 1116 
{