vchoi_fork

#!/usr/bin/perl -w

require 5.003;

$indent=4;

​

#

# Copyright by the Board of Trustees of the University of Illinois.

# All rights reserved.

#

# This file is part of HDF5.  The full HDF5 copyright notice, including

# terms governing use, modification, and redistribution, is contained in

# the files COPYING and Copyright.html.  COPYING can be found at the root

# of the source code distribution tree; Copyright.html can be found at the

# root level of an installed copy of the electronic HDF5 document set and

# is linked from the top-level documents page.  It can also be found at

# http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have

# access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu.

#

​

# Create error headers

#

# Read in the error description text file and create the appropriate headers

# needed by the library.

#

# Programmer: Quincey Koziol

# Creation Date: 2003/08/12

​

##############################################################################

# Print the copyright into an open file

#

sub print_copyright ($) {

    my $fh = shift;

​

    print $fh "/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n";

    print $fh " * Copyright by the Board of Trustees of the University of Illinois.         *\n";

    print $fh " * All rights reserved.                                                      *\n";

    print $fh " *                                                                           *\n";

    print $fh " * This file is part of HDF5.  The full HDF5 copyright notice, including     *\n";

    print $fh " * terms governing use, modification, and redistribution, is contained in    *\n";

    print $fh " * the files COPYING and Copyright.html.  COPYING can be found at the root   *\n";

    print $fh " * of the source code distribution tree; Copyright.html can be found at the  *\n";

    print $fh " * root level of an installed copy of the electronic HDF5 document set and   *\n";

    print $fh " * is linked from the top-level documents page.  It can also be found at     *\n";

    print $fh " * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have     *\n";

    print $fh " * access to either file, you may request a copy from hdfhelp\@ncsa.uiuc.edu. *\n";

    print $fh " * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */\n";

}

​

##############################################################################

# Print the "do not change this file" warning

#

sub print_warning ($) {