/contrib/groff/src/devices/xditview/ad2c
Shell | 64 lines | 23 code | 1 blank | 40 comment | 0 complexity | 3a406eb7cf9974b9b3605dd34ae6458a MD5 | raw file
1#! /bin/sh 2# 3# ad2c : Convert app-defaults file to C strings decls. 4# 5# George Ferguson, ferguson@cs.rcohester.edu, 12 Nov 1990. 6# 19 Mar 1991: gf 7# Made it self-contained. 8# 6 Jan 1992: mycroft@gnu.ai.mit.edu (Charles Hannum) 9# Removed use of "-n" and ":read" label since Gnu and 10# IBM sed print pattern space on "n" command. Still works 11# with Sun sed, of course. 12# 7 Jan 1992: matthew@sunpix.East.Sun.COM (Matthew Stier) 13# Escape quotes after escaping backslashes. 14# 8 Jul 1992: Version 1.6 15# Manpage fixes. 16# 19 Apr 1993: Version 1.7 17# Remove comments that were inside the sed command since 18# some versions of sed don't like them. The comments are 19# now given here in the header. 20# 31 May 2004: Werner Lemberg <wl@gnu.org> 21# Force casts to `String'. 22# 23# Comments on the script by line: 24# /^!/d Remove comments 25# /^$/d Remove blanks 26# s/\\/\\\\/g Escape backslashes... 27# s/\\$//g ...except the line continuation ones 28# s/"/\\"/g Escape quotes 29# s/^/"/ Add leading quote and cast 30# : test Establish label for later branch 31# /\\$/b slash Branch to label "slash" if line ends in backslash 32# s/$/",/ Otherwise add closing quote and comma... 33# p ...output the line... 34# d ...and clear the pattern space so it's not printed again 35# : slash Branch comes here if line ends in backslash 36# n Read next line, append to pattern space 37# [...] The "d" and "s" commands that follow just delete 38# comments and blank lines and escape control sequences 39# b test Branch up to see if the line ends in backslash or not 40# 41 42sed ' 43/^!/d 44/^$/d 45s/\\/\\\\/g 46s/\\$//g 47s/"/\\"/g 48s/^/(String)"/ 49: test 50/\\$/b slash 51s/$/",/ 52p 53d 54: slash 55n 56/^!/d 57/^$/d 58s/"/\\"/g 59s/\\\\/\\/g 60s/\\n/\\\\n/g 61s/\\t/\\\\t/g 62s/\\f/\\\\f/g 63s/\\b/\\\\b/g 64b test' "$@"