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# 247aec1d6eScindi# Copyright 2006 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 = (); 37*4156fc34Sgavinmmy @errorrefs = (); 38*4156fc34Sgavinm 39*4156fc34Sgavinmmy $codelinesin = 0; # number of input 'code' lines for an ereport type 40*4156fc34Sgavinmmy $codeoutlen = 0; # number of output lines from sub state_code 417aec1d6eScindi 42