home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 7.4 / 7.4.351 < prev    next >
Encoding:
Internet Message Format  |  2014-07-01  |  5.9 KB
  1. To: vim_dev@googlegroups.com
  2. Subject: Patch 7.4.351
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. Mime-Version: 1.0
  6. Content-Type: text/plain; charset=UTF-8
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 7.4.351
  11. Problem:    sort() is not stable.
  12. Solution:   When the items are identical, compare the pointers.
  13. Files:        src/eval.c, src/testdir/test55.in, src/testdir/test55.ok
  14.  
  15.  
  16. *** ../vim-7.4.350/src/eval.c    2014-06-25 17:31:04.942737863 +0200
  17. --- src/eval.c    2014-07-02 18:52:19.102313288 +0200
  18. ***************
  19. *** 17334,17339 ****
  20. --- 17334,17340 ----
  21.   static char_u    *item_compare_func;
  22.   static dict_T    *item_compare_selfdict;
  23.   static int    item_compare_func_err;
  24. + static int    item_compare_keep_zero;
  25.   static void    do_sort_uniq __ARGS((typval_T *argvars, typval_T *rettv, int sort));
  26.   #define ITEM_COMPARE_FAIL 999
  27.   
  28. ***************
  29. *** 17374,17379 ****
  30. --- 17375,17386 ----
  31.       n2 = strtod((char *)p2, (char **)&p2);
  32.       res = n1 == n2 ? 0 : n1 > n2 ? 1 : -1;
  33.       }
  34. + 
  35. +     /* When the result would be zero, compare the pointers themselves.  Makes
  36. +      * the sort stable. */
  37. +     if (res == 0 && !item_compare_keep_zero)
  38. +     res = s1 > s2 ? 1 : -1;
  39. + 
  40.       vim_free(tofree1);
  41.       vim_free(tofree2);
  42.       return res;
  43. ***************
  44. *** 17396,17402 ****
  45.       if (item_compare_func_err)
  46.       return 0;
  47.   
  48. !     /* copy the values.  This is needed to be able to set v_lock to VAR_FIXED
  49.        * in the copy without changing the original list items. */
  50.       copy_tv(&(*(listitem_T **)s1)->li_tv, &argv[0]);
  51.       copy_tv(&(*(listitem_T **)s2)->li_tv, &argv[1]);
  52. --- 17403,17409 ----
  53.       if (item_compare_func_err)
  54.       return 0;
  55.   
  56. !     /* Copy the values.  This is needed to be able to set v_lock to VAR_FIXED
  57.        * in the copy without changing the original list items. */
  58.       copy_tv(&(*(listitem_T **)s1)->li_tv, &argv[0]);
  59.       copy_tv(&(*(listitem_T **)s2)->li_tv, &argv[1]);
  60. ***************
  61. *** 17415,17420 ****
  62. --- 17422,17433 ----
  63.       if (item_compare_func_err)
  64.       res = ITEM_COMPARE_FAIL;  /* return value has wrong type */
  65.       clear_tv(&rettv);
  66. + 
  67. +     /* When the result would be zero, compare the pointers themselves.  Makes
  68. +      * the sort stable. */
  69. +     if (res == 0 && !item_compare_keep_zero)
  70. +     res = s1 > s2 ? 1 : -1;
  71. + 
  72.       return res;
  73.   }
  74.   
  75. ***************
  76. *** 17509,17514 ****
  77. --- 17522,17528 ----
  78.           ptrs[i++] = li;
  79.   
  80.           item_compare_func_err = FALSE;
  81. +         item_compare_keep_zero = FALSE;
  82.           /* test the compare function */
  83.           if (item_compare_func != NULL
  84.               && item_compare2((void *)&ptrs[0], (void *)&ptrs[1])
  85. ***************
  86. *** 17536,17541 ****
  87. --- 17550,17556 ----
  88.   
  89.           /* f_uniq(): ptrs will be a stack of items to remove */
  90.           item_compare_func_err = FALSE;
  91. +         item_compare_keep_zero = TRUE;
  92.           item_compare_func_ptr = item_compare_func
  93.                              ? item_compare2 : item_compare;
  94.   
  95. *** ../vim-7.4.350/src/testdir/test55.in    2014-06-26 22:33:47.850693627 +0200
  96. --- src/testdir/test55.in    2014-07-02 19:00:09.238320492 +0200
  97. ***************
  98. *** 332,340 ****
  99.   :$put =string(reverse(sort(l)))
  100.   :$put =string(sort(reverse(sort(l))))
  101.   :$put =string(uniq(sort(l)))
  102. ! :let l=[7, 9, 18, 12, 22, 10.0e-16, -1, 0xff, 0.22, 'foo']
  103.   :$put =string(sort(copy(l), 'n'))
  104. ! :let l=[7, 9, 18, 12, 22, 10.0e-16, -1, 0xff, 0, -0, 0.22, 'foo', 'FOOBAR',{}, []]
  105.   :$put =string(sort(copy(l), 1))
  106.   :$put =string(sort(copy(l), 'i'))
  107.   :$put =string(sort(copy(l)))
  108. --- 332,340 ----
  109.   :$put =string(reverse(sort(l)))
  110.   :$put =string(sort(reverse(sort(l))))
  111.   :$put =string(uniq(sort(l)))
  112. ! :let l=[7, 9, 'one', 18, 12, 22, 'two', 10.0e-16, -1, 'three', 0xff, 0.22, 'four']
  113.   :$put =string(sort(copy(l), 'n'))
  114. ! :let l=[7, 9, 18, 12, 22, 10.0e-16, -1, 0xff, 0, -0, 0.22, 'bar', 'BAR', 'Bar', 'Foo', 'FOO', 'foo', 'FOOBAR', {}, []]
  115.   :$put =string(sort(copy(l), 1))
  116.   :$put =string(sort(copy(l), 'i'))
  117.   :$put =string(sort(copy(l)))
  118. *** ../vim-7.4.350/src/testdir/test55.ok    2014-06-26 22:33:47.850693627 +0200
  119. --- src/testdir/test55.ok    2014-07-02 19:00:57.078321225 +0200
  120. ***************
  121. *** 101,110 ****
  122.   [[0, 1, 2], [0, 1, 2], 4, 2, 2, 1.5, 'xaaa', 'x8', 'foo6', 'foo', 'foo', 'A11', '-0']
  123.   ['-0', 'A11', 'foo', 'foo', 'foo6', 'x8', 'xaaa', 1.5, 2, 2, 4, [0, 1, 2], [0, 1, 2]]
  124.   ['-0', 'A11', 'foo', 'foo6', 'x8', 'xaaa', 1.5, 2, 4, [0, 1, 2]]
  125. ! [-1, 'foo', 1.0e-15, 0.22, 7, 9, 12, 18, 22, 255]
  126. ! ['foo', 'FOOBAR', -1, 0, 0, 0.22, 1.0e-15, 12, 18, 22, 255, 7, 9, [], {}]
  127. ! ['foo', 'FOOBAR', -1, 0, 0, 0.22, 1.0e-15, 12, 18, 22, 255, 7, 9, [], {}]
  128. ! ['FOOBAR', 'foo', -1, 0, 0, 0.22, 1.0e-15, 12, 18, 22, 255, 7, 9, [], {}]
  129.   ['aa', 'bb']
  130.   ['aa', 'bb']
  131.   ['', 'aa', 'bb', '']
  132. --- 101,110 ----
  133.   [[0, 1, 2], [0, 1, 2], 4, 2, 2, 1.5, 'xaaa', 'x8', 'foo6', 'foo', 'foo', 'A11', '-0']
  134.   ['-0', 'A11', 'foo', 'foo', 'foo6', 'x8', 'xaaa', 1.5, 2, 2, 4, [0, 1, 2], [0, 1, 2]]
  135.   ['-0', 'A11', 'foo', 'foo6', 'x8', 'xaaa', 1.5, 2, 4, [0, 1, 2]]
  136. ! [-1, 'one', 'two', 'three', 'four', 1.0e-15, 0.22, 7, 9, 12, 18, 22, 255]
  137. ! ['bar', 'BAR', 'Bar', 'Foo', 'FOO', 'foo', 'FOOBAR', -1, 0, 0, 0.22, 1.0e-15, 12, 18, 22, 255, 7, 9, [], {}]
  138. ! ['bar', 'BAR', 'Bar', 'Foo', 'FOO', 'foo', 'FOOBAR', -1, 0, 0, 0.22, 1.0e-15, 12, 18, 22, 255, 7, 9, [], {}]
  139. ! ['BAR', 'Bar', 'FOO', 'FOOBAR', 'Foo', 'bar', 'foo', -1, 0, 0, 0.22, 1.0e-15, 12, 18, 22, 255, 7, 9, [], {}]
  140.   ['aa', 'bb']
  141.   ['aa', 'bb']
  142.   ['', 'aa', 'bb', '']
  143. *** ../vim-7.4.350/src/version.c    2014-07-02 18:27:44.662290695 +0200
  144. --- src/version.c    2014-07-02 18:46:38.230308065 +0200
  145. ***************
  146. *** 736,737 ****
  147. --- 736,739 ----
  148.   {   /* Add new patch number below this line */
  149. + /**/
  150. +     351,
  151.   /**/
  152.  
  153. -- 
  154. The early bird gets the worm. If you want something else for
  155. breakfast, get up later.
  156.  
  157.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  158. ///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
  159. \\\  an exciting new programming language -- http://www.Zimbu.org        ///
  160.  \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///
  161.