summaryrefslogtreecommitdiffstats
path: root/utils/ad2c
diff options
context:
space:
mode:
Diffstat (limited to 'utils/ad2c')
-rwxr-xr-xutils/ad2c42
1 files changed, 42 insertions, 0 deletions
diff --git a/utils/ad2c b/utils/ad2c
new file mode 100755
index 0000000..0a543ba
--- /dev/null
+++ b/utils/ad2c
@@ -0,0 +1,42 @@
+#!/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.
+# 22 Oct 2004: jwz:
+# Convert CR to LF.
+#
+
+#sed 's/\r/\n/g' "$@" |
+perl -npe 's/\r/\n/g' < "$@" |
+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'