From: <cli...@li...> - 2010-04-16 12:04:35
|
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.7307,1.7308 query.lisp,1.3,1.4 (Sam Steingold) 2. clisp/src zthread.d,1.85,1.86 (Sam Steingold) 3. clisp/src ChangeLog,1.7308,1.7309 stream.d,1.675,1.676 (Vladimir Tzankov) 4. clisp/src lispbibl.d,1.906,1.907 (Sam Steingold) 5. clisp/src ChangeLog,1.7309,1.7310 spvw.d,1.529,1.530 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Thu, 15 Apr 2010 15:28:03 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7307,1.7308 query.lisp,1.3,1.4 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv7198/src Modified Files: ChangeLog query.lisp Log Message: (y-or-n-p, yes-or-no-p): call (FORCE-OUTPUT *QUERY-IO*) after every output to *QUERY-IO* Index: query.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/query.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- query.lisp 6 Jan 2005 13:16:42 -0000 1.3 +++ query.lisp 15 Apr 2010 15:28:01 -0000 1.4 @@ -10,17 +10,16 @@ (fresh-line *query-io*) (apply #'format *query-io* format-string args) (write-string (TEXT " (y/n) ") *query-io*) - ) + (force-output *query-io*)) (let ((localinfo (localized 'y-or-n))) (loop (let ((line (string-left-trim " " (read-line *query-io*)))) (when (plusp (length line)) (let ((first-char (char-upcase (char line 0)))) (when (member first-char (car localinfo)) (return nil)) - (when (member first-char (cdr localinfo)) (return t)) - ) ) ) + (when (member first-char (cdr localinfo)) (return t))))) (write-string (TEXT "Please answer with y or n : ") *query-io*) -) ) ) + (force-output *query-io*)))) (definternational y-or-n (t ENGLISH)) (deflocalized y-or-n ENGLISH '((#\N) . (#\Y))) @@ -30,16 +29,15 @@ (fresh-line *query-io*) (apply #'format *query-io* format-string args) (write-string (TEXT " (yes/no) ") *query-io*) - ) + (force-output *query-io*)) (let ((localinfo (localized 'yes-or-no))) (loop (clear-input *query-io*) (let ((line (string-trim " " (read-line *query-io*)))) (when (member line (car localinfo) :test #'string-equal) (return nil)) - (when (member line (cdr localinfo) :test #'string-equal) (return t)) - ) + (when (member line (cdr localinfo) :test #'string-equal) (return t))) (write-string (TEXT "Please answer with yes or no : ") *query-io*) -) ) ) + (force-output *query-io*)))) (definternational yes-or-no (t ENGLISH)) (deflocalized yes-or-no ENGLISH '(("no" "nah") . ("yes" "yup" "yep" "yeah"))) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7307 retrieving revision 1.7308 diff -u -d -r1.7307 -r1.7308 --- ChangeLog 14 Apr 2010 22:39:36 -0000 1.7307 +++ ChangeLog 15 Apr 2010 15:28:01 -0000 1.7308 @@ -1,3 +1,8 @@ +2010-04-15 Sam Steingold <sd...@gn...> + + * query.lisp (y-or-n-p, yes-or-no-p): call (FORCE-OUTPUT *QUERY-IO*) + after every output to *QUERY-IO* + 2010-04-14 Sam Steingold <sd...@gn...> * clhs.lisp: set package/impnotes documentation for package THREADS ------------------------------ Message: 2 Date: Thu, 15 Apr 2010 15:31:38 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src zthread.d,1.85,1.86 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv7948 Modified Files: zthread.d Log Message: add a missing "var" Index: zthread.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/zthread.d,v retrieving revision 1.85 retrieving revision 1.86 diff -u -d -r1.85 -r1.86 --- zthread.d 2 Apr 2010 21:23:55 -0000 1.85 +++ zthread.d 15 Apr 2010 15:31:35 -0000 1.86 @@ -397,7 +397,7 @@ this will leave bad pointer in the chain and will cause SIGSEGV in signal handling thread */ spinlock_acquire(&timeout_call_chain_lock); - timeout_call **lastnextp=&timeout_call_chain,*chain=timeout_call_chain; + var timeout_call **lastnextp=&timeout_call_chain,*chain=timeout_call_chain; while (chain != NULL && chain != tc) { lastnextp=&chain->next; chain=chain->next; } ------------------------------ Message: 3 Date: Thu, 15 Apr 2010 17:09:48 +0000 From: Vladimir Tzankov <vt...@us...> Subject: clisp/src ChangeLog,1.7308,1.7309 stream.d,1.675,1.676 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29207/src Modified Files: ChangeLog stream.d Log Message: fix bug#2987732: mt: clisp hangs repeating sched_yield() Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.675 retrieving revision 1.676 diff -u -d -r1.675 -r1.676 --- stream.d 18 Mar 2010 14:51:41 -0000 1.675 +++ stream.d 15 Apr 2010 17:09:46 -0000 1.676 @@ -9267,6 +9267,10 @@ =========================== */ #if defined(GNU_READLINE) + +#define begin_rl_callback() end_blocking_call(); begin_callback() +#define end_rl_callback() end_callback(); begin_blocking_call() + /* Function to ignore unconvertible symbols. */ local void lisp_completion_ignore (void* sp, gcv_object_t* frame, object label, object condition) { @@ -9278,7 +9282,7 @@ local maygc char** lisp_completion (char* text, int start, int end) { /* text[start..end-1] = thing to complete within line of text This is a Callback-Function, we must set the Stack correctly again: */ - begin_callback(); + begin_rl_callback(); #ifdef ENABLE_UNICODE { var object encoding = O(terminal_encoding); start = Encoding_mblen(encoding)(encoding,(const uintB*)text, @@ -9296,10 +9300,10 @@ /* reconstruct List of Simple-Strings in malloc-ed Array from malloc-ed Asciz-Strings: */ if (nullp(mlist)) { - end_callback(); + end_rl_callback(); return NULL; } else if (eq(mlist,Fixnum_0)) { /* complete called describe => redraw */ - end_callback(); + end_rl_callback(); rl_refresh_line(0,0); return NULL; } else if (!consp(mlist)) { @@ -9315,7 +9319,7 @@ var char** array = (char**) malloc((llength(mlist)+1)*sizeof(char*)); end_system_call(); if (array==NULL) { - end_callback(); + end_rl_callback(); return NULL; } { @@ -9355,7 +9359,7 @@ end_system_call(); unwind_HANDLER_frame(); skipSTACK(3+1); /* unwind CATCH frame, pop mlist */ - end_callback(); + end_rl_callback(); return NULL; } end_system_call(); @@ -9380,7 +9384,7 @@ end_system_call(); array = NULL; } - end_callback(); + end_rl_callback(); return array; } #endif @@ -15428,7 +15432,7 @@ drop it and replace the *TERMINAL-IO* with another terminal-stream without ReadLine */ rl_deprep_terminal(); /* cancel all ioctl()s */ - begin_callback(); /* reset STACK to a reasonable value */ + begin_rl_callback(); /* reset STACK to a reasonable value */ rl_gnu_readline_p = false; Symbol_value(S(terminal_io)) = make_terminal_stream(); error(storage_condition,GETTEXT("readline library: out of memory.")); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7308 retrieving revision 1.7309 diff -u -d -r1.7308 -r1.7309 --- ChangeLog 15 Apr 2010 15:28:01 -0000 1.7308 +++ ChangeLog 15 Apr 2010 17:09:46 -0000 1.7309 @@ -1,3 +1,9 @@ +2010-04-15 Vladimir Tzankov <vtz...@gm...> + + fix bug#2987732: mt: clisp hangs repeating sched_yield() + * stream.d (begin_rl_callback, end_rl_callback): define and use instead + of begin_callback() and end_callback() in readline callbacks + 2010-04-15 Sam Steingold <sd...@gn...> * query.lisp (y-or-n-p, yes-or-no-p): call (FORCE-OUTPUT *QUERY-IO*) @@ -46480,7 +46486,8 @@ * genclisph.d (main): Define minus_bit, needed for minus_wbit. Define minus_wbit, needed for framecode. In end_callback, use `framecode' - instead of `mtypecode'. Define uintP, needed for framebottomword, + instead of `mtypecode'. Define uintP, needed for framebottomwordf1 + , needed for finish_frame, needed for begin_callback. 1999-09-23 Bruno Haible <br...@li...> ------------------------------ Message: 4 Date: Thu, 15 Apr 2010 20:45:33 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src lispbibl.d,1.906,1.907 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv25519 Modified Files: lispbibl.d Log Message: translate a comment Index: lispbibl.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v retrieving revision 1.906 retrieving revision 1.907 diff -u -d -r1.906 -r1.907 --- lispbibl.d 11 Apr 2010 20:29:47 -0000 1.906 +++ lispbibl.d 15 Apr 2010 20:45:31 -0000 1.907 @@ -1073,7 +1073,7 @@ #define alloca _alloca #elif defined(HAVE_ALLOCA_H) #include <alloca.h> - #ifndef alloca /* Manche definieren 'alloca' als Macro... */ + #ifndef alloca /* some define 'alloca' as macro... */ #if !(defined(UNIX_OSF) || defined(UNIX_DEC_ULTRIX)) /* OSF/1 V3 declares `alloca' as returning char*, but in OSF/1 V4 it returns void*. I don't know how to distinguish the two. */ ------------------------------ Message: 5 Date: Thu, 15 Apr 2010 20:49:20 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7309,1.7310 spvw.d,1.529,1.530 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv27112/src Modified Files: ChangeLog spvw.d Log Message: fix bug #2986052: mt/readline: terminal is left raw on crash * spvw.d (fini_lowest_level) [GNU_READLINE]: call rl_deprep_term_function to restore the terminal state (signal_handler_thread): call fini_lowest_level Index: spvw.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw.d,v retrieving revision 1.529 retrieving revision 1.530 diff -u -d -r1.529 -r1.530 --- spvw.d 13 Apr 2010 16:22:32 -0000 1.529 +++ spvw.d 15 Apr 2010 20:49:18 -0000 1.530 @@ -2260,6 +2260,10 @@ #if defined(UNIX) terminal_sane(); /* switch terminal again in normal mode */ #endif + #if defined(GNU_READLINE) + if (rl_deprep_term_function) + (*rl_deprep_term_function) (); + #endif } /* There are three type of command-line options: @@ -4694,6 +4698,7 @@ NC_pushSTACK(thread->_STACK,T); /* do not defer the interrupt */ all_succeeded &= interrupt_thread(thread); }); + fini_lowest_level(); if (!all_succeeded) { fputs("*** some threads were not signaled to terminate.",stderr); exit(-sig); /* nothing we can do - exit immediately (cannot call quit Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7309 retrieving revision 1.7310 diff -u -d -r1.7309 -r1.7310 --- ChangeLog 15 Apr 2010 17:09:46 -0000 1.7309 +++ ChangeLog 15 Apr 2010 20:49:18 -0000 1.7310 @@ -1,3 +1,10 @@ +2010-04-15 Sam Steingold <sd...@gn...> + + fix bug #2986052: mt/readline: terminal is left raw on crash + * spvw.d (fini_lowest_level) [GNU_READLINE]: call + rl_deprep_term_function to restore the terminal state + (signal_handler_thread): call fini_lowest_level + 2010-04-15 Vladimir Tzankov <vtz...@gm...> fix bug#2987732: mt: clisp hangs repeating sched_yield() ------------------------------ ------------------------------------------------------------------------------ Download Intel® Parallel Studio Eval Try the new software tools for yourself. Speed compiling, find bugs proactively, and fine-tune applications for parallel performance. See why Intel Parallel Studio got high marks during beta. http://p.sf.net/sfu/intel-sw-dev ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 48, Issue 8 **************************************** |