R/pointerUtils.R

Defines functions getPointerInfo getPointerDepth

Documented in getPointerDepth getPointerInfo

getPointerDepth =
function(type, kind = getTypeKind(type))
{
  ctr = 0
  while(kind == CXType_Pointer) {
    kind = getTypeKind(getPointeeType(type))
    ctr = ctr + 1L
  }
  ctr
}


getPointerInfo =
function(type)
{
  ty = type
  ctr = 0
  while( (kind <- getTypeKind(ty)) == CXType_Pointer) {
    ty = getPointeeType(ty)
    ctr = ctr + 1L
  }

  list(depth = ctr, baseType = ty)
}
omegahat/RClangSimple documentation built on Jan. 17, 2024, 6:27 p.m.