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