markdown table, linked from readme

Author: arcuri82

README.md

@@ -68,6 +68,8 @@ We just re-implemented in different languages, and put them behind a web service
 For the RESTful APIs, each API has an endpoint where the OpenAPI/Swagger schemas can be downloaded from.
 For simplicity, all schemas are also available as JSON/YML files under the folder [openapi-swagger](./openapi-swagger). 
 
+More details (e.g., #LOCs and used databases) on these APIs can be found [in this table](statistics/table_emb.md).
+
 ### REST: Java/Kotlin
 
 * Genome Nexus (MIT), [jdk_8_maven/cs/rest-gui/genome-nexus](jdk_8_maven/cs/rest-gui/genome-nexus), from [https://github.com/genome-nexus/genome-nexus](https://github.com/genome-nexus/genome-nexus)

statistics/analyze.R

@@ -1,14 +1,56 @@
 
-#NAME,TYPE,LANGUAGE,FILES,LOCS,DATABASE,LICENSE,ENDPOINTS,URL
+#EMB,NAME,TYPE,LANGUAGE,RUNTIME,BUILD,FILES,LOCS,DATABASE,LICENSE,ENDPOINTS,URL
 DATA_FILE="./data.csv"
 
+UNDEFINED = "UNDEFINED"
+
+handleMultiValues <- function(s){
+  return(gsub(";", ", ", s))
+}
+
+markdown <- function (){
+
+  dt <- read.csv(DATA_FILE,header=T)
+
+  dt = dt[order(dt$TYPE, dt$LANGUAGE, -dt$LOCS, dt$NAME),]
+  # skip industrial APIs that are not stored in EMB
+  dt = dt[dt$EMB==TRUE,]
+
+  TABLE = "./table_emb.md"
+  unlink(TABLE)
+  sink(TABLE, append = TRUE, split = TRUE)
+
+  #EMB,NAME,TYPE,LANGUAGE,RUNTIME,BUILD,FILES,LOCS,DATABASE,LICENSE,ENDPOINTS,URL
+  cat("|Name|Type|#LOCs|#SourceFiles|#Endpoints|Language(s)|Runtime|Build Tool|Database(s)|\n")
+  cat("|----|----|----:|-----------:|---------:|-----------|-------|----------|-----------|\n")
+
+  for (i in 1:nrow(dt)){
+
+    row = dt[i,]
+    cat("|__",row$NAME,"__|",sep="")
+
+    cat(row$TYPE,"|",sep="")
+    cat(row$LOCS,"|",sep="")
+    cat(row$FILES,"|",sep="")
+    cat(row$ENDPOINTS,"|",sep="")
+    cat(handleMultiValues(row$LANGUAGE),"|",sep="")
+    cat(row$RUNTIME,"|",sep="")
+    cat(row$BUILD,"|",sep="")
+    cat(handleMultiValues(row$DATABASE),"|",sep="")
+    cat("\n")
+  }
+
+  sink()
+}
+
+
 oldLatexTable <- function(){
 
   dt <- read.csv(DATA_FILE,header=T)
 
   dt = dt[order(dt$TYPE, dt$LANGUAGE, -dt$LOCS, dt$NAME),]
 
-  TABLE = "./statistics_table_emb.tex"
+  TABLE = "./old_statistics_table_emb.tex"
   unlink(TABLE)
   sink(TABLE, append = TRUE, split = TRUE)
 

statistics/table_emb.md

@@ -0,0 +1,26 @@
+|Name|Type|#LOCs|#SourceFiles|#Endpoints|Language(s)|Runtime|Build Tool|Database(s)|
+|----|----|----:|-----------:|---------:|-----------|-------|----------|-----------|
+|__timbuctoo__|GraphQL|107729|1113|18|Java|JDK 11|Maven|Neo4j|
+|__patio-api__|GraphQL|18048|178|20|Java|JDK 11|Gradle|PostgreSQL|
+|__petclinic-graphql__|GraphQL|5212|89|15|Java|JDK 8|Maven|PostgreSQL|
+|__graphql-scs__|GraphQL|577|13|11|Kotlin|JDK 8|Maven||
+|__graphql-ncs__|GraphQL|548|8|6|Kotlin|JDK 8|Maven||
+|__signal-registration__|gRPC|13652|177|5|Java|JDK 17|Maven||
+|__grpc-scs__|gRPC|894|14|11|Java|JDK 8|Maven||
+|__grpc-ncs__|gRPC|638|9|6|Java|JDK 8|Maven||
+|__languagetool__|REST|174781|1385|2|Java|JDK 8|Maven||
+|__ocvn__|REST|45521|526|258|Java|JDK 8|Maven|H2, MongoDB|
+|__genome-nexus__|REST|30004|405|23|Java|JDK 8|Maven|MongoDB|
+|__market__|REST|9861|124|13|Java|JDK 11|Maven|H2|
+|__scout-api__|REST|9736|93|49|Java|JDK 8|Maven|H2|
+|__catwatch__|REST|9636|106|14|Java|JDK 8|Maven|H2|
+|__proxyprint__|REST|8338|73|74|Java|JDK 8|Maven|H2|
+|__cwa-verification__|REST|3955|47|5|Java|JDK 11|Maven|H2|
+|__gestaohospital__|REST|3506|33|20|Java|JDK 8|Maven|MongoDB|
+|__features-service__|REST|2275|39|18|Java|JDK 8|Maven|H2|
+|__restcountries__|REST|1977|24|22|Java|JDK 8|Maven||
+|__rest-scs__|REST|862|13|11|Java|JDK 8|Maven||
+|__rest-ncs__|REST|605|9|6|Java|JDK 8|Maven||
+|__rest-news__|REST|857|11|7|Kotlin|JDK 8|Maven|H2|
+|__thrift-scs__|Thrift|772|14|11|Java|JDK 8|Maven||
+|__thrift-ncs__|Thrift|585|9|6|Java|JDK 8|Maven||