xapian-bindings/python/generate-python-exceptions

   1 # generate-python-exceptions: generate error handling code for Python bindings
   2 my $copyright = <<'END';
   3  Copyright (C) 2003,2004,2006,2007,2008,2009,2012 Olly Betts
   4  Copyright (C) 2007 Lemur Consulting Ltd
   5  Copyright (C) 2007 Richard Boulton
   6
   7  This program is free software; you can redistribute it and/or
   8  modify it under the terms of the GNU General Public License as
   9  published by the Free Software Foundation; either version 2 of the
  10  License, or (at your option) any later version.
  11
  12  This program is distributed in the hope that it will be useful,
  13  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  GNU General Public License for more details.
  16
  17  You should have received a copy of the GNU General Public License
  18  along with this program; if not, write to the Free Software
  19  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
  20 END
  21
  22 use strict;
  23 use exception_data;
  24
  25 my @allclasses = (@baseclasses, @classes);
  26
  27 my @posting_source_virtual_methods = qw(
  28     get_termfreq_min
  29     get_termfreq_est
  30     get_termfreq_max
  31     get_maxweight
  32     get_weight
  33     next
  34     skip_to
  35     check
  36     at_end
  37     get_docid
  38     get_description
  39     init
  40     name
  41 );
  42
  43 my @matchspy_virtual_methods = qw(
  44     name
  45     merge_results
  46     get_description
  47 );
  48
  49 open FD, ">except.i" or die $!;
  50
  51 $copyright =~ s/^/ */mg;
  52
  53 print FD <<"EOF";
  54 /** \@file
  55  * \@brief Custom Python exception handling.
  56  */
  57 /* Warning: This file is generated by $0
  58  * - do not modify directly!
  59  *
  60 $copyright */
  61
  62 EOF
  63
  64 print FD <<'EOF';
  65 namespace Xapian {
  66
  67 %exceptionclass Error;
  68 %ignore Error::get_description;
  69 %extend Error {
  70     std::string __str__() const {
  71         std::string desc($self->get_msg());
  72         if (!$self->get_context().empty()) {
  73             desc += " (context: ";
  74             desc += $self->get_context();
  75             desc += ')';
  76         }
  77         if ($self->get_error_string()) {
  78             desc += " (";
  79             desc += $self->get_error_string();
  80             desc += ')';
  81         }
  82         return desc;
  83     }
  84 }
  85 EOF
  86
  87 for (@allclasses) {
  88     my ($class) = @{$_};
  89     print FD "%exceptionclass $class;\n";
  90 }
  91
  92 print FD <<'EOF';
  93 }
  94 %ignore Xapian::Error::Error(const Error&);
  95 %include "xapian/error.h"
  96
  97 %{
  98 namespace Xapian {
  99 SWIGEXPORT void SetPythonException() {
 100     try {
 101         throw;
 102     } catch (Swig::DirectorException &) {
 103         /* This happens if a director raised an exception.  The standard SWIG
 104          * director exception handling code sets the Python error state if
 105          * necessary, so we don't need to do anything. */
 106 EOF
 107
 108 for (reverse @allclasses) {
 109     my ($class) = @{$_};
 110     print FD <<"EOF";
 111     } catch (const Xapian::$class &e) {
 112         SWIG_Python_Raise(SWIG_NewPointerObj((new Xapian::$class(e)),
 113                                              SWIGTYPE_p_Xapian__$class,
 114                                              SWIG_POINTER_OWN),
 115                           "Xapian::$class",
 116                           SWIGTYPE_p_Xapian__$class);
 117 EOF
 118 }
 119
 120 print FD <<'EOF';
 121     } catch (const Xapian::Error &e) {
 122         SWIG_Python_Raise(SWIG_NewPointerObj((new Xapian::Error(e)),
 123                                              SWIGTYPE_p_Xapian__Error,
 124                                              SWIG_POINTER_OWN),
 125                           "Xapian::Error",
 126                           SWIGTYPE_p_Xapian__Error);
 127     } catch (const std::exception& e) {
 128         SWIG_Error(SWIG_RuntimeError, e.what());
 129     } catch (...) {
 130         SWIG_Error(SWIG_UnknownError, "unknown error in Xapian");
 131     }
 132 }
 133 }
 134 %}
 135
 136 /* Functions and methods which are marked as "nothrow": */
 137 EOF
 138
 139 chdir($INC[0]);
 140 exception_data::for_each_nothrow(sub { print FD "%exception $_[0];\n" });
 141
 142 print FD <<'EOF';
 143
 144 %exception {
 145     try {
 146         $action
 147     } catch (...) {
 148         Xapian::SetPythonException();
 149         SWIG_fail;
 150     }
 151 }
 152
 153 /* If a Python error is raised by a call to a director function, the following
 154  * code should cause a C++ exception to be thrown.
 155  */
 156 %feature("director:except") {
 157     if ($error != NULL) {
 158         throw Swig::DirectorMethodException();
 159     }
 160 }
 161
 162 /* vim:syntax=cpp:set noexpandtab: */
 163 EOF
 164
 165 close FD or die $!;