clisp-cvs Digest, Vol 54, Issue 10

[<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/modules/wildcard configure,1.54,1.55 (Sam Steingold)
   2. clisp/modules/syscalls/gllib Makefile.in,1.27,1.28 (Sam Steingold)
   3. clisp/modules/regexp configure,1.77,1.78 (Sam Steingold)
   4. clisp/modules/regexp/gllib Makefile.in,1.24,1.25 (Sam Steingold)
   5. clisp/src makemake.in,1.958,1.959 (Sam Steingold)
   6. clisp/src ChangeLog,1.7554,1.7555 makemake.in,1.959,1.960
      (Sam Steingold)
   7. clisp/modules/editor - New directory (Sam Steingold)
   8. clisp/modules/editor Makefile, NONE, 1.1 README, NONE, 1.1
      editor.lisp,	NONE, 1.1 link.sh, NONE, 1.1 (Sam Steingold)
   9. clisp/src ChangeLog,1.7555,1.7556 (Sam Steingold)


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

Message: 1
Date: Tue, 12 Oct 2010 17:36:29 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/wildcard configure,1.54,1.55
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Modified Files:
	configure 
Log Message:
regenerate

Index: configure
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/wildcard/configure,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -d -r1.54 -r1.55
--- configure	24 Jun 2010 18:00:12 -0000	1.54
+++ configure	12 Oct 2010 17:36:27 -0000	1.55
@@ -4687,7 +4687,9 @@
 
 
   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}"
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working $gl_fnmatch_required fnmatch" >&5
 $as_echo_n "checking for working $gl_fnmatch_required fnmatch... " >&6; }




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

Message: 2
Date: Tue, 12 Oct 2010 17:36:29 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/syscalls/gllib Makefile.in,1.27,1.28
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-serv9656/modules/syscalls/gllib

Modified Files:
	Makefile.in 
Log Message:
regenerate

Index: Makefile.in
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/gllib/Makefile.in,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- Makefile.in	29 Sep 2010 18:38:53 -0000	1.27
+++ Makefile.in	12 Oct 2010 17:36:27 -0000	1.28
@@ -385,6 +385,7 @@
 PACKAGE_URL = @PACKAGE_URL@
 PACKAGE_VERSION = @PACKAGE_VERSION@
 PATH_SEPARATOR = @PATH_SEPARATOR@
+PRAGMA_COLUMNS = @PRAGMA_COLUMNS@
 PRAGMA_SYSTEM_HEADER = @PRAGMA_SYSTEM_HEADER@
 PTHREAD_H_DEFINES_STRUCT_TIMESPEC = @PTHREAD_H_DEFINES_STRUCT_TIMESPEC@
 RANLIB = @RANLIB@
@@ -982,6 +983,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' \
@@ -996,6 +998,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' \
@@ -1013,6 +1016,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' \
@@ -1052,6 +1056,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' \
@@ -1069,6 +1074,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' \
@@ -1101,6 +1107,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' \




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

Message: 3
Date: Tue, 12 Oct 2010 17:36:30 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/regexp configure,1.77,1.78
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Modified Files:
	configure 
Log Message:
regenerate

Index: configure
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/regexp/configure,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -d -r1.77 -r1.78
--- configure	15 Sep 2010 16:35:27 -0000	1.77
+++ configure	12 Oct 2010 17:36:28 -0000	1.78
@@ -718,6 +718,7 @@
 NEXT_STDLIB_H
 NEXT_AS_FIRST_DIRECTIVE_STDDEF_H
 NEXT_STDDEF_H
+PRAGMA_COLUMNS
 PRAGMA_SYSTEM_HEADER
 INCLUDE_NEXT_AS_FIRST_DIRECTIVE
 INCLUDE_NEXT
@@ -759,6 +760,7 @@
 HAVE__EXIT
 GNULIB_UNSETENV
 GNULIB_UNLOCKPT
+GNULIB_SYSTEM_POSIX
 GNULIB_STRTOULL
 GNULIB_STRTOLL
 GNULIB_STRTOD
