R/find.R

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

findTerminators =
function(x, test, ...)
   # Find all ops that satisfy a condition.
{
  if (is(x, "Function"))
    x = getBlocks(x)

  found = lapply(x, function(block) {
    terminator = getTerminator(block)
    if (test(terminator, ...))
      terminator
    else
      NULL
  })
  unlist(found, recursive = FALSE, use.names = FALSE)
}


findInstructions =
function(x, test, ...)
# Find all ops that satisfy a condition.
{
  if (is(x, "Function"))
    x = getBlocks(x)

  found = lapply(x, function(block) {
    # QQ: Might be nice if getBlockInstructions was an as.list method so that
    # getBlockInstructions isn't necessary here.
    #  Can use block[] to get instructions which is even simpler than as.list()
    #  but of course it is an indirect alias to getBlockInstructions
    instrs = getBlockInstructions(block)
    is_match = vapply(instrs, test, NA, ...)
    instrs[is_match]
  })
  unlist(found, recursive = FALSE, use.names = FALSE)
}