head	1.1;
branch	1.1.1;
access;
symbols
	LIBC_4_5_19:1.1.1.1
	LIBC_4_5_18:1.1.1.1
	LIBC_4_5_17:1.1.1.1
	LIBC_4_5_16:1.1.1.1
	LIBC_4_5_15:1.1.1.1
	LIBC_4_5_14:1.1.1.1
	LIBC_4_5_13:1.1.1.1
	LIBC_4_5_12:1.1.1.1
	LIBC_4_5_11:1.1.1.1
	LIBC_4_5_10:1.1.1.1
	LIBC_4_5_9:1.1.1.1
	LIBC_4_5_8:1.1.1.1
	LIBC_4_5_7:1.1.1.1
	LIBC:1.1.1;
locks; strict;
comment	@# @;


1.1
date	93.12.14.16.58.54;	author steinber;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	93.12.14.16.58.55;	author steinber;	state Exp;
branches;
next	;


desc
@@



1.1
log
@Initial revision
@
text
@#!/bin/sh
# Take a list of one line messages and output format for
# message file. Use only for static structures because
# position depencency is required. Otherwise make message
# id's more informative for use (i.e. hand edit)
# I used this for _errlist.c, _siglist.c.  - Mitch
# Its not as clever as I'd like it to be :-(

# NOTE: Gawk-2.15.3 broke the RLENGTH return from match().
# So please use the lex version of this called `xtract'. Just type
# 	% make xtract 
# in this directory.

gawk '(/\".*\"/) && ($1 !~ /#/) { \
		match($0,/\".*\"/);
		str = substr($0,RSTART+1,RLENGTH-2); \
		if (str)
		printf("$ #%d Original Message:(%s)\n# %s\n",x++,str,str)}' "$*"

@


1.1.1.1
log
@LIBC_4_5_7
@
text
@@
