done
}
+seenrules=/
+
while read keyword rest; do
case "$keyword" in
'#'|'') continue ;;
exit;
' <$good`
printf "%s %s" "$oldfoundry" "$newfoundry" >>rules/foundries.new
- exec 3>rules/$newfoundry,$key.rules
- echo >&3 '# -*- perl -*-'
- echo >&3 '# autogenerated by mkrules'
- echo >&3 'sub {'
+ case "$seenrules" in
+ */"$newfoundry,$key"/*)
+ exec 3>>rules/$newfoundry,$key.rules
+ ;;
+ *)
+ exec 3>rules/$newfoundry,$key.rules
+ echo >&3 '# -*- perl -*-'
+ echo >&3 '# autogenerated by mkrules'
+ echo >&3 'sub {'
+ seenrules=$seenrules$newfoundry,$key/
+ ;;
+ esac
+ echo >&3 " # $pcf"
;;
endrules)
- echo >&3 '}'
exec 3</dev/null
;;
entire)
esac
done
+while :; do
+ case "$seenrules" in /) break ;; esac
+ seenrules=${seenrules#/}
+ rulefile=${seenrules%%/*}
+ seenrules=/${seenrules#*/}
+ echo "}" >>rules/$rulefile.rules
+done
+
mv rules/foundries.new rules/foundries