Re: [Monetdb-developers] [Monetdb-checkins] MonetDB4/src/modules/plain arith.mx, MonetDB_4-20, 1.3, 1.3.6.1
On Thu, Dec 13, 2007 at 11:40:49AM +0000, Niels Nes wrote:
Update of /cvsroot/monetdb/MonetDB4/src/modules/plain In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv24024/src/modules/plain
Modified Files: Tag: MonetDB_4-20 arith.mx Log Message: added function sign (sql allready expected this to exist)
returns 1 for positive numbers 0 for 0 -1 for negative
Index: arith.mx =================================================================== RCS file: /cvsroot/monetdb/MonetDB4/src/modules/plain/arith.mx,v retrieving revision 1.3 retrieving revision 1.3.6.1 diff -u -d -r1.3 -r1.3.6.1 --- arith.mx 20 Feb 2007 11:32:12 -0000 1.3 +++ arith.mx 13 Dec 2007 11:40:47 -0000 1.3.6.1 @@ -251,6 +251,7 @@ @= mel_unary_ops .COMMAND abs(@1) : @1 = @1_unary_ABS; "absolute value" .OPERATOR "-" (@1) : @1 = @1_unary_NEG; "negative value" + .COMMAND sign(@1) : @1 = @1_unary_SIGN; "Returns +1, 0, -1 based on the sign of the given expression" @= unary_ops @:@1_unary_ops(chr)@ @:@1_unary_ops(bte)@ @@ -411,9 +412,11 @@
#define arith_abs(s) ((s)<0)?-(s):(s) #define arith_neg(s) (-(s)) +#define arith_sign(s) ((s)<0)?-1:(s==0)?0:1 ^^^ ^ should(n't) the second "s" be in parentheses, too?
Stefan
@= c_unary_ops @:arith_unop(_ABS,arith_abs,@1)@ @:arith_unop(_NEG,arith_neg,@1)@ +@:arith_unop(_SIGN,arith_sign,@1)@ @c @:unary_ops(c)@
-- | Dr. Stefan Manegold | mailto:Stefan.Manegold@cwi.nl | | CWI, P.O.Box 94079 | http://www.cwi.nl/~manegold/ | | 1090 GB Amsterdam | Tel.: +31 (20) 592-4212 | | The Netherlands | Fax : +31 (20) 592-4312 |
On Thu, Dec 13, 2007 at 12:43:34PM +0100, Stefan Manegold wrote:
On Thu, Dec 13, 2007 at 11:40:49AM +0000, Niels Nes wrote:
Update of /cvsroot/monetdb/MonetDB4/src/modules/plain In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv24024/src/modules/plain
Modified Files: Tag: MonetDB_4-20 arith.mx Log Message: added function sign (sql allready expected this to exist)
returns 1 for positive numbers 0 for 0 -1 for negative
Index: arith.mx =================================================================== RCS file: /cvsroot/monetdb/MonetDB4/src/modules/plain/arith.mx,v retrieving revision 1.3 retrieving revision 1.3.6.1 diff -u -d -r1.3 -r1.3.6.1 --- arith.mx 20 Feb 2007 11:32:12 -0000 1.3 +++ arith.mx 13 Dec 2007 11:40:47 -0000 1.3.6.1 @@ -251,6 +251,7 @@ @= mel_unary_ops .COMMAND abs(@1) : @1 = @1_unary_ABS; "absolute value" .OPERATOR "-" (@1) : @1 = @1_unary_NEG; "negative value" + .COMMAND sign(@1) : @1 = @1_unary_SIGN; "Returns +1, 0, -1 based on the sign of the given expression" @= unary_ops @:@1_unary_ops(chr)@ @:@1_unary_ops(bte)@ @@ -411,9 +412,11 @@
#define arith_abs(s) ((s)<0)?-(s):(s) #define arith_neg(s) (-(s)) +#define arith_sign(s) ((s)<0)?-1:(s==0)?0:1 ^^^ ^ should(n't) the second "s" be in parentheses, too? good idea, I'll fix it
Niels
Stefan
@= c_unary_ops @:arith_unop(_ABS,arith_abs,@1)@ @:arith_unop(_NEG,arith_neg,@1)@ +@:arith_unop(_SIGN,arith_sign,@1)@ @c @:unary_ops(c)@
-- | Dr. Stefan Manegold | mailto:Stefan.Manegold@cwi.nl | | CWI, P.O.Box 94079 | http://www.cwi.nl/~manegold/ | | 1090 GB Amsterdam | Tel.: +31 (20) 592-4212 | | The Netherlands | Fax : +31 (20) 592-4312 |
------------------------------------------------------------------------- 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-developers mailing list Monetdb-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/monetdb-developers
-- Niels Nes, Centre for Mathematics and Computer Science (CWI) Kruislaan 413, 1098 SJ Amsterdam, The Netherlands room C0.02, phone ++31 20 592-4098, fax ++31 20 592-4312 url: http://www.cwi.nl/~niels e-mail: Niels.Nes@cwi.nl
participants (2)
-
Niels Nes -
Stefan Manegold