clangc 1.0.0.pre

data/ext/clangc/class_Index.h

@@ -0,0 +1,58 @@
+/*
+ * ruby-clangc ruby bindings for the C interface of Clang
+ * Copyright (C) 2015-2016 Cedric Le Moigne cedlemo <cedlemo@gmx.com>
+ *
+ * This program 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/>.
+*/
+#ifndef INDEX_H
+#define INDEX_H
+#include <ruby/ruby.h>
+#include "clang-c/Index.h"
+typedef struct Index_t
+{
+    CXIndex data;
+} Index_t;
+
+VALUE
+c_Index_struct_alloc(VALUE);
+
+VALUE
+c_Index_initialize(VALUE, VALUE, VALUE);
+
+VALUE
+c_Index_set_global_options(VALUE, VALUE);
+
+VALUE
+c_Index_get_global_options(VALUE);
+
+VALUE
+c_Index_create_TU_from_source_file(VALUE, VALUE, VALUE);
+
+VALUE
+c_Index_create_TU(VALUE, VALUE);
+
+VALUE
+c_Index_create_TU2(VALUE, VALUE);
+
+VALUE
+c_Index_parse_TU(VALUE, VALUE, VALUE, VALUE);
+
+VALUE
+c_Index_parse_TU2(VALUE, VALUE, VALUE, VALUE);
+
+#if (CINDEX_VERSION_MINOR >= 32)
+VALUE
+c_Index_parse_TU2_full_argv(VALUE, VALUE, VALUE, VALUE);
+#endif
+#endif // INDEX_H

data/ext/clangc/class_Module.c

