From: <cli...@li...> - 2006-01-20 04:17:18
|
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/modules/regexp test.tst,1.12,1.13 (Sam Steingold) 2. clisp/src spvw_memfile.d,1.102,1.103 (Sam Steingold) 3. clisp/doc impent.xml,1.260,1.261 faq.xml,1.30,1.31 clisp.xml.in,1.61,1.62 (Sam Steingold) 4. clisp/src spvw_memfile.d,1.103,1.104 ChangeLog,1.5236,1.5237 (Sam Steingold) 5. clisp/src ChangeLog,1.5237,1.5238 (Sam Steingold) 6. clisp/src makemake.in,1.639,1.640 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/regexp test.tst,1.12,1.13 Date: Thu, 19 Jan 2006 16:11:25 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/regexp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14050/modules/regexp Modified Files: test.tst Log Message: do not require FFI to test Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/regexp/test.tst,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- test.tst 22 Nov 2005 23:13:35 -0000 1.12 +++ test.tst 19 Jan 2006 16:11:22 -0000 1.13 @@ -13,8 +13,9 @@ (apropos-list "regexp.*r$")) (REGEXP:REGEXP-MATCHER) +#+ffi (REGEXP:REGEXP-EXEC (ffi:foreign-pointer (ffi:unsigned-foreign-address 0)) "a") -ERROR +#+ffi ERROR ;;; SDS: WARNING: the following tests are checking the underlying regexp ;;; implementation rather than CLISP regexp interface. --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src spvw_memfile.d,1.102,1.103 Date: Thu, 19 Jan 2006 17:14:50 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3742/src Modified Files: spvw_memfile.d Log Message: (find_memdump): simplified Index: spvw_memfile.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw_memfile.d,v retrieving revision 1.102 retrieving revision 1.103 diff -u -d -r1.102 -r1.103 --- spvw_memfile.d 18 Jan 2006 21:37:29 -0000 1.102 +++ spvw_memfile.d 19 Jan 2006 17:14:47 -0000 1.103 @@ -1723,18 +1723,17 @@ /* find the memory image in the file, > set mem_start and mem_searched */ local void find_memdump (Handle fd) { + var memdump_header_t header; + fill_memdump_header(&header); if (lseek(fd,-sizeof(size_t),SEEK_END) > 0 && full_read(fd,(void*)&mem_start,sizeof(size_t)) == sizeof(size_t) && lseek(fd,mem_start,SEEK_SET) > 0) { - var memdump_header_t header, header1; - fill_memdump_header(&header); + var memdump_header_t header1; full_read(fd,(void*)&header1,offsetof(memdump_header_t,_dumptime)); if (memcmp((void*)&header,(void*)&header1, offsetof(memdump_header_t,_dumptime)) != 0) mem_start = (size_t)-1; /* bad header => no image */ } else { /* lseek does not work ==> use marker */ - var memdump_header_t header, header1; - fill_memdump_header(&header); lseek(fd,0,SEEK_SET); mem_start = find_marker(fd,(char*)&header, offsetof(memdump_header_t,_dumptime)); --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impent.xml,1.260,1.261 faq.xml,1.30,1.31 clisp.xml.in,1.61,1.62 Date: Thu, 19 Jan 2006 19:20:16 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20591/doc Modified Files: impent.xml faq.xml clisp.xml.in Log Message: (tab-c): new entity Index: clisp.xml.in =================================================================== RCS file: /cvsroot/clisp/clisp/doc/clisp.xml.in,v retrieving revision 1.61 retrieving revision 1.62 diff -u -d -r1.61 -r1.62 --- clisp.xml.in 17 Jan 2006 16:03:15 -0000 1.61 +++ clisp.xml.in 19 Jan 2006 19:20:14 -0000 1.62 @@ -336,18 +336,18 @@ </simpara></listitem></varlistentry> <varlistentry id="opt-ilisp"><term><option>-I</option></term> - <listitem><simpara>Be &ilisp;-friendly. - &ilisp; is an alternative &emacs; interface to &cl; systems. - With this option, &clisp; interacts in a way that &ilisp; can deal with. - Currently the only effect of this is that unnecessary prompts are - not suppressed. + <listitem><para>Interact better with &emacs; + (useful when running &clisp; under &emacs; using &slime;, &ilisp; et al). + With this option, &clisp; interacts in a way that &emacs; can deal with: + <itemizedlist><listitem><simpara>unnecessary prompts are not suppressed. + </simpara></listitem> <!-- #ifdef GNU_READLINE --> - Furthermore, the &readline; library treats - <link linkend="completion">Tab</link> as a normal self-inserting - character, so you should always use this option when you invoke - &clisp; from &emacs;. + <listitem><simpara>The &readline; library treats &tab-c; + (see <xref linkend="completion"/>) as a normal self-inserting + character (see <olink targetdoc="impnotes" targetptr="faq-rl-tab"/>). + </simpara></listitem> <!-- #endif --> -</simpara></listitem></varlistentry> +</itemizedlist></para></listitem></varlistentry> <varlistentry id="opt-ansi"><term><option>-ansi</option></term> <listitem><simpara>Comply with the &ansi-cl; specification @@ -491,7 +491,7 @@ <listitem><simpara>for editing and viewing the input history, using the &readline; library.</simpara></listitem></varlistentry> -<varlistentry id="completion"><term>Tab key</term> +<varlistentry id="completion"><term>&tab-c; key</term> <listitem><para>Context sensitive: <itemizedlist><listitem><simpara>If you are in the <quote>function position</quote> (in the first symbol after an opening paren or in Index: faq.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/faq.xml,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- faq.xml 17 Jan 2006 16:16:05 -0000 1.30 +++ faq.xml 19 Jan 2006 19:20:14 -0000 1.31 @@ -509,11 +509,11 @@ <olink targetdoc="man" targetptr="completion">completion</olink>. You get this <quote>Display all 1259 possibilities</quote> message (and sometimes many screens of symbols) when you - hit <literal>TAB</literal> too many times in an inappropriate place. + hit &tab-c; too many times in an inappropriate place. <olink targetdoc="man" targetptr="opt-ilisp">You can turn this feature off</olink> if you are using &emacs;. It is a good idea <ulink url="http://www.w3.org/MarkUp/html3/literal.html">not</ulink> to - use <literal>TAB</literal>s in your code.</para></answer></qandaentry> + use &tab-c;s in your code.</para></answer></qandaentry> <qandaentry id="faq-no-rl"><question id="faq-no-rl-q"><para>Why does Index: impent.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impent.xml,v retrieving revision 1.260 retrieving revision 1.261 diff -u -d -r1.260 -r1.261 --- impent.xml 13 Jan 2006 19:30:50 -0000 1.260 +++ impent.xml 19 Jan 2006 19:20:14 -0000 1.261 @@ -132,6 +132,7 @@ <!ENTITY lf-s '<keysym>#\Linefeed</keysym>'> <!ENTITY cr-c '<keycode>CR</keycode>'> <!ENTITY lf-c '<keycode>LF</keycode>'> +<!ENTITY tab-c '<keycode>TAB</keycode>'> <!-- *** packages *** --> <!ENTITY affi-pac '<link linkend="affi"><quote role="package">AFFI</quote></link>'> --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src spvw_memfile.d,1.103,1.104 ChangeLog,1.5236,1.5237 Date: Thu, 19 Jan 2006 21:55:33 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4571/src Modified Files: spvw_memfile.d ChangeLog Log Message: (find_memdump): reduce the portion of memdump_header_t used as marker to comply with loadmem_from_handle(); use an intermediate variable to ensure that the second argument to lseek(SEEK_END) is indeed negative Index: spvw_memfile.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw_memfile.d,v retrieving revision 1.103 retrieving revision 1.104 diff -u -d -r1.103 -r1.104 --- spvw_memfile.d 19 Jan 2006 17:14:47 -0000 1.103 +++ spvw_memfile.d 19 Jan 2006 21:55:30 -0000 1.104 @@ -1724,19 +1724,22 @@ > set mem_start and mem_searched */ local void find_memdump (Handle fd) { var memdump_header_t header; + var size_t header_size = offsetof(memdump_header_t,_symbol_tab_addr) + + sizeof(header._symbol_tab_addr); fill_memdump_header(&header); - if (lseek(fd,-sizeof(size_t),SEEK_END) > 0 && - full_read(fd,(void*)&mem_start,sizeof(size_t)) == sizeof(size_t) && - lseek(fd,mem_start,SEEK_SET) > 0) { + /* "sizeof(size_t)" is unsigned, so "-sizeof(size_t)" is also unsigned, + so we need "pos" to pass a negative number to lseek() */ + var off_t pos = sizeof(size_t); + if (lseek(fd,-pos,SEEK_END) > 0 + && full_read(fd,(void*)&mem_start,sizeof(size_t)) == sizeof(size_t) + && lseek(fd,mem_start,SEEK_SET) == mem_start) { var memdump_header_t header1; - full_read(fd,(void*)&header1,offsetof(memdump_header_t,_dumptime)); - if (memcmp((void*)&header,(void*)&header1, - offsetof(memdump_header_t,_dumptime)) != 0) + full_read(fd,(void*)&header1,header_size); + if (memcmp((void*)&header,(void*)&header1,header_size) != 0) mem_start = (size_t)-1; /* bad header => no image */ } else { /* lseek does not work ==> use marker */ lseek(fd,0,SEEK_SET); - mem_start = find_marker(fd,(char*)&header, - offsetof(memdump_header_t,_dumptime)); + mem_start = find_marker(fd,(char*)&header,header_size); } mem_searched = true; } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5236 retrieving revision 1.5237 diff -u -d -r1.5236 -r1.5237 --- ChangeLog 18 Jan 2006 21:37:29 -0000 1.5236 +++ ChangeLog 19 Jan 2006 21:55:30 -0000 1.5237 @@ -1,3 +1,10 @@ +2006-01-19 Sam Steingold <sd...@gn...> + + * spvw_memfile.d (find_memdump): reduce the portion of + memdump_header_t used as marker to comply with loadmem_from_handle(); + use an intermediate variable to ensure that the second argument to + lseek(SEEK_END) is indeed negative + 2006-01-18 Sam Steingold <sd...@gn...> speed-up image-in-executable loading --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.5237,1.5238 Date: Thu, 19 Jan 2006 23:11:35 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30191 Modified Files: ChangeLog Log Message: (check-exec-image): new target (CHECK_DEPS): added check-exec-image Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5237 retrieving revision 1.5238 diff -u -d -r1.5237 -r1.5238 --- ChangeLog 19 Jan 2006 21:55:30 -0000 1.5237 +++ ChangeLog 19 Jan 2006 23:11:23 -0000 1.5238 @@ -1,5 +1,10 @@ 2006-01-19 Sam Steingold <sd...@gn...> + * makemake.in (check-exec-image): new target + (CHECK_DEPS): added check-exec-image + +2006-01-19 Sam Steingold <sd...@gn...> + * spvw_memfile.d (find_memdump): reduce the portion of memdump_header_t used as marker to comply with loadmem_from_handle(); use an intermediate variable to ensure that the second argument to --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src makemake.in,1.639,1.640 Date: Thu, 19 Jan 2006 23:37:21 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8419/src Modified Files: makemake.in Log Message: (check-exec-image): new target (CHECK_DEPS): added check-exec-image Index: makemake.in =================================================================== RCS file: /cvsroot/clisp/clisp/src/makemake.in,v retrieving revision 1.639 retrieving revision 1.640 diff -u -d -r1.639 -r1.640 --- makemake.in 18 Jan 2006 18:25:54 -0000 1.639 +++ makemake.in 19 Jan 2006 23:37:17 -0000 1.640 @@ -3068,7 +3068,7 @@ CLISP_="${HERE_}lisp${LEXE} -M ${HERE_}lispinit.mem ${localeflags}${someflags}" if [ $CROSS = false ] ; then - CHECK_DEPS="check-recompile check-fresh-line check-script check-tests" + CHECK_DEPS="check-recompile check-fresh-line check-script check-exec-image check-tests" echol "# check the sources:" echol "# 1. subr.d, fsubr.d, subrkw.d and all the LISPFUNs must add up" @@ -3185,6 +3185,19 @@ # check that scripting works echol "check-script : lisp${LEXE} lispinit.mem" echotab "test \`echo '(print (+ 11 99))' | \$(RUN) -q -M lispinit.mem -\` = 110 || exit 1" + echol + + # check that the executable images work + EXEIMG=foo + OBSOLETE="$OBSOLETE ${EXEIMG}${HEXE}" + echol "check-exec-image: lisp${LEXE} lispinit.mem" + echotab "\$(RUN) -M lispinit.mem -x '(saveinitmem \"${EXEIMG}\" :executable t :norc t)'" + echotab "./${EXEIMG}${HEXE} -x '(setq zz 10) (saveinitmem \"${EXEIMG}\")'" + # check that the executable image still honors -M + echotab "./${EXEIMG}${HEXE} -norc -M ${EXEIMG}.mem -x 'zz'" + echotab "-ls -l lisp${LEXE} lispinit.mem ${EXEIMG}${HEXE} ${EXEIMG}.mem" + echotab "\$(RM) ${EXEIMG}${HEXE} ${EXEIMG}.mem" + echol echol "check-tests : ${TESTSDIR} lisp${LEXE} lispinit.mem" echotab "cd ${TESTSDIR} && \$(MAKE) SHELL='\$(SHELL)' LEXE=${LEXE}" --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |