Initial revision of NDB Cluster files

BitKeeper/etc/logging_ok:
  Logging to logging@openlogging.org accepted

1 files changed, 181 insertions, 0 deletions

diff --git a/ndb/tools/make-errors.pl b/ndb/tools/make-errors.pl
new file mode 100644
index 00000000000..65819209a89
--- /dev/null
+++ b/ndb/tools/make-errors.pl
@@ -0,0 +1,181 @@
+#! /usr/local/bin/perl
+
+use strict;
+use Getopt::Long;
+use XML::Parser;
+
+(my $progname = $0) =~ s!^.*/!!;
+
+sub usage {
+    my $errstr = "@_";
+    while (chomp($errstr)) {}
+    print <<END;
+$progname: $errstr
+$progname -- read codes.xml and write codes.hpp and codes.cpp
+usage: $progname [options] codes.xml
+-c  check xml file only
+-d  check xml file and show diff against old hpp and cpp
+END
+    exit(1);
+}
+
+my $opts = {};
+opts: {
+    local $SIG{__WARN__} = \&usage;
+    GetOptions($opts, qw(c d));
+}
+@ARGV == 1 or usage("one filename argument expected");
+my $filexml = shift;
+$filexml =~ /^(.*)\.xml$/ or usage("$filexml does not end in .xml");
+my $filehpp = "$1.hpp";
+my $filecpp = "$1.cpp";
+
+my $temphpp = "$filehpp-new";
+my $tempcpp = "$filecpp-new";
+unlink $temphpp, $tempcpp;
+open(HPP, ">$temphpp") or die "$temphpp: $!\n";
+open(CPP, ">$tempcpp") or die "$tempcpp: $!\n";
+
+my $i2 = " " x 2;
+my $i4 = " " x 4;
+my $lb = "{";
+my $rb = "}";
+
+sub disclaimer {
+    my $filename = shift;
+    return <<END;
+/*
+ * $filename -- DO NOT EDIT !!
+ *
+ * To create a new version (both *.hpp and *.cpp):
+ *
+ * 1) edit $filexml
+ * 2) perl tools/$progname $filexml
+ * 3) check all files (*.xml *.hpp *.cpp) into CVS
+ *
+ * On RedHat linux requires perl-XML-Parser package.
+ */
+END
+}
+
+my $classname = $filehpp;
+$classname =~ s!^.*/!!;
+$classname =~ s/\.hpp$//;
+
+sub handle_init {
+    my($parser) = @_;
+    my $guard = $filehpp;
+    $guard =~ s!^.*/!!;
+    $guard =~ s!([a-z])([A-Z])!${1}_${2}!g;
+    $guard =~ s!\.!_!g;
+    $guard = uc($guard);
+    print HPP "#ifndef $guard\n#define $guard\n\n";
+    print HPP disclaimer($filehpp), "\n";
+    print HPP "class $classname $lb\n";
+    print HPP "${i2}enum Value $lb\n";
+    print CPP disclaimer($filecpp), "\n";
+    print CPP "/* included in Ndberror.cpp */\n\n";
+}
+
+my %classhash = (
+    ApplicationError => 1,
+    NoDataFound => 1,
+    ConstraintViolation => 1,
+    SchemaError => 1,
+    UserDefinedError => 1,
+    InsufficientSpace => 1,
+    TemporaryResourceError => 1,
+    NodeRecoveryError => 1,
+    OverloadError => 1,
+    TimeoutExpired => 1,
+    UnknownResultError => 1,
+    InternalError => 1,
+    FunctionNotImplemented => 1,
+    UnknownErrorCode => 1,
+    NodeShutdown => 1,
+);
+
+my $section = undef;
+my %codehash = ();
+my %namehash = ();
+
+sub handle_start {
+    my($parser, $tag, %attr) = @_;
+    if ($tag eq 'Error') {
+	return;
+    }
+    if ($tag eq 'Section') {
+	$section = $attr{name};
+	$section =~ /^\w+$/ or
+	    $parser->xpcroak("invalid or missing section name");
+	return;
+    }
+    if ($tag eq 'Code') {
+	print HPP ",\n" if %codehash;
+	print CPP ",\n" if %codehash;
+	my $name = $attr{name};
+	my $class = $attr{class};
+	my $code = $attr{code};
+	my $message = $attr{message};
+	$name =~ /^\w+$/ or
+	    $parser->xpcroak("invalid or missing error name '$name'");
+	$namehash{$name}++ and
+	    $parser->xpcroak("duplicate error name '$name'");
+	$classhash{$class} or
+	    $parser->xpcroak("invalid or missing error class '$class'");
+	$code =~ /^\d+$/ or
+	    $parser->xpcroak("invalid or missing error code '$code'");
+	$codehash{$code}++ and
+	    $parser->xpcroak("duplicate error code '$code'");
+	$message =~ /\S/ or
+	    $parser->xpcroak("invalid or missing error message '$message'");
+	$message =~ s/^\s+|\s+$//g;
+	my $enum = "${section}_${name}";
+	print HPP "${i4}$enum = $code";
+	print CPP "${i2}$lb ${classname}::$enum,\n";
+	print CPP "${i4}NdbError::$class,\n";
+	print CPP "${i4}\"$message\"\n";
+	print CPP "${i2}$rb";
+	return;
+    }
+    $parser->xpcroak("unknown tag $tag");
+}
+
+sub handle_end {
+    my($parser, $tag) = @_;
+}
+
+sub handle_final {
+    print HPP "\n" if %codehash;
+    print HPP "${i2}$rb;\n";
+    print HPP "$rb;\n\n#endif\n";
+    print CPP ",\n" if 1;
+    return 1;
+}
+
+my $parser = new XML::Parser(
+    ParseParamEnt => 1,
+    Handlers => {
+	Init => \&handle_init,
+	Start => \&handle_start,
+	End => \&handle_end,
+	Final => \&handle_final,
+    },
+    ErrorContext => 0,
+);
+eval {
+    $parser->parsefile($filexml);
+};
+if ($@) {
+    my $errstr = join("\n", grep(m!\S! && ! m!^\s*at\s!, split(/\n/, $@)));
+    die "$filexml:\n$errstr\n";
+}
+
+close(HPP);
+close(CPP);
+rename($temphpp, $filehpp);
+rename($tempcpp, $filecpp);
+
+1;
+
+# vim:set sw=4: