xref: /onnv-gate/usr/src/cmd/sgs/tools/getmessage.awk (revision 0:68f95e015346)
1*0Sstevel@tonic-gate#
2*0Sstevel@tonic-gate# Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
3*0Sstevel@tonic-gate# Use is subject to license terms.
4*0Sstevel@tonic-gate#
5*0Sstevel@tonic-gate# CDDL HEADER START
6*0Sstevel@tonic-gate#
7*0Sstevel@tonic-gate# The contents of this file are subject to the terms of the
8*0Sstevel@tonic-gate# Common Development and Distribution License, Version 1.0 only
9*0Sstevel@tonic-gate# (the "License").  You may not use this file except in compliance
10*0Sstevel@tonic-gate# with the License.
11*0Sstevel@tonic-gate#
12*0Sstevel@tonic-gate# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
13*0Sstevel@tonic-gate# or http://www.opensolaris.org/os/licensing.
14*0Sstevel@tonic-gate# See the License for the specific language governing permissions
15*0Sstevel@tonic-gate# and limitations under the License.
16*0Sstevel@tonic-gate#
17*0Sstevel@tonic-gate# When distributing Covered Code, include this CDDL HEADER in each
18*0Sstevel@tonic-gate# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
19*0Sstevel@tonic-gate# If applicable, add the following below this CDDL HEADER, with the
20*0Sstevel@tonic-gate# fields enclosed by brackets "[]" replaced with your own identifying
21*0Sstevel@tonic-gate# information: Portions Copyright [yyyy] [name of copyright owner]
22*0Sstevel@tonic-gate#
23*0Sstevel@tonic-gate# CDDL HEADER END
24*0Sstevel@tonic-gate#
25*0Sstevel@tonic-gate# ident	"%Z%%M%	%I%	%E% SMI"
26*0Sstevel@tonic-gate#
27*0Sstevel@tonic-gate
28*0Sstevel@tonic-gate#
29*0Sstevel@tonic-gate# Extract MACROs referenced by MSG_INTL and MSG_ORIG
30*0Sstevel@tonic-gate#	The MACROS referenced by MSG_INTL() go to MSG_INTL_LIST
31*0Sstevel@tonic-gate#	The MACROS referenced by MSG_ORIG() go to MSG_ORIG_LIST
32*0Sstevel@tonic-gate#
33*0Sstevel@tonic-gate
34*0Sstevel@tonic-gateBEGIN {
35*0Sstevel@tonic-gate	FS = "[,(){]|[ ]+|[\t]+"
36*0Sstevel@tonic-gate
37*0Sstevel@tonic-gate	# These variables are used to handle the lines such as:
38*0Sstevel@tonic-gate	#		MSG_INTL(
39*0Sstevel@tonic-gate	#		MSG_FORMAT);
40*0Sstevel@tonic-gate	watchme_intl = 0
41*0Sstevel@tonic-gate	watchme_orig = 0
42*0Sstevel@tonic-gate}
43*0Sstevel@tonic-gate
44*0Sstevel@tonic-gate#
45*0Sstevel@tonic-gate# If the input line has MSG_INTL or MSG_ORIG, collect the
46*0Sstevel@tonic-gate# MACRO used. Assumption is that the MACRO names have to be
47*0Sstevel@tonic-gate# composed of upper characters.
48*0Sstevel@tonic-gate#
49*0Sstevel@tonic-gate/MSG_INTL|MSG_ORIG|_elf_seterr/ {
50*0Sstevel@tonic-gate	for (i = 1; i <= NF; ++i) {
51*0Sstevel@tonic-gate		if ($i == "MSG_INTL" || $i == "_elf_seterr") {
52*0Sstevel@tonic-gate			if (i == NF - 1) {
53*0Sstevel@tonic-gate				watchme_intl = 1
54*0Sstevel@tonic-gate				next
55*0Sstevel@tonic-gate			}
56*0Sstevel@tonic-gate			j = i + 1
57*0Sstevel@tonic-gate			while ($j == "")
58*0Sstevel@tonic-gate				j++
59*0Sstevel@tonic-gate			if (match($j, /[a-z]/) == 0 &&
60*0Sstevel@tonic-gate			    match($j, /[A-Z]/) != 0)
61*0Sstevel@tonic-gate				print $j	> "MSG_INTL_LIST"
62*0Sstevel@tonic-gate		}
63*0Sstevel@tonic-gate
64*0Sstevel@tonic-gate		if ($i == "MSG_ORIG") {
65*0Sstevel@tonic-gate			if (i == NF - 1) {
66*0Sstevel@tonic-gate				watchme_orig = 1
67*0Sstevel@tonic-gate				next
68*0Sstevel@tonic-gate			}
69*0Sstevel@tonic-gate			j = i + 1
70*0Sstevel@tonic-gate			while ($j == "")
71*0Sstevel@tonic-gate				j++
72*0Sstevel@tonic-gate			if (match($j, /[a-z]/) == 0 &&
73*0Sstevel@tonic-gate			    match($j, /[A-Z]/) != 0)
74*0Sstevel@tonic-gate				print $j	> "MSG_ORIG_LIST"
75*0Sstevel@tonic-gate		}
76*0Sstevel@tonic-gate	}
77*0Sstevel@tonic-gate}
78*0Sstevel@tonic-gate
79*0Sstevel@tonic-gate#
80*0Sstevel@tonic-gate# If the previous line ended with MSG_INTL or MSG_ORIG not
81*0Sstevel@tonic-gate# having the MACRO name, pick it from the next line.
82*0Sstevel@tonic-gate#
83*0Sstevel@tonic-gate{
84*0Sstevel@tonic-gate	if (watchme_intl == 1) {
85*0Sstevel@tonic-gate		if (match($1, /[a-z]/) == 0 &&
86*0Sstevel@tonic-gate		    match($1, /[A-Z]/) != 0)
87*0Sstevel@tonic-gate			print $1	> "MSG_INTL_LIST"
88*0Sstevel@tonic-gate		watchme_intl = 0;
89*0Sstevel@tonic-gate	} else if (watchme_orig == 1) {
90*0Sstevel@tonic-gate		if (match($1, /[a-z]/) == 0 &&
91*0Sstevel@tonic-gate		    match($1, /[A-Z]/) != 0)
92*0Sstevel@tonic-gate			print $1	> "MSG_INTL_ORIG"
93*0Sstevel@tonic-gate		watchme_orig = 0;
94*0Sstevel@tonic-gate	}
95*0Sstevel@tonic-gate}
96