@@ -0,0 +1,181 @@
+/*
+ * ruby-clangc ruby bindings for the C interface of Clang
+ * Copyright (C) 2015-2016 Cedric Le Moigne cedlemo <cedlemo@gmx.com>
+ *
+ * This program 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/>.
+*/
+/*Module ruby class*/
+#include "class_Module.h"
+#include "class_File.h"
+#include "class_TranslationUnit.h"
+#include "macros.h"
+
+static void c_Module_struct_free(Module_t *s)
+{
+    if (s)
+    {
+
+        ruby_xfree(s);
+    }
+}
+
+static void c_Module_mark(void *s)
+{
+    if (s)
+    {
+        Module_t *t = (Module_t *) s;
+        rb_gc_mark(t->parent);
+    }
+}
+
+VALUE
+c_Module_struct_alloc(VALUE klass)
+{
+
+    Module_t *ptr;
+    ptr = (Module_t *) ruby_xmalloc(sizeof(Module_t));
+    ptr->data = NULL;
+    ptr->parent = Qnil;
+
+    return Data_Wrap_Struct(klass, NULL, c_Module_struct_free, (void *) ptr);
+}
+
+/**
+ * call-seq:
+ *  Clangc::Module#ast_file => CLangc::File or nil
+ *
+ * Get the module file where the provided module object came from.
+ */
+VALUE
+c_Module_get_ast_file(VALUE self)
+{
+    Module_t *m;
+    Data_Get_Struct(self, Module_t, m);
+    VALUE ast_file;
+    File_t *f;
+    R_GET_CLASS_DATA("Clangc", File, ast_file, f);
+    f->data = clang_Module_getASTFile(m->data);
+    if (f->data)
+        return ast_file;
+    else
+        return Qnil;
+}
+
+/**
+ * call-seq:
+ *  Clangc::Module#parent => Clangc::Module
+ *
+ * the parent of a sub-module or NULL if the given module is top-level,
+ * e.g. for 'std.vector' it will return the 'std' module.
+ */
+VALUE
+c_Module_get_parent(VALUE self)
+{
+    Module_t *m;
+    Data_Get_Struct(self, Module_t, m);
+    VALUE parent;
+    Module_t *p;
+    R_GET_CLASS_DATA("Clangc", Module, parent, p);
+    p->data = clang_Module_getParent(m->data);
+    return parent;
+}
+
+/**
+ * call-seq:
+ *  Clangc::Module#name => String
+ *
+ * Get the name of the module, e.g. for the 'std.vector' sub-module it
+ * will return "vector".
+ */
+VALUE
+c_Module_get_name(VALUE self)
+{
+    Module_t *m;
+    Data_Get_Struct(self, Module_t, m);
+    return CXSTR_2_RVAL(clang_Module_getName(m->data));
+}
+
+/**
+ * call-seq:
+ *  Clangc::Module#full_name => String
+ *
+ * Returns the full name of the module, e.g. "std.vector".
+ */
+VALUE
+c_Module_get_full_name(VALUE self)
+{
+    Module_t *m;
+    Data_Get_Struct(self, Module_t, m);
+    return CXSTR_2_RVAL(clang_Module_getFullName(m->data));
+}
+
+/**
+ * call-seq:
+ *  Clangc::Module#is_system => true/false
+ *
+ * Returns non-zero if the module is a system one.
+ */
+VALUE
+c_Module_is_system(VALUE self)
+{
+    Module_t *m;
+    Data_Get_Struct(self, Module_t, m);
+    return NOT_0_2_RVAL(clang_Module_isSystem(m->data));
+}
+
+/**
+ * call-seq:
+ *  Clangc::Module#num_top_level_headers(Clangc::TranslationUnit) => Integer
+ *
+ * The number of top level headers associated with this module.
+ */
+VALUE
+c_Module_get_num_top_level_headers(VALUE self, VALUE translation_unit)
+{
+    Module_t *m;
+    Data_Get_Struct(self, Module_t, m);
+    TranslationUnit_t *t;
+    CHECK_ARG_TYPE(translation_unit, TranslationUnit);
+    Data_Get_Struct(translation_unit, TranslationUnit_t, t);
+
+    return CUINT_2_NUM(clang_Module_getNumTopLevelHeaders(t->data, m->data));
+}
+
+/**
+ * call-seq:
+ *  Clangc::Module#top_level_header(Clangc::TranslationUnit, Integer) =>
+ * Clangc::File
+ *
+ * Index top level header index (zero-based).
+ *
+ * Returns the specified top level header associated with the module.
+ */
+VALUE
+c_Module_get_top_level_header(VALUE self, VALUE translation_unit, VALUE index)
+{
+    Module_t *m;
+    Data_Get_Struct(self, Module_t, m);
+    TranslationUnit_t *t;
+    CHECK_ARG_TYPE(translation_unit, TranslationUnit);
+    Data_Get_Struct(translation_unit, TranslationUnit_t, t);
+    unsigned int c_index = NUM2UINT(index);
+    VALUE header;
+    File_t *f;
+    R_GET_CLASS_DATA("Clangc", File, header, f);
+    f->data = clang_Module_getTopLevelHeader(t->data, m->data, c_index);
+    if (f->data)
+        return header;
+    else
+        return Qnil;
+}

data/ext/clangc/class_Module.h

@@ -0,0 +1,51 @@
+/*
+ * ruby-clangc ruby bindings for the C interface of Clang
+ * Copyright (C) 2016 Cedric Le Moigne cedlemo <cedlemo@gmx.com>
+ *
+ * This program 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/>.
+*/
+#ifndef MODULE_H
+#define MODULE_H
+#include <ruby/ruby.h>
+#include "clang-c/Index.h"
+typedef struct Module_t
+{
+    CXModule data;
+    VALUE parent;
+} Module_t;
+
+VALUE
+c_Module_struct_alloc(VALUE);
+
+VALUE
+c_Module_get_ast_file(VALUE);
+
+VALUE
+c_Module_get_parent(VALUE);
+
+VALUE
+c_Module_get_name(VALUE);
+
+VALUE
+c_Module_get_full_name(VALUE);
+
+VALUE
+c_Module_is_system(VALUE);
+
+VALUE
+c_Module_get_num_top_level_headers(VALUE, VALUE);
+
+VALUE
+c_Module_get_top_level_header(VALUE, VALUE, VALUE);
+#endif // MODULE_H

data/ext/clangc/class_OverriddenCursor.c

