- cFiles = c(
- list.files( file.path(path,"src","adapters"), pattern="\\.[cChH]$",
- full.names=TRUE, recursive=TRUE ),
- list.files( file.path(path,"src","sources"), pattern="\\.[cChH]$",
- full.names=TRUE, recursive=TRUE ))
+ cFiles = list.files( file.path(path,"src"), pattern="\\.[cChH]$",
+ full.names=TRUE, recursive=TRUE, no..=TRUE )
+ cFiles = lapply(cFiles, function(x) {
+ if (nchar(x)>=5 && substr(x,1,5)=="tests") return ("")
+ return (x)
+ })