The R Project SVN R-packages

bitlist =
  # Taken from RAutoGenRuntime
function(...)
{
  bitOr = bitops::bitOr
  x = unlist(list(...))
  if(length(x) == 1)
    return(x)

  ans = x[1]
  for(i in 2:length(x)) {
    ans = bitOr(ans, x[i])
  }
  ans
}