mirror of https://github.com/ecmwf/eccodes.git
112 lines
3.0 KiB
Bash
112 lines
3.0 KiB
Bash
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
# This script is used to generate the file "python/gribapi/errors.py"
|
||
|
|
# It reads "src/grib_errors.c" which it expects to be up-to-date with
|
||
|
|
# all the error codes.
|
||
|
|
|
||
|
|
$|=1;
|
||
|
|
|
||
|
|
my $input = '../src/grib_errors.c';
|
||
|
|
my $print_class = 1;
|
||
|
|
my %errmap = ();
|
||
|
|
|
||
|
|
# Print header
|
||
|
|
# -------------------------------------
|
||
|
|
my $header = <<'END_HEADER';
|
||
|
|
"""
|
||
|
|
Exception class hierarchy
|
||
|
|
"""
|
||
|
|
|
||
|
|
import gribapi_swig as _internal
|
||
|
|
|
||
|
|
|
||
|
|
class GribInternalError(Exception):
|
||
|
|
"""
|
||
|
|
@brief Wrap errors coming from the C API in a Python exception object.
|
||
|
|
|
||
|
|
Base class for all exceptions
|
||
|
|
"""
|
||
|
|
|
||
|
|
def __init__(self, value):
|
||
|
|
# Call the base class constructor with the parameters it needs
|
||
|
|
Exception.__init__(self, value)
|
||
|
|
if type(value) is int:
|
||
|
|
err, self.msg = _internal.grib_c_get_error_string(value, 1024)
|
||
|
|
assert err == 0
|
||
|
|
else:
|
||
|
|
self.msg = value
|
||
|
|
|
||
|
|
def __str__(self):
|
||
|
|
return self.msg
|
||
|
|
|
||
|
|
|
||
|
|
END_HEADER
|
||
|
|
print $header;
|
||
|
|
|
||
|
|
# Print the exception classes
|
||
|
|
# -------------------------------------
|
||
|
|
while (<>) {
|
||
|
|
# Example of input line
|
||
|
|
# "Passed array is too small", /* -6 GRIB_ARRAY_TOO_SMALL */
|
||
|
|
if (/^"(.*)",\s+\/\* (.*) (.*) \*\//) {
|
||
|
|
$desc = $1;
|
||
|
|
$code = $2;
|
||
|
|
$name = $3;
|
||
|
|
next if ($code == 0);
|
||
|
|
|
||
|
|
$name =~ s/GRIB_//;
|
||
|
|
$name_lc = $name;
|
||
|
|
$name_lc =~ s/_/ /g;
|
||
|
|
$name_lc = lc $name_lc;
|
||
|
|
$name_lc =~ s/(\w+)/\u$1/g;
|
||
|
|
$name_lc =~ s/ //g;
|
||
|
|
|
||
|
|
$name = $name_lc;
|
||
|
|
if ($name !~ /Error$/) {
|
||
|
|
$name = $name . "Error";
|
||
|
|
}
|
||
|
|
|
||
|
|
$name = 'FunctionNotImplementedError' if ($name eq 'NotImplementedError');
|
||
|
|
$name = 'MessageEndNotFoundError' if ($name eq '7777NotFoundError');
|
||
|
|
$name = 'IOProblemError' if ($name eq 'IoProblemError');
|
||
|
|
$name = 'MessageInvalidError' if ($name eq 'InvalidMessageError');
|
||
|
|
$name = 'GeocalculusError' if ($name eq 'GeocalculusProblemError');
|
||
|
|
$name = 'InvalidOrderByError' if ($name eq 'InvalidOrderbyError');
|
||
|
|
$name = 'InvalidBitsPerValueError' if ($name eq 'InvalidBpvError');
|
||
|
|
$name = 'KeyValueNotFoundError' if ($name eq 'NotFoundError');
|
||
|
|
$name = 'MemoryAllocationError' if ($name eq 'OutOfMemoryError');
|
||
|
|
|
||
|
|
# Print the class declaration
|
||
|
|
print "class ${name}(GribInternalError):\n";
|
||
|
|
print " \"\"\"${desc}.\"\"\"\n";
|
||
|
|
|
||
|
|
$errmap{$code} = $name; # store for later
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# Print the map
|
||
|
|
# -------------------------------------
|
||
|
|
my $size = keys %errmap;
|
||
|
|
print "\nERROR_MAP = {\n";
|
||
|
|
my $i = 0;
|
||
|
|
for $key (sort { $a <=> $b } keys %errmap) {
|
||
|
|
$i++;
|
||
|
|
my $ktext = sprintf("%-3d", $key);
|
||
|
|
print " $ktext : $errmap{$key}";
|
||
|
|
print ",\n" if ($i < $size);
|
||
|
|
}
|
||
|
|
print "\n}\n\n";
|
||
|
|
|
||
|
|
|
||
|
|
# Print footer
|
||
|
|
# -------------------------------------
|
||
|
|
my $footer = <<'END_FOOTER';
|
||
|
|
|
||
|
|
def raise_grib_error(errid):
|
||
|
|
"""
|
||
|
|
Raise the GribInternalError corresponding to ``errid``.
|
||
|
|
"""
|
||
|
|
raise ERROR_MAP[errid](errid)
|
||
|
|
END_FOOTER
|
||
|
|
print $footer;
|