@@ -5170,6 +5172,7 @@
   GNULIB_STRTOD=0;
   GNULIB_STRTOLL=0;
   GNULIB_STRTOULL=0;
+  GNULIB_SYSTEM_POSIX=0;
   GNULIB_UNLOCKPT=0;
   GNULIB_UNSETENV=0;
     HAVE__EXIT=1;
@@ -5464,6 +5467,37 @@
 
 
 
+  { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether system header files limit the line length" >&5
+$as_echo_n "checking whether system header files limit the line length... " >&6; }
+if test "${gl_cv_pragma_columns+set}" = set; then :
+  $as_echo_n "(cached) " >&6
+else
+       cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h.  */
+
+#ifdef __TANDEM
+choke me
+#endif
+
+_ACEOF
+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
+  $EGREP "choke me" >/dev/null 2>&1; then :
+  gl_cv_pragma_columns=yes
+else
+  gl_cv_pragma_columns=no
+fi
+rm -f conftest*
+
+
+fi
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_pragma_columns" >&5
+$as_echo "$gl_cv_pragma_columns" >&6; }
+  if test $gl_cv_pragma_columns = yes; then
+    PRAGMA_COLUMNS="#pragma COLUMNS 10000"
+  else
+    PRAGMA_COLUMNS=
+  fi
+
 
 
 




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

Message: 4
Date: Tue, 12 Oct 2010 17:36:30 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/regexp/gllib Makefile.in,1.24,1.25
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-serv9656/modules/regexp/gllib

Modified Files:
	Makefile.in 
Log Message:
regenerate

Index: Makefile.in
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/regexp/gllib/Makefile.in,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- Makefile.in	28 Sep 2010 18:58:39 -0000	1.24
+++ Makefile.in	12 Oct 2010 17:36:27 -0000	1.25
@@ -206,6 +206,7 @@
 GNULIB_STRTOULL = @GNULIB_STRTOULL@
 GNULIB_SYMLINK = @GNULIB_SYMLINK@
 GNULIB_SYMLINKAT = @GNULIB_SYMLINKAT@
+GNULIB_SYSTEM_POSIX = @GNULIB_SYSTEM_POSIX@
 GNULIB_TTYNAME_R = @GNULIB_TTYNAME_R@
 GNULIB_UNISTD_H_GETOPT = @GNULIB_UNISTD_H_GETOPT@
 GNULIB_UNISTD_H_SIGPIPE = @GNULIB_UNISTD_H_SIGPIPE@
@@ -333,6 +334,7 @@
 PACKAGE_URL = @PACKAGE_URL@
 PACKAGE_VERSION = @PACKAGE_VERSION@
 PATH_SEPARATOR = @PATH_SEPARATOR@
+PRAGMA_COLUMNS = @PRAGMA_COLUMNS@
 PRAGMA_SYSTEM_HEADER = @PRAGMA_SYSTEM_HEADER@
 RANLIB = @RANLIB@
 REPLACE_BTOWC = @REPLACE_BTOWC@
@@ -911,6 +913,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' \
@@ -925,6 +928,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' \
@@ -949,6 +953,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' \
@@ -1000,6 +1005,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' \




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

Message: 5
Date: Tue, 12 Oct 2010 18:16:56 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src makemake.in,1.958,1.959
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Modified Files:
	makemake.in 
Log Message:
more restrictive regexp for grep "define REPLACE"


Index: makemake.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/makemake.in,v
retrieving revision 1.958
retrieving revision 1.959
diff -u -d -r1.958 -r1.959
--- makemake.in	12 Oct 2010 17:06:10 -0000	1.958
+++ makemake.in	12 Oct 2010 18:16:54 -0000	1.959
@@ -3268,7 +3268,7 @@
 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
 test "${verbose}" = true -o "${verbose}" = yes && \
-  echotab 'grep "define REPLACE_.*1" `find . -name config.log` || true'
+  echotab 'grep "^#define REPLACE_.*1" `find . -name config.log` || true'
 cygwin_finish full
 
 echol "mod-check : base-mod-check full-mod-check"




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

