From: <cli...@li...> - 2009-02-26 12:08:36
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/src ChangeLog,1.6827,1.6828 (Sam Steingold) 2. clisp/modules/readline readline.lisp,1.17,1.18 (Sam Steingold) 3. clisp/modules/readline config.h.in,1.9,1.10 configure,1.29,1.30 (Sam Steingold) 4. clisp/src ChangeLog,1.6828,1.6829 eval.d,1.267,1.268 (Vladimir Tzankov) ---------------------------------------------------------------------- Message: 1 Date: Thu, 26 Feb 2009 00:03:05 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.6827,1.6828 To: cli...@li... Message-ID: <E1L...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv15274/src Modified Files: ChangeLog Log Message: use (:return-type nil) instead of (:return-type) which works too but is not officially documented Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6827 retrieving revision 1.6828 diff -u -d -r1.6827 -r1.6828 --- ChangeLog 25 Feb 2009 21:33:34 -0000 1.6827 +++ ChangeLog 26 Feb 2009 00:02:59 -0000 1.6828 @@ -1,5 +1,10 @@ 2009-02-25 Sam Steingold <sd...@gn...> + * modules/readline/readline.lisp: use (:return-type nil) instead + of (:return-type) which works too but is not officially documented + +2009-02-25 Sam Steingold <sd...@gn...> + * modules/readline/readline.lisp: upgrade from readline 5.2 to 6.0 (alphabetic, free, echo-signal-char, gnu-readline-p, display-prompt) (editing-mode-emacs, editing-mode-vi, insert-mode-overwrite) ------------------------------ Message: 2 Date: Thu, 26 Feb 2009 00:03:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/readline readline.lisp,1.17,1.18 To: cli...@li... Message-ID: <E1L...@dd...> Update of /cvsroot/clisp/clisp/modules/readline In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv15274/modules/readline Modified Files: readline.lisp Log Message: use (:return-type nil) instead of (:return-type) which works too but is not officially documented Index: readline.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/readline/readline.lisp,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- readline.lisp 25 Feb 2009 21:33:32 -0000 1.17 +++ readline.lisp 26 Feb 2009 00:02:59 -0000 1.18 @@ -99,7 +99,7 @@ (def-call-out discard-keymap (:name "rl_discard_keymap") ; untested (:documentation "Discard allocated keymap.") - (:arguments (map keymap)) (:return-type)) + (:arguments (map keymap)) (:return-type nil)) (def-call-out get-keymap (:name "rl_get_keymap") ; untested (:documentation "Return current keymap") @@ -107,7 +107,7 @@ (def-call-out set-keymap (:name "rl_set_keymap") ; untested (:documentation "Set keymap as current") - (:arguments (map keymap)) (:return-type)) + (:arguments (map keymap)) (:return-type nil)) (def-call-out get-keymap-by-name (:name "rl_get_keymap_by_name") ; untested (:documentation "Get keymap with given name (e.g., emacs, vi)") @@ -198,17 +198,15 @@ (def-call-out function-dumper (:name "rl_function_dumper") (:arguments (readable int)) - (:return-type)) + (:return-type nil)) (def-call-out list-funmap-names (:name "rl_list_funmap_names") - (:arguments) - (:return-type)) + (:arguments) (:return-type nil)) ;;; !!! Returned array should be freed, but if I :malloc-free it, clisp ;;; tries to free the c-string too. Bad. (def-call-out funmap-names (:name "rl_funmap_names") ; FIXME: leaks - (:arguments) - (:return-type (c-array-ptr c-string))) + (:arguments) (:return-type (c-array-ptr c-string))) (def-call-out add-funmap-entry (:name "rl_add_funmap_entry") ; untested (:arguments (name c-string :in :malloc-free) (callback command-func-t)) @@ -229,10 +227,10 @@ (def-call-out add-undo (:name "rl_add_undo") ; untested (:arguments (what int) (start int) (end int) (text c-string)) - (:return-type)) + (:return-type nil)) (def-call-out free-undo-list (:name "rl_free_undo_list") ; untested - (:arguments) (:return-type)) + (:arguments) (:return-type nil)) (def-call-out do-undo (:name "rl_do_undo") ; untested (:arguments) (:return-type int)) @@ -274,10 +272,10 @@ (:arguments) (:return-type int)) (def-call-out save-prompt (:name "rl_save_prompt") ; untested - (:arguments) (:return-type)) + (:arguments) (:return-type nil)) (def-call-out restore-prompt (:name "rl_restore_prompt") ; untested - (:arguments) (:return-type)) + (:arguments) (:return-type nil)) (def-call-out expand-prompt (:name "rl_expand_prompt") ; untested (:arguments (prompt c-string)) (:return-type int)) @@ -328,13 +326,13 @@ ;;; Terminal management (def-call-out prep-terminal (:name "rl_prep_terminal") ; untested - (:arguments (meta-flag int)) (:return-type)) + (:arguments (meta-flag int)) (:return-type nil)) (def-call-out deprep-terminal (:name "rl_deprep_terminal") ; untested - (:arguments) (:return-type)) + (:arguments) (:return-type nil)) (def-call-out tty-set-default-bindings (:name "rl_tty_set_default_bindings") ; untested - (:arguments (map keymap)) (:return-type)) + (:arguments (map keymap)) (:return-type nil)) (def-call-out reset-terminal (:name "rl_reset_terminal") ; untested (:arguments (terminal-name c-string)) (:return-type int)) @@ -344,7 +342,7 @@ (def-call-out replace-line (:name "rl_replace_line") ; untested (:arguments (new-line c-string) (clear-undo int)) - (:return-type)) + (:return-type nil)) (def-call-out extend-line-buffer (:name "rl_extend_line_buffer") ; untested (:arguments (len int)) @@ -361,7 +359,7 @@ (def-call-out display-match-list (:name "rl_display_match_list") (:arguments (matches (c-array-ptr c-string)) (len int) (max int)) - (:return-type)) + (:return-type nil)) ;;; Miscellaneous functions @@ -375,15 +373,15 @@ (def-call-out macro-dumper (:name "rl_macro_dumper") ; untested (:arguments (readable int)) - (:return-type)) + (:return-type nil)) (def-call-out variable-dumper (:name "rl_variable_dumper") ; untested (:arguments (readable int)) - (:return-type)) + (:return-type nil)) (def-call-out echo-signal-char (:name "rl_echo_signal_char") ; untested (:arguments (readable int)) - (:return-type)) + (:return-type nil)) (def-call-out set-paren-blink-timeout (:name "rl_set_paren_blink_timeout") ; untested (:arguments (u int)) ------------------------------ Message: 3 Date: Thu, 26 Feb 2009 04:44:13 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/readline config.h.in,1.9,1.10 configure,1.29,1.30 To: cli...@li... Message-ID: <E1L...@dd...> Update of /cvsroot/clisp/clisp/modules/readline In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv3135/modules/readline Modified Files: config.h.in configure Log Message: regenerated for readline 6.0 Index: config.h.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/readline/config.h.in,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- config.h.in 15 Jan 2009 04:00:25 -0000 1.9 +++ config.h.in 26 Feb 2009 04:44:08 -0000 1.10 @@ -13,10 +13,54 @@ if you don't. */ #undef HAVE_DECL_RL_ALREADY_PROMPTED +/* Define to 1 if you have the declaration of `rl_attempted_completion_over', + and to 0 if you don't. */ +#undef HAVE_DECL_RL_ATTEMPTED_COMPLETION_OVER + +/* Define to 1 if you have the declaration of + `rl_completion_append_character', and to 0 if you don't. */ +#undef HAVE_DECL_RL_COMPLETION_APPEND_CHARACTER + +/* Define to 1 if you have the declaration of `rl_completion_found_quote', and + to 0 if you don't. */ +#undef HAVE_DECL_RL_COMPLETION_FOUND_QUOTE + +/* Define to 1 if you have the declaration of `rl_completion_invoking_key', + and to 0 if you don't. */ +#undef HAVE_DECL_RL_COMPLETION_INVOKING_KEY + +/* Define to 1 if you have the declaration of + `rl_completion_mark_symlink_dirs', and to 0 if you don't. */ +#undef HAVE_DECL_RL_COMPLETION_MARK_SYMLINK_DIRS + +/* Define to 1 if you have the declaration of `rl_completion_query_items', and + to 0 if you don't. */ +#undef HAVE_DECL_RL_COMPLETION_QUERY_ITEMS + +/* Define to 1 if you have the declaration of `rl_completion_quote_character', + and to 0 if you don't. */ +#undef HAVE_DECL_RL_COMPLETION_QUOTE_CHARACTER + +/* Define to 1 if you have the declaration of `rl_completion_suppress_append', + and to 0 if you don't. */ +#undef HAVE_DECL_RL_COMPLETION_SUPPRESS_APPEND + +/* Define to 1 if you have the declaration of `rl_completion_suppress_quote', + and to 0 if you don't. */ +#undef HAVE_DECL_RL_COMPLETION_SUPPRESS_QUOTE + +/* Define to 1 if you have the declaration of `rl_completion_type', and to 0 + if you don't. */ +#undef HAVE_DECL_RL_COMPLETION_TYPE + /* Define to 1 if you have the declaration of `rl_dispatching', and to 0 if you don't. */ #undef HAVE_DECL_RL_DISPATCHING +/* Define to 1 if you have the declaration of `rl_display_prompt', and to 0 if + you don't. */ +#undef HAVE_DECL_RL_DISPLAY_PROMPT + /* Define to 1 if you have the declaration of `rl_done', and to 0 if you don't. */ #undef HAVE_DECL_RL_DONE @@ -37,6 +81,18 @@ don't. */ #undef HAVE_DECL_RL_EVENT_HOOK +/* Define to 1 if you have the declaration of `rl_executing_macro', and to 0 + if you don't. */ +#undef HAVE_DECL_RL_EXECUTING_MACRO + +/* Define to 1 if you have the declaration of `rl_explicit_arg', and to 0 if + you don't. */ +#undef HAVE_DECL_RL_EXPLICIT_ARG + +/* Define to 1 if you have the declaration of `rl_filename_quoting_desired', + and to 0 if you don't. */ +#undef HAVE_DECL_RL_FILENAME_QUOTING_DESIRED + /* Define to 1 if you have the declaration of `rl_getc_function', and to 0 if you don't. */ #undef HAVE_DECL_RL_GETC_FUNCTION @@ -45,6 +101,14 @@ you don't. */ #undef HAVE_DECL_RL_GNU_READLINE_P +/* Define to 1 if you have the declaration of + `rl_ignore_completion_duplicates', and to 0 if you don't. */ +#undef HAVE_DECL_RL_IGNORE_COMPLETION_DUPLICATES + +/* Define to 1 if you have the declaration of `rl_inhibit_completion', and to + 0 if you don't. */ +#undef HAVE_DECL_RL_INHIBIT_COMPLETION + /* Define to 1 if you have the declaration of `rl_insert_mode', and to 0 if you don't. */ #undef HAVE_DECL_RL_INSERT_MODE @@ -69,6 +133,10 @@ don't. */ #undef HAVE_DECL_RL_MARK +/* Define to 1 if you have the declaration of `rl_numeric_arg', and to 0 if + you don't. */ +#undef HAVE_DECL_RL_NUMERIC_ARG + /* Define to 1 if you have the declaration of `rl_num_chars_to_read', and to 0 if you don't. */ #undef HAVE_DECL_RL_NUM_CHARS_TO_READ @@ -109,6 +177,10 @@ if you don't. */ #undef HAVE_DECL_RL_READLINE_VERSION +/* Define to 1 if you have the declaration of `rl_sort_completion_matches', + and to 0 if you don't. */ +#undef HAVE_DECL_RL_SORT_COMPLETION_MATCHES + /* Define to 1 if you have the declaration of `rl_startup_hook', and to 0 if you don't. */ #undef HAVE_DECL_RL_STARTUP_HOOK @@ -165,6 +237,9 @@ /* Define to 1 if you have the `rl_add_undo' function. */ #undef HAVE_RL_ADD_UNDO +/* Define to 1 if you have the `rl_alphabetic' function. */ +#undef HAVE_RL_ALPHABETIC + /* Define to 1 if you have the `rl_begin_undo_group' function. */ #undef HAVE_RL_BEGIN_UNDO_GROUP @@ -234,6 +309,9 @@ /* Define to 1 if you have the `rl_do_undo' function. */ #undef HAVE_RL_DO_UNDO +/* Define to 1 if you have the `rl_echo_signal_char' function. */ +#undef HAVE_RL_ECHO_SIGNAL_CHAR + /* Define to 1 if you have the `rl_end_undo_group' function. */ #undef HAVE_RL_END_UNDO_GROUP @@ -252,6 +330,9 @@ /* Define to 1 if you have the `rl_forced_update_display' function. */ #undef HAVE_RL_FORCED_UPDATE_DISPLAY +/* Define to 1 if you have the `rl_free' function. */ +#undef HAVE_RL_FREE + /* Define to 1 if you have the `rl_free_undo_list' function. */ #undef HAVE_RL_FREE_UNDO_LIST Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/modules/readline/configure,v retrieving revision 1.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- configure 16 Jan 2009 14:38:59 -0000 1.29 +++ configure 26 Feb 2009 04:44:09 -0000 1.30 @@ -6342,6 +6342,75 @@ fi +{ $as_echo "$as_me:$LINENO: checking whether rl_display_prompt is declared" >&5 +$as_echo_n "checking whether rl_display_prompt is declared... " >&6; } +if test "${ac_cv_have_decl_rl_display_prompt+set}" = set; then + $as_echo_n "(cached) " >&6 +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF [...1374 lines suppressed...] +#define HAVE_DECL_RL_INHIBIT_COMPLETION 0 +_ACEOF + + +fi { $as_echo "$as_me:$LINENO: checking whether rl_event_hook is declared" >&5 $as_echo_n "checking whether rl_event_hook is declared... " >&6; } if test "${ac_cv_have_decl_rl_event_hook+set}" = set; then @@ -6997,7 +8377,10 @@ -for ac_func in rl_set_prompt rl_initialize rl_read_init_file rl_add_defun rl_make_bare_keymap rl_copy_keymap rl_make_keymap rl_discard_keymap rl_get_keymap rl_set_keymap rl_get_keymap_by_name rl_bind_key rl_bind_key_in_map rl_bind_key_if_unbound rl_bind_key_if_unbound_in_map rl_unbind_key rl_unbind_key_in_map rl_unbind_function_in_map rl_unbind_command_in_map rl_bind_keyseq rl_bind_keyseq_in_map rl_bind_keyseq_if_unbound rl_bind_keyseq_if_unbound_in_map rl_generic_bind rl_parse_and_bind rl_named_function rl_function_of_keyseq rl_invoking_keyseqs rl_invoking_keyseqs_in_map rl_function_dumper rl_list_funmap_names rl_funmap_names rl_add_funmap_entry rl_begin_undo_group rl_end_undo_group rl_add_undo rl_free_undo_list rl_do_undo rl_modifying rl_redisplay rl_forced_update_display rl_on_new_line rl_on_new_line_with_prompt rl_reset_line_state rl_crlf rl_show_char rl_message rl_clear_message rl_save_prompt rl_restore_prompt rl_expand_prompt rl_insert_text rl_delete_text rl_copy_text rl_kill_text rl_push_macro_input rl_read_key rl_getc rl_stuff_char rl_execute_next rl_clear_pending_input rl_set_keyboard_input_timeout rl_prep_terminal rl_deprep_terminal rl_tty_set_default_bindings rl_reset_terminal rl_replace_line rl_extend_line_buffer rl_ding rl_display_match_list rl_variable_value rl_variable_bind rl_macro_dumper rl_variable_dumper rl_set_paren_blink_timeout rl_get_termcap rl_resize_terminal rl_set_screen_size rl_get_screen_size rl_reset_screen_size rl_callback_handler_install rl_callback_read_char rl_callback_handler_remove using_history add_history clear_history stifle_history unstifle_history history_is_stifled where_history history_total_bytes history_set_pos history_search history_search_prefix history_search_pos read_history read_history_range write_history append_history history_truncate_file tilde_expand + + + +for ac_func in rl_set_prompt rl_initialize rl_read_init_file rl_add_defun rl_make_bare_keymap rl_copy_keymap rl_make_keymap rl_discard_keymap rl_get_keymap rl_set_keymap rl_get_keymap_by_name rl_bind_key rl_bind_key_in_map rl_bind_key_if_unbound rl_bind_key_if_unbound_in_map rl_unbind_key rl_unbind_key_in_map rl_unbind_function_in_map rl_unbind_command_in_map rl_bind_keyseq rl_bind_keyseq_in_map rl_bind_keyseq_if_unbound rl_bind_keyseq_if_unbound_in_map rl_generic_bind rl_parse_and_bind rl_named_function rl_function_of_keyseq rl_invoking_keyseqs rl_invoking_keyseqs_in_map rl_function_dumper rl_list_funmap_names rl_funmap_names rl_add_funmap_entry rl_begin_undo_group rl_end_undo_group rl_add_undo rl_free_undo_list rl_do_undo rl_modifying rl_redisplay rl_forced_update_display rl_on_new_line rl_on_new_line_with_prompt rl_reset_line_state rl_crlf rl_show_char rl_message rl_clear_message rl_save_prompt rl_restore_prompt rl_expand_prompt rl_insert_text rl_delete_text rl_copy_text rl_kill_text rl_push_macro_input rl_read_key rl_getc rl_stuff_char rl_execute_next rl_clear_pending_input rl_set_keyboard_input_timeout rl_prep_terminal rl_deprep_terminal rl_tty_set_default_bindings rl_reset_terminal rl_replace_line rl_extend_line_buffer rl_ding rl_alphabetic rl_free rl_display_match_list rl_variable_value rl_variable_bind rl_macro_dumper rl_variable_dumper rl_echo_signal_char rl_set_paren_blink_timeout rl_get_termcap rl_resize_terminal rl_set_screen_size rl_get_screen_size rl_reset_screen_size rl_callback_handler_install rl_callback_read_char rl_callback_handler_remove using_history add_history clear_history stifle_history unstifle_history history_is_stifled where_history history_total_bytes history_set_pos history_search history_search_prefix history_search_pos read_history read_history_range write_history append_history history_truncate_file tilde_expand do as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` { $as_echo "$as_me:$LINENO: checking for $ac_func" >&5 ------------------------------ Message: 4 Date: Thu, 26 Feb 2009 09:20:27 +0000 From: Vladimir Tzankov <vt...@us...> Subject: clisp/src ChangeLog,1.6828,1.6829 eval.d,1.267,1.268 To: cli...@li... Message-ID: <E1L...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv23051/src Modified Files: ChangeLog eval.d Log Message: (interpret_bytecode_ JMP) [MULTITHREAD]: preserve mv_space in case of suspend request Index: eval.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/eval.d,v retrieving revision 1.267 retrieving revision 1.268 diff -u -d -r1.267 -r1.268 --- eval.d 24 Feb 2009 10:03:19 -0000 1.267 +++ eval.d 26 Feb 2009 09:20:24 -0000 1.268 @@ -6540,8 +6540,14 @@ skipSTACK(n); funcall(value1,r); } goto finished; /* return (jump) to caller */ } + /* GC_SAFE_POINT_IF() expands to nothing in single thread builds */ #define JMP() \ - {GC_SAFE_POINT_IF(with_saved_context(GC_SAFE_ACK_SUSPEND_REQUEST_()),;);\ + {GC_SAFE_POINT_IF( \ + with_saved_context( \ + {var uintC cnt=mv_count; mv_to_STACK(); \ + GC_SAFE_ACK_SUSPEND_REQUEST_(); \ + STACK_to_mv(cnt); \ + }),;); \ var const uintB* label_byteptr; \ L_operand(label_byteptr); \ DEBUG_CHECK_BYTEPTR(label_byteptr); \ Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6828 retrieving revision 1.6829 diff -u -d -r1.6828 -r1.6829 --- ChangeLog 26 Feb 2009 00:02:59 -0000 1.6828 +++ ChangeLog 26 Feb 2009 09:20:19 -0000 1.6829 @@ -1,3 +1,8 @@ +2009-02-26 Vladimir Tzankov <vtz...@gm...> + + * eval.d (interpret_bytecode_ JMP) [MULTITHREAD]: preserve mv_space + in case of suspend request + 2009-02-25 Sam Steingold <sd...@gn...> * modules/readline/readline.lisp: use (:return-type nil) instead ------------------------------ ------------------------------------------------------------------------------ Open Source Business Conference (OSBC), March 24-25, 2009, San Francisco, CA -OSBC tackles the biggest issue in open source: Open Sourcing the Enterprise -Strategies to boost innovation and cut costs with open source participation -Receive a $600 discount off the registration fee with the source code: SFAD http://p.sf.net/sfu/XcvMzF8H ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 34, Issue 19 ***************************************** |