iframe-proxy | Sunbelt Computer Software

200 lines (165 loc) · 5.88 KB
   Copyright 2011-2013, 2017 David Malcolm <dmalcolm@redhat.com>
   Copyright 2011-2013, 2017 Red Hat, Inc.
   This is free software: you can redistribute it and/or modify it
   under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.
   This program is distributed in the hope that it will be useful, but
   WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   General Public License for more details.
   You should have received a copy of the GNU General Public License
   along with this program.  If not, see
   <http://www.gnu.org/licenses/>.
#include <Python.h>
#include "gcc-python.h"
#include "gcc-python-wrappers.h"
#include "diagnostic.h"
#include "gcc-c-api/gcc-diagnostics.h"
  I initially attempted to directly wrap gcc's:
    diagnostic_report_diagnostic()
  given that that seems to be the abstraction within gcc/diagnostic.h: all
  instances of (struct diagnostic_info) within the gcc source tree seem to
  be allocated on the stack, within functions exposed in gcc/diagnostic.h
  However, diagnostic_report_diagnostic() ultimately calls into the
  pretty-printing routines, trying to format varargs, which doesn't make much
  sense for us: we have first-class string objects and string formatting at
  the python level.
  Thus we instead just wrap "error_at" and its analogs
PyGcc_permerror(PyObject *self, PyObject *args)
    PyGccLocation *loc_obj = NULL;
    const char *msg = NULL;
    PyObject *result_obj = NULL;
    bool result_b;
    if (!PyArg_ParseTuple(args,
			  ":permerror",
			  &PyGccLocation_TypeObj, &loc_obj,
			  &msg)) {
        return NULL;
    /* Invoke the GCC function: */
    result_b = gcc_permerror(loc_obj->loc, msg);
    result_obj = PyBool_FromLong(result_b);
    return result_obj;
PyGcc_error(PyObject *self, PyObject *args, PyObject *kwargs)
    PyGccLocation *loc_obj;
    const char *msg;
    const char *keywords[] = {"location",
                              "message",
    if (!PyArg_ParseTupleAndKeywords(args, kwargs,
                                     "O!s:error", (char**)keywords,
                                     &PyGccLocation_TypeObj, &loc_obj,
        return NULL;
    gcc_error_at(loc_obj->loc, msg);
    Py_RETURN_NONE;
PyGcc_warning(PyObject *self, PyObject *args, PyObject *kwargs)
    PyGccLocation *loc_obj;
    const char *msg;
    PyObject *opt_obj = &_Py_NoneStruct;
    int opt_code;
    const char *keywords[] = {"location",
                              "message",
                              "option",
    bool was_reported;
    if (!PyArg_ParseTupleAndKeywords(args, kwargs,
                                     "O!s|O:warning", (char**)keywords,
                                     /* code "O!": */
                                     &PyGccLocation_TypeObj, &loc_obj,
                                     /* code: "s": */
                                     /* optional args: */
                                     /* code: "O": */
                                     &opt_obj)) {
        return NULL;
    assert(opt_obj);
    /* If a gcc.Option was given, extract the code: */
    if (Py_TYPE(opt_obj) == (PyTypeObject*)&PyGccOption_TypeObj) {
        opt_code = ((PyGccOption*)opt_obj)->opt.inner;
        /* Ugly workaround; see this function: */
        if (0 == PyGcc_option_is_enabled((enum opt_code)opt_code)) {
            return PyBool_FromLong(0);
    } else {
        if (opt_obj == &_Py_NoneStruct) {
            /* No gcc.Option given: an unconditionally enabled warning: */
            opt_code = 0;
        } else {
            /* Some other object was given: */
            return PyErr_Format(PyExc_TypeError,
                                ("option must be either None,"
                                 " or of type gcc.Option"));
    was_reported = warning_at(loc_obj->loc.inner, opt_code, "%s", msg);
    return PyBool_FromLong(was_reported);
PyGcc_inform(PyObject *self, PyObject *args, PyObject *kwargs)
    const char *msg;
    const char *keywords[] = {"location",
                              "message",
#if (GCC_VERSION >= 6000)
    PyObject *obj;
    if (!PyArg_ParseTupleAndKeywords(args, kwargs,
                                     "Os:inform", (char**)keywords,
                                     &obj, &msg)) {
        return NULL;
    /* Check for location vs rich_location.  */
    if (Py_TYPE (obj) == (PyTypeObject *)&PyGccLocation_TypeObj) {
        PyGccLocation *loc_obj = (PyGccLocation *)obj;
        gcc_inform(loc_obj->loc, msg);
        Py_RETURN_NONE;
    } else if (Py_TYPE (obj) == (PyTypeObject *)&PyGccRichLocation_TypeObj) {
        PyGccRichLocation *richloc_obj = (PyGccRichLocation *)obj;
#if (GCC_VERSION >= 8000)
        inform (&richloc_obj->richloc, "%s", msg);
        inform_at_rich_loc (&richloc_obj->richloc, "%s", msg);
        Py_RETURN_NONE;
    } else {
        return PyErr_Format(PyExc_TypeError,
                            ("type of location must be either gcc.Location"
                             " or gcc.RichLocation"));
    PyGccLocation *loc_obj;
    if (!PyArg_ParseTupleAndKeywords(args, kwargs,
                                     "O!s:inform", (char**)keywords,
                                     &PyGccLocation_TypeObj, &loc_obj,
        return NULL;
    gcc_inform(loc_obj->loc, msg);
    Py_RETURN_NONE;
Local variables:
c-basic-offset: 4
indent-tabs-mode: nil
Sunbelt Computer Software

PL/B Language Development and Support

Navigation Menu

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

gcc-python-diagnostics.c

Latest commit

History

gcc-python-diagnostics.c

File metadata and controls
