[[ VersionScript ]] Generate version script from stubs

montegoulding · montegoulding · commit 37a43513429c · 2018-02-15T17:17:45.000+11:00
This patch allows the stubs file to be output as a version script
that can be used with the `-Wl,--version-script=&lt;file&gt;` linker option.
diff --git a/util/list_stub_symbols.pl b/util/list_stub_symbols.pl
@@ -15,6 +15,7 @@ sub trim
 
 my ($exportDefArg, $exportDefModule) = split(/=/, $exportDefOpt);
 my $isWindows = $exportDefArg eq "--exportdef";
+my $isLinux = $exportDefArg eq "--version-script";
 
 # Read all of the input data
 open INPUT, "<$inputFile"
@@ -39,6 +40,11 @@ sub trim
 	print OUTPUT "LIBRARY $exportDefModule\n";
 	print OUTPUT "EXPORTS\n";
 }
+elsif ($isLinux)
+{
+	print OUTPUT "$exportDefModule {\n";
+	print OUTPUT "  global:\n";
+}
 
 # Symbol index counter
 my $symbolIndex = 1;
@@ -87,10 +93,20 @@ sub trim
 	{
 		print OUTPUT "    $prefix$symbol    \@$symbolIndex\n";
 	}
+	elsif ($isLinux)
+	{
+		print OUTPUT "    $prefix$symbol;\n";
+	}
 	else
 	{
 		print OUTPUT "$prefix$symbol\n";
 	}
 
 	$symbolIndex += 1;
 }
+
+if ($isLinux)
+{
+	print OUTPUT "  local: *;\n";
+	print OUTPUT "};\n";
+}
