Update of /cvsroot/monetdb/MonetDB5/src/modules/kernel
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv29607/src/modules/kernel
Modified Files:
algebra.mx group.mx mmath.mx
Log Message:
Once one has managed to successfully fight the odds of (|the)
Wind(ows|mill), and shown it who does rule (Thanks, Sjoerd!),
it starts revealing its real benefits (challenges?):
It reminds us that we have to be aware of our code, and make sure that is
indeed clean, correct and (hence) portable.
Well, until recently, it mainly reminded Sjoerd, in the last days (weeks?),
it also reminded me (and I learned to acknowledge and appreciate Sjoerd's
work even more!), and as of tomorrow morning it will remind all of us every
morning during (or just after) our breakfast / coffee --- "Groundhog Day"?
MonetDB5/src/modules/atoms/inet.mx,
MonetDB5/src/modules/kernel/algebra.mx,
MonetDB5/src/modules/mal/clients.mx:
- added missing "exports"
((hopefully) in .h file(s))
MonetDB5/src/modules/kernel/group.mx:
- added missing "exports"
(unfortunately in .c file, as this files seems to add all
"exports" to the .c file, and I honestly am too exhausted to put
all of them in the .h file, where they should (do!) actually
belong --- I hope to recall and find some time "soon" ...)
MonetDB5/src/modules/kernel/mmath.mx:
- use exported "MATHunary_(IS(NAN|INF)FINITE)"
as address for commands, not the internal
"math_unary_(IS(NAN|INF)FINITE)"
- added missing exports for "MATHbinary_ROUND(dbl|flt)"
- cleaned-up Mx macros "unopbaseM5_export", "unopM5_export",
"binopbaseM5_export", "binopM5_export" by removing unused second
parameters;
added new third parameter to macro "binopbaseM5_export" for binary
function that have two arguments of differing type;
(in fact, I was very tempted to remove these four macros
completely, as they seems "obscure" the code more than the
"simplify" it ...)
Index: mmath.mx
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/modules/kernel/mmath.mx,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- mmath.mx 14 Oct 2007 08:41:47 -0000 1.36
+++ mmath.mx 13 Dec 2007 20:22:44 -0000 1.37
@@ -176,15 +176,15 @@
m must be an integer.";
command isnan(d:dbl) :bit
-address math_unary_ISNAN
+address MATHunary_ISNAN
comment "The isnan(x) function returns true if x is 'not-a-number'
(NaN), and false otherwise.";
command isinf(d:dbl) :int
-address math_unary_ISINF
+address MATHunary_ISINF
comment "The isinf(x) function returns -1 if x represents negative
infinity, 1 if x represents positive infinity, and 0 otherwise.";
command finite(d:dbl) :bit
-address math_unary_FINITE
+address MATHunary_FINITE
comment "The finite(x) function returns true if x is neither infinite
nor a 'not-a-number' (NaN) value, and false otherwise.";
@@ -301,41 +301,42 @@
#define fmod_binary(x, y, z) *z = fmod(*x,*y)
@= unopbaseM5_export
-mmath_export str [EMAIL PROTECTED]@3(@3 *res , @3 *a );
+mmath_export str [EMAIL PROTECTED]@2(@2 *res , @2 *a );
@= unopM5_export
- @:unopbaseM5_export(@1,@2,dbl)@
- @:unopbaseM5_export(@1,@2,flt)@
+ @:unopbaseM5_export(@1,dbl)@
+ @:unopbaseM5_export(@1,flt)@
@= binopbaseM5_export
-mmath_export str [EMAIL PROTECTED]@3(@3 *res, @3 *a, @3 *b );
+mmath_export str [EMAIL PROTECTED]@2(@2 *res, @2 *a, @3 *b );
@= binopM5_export
- @:binopbaseM5_export(@1,@2,dbl)@
- @:binopbaseM5_export(@1,@2,flt)@
+ @:binopbaseM5_export(@1,dbl,dbl)@
+ @:binopbaseM5_export(@1,flt,flt)@
@h
-@:unopM5_export(_ACOS,acos)@
-@:unopM5_export(_ASIN,asin)@
-@:unopM5_export(_ATAN,atan)@
-@:binopM5_export(_ATAN2,atan2)@
-@:unopM5_export(_COS,cos)@
-@:unopM5_export(_SIN,sin)@
-@:unopM5_export(_TAN,tan)@
-
-@:unopM5_export(_COSH,cosh)@
-@:unopM5_export(_SINH,sinh)@
-@:unopM5_export(_TANH,tanh)@
+@:unopM5_export(_ACOS)@
+@:unopM5_export(_ASIN)@
+@:unopM5_export(_ATAN)@
+@:binopM5_export(_ATAN2)@
+@:unopM5_export(_COS)@
+@:unopM5_export(_SIN)@
+@:unopM5_export(_TAN)@
-@:unopM5_export(_EXP,exp)@
-@:unopM5_export(_LOG,log)@
-@:unopM5_export(_LOG10,log10)@
+@:unopM5_export(_COSH)@
+@:unopM5_export(_SINH)@
+@:unopM5_export(_TANH)@
-@:binopM5_export(_POW,pow)@
-@:unopM5_export(_SQRT,sqrt)@
+@:unopM5_export(_EXP)@
+@:unopM5_export(_LOG)@
+@:unopM5_export(_LOG10)@
-@:unopM5_export(_CEIL,ceil)@
-@:unopbaseM5_export(_FABS,fabs,dbl)@
-@:unopM5_export(_FLOOR,floor)@
-@:binopM5_export(_FMOD,fmod)@
+@:binopM5_export(_POW)@
+@:unopM5_export(_SQRT)@
+@:unopM5_export(_CEIL)@
+@:unopbaseM5_export(_FABS,dbl,dbl)@
+@:unopM5_export(_FLOOR)@
+@:binopM5_export(_FMOD)@
+@:binopbaseM5_export(_ROUND,dbl,int)@
+@:binopbaseM5_export(_ROUND,flt,int)@
mmath_export str MATHunary_ISNAN(bit *res, dbl *a);
mmath_export str MATHunary_ISINF(int *res, dbl *a);
Index: group.mx
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/modules/kernel/group.mx,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -d -r1.101 -r1.102
--- group.mx 13 Dec 2007 15:26:51 -0000 1.101
+++ group.mx 13 Dec 2007 20:22:44 -0000 1.102
@@ -2046,6 +2046,7 @@
@= extreme_
@:extreme(@1,@2,oid,@3)@
@:extreme(@1,@2,ptr,@3)@
+group_export str [EMAIL PROTECTED](int *retval, int *bid, int *eid);
str
[EMAIL PROTECTED](int *retval, int *bid, int *eid)
{
Index: algebra.mx
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/modules/kernel/algebra.mx,v
retrieving revision 1.187
retrieving revision 1.188
diff -u -d -r1.187 -r1.188
--- algebra.mx 13 Dec 2007 15:26:50 -0000 1.187
+++ algebra.mx 13 Dec 2007 20:22:43 -0000 1.188
@@ -996,6 +996,8 @@
algebra_export str ALGmergejoin(int *result, int *lid, int *rid);
algebra_export str ALGindexjoin(int *result, int *lid, int *rid);
algebra_export str ALGprojectNIL(int *ret, int *bid);
+algebra_export str ALGselectNotNil(int *result, int *bid);
+algebra_export str ALGuhashsplit(int *result, int *bid, int *nfrag);
@= project_export
algebra_export str [EMAIL PROTECTED](int *ret,ptr *val, int *bid);
-------------------------------------------------------------------------
SF.Net email is sponsored by:
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services
for just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
