R/classHierarchy.R

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

#
# What structure do we want back.
#  list(className = subClasses)
#
#
getSubclasses = 
function(baseType, allClasses, fixNames = function(x) sprintf("llvm::%s", x), recursive = TRUE, verbose = TRUE)
{
    k = allClasses
    isSub = sapply(k, function(x) baseType %in% names(x@superClasses))

    if(!any(isSub))
       return(baseType)
    
    if(verbose)
        message(baseType)
    tmp = fixNames(names(k[isSub]))
    ans = structure(as.list(tmp), names = tmp)
    if(recursive && any(isSub)) {
       # tmp = fixNames( names(k)[isSub])
       v = lapply(tmp, getSubclasses, allClasses, fixNames)
       names(v) = tmp
       w = sapply(v, function(x) length(x) > 0 && !is.character(x) ) # || length(x[[1]]) > 0)
       ans = c(v[w], ans)
#       ans[w] = v[w]
    } else
        return(unname(unlist(ans)))
     ans = structure(list(ans), names = baseType)

     ans
}