@@ -0,0 +1,51 @@
+/*
+ * ruby-clangc ruby bindings for the C interface of Clang
+ * Copyright (C) 2015-2016 Cedric Le Moigne cedlemo <cedlemo@gmx.com>
+ *
+ * This program 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/>.
+*/
+/*Cursor ruby class*/
+#include "class_OverriddenCursor.h"
+#include "macros.h"
+
+static void c_OverriddenCursor_struct_free(OverriddenCursor_t *s)
+{
+    if (s)
+    {
+        if (s->ptr) clang_disposeOverriddenCursors(s->ptr);
+
+        ruby_xfree(s);
+    }
+}
+
+static void c_OverriddenCursor_mark(void *s)
+{
+    if (s)
+    {
+        OverriddenCursor_t *t = (OverriddenCursor_t *) s;
+        rb_gc_mark(t->parent);
+    }
+}
+
+VALUE
+c_OverriddenCursor_struct_alloc(VALUE klass)
+{
+
+    OverriddenCursor_t *ptr;
+    ptr = (OverriddenCursor_t *) ruby_xmalloc(sizeof(OverriddenCursor_t));
+    ptr->parent = Qnil;
+
+    return Data_Wrap_Struct(
+        klass, NULL, c_OverriddenCursor_struct_free, (void *) ptr);
+}

data/ext/clangc/class_OverriddenCursor.h

@@ -0,0 +1,31 @@
+/*
+ * ruby-clangc ruby bindings for the C interface of Clang
+ * Copyright (C) 2015-2016 Cedric Le Moigne cedlemo <cedlemo@gmx.com>
+ *
+ * This program 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/>.
+*/
+#ifndef OVERRIDDEN_CURSOR_H
+#define OVERRIDDEN_CURSOR_H
+#include <ruby/ruby.h>
+#include "clang-c/Index.h"
+typedef struct OverriddenCursor_t
+{
+    CXCursor data;
+    CXCursor *ptr;
+    VALUE parent;
+} OverriddenCursor_t;
+
+VALUE
+c_OverriddenCursor_struct_alloc(VALUE);
+#endif // OVERRIDDEN_CURSOR_H

data/ext/clangc/class_SourceLocation.c

