hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added some function prototypes

Browse Source
This commit is contained in:
hyunghwan.chung 2019-01-01 06:44:28 +00:00
parent 25e2c070cf
commit 1463621bdb
3 changed files with 91 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
moo/kernel/Magnitu.moo
View File

@ -370,18 +370,23 @@ class(#limited) SmallInteger(Integer)
method(#primitive) asError. method(#primitive) asError.
} }
class(#liword,#limited) LargeInteger(Integer) class(#limited,#immutable,#liword) LargeInteger(Integer)
{ {
} }
class(#liword,#immutable) LargePositiveInteger(LargeInteger) class(#limited,#immutable,#liword) LargePositiveInteger(LargeInteger)
{ {
method abs { ^self } method abs { ^self }
method sign { ^1 } method sign { ^1 }
} }
class(#liword,#immutable) LargeNegativeInteger(LargeInteger) class(#limited,#immutable,#liword) LargeNegativeInteger(LargeInteger)
{ {
method abs { ^self negated } method abs { ^self negated }
method sign { ^-1 } method sign { ^-1 }
} }
class(#limited,#immutable) FixedPointDecimal(Number)
{
var value, scale.
}

6
moo/lib/gc.c
View File

@ -360,7 +360,7 @@ static kernel_class_info_t kernel_classes[] =
{ 20, { 20,
{ 'L','a','r','g','e','P','o','s','i','t','i','v','e','I','n','t','e','g','e','r' }, { 'L','a','r','g','e','P','o','s','i','t','i','v','e','I','n','t','e','g','e','r' },
0, MOO_CLASS_SELFSPEC_FLAG_LIMITED,
0, 0,
0, 0,
MOO_CLASS_SPEC_FLAG_INDEXED | MOO_CLASS_SPEC_FLAG_IMMUTABLE, MOO_CLASS_SPEC_FLAG_INDEXED | MOO_CLASS_SPEC_FLAG_IMMUTABLE,
@ -369,7 +369,7 @@ static kernel_class_info_t kernel_classes[] =
{ 20, { 20,
{ 'L','a','r','g','e','N','e','g','a','t','i','v','e','I','n','t','e','g','e','r' }, { 'L','a','r','g','e','N','e','g','a','t','i','v','e','I','n','t','e','g','e','r' },
0, MOO_CLASS_SELFSPEC_FLAG_LIMITED,
0, 0,
0, 0,
MOO_CLASS_SPEC_FLAG_INDEXED | MOO_CLASS_SPEC_FLAG_IMMUTABLE, MOO_CLASS_SPEC_FLAG_INDEXED | MOO_CLASS_SPEC_FLAG_IMMUTABLE,
@ -381,7 +381,7 @@ static kernel_class_info_t kernel_classes[] =
MOO_CLASS_SELFSPEC_FLAG_LIMITED, MOO_CLASS_SELFSPEC_FLAG_LIMITED,
0, 0,
MOO_FPDEC_NAMED_INSTVARS, MOO_FPDEC_NAMED_INSTVARS,
MOO_CLASS_SPEC_FLAG_INDEXED, MOO_CLASS_SPEC_FLAG_IMMUTABLE,
MOO_OBJ_TYPE_OOP, MOO_OBJ_TYPE_OOP,
MOO_OFFSETOF(moo_t, _fixed_point_decimal) }, MOO_OFFSETOF(moo_t, _fixed_point_decimal) },

84
moo/lib/moo-prv.h
View File

@ -1371,10 +1371,86 @@ moo_oop_t moo_makefpdec (
); );
moo_oop_t moo_truncfpdecval ( moo_oop_t moo_truncfpdecval (
moo_t* moo, moo_t* moo,
moo_oop_t iv, moo_oop_t iv, /* integer */
moo_ooi_t cs, moo_ooi_t cs, /* current scale */
moo_ooi_t ns moo_ooi_t ns /* new scale */
);
moo_oop_t moo_addnums (
moo_t* moo,
moo_oop_t x,
moo_oop_t y
);
moo_oop_t moo_subnums (
moo_t* moo,
moo_oop_t x,
moo_oop_t y
);
moo_oop_t moo_mulnums (
moo_t* moo,
moo_oop_t x,
moo_oop_t y
);
moo_oop_t moo_mltnums (
moo_t* moo,
moo_oop_t x,
moo_oop_t y
);
moo_oop_t moo_divnums (
moo_t* moo,
moo_oop_t x,
moo_oop_t y
);
moo_oop_t moo_gtnums (
moo_t* moo,
moo_oop_t x,
moo_oop_t y
);
moo_oop_t moo_genums (
moo_t* moo,
moo_oop_t x,
moo_oop_t y
);
moo_oop_t moo_ltnums (
moo_t* moo,
moo_oop_t x,
moo_oop_t y
);
moo_oop_t moo_lenums (
moo_t* moo,
moo_oop_t x,
moo_oop_t y
);
moo_oop_t moo_eqnums (
moo_t* moo,
moo_oop_t x,
moo_oop_t y
);
moo_oop_t moo_nenums (
moo_t* moo,
moo_oop_t x,
moo_oop_t y
);
moo_oop_t moo_sqrtnum (
moo_t* moo,
moo_oop_t x
);
moo_oop_t moo_absnum (
moo_t* moo,
moo_oop_t x
); );
/* ========================================================================= */ /* ========================================================================= */