yard 0.9.24 → 0.9.25

data/spec/parser/examples/example1.rb.txt

@@ -1,8 +0,0 @@
-module Hello
-  class Hi
-	# Docstring
-    def me
-      "Value"
-    end
-  end
-end

data/spec/parser/examples/extrafile.c.txt

@@ -1,8 +0,0 @@
-/*
- * foo
- */
-VALUE
-rb_extra(VALUE obj, VALUE n)
-{
-  return Qtrue;
-}

data/spec/parser/examples/file.c.txt

@@ -1,28 +0,0 @@
-VALUE rb_cFile;
-
-/*
- * call-seq:
- *    File.exist?(file_name)    ->  true or false
- *
- * Return <code>true</code> if the named file exists.
- *
- * _file_name_ can be an IO object.
- *
- * "file exists" means that stat() or fstat() system call is successful.
- */
-
-static VALUE
-rb_file_exist_p(VALUE obj, VALUE fname)
-{
-    struct stat st;
-
-    if (rb_stat(fname, &st) < 0) return Qfalse;
-    return Qtrue;
-}
-
-void
-Init_File(void)
-{
-	rb_cFile = rb_define_class("File", rb_cIO);
-    define_filetest_function("exist?", rb_file_exist_p, 1);
-}

data/spec/parser/examples/multifile.c.txt

@@ -1,22 +0,0 @@
-struct hoge *
-rb_fuga(VALUE obj)
-{
-  return Qtrue;
-}
-
-/*
- * Hello Mars
- */
-VALUE
-rb_hello_mars(VALUE obj, VALUE n)
-{
-    return Qtrue;
-}
-
-void
-Init_Multifile(void)
-{
-    rb_cMultifile  = rb_define_class("Multifile", rb_cObject);
-    rb_define_method(rb_cMultifile, "extra", rb_extra, 1); /* in extra.c */
-    rb_define_method(rb_cMultifile, "hello_mars", rb_hello_mars, 1);
-}

data/spec/parser/examples/namespace.cpp.txt

@@ -1,68 +0,0 @@
-VALUE rb_cWXRect;
-
-namespace RubyWX {
-namespace Rect {
-
-VALUE _alloc(VALUE self)
-{
-    return wrap(new wxRect());
-}
-
-/*
- * call-seq:
- *   inspect -> String
- *
- * Human-readable description.
- * ===Return value
- * String
-*/
-VALUE _inspect(VALUE self)
-{
-    return rb_sprintf( "%s(%d, %d, %d, %d)",
-        rb_obj_classname( self ),
-        FIX2INT(_getX(self)),
-        FIX2INT(_getY(self)),
-        FIX2INT(_getWidth(self)),
-        FIX2INT(_getHeight(self)));
-}
-
-} // namespace Rect
-} // namespace RubyWX
-
-
-/*
- * call-seq:
- *   hello_world -> String
- *
- * Human-readable description.
- * ===Return value
- * String
-*/
-VALUE _hello_world(VALUE self)
-{
-    return rb_sprintf( "%s(%d, %d, %d, %d)",
-        rb_obj_classname( self ),
-        FIX2INT(_getX(self)),
-        FIX2INT(_getY(self)),
-        FIX2INT(_getWidth(self)),
-        FIX2INT(_getHeight(self)));
-}
-
-/* Arrays are ordered, integer-indexed collections of any object.
- * Array indexing starts at 0, as in C or Java.  A negative index is
- * assumed to be relative to the end of the array---that is, an index of -1
- * indicates the last element of the array, -2 is the next to last
- * element in the array, and so on.
- */
-
-void Init_Rect()
-{
-    using namespace RubyWX::Rect;
-    rb_cWXRect = rb_define_class("Rect",rb_cObject);
-
-    rb_define_alloc_func(rb_cWXRect,_alloc);
-
-    rb_define_method(rb_cWXRect,"inspect",RUBY_METHOD_FUNC(_inspect),0);
-    rb_define_method(rb_cWXRect,"hello_world",RUBY_METHOD_FUNC(_hello_world),0);
-
-}

data/spec/parser/examples/override.c.txt