@@ -0,0 +1,197 @@
+/*
+ * ruby-clangc ruby bindings for the C interface of Clang
+ * Copyright (C) 2015-2016 Cedric Le Moigne cedlemo <cedlemo@gmx.com>
+ *
+ * This program 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/>.
+*/
+/*SourceLocation ruby class*/
+#include "class_SourceLocation.h"
+#include "class_File.h"
+#include "macros.h"
+
+static void c_SourceLocation_struct_free(SourceLocation_t *s)
+{
+    if (s)
+    {
+
+        ruby_xfree(s);
+    }
+}
+
+static void c_SourceLocation_mark(void *s)
+{
+    if (s)
+    {
+        SourceLocation_t *t = (SourceLocation_t *) s;
+        rb_gc_mark(t->parent);
+    }
+}
+
+VALUE
+c_SourceLocation_struct_alloc(VALUE klass)
+{
+
+    return Data_Wrap_Struct(klass,
+                            NULL,
+                            c_SourceLocation_struct_free,
+                            ruby_xmalloc(sizeof(SourceLocation_t)));
+}
+
+/**
+* call-seq:
+*   Clangc::SourceLocation#is_in_system_header => true
+*
+* Returns true if the given source location is in a system header.
+*/
+VALUE
+c_SourceLocation_is_in_system_header(VALUE self)
+{
+    SourceLocation_t *s;
+    Data_Get_Struct(self, SourceLocation_t, s);
+    return NOT_0_2_RVAL(clang_Location_isInSystemHeader(s->data));
+}
+
+/**
+* call-seq:
+*   Clangc::SourceLocation#is_from_main_file => true
+*
+* Returns true if the given source location is in the main file of
+* the corresponding translation unit.
+*/
+VALUE
+c_SourceLocation_is_from_main_file(VALUE self)
+{
+    SourceLocation_t *s;
+    Data_Get_Struct(self, SourceLocation_t, s);
+    return NOT_0_2_RVAL(clang_Location_isFromMainFile(s->data));
+}
+
+/**
+* call-seq:
+*   Clangc::SourceLocation#equal(Clangc::SourceLocation) => true /false
+*
+* Determine whether two source locations, which must refer into
+* the same translation unit, refer to exactly the same point in the source
+* code.
+*
+* true if the source locations refer to the same location, false
+* if they refer to different locations.
+*/
+VALUE
+c_SourceLocation_is_equal(VALUE self, VALUE source_location)
+{
+    SourceLocation_t *s;
+    SourceLocation_t *sl;
+    Data_Get_Struct(self, SourceLocation_t, s);
+    CHECK_ARG_TYPE(source_location, SourceLocation);
+    Data_Get_Struct(source_location, SourceLocation_t, sl);
+
+    return NOT_0_2_RVAL(clang_equalLocations(s->data, sl->data));
+}
+
+/**
+* call-seq:
+*   Clangc::SourceLocation#spelling => Array
+*
+* Retrieve the file, line, column, and offset represented by
+* the given source location.
+*
+* If the location refers into a macro instantiation, return where the
+* location was originally spelled in the source file.
+*
+* The returned array contains four values:
+*
+* array[0] will be set to the file to which the given
+* source location points.(Clangc::File)
+*
+* array[1] will be set to the line to which the given
+* source location points.
+*
+* array[2] will be set to the column to which the given
+* source location points.
+*
+* array[3] will be set to the offset into the
+* buffer to which the given source location points. (the position
+* in the file)
+*/
+VALUE c_SourceLocation_get_spelling(VALUE self)
+{
+    VALUE ret = rb_ary_new();
+    SourceLocation_t *s;
+    Data_Get_Struct(self, SourceLocation_t, s);
+    CXFile cxf = NULL;
+    unsigned int line = 0;
+    unsigned int column = 0;
+    unsigned int offset = 0;
+    clang_getSpellingLocation(s->data, &cxf, &line, &column, &offset);
+    VALUE file;
+    File_t *f;
+    R_GET_CLASS_DATA("Clangc", File, file, f);
+    f->data = cxf;
+    f->parent = self;
+    rb_ary_push(ret, file);
+    rb_ary_push(ret, CUINT_2_NUM(line));
+    rb_ary_push(ret, CUINT_2_NUM(column));
+    rb_ary_push(ret, CUINT_2_NUM(offset));
+
+    return ret;
+}
+/**
+* call-seq:
+*   Clangc::SourceLocation#file_location => Array
+*
+* Retrieve the file, line, column, and offset represented by
+* the given source location.
+*
+* If the location refers into a macro instantiation, return where the
+* location was originally spelled in the source file.
+*
+* The returned array contains four values:
+*
+* array[0] will be set to the file to which the given
+* source location points.(Clangc::File)
+*
+* array[1] will be set to the line to which the given
+* source location points.
+*
+* array[2] will be set to the column to which the given
+* source location points.
+*
+* array[3] will be set to the offset into the
+* buffer to which the given source location points. (the position
+* in the file)
+*/
+VALUE c_SourceLocation_get_file_location(VALUE self)
+{
+    VALUE ret = rb_ary_new();
+    SourceLocation_t *s;
+    Data_Get_Struct(self, SourceLocation_t, s);
+    CXFile cxf = NULL;
+    unsigned int line;
+    unsigned int column;
+    unsigned int offset;
+    clang_getFileLocation(s->data, &cxf, &line, &column, &offset);
+    
+    VALUE file;
+    File_t *f;
+    R_GET_CLASS_DATA("Clangc", File, file, f);
+    f->data = cxf;
+    f->parent = self;
+    rb_ary_push(ret, file);
+    rb_ary_push(ret, CUINT_2_NUM(line));
+    rb_ary_push(ret, CUINT_2_NUM(column));
+    rb_ary_push(ret, CUINT_2_NUM(offset));
+
+    return ret;
+}