Mercurial > emacs
comparison lib-src/rcs2log @ 12066:b9b0b3f96dc2
(output_authors): Allow ':' in time zone, as per ISO 8601 and RCS 5.6.8 beta.
author | Paul Eggert <eggert@twinsun.com> |
---|---|
date | Sun, 04 Jun 1995 01:34:39 +0000 |
parents | 2f0766bf8315 |
children | 67f759e94c3e |
comparison
equal
deleted
inserted
replaced
12065:094636c759bf | 12066:b9b0b3f96dc2 |
---|---|
283 ?*) sort -u -o $llogout <<EOF || exit | 283 ?*) sort -u -o $llogout <<EOF || exit |
284 $logins | 284 $logins |
285 EOF | 285 EOF |
286 esac | 286 esac |
287 output_authors='/^date: / { | 287 output_authors='/^date: / { |
288 if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) { | 288 if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9:]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) { |
289 print substr($5, 1, length($5)-1) | 289 print substr($5, 1, length($5)-1) |
290 } | 290 } |
291 }' | 291 }' |
292 authors=` | 292 authors=` |
293 $AWK "$output_authors" <$rlogout | | 293 $AWK "$output_authors" <$rlogout | |