From b739de430878e48eb6b56cadbe59fc65bbf57d51 Mon Sep 17 00:00:00 2001
From: Gerd Hoffmann <kraxel@redhat.com>
Date: Thu, 27 Apr 2017 19:33:03 +0200
Subject: move fallback.pl to scripts

---
 scripts/fallback.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 scripts/fallback.pl

(limited to 'scripts')

diff --git a/scripts/fallback.pl b/scripts/fallback.pl
new file mode 100755
index 0000000..03706c4
--- /dev/null
+++ b/scripts/fallback.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+#
+# build header file from
+#
+use strict;
+
+while (my $line = <>) {
+	chomp $line;
+
+	# ignore comments
+	next if $line =~ /^!/;
+#	next if $line =~ /^\s*$/;
+
+	# quote stuff
+	$line =~ s/\\/\\\\/g;
+	$line =~ s/\"/\\\"/g;
+
+	# continued line?
+	if ($line =~ s/\\\\$//) {
+		printf "\"%s\"\n",$line;
+		next;
+	}
+
+	# write out
+	printf "\"%s\",\n",$line;
+}
-- 
cgit