comparison lib-src/rcs2log @ 11099:4d05376b5cb2

(output_authors): Replace /[/]/ by /[\/]/, for portability to mawk and nawk.
author Paul Eggert <eggert@twinsun.com>
date Thu, 23 Mar 1995 01:21:07 +0000
parents aee85fcd9d25
children 2f0766bf8315
comparison
equal deleted inserted replaced
11098:03b481b6cec2 11099:4d05376b5cb2
10 # Clump together log entries that start with `{topic} ', 10 # Clump together log entries that start with `{topic} ',
11 # where `topic' contains neither white space nor `}'. 11 # where `topic' contains neither white space nor `}'.
12 12
13 # Author: Paul Eggert <eggert@twinsun.com> 13 # Author: Paul Eggert <eggert@twinsun.com>
14 14
15 # $Id: rcs2log,v 1.19 1995/03/21 05:37:42 eggert Exp eggert $ 15 # $Id: rcs2log,v 1.20 1995/03/21 23:14:41 eggert Exp eggert $
16 16
17 # Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc. 17 # Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
18 18
19 # This program is free software; you can redistribute it and/or modify 19 # This program is free software; you can redistribute it and/or modify
20 # it under the terms of the GNU General Public License as published by 20 # it under the terms of the GNU General Public License as published by
271 ?*) sort -u -o $llogout <<EOF || exit 271 ?*) sort -u -o $llogout <<EOF || exit
272 $logins 272 $logins
273 EOF 273 EOF
274 esac 274 esac
275 output_authors='/^date: / { 275 output_authors='/^date: / {
276 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 ~ /^[^;]*;$/) { 276 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 ~ /^[^;]*;$/) {
277 print substr($5, 1, length($5)-1) 277 print substr($5, 1, length($5)-1)
278 } 278 }
279 }' 279 }'
280 authors=` 280 authors=`
281 $AWK "$output_authors" <$rlogout | 281 $AWK "$output_authors" <$rlogout |