clisp-devel — closed list for developers and testers

clisp-cvs Digest, Vol 54, Issue 8

[<cli...@li...>]

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 gmalloc.c, NONE, 1.1 ChangeLog, 1.7551, 1.7552
      makemake.in,	1.956, 1.957 (Sam Steingold)
   2. clisp/src/malloc getpagesize.h,1.3,NONE gmalloc.c,1.4,NONE
      (Sam Steingold)
   3. clisp/unix PLATFORMS,1.56,1.57 (Sam Steingold)
   4. clisp/src ChangeLog,1.7552,1.7553 makemake.in,1.957,1.958
      (Sam Steingold)
   5. clisp/src ChangeLog,1.7553,1.7554 (Sam Steingold)
   6. clisp/modules/wildcard/glm4 fnmatch.m4,1.2,1.3 (Sam Steingold)
   7. clisp/src/glm4 errno_h.m4, 1.1, 1.2 include_next.m4, 1.9,
      1.10 stdlib_h.m4, 1.9, 1.10 threadlib.m4, 1.7, 1.8 (Sam Steingold)
   8. clisp/modules/regexp/glm4 stdlib_h.m4,1.7,1.8 (Sam Steingold)
   9. clisp/modules/regexp/gllib Makefile.am, 1.19, 1.20
      stddef.in.h, 1.3,	1.4 stdlib.in.h, 1.9, 1.10 unistd.in.h, 1.12,
      1.13 (Sam Steingold)
  10. clisp/modules/syscalls/gllib Makefile.am, 1.21, 1.22
      stddef.in.h, 1.3,	1.4 strerror.c, 1.1, 1.2 strings.in.h, 1.3, 1.4
      sys_socket.in.h,	1.6, 1.7 sys_utsname.in.h, 1.3, 1.4 time.in.h,
      1.7,	1.8 unistd.in.h, 1.12, 1.13 (Sam Steingold)


----------------------------------------------------------------------

Message: 1
Date: Tue, 12 Oct 2010 16:51:28 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src gmalloc.c, NONE, 1.1 ChangeLog, 1.7551, 1.7552
	makemake.in,	1.956, 1.957
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv471/src

Modified Files:
	ChangeLog makemake.in 
Added Files:
	gmalloc.c 
Log Message:
* src/gmalloc.c: move from src/malloc/ to src/
* malloc/getpagesize.c: remove obsolete file
* src/makemake.in: update


--- NEW FILE: gmalloc.c ---
/* This file is no longer automatically generated from libc.  */

#define _MALLOC_INTERNAL
#ifdef HAVE_GTK_AND_PTHREAD
#define USE_PTHREAD
#endif

/* The malloc headers and source files from the C library follow here.  */

/* Declarations for `malloc' and friends.
   Copyright (C) 1990, 1991, 1992, 1993, 1995, 1996, 1999, 2002, 2003, 2004,
                 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
		  Written May 1989 by Mike Haertel.

This library is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.

[...1868 lines suppressed...]
      old_malloc_hook = __malloc_hook;
      __malloc_hook = mallochook;
      old_realloc_hook = __realloc_hook;
      __realloc_hook = reallochook;
      mcheck_used = 1;
    }

  return mcheck_used ? 0 : -1;
}

enum mcheck_status
mprobe (__ptr_t ptr)
{
  return mcheck_used ? checkhdr (ptr) : MCHECK_DISABLED;
}

#endif /* GC_MCHECK */

/* arch-tag: 93dce5c0-f49a-41b5-86b1-f91c4169c02e
   (do not change this comment) */

Index: makemake.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/makemake.in,v
retrieving revision 1.956
retrieving revision 1.957
diff -u -d -r1.956 -r1.957
--- makemake.in	11 Oct 2010 18:37:38 -0000	1.956
+++ makemake.in	12 Oct 2010 16:51:26 -0000	1.957
@@ -64,7 +64,7 @@
        --with-jitc=FLAVOR      use a given Just-In-Time Compiler.
                 The only flavor at this time is lightning
                   (GNU lightning must be installed in the standard place).
-       --with-gmalloc          use the GNU malloc instead of of the libc one
+       --with-gmalloc          use the GNU malloc instead of the libc one
                                (needed on HP-UX and OpenBSD)
     See modules/ directory for available modules and add them to the full
     linking set using --with-module option, e.g.,
@@ -2553,9 +2553,9 @@
 
 if [ "${with_gmalloc}" = yes ]; then
   for f in $GMALLOC ; do
-    echol "${f}${TOBJ} : ${SRCDIR}malloc${NEXT_M}${f}.c"
+    echol "${f}${TOBJ} : ${SRCDIR}${f}.c"
     # gmalloc.c needs -DUSG on Solaris and then needs -DMEMMOVE_MISSING for SunOS 4.
-    echotab "${XCC} ${XCPPFLAGS} ${XCFLAGS} -DUSG -DMEMMOVE_MISSING -c ${SRCDIR}malloc${NEXT_}${f}.c -o ${f}${TOBJ}"
+    echotab "${XCC} ${XCPPFLAGS} ${XCFLAGS} -DUSG -DMEMMOVE_MISSING -c ${SRCDIR}${f}.c -o ${f}${TOBJ}"
     echol
   done
 fi

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7551
retrieving revision 1.7552
diff -u -d -r1.7551 -r1.7552
--- ChangeLog	11 Oct 2010 18:37:38 -0000	1.7551
+++ ChangeLog	12 Oct 2010 16:51:26 -0000	1.7552
@@ -1,3 +1,9 @@
+2010-10-12  Sam Steingold  <sd...@gn...>
+
+	* gmalloc.c: move from src/malloc/ to src/
+	* malloc/getpagesize.c: remove obsolete file
+	* makemake.in: update
+
 2010-10-11  Sam Steingold  <sd...@gn...>
 
 	* makemake.in: make charstrg.o depend on $(GLLIB_A) instead of




------------------------------

Message: 2
Date: Tue, 12 Oct 2010 16:51:28 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src/malloc getpagesize.h,1.3,NONE gmalloc.c,1.4,NONE
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src/malloc
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv471/src/malloc

Removed Files:
	getpagesize.h gmalloc.c 
Log Message:
* src/gmalloc.c: move from src/malloc/ to src/
* malloc/getpagesize.c: remove obsolete file
* src/makemake.in: update


--- gmalloc.c DELETED ---

--- getpagesize.h DELETED ---




------------------------------

Message: 3
Date: Tue, 12 Oct 2010 16:51:28 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/unix PLATFORMS,1.56,1.57
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/unix
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv471/unix

Modified Files:
	PLATFORMS 
Log Message:
* src/gmalloc.c: move from src/malloc/ to src/
* malloc/getpagesize.c: remove obsolete file
* src/makemake.in: update


Index: PLATFORMS
===================================================================
RCS file: /cvsroot/clisp/clisp/unix/PLATFORMS,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -d -r1.56 -r1.57
--- PLATFORMS	12 Nov 2009 20:48:35 -0000	1.56
+++ PLATFORMS	12 Oct 2010 16:51:26 -0000	1.57
@@ -660,7 +660,7 @@
 likely due to the new randomizing malloc.
 Pass "--with-gmalloc" to ./configure to work around this problem.
 If the problem persists, copy ftp://gee.cs.oswego.edu/pub/misc/malloc.c
-to malloc/gmalloc.c; change line 509 to "#define HAVE_MMAP 0";
+to clisp/src/gmalloc.c; change line 509 to "#define HAVE_MMAP 0";
 and try "--with-gmalloc" again.
 
 




------------------------------

Message: 4
Date: Tue, 12 Oct 2010 17:06:13 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7552,1.7553 makemake.in,1.957,1.958
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv3887/src

Modified Files:
	ChangeLog makemake.in 
Log Message:
* src/makemake.in (module_configure_flags): fix according to
<http://article.gmane.org/gmane.comp.sysutils.autoconf.general/13381>


Index: makemake.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/makemake.in,v
retrieving revision 1.957
retrieving revision 1.958
diff -u -d -r1.957 -r1.958
--- makemake.in	12 Oct 2010 16:51:26 -0000	1.957
+++ makemake.in	12 Oct 2010 17:06:10 -0000	1.958
@@ -191,32 +191,31 @@
 elispdir=''
 vimdir=''
 aclocaldir=''
-module_configure_flags='@module_configure_flags@'
 CP='cp -p'
 LN_S='ln -s'
 HLN='ln'
 
+# <http://thread.gmane.org/gmane.comp.sysutils.autoconf.general/13368>
 # strip out -srcdir* & -cache-file*
-tmp=""
 keep_next=maybe
-for arg in $module_configure_flags; do
+module_configure_flags=''
+for arg in @module_configure_flags@; do
   case $arg in
-    CFLAGS* ) continue ;;
-    *\'*) arg="`$echo "$arg" | sed "s/'/'\\\\\\\\''/g"`" ;;
+    *\'*) arg=`$echo "$arg" | sed "s/'/'\\\\\\\\''/g"` ;;
   esac
   case $keep_next in
-    yes ) tmp="$tmp '$arg'"; keep_next=maybe; ;;
+    yes ) module_configure_flags="$module_configure_flags '$arg'";
+      keep_next=maybe; ;;
     no ) keep_next=maybe; ;;
     maybe ) case $arg in
       --cache-file=* | --srcdir=*) continue ;;
       --cache-file | --srcdir ) keep_next=no; ;;
-      *=* ) tmp="$tmp '$arg'"; ;;
-      *) tmp="$tmp '$arg'"; keep_next=yes; ;;
+      *=* ) module_configure_flags="$module_configure_flags '$arg'"; ;;
+      *) module_configure_flags="$module_configure_flags '$arg'";
+        keep_next=yes; ;;
     esac ;;
   esac
 done
-module_configure_flags="$tmp"
-unset tmp
 unset arg
 unset keep_next
 

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7552
retrieving revision 1.7553
diff -u -d -r1.7552 -r1.7553
--- ChangeLog	12 Oct 2010 16:51:26 -0000	1.7552
+++ ChangeLog	12 Oct 2010 17:06:10 -0000	1.7553
@@ -1,5 +1,10 @@
 2010-10-12  Sam Steingold  <sd...@gn...>
 
+	* makemake.in (module_configure_flags): fix according to
+	<http://article.gmane.org/gmane.comp.sysutils.autoconf.general/13381>
+
+2010-10-12  Sam Steingold  <sd...@gn...>
+
 	* gmalloc.c: move from src/malloc/ to src/
 	* malloc/getpagesize.c: remove obsolete file
 	* makemake.in: update




------------------------------

Message: 5
Date: Tue, 12 Oct 2010 17:16:00 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7553,1.7554
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5583/src

Modified Files:
	ChangeLog 
