Displaying 2 results from an estimated 2 matches for "direct_dottcl".
2024 May 28
1
How to call directly "dotTcl" C-function of the tcltk-package from the C-code of an external package?
...numArgs;
} Rf_DotCallSymbol;
typedef Rf_DotCallSymbol Rf_DotExternalSymbol;
struct Rf_RegisteredNativeSymbol {
NativeSymbolType type;
union {
Rf_DotCSymbol *c;
Rf_DotCallSymbol *call;
Rf_DotFortranSymbol *fortran;
Rf_DotExternalSymbol *external;
} symbol;
};
SEXP(*direct_dotTcl)(SEXP) = NULL;
SEXP FindRegFunc(SEXP symbol) {
R_RegisteredNativeSymbol *tmp = NULL;
tmp = (R_RegisteredNativeSymbol *) R_ExternalPtrAddr(symbol);
if (tmp==NULL) return R_NilValue;
direct_dotTcl = (SEXP(*)(SEXP)) tmp->symbol.external->fun;
return R_NilValue;
}
Although t...
2024 May 30
1
How to call directly "dotTcl" C-function of the tcltk-package from the C-code of an external package?
...l Rf_DotExternalSymbol;
>
> struct Rf_RegisteredNativeSymbol {
> NativeSymbolType type;
> union {
> Rf_DotCSymbol *c;
> Rf_DotCallSymbol *call;
> Rf_DotFortranSymbol *fortran;
> Rf_DotExternalSymbol *external;
> } symbol;
> };
>
> SEXP(*direct_dotTcl)(SEXP) = NULL;
>
> SEXP FindRegFunc(SEXP symbol) {
> R_RegisteredNativeSymbol *tmp = NULL;
> tmp = (R_RegisteredNativeSymbol *) R_ExternalPtrAddr(symbol);
> if (tmp==NULL) return R_NilValue;
> direct_dotTcl = (SEXP(*)(SEXP)) tmp->symbol.external->fun;
> ret...