sbsv1_os/e32toolp/genutil/conv_khronos_openvg_hdr_to_cpp.pl
branchRCL_3
changeset 11 6ff989683ec7
parent 10 d4b442d23379
child 17 849005a0b183
child 21 91b3b8b5dbbc
--- a/sbsv1_os/e32toolp/genutil/conv_khronos_openvg_hdr_to_cpp.pl	Fri Feb 19 23:57:18 2010 +0200
+++ b/sbsv1_os/e32toolp/genutil/conv_khronos_openvg_hdr_to_cpp.pl	Sat Feb 27 18:45:43 2010 +0000
@@ -62,11 +62,12 @@
   {
     @lines = <INFILE>;
     my $s = "";
-    foreach (@lines) {
+    foreach my $line (@lines) {
       # Find function prototype lines
-      if (/^VG[U]?_API_CALL/ || length($s) != 0) {
-	    $s = $s.$_;
-		if (/;/) {
+      if ($line =~ /^VG[U]?_API_CALL/ || length($s) != 0) {
+      $line =~ s/^VG[U]?_API_CALL/EXPORT_C/;
+	    $s = $s.$line;
+		if ($line =~ /;/) {
 		  # Convert the function prototype into a stub function definition
 		  $s =~ s/\;$/ { }/;
 		  # Record the stub functions.  There will be a stub implementation