head     1.3;
branch   ;
access   ;
symbols  ;
locks    lee:1.3;
comment  @@;


1.3
date     96.05.14.22.20.45;  author lee;  state Exp;
branches ;
next     1.2;

1.2
date     93.12.09.22.21.40;  author lee;  state Exp;
branches ;
next     1.1;

1.1
date     92.08.24.00.28.37;  author lee;  state Exp;
branches ;
next     ;


desc
@Get list of RCS ids.
@


1.3
log
@fixed a bug 3 years ago...
@
text
@#! /bin/sh

# $Id: GetIdList,v 1.2 93/12/09 22:21:40 lee Exp $

# make a list of files & revisions.

echo "# Revision list for lq-text distribution as of `date`"
grep LQTEXTREVISION h/Revision.h
echo "#"
echo "# This file was generated automatically by $0"

find filters h liblq* lqtext menu -type f -print |
	grep -v '\.o$' | egrep -v '(,v|RCS/|/tags$)' | xargs ident |
	egrep '(\$Id:|/)' | uniq | nawk '
    
    BEGIN {
	Name = ""
    }

    /^[^ 	].*\/.*:/ {
	if (Name) {
	    print FullName
	}
	sub(/:$/, "")
	FullName = $0
	gsub(/.*\//, "")
	Name = $0
    }

    /\$Id:/ {
	# Format:
	# $Id: GetIdList,v 1.2 93/12/09 22:21:40 lee Exp $
	# $Id: GetIdList,v 1.2 93/12/09 22:21:40 lee Exp $ 

	Line = $0
	sub(/^.*\$Id:[ 	]/, "")
	Rev = $2
	if ($0 ~ /[lL]ocker/) {
	    printf "Warning: locked: %s: %s\n", FullName, Line | "cat -u 1>&2"
	}
	sub(/,v.*$/, "")
	if ($0 == Name) {
	    printf "%s\t%s\n", FullName, Rev
	} else if (Name != "") {
	    printf "%s\n%s\n", FullName, Line
	} else {
	    print Line
	}
	Name = ""
    }
    '
@


1.2
log
@improvd handling for Id when not at start of line.
@
text
@d3 1
a3 1
# $Id: GetIdList,v 1.1 92/08/24 00:28:37 lee Exp $
d32 2
a33 2
	# $Id: GetIdList,v 1.1 92/08/24 00:28:37 lee Exp $
	# $Id: lqmkfree.c,v 1.1 92/02/15 04:03:19 lee Exp $ 
d36 2
a37 1
	Rev = $3
d39 1
a39 1
	    printf "Warning: locked: %s: %s\n", FullName, $0 | "cat -u 1>&2"
a41 1
	sub(/^.*\$Id:[ 	]/, "")
@


1.1
log
@Initial revision
@
text
@d3 1
a3 1
# $Id$
d32 3
a34 1
	# $Id: FilterMain.c,v 1.3 90/10/06 00:57:16 lee Rel1-10 $
d41 1
a41 1
	sub(/^.*[ 	]/, "")
@
