File: remove-potcdate.sin

package info (click to toggle)
a2ps 1:4.14-1.1+deb7u1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 12,324 kB
  • sloc: ansic: 26,659; sh: 13,155; lex: 2,286; perl: 1,156; yacc: 757; makefile: 605; lisp: 398; ada: 263; objc: 189; f90: 109; ml: 85; sql: 74; pascal: 57; modula3: 33; haskell: 32; sed: 30; java: 29; python: 24
file content (19 lines) | stat: -rw-r--r-- 432 bytes parent folder | download | duplicates (3599)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# Sed script that remove the POT-Creation-Date line in the header entry
# from a POT file.
#
# The distinction between the first and the following occurrences of the
# pattern is achieved by looking at the hold space.
/^"POT-Creation-Date: .*"$/{
x
# Test if the hold space is empty.
s/P/P/
ta
# Yes it was empty. First occurrence. Remove the line.
g
d
bb
:a
# The hold space was nonempty. Following occurrences. Do nothing.
x
:b
}