comparison src/lisp.h @ 5350:94bbd4792049

Have #'sort*, #'merge use the same test approach as functions from cl-seq.el 2011-02-05 Aidan Kehoe <kehoea@parhasard.net> * fns.c: * fns.c (check_lss_key, check_lss_key_car): New. * fns.c (check_string_lessp_key check_string_lessp_key_car): New. * fns.c (get_merge_predicate): New. * fns.c (list_merge): * fns.c (array_merge): * fns.c (list_array_merge_into_list): * fns.c (list_list_merge_into_array): * fns.c (list_array_merge_into_array): * fns.c (Fmerge): * fns.c (list_sort): * fns.c (array_sort): * fns.c (FsortX): * fns.c (syms_of_fns): * lisp.h: Move #'sort, #'merge to using the same test approach as is used in the functions that take TEST, TEST-NOT and KEY arguments. This allows us to avoid the Ffuncall() overhead when the most common PREDICATE arguments are supplied, in particular #'< and #'string-lessp. * fontcolor-msw.c (sort_font_list_function): * fontcolor-msw.c (mswindows_enumerate_fonts): * dired.c: * dired.c (Fdirectory_files): * fileio.c: * fileio.c (build_annotations): * fileio.c (syms_of_fileio): * keymap.c: * keymap.c (keymap_submaps): * keymap.c (map_keymap_sort_predicate): * keymap.c (describe_map_sort_predicate): * keymap.c (describe_map): Change the various C predicates passed to list_sort () and list_merge () to fit the new calling convention, returning non-zero if the first argument is less than the second, zero otherwise.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 05 Feb 2011 12:04:34 +0000
parents 39304a35b6b3
children 22c4e67a2e69 0af042a0c116
comparison
equal deleted inserted replaced
5349:239193591765 5350:94bbd4792049
5246 EXFUN (Fstring_equal, 2); 5246 EXFUN (Fstring_equal, 2);
5247 EXFUN (Fstring_lessp, 2); 5247 EXFUN (Fstring_lessp, 2);
5248 EXFUN (Fsubseq, 3); 5248 EXFUN (Fsubseq, 3);
5249 EXFUN (Fvalid_plist_p, 1); 5249 EXFUN (Fvalid_plist_p, 1);
5250 5250
5251 extern Boolint check_lss_key_car (Lisp_Object, Lisp_Object, Lisp_Object,
5252 Lisp_Object);
5253 extern Boolint check_string_lessp_nokey (Lisp_Object, Lisp_Object,
5254 Lisp_Object, Lisp_Object);
5255
5256 typedef Boolint (*check_test_func_t) (Lisp_Object test, Lisp_Object key,
5257 Lisp_Object item, Lisp_Object elt);
5258
5251 Lisp_Object list_merge (Lisp_Object org_l1, Lisp_Object org_l2, 5259 Lisp_Object list_merge (Lisp_Object org_l1, Lisp_Object org_l2,
5252 Lisp_Object (*c_predicate) (Lisp_Object o1, 5260 check_test_func_t check_merge,
5253 Lisp_Object o2,
5254 Lisp_Object pred,
5255 Lisp_Object keyf),
5256 Lisp_Object predicate, Lisp_Object key_func); 5261 Lisp_Object predicate, Lisp_Object key_func);
5257 Lisp_Object list_sort (Lisp_Object list, 5262 Lisp_Object list_sort (Lisp_Object list,
5258 Lisp_Object (*c_predicate) (Lisp_Object, Lisp_Object, 5263 check_test_func_t check_merge,
5259 Lisp_Object, Lisp_Object),
5260 Lisp_Object predicate, Lisp_Object key_func); 5264 Lisp_Object predicate, Lisp_Object key_func);
5261 5265
5262 void bump_string_modiff (Lisp_Object); 5266 void bump_string_modiff (Lisp_Object);
5263 Lisp_Object memq_no_quit (Lisp_Object, Lisp_Object); 5267 Lisp_Object memq_no_quit (Lisp_Object, Lisp_Object);
5264 Lisp_Object assoc_no_quit (Lisp_Object, Lisp_Object); 5268 Lisp_Object assoc_no_quit (Lisp_Object, Lisp_Object);