source('../common.R')
stoplist <- c(stoplist, noclang)
source('list_tars.R')

foo <- rbind(
       	     list_tars('../contrib/3.5.0/Recommended'),
     	     #list_tars('../contrib/3.4.0/Other'),
     	     list_tars('../contrib')
     	     )
tars <- foo[!duplicated(foo$name), ]

nm <- tars$name
time1 <- file.info(tars[, "path"])$mtime
time2 <- file.info(paste0(nm, ".in"))$mtime
unpack <- is.na(time2) | (time1 > time2)

cxx <- readLines("../C++Users")
unpack <- unpack & (nm %in% cxx)

for(i in which(unpack)) {
    if(nm[i] %in% stoplist) next
    cat(nm[i], "\n", sep = "")
    unlink(nm[i], recursive = TRUE)
    system(paste("tar zxf", tars[i, "path"]))
    system(paste("touch -r", tars[i, "path"], paste0(nm[i], ".in")))
}