1 files changed, 28 insertions, 0 deletions
diff --git a/winsup/cygwin/scripts/mkglobals_h b/winsup/cygwin/scripts/mkglobals_h
new file mode 100755
index 000000000..2d185f2e8
--- /dev/null
+++ b/winsup/cygwin/scripts/mkglobals_h
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+my @argv = @ARGV;
+$_ = join('', <>);
+s/\s+\n/\n/sog;
+s/\n[^\n]*!globals.h[^\n]*\n/\n/sog;
+s%/\*.*?\*/%%sog;
+s/(enum\s.*?{.*?})/munge($1)/soge;
+s/^(\s*)([a-zA-Z_])/$1extern $2/mog;
+s/extern (extern|enum)/$1/sog;
+s/\n\s*extern static[^\n]*\n/\n/sog;
+s/\s+=.*?;/;/sog;
+s/^\n+//sog;
+s/#include "winsup\.h"\n//so;
+s/-NL-/\n/sog;
+s/-EQ-/=/sog;
+s/\n{2,}/\n/sog;
+print <<PRELUDE,$_;
+/* $target - Autogenerated from @argv.  Look there for comments. */
+
+#pragma once
+PRELUDE
+close $target_fd;
+sub munge($) {
+    my $val = shift;
+    $val =~ s/\n/-NL-/sog;
+    $val =~ s/=/-EQ-/sog;
+    return $val;
+}