Convert-UUlib/uulib/uustring.awk

#! /usr/bin/awk
#
# $Id$
#
# 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.5
Committed:	Sun Apr 18 19:55:46 2004 UTC (22 years, 5 months ago) by root
Branch:	UUDEVIEW
CVS Tags:	UUDEVIEW-0-5-20
Changes since 1.1.2.4:	+0 -0 lines
Log Message:	* empty log message *
#	Content
1	#! /usr/bin/awk
2	#
3	# $Id$
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	}