Author: aschnell Date: Thu Jun 19 11:06:15 2008 New Revision: 48417 URL: http://svn.opensuse.org/viewcvs/yast?rev=48417&view=rev Log: - added Integer::RangeFrom and Integer::IsPowerOfTwo Added: trunk/yast2/library/types/testsuite/tests/Integer.err trunk/yast2/library/types/testsuite/tests/Integer.out trunk/yast2/library/types/testsuite/tests/Integer.ycp Modified: trunk/yast2/VERSION trunk/yast2/library/types/src/Integer.ycp trunk/yast2/package/yast2.changes Modified: trunk/yast2/VERSION URL: http://svn.opensuse.org/viewcvs/yast/trunk/yast2/VERSION?rev=48417&r1=48416&r2=48417&view=diff ============================================================================== --- trunk/yast2/VERSION (original) +++ trunk/yast2/VERSION Thu Jun 19 11:06:15 2008 @@ -1 +1 @@ -2.17.2 +2.17.3 Modified: trunk/yast2/library/types/src/Integer.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/yast2/library/types/src/Integer.ycp?rev=48417&r1=48416&r2=48417&view=diff ============================================================================== --- trunk/yast2/library/types/src/Integer.ycp (original) +++ trunk/yast2/library/types/src/Integer.ycp Thu Jun 19 11:06:15 2008 @@ -13,17 +13,42 @@ /** - * Generate a list<integer> with the integers from 0 to n-1. + * Generate a list<integer> with the integers from 0 to stop - 1. */ - global list<integer> Range(integer n) + global list<integer> Range(integer stop) { list<integer> ret = []; integer i = 0; - while (i < n) + while (i < stop) { ret = add(ret, i); i = i + 1; } return ret; } + + + /** + * Generate a list<integer> with the integers from start to stop - 1. + */ + global list<integer> RangeFrom(integer start, integer stop) + { + list<integer> ret = []; + integer i = start; + while (i < stop) + { + ret = add(ret, i); + i = i + 1; + } + return ret; + } + + + /** + * Checks whether i is a power of two. That is 1, 2, 4, 8, ... . + */ + global boolean IsPowerOfTwo(integer i) + { + return i > 0 && (i & (i - 1)) == 0; + } } Added: trunk/yast2/library/types/testsuite/tests/Integer.err URL: http://svn.opensuse.org/viewcvs/yast/trunk/yast2/library/types/testsuite/tests/Integer.err?rev=48417&view=auto ============================================================================== (empty) Added: trunk/yast2/library/types/testsuite/tests/Integer.out URL: http://svn.opensuse.org/viewcvs/yast/trunk/yast2/library/types/testsuite/tests/Integer.out?rev=48417&view=auto ============================================================================== --- trunk/yast2/library/types/testsuite/tests/Integer.out (added) +++ trunk/yast2/library/types/testsuite/tests/Integer.out Thu Jun 19 11:06:15 2008 @@ -0,0 +1,17 @@ +Dump Integer::Range +Return [] +Return [0, 1, 2, 3, 4, 5, 6, 7, 8, 9] +Dump Integer::RangeFrom +Return [5, 6, 7, 8, 9] +Dump Integer::IsPowerOfTwo +Return false +Return true +Return true +Return false +Return true +Return false +Return true +Return false +Return false +Return true +Return false Added: trunk/yast2/library/types/testsuite/tests/Integer.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/yast2/library/types/testsuite/tests/Integer.ycp?rev=48417&view=auto ============================================================================== --- trunk/yast2/library/types/testsuite/tests/Integer.ycp (added) +++ trunk/yast2/library/types/testsuite/tests/Integer.ycp Thu Jun 19 11:06:15 2008 @@ -0,0 +1,28 @@ +{ + +include "testsuite.ycp"; +import "Integer"; + +DUMP("Integer::Range"); +TEST(``(Integer::Range(0)), [], nil); +TEST(``(Integer::Range(10)), [], nil); + +DUMP("Integer::RangeFrom"); +TEST(``(Integer::RangeFrom(5, 10)), [], nil); + +DUMP("Integer::IsPowerOfTwo"); +TEST(``(Integer::IsPowerOfTwo(0)), [], nil); +TEST(``(Integer::IsPowerOfTwo(1)), [], nil); +TEST(``(Integer::IsPowerOfTwo(2)), [], nil); +TEST(``(Integer::IsPowerOfTwo(3)), [], nil); +TEST(``(Integer::IsPowerOfTwo(4)), [], nil); + +TEST(``(Integer::IsPowerOfTwo(1024-1)), [], nil); +TEST(``(Integer::IsPowerOfTwo(1024)), [], nil); +TEST(``(Integer::IsPowerOfTwo(1024+1)), [], nil); + +TEST(``(Integer::IsPowerOfTwo(1024*1024*1024*1024-1)), [], nil); +TEST(``(Integer::IsPowerOfTwo(1024*1024*1024*1024)), [], nil); +TEST(``(Integer::IsPowerOfTwo(1024*1024*1024*1024+1)), [], nil); + +} Modified: trunk/yast2/package/yast2.changes URL: http://svn.opensuse.org/viewcvs/yast/trunk/yast2/package/yast2.changes?rev=48417&r1=48416&r2=48417&view=diff ============================================================================== --- trunk/yast2/package/yast2.changes (original) +++ trunk/yast2/package/yast2.changes Thu Jun 19 11:06:15 2008 @@ -1,15 +1,21 @@ ------------------------------------------------------------------- +Thu Jun 19 11:05:22 CEST 2008 - aschnell@suse.de + +- added Integer::RangeFrom and Integer::IsPowerOfTwo +- 2.17.3 + +------------------------------------------------------------------- Wed Jun 18 12:42:14 CEST 2008 - mzugec@suse.de - moved DnsServerAPI testsuites to yast2-dns-server -- 2.17.2 +- 2.17.2 ------------------------------------------------------------------- Wed Jun 18 10:19:41 CEST 2008 - mzugec@suse.de - use PREFIXLEN in NetworkInterfaces - fixed testsuites (added IPv6 tests) -- 2.17.1 +- 2.17.1 ------------------------------------------------------------------- Mon Jun 16 12:42:24 CEST 2008 - locilka@suse.cz @@ -86,7 +92,7 @@ Thu May 22 10:56:19 CEST 2008 - mzugec@suse.cz - test if disk is network based in NetworkStorage (bnc#384420) -- 2.16.69 +- 2.16.69 ------------------------------------------------------------------- Tue May 20 13:51:55 CEST 2008 - locilka@suse.cz @@ -104,7 +110,7 @@ - Fixed bnc #374704: Missing wizard icons Now providing a default icon until the YCP app sets one -- V 2.16.68 +- V 2.16.68 ------------------------------------------------------------------- Wed May 14 09:47:19 CEST 2008 - jsrain@suse.cz @@ -117,7 +123,7 @@ Tue May 13 13:49:40 CEST 2008 - mzugec@suse.cz - isDiskOnNetwork::NetworkStorage added test for nfs (bnc#384420) -- 2.16.66 +- 2.16.66 ------------------------------------------------------------------- Tue May 13 12:41:55 CEST 2008 - lslezak@suse.cz @@ -131,7 +137,7 @@ - Report::{Long,}{Message,Warning,Error}: log the text before popping up a dialog so that eager bug reporters have the last message in the - log (bnc#381594#c15). + log (bnc#381594#c15). ------------------------------------------------------------------- Fri May 09 12:19:58 CEST 2008 - aschnell@suse.de -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org