#!/bin/sh
exec perl -x -S $0 ${1+"$@"} # -*-perl-*-
#!perl

if ($] !~ /^5\..*/) {
  # uh-oh. this isn't perl 5.
  foreach (split(/:/, $ENV{PATH})) { # try to find "perl5".
    exec("$_/perl5", "-x", "-S", $0, @ARGV) if (-x "$_/perl5");
  }
  # we failed. bail.
  die "Your perl is too old; I need perl 5. See the README for what to do.\n";
}

# load the real script. this is isolated in an 'eval' so perl4 won't
# choke on the perl5-isms.
eval join("\n", <DATA>);
if ($@) { die "$@"; }
__END__
#
# nasd_edrfs_test_create_headers
#
# Author: Mathew Monroe
#
#
# Copyright (c) of Carnegie Mellon University, 1997,1998,1999.
#
# Permission to reproduce, use, and prepare derivative works of
# this software for internal use is granted provided the copyright
# and "No Warranty" statements are included with all reproductions
# and derivative works. This software may also be redistributed
# without charge provided that the copyright and "No Warranty"
# statements are included in all redistributions.
#
# NO WARRANTY. THIS SOFTWARE IS FURNISHED ON AN "AS IS" BASIS.
# CARNEGIE MELLON UNIVERSITY MAKES NO WARRANTIES OF ANY KIND, EITHER
# EXPRESSED OR IMPLIED AS TO THE MATTER INCLUDING, BUT NOT LIMITED
# TO: WARRANTY OF FITNESS FOR PURPOSE OR MERCHANTABILITY, EXCLUSIVITY
# OF RESULTS OR RESULTS OBTAINED FROM USE OF THIS SOFTWARE. CARNEGIE
# MELLON UNIVERSITY DOES NOT MAKE ANY WARRANTY OF ANY KIND WITH RESPECT
# TO FREEDOM FROM PATENT, TRADEMARK, OR COPYRIGHT INFRINGEMENT.
#

@text = <>;

print  "/* This file was autogenerated please do not modify. */\n\n";
print  "typedef struct NASD_EDRFS_ErrorEnt_s {\n";
print  "  nasd_status_t status;\n";
print  "  const char *str;\n";
print  "} NASD_EDRFS_ErrorEnt_t;\n\n";
print  "static NASD_EDRFS_ErrorEnt_t nasd_edrfs_err_list[] = {\n";

foreach (@text) {
    if ( /CONSTANT\s+nasd_int32\s+(\w+)\s*=\s*\[\s*[0-9]+\s*\]/ ) {
	print  "{$1, \"$1\"},\n";
    }
}

print "{0, NULL}\n};\n";
