added code to write additional table

Author: David Anderson

QCPAnalysis/src/QCPAnalysis/QCP4SubcaseAnalysis.rsc

@@ -39,7 +39,7 @@ public void analyzeQCP4(){
 	println("Types of dynamic snippets: <types>");
 	println("Counts for each type:\n <(n : size(d) | n <- groupDynamicSnippetsByType(ds), d := groupDynamicSnippetsByType(ds)[n])>");
 	println("Counts for each role:\n <(n : size(d) | n <- groupDynamicSnippetsByRole(qcp4), d := groupDynamicSnippetsByRole(qcp4)[n])>");
-	for(q <- groupDynamicSnippetsByRole(qcp4)["Other"]) println(q.dynamicpart@at);
+	//for(q <- groupDynamicSnippetsByRole(qcp4)["Other"]) println(q.dynamicpart@at);
 }
 
 public map[str, list[QuerySnippet]] groupDynamicSnippetsByType(list[QuerySnippet] ds){
@@ -71,8 +71,8 @@ public map[str, list[QuerySnippet]] groupDynamicSnippetsByType(list[QuerySnippet
 }
 
 // groups all QCP4 occurrences based on what role their dynamic snippets take on
-private map[str, list[QuerySnippet]] groupDynamicSnippetsByRole(set[QueryString] qs){
-	res = ("Parameter" : [], "Name" : [], "Other" : []);
+public map[str, list[QuerySnippet]] groupDynamicSnippetsByRole(set[QueryString] qs){
+	res = ("Parameter" : [], "Column, Table, or Database Name" : [], "Other" : []);
 	for(q <- qs){
 		indexes = getDynamicSnippetIndexes(q);
 
@@ -173,7 +173,7 @@ private map[str, list[QuerySnippet]] groupDynamicSnippetsByRole(set[QueryString]
 				res["Parameter"] += ds;
 			}
 			else if(nameSnippet(i)){
-				res["Name"] += ds;
+				res["Column, Table, or Database Name"] += ds;
 			}
 			else{
 				res["Other"] += ds;

QCPAnalysis/src/QCPAnalysis/WriteResults.rsc

@@ -19,6 +19,13 @@ import String;
 import Set;
 
 loc tables = |project://QCPAnalysis/results/tables/|;
+public void writeTables(){
+	qs = getQCP("4");
+	ds = getDynamicSnippets(qs);
+	writeFile(tables + "qcpCounts.txt", qcpCountsAsLatexTable());
+	writeFile(tables + "qcp4Types.txt", qcp4TypesAsLatexTable(ds));
+	writeFile(tables + "qcp4Roles.txt", qcp4RolesAsLatexTable(qs));
+}
 
 public str qcpCountsAsLatexTable(){
 	str getLine(str pattern, int count) = "<pattern> & <count>";
@@ -42,8 +49,8 @@ public str qcpCountsAsLatexTable(){
 	return res;
 }
 
-public str qcp4TypesAsLatexTable(){
-	typeGroups = groupDynamicSnippetsByType(getDynamicSnippets(getQCP("4")));
+public str qcp4TypesAsLatexTable(list[QuerySnippet] qs){
+	typeGroups = groupDynamicSnippetsByType(qs);
 	str getLine(str t, int c) = "<t> & <c>";
 	str res =
 	"\\npaddmissingzero
@@ -65,8 +72,27 @@ public str qcp4TypesAsLatexTable(){
 	return res;
 }
 
-public str qcp4RolesAsLatexTable(){
-
+public str qcp4RolesAsLatexTable(set[QueryString] qs){
+	roleGroups = groupDynamicSnippetsByRole(qs);
+	str getLine(str r, int c) = "<r> & <c>";
+	str res =
+	"\\npaddmissingzero
+	'\\npfourdigitsep
+	'\\begin{table}
+	'\\centering
+	'\\caption{Counts of Each QCP4 Dynamic Part Grouped by Role\\label{tbl:php-qcp4-roles}}
+	'\\ra{1.2}
+	'\\begin{tabularx}{\\columnwidth}{Xrrr} \\toprule
+	'Role & Number of Occurrences\\\\ \\midrule
+	'<for(p <- roleGroups, c := roleGroups[p]){><getLine(p,size(c))> \\\\
+	'<}>
+	'\\bottomrule
+	'\\end{tabularx}
+	'\\end{table}
+	'\\npfourdigitnosep
+	'\\npnoaddmissingzero
+	";
+	return res;
 }
 
 public str corpusAsLatexTable() {