Log Message:
update from gnulib to fix [[error: redefinition of `struct random_data']]
<http://article.gmane.org/gmane.comp.lib.gnulib.bugs/23606>


Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7553
retrieving revision 1.7554
diff -u -d -r1.7553 -r1.7554
--- ChangeLog	12 Oct 2010 17:06:10 -0000	1.7553
+++ ChangeLog	12 Oct 2010 17:15:58 -0000	1.7554
@@ -1,5 +1,24 @@
 2010-10-12  Sam Steingold  <sd...@gn...>
 
+	* modules/regexp/gllib/stddef.in.h, modules/regexp/gllib/stdlib.in.h:
+	* modules/regexp/gllib/unistd.in.h, modules/regexp/glm4/stdlib_h.m4:
+	* modules/syscalls/gllib/stddef.in.h, modules/syscalls/gllib/strerror.c:
+	* modules/syscalls/gllib/strings.in.h:
+	* modules/syscalls/gllib/sys_socket.in.h:
+	* modules/syscalls/gllib/sys_utsname.in.h:
+	* modules/syscalls/gllib/time.in.h:
+	* modules/syscalls/gllib/unistd.in.h, modules/wildcard/glm4/fnmatch.m4:
+	* gllib/errno.in.h, gllib/langinfo.in.h, gllib/malloca.c:
+	* gllib/stddef.in.h, gllib/stdint.in.h, gllib/stdlib.in.h:
+	* gllib/string.in.h, gllib/sys_socket.in.h, gllib/sys_time.in.h:
+	* gllib/sys_wait.in.h, gllib/unistd.in.h, gllib/wchar.in.h:
+	* gllib/wctype.in.h, glm4/errno_h.m4, glm4/include_next.m4:
+	* glm4/stdlib_h.m4, glm4/threadlib.m4: update from gnulib to fix
+	error: redefinition of `struct random_data'
+	<http://article.gmane.org/gmane.comp.lib.gnulib.bugs/23606>
+
+2010-10-12  Sam Steingold  <sd...@gn...>
+
 	* makemake.in (module_configure_flags): fix according to
 	<http://article.gmane.org/gmane.comp.sysutils.autoconf.general/13381>
 




------------------------------

Message: 6
Date: Tue, 12 Oct 2010 17:16:00 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/wildcard/glm4 fnmatch.m4,1.2,1.3
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/modules/wildcard/glm4
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5583/modules/wildcard/glm4

Modified Files:
	fnmatch.m4 
Log Message:
update from gnulib to fix [[error: redefinition of `struct random_data']]
<http://article.gmane.org/gmane.comp.lib.gnulib.bugs/23606>


Index: fnmatch.m4
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/wildcard/glm4/fnmatch.m4,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- fnmatch.m4	23 Feb 2010 19:55:45 -0000	1.2
+++ fnmatch.m4	12 Oct 2010 17:15:58 -0000	1.3
@@ -20,7 +20,9 @@
   AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS])
 
   FNMATCH_H=
-  gl_fnmatch_required_lowercase=`echo $gl_fnmatch_required | tr 'A-Z' 'a-z'`
+  gl_fnmatch_required_lowercase=`
+    echo $gl_fnmatch_required | tr '[[A-Z]]' '[[a-z]]'
+  `
   gl_fnmatch_cache_var="gl_cv_func_fnmatch_${gl_fnmatch_required_lowercase}"
   AC_CACHE_CHECK([for working $gl_fnmatch_required fnmatch],
     [$gl_fnmatch_cache_var],




------------------------------

Message: 7
Date: Tue, 12 Oct 2010 17:16:00 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src/glm4 errno_h.m4, 1.1, 1.2 include_next.m4, 1.9,
	1.10 stdlib_h.m4, 1.9, 1.10 threadlib.m4, 1.7, 1.8
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src/glm4
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5583/src/glm4

Modified Files:
	errno_h.m4 include_next.m4 stdlib_h.m4 threadlib.m4 
Log Message:
update from gnulib to fix [[error: redefinition of `struct random_data']]
<http://article.gmane.org/gmane.comp.lib.gnulib.bugs/23606>


Index: errno_h.m4
===================================================================
RCS file: /cvsroot/clisp/clisp/src/glm4/errno_h.m4,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- errno_h.m4	1 Sep 2010 22:21:33 -0000	1.1
+++ errno_h.m4	12 Oct 2010 17:15:58 -0000	1.2
@@ -1,5 +1,5 @@
-# errno_h.m4 serial 6
-dnl Copyright (C) 2004, 2006, 2008, 2009, 2010 Free Software Foundation, Inc.
+# errno_h.m4 serial 7
+dnl Copyright (C) 2004, 2006, 2008-2010 Free Software Foundation, Inc.
 dnl This file is free software; the Free Software Foundation
 dnl gives unlimited permission to copy and/or distribute it,
 dnl with or without modifications, as long as this notice is preserved.
@@ -37,6 +37,9 @@
 #if !defined ESTALE
 booboo
 #endif
+#if !defined EDQUOT
+booboo
+#endif
 #if !defined ECANCELED
 booboo
 #endif

Index: threadlib.m4
===================================================================
RCS file: /cvsroot/clisp/clisp/src/glm4/threadlib.m4,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- threadlib.m4	27 Sep 2010 21:37:48 -0000	1.7
+++ threadlib.m4	12 Oct 2010 17:15:58 -0000	1.8
@@ -1,4 +1,4 @@
-# threadlib.m4 serial 7 (gettext-0.18.2)
+# threadlib.m4 serial 8 (gettext-0.18.2)
 dnl Copyright (C) 2005-2010 Free Software Foundation, Inc.
 dnl This file is free software; the Free Software Foundation
 dnl gives unlimited permission to copy and/or distribute it,
@@ -250,7 +250,7 @@
       AC_LIB_LINKFLAGS([pth])
       gl_have_pth=
       gl_save_LIBS="$LIBS"
-      LIBS="$LIBS -lpth"
+      LIBS="$LIBS $LIBPTH"
       AC_LINK_IFELSE(
         [AC_LANG_PROGRAM([[#include <pth.h>]], [[pth_self();]])],
         [gl_have_pth=yes])

Index: stdlib_h.m4
===================================================================
RCS file: /cvsroot/clisp/clisp/src/glm4/stdlib_h.m4,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- stdlib_h.m4	27 Sep 2010 22:07:20 -0000	1.9
+++ stdlib_h.m4	12 Oct 2010 17:15:58 -0000	1.10
@@ -1,4 +1,4 @@
-# stdlib_h.m4 serial 30
+# stdlib_h.m4 serial 31
 dnl Copyright (C) 2007-2010 Free Software Foundation, Inc.
 dnl This file is free software; the Free Software Foundation
 dnl gives unlimited permission to copy and/or distribute it,
@@ -73,6 +73,7 @@
   GNULIB_STRTOD=0;        AC_SUBST([GNULIB_STRTOD])
   GNULIB_STRTOLL=0;       AC_SUBST([GNULIB_STRTOLL])
   GNULIB_STRTOULL=0;      AC_SUBST([GNULIB_STRTOULL])
+  GNULIB_SYSTEM_POSIX=0;  AC_SUBST([GNULIB_SYSTEM_POSIX])
   GNULIB_UNLOCKPT=0;      AC_SUBST([GNULIB_UNLOCKPT])
   GNULIB_UNSETENV=0;      AC_SUBST([GNULIB_UNSETENV])
   dnl Assume proper GNU behavior unless another module says otherwise.

Index: include_next.m4
===================================================================
RCS file: /cvsroot/clisp/clisp/src/glm4/include_next.m4,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- include_next.m4	1 Sep 2010 20:26:41 -0000	1.9
+++ include_next.m4	12 Oct 2010 17:15:58 -0000	1.10
@@ -1,4 +1,4 @@
-# include_next.m4 serial 15
+# include_next.m4 serial 16
 dnl Copyright (C) 2006-2010 Free Software Foundation, Inc.
 dnl This file is free software; the Free Software Foundation
 dnl gives unlimited permission to copy and/or distribute it,
@@ -24,6 +24,13 @@
 dnl __STDC__ evaluates to 0 instead of to 1. The latter is an undesired side
 dnl effect; we are therefore careful to use 'defined __STDC__' or '1' instead
 dnl of plain '__STDC__'.
+dnl
+dnl PRAGMA_COLUMNS can be used in files that override system header files, so
+dnl as to avoid compilation errors on HP NonStop systems when the gnulib file
+dnl is included by a system header file that does a "#pragma COLUMNS 80" (which
+dnl has the effect of truncating the lines of that file and all files that it
+dnl includes to 80 columns) and the gnulib file has lines longer than 80
+dnl columns.
 
 AC_DEFUN([gl_INCLUDE_NEXT],
 [
@@ -98,6 +105,24 @@
   AC_SUBST([INCLUDE_NEXT])
   AC_SUBST([INCLUDE_NEXT_AS_FIRST_DIRECTIVE])
   AC_SUBST([PRAGMA_SYSTEM_HEADER])
+  AC_CACHE_CHECK([whether system header files limit the line length],
+    [gl_cv_pragma_columns],
+    [dnl HP NonStop systems, which define __TANDEM, have this misfeature.
+     AC_EGREP_CPP([choke me],
+       [
+#ifdef __TANDEM
+choke me
+#endif
+       ],
+       [gl_cv_pragma_columns=yes],
+       [gl_cv_pragma_columns=no])
+    ])
+  if test $gl_cv_pragma_columns = yes; then
+    PRAGMA_COLUMNS="#pragma COLUMNS 10000"
+  else
+    PRAGMA_COLUMNS=
+  fi
+  AC_SUBST([PRAGMA_COLUMNS])
 ])
 
 # gl_CHECK_NEXT_HEADERS(HEADER1 HEADER2 ...)




------------------------------

Message: 8
Date: Tue, 12 Oct 2010 17:16:00 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/regexp/glm4 stdlib_h.m4,1.7,1.8
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/modules/regexp/glm4
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5583/modules/regexp/glm4

Modified Files:
	stdlib_h.m4 
Log Message:
update from gnulib to fix [[error: redefinition of `struct random_data']]
<http://article.gmane.org/gmane.comp.lib.gnulib.bugs/23606>


Index: stdlib_h.m4
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/regexp/glm4/stdlib_h.m4,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- stdlib_h.m4	1 Sep 2010 20:26:39 -0000	1.7
+++ stdlib_h.m4	12 Oct 2010 17:15:58 -0000	1.8
@@ -1,4 +1,4 @@
-# stdlib_h.m4 serial 30
+# stdlib_h.m4 serial 31
 dnl Copyright (C) 2007-2010 Free Software Foundation, Inc.
 dnl This file is free software; the Free Software Foundation
 dnl gives unlimited permission to copy and/or distribute it,
@@ -73,6 +73,7 @@
   GNULIB_STRTOD=0;        AC_SUBST([GNULIB_STRTOD])
   GNULIB_STRTOLL=0;       AC_SUBST([GNULIB_STRTOLL])
   GNULIB_STRTOULL=0;      AC_SUBST([GNULIB_STRTOULL])
+  GNULIB_SYSTEM_POSIX=0;  AC_SUBST([GNULIB_SYSTEM_POSIX])
   GNULIB_UNLOCKPT=0;      AC_SUBST([GNULIB_UNLOCKPT])
   GNULIB_UNSETENV=0;      AC_SUBST([GNULIB_UNSETENV])
   dnl Assume proper GNU behavior unless another module says otherwise.




------------------------------

Message: 9
Date: Tue, 12 Oct 2010 17:16:00 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/regexp/gllib Makefile.am, 1.19, 1.20
	stddef.in.h, 1.3,	1.4 stdlib.in.h, 1.9, 1.10 unistd.in.h, 1.12, 1.13
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/modules/regexp/gllib
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5583/modules/regexp/gllib

Modified Files:
	Makefile.am stddef.in.h stdlib.in.h unistd.in.h 
Log Message:
update from gnulib to fix [[error: redefinition of `struct random_data']]
<http://article.gmane.org/gmane.comp.lib.gnulib.bugs/23606>


Index: unistd.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/regexp/gllib/unistd.in.h,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- unistd.in.h	1 Sep 2010 20:26:38 -0000	1.12
+++ unistd.in.h	12 Oct 2010 17:15:58 -0000	1.13
@@ -18,6 +18,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 /* Special invocation convention:
    - On mingw, several headers, including <winsock2.h>, include <unistd.h>,

Index: stdlib.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/regexp/gllib/stdlib.in.h,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- stdlib.in.h	27 Sep 2010 22:07:20 -0000	1.9
+++ stdlib.in.h	12 Oct 2010 17:15:58 -0000	1.10
@@ -18,6 +18,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 #if defined __need_malloc_and_calloc
 /* Special invocation convention inside glibc header files.  */
@@ -39,7 +40,7 @@
 #include <stddef.h>
 
 /* MirBSD 10 defines WEXITSTATUS in <sys/wait.h>, not in <stdlib.h>.  */
-#ifndef WEXITSTATUS
+#if @GNULIB_SYSTEM_POSIX@ && !defined WEXITSTATUS
 # include <sys/wait.h>
 #endif
 
@@ -60,6 +61,9 @@
 #endif
 
 #if !@HAVE_STRUCT_RANDOM_DATA@
+/* Define 'struct random_data'.
+   But allow multiple gnulib generated <stdlib.h> replacements to coexist.  */
+# if !GNULIB_defined_struct_random_data
 struct random_data
 {
   int32_t *fptr;                /* Front pointer.  */
@@ -70,6 +74,8 @@
   int rand_sep;                 /* Distance between front and rear.  */
   int32_t *end_ptr;             /* Pointer behind state table.  */
 };
+#  define GNULIB_defined_struct_random_data 1
+# endif
 #endif
 
 #if (@GNULIB_MKSTEMP@ || @GNULIB_GETSUBOPT@ || defined GNULIB_POSIXCHECK) && ! defined __GLIBC__ && !((defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__)
@@ -177,7 +183,8 @@
 #elif defined GNULIB_POSIXCHECK
 # undef canonicalize_file_name
 # if HAVE_RAW_DECL_CANONICALIZE_FILE_NAME
-_rx_gl_GL_WARN_ON_USE (canonicalize_file_name, "canonicalize_file_name is unportable - "
+_rx_gl_GL_WARN_ON_USE (canonicalize_file_name,
+                 "canonicalize_file_name is unportable - "
                  "use gnulib module canonicalize-lgpl for portability");
 # endif
 #endif

Index: Makefile.am
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/regexp/gllib/Makefile.am,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- Makefile.am	28 Sep 2010 18:43:29 -0000	1.19
+++ Makefile.am	12 Oct 2010 17:15:58 -0000	1.20
@@ -137,6 +137,7 @@
 	{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
 	  sed -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \
 	      -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \
+	      -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \
 	      -e 's|@''NEXT_STDDEF_H''@|$(NEXT_STDDEF_H)|g' \
 	      -e 's|@''HAVE_WCHAR_T''@|$(HAVE_WCHAR_T)|g' \
 	      -e 's|@''REPLACE_NULL''@|$(REPLACE_NULL)|g' \
@@ -160,6 +161,7 @@
 	{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
 	  sed -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \
 	      -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \
+	      -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \
 	      -e 's|@''NEXT_STDLIB_H''@|$(NEXT_STDLIB_H)|g' \
 	      -e 's|@''GNULIB__EXIT''@|$(GNULIB__EXIT)|g' \
 	      -e 's|@''GNULIB_ATOLL''@|$(GNULIB_ATOLL)|g' \
@@ -184,6 +186,7 @@
 	      -e 's|@''GNULIB_STRTOD''@|$(GNULIB_STRTOD)|g' \
 	      -e 's|@''GNULIB_STRTOLL''@|$(GNULIB_STRTOLL)|g' \
 	      -e 's|@''GNULIB_STRTOULL''@|$(GNULIB_STRTOULL)|g' \
+	      -e 's|@''GNULIB_SYSTEM_POSIX''@|$(GNULIB_SYSTEM_POSIX)|g' \
 	      -e 's|@''GNULIB_UNLOCKPT''@|$(GNULIB_UNLOCKPT)|g' \
 	      -e 's|@''GNULIB_UNSETENV''@|$(GNULIB_UNSETENV)|g' \
 	      -e 's|@''HAVE__EXIT''@|$(HAVE__EXIT)|g' \
@@ -244,6 +247,7 @@
 	  sed -e 's|@''HAVE_UNISTD_H''@|$(HAVE_UNISTD_H)|g' \
 	      -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \
 	      -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \
+	      -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \
 	      -e 's|@''NEXT_UNISTD_H''@|$(NEXT_UNISTD_H)|g' \
 	      -e 's|@''GNULIB_CHOWN''@|$(GNULIB_CHOWN)|g' \
 	      -e 's|@''GNULIB_CLOSE''@|$(GNULIB_CLOSE)|g' \

Index: stddef.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/regexp/gllib/stddef.in.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- stddef.in.h	23 Feb 2010 19:55:45 -0000	1.3
+++ stddef.in.h	12 Oct 2010 17:15:58 -0000	1.4
@@ -26,6 +26,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 #if defined __need_wchar_t || defined __need_size_t  \
   || defined __need_ptrdiff_t || defined __need_NULL \




------------------------------

Message: 10
Date: Tue, 12 Oct 2010 17:16:00 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/syscalls/gllib Makefile.am, 1.21, 1.22
	stddef.in.h, 1.3,	1.4 strerror.c, 1.1, 1.2 strings.in.h, 1.3, 1.4
	sys_socket.in.h,	1.6, 1.7 sys_utsname.in.h, 1.3, 1.4 time.in.h, 1.7,
	1.8 unistd.in.h, 1.12, 1.13
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/modules/syscalls/gllib
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5583/modules/syscalls/gllib

Modified Files:
	Makefile.am stddef.in.h strerror.c strings.in.h 
	sys_socket.in.h sys_utsname.in.h time.in.h unistd.in.h 
Log Message:
update from gnulib to fix [[error: redefinition of `struct random_data']]
<http://article.gmane.org/gmane.comp.lib.gnulib.bugs/23606>


Index: time.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/gllib/time.in.h,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- time.in.h	10 Jun 2010 04:32:15 -0000	1.7
+++ time.in.h	12 Oct 2010 17:15:58 -0000	1.8
@@ -19,6 +19,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 /* Don't get in the way of glibc when it includes time.h merely to
    declare a few standard symbols, rather than to declare all the
@@ -83,6 +84,15 @@
 #  endif
 # endif
 
+/* Per http://austingroupbugs.net/view.php?id=327, POSIX requires
+   time_t to be an integer type, even though C99 permits floating
+   point.  We don't know of any implementation that uses floating
+   point, and it is much easier to write code that doesn't have to
+   worry about that corner case, so we force the issue.  */
+struct __time_t_must_be_integral {
+  unsigned int __floating_time_t_unsupported : (time_t) 1;
+};
+
 /* Sleep for at least RQTP seconds unless interrupted,  If interrupted,
    return -1 and store the remaining time into RMTP.  See
    <http://www.opengroup.org/susv3xsh/nanosleep.html>.  */

Index: strerror.c
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/gllib/strerror.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- strerror.c	28 Sep 2010 18:43:29 -0000	1.1
+++ strerror.c	12 Oct 2010 17:15:58 -0000	1.2
@@ -322,6 +322,12 @@
       break;
 # endif
 
+# if GNULIB_defined_EDQUOT
+    case EDQUOT:
+      msg = "Disk quota exceeded";
+      break;
+# endif
+
 # if GNULIB_defined_ECANCELED
     case ECANCELED:
       msg = "Operation canceled";

Index: sys_utsname.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/gllib/sys_utsname.in.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- sys_utsname.in.h	23 Feb 2010 20:24:47 -0000	1.3
+++ sys_utsname.in.h	12 Oct 2010 17:15:58 -0000	1.4
@@ -20,6 +20,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 #if @HAVE_SYS_UTSNAME_H@
 # @INCLUDE_NEXT@ @NEXT_SYS_UTSNAME_H@

Index: unistd.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/gllib/unistd.in.h,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- unistd.in.h	1 Sep 2010 20:26:39 -0000	1.12
+++ unistd.in.h	12 Oct 2010 17:15:58 -0000	1.13
@@ -18,6 +18,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 /* Special invocation convention:
    - On mingw, several headers, including <winsock2.h>, include <unistd.h>,

Index: stddef.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/gllib/stddef.in.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- stddef.in.h	23 Feb 2010 19:55:45 -0000	1.3
+++ stddef.in.h	12 Oct 2010 17:15:58 -0000	1.4
@@ -26,6 +26,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 #if defined __need_wchar_t || defined __need_size_t  \
   || defined __need_ptrdiff_t || defined __need_NULL \

Index: Makefile.am
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/gllib/Makefile.am,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- Makefile.am	29 Sep 2010 18:38:53 -0000	1.21
+++ Makefile.am	12 Oct 2010 17:15:58 -0000	1.22
@@ -136,6 +136,7 @@
 	{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
 	  sed -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \
 	      -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \
+	      -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \
 	      -e 's|@''NEXT_STDDEF_H''@|$(NEXT_STDDEF_H)|g' \
 	      -e 's|@''HAVE_WCHAR_T''@|$(HAVE_WCHAR_T)|g' \
 	      -e 's|@''REPLACE_NULL''@|$(REPLACE_NULL)|g' \
@@ -186,6 +187,7 @@
 	{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
 	  sed -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \
 	      -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \
+	      -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \
 	      -e 's|@''NEXT_STRINGS_H''@|$(NEXT_STRINGS_H)|g' \
 	      -e 's|@''HAVE_STRCASECMP''@|$(HAVE_STRCASECMP)|g' \
 	      -e 's|@''HAVE_DECL_STRNCASECMP''@|$(HAVE_DECL_STRNCASECMP)|g' \
@@ -230,6 +232,7 @@
 	{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \
 	  sed -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \
 	      -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \
+	      -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \
 	      -e 's|@''NEXT_SYS_SOCKET_H''@|$(NEXT_SYS_SOCKET_H)|g' \
 	      -e 's|@''HAVE_SYS_SOCKET_H''@|$(HAVE_SYS_SOCKET_H)|g' \
 	      -e 's|@''GNULIB_CLOSE''@|$(GNULIB_CLOSE)|g' \
@@ -279,6 +282,7 @@
 	  sed -e 's/@''HAVE_SYS_UTSNAME_H''@/$(HAVE_SYS_UTSNAME_H)/g' \
 	      -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \
 	      -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \
+	      -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \
 	      -e 's|@''NEXT_SYS_UTSNAME_H''@|$(NEXT_SYS_UTSNAME_H)|g' \
 	      -e 's|@''GNULIB_UNAME''@|$(GNULIB_UNAME)|g' \
 	      -e 's|@''HAVE_STRUCT_UTSNAME''@|$(HAVE_STRUCT_UTSNAME)|g' \
@@ -306,6 +310,7 @@
 	{ echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
 	  sed -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \
 	      -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \
+	      -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \
 	      -e 's|@''NEXT_TIME_H''@|$(NEXT_TIME_H)|g' \
 	      -e 's|@''GNULIB_MKTIME''@|$(GNULIB_MKTIME)|g' \
 	      -e 's|@''GNULIB_NANOSLEEP''@|$(GNULIB_NANOSLEEP)|g' \
@@ -365,6 +370,7 @@
 	  sed -e 's|@''HAVE_UNISTD_H''@|$(HAVE_UNISTD_H)|g' \
 	      -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \
 	      -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \
+	      -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \
 	      -e 's|@''NEXT_UNISTD_H''@|$(NEXT_UNISTD_H)|g' \
 	      -e 's|@''GNULIB_CHOWN''@|$(GNULIB_CHOWN)|g' \
 	      -e 's|@''GNULIB_CLOSE''@|$(GNULIB_CLOSE)|g' \

Index: strings.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/gllib/strings.in.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- strings.in.h	23 Feb 2010 20:24:46 -0000	1.3
+++ strings.in.h	12 Oct 2010 17:15:58 -0000	1.4
@@ -21,6 +21,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 /* The include_next requires a split double-inclusion guard.  */
 #@INCLUDE_NEXT@ @NEXT_STRINGS_H@

Index: sys_socket.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/gllib/sys_socket.in.h,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- sys_socket.in.h	18 May 2010 18:36:45 -0000	1.6
+++ sys_socket.in.h	12 Oct 2010 17:15:58 -0000	1.7
@@ -26,6 +26,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 #if defined _sc_gl_GL_ALREADY_INCLUDING_SYS_SOCKET_H
 /* Special invocation convention:
@@ -122,8 +123,8 @@
    adding AC_DEFINE(WINVER, 0x0501) to configure.ac.  Note that your
    code may not run on older Windows releases then.  My Windows 2000
    box was not able to run the code, for example.  The situation is
-   slightly confusing because:
-   http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winsock/winsock/getaddrinfo_2.asp
+   slightly confusing because
+   <http://msdn.microsoft.com/en-us/library/ms738520>
    suggests that getaddrinfo should be available on all Windows
    releases. */
 




------------------------------

------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1,  ECMAScript5, and DOM L2 & L3.
Spend less time writing and  rewriting code and more time creating great
experiences on the web. Be a part of the beta today.
http://p.sf.net/sfu/beautyoftheweb

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 54, Issue 8
****************************************

clisp-cvs Digest, Vol 54, Issue 7

[<cli...@li...>]

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.7550,1.7551 makemake.in,1.955,1.956
      (Sam Steingold)


----------------------------------------------------------------------

Message: 1
Date: Mon, 11 Oct 2010 18:37:40 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7550,1.7551 makemake.in,1.955,1.956
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29687/src

Modified Files:
	ChangeLog makemake.in 
Log Message:
* src/makemake.in: make charstrg.o depend on $(GLLIB_A) instead of
gllib because the latter is _always_ rebuilt


Index: makemake.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/makemake.in,v
retrieving revision 1.955
retrieving revision 1.956
diff -u -d -r1.955 -r1.956
--- makemake.in	7 Oct 2010 17:32:29 -0000	1.955
+++ makemake.in	11 Oct 2010 18:37:38 -0000	1.956
@@ -2502,7 +2502,7 @@
   test $f = spvw -o $f = hashtabl && depends=$depends' aridecl'
   if [ $f = charstrg -a "${with_unicode}" != no ] ; then
     depends=$depends${UNICODE_INCLUDES}
-    dependsc=${dependsc}${UNICODE_EXTRA}' gllib'
+    dependsc=${dependsc}${UNICODE_EXTRA}' '${GLLIB_A}
   fi
   test $f = encoding && depends=$depends''$NLS_INCLUDES
   test $f = error && depends=$depends' '$ERROR_INCLUDES

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7550
retrieving revision 1.7551
diff -u -d -r1.7550 -r1.7551
--- ChangeLog	8 Oct 2010 19:33:28 -0000	1.7550
+++ ChangeLog	11 Oct 2010 18:37:38 -0000	1.7551
@@ -1,3 +1,8 @@
+2010-10-11  Sam Steingold  <sd...@gn...>
+
+	* makemake.in: make charstrg.o depend on $(GLLIB_A) instead of
+	gllib because the latter is _always_ rebuilt
+
 2010-10-08  Sam Steingold  <sd...@gn...>
 
 	* genclisph.d (check_typecodes): run in the generated




------------------------------

------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1,  ECMAScript5, and DOM L2 & L3.
Spend less time writing and  rewriting code and more time creating great
experiences on the web. Be a part of the beta today.
http://p.sf.net/sfu/beautyoftheweb

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 54, Issue 7
****************************************

Re: syscalls build error

[Yaroslav K. <kav...@je...>]

Sam Steingold wrote:
> Yaroslav Kavenchuk wrote:
>> mingw, clisp from CVS head
>
> this WFM
> rm -rf syscalls && make syscalls
>

without effect

-- 
WBR, Yaroslav Kavenchuk

[ clisp-Feature Requests-1339718 ] screen & keyboard interaction

[SourceForge.net <no...@so...>]

Feature Requests item #1339718, was opened at 2005-10-27 19:11
Message generated for change (Comment added) made by edgar-rft
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: UI
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Nobody/Anonymous (nobody)
Summary: screen & keyboard interaction

Initial Comment:
add setfable accessors:
(SCREEN:TEXT-COLOR window-screen)
(SCREEN:BACKGROUND-COLOR window-screen)


----------------------------------------------------------------------

Comment By: edgar-rft (edgar-rft)
Date: 2010-10-12 07:42

Message:
> No system info was supplied by Edgar, I just hope it's not C-64.

Sorry, the *keyboard-input* problems appeared on Debian Lenny (Linux),
Ubuntu 10.4 (Linux) and OpenSuse Linux (exact version not known yet).

The only Windows system I have available at home is a Win2000 machine,
but I do not think that in 2010 anybody is interested in Win2k bugs.

But I know a few people who have still-working C-64 machines... :)

There are two terminal emulators in "src/stream.d", one for Windows and
one for Unix/Linux, so it looks as if the *keyboard-input* problems are
Unix/Linux specific.

- edgar


----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2010-10-12 02:42

Message:
Forgot to mention that Control-F1 and Control-arrows and Alt-arrows are ok
too on Windows. Control/Alt are encoded in INPUT-CHARACTER-BITS.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2010-10-12 02:15

Message:
The problem with (read-char ext:*keyboard-input*) and unicode characters
(two codes are returned for the single key pressed) is  system-dependent,
there is no such problem on Windows (Clisp ver 2.49 release). So it's a
bug. No system info was supplied by Edgar, I just hope it's not C-64.

On Win:
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_YA :BITS 0 :FONT
0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_YA)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_ZE :BITS 0 :FONT
0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_ZE)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_SHCHA :BITS 0
:FONT 0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_SHCHA)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_SHA :BITS 0
:FONT 0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_SHA)


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-08 16:06

Message:
1. indeed, xcharin.lisp exports char-key et al which makes it less
necessary to use "::"
2. I think the right way for gui is either the gtk2 module or embedding
clisp in vim (like vim already embeds perl/python/ruby). I think console
and window systems are too different to be handled by the same API.
3. as summarized by edgar and in bug#1308473, read-char on
*ikeyboard-input* is not compliant.

the bottom line:
1. keyboard/screen kruft sucks and needs TLC ("tender loving care" - i.e.,
lots of work).
2. they do not belong in clisp core; turning them into a module should not
be too hard; however, ultimately the decision is largely up to the
prospective maintainer of the facility.
3. it is not obvious that they should actually be lisp streams, but if the
prospective maintainer wants them to, he can use gray streams or
rfe#1834189 to make them such.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2010-10-08 02:10

Message:
The fact that INPUT-CHARACTER accessors aren't exported wasn't important to
me. I just used :: (checked my code).
SCREEN doesn't constitute much of the stream code, is the work amount
needed for rewriting it as a module justified? 
Next, it would be nicer when extra I/O features are integrated (at least,
correctly interoperate) with basic ones (used by system (but the system
could use extra features too, I mean IDE)). I strongly believe that stream
code have to distinguish between terminal handle and file handle (use
isatty), this is the first step to console window streams (do not use
isatty, but have separate stream object type instead which is a subtype of
terminal stream). It is not so for now, but probably it should be taken
that way. On Windows, console handle is the standard input/output handle
that is switched in special mode.
Finally, what are the plans about GUI? I believe this should be taken in
mind, that with GUI SCREEN probably should have the same programmer's
interface, but use another OS calls. By GUI I mean just 'not console' - it
may have the same 80x25 characters. I personally love the console
(especially with windows, colors etc) - it's easy to program, it's
lightweight, but I can't say many share my feelings.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-06 15:44

Message:
<http://article.gmane.org/gmane.lisp.clisp.devel/22093>


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-05 22:46

Message:
in general, clisp screen/keyboard interaction facilities are ancient and
probably not used too much (if at all) by the users.
this is obvious from the fact that (read-char *keyboard-input*) returns a
SYS::INPUT-CHARACTER whose accessors are not exported.
Proposal:
- move screen & keyboard streams from stream.d into a separate module
(window-stream and keyboard stream do not have to be lisp streams, and if
you think they have to, you can use gray streams) together with
xcharin.lisp.
- make keyboard input recognize _all_ keyboard events (e.g., now f1 is
recognized by ctrl-f1 is not).
- resurrect the ancient src/editor.lsp (?) in the same module(?); make it
more emacs-compatible.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-11-02 15:46

Message:
Logged In: YES 
user_id=5735

for unix you can use ncurses
http://www.google.com/search?q=ncurses
we already require them for readline.

tree of sreams is not really necessary:
just add x-offset/y-offset/width/height arguments 
to window-stream creation.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2005-11-02 02:06

Message:
Logged In: YES 
user_id=553883

I thought about it 1000 times and since I don't know how to 
use colors on UNIX, didn't implemented. Tree of streams is 
too cool, on windows there is a system function to scroll 
console region and it even is used in current SCREEN code 
to scroll whole screen. Having lisp interface to it one can build 
his own nice libraries, using generic streams for the nice 
example given above. Again, threre is a question how to 
make this scroll function portable. And how to name colors 
portably, on windows there's Red, Green, Blue w/without 
intensity for text and same R, G, B w/without blinking for 
background. 


----------------------------------------------------------------------

Comment By: Don Cohen (donc)
Date: 2005-11-01 22:52

Message:
Logged In: YES 
user_id=8842

I have some code (actually quite old, but still in use) that
does the
scrolling subwindow part.  I haven't tried it with screen in
some time
so it might not quite work there.  I gave up on screen a
long time ago
and use ansi terminal emulation instead.  It turns out this
is not so 
easy to get these days in win-xp, but pscp does it, so one
way to use 
this stuff from win-xp is to ssh to a machine with an ssh
server.
(Anyone know where to get an ssh server for win-xp?)
Ansi terminal emulation is also a good way to control colors.
I can offer code for that too.
I've put the window code at
 http://don-eve.dyndns.org/windows.lsp


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-10-27 19:32

Message:
Logged In: YES 
user_id=5735

another nice thing is being able to split the screen
so that scrolling in different parts is done independently.
I remember being able to do somehting like that 
with turbo pascal 5.5 15 years ago. :-)
(this would make it necessary to introduce a _tree_ of
screen streams - maybe too hairy)

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

[ clisp-Feature Requests-1339718 ] screen & keyboard interaction

[SourceForge.net <no...@so...>]

Feature Requests item #1339718, was opened at 2005-10-28 03:11
Message generated for change (Comment added) made by ampy
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: UI
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Nobody/Anonymous (nobody)
Summary: screen & keyboard interaction

Initial Comment:
add setfable accessors:
(SCREEN:TEXT-COLOR window-screen)
(SCREEN:BACKGROUND-COLOR window-screen)


----------------------------------------------------------------------

>Comment By: Arseny Slobodyuk (ampy)
Date: 2010-10-12 10:42

Message:
Forgot to mention that Control-F1 and Control-arrows and Alt-arrows are ok
too on Windows. Control/Alt are encoded in INPUT-CHARACTER-BITS.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2010-10-12 10:15

Message:
The problem with (read-char ext:*keyboard-input*) and unicode characters
(two codes are returned for the single key pressed) is  system-dependent,
there is no such problem on Windows (Clisp ver 2.49 release). So it's a
bug. No system info was supplied by Edgar, I just hope it's not C-64.

On Win:
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_YA :BITS 0 :FONT
0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_YA)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_ZE :BITS 0 :FONT
0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_ZE)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_SHCHA :BITS 0
:FONT 0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_SHCHA)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_SHA :BITS 0
:FONT 0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_SHA)


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-09 00:06

Message:
1. indeed, xcharin.lisp exports char-key et al which makes it less
necessary to use "::"
2. I think the right way for gui is either the gtk2 module or embedding
clisp in vim (like vim already embeds perl/python/ruby). I think console
and window systems are too different to be handled by the same API.
3. as summarized by edgar and in bug#1308473, read-char on
*ikeyboard-input* is not compliant.

the bottom line:
1. keyboard/screen kruft sucks and needs TLC ("tender loving care" - i.e.,
lots of work).
2. they do not belong in clisp core; turning them into a module should not
be too hard; however, ultimately the decision is largely up to the
prospective maintainer of the facility.
3. it is not obvious that they should actually be lisp streams, but if the
prospective maintainer wants them to, he can use gray streams or
rfe#1834189 to make them such.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2010-10-08 10:10

Message:
The fact that INPUT-CHARACTER accessors aren't exported wasn't important to
me. I just used :: (checked my code).
SCREEN doesn't constitute much of the stream code, is the work amount
needed for rewriting it as a module justified? 
Next, it would be nicer when extra I/O features are integrated (at least,
correctly interoperate) with basic ones (used by system (but the system
could use extra features too, I mean IDE)). I strongly believe that stream
code have to distinguish between terminal handle and file handle (use
isatty), this is the first step to console window streams (do not use
isatty, but have separate stream object type instead which is a subtype of
terminal stream). It is not so for now, but probably it should be taken
that way. On Windows, console handle is the standard input/output handle
that is switched in special mode.
Finally, what are the plans about GUI? I believe this should be taken in
mind, that with GUI SCREEN probably should have the same programmer's
interface, but use another OS calls. By GUI I mean just 'not console' - it
may have the same 80x25 characters. I personally love the console
(especially with windows, colors etc) - it's easy to program, it's
lightweight, but I can't say many share my feelings.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-06 23:44

Message:
<http://article.gmane.org/gmane.lisp.clisp.devel/22093>


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-06 06:46

Message:
in general, clisp screen/keyboard interaction facilities are ancient and
probably not used too much (if at all) by the users.
this is obvious from the fact that (read-char *keyboard-input*) returns a
SYS::INPUT-CHARACTER whose accessors are not exported.
Proposal:
- move screen & keyboard streams from stream.d into a separate module
(window-stream and keyboard stream do not have to be lisp streams, and if
you think they have to, you can use gray streams) together with
xcharin.lisp.
- make keyboard input recognize _all_ keyboard events (e.g., now f1 is
recognized by ctrl-f1 is not).
- resurrect the ancient src/editor.lsp (?) in the same module(?); make it
more emacs-compatible.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-11-03 00:46

Message:
Logged In: YES 
user_id=5735

for unix you can use ncurses
http://www.google.com/search?q=ncurses
we already require them for readline.

tree of sreams is not really necessary:
just add x-offset/y-offset/width/height arguments 
to window-stream creation.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2005-11-02 11:06

Message:
Logged In: YES 
user_id=553883

I thought about it 1000 times and since I don't know how to 
use colors on UNIX, didn't implemented. Tree of streams is 
too cool, on windows there is a system function to scroll 
console region and it even is used in current SCREEN code 
to scroll whole screen. Having lisp interface to it one can build 
his own nice libraries, using generic streams for the nice 
example given above. Again, threre is a question how to 
make this scroll function portable. And how to name colors 
portably, on windows there's Red, Green, Blue w/without 
intensity for text and same R, G, B w/without blinking for 
background. 


----------------------------------------------------------------------

Comment By: Don Cohen (donc)
Date: 2005-11-02 07:52

Message:
Logged In: YES 
user_id=8842

I have some code (actually quite old, but still in use) that
does the
scrolling subwindow part.  I haven't tried it with screen in
some time
so it might not quite work there.  I gave up on screen a
long time ago
and use ansi terminal emulation instead.  It turns out this
is not so 
easy to get these days in win-xp, but pscp does it, so one
way to use 
this stuff from win-xp is to ssh to a machine with an ssh
server.
(Anyone know where to get an ssh server for win-xp?)
Ansi terminal emulation is also a good way to control colors.
I can offer code for that too.
I've put the window code at
 http://don-eve.dyndns.org/windows.lsp


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-10-28 03:32

Message:
Logged In: YES 
user_id=5735

another nice thing is being able to split the screen
so that scrolling in different parts is done independently.
I remember being able to do somehting like that 
with turbo pascal 5.5 15 years ago. :-)
(this would make it necessary to introduce a _tree_ of
screen streams - maybe too hairy)

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

[ clisp-Feature Requests-1339718 ] screen & keyboard interaction

[SourceForge.net <no...@so...>]

Feature Requests item #1339718, was opened at 2005-10-28 03:11
Message generated for change (Comment added) made by ampy
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: UI
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Nobody/Anonymous (nobody)
Summary: screen & keyboard interaction

Initial Comment:
add setfable accessors:
(SCREEN:TEXT-COLOR window-screen)
(SCREEN:BACKGROUND-COLOR window-screen)


----------------------------------------------------------------------

>Comment By: Arseny Slobodyuk (ampy)
Date: 2010-10-12 10:15

Message:
The problem with (read-char ext:*keyboard-input*) and unicode characters
(two codes are returned for the single key pressed) is  system-dependent,
there is no such problem on Windows (Clisp ver 2.49 release). So it's a
bug. No system info was supplied by Edgar, I just hope it's not C-64.

On Win:
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_YA :BITS 0 :FONT
0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_YA)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_ZE :BITS 0 :FONT
0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_ZE)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_SHCHA :BITS 0
:FONT 0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_SHCHA)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CYRILLIC_SMALL_LETTER_SHA :BITS 0
:FONT 0 :KEY NIL)
 #\CYRILLIC_SMALL_LETTER_SHA)


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-09 00:06

Message:
1. indeed, xcharin.lisp exports char-key et al which makes it less
necessary to use "::"
2. I think the right way for gui is either the gtk2 module or embedding
clisp in vim (like vim already embeds perl/python/ruby). I think console
and window systems are too different to be handled by the same API.
3. as summarized by edgar and in bug#1308473, read-char on
*ikeyboard-input* is not compliant.

the bottom line:
1. keyboard/screen kruft sucks and needs TLC ("tender loving care" - i.e.,
lots of work).
2. they do not belong in clisp core; turning them into a module should not
be too hard; however, ultimately the decision is largely up to the
prospective maintainer of the facility.
3. it is not obvious that they should actually be lisp streams, but if the
prospective maintainer wants them to, he can use gray streams or
rfe#1834189 to make them such.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2010-10-08 10:10

Message:
The fact that INPUT-CHARACTER accessors aren't exported wasn't important to
me. I just used :: (checked my code).
SCREEN doesn't constitute much of the stream code, is the work amount
needed for rewriting it as a module justified? 
Next, it would be nicer when extra I/O features are integrated (at least,
correctly interoperate) with basic ones (used by system (but the system
could use extra features too, I mean IDE)). I strongly believe that stream
code have to distinguish between terminal handle and file handle (use
isatty), this is the first step to console window streams (do not use
isatty, but have separate stream object type instead which is a subtype of
terminal stream). It is not so for now, but probably it should be taken
that way. On Windows, console handle is the standard input/output handle
that is switched in special mode.
Finally, what are the plans about GUI? I believe this should be taken in
mind, that with GUI SCREEN probably should have the same programmer's
interface, but use another OS calls. By GUI I mean just 'not console' - it
may have the same 80x25 characters. I personally love the console
(especially with windows, colors etc) - it's easy to program, it's
lightweight, but I can't say many share my feelings.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-06 23:44

Message:
<http://article.gmane.org/gmane.lisp.clisp.devel/22093>


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-06 06:46

Message:
in general, clisp screen/keyboard interaction facilities are ancient and
probably not used too much (if at all) by the users.
this is obvious from the fact that (read-char *keyboard-input*) returns a
SYS::INPUT-CHARACTER whose accessors are not exported.
Proposal:
- move screen & keyboard streams from stream.d into a separate module
(window-stream and keyboard stream do not have to be lisp streams, and if
you think they have to, you can use gray streams) together with
xcharin.lisp.
- make keyboard input recognize _all_ keyboard events (e.g., now f1 is
recognized by ctrl-f1 is not).
- resurrect the ancient src/editor.lsp (?) in the same module(?); make it
more emacs-compatible.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-11-03 00:46

Message:
Logged In: YES 
user_id=5735

for unix you can use ncurses
http://www.google.com/search?q=ncurses
we already require them for readline.

tree of sreams is not really necessary:
just add x-offset/y-offset/width/height arguments 
to window-stream creation.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2005-11-02 11:06

Message:
Logged In: YES 
user_id=553883

I thought about it 1000 times and since I don't know how to 
use colors on UNIX, didn't implemented. Tree of streams is 
too cool, on windows there is a system function to scroll 
console region and it even is used in current SCREEN code 
to scroll whole screen. Having lisp interface to it one can build 
his own nice libraries, using generic streams for the nice 
example given above. Again, threre is a question how to 
make this scroll function portable. And how to name colors 
portably, on windows there's Red, Green, Blue w/without 
intensity for text and same R, G, B w/without blinking for 
background. 


----------------------------------------------------------------------

Comment By: Don Cohen (donc)
Date: 2005-11-02 07:52

Message:
Logged In: YES 
user_id=8842

I have some code (actually quite old, but still in use) that
does the
scrolling subwindow part.  I haven't tried it with screen in
some time
so it might not quite work there.  I gave up on screen a
long time ago
and use ansi terminal emulation instead.  It turns out this
is not so 
easy to get these days in win-xp, but pscp does it, so one
way to use 
this stuff from win-xp is to ssh to a machine with an ssh
server.
(Anyone know where to get an ssh server for win-xp?)
Ansi terminal emulation is also a good way to control colors.
I can offer code for that too.
I've put the window code at
 http://don-eve.dyndns.org/windows.lsp


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-10-28 03:32

Message:
Logged In: YES 
user_id=5735

another nice thing is being able to split the screen
so that scrolling in different parts is done independently.
I remember being able to do somehting like that 
with turbo pascal 5.5 15 years ago. :-)
(this would make it necessary to introduce a _tree_ of
screen streams - maybe too hairy)

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

Re: incorrect compiler warning about unused var

[<don...@is...>]

Sam Steingold writes:
 >  note that the value stored in |Exhausted | is
 > indeed used by the LOOP UNTIL clause, but that values comes from
 > evaluating (FUNCALL ..), not from the variable, so there is not
 > reason to store a value in |Exhausted |.

So you consider this to be a bug fix.
It's sort of strange that in cases like this you are required to
invent a variable name and then declare it ignorable.
But I see, in trying to get rid of the warnings that allegro must
also warn in these cases.

Re: incorrect compiler warning about unused var

[Sam S. <sd...@gn...>]

Don Cohen wrote:
> In cvs head I notice the following warning which I think is wrong.
> (COMPILE 'AP-COMPILED::F1301 
>  '(LAMBDA (|GenFn| X2 X3 X4 &AUX |GenFun | |Exhausted | X5 X6) X2 X3 X4 
>    (SETQ |GenFun | (FUNCALL |GenFn| X4 X2 X3)) 
>    (LOOP UNTIL (MULTIPLE-VALUE-SETQ (|Exhausted | X5 X6) (FUNCALL |GenFun |)) 
>     COLLECT (LIST X3 X2 X4 X5 X6)))) 
> WARNING: in AP-COMPILED::F1301 : variable |Exhausted | is assigned but
> not read 

indeed, |Exhausted | is assigned a value by MULTIPLE-VALUE-SETQ but that value 
is never accessed.
you need to declare it IGNORABLE to avoid this warning.
note that the value stored in |Exhausted | is indeed used by the LOOP UNTIL 
clause, but that values comes from evaluating (FUNCALL ..), not from the 
variable, so there is not reason to store a value in |Exhausted |.

incorrect compiler warning about unused var

[<don...@is...>]

In cvs head I notice the following warning which I think is wrong.
(COMPILE 'AP-COMPILED::F1301 
 '(LAMBDA (|GenFn| X2 X3 X4 &AUX |GenFun | |Exhausted | X5 X6) X2 X3 X4 
   (SETQ |GenFun | (FUNCALL |GenFn| X4 X2 X3)) 
   (LOOP UNTIL (MULTIPLE-VALUE-SETQ (|Exhausted | X5 X6) (FUNCALL |GenFun |)) 
    COLLECT (LIST X3 X2 X4 X5 X6)))) 
WARNING: in AP-COMPILED::F1301 : variable |Exhausted | is assigned but
not read 

The next latest version I have already built and stored on disk is
Jul 16, 2.49 without the + and there I get no warning.

Re: syscalls build error

[Sam S. <sd...@gn...>]

Yaroslav Kavenchuk wrote:
> mingw, clisp from CVS head

this WFM
rm -rf syscalls && make syscalls

syscalls build error

[Yaroslav K. <kav...@gm...>]

mingw, clisp from CVS head

...
configure: ** System Calls (Common)
...
configure: ** System Calls (done)
...
make  all-recursive
make[3]: Entering directory
`/home/src/clisp/clisp/build-full-debug/syscalls/gllib'
cd .. && make  am--refresh
make[4]: Entering directory `/home/src/clisp/clisp/build-full-debug/syscalls'
make[4]: Nothing to be done for `am--refresh'.
make[4]: Leaving directory `/home/src/clisp/clisp/build-full-debug/syscalls'
make[4]: Entering directory
`/home/src/clisp/clisp/build-full-debug/syscalls/gllib'
cd .. && make  am--refresh
make[5]: Entering directory `/home/src/clisp/clisp/build-full-debug/syscalls'
make[5]: Nothing to be done for `am--refresh'.
make[5]: Leaving directory `/home/src/clisp/clisp/build-full-debug/syscalls'
gcc -mno-cygwin -DHAVE_CONFIG_H -I.
-I/home/src/clisp/clisp/modules/syscalls/gllib -I..
-I/usr/local/include  -I/home/src/clisp/clisp/build-full-debug/gllib
-I/home/src/clisp/cli
sp/build-full-debug  -g -O2 -W -Wswitch -Wcomment -Wpointer-arith
-Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare
-Wno-format-nonliteral -falign-functions=4 -D_WI
N32 -g -O0 -DDEBUG_OS_ERROR -DDEBUG_SPVW -DDEBUG_BYTECODE -DSAFETY=3
-DENABLE_UNICODE -DDYNAMIC_FFI -I.
-I/G//gnu//home//src//clisp//clisp//build-full-debug// -MT dummy.o -MD
-MP -
MF .deps/dummy.Tpo -c -o dummy.o
/home/src/clisp/clisp/modules/syscalls/gllib/dummy.c
mv -f .deps/dummy.Tpo .deps/dummy.Po
gcc -mno-cygwin -DHAVE_CONFIG_H -I.
-I/home/src/clisp/clisp/modules/syscalls/gllib -I..
-I/usr/local/include  -I/home/src/clisp/clisp/build-full-debug/gllib
-I/home/src/clisp/cli
sp/build-full-debug  -g -O2 -W -Wswitch -Wcomment -Wpointer-arith
-Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare
-Wno-format-nonliteral -falign-functions=4 -D_WI
N32 -g -O0 -DDEBUG_OS_ERROR -DDEBUG_SPVW -DDEBUG_BYTECODE -DSAFETY=3
-DENABLE_UNICODE -DDYNAMIC_FFI -I.
-I/G//gnu//home//src//clisp//clisp//build-full-debug// -MT
gethostname.o -MD
 -MP -MF .deps/gethostname.Tpo -c -o gethostname.o
/home/src/clisp/clisp/modules/syscalls/gllib/gethostname.c
g:/gnu/home/src/clisp/clisp/modules/syscalls/gllib/gethostname.c:86:21:
fatal error: sockets.h: No such file or directory
compilation terminated.
make[4]: *** [gethostname.o] Error 1
make[4]: Leaving directory
`/home/src/clisp/clisp/build-full-debug/syscalls/gllib'
make[3]: *** [all-recursive] Error 1
make[3]: Leaving directory
`/home/src/clisp/clisp/build-full-debug/syscalls/gllib'
make[2]: *** [all] Error 2
make[2]: Leaving directory
`/home/src/clisp/clisp/build-full-debug/syscalls/gllib'
ln: accessing `libgnu.a': No such file or directory
make[1]: *** [gllib] Error 1
make[1]: Leaving directory `/home/src/clisp/clisp/build-full-debug/syscalls'
make: *** [syscalls] Error 2


sockets.h exist in src/gllib only:
$ ls /home/src/clisp/clisp/src/gllib/sockets.h
/home/src/clisp/clisp/src/gllib/sockets.h

in src/clisp/clisp/build-full-debug/gllib no present:
$ ls /home/src/clisp/clisp/build-full-debug/gllib/sockets.h
ls: /home/src/clisp/clisp/build-full-debug/gllib/sockets.h: No such
file or directory

-- 
WBR, Yaroslav Kavenchuk

clisp-cvs Digest, Vol 54, Issue 6

[<cli...@li...>]

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.7549,1.7550 genclisph.d,1.215,1.216
      (Sam Steingold)
   2. clisp/src genclisph.d,1.216,1.217 (Sam Steingold)


----------------------------------------------------------------------

Message: 1
Date: Fri, 08 Oct 2010 19:33:30 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7549,1.7550 genclisph.d,1.215,1.216
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11461/src

Modified Files:
	ChangeLog genclisph.d 
Log Message:
* src/genclisph.d (check_typecodes): run in the generated
clisp-test-lispbibl instead of genclisph so that the check is
always enabled


Index: genclisph.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/genclisph.d,v
retrieving revision 1.215
retrieving revision 1.216
diff -u -d -r1.215 -r1.216
--- genclisph.d	5 Aug 2010 19:17:28 -0000	1.215
+++ genclisph.d	8 Oct 2010 19:33:28 -0000	1.216
@@ -224,7 +224,7 @@
   printf("%s %s%s;\n",prefix,o,suffix);
 }
 
-#if defined(TYPECODES) && 0 /* cannot always enable: redefines typecode macro */
+#if defined(TYPECODES)
 struct typecode_entry {
   char* name;
   int code;
@@ -239,15 +239,12 @@
   int mdarrayP;
   int closureP;
 };
-#undef typecode
-#define typecode(te)   ((te)->code)
-#define CHECK_FIELD(test)   if (test##p(te) != te->test##P) {        \
-  fprintf(stderr,#test "p(%s=%d)=%d, should be %d\n",                \
-          te->name,te->code,test##p(te),te->test##P);                \
-  ret = false;                                                       \
- }
-static bool check_typecode_entry (struct typecode_entry *te) {
-  bool ret = true;
+#define CHECK_FIELD(test)                                               \
+  fprintf(test_f," #ifdef " #test "p\n  if (" #test "p(%d) != %d) {\n"  \
+          "    fprintf(stderr,\"" #test "p(%s=%d)=%%d, should be %d\\n\","\
+          #test "p(%d));\n    failure_count++;\n  }\n #endif\n",        \
+          te->code,te->test##P,te->name,te->code,te->test##P,te->code)
+static void check_typecode_entry (struct typecode_entry *te) {
   CHECK_FIELD(vector);
   CHECK_FIELD(simple);
   CHECK_FIELD(array_simple);
@@ -258,7 +255,6 @@
   CHECK_FIELD(array);
   CHECK_FIELD(mdarray);
   CHECK_FIELD(closure);
-  return ret;
 }
 struct typecode_entry all_typecodes[] = {
   { "machine_type",    machine_type,       0, 0, 1, 0, 0, 0, 0, 0, 0, 0 },
@@ -301,15 +297,14 @@
 };
 int typecode_count = sizeof(all_typecodes)/sizeof(struct typecode_entry);
 static void check_typecodes (void) {
-  int i, failure_count = 0;
+  int i;
+  if (test_f == NULL) return;
+  fprintf(test_f,"#if !USE_CLISP_H\n #undef typecode\n "
+          "#define typecode(c)   (c)\n {int failure_count = 0;\n");
   for (i=0; i<typecode_count; i++)
-    if (!check_typecode_entry(&(all_typecodes[i])))
-      failure_count++;
-  if (failure_count>0) {
-    fprintf(stderr,"failed %d typecodes out of %d\n",
-            failure_count,typecode_count);
-    exit(1);
-  }
+    check_typecode_entry(&(all_typecodes[i]));
+  fprintf(test_f,"  if (failure_count>0) { fprintf(stderr,\"%%d typecode"
+          " error(s)\\n\",failure_count); abort(); }}\n#endif\n");
 }
 #else
 #define check_typecodes()
@@ -319,7 +314,6 @@
 {
   char buf[BUFSIZ];
 
-  check_typecodes();
   header_f = stdout;
   if (argc >= 2) {              /* open the test file and start it */
     test_f = fopen(argv[1],"w");
@@ -415,6 +409,7 @@
   /* done - check for errors, close test files &c */
   if (ferror(stdout)) exit(1);
   if (ferror(header_f)) exit(1);
+  check_typecodes();
   if (test_f) {
     fprintf(test_f,"  return 0;\n}\n");
     if (ferror(test_f)) exit(1);

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7549
retrieving revision 1.7550
diff -u -d -r1.7549 -r1.7550
--- ChangeLog	7 Oct 2010 17:32:48 -0000	1.7549
+++ ChangeLog	8 Oct 2010 19:33:28 -0000	1.7550
@@ -1,3 +1,9 @@
+2010-10-08  Sam Steingold  <sd...@gn...>
+
+	* genclisph.d (check_typecodes): run in the generated
+	clisp-test-lispbibl instead of genclisph so that the check is
+	always enabled
+
 2010-10-05  Sam Steingold  <sd...@gn...>
 
 	* makemake.in (full): print gnulib replacements only when -verbose




------------------------------

Message: 2
Date: Fri, 08 Oct 2010 19:34:48 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src genclisph.d,1.216,1.217
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv11742

Modified Files:
	genclisph.d 
Log Message:
comment


Index: genclisph.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/genclisph.d,v
retrieving revision 1.216
retrieving revision 1.217
diff -u -d -r1.216 -r1.217
--- genclisph.d	8 Oct 2010 19:33:28 -0000	1.216
+++ genclisph.d	8 Oct 2010 19:34:46 -0000	1.217
@@ -299,6 +299,8 @@
 static void check_typecodes (void) {
   int i;
   if (test_f == NULL) return;
+  /* cannot run the check when including clisp.h because there typecode(obj)
+     has already been expanded to something horrible */
   fprintf(test_f,"#if !USE_CLISP_H\n #undef typecode\n "
           "#define typecode(c)   (c)\n {int failure_count = 0;\n");
   for (i=0; i<typecode_count; i++)




------------------------------

------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1,  ECMAScript5, and DOM L2 & L3.
Spend less time writing and  rewriting code and more time creating great
experiences on the web. Be a part of the beta today.
http://p.sf.net/sfu/beautyoftheweb

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 54, Issue 6
****************************************

Re: clisp-2.49 -- patch required for 'make -n install'

[Sam S. <sd...@gn...>]

Hi Peter,
I don't understand the patch.
I do not see how either change (to Makefile.in and makemake.in) can
affect the behavior of make.
could you please explain? (please reply to clisp-devel only, not to
me, ane remove me from CC).
Sam.

On Fri, Oct 8, 2010 at 6:14 AM, Peter Breitenlohner <pe...@mp...> wrote:
> Hi Sam,
>
> in order to successfully run 'make -n install' for clisp-2.49 I had to apply
> the attached small patch.
>
> Regards
> Peter Breitenlohner <pe...@mp...>



-- 
Sam Steingold <http://sds.podval.org>

[ clisp-Feature Requests-1339718 ] screen & keyboard interaction

[SourceForge.net <no...@so...>]

Feature Requests item #1339718, was opened at 2005-10-27 13:11
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: UI
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Nobody/Anonymous (nobody)
Summary: screen & keyboard interaction

Initial Comment:
add setfable accessors:
(SCREEN:TEXT-COLOR window-screen)
(SCREEN:BACKGROUND-COLOR window-screen)


----------------------------------------------------------------------

>Comment By: Sam Steingold (sds)
Date: 2010-10-08 10:06

Message:
1. indeed, xcharin.lisp exports char-key et al which makes it less
necessary to use "::"
2. I think the right way for gui is either the gtk2 module or embedding
clisp in vim (like vim already embeds perl/python/ruby). I think console
and window systems are too different to be handled by the same API.
3. as summarized by edgar and in bug#1308473, read-char on
*ikeyboard-input* is not compliant.

the bottom line:
1. keyboard/screen kruft sucks and needs TLC ("tender loving care" - i.e.,
lots of work).
2. they do not belong in clisp core; turning them into a module should not
be too hard; however, ultimately the decision is largely up to the
prospective maintainer of the facility.
3. it is not obvious that they should actually be lisp streams, but if the
prospective maintainer wants them to, he can use gray streams or
rfe#1834189 to make them such.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2010-10-07 20:10

Message:
The fact that INPUT-CHARACTER accessors aren't exported wasn't important to
me. I just used :: (checked my code).
SCREEN doesn't constitute much of the stream code, is the work amount
needed for rewriting it as a module justified? 
Next, it would be nicer when extra I/O features are integrated (at least,
correctly interoperate) with basic ones (used by system (but the system
could use extra features too, I mean IDE)). I strongly believe that stream
code have to distinguish between terminal handle and file handle (use
isatty), this is the first step to console window streams (do not use
isatty, but have separate stream object type instead which is a subtype of
terminal stream). It is not so for now, but probably it should be taken
that way. On Windows, console handle is the standard input/output handle
that is switched in special mode.
Finally, what are the plans about GUI? I believe this should be taken in
mind, that with GUI SCREEN probably should have the same programmer's
interface, but use another OS calls. By GUI I mean just 'not console' - it
may have the same 80x25 characters. I personally love the console
(especially with windows, colors etc) - it's easy to program, it's
lightweight, but I can't say many share my feelings.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-06 09:44

Message:
<http://article.gmane.org/gmane.lisp.clisp.devel/22093>


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-05 16:46

Message:
in general, clisp screen/keyboard interaction facilities are ancient and
probably not used too much (if at all) by the users.
this is obvious from the fact that (read-char *keyboard-input*) returns a
SYS::INPUT-CHARACTER whose accessors are not exported.
Proposal:
- move screen & keyboard streams from stream.d into a separate module
(window-stream and keyboard stream do not have to be lisp streams, and if
you think they have to, you can use gray streams) together with
xcharin.lisp.
- make keyboard input recognize _all_ keyboard events (e.g., now f1 is
recognized by ctrl-f1 is not).
- resurrect the ancient src/editor.lsp (?) in the same module(?); make it
more emacs-compatible.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-11-02 09:46

Message:
Logged In: YES 
user_id=5735

for unix you can use ncurses
http://www.google.com/search?q=ncurses
we already require them for readline.

tree of sreams is not really necessary:
just add x-offset/y-offset/width/height arguments 
to window-stream creation.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2005-11-01 20:06

Message:
Logged In: YES 
user_id=553883

I thought about it 1000 times and since I don't know how to 
use colors on UNIX, didn't implemented. Tree of streams is 
too cool, on windows there is a system function to scroll 
console region and it even is used in current SCREEN code 
to scroll whole screen. Having lisp interface to it one can build 
his own nice libraries, using generic streams for the nice 
example given above. Again, threre is a question how to 
make this scroll function portable. And how to name colors 
portably, on windows there's Red, Green, Blue w/without 
intensity for text and same R, G, B w/without blinking for 
background. 


----------------------------------------------------------------------

Comment By: Don Cohen (donc)
Date: 2005-11-01 16:52

Message:
Logged In: YES 
user_id=8842

I have some code (actually quite old, but still in use) that
does the
scrolling subwindow part.  I haven't tried it with screen in
some time
so it might not quite work there.  I gave up on screen a
long time ago
and use ansi terminal emulation instead.  It turns out this
is not so 
easy to get these days in win-xp, but pscp does it, so one
way to use 
this stuff from win-xp is to ssh to a machine with an ssh
server.
(Anyone know where to get an ssh server for win-xp?)
Ansi terminal emulation is also a good way to control colors.
I can offer code for that too.
I've put the window code at
 http://don-eve.dyndns.org/windows.lsp


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-10-27 13:32

Message:
Logged In: YES 
user_id=5735

another nice thing is being able to split the screen
so that scrolling in different parts is done independently.
I remember being able to do somehting like that 
with turbo pascal 5.5 15 years ago. :-)
(this would make it necessary to introduce a _tree_ of
screen streams - maybe too hairy)

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

clisp-cvs Digest, Vol 54, Issue 5

[<cli...@li...>]

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/emacs d-mode.el,1.65,1.66 (Sam Steingold)
   2. clisp/emacs d-mode.el,1.66,1.67 (Sam Steingold)
   3. clisp/src array.d, 1.119, 1.120 clisp-link.in, 1.58,	1.59
      clos-package.lisp, 1.50, 1.51 documentation.lisp, 1.30,	1.31
      foreign.d, 1.202, 1.203 misc.d, 1.99, 1.100 predtype.d,	1.152,
      1.153 type.lisp, 1.85, 1.86 win32.d, 1.79, 1.80 (Sam Steingold)
   4. clisp/modules/postgresql configure.in,1.24,1.25 (Sam Steingold)
   5. clisp/src makemake.in,1.954,1.955 (Sam Steingold)
   6. clisp/src ChangeLog,1.7548,1.7549 (Sam Steingold)
   7. clisp/emacs d-mode.el,1.67,1.68 (Sam Steingold)


----------------------------------------------------------------------

Message: 1
Date: Thu, 07 Oct 2010 15:29:18 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/emacs d-mode.el,1.65,1.66
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/emacs
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv4017

Modified Files:
	d-mode.el 
Log Message:
clisp-home-dir: guess better


Index: d-mode.el
===================================================================
RCS file: /cvsroot/clisp/clisp/emacs/d-mode.el,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -d -r1.65 -r1.66
--- d-mode.el	8 Oct 2009 14:57:27 -0000	1.65
+++ d-mode.el	7 Oct 2010 15:29:15 -0000	1.66
@@ -311,10 +311,16 @@
 (define-key d-mode-map (kbd "<f5>") 'd-mode-convert-next-comment)
 
 ;; update the dates in headers
-(defvar clisp-home-dir "d:/gnu/clisp/sf/clisp/"
-  "*the location of clisp sources for `clisp-update-dates'")
+(defvar clisp-home-dir
+  (eval-when-compile
+    (flet ((clisp-p (dir)
+             (and (file-exists-p (concat dir "/src/makemake.in")) dir)))
+      (or (clisp-p "~/clisp") (clisp-p "~/src/clisp")
+          (clisp-p "~/src/clisp/current")
+          (clisp-p "d:/gnu/clisp/current"))))
+  "*The location of clisp sources for `clisp-update-dates'")
 (defvar clisp-update-dates-user user-full-name
-  "*default argument for `clisp-update-dates'")
+  "*Default argument for `clisp-update-dates'")
 (defun clisp-update-dates (&optional user)
   "Update the dates in file header for the user.
 Look at the files that are mentioned in `clisp-home-dir'/src/ChangeLog




------------------------------

Message: 2
Date: Thu, 07 Oct 2010 15:31:24 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/emacs d-mode.el,1.66,1.67
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/emacs
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv4751

Modified Files:
	d-mode.el 
Log Message:
`font-lock-defaults-alist' does not exist in newer emacsen


Index: d-mode.el
===================================================================
RCS file: /cvsroot/clisp/clisp/emacs/d-mode.el,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -d -r1.66 -r1.67
--- d-mode.el	7 Oct 2010 15:29:15 -0000	1.66
+++ d-mode.el	7 Oct 2010 15:31:22 -0000	1.67
@@ -208,8 +208,9 @@
   (d-mode-add-font-locking
    (if (boundp 'running-xemacs)
        (get 'c-mode 'font-lock-defaults)
-       ;; for pre-21 emacs; newer versions inherit font lock automatically
-       (cdr (assq 'c-mode font-lock-defaults-alist))))
+       (when (> 21 emacs-major-version)
+         ;; for pre-21 emacs; newer versions inherit font lock automatically
+         (cdr (assq 'c-mode font-lock-defaults-alist)))))
   "The `font-lock-defaults' for `d-mode'.")
 
 (defvar d-mode-build-dir "../build/"




------------------------------

Message: 3
Date: Thu, 07 Oct 2010 17:32:21 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src array.d, 1.119, 1.120 clisp-link.in, 1.58,	1.59
	clos-package.lisp, 1.50, 1.51 documentation.lisp, 1.30,	1.31
	foreign.d, 1.202, 1.203 misc.d, 1.99, 1.100 predtype.d,	1.152, 1.153
	type.lisp, 1.85, 1.86 win32.d, 1.79, 1.80
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29070/src

Modified Files:
	array.d clisp-link.in clos-package.lisp documentation.lisp 
	foreign.d misc.d predtype.d type.lisp win32.d 
Log Message:
update (C) year


Index: misc.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/misc.d,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -d -r1.99 -r1.100
--- misc.d	27 Sep 2010 22:07:20 -0000	1.99
+++ misc.d	7 Oct 2010 17:32:19 -0000	1.100
@@ -1,7 +1,7 @@
 /*
  * Miscellaneous CLISP functions
  * Bruno Haible 1990-2008
- * Sam Steingold 1999-2009
+ * Sam Steingold 1999-2010
  */
 
 #include "lispbibl.c"

Index: type.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/type.lisp,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -d -r1.85 -r1.86
--- type.lisp	13 Aug 2010 16:54:22 -0000	1.85
+++ type.lisp	7 Oct 2010 17:32:19 -0000	1.86
@@ -1,7 +1,7 @@
 ;;;; TYPEP and friends
 ;;;; Michael Stoll, 21. 10. 1988
 ;;;; Bruno Haible, 10.6.1989
-;;;; Sam Steingold 2000-2009
+;;;; Sam Steingold 2000-2010
 
 ;;; Datenstrukturen für TYPEP:
 ;;; - Ein Type-Specifier-Symbol hat auf seiner Propertyliste unter dem

Index: clos-package.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/clos-package.lisp,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- clos-package.lisp	9 Aug 2010 22:03:18 -0000	1.50
+++ clos-package.lisp	7 Oct 2010 17:32:19 -0000	1.51
@@ -1,6 +1,6 @@
 ;;;; Common Lisp Object System for CLISP
 ;;;; Bruno Haible 21.8.1993 - 2004
-;;;; Sam Steingold 1998 - 2007, 2009
+;;;; Sam Steingold 1998 - 2007, 2009-2010
 
 ;; to use it: (USE-PACKAGE "CLOS").
 

Index: clisp-link.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/clisp-link.in,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -d -r1.58 -r1.59
--- clisp-link.in	14 Sep 2010 18:10:21 -0000	1.58
+++ clisp-link.in	7 Oct 2010 17:32:19 -0000	1.59
@@ -5,7 +5,7 @@
 # For more usage information, see <doc/impnotes.html#mod-overview>.
 # Or <http://clisp.cons.org/modules.html#mod-overview>.
 # Bruno Haible 19.10.1994
-# Sam Steingold 2002-2009
+# Sam Steingold 2002-2010
 
 # This could as well be written in Lisp, for portability, but syscalls is
 # a module, so most useful scripting functionality will not be available.

Index: foreign.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/foreign.d,v
retrieving revision 1.202
retrieving revision 1.203
diff -u -d -r1.202 -r1.203
--- foreign.d	29 Jul 2010 15:30:19 -0000	1.202
+++ foreign.d	7 Oct 2010 17:32:19 -0000	1.203
@@ -1,7 +1,7 @@
 /* Foreign language interface for CLISP
  * Marcus Daniels 8.4.1994
  * Bruno Haible 1995-2005
- * Sam Steingold 2000-2009
+ * Sam Steingold 2000-2010
  */
 
 #include "lispbibl.c"

Index: win32.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/win32.d,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -d -r1.79 -r1.80
--- win32.d	15 Sep 2010 19:05:39 -0000	1.79
+++ win32.d	7 Oct 2010 17:32:19 -0000	1.80
@@ -1,7 +1,7 @@
 /*
  * Include file for WIN32_NATIVE version of CLISP
  * Bruno Haible 1997-2008
- * Sam Steingold 1999-2009
+ * Sam Steingold 1999-2010
  */
 
 /* control characters constants */

Index: documentation.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/documentation.lisp,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- documentation.lisp	6 Aug 2010 19:08:49 -0000	1.30
+++ documentation.lisp	7 Oct 2010 17:32:19 -0000	1.31
@@ -1,5 +1,5 @@
 ;;;; Generic documentation
-;;;; Sam Steingold 2002 - 2006, 2008
+;;;; Sam Steingold 2002 - 2006, 2008, 2010
 ;;;; Bruno Haible 2004
 
 (in-package "CLOS")

Index: array.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/array.d,v
retrieving revision 1.119
retrieving revision 1.120
diff -u -d -r1.119 -r1.120
--- array.d	4 Aug 2010 16:21:12 -0000	1.119
+++ array.d	7 Oct 2010 17:32:19 -0000	1.120
@@ -1,7 +1,7 @@
 /*
  * Array functions
  * Bruno Haible 1990-2005
- * Sam Steingold 1998-2009
+ * Sam Steingold 1998-2010
  * German comments translated into English: Stefan Kain 2002-09-23
  */
 

Index: predtype.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/predtype.d,v
retrieving revision 1.152
retrieving revision 1.153
diff -u -d -r1.152 -r1.153
--- predtype.d	2 Aug 2010 14:51:53 -0000	1.152
+++ predtype.d	7 Oct 2010 17:32:19 -0000	1.153
@@ -1,7 +1,7 @@
 /*
  * Predicates for equality and type tests, types, classes in CLISP
  * Bruno Haible 1990-2005
- * Sam Steingold 1998-2009
+ * Sam Steingold 1998-2010
  * German comments translated into English: Stefan Kain 2002-09-15
  */
 




------------------------------

Message: 4
Date: Thu, 07 Oct 2010 17:32:21 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/postgresql configure.in,1.24,1.25
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/modules/postgresql
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29070/modules/postgresql

Modified Files:
	configure.in 
Log Message:
update (C) year


Index: configure.in
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/postgresql/configure.in,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- configure.in	21 May 2010 20:07:50 -0000	1.24
+++ configure.in	7 Oct 2010 17:32:18 -0000	1.25
@@ -1,5 +1,5 @@
 dnl AUTOCONF configuration for postgresql
-dnl Copyright (C) 2003-2009 Sam Steingold <sd...@gn...>
+dnl Copyright (C) 2003-2010 Sam Steingold <sd...@gn...>
 dnl GNU GPL2
 
 AC_PREREQ(2.57)




------------------------------

Message: 5
Date: Thu, 07 Oct 2010 17:32:31 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src makemake.in,1.954,1.955
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29125/src

Modified Files:
	makemake.in 
Log Message:
update (C) year


Index: makemake.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/makemake.in,v
retrieving revision 1.954
retrieving revision 1.955
diff -u -d -r1.954 -r1.955
--- makemake.in	5 Oct 2010 18:08:39 -0000	1.954
+++ makemake.in	7 Oct 2010 17:32:29 -0000	1.955
@@ -2,7 +2,7 @@
 # -*- coding: utf-8; mode: shell-script -*- vim:filetype=sh
 CONFIG_SHELL="@SHELL@"  # mind the quoting, for args like -x.
 # Creation of the Makefile used for compiling CLISP
-# Bruno Haible 1991-2008
+# Bruno Haible 1991-2010
 # Sam Steingold 1999-2010
 
 # Simple usage:




------------------------------

Message: 6
Date: Thu, 07 Oct 2010 17:32:50 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7548,1.7549
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29179

Modified Files:
	ChangeLog 
Log Message:
fix formatting


Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7548
retrieving revision 1.7549
diff -u -d -r1.7548 -r1.7549
--- ChangeLog	5 Oct 2010 18:08:38 -0000	1.7548
+++ ChangeLog	7 Oct 2010 17:32:48 -0000	1.7549
@@ -1394,7 +1394,7 @@
 
 2010-03-18  Sam Steingold  <sd...@gn...>
 
-	* ../Makefile.devel (GET_PREFIX): add
+	* Makefile.devel (GET_PREFIX): add
 	($(MAKEFILE_IN)): use it
 	(gnulib-imported): remove macro-prefix from _GL_UNUSED which is
 	defined in config.h using gnulib-common.m4:gl_COMMON_BODY and thus
@@ -1409,7 +1409,7 @@
 
 2010-03-17  Sam Steingold  <sd...@gn...>
 
-	* makemake.in, modules/regexp/Makefile.in,
+	* makemake.in, modules/regexp/Makefile.in:
 	* modules/syscalls/Makefile.in, modules/wildcard/Makefile.in (gllib):
 	do not pass build_aux= to make in subdir (revert the 2010-03-17
 	patch because it does not look like gnulib will ever use $(build_aux))
@@ -1464,7 +1464,7 @@
 
 2010-03-16  Sam Steingold  <sd...@gn...>
 
-	* makemake.in, modules/regexp/Makefile.in,
+	* makemake.in, modules/regexp/Makefile.in:
 	* modules/syscalls/Makefile.in, modules/wildcard/Makefile.in (gllib):
 	pass build_aux= to make in subdir
 
@@ -47729,8 +47729,7 @@
 
 	* 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 framebottomwordf1
-	,
+	  instead of `mtypecode'. Define uintP, needed for framebottomwordf1,
 	  needed for finish_frame, needed for begin_callback.
 
 1999-09-23  Bruno Haible  <br...@li...>




------------------------------

Message: 7
Date: Thu, 07 Oct 2010 17:33:24 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/emacs d-mode.el,1.67,1.68
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/emacs
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29357

Modified Files:
	d-mode.el 
Log Message:
fix clisp-update-dates; add clisp-existing-file


Index: d-mode.el
===================================================================
RCS file: /cvsroot/clisp/clisp/emacs/d-mode.el,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -d -r1.67 -r1.68
--- d-mode.el	7 Oct 2010 15:31:22 -0000	1.67
+++ d-mode.el	7 Oct 2010 17:33:22 -0000	1.68
@@ -311,11 +311,16 @@
 ;; some keybindings
 (define-key d-mode-map (kbd "<f5>") 'd-mode-convert-next-comment)
 
+(eval-and-compile
+  (defun clisp-existing-file (f &optional r)
+    "Check that F exists and return R or F if it does."
+    (and (file-exists-p f) (or r f))))
+
 ;; update the dates in headers
 (defvar clisp-home-dir
   (eval-when-compile
     (flet ((clisp-p (dir)
-             (and (file-exists-p (concat dir "/src/makemake.in")) dir)))
+             (clisp-existing-file (concat dir "/src/makemake.in") dir)))
       (or (clisp-p "~/clisp") (clisp-p "~/src/clisp")
           (clisp-p "~/src/clisp/current")
           (clisp-p "d:/gnu/clisp/current"))))
@@ -331,7 +336,7 @@
   (message "clisp-update-dates: %s" user)
   (let* ((c-l (find-file-noselect (expand-file-name "src/ChangeLog"
                                                     clisp-home-dir)))
-         (year (format-time-string "%Y")) start all bad
+         (year (format-time-string "%Y")) start all add update
          (re (concat "^" year "-.*" user)))
     (with-current-buffer c-l
       (save-excursion
@@ -340,33 +345,42 @@
           (let ((end (re-search-forward "^[0-9]")))
             (goto-char start)
             (while (re-search-forward "^\t\\* " end t)
-              (setq all (nconc (split-string
-                                (buffer-substring-no-properties
-                                 (point) (re-search-forward
-                                          "[:()]" (line-end-position) t))
-                                "[ ,():]+" t)
-                               all)))))))
+              (dolist (file (split-string
+                             (buffer-substring-no-properties
+                              (point) (re-search-forward
+                                       "[:()]" (line-end-position) t))
+                             "[ ,():]+" t))
+                (unless (string-match "gl\\(m4\\|lib\\)\\|build-aux" file)
+                  (push file all))))))))
     (setq all (delete-dups all))
     (message "clisp-update-dates: %d files: %s" (length all) all)
     (dolist (file all)
-      (let ((buf (find-file-noselect
-                  (expand-file-name
-                   (if (string-match "/" file) file (concat "src/" file))
-                   clisp-home-dir))))
-        (with-current-buffer buf
-          (save-excursion
-            (goto-char 0)
-            (cond ((null (search-forward user nil t))
-                   (message "clisp-update-dates: %s does not mention %s"
-                            file user)
-                   (push file bad))
-                  ((progn (beginning-of-line)
-                          (search-forward year (line-end-position) t))
-                   (message "clisp-update-dates: %s is good!" file)
-                   (kill-buffer buf))
-                  (t (message "clisp-update-dates: %s needs updating" file)
-                     (push file bad)))))))
-    (message "clisp-update-dates: %d files need updating: %s" (length bad) bad)
-    (values bad all)))
+      (let ((fn (or (clisp-existing-file
+                     (expand-file-name file clisp-home-dir))
+                    (clisp-existing-file
+                     (expand-file-name file (concat clisp-home-dir "/src")))
+                    (clisp-existing-file
+                     (expand-file-name
+                      file (concat clisp-home-dir "/modules"))))))
+        (if fn
+            (let ((buf (find-file-noselect fn)))
+              (with-current-buffer buf
+                (save-excursion
+                  (goto-char 0)
+                  (cond ((null (search-forward user nil t))
+                         (message "clisp-update-dates: %s does not mention %s"
+                                  file user)
+                         (push file add))
+                        ((progn (beginning-of-line)
+                                (search-forward year (line-end-position) t))
+                         (message "clisp-update-dates: %s is good!" file)
+                         (kill-buffer buf))
+                        (t (message "clisp-update-dates: %s needs updating"
+                                    file)
+                           (push file update))))))
+            (message "clisp-update-dates: %s does not exist" file))))
+    (message "clisp-update-dates: update %d files %s; add to %d files %s"
+             (length update) update (length add) add)
+    (values update add all)))
 
 (provide 'd-mode)




------------------------------

------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1,  ECMAScript5, and DOM L2 & L3.
Spend less time writing and  rewriting code and more time creating great
experiences on the web. Be a part of the beta today.
http://p.sf.net/sfu/beautyoftheweb

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 54, Issue 5
****************************************

[ clisp-Feature Requests-1339718 ] screen & keyboard interaction

[SourceForge.net <no...@so...>]

Feature Requests item #1339718, was opened at 2005-10-28 03:11
Message generated for change (Comment added) made by ampy
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: UI
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Nobody/Anonymous (nobody)
Summary: screen & keyboard interaction

Initial Comment:
add setfable accessors:
(SCREEN:TEXT-COLOR window-screen)
(SCREEN:BACKGROUND-COLOR window-screen)


----------------------------------------------------------------------

>Comment By: Arseny Slobodyuk (ampy)
Date: 2010-10-08 10:10

Message:
The fact that INPUT-CHARACTER accessors aren't exported wasn't important to
me. I just used :: (checked my code).
SCREEN doesn't constitute much of the stream code, is the work amount
needed for rewriting it as a module justified? 
Next, it would be nicer when extra I/O features are integrated (at least,
correctly interoperate) with basic ones (used by system (but the system
could use extra features too, I mean IDE)). I strongly believe that stream
code have to distinguish between terminal handle and file handle (use
isatty), this is the first step to console window streams (do not use
isatty, but have separate stream object type instead which is a subtype of
terminal stream). It is not so for now, but probably it should be taken
that way. On Windows, console handle is the standard input/output handle
that is switched in special mode.
Finally, what are the plans about GUI? I believe this should be taken in
mind, that with GUI SCREEN probably should have the same programmer's
interface, but use another OS calls. By GUI I mean just 'not console' - it
may have the same 80x25 characters. I personally love the console
(especially with windows, colors etc) - it's easy to program, it's
lightweight, but I can't say many share my feelings.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-06 23:44

Message:
<http://article.gmane.org/gmane.lisp.clisp.devel/22093>


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-06 06:46

Message:
in general, clisp screen/keyboard interaction facilities are ancient and
probably not used too much (if at all) by the users.
this is obvious from the fact that (read-char *keyboard-input*) returns a
SYS::INPUT-CHARACTER whose accessors are not exported.
Proposal:
- move screen & keyboard streams from stream.d into a separate module
(window-stream and keyboard stream do not have to be lisp streams, and if
you think they have to, you can use gray streams) together with
xcharin.lisp.
- make keyboard input recognize _all_ keyboard events (e.g., now f1 is
recognized by ctrl-f1 is not).
- resurrect the ancient src/editor.lsp (?) in the same module(?); make it
more emacs-compatible.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-11-03 00:46

Message:
Logged In: YES 
user_id=5735

for unix you can use ncurses
http://www.google.com/search?q=ncurses
we already require them for readline.

tree of sreams is not really necessary:
just add x-offset/y-offset/width/height arguments 
to window-stream creation.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2005-11-02 11:06

Message:
Logged In: YES 
user_id=553883

I thought about it 1000 times and since I don't know how to 
use colors on UNIX, didn't implemented. Tree of streams is 
too cool, on windows there is a system function to scroll 
console region and it even is used in current SCREEN code 
to scroll whole screen. Having lisp interface to it one can build 
his own nice libraries, using generic streams for the nice 
example given above. Again, threre is a question how to 
make this scroll function portable. And how to name colors 
portably, on windows there's Red, Green, Blue w/without 
intensity for text and same R, G, B w/without blinking for 
background. 


----------------------------------------------------------------------

Comment By: Don Cohen (donc)
Date: 2005-11-02 07:52

Message:
Logged In: YES 
user_id=8842

I have some code (actually quite old, but still in use) that
does the
scrolling subwindow part.  I haven't tried it with screen in
some time
so it might not quite work there.  I gave up on screen a
long time ago
and use ansi terminal emulation instead.  It turns out this
is not so 
easy to get these days in win-xp, but pscp does it, so one
way to use 
this stuff from win-xp is to ssh to a machine with an ssh
server.
(Anyone know where to get an ssh server for win-xp?)
Ansi terminal emulation is also a good way to control colors.
I can offer code for that too.
I've put the window code at
 http://don-eve.dyndns.org/windows.lsp


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-10-28 03:32

Message:
Logged In: YES 
user_id=5735

another nice thing is being able to split the screen
so that scrolling in different parts is done independently.
I remember being able to do somehting like that 
with turbo pascal 5.5 15 years ago. :-)
(this would make it necessary to introduce a _tree_ of
screen streams - maybe too hairy)

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

Re: EXT:*KEYBOARD-INPUT* issues

[Sam S. <sd...@gn...>]

most of these are known problems.
http://www.cygwin.com/acronyms/#PTC

PS. please comment on this issue on the tracker.

[ clisp-Feature Requests-1339718 ] screen & keyboard interaction

[SourceForge.net <no...@so...>]

Feature Requests item #1339718, was opened at 2005-10-27 13:11
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: UI
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
Assigned to: Nobody/Anonymous (nobody)
Summary: screen & keyboard interaction

Initial Comment:
add setfable accessors:
(SCREEN:TEXT-COLOR window-screen)
(SCREEN:BACKGROUND-COLOR window-screen)


----------------------------------------------------------------------

>Comment By: Sam Steingold (sds)
Date: 2010-10-06 09:44

Message:
<http://article.gmane.org/gmane.lisp.clisp.devel/22093>


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2010-10-05 16:46

Message:
in general, clisp screen/keyboard interaction facilities are ancient and
probably not used too much (if at all) by the users.
this is obvious from the fact that (read-char *keyboard-input*) returns a
SYS::INPUT-CHARACTER whose accessors are not exported.
Proposal:
- move screen & keyboard streams from stream.d into a separate module
(window-stream and keyboard stream do not have to be lisp streams, and if
you think they have to, you can use gray streams) together with
xcharin.lisp.
- make keyboard input recognize _all_ keyboard events (e.g., now f1 is
recognized by ctrl-f1 is not).
- resurrect the ancient src/editor.lsp (?) in the same module(?); make it
more emacs-compatible.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-11-02 09:46

Message:
Logged In: YES 
user_id=5735

for unix you can use ncurses
http://www.google.com/search?q=ncurses
we already require them for readline.

tree of sreams is not really necessary:
just add x-offset/y-offset/width/height arguments 
to window-stream creation.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2005-11-01 20:06

Message:
Logged In: YES 
user_id=553883

I thought about it 1000 times and since I don't know how to 
use colors on UNIX, didn't implemented. Tree of streams is 
too cool, on windows there is a system function to scroll 
console region and it even is used in current SCREEN code 
to scroll whole screen. Having lisp interface to it one can build 
his own nice libraries, using generic streams for the nice 
example given above. Again, threre is a question how to 
make this scroll function portable. And how to name colors 
portably, on windows there's Red, Green, Blue w/without 
intensity for text and same R, G, B w/without blinking for 
background. 


----------------------------------------------------------------------

Comment By: Don Cohen (donc)
Date: 2005-11-01 16:52

Message:
Logged In: YES 
user_id=8842

I have some code (actually quite old, but still in use) that
does the
scrolling subwindow part.  I haven't tried it with screen in
some time
so it might not quite work there.  I gave up on screen a
long time ago
and use ansi terminal emulation instead.  It turns out this
is not so 
easy to get these days in win-xp, but pscp does it, so one
way to use 
this stuff from win-xp is to ssh to a machine with an ssh
server.
(Anyone know where to get an ssh server for win-xp?)
Ansi terminal emulation is also a good way to control colors.
I can offer code for that too.
I've put the window code at
 http://don-eve.dyndns.org/windows.lsp


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-10-27 13:32

Message:
Logged In: YES 
user_id=5735

another nice thing is being able to split the screen
so that scrolling in different parts is done independently.
I remember being able to do somehting like that 
with turbo pascal 5.5 15 years ago. :-)
(this would make it necessary to introduce a _tree_ of
screen streams - maybe too hairy)

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

clisp-cvs Digest, Vol 54, Issue 4

[<cli...@li...>]

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.7547,1.7548 makemake.in,1.953,1.954
      (Sam Steingold)


----------------------------------------------------------------------

Message: 1
Date: Tue, 05 Oct 2010 18:08:41 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7547,1.7548 makemake.in,1.953,1.954
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv31811/src

Modified Files:
	ChangeLog makemake.in 
Log Message:
* src/makemake.in (full): print gnulib replacements only when -verbose
and do not fail the build when none is found


Index: makemake.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/makemake.in,v
retrieving revision 1.953
retrieving revision 1.954
diff -u -d -r1.953 -r1.954
--- makemake.in	4 Oct 2010 15:01:44 -0000	1.953
+++ makemake.in	5 Oct 2010 18:08:39 -0000	1.954
@@ -3268,7 +3268,8 @@
 test "${with_dynamic_modules}" = no || echotab "rm -rf dynmod; mkdir dynmod"
 echotab "MAKE=\$(MAKE) CLISP=\"${HEREP}/clisp ${someflags}\" ${HERE}clisp-link add base full \$(MODULES) || (\$(RMRF) full ; exit 1)"
 # show which system supplied functionality is replaced by gnulib
-echotab 'grep "define REPLACE_.*1" `find . -name config.log`'
+test "${verbose}" = true -o "${verbose}" = yes && \
+  echotab 'grep "define REPLACE_.*1" `find . -name config.log` || true'
 cygwin_finish full
 
 echol "mod-check : base-mod-check full-mod-check"

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7547
retrieving revision 1.7548
diff -u -d -r1.7547 -r1.7548
--- ChangeLog	4 Oct 2010 22:07:23 -0000	1.7547
+++ ChangeLog	5 Oct 2010 18:08:38 -0000	1.7548
@@ -1,3 +1,8 @@
+2010-10-05  Sam Steingold  <sd...@gn...>
+
+	* makemake.in (full): print gnulib replacements only when -verbose
+	and do not fail the build when none is found
+
 2010-10-04  Sam Steingold  <sd...@gn...>
 
 	* modules/syscalls/calls.c (POSIX:STRING-TIME): when calling strptime,




------------------------------

------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1,  ECMAScript5, and DOM L2 & L3.
Spend less time writing and  rewriting code and more time creating great
experiences on the web. Be a part of the beta today.
http://p.sf.net/sfu/beautyoftheweb

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 54, Issue 4
****************************************

EXT:*KEYBOARD-INPUT* issues

[edgar <edg...@we...>]

Hi CLISP devels,

The usual preface: I do _NOT_ think of the SCREEN/*KEYBOARD-INPUT* topic
as really urgent, but Sam had asked in the "feature request" tracker, so
here is a detailed list of problems I had with EXT:*KEYBOARD-INPUT* in
the past.

Sorry for posting this on the devel-list but for a comment in the
feature-tracker it's a bit too long.

Sam's original comment from the feature tracker was:

 > SDS wrote:
 >
 > in general, clisp screen/keyboard interaction facilities are ancient
 > and probably not used too much (if at all) by the users.
 > this is obvious from the fact that (read-char *keyboard-input*) returns
 > a SYS::INPUT-CHARACTER whose accessors are not exported.
 >
 > Proposal:
 >
 > - move screen & keyboard streams from stream.d into a separate module
 > (window-stream and keyboard stream do not have to be lisp streams, and
 > if you think they have to, you can use gray streams) together with
 > xcharin.lisp.
 >
 > - make keyboard input recognize _all_ keyboard events (e.g., now f1 is
 > recognized by ctrl-f1 is not).
 >
 > - resurrect the ancient src/editor.lsp (?) in the same module(?) and
 > make it more emacs-compatible.

https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

To  demonstrate the problems I use the LOOP example from the CLISP Impnotes,
Chapter 21.2.2., "Macro EXT:WITH-KEYBOARD", that prints all keystrokes on
the screen until the user hits the spacebar:

(ext:with-keyboard
   (loop :for char = (read-char ext:*keyboard-input*)
         :for key = (or (ext:char-key char) (character char))
         :do (print (list char key))
         :when (eql key #\Space) :return (list char key)))

1.) The EXT:*KEYBOARD-INPUT* stream works byte-oriented and does not
produce the expected results with multi-byte unicode characters.

An uni-byte ASCII character #\a produces the correct result:

(#S(SYSTEM::INPUT-CHARACTER :CHAR #\a :BITS 0 :FONT 0 :KEY NIL) #\a)

A two-byte unicode character #\ä produces two wrong results:

(#S(SYSTEM::INPUT-CHARACTER :CHAR #\LATIN_CAPITAL_LETTER_A_WITH_TILDE
        :BITS 0 :FONT 0 :KEY NIL) #\LATIN_CAPITAL_LETTER_A_WITH_TILDE)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\CURRENCY_SIGN :BITS 0 :FONT 0 :KEY NIL)
        #\CURRENCY_SIGN)

while the correct answer would be:

(character #\ä) => #\LATIN_SMALL_LETTER_A_WITH_DIAERESIS

2.) An arrow-key pressed with no other key produces the correct result:

(#S(SYSTEM::INPUT-CHARACTER :CHAR NIL :BITS 8 :FONT 0 :KEY :LEFT) :LEFT)

while an arrow-key if pressed together with Shift, Control, or Meta [Alt]
produces an escape-sequence:

(#S(SYSTEM::INPUT-CHARACTER :CHAR #\Escape :BITS 0 :FONT 0 :KEY NIL) #\Escape)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\[ :BITS 0 :FONT 0 :KEY NIL) #\[)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\1 :BITS 0 :FONT 0 :KEY NIL) #\1)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\; :BITS 0 :FONT 0 :KEY NIL) #\;)  ; <-[!]
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\5 :BITS 0 :FONT 0 :KEY NIL) #\5)
(#S(SYSTEM::INPUT-CHARACTER :CHAR #\D :BITS 0 :FONT 0 :KEY NIL) #\D)

Many escape-sequences contain a semicolon, what in a Lisp character stream
produces very nasty side-effects, because in a character stream a semicolon
is understood as the beginning of a comment, and a #\Newline or END-OF-FILE
is understood as the end of a comment. Because escape-sequences are usually
_NOT_ terminated by a #\Newline or END-OF-FILE, the Lisp reader gets stuck
in "comment mode" until a #\Newline or END-OF-FILE appears in the stream
by accident. Because EXT:*KEYBOARD-INPUT* is an INPUT stream, I cannot write
an artificial #\Newline character to it to terminate the escape-sequence.
This way it's impossible to write an escape-sequence parser on the Lisp level.

The detailed problems with EXT:*KEYBOARD-INPUT* in CLISP 2.49+ CVS HEAD are:

READ-CHAR

- Recognizes multi-byte unicode characters as multiple uni-byte ASCII
characters and reads them as several characters if invoked sequentially.

- With escape-sequences containing a semicolon, READ-CHAR does _NOT_
consider the semicolon as the beginning of a comment [what is exactly the
opposite behaviour to all other functions below], instead the semicolon
and everything after is read as ordinary uni-byte ASCII characters
without hanging.

READ-CHAR-NO-HANG

- Recognizes multi-byte unicode characters correctly, but reads only the
first byte and returns wrong results with multi-byte characters. There
currently seems to be no way to find out whether the return value of
READ-CHAR-NO-HANG is correct or not.

- With escape-sequences containing a semicolon, READ-CHAR-NO-HANG consideres
the semicolon as the end of the stream [and probably everything afterwards
as a comment], what has to the consequence, that the semicolon and everything
after is left in the EXT:*KEYBOARD-INPUT* stream and re-appears at the next
invocation of READ-CHAR.

- A READ-CHAR-NO-HANG return value of NIL does not necessarily mean that
the *keyboard-input* stream is empty.

READ-CHAR-WILL-HANG-P

- Returns T, even if there are comment characters in the stream [left from
an escape-sequence containing a semicolon], which can be read by READ-CHAR
without hanging.

PEEK-CHAR

- PEEK-CHAR with and EOF-ERROR-P argument of NIL cannot be used to test
the end of EXT:*KEYBOARD-INPUT*, because if EXT:*KEYBOARD-INPUT* is empty,
PEEK-CHAR hangs until a new SYS::INPUT-CHARACTER appears in the stream.

CLEAR-INPUT

- (CLEAR-INPUT EXT:*KEYBOARD-INPUT*) does not reliably clear
EXT:*KEYBOARD-INPUT*. Comment characters [left from an escape-sequence
containing a semicolon] are still in the stream afterwards, probably
because the comment is not terminated by a #\Newline or END-OF-FILE
and is understood as an "unterminated comment".

READ, UNREAD-CHAR, and READ-LINE

- all tree only work with Common Lisp standard characters and signal a
"wrong-type" error with SYS::INPUT-CHARACTERs.

Summary:

IMO the main problem is that EXT:*KEYBOARD-INPUT* is implemented as a
Lisp character stream with a ton of exception handling on the C level
(e.g. lots of terminal escape sequences etc. but obviously still not
many enough).

Does it really make sense to overload the "exception handling" even more
or would it be better to implement EXT:*KEYBOARD-INPUT* as a byte-stream,
what would make it much easier to write custom parsers on the Lisp level?

A Lisp parser is not necessarily less work or less complicated than a
parser written in C, but a Lisp programmer would have the chance to
adapt the parser much easier to his/her own needs.

Thanks,

- edgar







-- 
The author of this email does not necessarily endorse the following
advertisements, which are the sole responsibility of the advertiser:

[ clisp-Feature Requests-1339718 ] screen & keyboard interaction

[SourceForge.net <no...@so...>]

Feature Requests item #1339718, was opened at 2005-10-27 13:11
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
>Category: UI
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Sam Steingold (sds)
>Assigned to: Nobody/Anonymous (nobody)
>Summary: screen & keyboard interaction

Initial Comment:
add setfable accessors:
(SCREEN:TEXT-COLOR window-screen)
(SCREEN:BACKGROUND-COLOR window-screen)


----------------------------------------------------------------------

>Comment By: Sam Steingold (sds)
Date: 2010-10-05 16:46

Message:
in general, clisp screen/keyboard interaction facilities are ancient and
probably not used too much (if at all) by the users.
this is obvious from the fact that (read-char *keyboard-input*) returns a
SYS::INPUT-CHARACTER whose accessors are not exported.
Proposal:
- move screen & keyboard streams from stream.d into a separate module
(window-stream and keyboard stream do not have to be lisp streams, and if
you think they have to, you can use gray streams) together with
xcharin.lisp.
- make keyboard input recognize _all_ keyboard events (e.g., now f1 is
recognized by ctrl-f1 is not).
- resurrect the ancient src/editor.lsp (?) in the same module(?); make it
more emacs-compatible.

----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-11-02 09:46

Message:
Logged In: YES 
user_id=5735

for unix you can use ncurses
http://www.google.com/search?q=ncurses
we already require them for readline.

tree of sreams is not really necessary:
just add x-offset/y-offset/width/height arguments 
to window-stream creation.

----------------------------------------------------------------------

Comment By: Arseny Slobodyuk (ampy)
Date: 2005-11-01 20:06

Message:
Logged In: YES 
user_id=553883

I thought about it 1000 times and since I don't know how to 
use colors on UNIX, didn't implemented. Tree of streams is 
too cool, on windows there is a system function to scroll 
console region and it even is used in current SCREEN code 
to scroll whole screen. Having lisp interface to it one can build 
his own nice libraries, using generic streams for the nice 
example given above. Again, threre is a question how to 
make this scroll function portable. And how to name colors 
portably, on windows there's Red, Green, Blue w/without 
intensity for text and same R, G, B w/without blinking for 
background. 


----------------------------------------------------------------------

Comment By: Don Cohen (donc)
Date: 2005-11-01 16:52

Message:
Logged In: YES 
user_id=8842

I have some code (actually quite old, but still in use) that
does the
scrolling subwindow part.  I haven't tried it with screen in
some time
so it might not quite work there.  I gave up on screen a
long time ago
and use ansi terminal emulation instead.  It turns out this
is not so 
easy to get these days in win-xp, but pscp does it, so one
way to use 
this stuff from win-xp is to ssh to a machine with an ssh
server.
(Anyone know where to get an ssh server for win-xp?)
Ansi terminal emulation is also a good way to control colors.
I can offer code for that too.
I've put the window code at
 http://don-eve.dyndns.org/windows.lsp


----------------------------------------------------------------------

Comment By: Sam Steingold (sds)
Date: 2005-10-27 13:32

Message:
Logged In: YES 
user_id=5735

another nice thing is being able to split the screen
so that scrolling in different parts is done independently.
I remember being able to do somehting like that 
with turbo pascal 5.5 15 years ago. :-)
(this would make it necessary to introduce a _tree_ of
screen streams - maybe too hairy)

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=351355&aid=1339718&group_id=1355

clisp-cvs Digest, Vol 54, Issue 3

[<cli...@li...>]

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.7544,1.7545 makemake.in,1.952,1.953
      (Sam Steingold)
   2. clisp/src ChangeLog,1.7545,1.7546 zthread.d,1.89,1.90
      (Vladimir Tzankov)
   3. clisp/src zthread.d,1.90,1.91 (Sam Steingold)
   4. clisp/modules/syscalls syscalls.xml,1.136,1.137 (Sam Steingold)
   5. clisp/modules/syscalls calls.c,1.320,1.321 (Sam Steingold)
   6. clisp/src ChangeLog,1.7546,1.7547 (Sam Steingold)
   7. clisp/modules/syscalls test.tst,1.109,1.110 (Sam Steingold)


----------------------------------------------------------------------

Message: 1
Date: Mon, 04 Oct 2010 15:01:46 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7544,1.7545 makemake.in,1.952,1.953
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv17263/src

Modified Files:
	ChangeLog makemake.in 
Log Message:
* src/makemake.in (full): show which system supplied functionality is
replaced by gnulib


Index: makemake.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/makemake.in,v
retrieving revision 1.952
retrieving revision 1.953
diff -u -d -r1.952 -r1.953
--- makemake.in	3 Oct 2010 02:17:06 -0000	1.952
+++ makemake.in	4 Oct 2010 15:01:44 -0000	1.953
@@ -3267,6 +3267,8 @@
 echotab "\$(RMRF) full"
 test "${with_dynamic_modules}" = no || echotab "rm -rf dynmod; mkdir dynmod"
 echotab "MAKE=\$(MAKE) CLISP=\"${HEREP}/clisp ${someflags}\" ${HERE}clisp-link add base full \$(MODULES) || (\$(RMRF) full ; exit 1)"
+# show which system supplied functionality is replaced by gnulib
+echotab 'grep "define REPLACE_.*1" `find . -name config.log`'
 cygwin_finish full
 
 echol "mod-check : base-mod-check full-mod-check"

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7544
retrieving revision 1.7545
diff -u -d -r1.7544 -r1.7545
--- ChangeLog	3 Oct 2010 20:40:58 -0000	1.7544
+++ ChangeLog	4 Oct 2010 15:01:43 -0000	1.7545
@@ -1,3 +1,8 @@
+2010-10-04  Sam Steingold  <sd...@gn...>
+
+	* makemake.in (full): show which system supplied functionality is
+	replaced by gnulib
+
 2010-10-03  Vladimir Tzankov  <vtz...@gm...>
 
 	fix bug#3077583: show-stack segfaults with MT




------------------------------

Message: 2
Date: Mon, 04 Oct 2010 18:48:53 +0000
From: Vladimir Tzankov <vt...@us...>
Subject: clisp/src ChangeLog,1.7545,1.7546 zthread.d,1.89,1.90
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv14814/src

Modified Files:
	ChangeLog zthread.d 
Log Message:
fix default thread name (on OSX there was segfault if function argument was not a closure) 


Index: zthread.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/zthread.d,v
retrieving revision 1.89
retrieving revision 1.90
diff -u -d -r1.89 -r1.90
--- zthread.d	3 Oct 2010 20:40:58 -0000	1.89
+++ zthread.d	4 Oct 2010 18:48:51 -0000	1.90
@@ -77,6 +77,22 @@
   return name_arg;
 }
 
+/* return default thread name depending on the type of function
+ > fun: functionp object
+ < returns default name to be used of none is specified */
+local object default_thread_name(object fun) {
+  if (subrp(fun))
+    return TheSubr(fun)->name;
+  else if (cclosurep(fun))
+    return Closure_name(fun);
+#ifdef DYNAMIC_FFI
+  else if (ffunctionp(fun))
+    return TheFfunction(fun)->ff_name;
+#endif
+  else  /* interpreted closure */
+    return TheIclosure(fun)->clos_name;
+}
+
 /* releases the clisp_thread_t memory of the list of Thread records */
 global void release_threads (object list) {
   /* Nothing to do here actually. In the past the memory of some
@@ -219,9 +235,7 @@
   #endif
   clisp_thread_t *me=(clisp_thread_t *)arg;
   set_current_thread(me); /* first: initialize TLS */
-  var struct backtrace_t bt;
   me->_SP_anchor=(void*)SP();
-  back_trace = NULL; /* no back trace */
   pushSTACK(O(thread_exit_tag)); /* push the exit tag */
   var gcv_object_t *initial_bindings = &STACK_1;
   var gcv_object_t *funptr = &STACK_2;
@@ -301,7 +315,7 @@
   if (!functionp(STACK_2))
     STACK_2 = check_function_replacement(STACK_2);
   /* set thread name */
-  STACK_1 = check_name_arg(STACK_1,Closure_name(STACK_2));
+  STACK_1 = check_name_arg(STACK_1,default_thread_name(STACK_2));
   /* do allocations before thread locking */
   pushSTACK(allocate_thread(&STACK_1)); /* put it in GC visible place */
   pushSTACK(allocate_cons());

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7545
retrieving revision 1.7546
diff -u -d -r1.7545 -r1.7546
--- ChangeLog	4 Oct 2010 15:01:43 -0000	1.7545
+++ ChangeLog	4 Oct 2010 18:48:51 -0000	1.7546
@@ -1,3 +1,8 @@
+2010-10-04  Vladimir Tzankov  <vtz...@gm...>
+
+	* zthread.d (default_thread_name): returns name for functionp object
+	(MAKE-THREAD): use it
+
 2010-10-04  Sam Steingold  <sd...@gn...>
 
 	* makemake.in (full): show which system supplied functionality is




------------------------------

Message: 3
Date: Mon, 04 Oct 2010 21:52:15 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src zthread.d,1.90,1.91
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv26249

Modified Files:
	zthread.d 
Log Message:
comment: default_thread_name is similar to functions.lisp:function-name


Index: zthread.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/zthread.d,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -d -r1.90 -r1.91
--- zthread.d	4 Oct 2010 18:48:51 -0000	1.90
+++ zthread.d	4 Oct 2010 21:52:12 -0000	1.91
@@ -78,9 +78,10 @@
 }
 
 /* return default thread name depending on the type of function
+   cf. functions.lisp:function-name (maybe move it to C?)
  > fun: functionp object
  < returns default name to be used of none is specified */
-local object default_thread_name(object fun) {
+local object default_thread_name (object fun) {
   if (subrp(fun))
     return TheSubr(fun)->name;
   else if (cclosurep(fun))




------------------------------

Message: 4
Date: Mon, 04 Oct 2010 22:04:42 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/syscalls syscalls.xml,1.136,1.137
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/modules/syscalls
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv28802

Modified Files:
	syscalls.xml 
Log Message:
getdate: more on modules/syscalls/datemsk


Index: syscalls.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v
retrieving revision 1.136
retrieving revision 1.137
diff -u -d -r1.136 -r1.137
--- syscalls.xml	29 Sep 2010 19:50:55 -0000	1.136
+++ syscalls.xml	4 Oct 2010 22:04:40 -0000	1.137
@@ -837,6 +837,7 @@
   <function role="unix">getdate</function>.</simpara>
   <simpara>If the the &env-var; <envar>DATEMSK</envar> is not set when
    &clisp; is invoked, &clisp; sets it to point to the file
+   <filename role="clisp">modules/syscalls/datemsk</filename>, installed as
    <code>(&merge-pathnames; "syscalls/datemsk" &libdir;)</code>.
 </simpara></listitem></varlistentry></variablelist></section>
 




------------------------------

Message: 5
Date: Mon, 04 Oct 2010 22:07:25 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/syscalls calls.c,1.320,1.321
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/modules/syscalls
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29880/modules/syscalls

Modified Files:
	calls.c 
Log Message:
* modules/syscalls/calls.c (POSIX:STRING-TIME): when calling strptime,
init tm fields to reasonable values because strptime does not set
fields which are not specified by datum


Index: calls.c
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v
retrieving revision 1.320
retrieving revision 1.321
diff -u -d -r1.320 -r1.321
--- calls.c	29 Sep 2010 19:29:58 -0000	1.320
+++ calls.c	4 Oct 2010 22:07:23 -0000	1.321
@@ -569,6 +569,14 @@
   if (stringp(STACK_1)) {          /* parse: strptime */
     struct tm tm;
     unsigned int offset;
+    tm.tm_sec = 0; /* Seconds [0,60]. */
+    tm.tm_min = 0; /* Minutes [0,59]. */
+    tm.tm_hour = 0; /* Hour [0,23]. */
+    tm.tm_mday = 1; /* Day of month [1,31]. */
+    tm.tm_mon = 0; /* Month of year [0,11]. */
+    tm.tm_year = 0; /* Years since 1900. */
+    tm.tm_wday = 0; /* Day of week [0,6] (C: Sunday=0 <== CL: Monday=0 */
+    tm.tm_isdst = false; /* Daylight Savings flag. */
     with_string_0(STACK_1,GLO(misc_encoding),buf, {
         with_string_0(STACK_2,GLO(misc_encoding),format, {
             char *ret;




------------------------------

Message: 6
Date: Mon, 04 Oct 2010 22:07:25 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7546,1.7547
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv29880/src

Modified Files:
	ChangeLog 
Log Message:
* modules/syscalls/calls.c (POSIX:STRING-TIME): when calling strptime,
init tm fields to reasonable values because strptime does not set
fields which are not specified by datum


Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7546
retrieving revision 1.7547
diff -u -d -r1.7546 -r1.7547
--- ChangeLog	4 Oct 2010 18:48:51 -0000	1.7546
+++ ChangeLog	4 Oct 2010 22:07:23 -0000	1.7547
@@ -1,3 +1,9 @@
+2010-10-04  Sam Steingold  <sd...@gn...>
+
+	* modules/syscalls/calls.c (POSIX:STRING-TIME): when calling strptime,
+	init tm fields to reasonable values because strptime does not set
+	fields which are not specified by datum
+
 2010-10-04  Vladimir Tzankov  <vtz...@gm...>
 
 	* zthread.d (default_thread_name): returns name for functionp object




------------------------------

Message: 7
Date: Mon, 04 Oct 2010 22:16:06 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/syscalls test.tst,1.109,1.110
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/modules/syscalls
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv32139

Modified Files:
	test.tst 
Log Message:
add tests for string-time & getdate


Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/test.tst,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -d -r1.109 -r1.110
--- test.tst	16 Sep 2010 15:14:53 -0000	1.109
+++ test.tst	4 Oct 2010 22:16:04 -0000	1.110
@@ -34,6 +34,43 @@
   (string= string (os:string-time fmt (show (os:string-time fmt string)))))
 T
 
+;; for this to work, datum must specify _all_ fields in struct tm
+(defun check-time-date (fmt datum)
+  (let ((gd (os:getdate datum)) (st (os:string-time fmt datum)))
+    (print (list fmt datum gd (os:string-time "%Y-%m-%d %a %H:%M:%S" gd)))
+    (unless (= gd st)
+      (print (list st (os:string-time "%Y-%m-%d %a %H:%M:%S" st))))))
+CHECK-TIME-DATE
+
+(check-time-date "%m/%d/%y %I %p" "10/1/87 4 PM") NIL
+(check-time-date "%A %B %d, %Y, %H:%M:%S" "Friday September 18, 1987, 10:30:30") NIL
+(check-time-date "%d,%m,%Y %H:%M" "24,9,1986 10:30") NIL
+
+(defun check-time-date (fmt datum)
+  (declare (ignore fmt))
+  (null (show (os:string-time "%Y-%m-%d %a %H:%M:%S" (os:getdate datum)))))
+CHECK-TIME-DATE
+
+(check-time-date "%m/%d/%y" "11/27/86") NIL
+(check-time-date "%d.%m.%y" "27.11.86") NIL
+(check-time-date "%y-%m-%d" "86-11-27") NIL
+(check-time-date "%A %H:%M:%S" "Friday 12:00:00") NIL
+(check-time-date "%A" "Friday") NIL
+(check-time-date "%a" "Mon") NIL
+(check-time-date "%a" "Sun") NIL
+(check-time-date "%a" "Fri") NIL
+(check-time-date "%B" "September") NIL
+(check-time-date "%B" "January") NIL
+(check-time-date "%B" "December") NIL
+(check-time-date "%b %a" "Sep Mon") NIL
+(check-time-date "%b %a" "Jan Fri") NIL
+(check-time-date "%b %a" "Dec Mon") NIL
+(check-time-date "%b %a %Y" "Jan Wed 1989") NIL
+(check-time-date "%a %H" "Fri 9") NIL
+(check-time-date "%b %H:%S" "Feb 10:30") NIL
+(check-time-date "%H:%M" "10:30") NIL
+(check-time-date "%H:%M" "13:30") NIL
+
 #+unix
 (when (fboundp 'os:getutxent)
   (not (integerp (show (length (loop :for utmpx = (os:getutxent) :while utmpx
@@ -658,5 +695,6 @@
        (symbol-cleanup 'flush-clisp)
        (symbol-cleanup 'proc-send)
        (setq *features* (delete :no-stream-lock *features*))
+       (symbol-cleanup 'check-time-date)
        T)
 T




------------------------------

------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1,  ECMAScript5, and DOM L2 & L3.
Spend less time writing and  rewriting code and more time creating great
experiences on the web. Be a part of the beta today.
http://p.sf.net/sfu/beautyoftheweb

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 54, Issue 3
****************************************

Re: clisp-cvs Digest, Vol 54, Issue 2

[Vladimir T. <vtz...@gm...>]

On 10/4/10, Sam Steingold <sd...@gn...> wrote:
> cli...@li... wrote:
>> Index: zthread.d
>> Index: ChangeLog
>> +	* zthread.d (thread_stub): no back trace for new thread
>
> why?

Because there is no back trace.
The thread has just launched and nothing has been called yet. Till now
it was initialized like in spvw.d:3759 but this does not bring any
information - the back trace item is never used/shown.

Re: clisp-cvs Digest, Vol 54, Issue 2

[Sam S. <sd...@gn...>]

cli...@li... wrote:
> Index: zthread.d
> ===================================================================
> RCS file: /cvsroot/clisp/clisp/src/zthread.d,v
> retrieving revision 1.88
> retrieving revision 1.89
> diff -u -d -r1.88 -r1.89
> --- zthread.d	7 Jul 2010 12:29:20 -0000	1.88
> +++ zthread.d	3 Oct 2010 20:40:58 -0000	1.89
> @@ -221,14 +221,8 @@
>    set_current_thread(me); /* first: initialize TLS */
>    var struct backtrace_t bt;
>    me->_SP_anchor=(void*)SP();
> -  /* initialize backtrace */
> -  bt.bt_next = NULL;
> -  bt.bt_function = L(make_thread); /* not exactly */
> -  bt.bt_stack = STACK STACKop -1;
> -  bt.bt_num_arg = -1;
> -  back_trace = &bt;
> -  /* push the exit tag */
> -  pushSTACK(O(thread_exit_tag));
> +  back_trace = NULL; /* no back trace */
> +  pushSTACK(O(thread_exit_tag)); /* push the exit tag */
>    var gcv_object_t *initial_bindings = &STACK_1;
>    var gcv_object_t *funptr = &STACK_2;
>    /* create the thread exit CATCH frame */
> 
> Index: ChangeLog
> +	* zthread.d (thread_stub): no back trace for new thread

why?

Re: configure script - libsigsegv detection broken?

[Sam S. <sd...@gn...>]

Vladimir Sedach wrote:
> Turns out the key step I was missing was:
> 
> rm src/config.cache

it might be that what you actually need is "make distclean".

this is why I recommend passing the build directory name to configure instead 
of building in src.
then you can 'rm -rf' it.