@@ -1,424 +0,0 @@
-#include <gmpz.h>
-#include <gmpq.h>
-#include <gmpf.h>
-
-/*
- * Document-class: GMP::Z
- *
- * GMP Multiple Precision Integer.
- *
- * Instances of this class can store variables of the type mpz_t. This class
- * also contains many methods that act as the functions for mpz_t variables,
- * as well as a few methods that attempt to make this library more Ruby-ish.
- */
-
-/**********************************************************************
- *    Macros                                                          *
- **********************************************************************/
-
-/*
- * DEFUN_INT2INT defines two functions. The first takes a GMP::Z as
- * self, calls mpz_fname on the contained mpz_t, whose arguments are
- * exactly (0) the return argument and (1) self. The second is the same
- * destructive method.
- */
-#define DEFUN_INT2INT(fname,mpz_fname)         \
-static VALUE r_gmpz_##fname(VALUE self)        \
-{                                              \
-  MP_INT *self_val, *res_val;                  \
-  VALUE res;                                   \
-  mpz_get_struct(self, self_val);              \
-  mpz_make_struct_init(res, res_val);          \
-  mpz_fname(res_val, self_val);                \
-  return res;                                  \
-}                                              \
-                                               \
-static VALUE r_gmpz_##fname##_self(VALUE self) \
-{                                              \
-  MP_INT *self_val;                            \
-  mpz_get_struct(self, self_val);              \
-  mpz_fname(self_val, self_val);               \
-  return self;                                 \
-}
-
-
-/**********************************************************************
- *    Integer Arithmetic                                              *
- **********************************************************************/
-
-/*
- * call-seq:
- *   a + b
- *
- * Adds _a_ to _b_. _b_ must be an instance of one of:
- * * GMP::Z
- * * Fixnum
- * * GMP::Q
- * * GMP::F
- * * Bignum
- */
-VALUE r_gmpz_add(VALUE self, VALUE arg)
-{
-  MP_INT *self_val, *arg_val, *res_val;
-  VALUE res;
-
-  mpz_get_struct(self,self_val);
-
-  if (GMPZ_P(arg)) {
-    mpz_get_struct(arg,arg_val);
-    mpz_make_struct_init(res, res_val);
-    mpz_add(res_val, self_val, arg_val);
-  } else if (FIXNUM_P(arg)) {
-    mpz_make_struct_init(res, res_val);
-    if (FIX2NUM(arg) > 0)
-      mpz_add_ui(res_val, self_val, FIX2NUM(arg));
-    else
-      mpz_sub_ui(res_val, self_val, -FIX2NUM(arg));
-  } else if (GMPQ_P(arg)) {
-    return r_gmpq_add(arg, self);
-  } else if (GMPF_P(arg)) {
-#ifndef MPFR
-    return r_gmpf_add(arg, self);
-#else
-    return rb_funcall(arg, rb_intern("+"), 1, self);
-#endif
-  } else if (BIGNUM_P(arg)) {
-    mpz_make_struct_init(res, res_val);
-    mpz_init(res_val);
-    mpz_set_bignum(res_val, arg);
-    mpz_add(res_val, res_val, self_val);
-  } else {
-    typeerror(ZQFXB);
-  }
-  return res;
-}
-
-/*
- * call-seq:
- *   a.add!(_b_)
- *
- * Adds _a_ to _b_ in-place, setting _a_ to the sum. _b_ must be an instance of one of:
- * * GMP::Z
- * * Fixnum
- * * GMP::Q
- * * GMP::F
- * * Bignum
- */
-VALUE r_gmpz_add_self(VALUE self, VALUE arg)
-{
-  MP_INT *self_val, *arg_val;
-
-  mpz_get_struct(self,self_val);
-
-  if (GMPZ_P(arg)) {
-    mpz_get_struct(arg,arg_val);
-    mpz_add(self_val, self_val, arg_val);
-  } else if (FIXNUM_P(arg)) {
-    if (FIX2NUM(arg) > 0)
-      mpz_add_ui(self_val, self_val, FIX2NUM(arg));
-    else
-      mpz_sub_ui(self_val, self_val, -FIX2NUM(arg));
-  } else if (BIGNUM_P(arg)) {
-    mpz_temp_from_bignum(arg_val, arg);
-    mpz_add(self_val, self_val, arg_val);
-    mpz_temp_free(arg_val);
-  } else {
-    typeerror(ZXB);
-  }
-  return Qnil;
-}
-
-/*
- * call-seq:
- *   a - b
- *
- * Subtracts _b_ from _a_. _b_ must be an instance of one of:
- * * GMP::Z
- * * Fixnum
- * * GMP::Q
- * * GMP::F
- * * Bignum
- */
-VALUE r_gmpz_sub(VALUE self, VALUE arg)
-{
-  MP_RAT *res_val_q, *arg_val_q;
-  MP_INT *self_val, *arg_val, *res_val;
-  MP_FLOAT *arg_val_f, *res_val_f;
-  VALUE res;
-  unsigned long prec;
-
-  mpz_get_struct(self,self_val);
-
-  if (GMPZ_P(arg)) {
-    mpz_make_struct_init(res, res_val);
-    mpz_get_struct(arg,arg_val);
-    mpz_sub (res_val, self_val, arg_val);
-  } else if (FIXNUM_P(arg)) {
-    mpz_make_struct_init(res, res_val);
-    if (FIX2NUM(arg) > 0)
-      mpz_sub_ui (res_val, self_val, FIX2NUM(arg));
-    else
-      mpz_add_ui (res_val, self_val, -FIX2NUM(arg));
-  } else if (GMPQ_P(arg)) {
-    mpq_make_struct_init(res, res_val_q);
-    mpq_get_struct(arg,arg_val_q);
-    mpz_set (mpq_denref(res_val_q), mpq_denref(arg_val_q));
-    mpz_mul (mpq_numref(res_val_q), mpq_denref(arg_val_q), self_val);
-    mpz_sub (mpq_numref(res_val_q), mpq_numref(res_val_q), mpq_numref(arg_val_q));
-  } else if (GMPF_P(arg)) {
-    mpf_get_struct_prec (arg, arg_val_f, prec);
-    mpf_make_struct_init(res, res_val_f, prec);
-    mpf_set_z (res_val_f, self_val);
-    mpf_sub (res_val_f, res_val_f, arg_val_f);
-  } else if (BIGNUM_P(arg)) {
-    mpz_make_struct_init(res, res_val);
-    mpz_set_bignum (res_val, arg);
-    mpz_sub (res_val, self_val, res_val);
-  } else {
-    typeerror (ZQFXB);
-  }
-  return res;
-}
-
-/*
- * call-seq:
- *   a.sub!(b)
- *
- * Subtracts _b_ from _a_ in-place, setting _a_ to the difference. _b_ must be an
- * instance of one of:
- * * GMP::Z
- * * Fixnum
- * * GMP::Q
- * * GMP::F
- * * Bignum
- */
-VALUE r_gmpz_sub_self(VALUE self, VALUE arg)
-{
-  MP_INT *self_val, *arg_val;
-
-  mpz_get_struct(self,self_val);
-
-  if (GMPZ_P(arg)) {
-    mpz_get_struct(arg, arg_val);
-    mpz_sub (self_val, self_val, arg_val);
-  } else if (FIXNUM_P(arg)) {
-    if (FIX2NUM(arg) > 0)
-      mpz_sub_ui (self_val, self_val, FIX2NUM(arg));
-    else
-      mpz_add_ui (self_val, self_val, -FIX2NUM(arg));
-  } else if (BIGNUM_P(arg)) {
-    mpz_temp_from_bignum(arg_val, arg);
-    mpz_sub (self_val, self_val, arg_val);
-    mpz_temp_free (arg_val);
-  } else {
-    typeerror (ZXB);
-  }
-  return Qnil;
-}
-
-/*
- * call-seq:
- *   a * b
- *
- * Multiplies _a_ with _b_. _a_ must be an instance of one of
- * * GMP::Z
- * * Fixnum
- * * GMP::Q
- * * GMP::F
- * * Bignum
- */
-VALUE r_gmpz_mul(VALUE self, VALUE arg)
-{
-  MP_INT *self_val, *arg_val, *res_val;
-  VALUE res;
-
-  mpz_get_struct(self,self_val);
-
-  if (GMPZ_P(arg)) {
-    mpz_make_struct_init(res, res_val);
-    mpz_get_struct(arg,arg_val);
-    mpz_mul(res_val, self_val, arg_val);
-  } else if (FIXNUM_P(arg)) {
-    mpz_make_struct_init(res, res_val);
-    mpz_mul_si(res_val, self_val, FIX2NUM(arg));
-  } else if (GMPQ_P(arg)) {
-    return r_gmpq_mul(arg, self);
-  } else if (GMPF_P(arg)) {
-#ifndef MPFR
-    return r_gmpf_mul(arg, self);
-#else
-    return rb_funcall(arg, rb_intern("*"), 1, self);
-#endif
-  } else if (BIGNUM_P(arg)) {
-    mpz_make_struct_init(res, res_val);
-    mpz_set_bignum(res_val, arg);
-    mpz_mul(res_val, res_val, self_val);
-  } else {
-    typeerror(ZQFXB);
-  }
-  return res;
-}
-
-/*
- * call-seq:
- *   a.addmul!(b, c)
- *
- * @since 0.4.17
- *
- * Sets _a_ to _a_ plus _b_ times _c_. _b_ and _c_ must each be an instance of one of
- * * GMP::Z
- * * Fixnum
- * * Bignum
- */
-VALUE r_gmpz_addmul_self(VALUE self, VALUE b, VALUE c)
-{
-  MP_INT *self_val, *b_val, *c_val;
-  int free_b_val = 0;
-
-  if (GMPZ_P(b)) {
-    mpz_get_struct(b, b_val);
-  } else if (FIXNUM_P(b)) {
-    mpz_temp_alloc(b_val);
-    mpz_init_set_si(b_val, FIX2NUM(b));
-    free_b_val = 1;
-  } else if (BIGNUM_P(b)) {
-    mpz_temp_from_bignum(b_val, b);
-    free_b_val = 1;
-  } else {
-    typeerror_as(ZXB, "addend");
-  }
-  mpz_get_struct(self, self_val);
-
-  if (GMPZ_P(c)) {
-    mpz_get_struct(c, c_val);
-    mpz_addmul(self_val, b_val, c_val);
-  } else if (FIXNUM_P(c)) {
-    if (FIX2NUM(c) < 0)
-    {
-      if (free_b_val) { mpz_temp_free(b_val); }
-      rb_raise(rb_eRangeError, "multiplicand (Fixnum) must be nonnegative");
-    }
-    mpz_addmul_ui(self_val, b_val, FIX2NUM(c));
-  } else if (BIGNUM_P(c)) {
-    mpz_temp_from_bignum(c_val, c);
-    mpz_addmul(self_val, b_val, c_val);
-    mpz_temp_free(c_val);
-  } else {
-    if (free_b_val)
-      mpz_temp_free(b_val);
-    typeerror_as(ZXB, "multiplicand");
-  }
-  if (free_b_val)
-    mpz_temp_free(b_val);
-  return self;
-}
-
-/*
- * Document-method: neg
- *
- * call-seq:
- *   a.neg
- *   -a
- *
- * Returns -_a_.
- */
-/*
- * Document-method: neg!
- *
- * call-seq:
- *   a.neg!
- *
- * Sets _a_ to -_a_.
- */
-DEFUN_INT2INT(neg, mpz_neg)
-/*
- * Document-method: abs
- *
- * call-seq:
- *   a.abs
- *
- * Returns the absolute value of _a_.
- */
-/*
- * Document-method: abs!
- *
- * call-seq:
- *   a.abs!
- *
- * Sets _a_ to its absolute value.
- */
-DEFUN_INT2INT(abs, mpz_abs)
-
-
-/**********************************************************************
- *    Integer Roots                                                   *
- **********************************************************************/
-
-/*
- * Document-method: sqrt
- *
- * call-seq:
- *   a.sqrt
- *
- * Returns the truncated integer part of the square root of _a_.
- */
-/*
- * Document-method: sqrt!
- *
- * call-seq:
- *   a.sqrt!
- *
- * Sets _a_ to the truncated integer part of its square root.
- */
-DEFUN_INT2INT(sqrt, mpz_sqrt)
-
-/*
- * call-seq:
- *   a.sqrtrem #=> s, r
- *
- * Returns the truncated integer part of the square root of _a_ as _s_ and the remainder
- * <i>a - s * s</i> as _r_, which will be zero if _a_ is a perfect square.
- */
-static VALUE r_gmpz_sqrtrem(VALUE self)
-{
-  MP_INT *self_val, *sqrt_val, *rem_val;
-  VALUE sqrt, rem;
-
-  mpz_get_struct(self, self_val);
-  mpz_make_struct_init(sqrt, sqrt_val);
-  mpz_make_struct_init(rem, rem_val);
-  mpz_sqrtrem(sqrt_val, rem_val, self_val);
-  return rb_assoc_new(sqrt, rem);
-}
-
-
-/**********************************************************************
- *    Init function                                                   *
- **********************************************************************/
-
-void init_gmpz()
-{
-  mGMP = rb_define_module("GMP");
-  rb_define_module_function(mGMP, "Z", r_gmpmod_z, -1);
-
-  cGMP_Z = rb_define_class_under(mGMP, "Z", rb_cInteger);
-
-  // Integer Arithmetic
-  rb_define_method(cGMP_Z, "+",       r_gmpz_add, 1);
-  rb_define_method(cGMP_Z, "add!",    r_gmpz_add_self, 1);
-  rb_define_method(cGMP_Z, "-",       r_gmpz_sub, 1);
-  rb_define_method(cGMP_Z, "sub!",    r_gmpz_sub_self, 1);
-  rb_define_method(cGMP_Z, "*",       r_gmpz_mul, 1);
-  rb_define_method(cGMP_Z, "addmul!", r_gmpz_addmul_self, 2);
-  rb_define_method(cGMP_Z, "neg",     r_gmpz_neg, 0);
-  rb_define_method(cGMP_Z, "neg!",    r_gmpz_neg_self, 0);
-  rb_define_method(cGMP_Z, "-@",      r_gmpz_neg, 0);
-  rb_define_method(cGMP_Z, "abs",     r_gmpz_abs, 0);
-  rb_define_method(cGMP_Z, "abs!",    r_gmpz_abs_self, 0);
-
-  // Integer Roots
-  rb_define_method(cGMP_Z, "root",    r_gmpz_root, 1);
-  rb_define_method(cGMP_Z, "sqrt",    r_gmpz_sqrt, 0);
-  rb_define_method(cGMP_Z, "sqrt!",   r_gmpz_sqrt_self, 0);
-  rb_define_method(cGMP_Z, "sqrtrem", r_gmpz_sqrtrem, 0);
-}