File: cleanaff

package info (click to toggle)
eo-spell 3.7-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 952 kB
  • sloc: lisp: 2,789; sh: 179; makefile: 142; sed: 73; perl: 25; ansic: 16
file content (9 lines) | stat: -rwxr-xr-x 204 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
 
#!/bin/sed -f
#@(#) cleanaff:  Clean aff file ("-IGI,I^GI" -> "-GI,^GI")
 
s/-\([^ ,#]\{1,\}\),\1//
s/-\([A-Z]\)\([^ ,#]\{1,\}\),\1\([^ ,#]\{1,\}\)/-\2,\3/

# Local variables:
# mode: shell-script
# end: