sbsv1_os/e32toolp/genutil/conv_khronos_openvg_hdr_to_cpp.pl
branchRCL_3
changeset 73 22bdd8a90cc4
parent 18 99082257a271
child 76 2b4ec55c802e
--- a/sbsv1_os/e32toolp/genutil/conv_khronos_openvg_hdr_to_cpp.pl	Mon Jun 21 16:57:06 2010 +0300
+++ b/sbsv1_os/e32toolp/genutil/conv_khronos_openvg_hdr_to_cpp.pl	Thu Sep 30 14:38:30 2010 +0800
@@ -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