- 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)
- })
-
+ cFiles = c(
+ list.files(file.path(path,"src","sources"),pattern="\\.[cChH]$",
+ full.names=TRUE, recursive=TRUE, no..=TRUE),
+ list.files(file.path(path,"src","adapters"),pattern="\\.[cChH]$",
+ full.names=TRUE, recursive=TRUE, no..=TRUE))
+