adding optimize-conmect perl script, originally given to opie by trolltech (but since lost by opie, or not added to cvs). This removes any white spaces from the connect macro, to speed things up at runtime.

1 files changed, 34 insertions, 0 deletions

diff --git a/scripts/optimize-connect b/scripts/optimize-connect
new file mode 100755
index 0000000..c81ecae
--- a/dev/null
+++ b/scripts/optimize-connect
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+# Strips unnecessary whitespace from SIGNAL() and SLOT() macros,
+# so that this doesn't have to be done at runtime.
+# Believe it or not, this actually speeds things up.
+#
+# Limitation: only 1 set of (...) inside the macro, so it can't handle
+#  signals and slots that have function pointers as arguments.
+
+for $arg (@ARGV) {
+    if ( 0 ) {
+	# opts
+    } else {
+	push @files, $arg;
+    }
+}
+
+sub canonWS {
+    my ($s) = @_;
+    $s =~ s/(.)\s+(\W)/$1$2/g;
+    $s =~ s/(\W)\s+(.)/$1$2/g;
+    return $s;
+};
+
+for $file (@files) {
+    open F, $file;
+    $c = join "",<F>;
+    close F;
+    $c =~ s/\b((?:SIGNAL|SLOT)\s*\(\s*)((?:[^\n;()]+|\([^()]*\))*)\)/"$1".canonWS($2).")"/egs;
+    open F, ">t$$";
+    print F $c;
+    close F;
+    system("diff -u $file t$$");
+}