Convert-UUlib/uulib/uustring.awk

#! /usr/bin/awk
#
# $Id: uustring.awk,v 1.2 1996/07/03 19:30:08 fp Exp $
#
# Extract definitions for string codes from uustring.c into uustring.h
# Does this script require GAWK?
#
BEGIN           { i=1; }
/\$Id/          {
                  match ($0, "\\$Id.*\\$");
                  printf ("/* extracted from %s */\n",
                          substr ($0, RSTART+1, RLENGTH-2));
                }
/^[     ]*\{[   ]*S_[A-Z_]+.*\}[        ]*,[    ]*$/ {
                  match ($0, "S_[A-Z_]+");
                  printf ("#define %-20s %3d\n",
                          substr ($0, RSTART, RLENGTH),
                          i);
                  i++;
                }
Revision:	1.1.2.4
Committed:	Thu Nov 6 13:08:25 2003 UTC (20 years, 7 months ago) by root
Branch:	UUDEVIEW
CVS Tags:	UUDEVIEW-0-5-19
Changes since 1.1.2.3:	+0 -0 lines
Log Message:	* empty log message *
#	Content
1	#! /usr/bin/awk
2	#
3	# $Id: uustring.awk,v 1.2 1996/07/03 19:30:08 fp Exp $
4	#
5	# Extract definitions for string codes from uustring.c into uustring.h
6	# Does this script require GAWK?
7	#
8	BEGIN { i=1; }
9	/\$Id/ {
10	match ($0, "\\$Id.*\\$");
11	printf ("/* extracted from %s */\n",
12	substr ($0, RSTART+1, RLENGTH-2));
13	}
14	/^[ ]\{[ ]S_[A-Z_]+.\}[ ],[ ]*$/ {
15	match ($0, "S_[A-Z_]+");
16	printf ("#define %-20s %3d\n",
17	substr ($0, RSTART, RLENGTH),
18	i);
19	i++;
20	}