add xchat r1489

1 files changed, 50 insertions, 0 deletions

diff --git a/plugins/perl/generate_header b/plugins/perl/generate_header
new file mode 100644
index 00000000..d6c8a65f
--- /dev/null
+++ b/plugins/perl/generate_header
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+sub header {
+  my $file = shift;
+  open my $input, "<", $file or die "Couldn't open '$file':$!";
+  my @file = <$input>;
+  close $file;
+  return toc(@file);
+}
+
+sub toc {
+  my @lines = @_;
+  for( @lines ) {
+    if( /^\s*$/s ) { $_ = qq{"\\n"\n}; next; }
+    if( /^\s*#/ ) { $_ = qq{"\\n"\n}; next; }
+    s/\\/\\\\/g; # double the number of \'s
+    s/"/\\"/g;
+    s/^\s*/"/;
+    s/\n/\\n"\n/;
+  }
+  return @lines;
+}
+
+for my $files (
+	[ "xchat.pm.h",         # output file
+		"lib/Xchat.pm",      # input files
+		"lib/Xchat/Embed.pm",
+		"lib/Xchat/List/Network.pm",
+		"lib/Xchat/List/Network/Entry.pm",
+		"lib/Xchat/List/Network/AutoJoin.pm",
+	],
+	[ "irc.pm.h",   # output file
+		"lib/IRC.pm" # input file
+	]
+) {
+	my ($output,@inputs) = @$files;
+
+	open my $header, ">", $output or die "Couldn't open '$output': $!";
+
+	for my $input ( @inputs ) {
+		print $header qq["{\\n"\n];
+		print $header qq{"#line 1 \\"$input\\"\\n"\n};
+		print $header header( $input );
+		print $header qq["}\\n"\n];
+	}
+	close $header;
+}