hdf5_chunking_query_bmr

#!/usr/bin/perl -w

require 5.003;

$indent=4;

​

#

# Copyright by The HDF Group.

# 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 COPYING file, which can be found at the root of the source code

# distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases.

# If you do not have access to either file, you may request a copy from

# help@hdfgroup.org.

#

​

# 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 HDF Group.                                               *\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 COPYING file, which can be found at the root of the source code       *\n";

    print $fh " * distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases.  *\n";

    print $fh " * If you do not have access to either file, you may request a copy from     *\n";

    print $fh " * help\@hdfgroup.org.                                                        *\n";

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

}

​

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

# Print the "do not change this file" warning

#

sub print_warning ($) {

    my $fh = shift;

​