X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=utils%2Fad2c;fp=utils%2Fad2c;h=1435e554c0fdd235e4ca888b89cb66a2618e9598;hb=0a1527cc01e9894017614b7c36b838b2b6914ba9;hp=0000000000000000000000000000000000000000;hpb=21849be2c2c98edf4a612baf1ab85804b744d17b;p=xscreensaver

diff --git a/utils/ad2c b/utils/ad2c
new file mode 100755
index 00000000..1435e554
--- /dev/null
+++ b/utils/ad2c
@@ -0,0 +1,38 @@
+#!/bin/sh
+#
+#	ad2c : Convert app-defaults file to C strings decls.
+#
+#	George Ferguson, ferguson@cs.rcohester.edu, 12 Nov 1990.
+#	19 Mar 1991 : gf
+#		Made it self-contained.
+#	6 Jan 1992 : mycroft@gnu.ai.mit.edu (Charles Hannum)
+#		Removed use of "-n" and ":read" label since Gnu and
+#		IBM sed print pattern space on "n" command. Still works
+#		with Sun sed, of course.
+#	7 Jan 1992: matthew@sunpix.East.Sun.COM (Matthew Stier)
+#		Escape quotes after escaping backslashes.
+#
+
+sed '
+/^!/d
+/^$/d
+s/\\/\\\\/g
+s/\\$//g
+s/"/\\"/g
+s/^/"/
+: test
+/\\$/b slash
+s/$/",/
+p
+d
+: slash
+n
+/^!/d
+/^$/d
+s/"/\\"/g
+s/\\\\/\\/g
+s/\\n/\\\\n/g
+s/\\t/\\\\t/g
+s/\\f/\\\\f/g
+s/\\b/\\\\b/g
+b test' "$@"