--- a/bin/ai/regression/completeness.sh	Mon Mar 17 15:58:28 2008 +0000
+++ b/bin/ai/regression/completeness.sh	Sun Mar 23 21:45:16 2008 +0000
@@ -5,7 +5,7 @@
 	exit 1
 fi
 
-cat ai/regression/regression.nut | awk '
+cat ai/regression/regression.nut | tr ';' '\n' | awk '
 /^function/ {
 	for (local in locals) {
 		delete locals[local]
@@ -30,10 +30,26 @@
 			sub("\\.", "::", fname)
 			sub(local, locals[local], fname)
 			print fname
+			if (match(locals[local], "List")) {
+				sub(locals[local], "AIAbstractList", fname)
+				print fname
+			}
 		}
 	}
+	# We want to remove everything before the FIRST occurence of AI.
+	# If we do not remove any other occurences of AI from the string
+	# we will remove everything before the LAST occurence of AI, so
+	# do some little magic to make it work the way we want.
+	sub("AI", "AXXXXY")
+	gsub("AI", "AXXXXX")
+	sub(".*AXXXXY", "AI")
+	if (match($0, "^AI") && match($0, ".")) {
+		sub("\\(.*", "", $0)
+		sub("\\.", "::", $0)
+		print $0
+	}
 }
-' | sort | uniq > tmp.in_regression
+' | sed 's/	//g' | sort | uniq > tmp.in_regression
 
 grep 'DefSQ.*Method' ../src/ai/api/*.hpp.sq | grep -v '::GetClassName' | sed 's/^[^,]*, &//g;s/,[^,]*//g' | sort > tmp.in_api