Message: 6
Date: Tue, 12 Oct 2010 19:29:07 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7554,1.7555 makemake.in,1.959,1.960
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Modified Files:
	ChangeLog makemake.in 
Log Message:
* src/makemake.in (GLLIB_MODULE_HEADERS): some headers, e.g.,
sockets.h, are only needed by modules/*/gllib, not boot


Index: makemake.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/makemake.in,v
retrieving revision 1.959
retrieving revision 1.960
diff -u -d -r1.959 -r1.960
--- makemake.in	12 Oct 2010 18:16:54 -0000	1.959
+++ makemake.in	12 Oct 2010 19:29:04 -0000	1.960
@@ -2667,7 +2667,9 @@
 
 fi
 
-for f in localcharset.h ${UNICODE_EXTRA}; do
+# headers needed for modules/*/gllib
+GLLIB_MODULE_HEADERS="sockets.h close-hook.h"
+for f in localcharset.h ${GLLIB_MODULE_HEADERS} ${UNICODE_EXTRA}; do
   link_dep "${f}" `find ${SRCDIR}gllib/ -name ${f}`
 done
 
@@ -3179,7 +3181,7 @@
 test "${verbose}" = true -o "${verbose}" = yes && \
   echo "BUILD_AUX =${BUILD_AUX}" >&2
 
-echol "modular : ${FILES} clisp-link linkkit modules.h modules.o makevars build-aux"
+echol "modular : ${FILES} clisp-link linkkit modules.h modules.o makevars build-aux ${GLLIB_MODULE_HEADERS}"
 echodummyrule modular
 echol
 # while the top-level makevars can contain arbitrary paths in LIBS and FILES,

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7554
retrieving revision 1.7555
diff -u -d -r1.7554 -r1.7555
--- ChangeLog	12 Oct 2010 17:15:58 -0000	1.7554
+++ ChangeLog	12 Oct 2010 19:29:04 -0000	1.7555
@@ -1,5 +1,10 @@
 2010-10-12  Sam Steingold  <sd...@gn...>
 
