Convert-UUlib/uulib/uustring.awk

#! /usr/bin/awk
#
# $Id: uustring.awk,v 1.1.2.2 2002/03/31 19:52:08 root 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.2
Committed:	Sun Mar 31 20:04:31 2002 UTC (24 years, 5 months ago) by root
Branch:	MAIN
CVS Tags:	rel-1_11, rel-1_10, rel-1_12, rel-1_34, rel-1_33, rel-1_32, rel-1_31, rel-1_71, rel-0_7, rel-1_8, rel-1_3, rel-1_5, rel-1_4, rel-1_7, rel-1_6, rel-1_06, rel-1_04, rel-1_05, rel-1_08, rel-1_09, rel-1_62, HEAD
Changes since 1.1:	+1 -1 lines
Log Message:	* empty log message *
#	Content
1	#! /usr/bin/awk
2	#
3	# $Id: uustring.awk,v 1.1.2.2 2002/03/31 19:52:08 root 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	}