wpsbuild: Call gcc without having to create a temp file.

Change-Id: I7adc48209fd3050243770137df2022c617c68dc8
Reviewed-on: http://gerrit.rockbox.org/721
Reviewed-by: Thomas Martitz <kugel@rockbox.org>

1 files changed, 15 insertions, 14 deletions

diff --git a/wps/wpsbuild.pl b/wps/wpsbuild.pl
index a420faddd8..35febe3bcb 100755
--- a/wps/wpsbuild.pl
+++ b/wps/wpsbuild.pl
@@ -10,6 +10,7 @@
 
 use strict;
 use Getopt::Long qw(:config pass_through);      # pass_through so not confused by -DTYPE_STUFF
+use IPC::Open2;
 
 my $ROOT="..";
 my $wpsdir;
@@ -87,11 +88,11 @@ if(!$wpslist) {
 sub getlcdsizes
 {
     my ($remote) = @_;
+    my $str;
 
-    open(GCC, ">gcctemp");
     if($remote) {
         # Get the remote LCD screen size
-    print GCC <<STOP
+    $str = <<STOP
 \#include "config.h"
 #ifdef HAVE_REMOTE_LCD
 Height: LCD_REMOTE_HEIGHT
@@ -102,24 +103,25 @@ STOP
 ;
     }
     else {
-    print GCC <<STOP
+    $str = <<STOP
 \#include "config.h"
 Height: LCD_HEIGHT
 Width: LCD_WIDTH
 Depth: LCD_DEPTH
 STOP
 ;
-}
+    }
     close(GCC);
 
-    my $c="cat gcctemp | gcc $cppdef -I. -I$firmdir/export -E -P -";
-
-    #print "CMD $c\n";
+    my $cmd = "gcc $cppdef -I. -I$firmdir/export -E -P -";
+    my $pid = open2(*COUT, *CIN, $cmd) or die "Could not spawn child: $!\n";
 
-    open(GETSIZE, "$c|");
+    print CIN $str;
+    close(CIN);
+    waitpid($pid, 0);
 
-    my ($height, $width, $depth);
-    while(<GETSIZE>) {
+    my ($height, $width, $depth, $touch);
+    while(<COUT>) {
         if($_ =~ /^Height: (\d*)/) {
             $height = $1;
         }
@@ -129,12 +131,11 @@ STOP
         elsif($_ =~ /^Depth: (\d*)/) {
             $depth = $1;
         }
-        if($height && $width && $depth) {
-            last;
+        if($_ =~ /^Touchscreen/) {
+            $touch = 1;
         }
     }
-    close(GETSIZE);
-    unlink("gcctemp");
+    close(COUT);
 
     return ($height, $width, $depth);
 }