+	* makemake.in (GLLIB_MODULE_HEADERS): some headers, e.g.,
+	sockets.h, are only needed by modules/*/gllib, not boot
+
+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:




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

Message: 7
Date: Tue, 12 Oct 2010 19:35:24 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/editor - New directory
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Log Message:
Directory /cvsroot/clisp/clisp/modules/editor added to the repository





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

Message: 8
Date: Tue, 12 Oct 2010 19:46:06 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/editor Makefile, NONE, 1.1 README, NONE, 1.1
	editor.lisp,	NONE, 1.1 link.sh, NONE, 1.1
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Added Files:
	Makefile README editor.lisp link.sh 
Log Message:
resurrect editor.lisp from 1998;
update and fix the most glaring problems; maintainer is wanted!


--- NEW FILE: README ---
This is a console text editor based on the SCREEN package and *KEYWORD-INPUT*
stream, written by Michael Stoll & Bruno Haible in 1992.

Bruno Haible removed it from CLISP in 1998 because he believed that the
era of console (i.e., non-GUI) text editors (like vi) is over.

Sam Steingold resurrected it as a module in 2010 to give SCREEN enthusiasts
something to play with.

This module is in desperate need of TLC (Tender Loving Care)
and it will not be included in the official distribution
until someone volunteers to worn on it and brings it up to date.

--- NEW FILE: editor.lisp ---
(defpackage "EDITOR" (:export #:ed) (:use "CL"))
(pushnew ':editor *features*)
(in-package "EDITOR")

;###############################################################################
;;;; Screen-Verwaltung, dritte Version
;;;;
;;;; Michael Stoll, Februar 1992
;;;; Bruno Haible, Mai 1992
;;;; Sam Steingold, September 2010
;;;;
;;;; Spezifikation siehe SCREEN2.DOC

(defvar global-screen-height) ; Höhe des Fensters
(defvar global-screen-width)  ; Breite des Fensters
(defvar blanks) ; Array voller Spaces

(defmacro with-window (&body body)
  `(SCREEN:WITH-WINDOW
[...2372 lines suppressed...]
(bind-key (list ext:char-hyper-bit :F6) :all (cursor-to-mark-fn 0) '(cursor-to-mark-doc 0))
(bind-key (list ext:char-hyper-bit :F7) :all (cursor-to-mark-fn 1) '(cursor-to-mark-doc 1))
(bind-key (list ext:char-hyper-bit :F8) :all (cursor-to-mark-fn 2) '(cursor-to-mark-doc 2))
(bind-key (list ext:char-hyper-bit :F9) :all (cursor-to-mark-fn 3) '(cursor-to-mark-doc 3))
(bind-key (list ext:char-hyper-bit :F10) :all (cursor-to-mark-fn 4) '(cursor-to-mark-doc 4))
(bind-key (list ext:char-super-bit :F6) :all (set-mark-fn 0) '(set-mark-doc 0))
(bind-key (list ext:char-super-bit :F7) :all (set-mark-fn 1) '(set-mark-doc 1))
(bind-key (list ext:char-super-bit :F8) :all (set-mark-fn 2) '(set-mark-doc 2))
(bind-key (list ext:char-super-bit :F9) :all (set-mark-fn 3) '(set-mark-doc 3))
(bind-key (list ext:char-super-bit :F10) :all (set-mark-fn 4) '(set-mark-doc 4))

;; *undo* behandeln ??
;; #\C-R für Repeat ??

;###############################################################################

(ext:without-package-lock ("EXT")
  (defun ext:edit-file (filename)
    (edit `(:LOAD ,(namestring (ext:absolute-pathname filename))))))


--- NEW FILE: Makefile ---
# Makefile for CLISP module set EDITOR

srcdir = .
CLISP = clisp -norc -q
CLISP_LINKKIT = $$($(CLISP) -b)/linkkit

LN = ln
LN_S = ln -s

MAKE = make

SHELL = /bin/sh

GENERATED = editor.fas link.sh
DISTRIBFILES = Makefile $(GENERATED) $(srcdir)/editor.lisp
distribdir =

# default target: make the module
clisp-module : $(GENERATED)

editor.fas: $(srcdir)/editor.lisp
	$(CLISP) -c $(srcdir)/editor.lisp -o ./

link.sh : $(srcdir)/link.sh
	$(LN_S) $(srcdir)/link.sh .

# Make a module distribution into $(distribdir)
clisp-module-distrib : clisp-module force
	$(LN) $(DISTRIBFILES) $(distribdir)

clean : force
	rm -f *.fas *.lib

distclean : clean

force :


--- NEW FILE: link.sh ---
${MAKE-make} clisp-module \
  CLISP_LINKKIT="$absolute_linkkitdir" CLISP="${CLISP}"
NEW_MODULES='editor'
NEW_FILES=""
NEW_LIBS=""
TO_LOAD='editor'
TO_PRELOAD=""




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

Message: 9
Date: Tue, 12 Oct 2010 19:46:06 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7555,1.7556
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Modified Files:
	ChangeLog 
Log Message:
resurrect editor.lisp from 1998;
update and fix the most glaring problems; maintainer is wanted!


Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7555
retrieving revision 1.7556
diff -u -d -r1.7555 -r1.7556
--- ChangeLog	12 Oct 2010 19:29:04 -0000	1.7555
+++ ChangeLog	12 Oct 2010 19:46:04 -0000	1.7556
@@ -1,5 +1,10 @@
 2010-10-12  Sam Steingold  <sd...@gn...>
 
+	* modules/editor: resurrect editor.lisp from 1998; update and fix
+	the most glaring problems; maintainer is wanted!
+
+2010-10-12  Sam Steingold  <sd...@gn...>
+
 	* makemake.in (GLLIB_MODULE_HEADERS): some headers, e.g.,
 	sockets.h, are only needed by modules/*/gllib, not boot
 




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

------------------------------------------------------------------------------
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 10
*****************************************