Fixes: NB#171747 - mmoc native binary does not work with qemu - causes build failures

RevBy: Tomas Junnonen
Details: Main configure file, mmoc releated files, src/common_top.pri
src/predeps.pri and some tst project files were modified
to use Qt/C++ mmoc script for i486 target and perl for
armel target

1 files changed, 218 insertions, 0 deletions

diff --git a/mmoc/mmoc.pl b/mmoc/mmoc.pl
new file mode 100755
index 00000000..c3eb00d4
--- /dev/null
+++ b/mmoc/mmoc.pl
@@ -0,0 +1,218 @@
+#! /usr/bin/perl
+
+use English;
+
+# common regular expressions
+# these have to be before exift command
+# (otherwise they will not get any value)
+$::spaces = "\\s*";
+$::comma = ",";
+$::colon = ":";
+$::parenO = "\\(";
+$::parenC = "\\)";
+$::emptyParen = "\\(\\)";
+$::angleO = "<";
+$::angleC = ">";
+$::braceO = "\\{";
+$::nameSpace = "(?:\\w+::)";
+$::typeName = "\\w+";
+$::pointer = "\\*";                                                                                                            
+$::templateName = "\\w+";
+$::plainParam = "(\\w+)";
+$::boolParam = "(true|false)";
+$::anyParam = "(.+)";
+
+$::QT_MOC_PATH = find_moc ();
+
+if (! -x $::QT_MOC_PATH) {
+	print "Unable to find moc, or is not executable\n";
+	if ( "MSWin32" ne "$OSNAME" ) {
+		exit (1);
+	}
+}
+
+chomp( $::QT_MOC_PATH );
+
+exit main( @ARGV );
+
+sub find_moc
+{
+	my $mocpath;
+
+	if ($ENV{"QTDIR"} && -x "$ENV{\"QTDIR\"}/bin/moc")
+	{
+		return "$ENV{\"QTDIR\"}/bin/moc";
+	}
+
+    # here we need to do things differently for windows
+    if ( "MSWin32" ne "$OSNAME" )
+    {
+		$mocpath = `which moc 2>/dev/null`;
+		if ($? == 0) {
+			chomp $mocpath;
+			return $mocpath;
+		}
+
+		$mocpath = `which moc-qt4 2>/dev/null`;
+		if ($? == 0) {
+			chomp $mocpath;
+			return $mocpath;
+		}
+    } else {
+		return "moc";
+	}
+}
+
+sub main
+{
+    my @argv = @_;
+
+    my @commandLineParameters = ( $::QT_MOC_PATH );
+
+    my $filename = "";
+    my $type = "";
+
+    for ( my $i=0; $i<@argv; ++$i ) {
+        if ( $argv[$i] =~ /style.h$/ ) {
+            $type = "Style";
+            $filename = $argv[$i];
+        } elsif ( $argv[$i] =~ /model.h$/ ) {
+            $type = "Model";
+            $filename = $argv[$i];
+        } else {
+            push @commandLineParameters, $argv[$i];
+        }
+    }
+
+    if ( $filename eq "" ) {
+        system( @commandLineParameters );
+    } else {
+        push @commandLineParameters, "-f".$filename;
+
+        if ( $type eq "Model" ) {
+            runModelMoc( $filename, @commandLineParameters );
+        } elsif ( $type eq "Style" ) {
+            runStyleMoc( $filename, @commandLineParameters );
+        }
+    }
+
+    return 0;
+}
+
+sub runStyleMoc
+{
+    my ($header, @arguments) = @_;
+
+    my $commandLine = join( " ", @arguments );
+
+    open( INF, "<$header" ) || die( "Could not open $header for reading : $!" );
+
+    open( MOC, "|$commandLine" ) || die( "Could not run command $commandLine : $!" );
+
+    while ( <INF> ) {
+        chomp;
+        my $line = $_;
+
+        $line =~ s/\s*M_STYLE_ATTRIBUTE\s*\(\s*(\w+\:*\w*)\s*,\s*(\w+)\s*,\s*(\w+)\s*\)\s*/    Q_PROPERTY($1 $2 READ $2 WRITE set$3)/;
+        $line =~ s/\s*M_STYLE_PTR_ATTRIBUTE\s*\(\s*(\w+\:*\w*\s*\*+)\s*,\s*(\w+)\s*,\s*(\w+)\s*\)\s*/    Q_PROPERTY(const $1 $2 READ $2 WRITE set$3)/;
+
+        print MOC "$line\n";
+    }
+
+    close( MOC );
+
+    close( INF );
+}
+
+sub runModelMoc
+{
+    my ($header, @arguments) = @_;
+
+    my $commandLine = join( " ", @arguments );
+
+    my @pattern = (
+        $::spaces.
+        "M_MODEL_PROPERTY".
+        $::spaces.$::parenO.$::spaces.
+            "(".
+                "(?:".
+                    $::nameSpace."?".
+                    $::typeName.
+                    $::spaces.
+                    $::pointer."?".
+                ")".
+                "|".
+                "(?:".
+                    $::templateName.
+                    $::angleO.
+                        $::spaces.
+                        $::typeName.
+                        $::spaces.
+                        $::pointer."?".
+                        $::spaces.
+                    $::angleC.
+                ")".
+            ")".
+                $::spaces.$::comma.$::spaces.
+            $::plainParam.
+                $::spaces.$::comma.$::spaces.
+            $::plainParam.
+                $::spaces.$::comma.$::spaces.
+            $::plainParam.
+                $::spaces.$::comma.$::spaces.
+            $::anyParam.
+        $::spaces.$::parenC.$::spaces,
+
+        $::spaces.
+        "M_MODEL_PTR_PROPERTY".
+        $::spaces.$::parenO.$::spaces.
+            "(".
+                "(?:".
+                    $::nameSpace."?".
+                    $::typeName.
+                    $::spaces.
+                    $::pointer."?".
+                    $::spaces.
+                ")".
+                "|".
+                "(?:".
+                    $::templateName.
+                    $::angleO.
+                        $::spaces.
+                        $::typeName.
+                        $::spaces.
+                        $::pointer."?".
+                        $::spaces.
+                    $::angleC.
+                ")".
+            ")".
+                $::spaces.$::comma.$::spaces.
+            $::plainParam.
+                $::spaces.$::comma.$::spaces.
+            $::plainParam.
+                $::spaces.$::comma.$::spaces.
+            $::boolParam.
+                $::spaces.$::comma.$::spaces.
+            $::anyParam.
+        $::spaces.$::parenC.$::spaces,
+
+    );
+
+    open( INF, "<$header" ) || die( "Could not open header file for reading : $!" );
+
+    open( MOC, "|$commandLine" ) || die( "Could not run command $commandLine : $!" );
+
+    while ( <INF> ) {
+        chomp;
+        my $line = $_;
+
+        $line =~ s/$pattern[0]/    Q_PROPERTY($1 $2 READ $2 WRITE set$3)/;
+        $line =~ s/$pattern[1]/    Q_PROPERTY($1 $2 READ $2 WRITE set$3)/;
+
+        print MOC "$line\n";
+    }
+
+    close( MOC );
+
+    close( INF );
+}