17aec1d6eScindi#!/bin/perl
27aec1d6eScindi#
37aec1d6eScindi# CDDL HEADER START
47aec1d6eScindi#
57aec1d6eScindi# The contents of this file are subject to the terms of the
6a307a255Sgavinm# Common Development and Distribution License (the "License").
7a307a255Sgavinm# You may not use this file except in compliance with the License.
87aec1d6eScindi#
97aec1d6eScindi# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
107aec1d6eScindi# or http://www.opensolaris.org/os/licensing.
117aec1d6eScindi# See the License for the specific language governing permissions
127aec1d6eScindi# and limitations under the License.
137aec1d6eScindi#
147aec1d6eScindi# When distributing Covered Code, include this CDDL HEADER in each
157aec1d6eScindi# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
167aec1d6eScindi# If applicable, add the following below this CDDL HEADER, with the
177aec1d6eScindi# fields enclosed by brackets "[]" replaced with your own identifying
187aec1d6eScindi# information: Portions Copyright [yyyy] [name of copyright owner]
197aec1d6eScindi#
207aec1d6eScindi# CDDL HEADER END
217aec1d6eScindi#
227aec1d6eScindi
237aec1d6eScindi#
24*20c794b3Sgavinm# Copyright 2007 Sun Microsystems, Inc.  All rights reserved.
257aec1d6eScindi# Use is subject to license terms.
267aec1d6eScindi#
277aec1d6eScindi# ident	"%Z%%M%	%I%	%E% SMI"
287aec1d6eScindi#
297aec1d6eScindi
307aec1d6eScindiuse strict;
317aec1d6eScindiuse File::Basename;
327aec1d6eScindi
337aec1d6eScindimy $PROGNAME = basename($0);
347aec1d6eScindi
357aec1d6eScindimy ($funcunit, $error);
367aec1d6eScindimy @funcunits = ();
374156fc34Sgavinmmy @errorrefs = ();
384156fc34Sgavinm
394156fc34Sgavinmmy $codelinesin = 0;	# number of input 'code' lines for an ereport type
404156fc34Sgavinmmy $codeoutlen = 0;	# number of output lines from sub state_code
417aec1d6eScindi
427aec1d6eScindimy $state = "initial";
43