File: only.quotes

package info (click to toggle)
maradns 1.2.12.04-1etch2
  • links: PTS
  • area: main
  • in suites: etch
  • size: 6,676 kB
  • ctags: 2,176
  • sloc: ansic: 26,137; sh: 3,657; perl: 703; makefile: 622; python: 593; sql: 106; awk: 11
file content (7 lines) | stat: -rwxr-xr-x 179 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
 
#!/usr/bin/perl -p

# Convert lines in a file in to only quoted strings proceeded by #define
# E.G.  printf("foo") becomes #define "foo"

s/[^"]*(\"[^"]*\")[^"\n]*/\#define $1/;