1263691Sdes#!/bin/sh 2263691Sdes# 3294693Sdes# $FreeBSD$ 4263691Sdes# 5263691Sdes 6294666Sdes:>keywords 7294666Sdes:>rcsid 8294666Sdessvn list -R | grep -v '/$' | \ 9263691Sdeswhile read f ; do 10294666Sdes svn proplist -v $f | grep -q 'FreeBSD=%H' || continue 11294666Sdes egrep -l '^(#|\.\\"|/\*)[[:space:]]+\$FreeBSD[:\$]' $f >>keywords 12294666Sdes egrep -l '__RCSID\("\$FreeBSD[:\$]' $f >>rcsid 13294666Sdesdone 14294666Sdessort -u keywords rcsid | xargs perl -n -i -e ' 15263691Sdes $strip = $ARGV if /\$(Id|OpenBSD):.*\$/; 16294666Sdes print unless (($strip eq $ARGV || /__RCSID/) && /\$FreeBSD[:\$]/); 17294666Sdes' 18