[svn:parrot] r48423 - trunk/src/pmc
jkeenan at svn.parrot.org
jkeenan at svn.parrot.org
Thu Aug 12 01:16:59 UTC 2010
Author: jkeenan
Date: Thu Aug 12 01:16:59 2010
New Revision: 48423
URL: https://trac.parrot.org/parrot/changeset/48423
Log:
[codingstd] Insert POD 'item' so that documentor will know where to add function documentation.
Modified:
trunk/src/pmc/bigint.pmc
Modified: trunk/src/pmc/bigint.pmc
==============================================================================
--- trunk/src/pmc/bigint.pmc Thu Aug 12 00:10:10 2010 (r48422)
+++ trunk/src/pmc/bigint.pmc Thu Aug 12 01:16:59 2010 (r48423)
@@ -384,6 +384,16 @@
/* HEADERIZER END: static */
/* HEADERIZER HFILE: none */
+/*
+
+=item C<static void bigint_init(PARROT_INTERP, PMC *self)>
+
+
+
+=cut
+
+*/
+
static void
bigint_init(PARROT_INTERP, ARGIN(PMC *self))
{
@@ -394,6 +404,16 @@
mpz_init(bi->b);
}
+/*
+
+=item C<static void bigint_clear(PARROT_INTERP, PMC *self)>
+
+
+
+=cut
+
+*/
+
static void
bigint_clear(PARROT_INTERP, ARGIN(PMC *self))
{
@@ -405,6 +425,16 @@
mem_gc_free(interp, bi);
}
+/*
+
+=item C<static void bigint_set(PARROT_INTERP, PMC *dest, PMC *src)>
+
+
+
+=cut
+
+*/
+
static void
bigint_set(PARROT_INTERP, ARGMOD(PMC *dest), ARGIN(PMC *src))
{
@@ -418,6 +448,17 @@
mpz_set(bi_dest->b, bi_src->b);
}
+/*
+
+=item C<static void bigint_set_long(PARROT_INTERP, PMC *self, long value)>
+
+
+
+
+=cut
+
+*/
+
static void
bigint_set_long(PARROT_INTERP, ARGMOD(PMC *self), long value)
{
@@ -428,6 +469,16 @@
mpz_set_si(bi->b, value);
}
+/*
+
+=item C<static void bigint_set_double(PARROT_INTERP, PMC *self, double value)>
+
+
+
+=cut
+
+*/
+
static void
bigint_set_double(PARROT_INTERP, ARGMOD(PMC *self), double value)
{
@@ -438,6 +489,16 @@
mpz_set_d(bi->b, value);
}
+/*
+
+=item C<static void bigint_set_str(PARROT_INTERP, PMC *self, const char *value, int base)>
+
+
+
+=cut
+
+*/
+
static void
bigint_set_str(PARROT_INTERP, ARGMOD(PMC *self), ARGIN(const char *value), int base)
{
@@ -448,6 +509,16 @@
mpz_set_str(bi->b, value, base);
}
+/*
+
+=item C<static BIGINT* bigint_get_self(PARROT_INTERP, PMC *self)>
+
+
+
+=cut
+
+*/
+
PARROT_CANNOT_RETURN_NULL
PARROT_WARN_UNUSED_RESULT
static BIGINT*
@@ -460,6 +531,16 @@
return bi;
}
+/*
+
+=item C<static void bigint_set_self(PARROT_INTERP, PMC *self, BIGINT *value)>
+
+
+
+=cut
+
+*/
+
static void
bigint_set_self(PARROT_INTERP, ARGMOD(PMC *self), ARGIN(BIGINT *value))
{
@@ -470,6 +551,16 @@
mpz_set(bi->b, (mpz_srcptr)((BIGINT*)value)->b);
}
+/*
+
+=item C<static long bigint_get_long(PARROT_INTERP, PMC *self)>
+
+
+
+=cut
+
+*/
+
PARROT_WARN_UNUSED_RESULT
static long
bigint_get_long(PARROT_INTERP, ARGIN(PMC *self))
@@ -484,6 +575,15 @@
Parrot_ex_throw_from_c_args(interp, NULL, 1, "bigint_get_long: number too big");
}
+/*
+
+=item C<static int bigint_get_bool(PARROT_INTERP, PMC *self)>
+
+
+=cut
+
+*/
+
PARROT_WARN_UNUSED_RESULT
static int
bigint_get_bool(PARROT_INTERP, ARGIN(PMC *self))
@@ -498,6 +598,15 @@
return 0;
}
+/*
+
+=item C<static char * bigint_get_string(PARROT_INTERP, PMC *self, int base)>
+
+
+=cut
+
+*/
+
PARROT_WARN_UNUSED_RESULT
PARROT_CANNOT_RETURN_NULL
static char *
@@ -515,6 +624,15 @@
return mpz_get_str(s, base, bi->b);
}
+/*
+
+=item C<static double bigint_get_double(PARROT_INTERP, PMC *self)>
+
+
+=cut
+
+*/
+
PARROT_WARN_UNUSED_RESULT
static double
bigint_get_double(PARROT_INTERP, ARGIN(PMC *self))
@@ -526,6 +644,17 @@
return mpz_get_d(bi->b);
}
+
+/*
+
+=item C<static void bigint_add_bigint(PARROT_INTERP, PMC *self, PMC *value, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_add_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGIN(PMC *value), ARGMOD(PMC *dest))
{
@@ -538,6 +667,17 @@
mpz_add(bi_dest->b, bi_self->b, bi_value->b);
}
+/*
+
+=item C<static void bigint_add_bigint_int(PARROT_INTERP, PMC *self, INTVAL value, PMC *dest)>
+
+
+
+
+=cut
+
+*/
+
static void
bigint_add_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest))
{
@@ -552,6 +692,16 @@
mpz_add_ui(bi_dest->b, bi_self->b, (unsigned long int)value);
}
+/*
+
+=item C<static void bigint_sub_bigint(PARROT_INTERP, PMC *self, PMC *value, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_sub_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGIN(PMC *value), ARGMOD(PMC *dest))
{
@@ -564,6 +714,15 @@
mpz_sub(bi_dest->b, bi_self->b, bi_value->b);
}
+/*
+
+=item C<static void bigint_sub_bigint(PARROT_INTERP, PMC *self, PMC *value, PMC *dest)>
+
+
+=cut
+
+*/
+
static void
bigint_sub_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest))
{
@@ -578,6 +737,16 @@
mpz_sub_ui(bi_dest->b, bi_self->b, (unsigned long int)value);
}
+/*
+
+=item C<static void bigint_mul_bigint(PARROT_INTERP, PMC *self, PMC *value, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_mul_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGIN(PMC *value), ARGMOD(PMC *dest))
{
@@ -590,6 +759,16 @@
mpz_mul(bi_dest->b, bi_self->b, bi_value->b);
}
+/*
+
+=item C<static void bigint_mul_bigint_int(PARROT_INTERP, PMC *self, INTVAL value, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_mul_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest))
{
@@ -601,6 +780,16 @@
mpz_mul_si(bi_dest->b, bi_self->b, value);
}
+/*
+
+=item C<static void bigint_pow_bigint_int(PARROT_INTERP, PMC *self, INTVAL value, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_pow_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest))
{
@@ -612,6 +801,15 @@
mpz_pow_ui(bi_dest->b, bi_self->b, (unsigned long int)value);
}
+/*
+
+=item C<static void int_check_divide_zero(PARROT_INTERP, INTVAL value)>
+
+
+=cut
+
+*/
+
static void
int_check_divide_zero(PARROT_INTERP, INTVAL value)
{
@@ -620,6 +818,15 @@
"Divide by zero");
}
+/*
+
+=item C<static void bigint_check_divide_zero(PARROT_INTERP, PMC *value)>
+
+
+=cut
+
+*/
+
static void
bigint_check_divide_zero(PARROT_INTERP, ARGIN(PMC *value))
{
@@ -633,6 +840,16 @@
"Divide by zero");
}
+/*
+
+=item C<static void bigint_div_bigint(PARROT_INTERP, PMC *self, PMC *value, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_div_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGIN(PMC *value), ARGMOD(PMC *dest))
{
@@ -647,6 +864,16 @@
mpz_div(bi_dest->b, bi_self->b, bi_value->b);
}
+/*
+
+=item C<static void bigint_div_bigint_int(PARROT_INTERP, PMC *self, INTVAL value, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_div_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest))
{
@@ -666,6 +893,16 @@
mpz_div_ui(bi_dest->b, bi_self->b, (unsigned long int)value);
}
+/*
+
+=item C<static void bigint_fdiv_bigint(PARROT_INTERP, PMC *self, PMC *value, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_fdiv_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGMOD(PMC *value), ARGMOD(PMC *dest))
{
@@ -679,6 +916,16 @@
mpz_fdiv_q(bi_dest->b, bi_self->b, bi_value->b);
}
+/*
+
+=item C<static void bigint_fdiv_bigint_int(PARROT_INTERP, PMC *self, INTVAL value, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_fdiv_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest))
{
@@ -697,6 +944,15 @@
mpz_fdiv_q_ui(bi_dest->b, bi_self->b, (unsigned long int)value);
}
+/*
+
+=item C<static void bigint_mod_bigint(PARROT_INTERP, PMC *self, PMC *value, PMC *dest)>
+
+
+=cut
+
+*/
+
static void
bigint_mod_bigint(PARROT_INTERP, ARGIN(PMC *self), ARGMOD(PMC *value), ARGMOD(PMC *dest))
{
@@ -710,6 +966,16 @@
mpz_mod(bi_dest->b, bi_self->b, bi_value->b);
}
+/*
+
+=item C<static void bigint_mod_bigint_int(PARROT_INTERP, PMC *self, INTVAL value, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_mod_bigint_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value, ARGMOD(PMC *dest))
{
@@ -727,6 +993,15 @@
mpz_mod_ui(bi_dest->b, bi_self->b, (unsigned long int)value);
}
+/*
+
+=item C<static INTVAL bigint_cmp(PARROT_INTERP, PMC *self, PMC *value)>
+
+
+=cut
+
+*/
+
PARROT_WARN_UNUSED_RESULT
static INTVAL
bigint_cmp(PARROT_INTERP, ARGIN(PMC *self), ARGIN(PMC *value))
@@ -739,6 +1014,16 @@
return mpz_cmp(bi_self->b, bi_value->b);
}
+/*
+
+=item C<static INTVAL bigint_cmp_int(PARROT_INTERP, PMC *self, INTVAL value)>
+
+
+
+=cut
+
+*/
+
PARROT_WARN_UNUSED_RESULT
static INTVAL
bigint_cmp_int(PARROT_INTERP, ARGIN(PMC *self), INTVAL value)
@@ -750,6 +1035,16 @@
return mpz_cmp_si(bi->b, value);
}
+/*
+
+=item C<static void bigint_abs(PARROT_INTERP, PMC *self, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_abs(PARROT_INTERP, ARGIN(PMC *self), ARGMOD(PMC *dest))
{
@@ -761,6 +1056,16 @@
mpz_abs(bi_dest->b, bi_self->b);
}
+/*
+
+=item C<static void bigint_neg(PARROT_INTERP, PMC *self, PMC *dest)>
+
+
+
+=cut
+
+*/
+
static void
bigint_neg(PARROT_INTERP, ARGIN(PMC *self), ARGMOD(PMC *dest))
{
More information about the parrot-commits
mailing list