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
Committed:	Mon Jun 11 19:49:00 2001 UTC (23 years ago) by root
Branch:	MAIN
Branch point for:	UUDEVIEW
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.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			}