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#
8BEGIN		{ 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		}
21