R/externalParamTypes.R

In duncantl/NativeCodeAnalysis: Tools to analyze native code (C/C++) related to R.

# Infer the types of arguments in a .External() call.

inferExternalParamTypes =
function(irfun, params = getParameters(irfun))
{
    p = params[[1]]
    
    u = getAllCARUses(p)
    
    lapply(u, inferExternalParamType)
}

inferExternalParamType =
function(u)
{
    a = inferParamType(u)
    if(!is.null(a))
        return(a)
    # keep going from here.
}


getAllCARUses =
function(p)
{
    uses = list()
    
    u = rev(getAllUsers(p))

    seen = list()
    while(length(u) > 0) {
        k = sapply(u, function(i) if(is(i, "CallInst")) getCallName(i) else NA)
        w = k %in% c("CAR", "CADR", "CADDR", "CADDDR", "CAD4R")
        uses = append(uses, u[w])
        u = unlist(lapply(u[!w], getAllUsers))
        u = setdiff(u, seen)
        seen = union(seen, u)
    }
    
    uses
}