latex table for papers

Author: arcuri82

.gitignore

@@ -251,3 +251,4 @@ dotnet_3/em/embedded/rest/ScsDriver/generated-tests/
 /jdk_8_maven/em/external/thrift/scs/target/
 /jdk_17_maven/cs/web/spring-petclinic/target/
 /jdk_17_maven/em/embedded/web/spring-petclinic/target/
+/statistics/table_suts.tex

statistics/analyze.R

@@ -8,6 +8,18 @@ handleMultiValues <- function(s){
   return(gsub(";", ", ", s))
 }
 
+### return a boolean vector, where each position in respect to x is true if that element appear in y
+areInTheSubset <- function(x,y){
+
+  ### first consider vector with all FALSE
+  result = x!=x
+  for(k in y){
+    result = result | x==k
+  }
+  return(result)
+}
+
+
 markdown <- function (){
 
   dt <- read.csv(DATA_FILE,header=T)
@@ -44,6 +56,52 @@ markdown <- function (){
 }
 
 
+latex <- function(TABLE,SUTS){
+
+  # TODO what columns to include further could be passed as boolean selection.
+  # will implement when needed
+
+  dt <- read.csv(DATA_FILE,header=T)
+  dt = dt[areInTheSubset(dt$NAME,SUTS),]
+  dt = dt[order(dt$NAME),]
+
+  unlink(TABLE)
+  sink(TABLE, append = TRUE, split = TRUE)
+
+  cat("\\begin{tabular}{l rrr}\\\\ \n")
+  cat("\\toprule \n")
+  cat("SUT & \\#SourceFiles & \\#LOCs & \\#Enbdpoints \\\\ \n")
+  cat("\\midrule \n")
+
+  for (i in 1:nrow(dt)){
+
+    row = dt[i,]
+    cat("\\emph{",row$NAME,"}",sep="")
+
+    cat(" & ", row$FILES)
+    cat(" & ", row$LOCS)
+    cat(" & ", row$ENDPOINTS)
+
+    cat(" \\\\ \n")
+  }
+
+  cat("\\midrule \n")
+  cat("Total",nrow(dt))
+  cat(" & ")
+  cat(sum(dt$FILES))
+  cat(" & ")
+  cat(sum(dt$LOCS))
+  cat(" & ")
+  cat(sum(dt$ENDPOINTS))
+  cat(" \\\\ \n")
+
+  cat("\\bottomrule \n")
+  cat("\\end{tabular} \n")
+
+  sink()
+}
+
+
 oldLatexTable <- function(){
 
   dt <- read.csv(DATA_FILE,header=T)

statistics/suts.R

@@ -0,0 +1,41 @@
+source("analyze.R")
+
+suts <- function(){
+
+  # This generated table should be added to Git, as will change based on papers
+  TABLE = "./table_suts.tex"
+
+  #Names here should match what in data.csv
+  SUTS = c(
+    "catwatch",
+    "cwa-verification",
+    "features-service",
+    "gestaohospital",
+    "languagetool",
+    "ocvn",
+    "proxyprint",
+    "rest-ncs",
+    "rest-news",
+    "rest-scs",
+    "restcountries",
+    "scout-api",
+    "genome-nexus",
+    "market",
+    #"petclinic-graphql",
+    #"patio-api",
+    #"timbuctoo",
+    #"graphql-ncs",
+    #"graphql-scs",
+    #"thrift-ncs",
+    #"thrift-scs",
+    #"grpc-ncs",
+    #"grpc-scs",
+    #"signal-registration",
+    "ind0",
+    #"ind1",
+    ""
+  )
+
+  latex(TABLE,SUTS)
+}
+