clisp-devel — closed list for developers and testers

[ clisp-Patches-3087696 ] patch for bug 3087668

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

Patches item #3087696, was opened at 2010-10-14 17:59
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=301355&aid=3087696&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: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Julian Squires (tek)
Assigned to: Arseny Slobodyuk (ampy)
Summary: patch for bug 3087668 

Initial Comment:
Bug 3087668 seems to occur because the trailing backslash in (ext:probe-pathname "C:\\") is stripped off before real_path, which means it gets interpreted as a relative path.  Additionally, FindFirstFile fails when passed a path with a trailing backslash.  The attached patch appears to fix this problem; I'm not terribly familiar with the source so hopefully it's appropriate.

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

>Comment By: Sam Steingold (sds)
Date: 2010-10-16 21:26

Message:
Arseny, I disagree,
c: means the default directory on c drive c
c:/ means the top-level directory on drive c


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

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

Message:
Thanks for the patch and investigation, Julian. I'll se how to fix the bug,
probably real_path shouldn't add the slash. As far as I can see,
(probe-pathname "C:\\") should be equivalent to (probe-pathname "C:") and
mean "drive C exists", correct me if I wrong.

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

Comment By: Julian Squires (tek)
Date: 2010-10-15 14:39

Message:
Doh.  I'm sorry, I hadn't realized the code paths I was changing weren't
all win32.  I've included an #ifdef in the patch, but at this point you
probably know a cleaner solution than I.

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

Comment By: Sam Steingold (sds)
Date: 2010-10-15 14:19

Message:
thanks for the patch.
unfortunately, it breaks clisp on unix.

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

Comment By: Julian Squires (tek)
Date: 2010-10-14 18:12

Message:
Sorry, my original patch didn't include a ChangeLog entry, and included a
few errant tabs.

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

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

[ clisp-Bugs-3088751 ] SIGSEGV and SIGABRT on large (unsigned-byte 8) arrays

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

Bugs item #3088751, was opened at 2010-10-16 19:19
Message generated for change (Comment added) made by vtz
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3088751&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: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Michael Kappert (michaelkappert)
>Assigned to: Vladimir Tzankov (vtz)
>Summary: SIGSEGV and SIGABRT on large (unsigned-byte 8) arrays 

Initial Comment:
Hi,

this is on clisp-2.49 on linux/x86_64. Offending code:

1)
(let ((a (make-array (truncate array-total-size-limit 8) :element-type '(unsigned-byte 8))))
  (aref *a* 100000))
=> Program received signal SIGSEGV, Segmentation fault.
0x000000000050adbc in storagevector_aref (datenvektor=..., index=100000) at ../src/array.d:537
2)
(let ((a (make-array (truncate array-total-size-limit 8) :element-type '(unsigned-byte 8))))
  (gc))
=> [../src/spvw_garcol.d:1146] assertion failure:
0
0

Program received signal SIGABRT, Aborted.
0x00007ffff6dfea75 in raise () from /lib/libc.so.6

array-total-size-limit is 2^32
Errors do not occur with small arrays or when element-type is T. 

libsigsegv: 2.5.3
libc6       2.11.1-0ubuntu
libc6-i386     2.11.1-0ubuntu GNU C Library: 32-bit shared libraries for A
--------------------------------------------------------------------------------
Configure findings:
  FFI:        yes (user requested: default)
  readline:   yes (user requested: default)
  libsigsegv: yes
./makemake --with-dynamic-ffi --verbose=yes  --srcdir=../src  debug > Makefile
inferred: fsstnd = debian
EXPORT_DYNAMIC_FLAG_SPEC=-Wl,--export-dynamic
# host system:
 hostname = "aguas-5"
     HSYS = "x86_64"
   HSYSOS = "linux"
      HOS = "unix"
 host_cpu = "x86_64"
      cpu = "x86_64"
  host_os = "linux-gnu"
     host = "x86_64-unknown-linux-gnu"
# target system:
     TSYS = "x86_64"
   TSYSOS = "linux"
      TOS = "unix"
BUILD_AUX = config.guess config.rpath config.sub depcomp arg-nonnull.h c++defs.h warn-on-use.h

Regards
Michael

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

>Comment By: Vladimir Tzankov (vtz)
Date: 2010-10-17 00:58

Message:
confirmed

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

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

[ clisp-Bugs-3088751 ] IGSEGV and SIGABRT on large (unsigned-byte 8) arrays

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

Bugs item #3088751, was opened at 2010-10-16 18:19
Message generated for change (Tracker Item Submitted) made by michaelkappert
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3088751&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: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Michael Kappert (michaelkappert)
Assigned to: Nobody/Anonymous (nobody)
Summary: IGSEGV and SIGABRT on large (unsigned-byte 8) arrays 

Initial Comment:
Hi,

this is on clisp-2.49 on linux/x86_64. Offending code:

1)
(let ((a (make-array (truncate array-total-size-limit 8) :element-type '(unsigned-byte 8))))
  (aref *a* 100000))
=> Program received signal SIGSEGV, Segmentation fault.
0x000000000050adbc in storagevector_aref (datenvektor=..., index=100000) at ../src/array.d:537
2)
(let ((a (make-array (truncate array-total-size-limit 8) :element-type '(unsigned-byte 8))))
  (gc))
=> [../src/spvw_garcol.d:1146] assertion failure:
0
0

Program received signal SIGABRT, Aborted.
0x00007ffff6dfea75 in raise () from /lib/libc.so.6

array-total-size-limit is 2^32
Errors do not occur with small arrays or when element-type is T. 

libsigsegv: 2.5.3
libc6       2.11.1-0ubuntu
libc6-i386     2.11.1-0ubuntu GNU C Library: 32-bit shared libraries for A
--------------------------------------------------------------------------------
Configure findings:
  FFI:        yes (user requested: default)
  readline:   yes (user requested: default)
  libsigsegv: yes
./makemake --with-dynamic-ffi --verbose=yes  --srcdir=../src  debug > Makefile
inferred: fsstnd = debian
EXPORT_DYNAMIC_FLAG_SPEC=-Wl,--export-dynamic
# host system:
 hostname = "aguas-5"
     HSYS = "x86_64"
   HSYSOS = "linux"
      HOS = "unix"
 host_cpu = "x86_64"
      cpu = "x86_64"
  host_os = "linux-gnu"
     host = "x86_64-unknown-linux-gnu"
# target system:
     TSYS = "x86_64"
   TSYSOS = "linux"
      TOS = "unix"
BUILD_AUX = config.guess config.rpath config.sub depcomp arg-nonnull.h c++defs.h warn-on-use.h

Regards
Michael

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

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

[ clisp-Patches-3087696 ] patch for bug 3087668

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

Patches item #3087696, was opened at 2010-10-15 07:59
Message generated for change (Settings changed) made by ampy
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=301355&aid=3087696&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: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Julian Squires (tek)
>Assigned to: Arseny Slobodyuk (ampy)
Summary: patch for bug 3087668 

Initial Comment:
Bug 3087668 seems to occur because the trailing backslash in (ext:probe-pathname "C:\\") is stripped off before real_path, which means it gets interpreted as a relative path.  Additionally, FindFirstFile fails when passed a path with a trailing backslash.  The attached patch appears to fix this problem; I'm not terribly familiar with the source so hopefully it's appropriate.

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

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

Message:
Thanks for the patch and investigation, Julian. I'll se how to fix the bug,
probably real_path shouldn't add the slash. As far as I can see,
(probe-pathname "C:\\") should be equivalent to (probe-pathname "C:") and
mean "drive C exists", correct me if I wrong.

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

Comment By: Julian Squires (tek)
Date: 2010-10-16 04:39

Message:
Doh.  I'm sorry, I hadn't realized the code paths I was changing weren't
all win32.  I've included an #ifdef in the patch, but at this point you
probably know a cleaner solution than I.

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

Comment By: Sam Steingold (sds)
Date: 2010-10-16 04:19

Message:
thanks for the patch.
unfortunately, it breaks clisp on unix.

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

Comment By: Julian Squires (tek)
Date: 2010-10-15 08:12

Message:
Sorry, my original patch didn't include a ChangeLog entry, and included a
few errant tabs.

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

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

Re: more on compiler warnings about unused vars

[<pj...@in...>]

don...@is... (Don Cohen) writes:

>  > You realize that the reference to b in the progn is dead code.  So it's
>  > eliminated, So b is not referenced anymore.
> Yes, but it used to at least be a useful way to avoid the warnings.
>
>  > Unfortunately, in loop, there's no place for declarations about loop's
>  > variables.  The loop macro itself could have an ignorable declaration
>  > for them but I don't remember if that would be conformant, and it would
>  > be questionnable anyways: the warning is good: did you really not make a
>  > typo?
> In all of the cases involved there was no typo.
> I ended up rewriting things like
>  (loop for x in a collect 'input) 
> to
>  (loop for x below (length a) collect 'input)
> I still have code like
>  (loop for (x y z) in a collect y)
> I really don't like to use nil there but I could.
>
>  > > I was even getting "not read" warnings from my loop extension in
>  > > cases like this
>  > >  (loop for (a b) s.t. (r a b) collect a)
>  > Too bad you don't say what s.t. is...
> such that
> in general
>  (loop for [variable list] s.t. [well formed formula] ...)
> see ap5.com for more detail

Ok.  Well, without looking at the source of the implementation of
s.t. it should be noted that in general loops may provide the variables
as a new binding in each loop iteration, in which case even if you use
it in the wff, the one you get in the body will be a new binding, and
this is probably that one that is not used.  In this case indeed, you
cannot use nil, so you must use the variable.  Perhaps like this:

(loop for (a b) s.t. (r a b)
      collect (let ((b b))
                 (declare (ignore b))  
                 a))


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

Re: more on compiler warnings about unused vars

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

Don Cohen wrote:
>  (loop for (x y z) in a collect y)
> I really don't like to use nil there but I could.

we could add (declare ignore) for all variables starting with an underscore 
(like in ocaml).
then you will be able to write
(loop for (_x y _z) in a collect y)
and see no warnings.

if you like the idea, please discuss it on c.l.l.

Re: more on compiler warnings about unused vars

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

 > You realize that the reference to b in the progn is dead code.  So it's
 > eliminated, So b is not referenced anymore.
Yes, but it used to at least be a useful way to avoid the warnings.

 > Unfortunately, in loop, there's no place for declarations about loop's
 > variables.  The loop macro itself could have an ignorable declaration
 > for them but I don't remember if that would be conformant, and it would
 > be questionnable anyways: the warning is good: did you really not make a
 > typo?
In all of the cases involved there was no typo.
I ended up rewriting things like
 (loop for x in a collect 'input) 
to
 (loop for x below (length a) collect 'input)
I still have code like
 (loop for (x y z) in a collect y)
I really don't like to use nil there but I could.

 > > I was even getting "not read" warnings from my loop extension in
 > > cases like this
 > >  (loop for (a b) s.t. (r a b) collect a)
 > Too bad you don't say what s.t. is...
such that
in general
 (loop for [variable list] s.t. [well formed formula] ...)
see ap5.com for more detail

[ clisp-Patches-3087696 ] patch for bug 3087668

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

Patches item #3087696, was opened at 2010-10-14 17:59
Message generated for change (Comment added) made by tek
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=301355&aid=3087696&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: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Julian Squires (tek)
Assigned to: Nobody/Anonymous (nobody)
Summary: patch for bug 3087668 

Initial Comment:
Bug 3087668 seems to occur because the trailing backslash in (ext:probe-pathname "C:\\") is stripped off before real_path, which means it gets interpreted as a relative path.  Additionally, FindFirstFile fails when passed a path with a trailing backslash.  The attached patch appears to fix this problem; I'm not terribly familiar with the source so hopefully it's appropriate.

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

Comment By: Julian Squires (tek)
Date: 2010-10-15 14:39

Message:
Doh.  I'm sorry, I hadn't realized the code paths I was changing weren't
all win32.  I've included an #ifdef in the patch, but at this point you
probably know a cleaner solution than I.

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

Comment By: Sam Steingold (sds)
Date: 2010-10-15 14:19

Message:
thanks for the patch.
unfortunately, it breaks clisp on unix.

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

Comment By: Julian Squires (tek)
Date: 2010-10-14 18:12

Message:
Sorry, my original patch didn't include a ChangeLog entry, and included a
few errant tabs.

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

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

[ clisp-Patches-3087696 ] patch for bug 3087668

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

Patches item #3087696, was opened at 2010-10-14 17:59
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=301355&aid=3087696&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: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Julian Squires (tek)
Assigned to: Nobody/Anonymous (nobody)
Summary: patch for bug 3087668 

Initial Comment:
Bug 3087668 seems to occur because the trailing backslash in (ext:probe-pathname "C:\\") is stripped off before real_path, which means it gets interpreted as a relative path.  Additionally, FindFirstFile fails when passed a path with a trailing backslash.  The attached patch appears to fix this problem; I'm not terribly familiar with the source so hopefully it's appropriate.

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

>Comment By: Sam Steingold (sds)
Date: 2010-10-15 14:19

Message:
thanks for the patch.
unfortunately, it breaks clisp on unix.

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

Comment By: Julian Squires (tek)
Date: 2010-10-14 18:12

Message:
Sorry, my original patch didn't include a ChangeLog entry, and included a
few errant tabs.

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

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

Re: more on compiler warnings about unused vars

[<pj...@in...>]

don...@is... (Don Cohen) writes:

> In 2.49 the following gives no warnings, in cvs it shows the two below.
> (compile nil (lambda (x)(loop for (a b c) in x collect (progn b a)))) 
> WARNING: variable B is assigned but not read 
> WARNING: variable C is assigned but not read 
>
> I had expected the warning about c but not b.

You realize that the reference to b in the progn is dead code.  So it's
eliminated, So b is not referenced anymore.

> It used to be that one could just mention a variable to avoid a
> warning about it not being used.  It seems somewhat annoying to
> lose that.
>
> I notice in both versions
> (compile nil (lambda ()(let (a b c) (progn b a)))) 
> WARNING: variable C is not used. 
>          Misspelled or missing IGNORE declaration? 
>
> I'm having a little trouble making sense of this.
> In the let b is read and written?

No, same reason as above.   I would write it as:

  (compile nil (lambda ()
                  (let (a b c)
                    (declare (ignorable b) (ignore c0))
                    (progn b a)))) 


> But in the loop it's only written?
> Are loop variables processed differently from let variables?

Unfortunately, in loop, there's no place for declarations about loop's
variables.  The loop macro itself could have an ignorable declaration
for them but I don't remember if that would be conformant, and it would
be questionnable anyways: the warning is good: did you really not make a
typo?
 
If you don't need the variable, you can use NIL instead, thanks to:


Macro LOOP

    d-var-spec::= simple-var | nil | (d-var-spec . d-var-spec) 


6.1.2.1 Iteration Control

    The variable argument in iteration control clauses can be a
    destructuring list. A destructuring list is a tree whose non-nil atoms
    are variable names. See Section 6.1.1.7 (Destructuring).


6.1.1.7 Destructuring

    If nil is used in a destructuring list, no variable is provided for its place.

So:

CL-USER> (compile nil (lambda (x)(loop for (a nil nil) in x collect (progn a))))
#<COMPILED-FUNCTION NIL>
NIL
NIL


> Is it really the case that there is no way to declare loop variables
> ignorable?  (I know that's not really a clisp issue.)

Yes.  You should avoid introducing them using nil instead.


> I was even getting "not read" warnings from my loop extension in
> cases like this
>  (loop for (a b) s.t. (r a b) collect a)

Too bad you don't say what s.t. is...


> where I really am using b and certainly cannot replace it with nil.
> I ended up changing the macro expander to declare both a and b
> ignorable.
>

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

more on compiler warnings about unused vars

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

In 2.49 the following gives no warnings, in cvs it shows the two below.
(compile nil (lambda (x)(loop for (a b c) in x collect (progn b a)))) 
WARNING: variable B is assigned but not read 
WARNING: variable C is assigned but not read 

I had expected the warning about c but not b.
It used to be that one could just mention a variable to avoid a
warning about it not being used.  It seems somewhat annoying to
lose that.

I notice in both versions
(compile nil (lambda ()(let (a b c) (progn b a)))) 
WARNING: variable C is not used. 
         Misspelled or missing IGNORE declaration? 

I'm having a little trouble making sense of this.
In the let b is read and written?
But in the loop it's only written?

Are loop variables processed differently from let variables?

Is it really the case that there is no way to declare loop variables
ignorable?  (I know that's not really a clisp issue.)
I was even getting "not read" warnings from my loop extension in
cases like this
 (loop for (a b) s.t. (r a b) collect a)
where I really am using b and certainly cannot replace it with nil.
I ended up changing the macro expander to declare both a and b
ignorable.

[ clisp-Bugs-3086793 ] double-float-epsilon (and negative) invariants don't hold

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

Bugs item #3086793, was opened at 2010-10-13 13:25
Message generated for change (Settings changed) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3086793&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: clisp
Group: ANSI compliance issue
>Status: Pending
>Resolution: Works For Me
Priority: 5
Private: No
Submitted By: Steven Harris (seh)
>Assigned to: Sam Steingold (sds)
Summary: double-float-epsilon (and negative) invariants don't hold

Initial Comment:
This problem looks similar to bug 501969, closed back in 2002.

CLISP violates the contracts specified in the Hyperspec for double-float-epsilon and double-float-negative-epsilon, though it does work fine for single-float-epsilon and single-float-negative-epsilon.
http://www.lispworks.com/documentation/HyperSpec/Body/v_short_.htm

CL-USER> (not (= (float 1 double-float-epsilon)
                         (+ (float 1.0d0 double-float-epsilon)
                             double-float-epsilon)))
NIL
CL-USER> (not (= (float 1 double-float-negative-epsilon)
                         (- (float 1 double-float-negative-epsilon)
                         double-float-negative-epsilon)))
NIL


I'm using the CLISP binary supplied by the Cygwin project on Windows XP.

% uname -a
CYGWIN_NT-5.1 PA10-5ZYH3M1 1.7.7(0.230/5/3) 2010-08-31 09:58 i686 Cygwin

% clisp --version
GNU CLISP 2.48 (2009-07-28) (built on ATGRZWN502840.avl01.avlcorp.lan [157.247.26.41])
Software: GNU C 4.3.4 20090804 (release) 1
gcc-4 -O2 -pipe  -g -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4 -DUNICODE -DDYNAMIC_FFI -I. -Wl,--stack,8388608 -Wl,--enable-auto-import  /usr/lib/libintl.dll.a /usr/lib/libiconv.dll.a /usr/lib/libreadline.dll.a -lncurses /usr/lib/libavcall.a /usr/lib/libcallback.a /usr/lib/libiconv.dll.a -L/usr/lib -lsigsegv
SAFETY=0 HEAPCODES STANDARD_HEAPCODES SPVW_PAGES SPVW_MIXED
libsigsegv 2.8
libiconv 1.13
libreadline 6.0
Features:
(READLINE REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP
 LISP=CL INTERPRETER SOCKETS GENERIC-STREAMS LOGICAL-PATHNAMES SCREEN FFI
 GETTEXT UNICODE BASE-CHAR=CHARACTER PC386 UNIX CYGWIN)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: /usr/lib/clisp-2.48/
User language: ENGLISH
Machine: I686 (I686) PA10-5ZYH3M1.gddsi.com [10.245.57.23]

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

Comment By: Sam Steingold (sds)
Date: 2010-10-14 18:33

Message:
This bug report is now marked as "pending"/"works for me".
This means that we think that we cannot reproduce the problem
and cannot do anything about it.
Unless you - the reporter - act within 2 weeks
(e.g., by submitting a self-contained test case
or answering our other recent requests),
the bug will be permanently closed.
Sorry about the inconvenience - 
we hope your silence means that 
you are no longer observing the problem either.


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

Comment By: Steven Harris (seh)
Date: 2010-10-13 19:27

Message:
Thank you, Sam. I'll have to wait for a few days before I can post to the
Cygwin mailing list, but I'll inquire there next.

By the way, I had tried to post a comment relating this problem to a
similar discussion on the CMUCL mailing list from August 2003. Perhaps my
comment was not saved properly. Here are the references again:

http://osdir.com/ml/lisp.cmucl.devel/2003-08/msg00226.html
http://osdir.com/ml/lisp.cmucl.devel/2003-08/threads.html

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

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

Message:
I cannot reproduce the problem either on linux or mingw or cygwin
(CYGWIN_NT-5.2 ... 1.5.25(0.156/4/2) 2008-06-12 19:34 i686 Cygwin) either
with cvs head or 2.48.
the forms above return T.
actually, this is tested by the regression test suite , so the cygwin
clisp maintainer should have noticed the problem before he distributed the
package.
the only difference I see between your setup and mine is that you have
cyginw 1.7 on winXP and I have cygwin 1.5 on server 2003.
I think it would be a good idea to ask the clisp cygwin maintainer about
this (ask on the cygwin mailing list).

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

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

[ clisp-Bugs-3087668 ] probe-pathname bug

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

Bugs item #3087668, was opened at 2010-10-14 16:41
Message generated for change (Comment added) made by tek
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3087668&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: clisp
Group: lisp error
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By:  jxonas (jxonas)
Assigned to: Bruno Haible (haible)
Summary: probe-pathname bug

Initial Comment:
Platform:  Windows 7 Home Premium 32
Whe I got clisp: https://sourceforge.net/project/platformdownload.php?group_id=1355&sel_platform=8418
Output of clisp --version

GNU CLISP 2.49 (2010-07-07) (built on STSst063.jenty.by [150.0.0.63])
Software: GNU C 3.4.5 (mingw-vista special r3) 
gcc -mno-cygwin -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4 -D_WIN32 -DENABLE_UNICODE -I/usr/local/include -DDYNAMIC_FFI -I. -L/usr/local/lib  -lintl /usr/local/lib/libreadline.dll.a -L/usr/local/lib -ltermcap /usr/local/lib/libavcall.a /usr/local/lib/libcallback.a -luser32 -lws2_32 -lole32 -loleaut32 -luuid -liconv -L/usr/local/lib -lsigsegv libgnu_cl.a 
SAFETY=0 HEAPCODES STANDARD_HEAPCODES GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.8
libiconv 1.13
libreadline 6.0
Features: 
(READLINE REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP LISP=CL INTERPRETER SOCKETS GENERIC-STREAMS
 LOGICAL-PATHNAMES SCREEN FFI GETTEXT UNICODE BASE-CHAR=CHARACTER PC386 WIN32)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: C:\Program Files\clisp-2.49\
User language: ENGLISH

Follow how to reproduce the error:

[15]> (ext:probe-pathname "c:/i-am-not-here")

NIL
[16]> (ext:probe-pathname "c:")

#P"C:\\home\\jonas\\" ;
#P"C:\\home\\jonas\\" ;
3496070011 ;
0
[17]> (ext:probe-pathname "c:/i-am-not-here")

NIL
[18]> (ext:probe-pathname "c:/")

*** - PROBE-PATHNAME: File #P"C:\\" does not exist
The following restarts are available:
ABORT          :R1      Abort main loop
Break 1 [19]> :r1

Best,

jxonas

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

Comment By: Julian Squires (tek)
Date: 2010-10-14 18:13

Message:
I've submitted a patch for this bug here:
 
https://sourceforge.net/tracker/?func=detail&aid=3087696&group_id=1355&atid=301355

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

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

[ clisp-Patches-3087696 ] patch for bug 3087668

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

Patches item #3087696, was opened at 2010-10-14 17:59
Message generated for change (Comment added) made by tek
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=301355&aid=3087696&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: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Julian Squires (tek)
Assigned to: Nobody/Anonymous (nobody)
Summary: patch for bug 3087668 

Initial Comment:
Bug 3087668 seems to occur because the trailing backslash in (ext:probe-pathname "C:\\") is stripped off before real_path, which means it gets interpreted as a relative path.  Additionally, FindFirstFile fails when passed a path with a trailing backslash.  The attached patch appears to fix this problem; I'm not terribly familiar with the source so hopefully it's appropriate.

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

Comment By: Julian Squires (tek)
Date: 2010-10-14 18:12

Message:
Sorry, my original patch didn't include a ChangeLog entry, and included a
few errant tabs.

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

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

[ clisp-Patches-3087696 ] patch for bug 3087668

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

Patches item #3087696, was opened at 2010-10-14 17:59
Message generated for change (Tracker Item Submitted) made by tek
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=301355&aid=3087696&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: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Julian Squires (tek)
Assigned to: Nobody/Anonymous (nobody)
Summary: patch for bug 3087668 

Initial Comment:
Bug 3087668 seems to occur because the trailing backslash in (ext:probe-pathname "C:\\") is stripped off before real_path, which means it gets interpreted as a relative path.  Additionally, FindFirstFile fails when passed a path with a trailing backslash.  The attached patch appears to fix this problem; I'm not terribly familiar with the source so hopefully it's appropriate.

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

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

[ clisp-Bugs-3087668 ] probe-pathname bug

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

Bugs item #3087668, was opened at 2010-10-14 17:41
Message generated for change (Tracker Item Submitted) made by jxonas
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3087668&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: clisp
Group: lisp error
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By:  jxonas (jxonas)
Assigned to: Bruno Haible (haible)
Summary: probe-pathname bug

Initial Comment:
Platform:  Windows 7 Home Premium 32
Whe I got clisp: https://sourceforge.net/project/platformdownload.php?group_id=1355&sel_platform=8418
Output of clisp --version

GNU CLISP 2.49 (2010-07-07) (built on STSst063.jenty.by [150.0.0.63])
Software: GNU C 3.4.5 (mingw-vista special r3) 
gcc -mno-cygwin -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4 -D_WIN32 -DENABLE_UNICODE -I/usr/local/include -DDYNAMIC_FFI -I. -L/usr/local/lib  -lintl /usr/local/lib/libreadline.dll.a -L/usr/local/lib -ltermcap /usr/local/lib/libavcall.a /usr/local/lib/libcallback.a -luser32 -lws2_32 -lole32 -loleaut32 -luuid -liconv -L/usr/local/lib -lsigsegv libgnu_cl.a 
SAFETY=0 HEAPCODES STANDARD_HEAPCODES GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.8
libiconv 1.13
libreadline 6.0
Features: 
(READLINE REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP LISP=CL INTERPRETER SOCKETS GENERIC-STREAMS
 LOGICAL-PATHNAMES SCREEN FFI GETTEXT UNICODE BASE-CHAR=CHARACTER PC386 WIN32)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: C:\Program Files\clisp-2.49\
User language: ENGLISH

Follow how to reproduce the error:

[15]> (ext:probe-pathname "c:/i-am-not-here")

NIL
[16]> (ext:probe-pathname "c:")

#P"C:\\home\\jonas\\" ;
#P"C:\\home\\jonas\\" ;
3496070011 ;
0
[17]> (ext:probe-pathname "c:/i-am-not-here")

NIL
[18]> (ext:probe-pathname "c:/")

*** - PROBE-PATHNAME: File #P"C:\\" does not exist
The following restarts are available:
ABORT          :R1      Abort main loop
Break 1 [19]> :r1

Best,

jxonas

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

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

[ clisp-Bugs-3086793 ] double-float-epsilon (and negative) invariants don't hold

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

Bugs item #3086793, was opened at 2010-10-13 17:25
Message generated for change (Comment added) made by seh
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3086793&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: clisp
Group: ANSI compliance issue
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Steven Harris (seh)
Assigned to: Bruno Haible (haible)
Summary: double-float-epsilon (and negative) invariants don't hold

Initial Comment:
This problem looks similar to bug 501969, closed back in 2002.

CLISP violates the contracts specified in the Hyperspec for double-float-epsilon and double-float-negative-epsilon, though it does work fine for single-float-epsilon and single-float-negative-epsilon.
http://www.lispworks.com/documentation/HyperSpec/Body/v_short_.htm

CL-USER> (not (= (float 1 double-float-epsilon)
                         (+ (float 1.0d0 double-float-epsilon)
                             double-float-epsilon)))
NIL
CL-USER> (not (= (float 1 double-float-negative-epsilon)
                         (- (float 1 double-float-negative-epsilon)
                         double-float-negative-epsilon)))
NIL


I'm using the CLISP binary supplied by the Cygwin project on Windows XP.

% uname -a
CYGWIN_NT-5.1 PA10-5ZYH3M1 1.7.7(0.230/5/3) 2010-08-31 09:58 i686 Cygwin

% clisp --version
GNU CLISP 2.48 (2009-07-28) (built on ATGRZWN502840.avl01.avlcorp.lan [157.247.26.41])
Software: GNU C 4.3.4 20090804 (release) 1
gcc-4 -O2 -pipe  -g -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4 -DUNICODE -DDYNAMIC_FFI -I. -Wl,--stack,8388608 -Wl,--enable-auto-import  /usr/lib/libintl.dll.a /usr/lib/libiconv.dll.a /usr/lib/libreadline.dll.a -lncurses /usr/lib/libavcall.a /usr/lib/libcallback.a /usr/lib/libiconv.dll.a -L/usr/lib -lsigsegv
SAFETY=0 HEAPCODES STANDARD_HEAPCODES SPVW_PAGES SPVW_MIXED
libsigsegv 2.8
libiconv 1.13
libreadline 6.0
Features:
(READLINE REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP
 LISP=CL INTERPRETER SOCKETS GENERIC-STREAMS LOGICAL-PATHNAMES SCREEN FFI
 GETTEXT UNICODE BASE-CHAR=CHARACTER PC386 UNIX CYGWIN)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: /usr/lib/clisp-2.48/
User language: ENGLISH
Machine: I686 (I686) PA10-5ZYH3M1.gddsi.com [10.245.57.23]

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

>Comment By: Steven Harris (seh)
Date: 2010-10-13 23:27

Message:
Thank you, Sam. I'll have to wait for a few days before I can post to the
Cygwin mailing list, but I'll inquire there next.

By the way, I had tried to post a comment relating this problem to a
similar discussion on the CMUCL mailing list from August 2003. Perhaps my
comment was not saved properly. Here are the references again:

http://osdir.com/ml/lisp.cmucl.devel/2003-08/msg00226.html
http://osdir.com/ml/lisp.cmucl.devel/2003-08/threads.html

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

Comment By: Sam Steingold (sds)
Date: 2010-10-13 17:44

Message:
I cannot reproduce the problem either on linux or mingw or cygwin
(CYGWIN_NT-5.2 ... 1.5.25(0.156/4/2) 2008-06-12 19:34 i686 Cygwin) either
with cvs head or 2.48.
the forms above return T.
actually, this is tested by the regression test suite , so the cygwin
clisp maintainer should have noticed the problem before he distributed the
package.
the only difference I see between your setup and mine is that you have
cyginw 1.7 on winXP and I have cygwin 1.5 on server 2003.
I think it would be a good idea to ask the clisp cygwin maintainer about
this (ask on the cygwin mailing list).

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

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

Re: syscalls build error

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

Yaroslav Kavenchuk wrote:
> next bug:
> 
> make[4]: Entering directory
> `/home/src/clisp/clisp/build-full-debug/syscalls/gllib'
> 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/clisp/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_WIN32
> -g -O0 -DDEBUG_OS_ERROR -DDEBUG_SPVW -DDEBUG_BYTECODE -DSAFETY=3
> -DENABLE_UNICODE -DDYNAMIC_FFI -I.
> -IG:\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
> gcc.exe: dummy.o: No such file or directory

I see a pretty much identical command line and it succeeds.

> why -IG:\gnu\home\src\clisp\clisp\build-full-debug\ 

interesting...

> and why -MT dummy.o -MD ?

dunno

Re: syscalls build error

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

next bug:

make[4]: Entering directory
`/home/src/clisp/clisp/build-full-debug/syscalls/gllib'
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/clisp/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_WIN32
-g -O0 -DDEBUG_OS_ERROR -DDEBUG_SPVW -DDEBUG_BYTECODE -DSAFETY=3
-DENABLE_UNICODE -DDYNAMIC_FFI -I.
-IG:\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
gcc.exe: dummy.o: No such file or directory

why -IG:\gnu\home\src\clisp\clisp\build-full-debug\ and why -MT dummy.o -MD ?

-- 
WBR, Yaroslav Kavenchuk

[ clisp-Bugs-3086793 ] double-float-epsilon (and negative) invariants don't hold

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

Bugs item #3086793, was opened at 2010-10-13 13:25
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3086793&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: clisp
Group: ANSI compliance issue
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Steven Harris (seh)
Assigned to: Bruno Haible (haible)
Summary: double-float-epsilon (and negative) invariants don't hold

Initial Comment:
This problem looks similar to bug 501969, closed back in 2002.

CLISP violates the contracts specified in the Hyperspec for double-float-epsilon and double-float-negative-epsilon, though it does work fine for single-float-epsilon and single-float-negative-epsilon.
http://www.lispworks.com/documentation/HyperSpec/Body/v_short_.htm

CL-USER> (not (= (float 1 double-float-epsilon)
                         (+ (float 1.0d0 double-float-epsilon)
                             double-float-epsilon)))
NIL
CL-USER> (not (= (float 1 double-float-negative-epsilon)
                         (- (float 1 double-float-negative-epsilon)
                         double-float-negative-epsilon)))
NIL


I'm using the CLISP binary supplied by the Cygwin project on Windows XP.

% uname -a
CYGWIN_NT-5.1 PA10-5ZYH3M1 1.7.7(0.230/5/3) 2010-08-31 09:58 i686 Cygwin

% clisp --version
GNU CLISP 2.48 (2009-07-28) (built on ATGRZWN502840.avl01.avlcorp.lan [157.247.26.41])
Software: GNU C 4.3.4 20090804 (release) 1
gcc-4 -O2 -pipe  -g -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4 -DUNICODE -DDYNAMIC_FFI -I. -Wl,--stack,8388608 -Wl,--enable-auto-import  /usr/lib/libintl.dll.a /usr/lib/libiconv.dll.a /usr/lib/libreadline.dll.a -lncurses /usr/lib/libavcall.a /usr/lib/libcallback.a /usr/lib/libiconv.dll.a -L/usr/lib -lsigsegv
SAFETY=0 HEAPCODES STANDARD_HEAPCODES SPVW_PAGES SPVW_MIXED
libsigsegv 2.8
libiconv 1.13
libreadline 6.0
Features:
(READLINE REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP
 LISP=CL INTERPRETER SOCKETS GENERIC-STREAMS LOGICAL-PATHNAMES SCREEN FFI
 GETTEXT UNICODE BASE-CHAR=CHARACTER PC386 UNIX CYGWIN)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: /usr/lib/clisp-2.48/
User language: ENGLISH
Machine: I686 (I686) PA10-5ZYH3M1.gddsi.com [10.245.57.23]

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

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

Message:
I cannot reproduce the problem either on linux or mingw or cygwin
(CYGWIN_NT-5.2 ... 1.5.25(0.156/4/2) 2008-06-12 19:34 i686 Cygwin) either
with cvs head or 2.48.
the forms above return T.
actually, this is tested by the regression test suite , so the cygwin
clisp maintainer should have noticed the problem before he distributed the
package.
the only difference I see between your setup and mine is that you have
cyginw 1.7 on winXP and I have cygwin 1.5 on server 2003.
I think it would be a good idea to ask the clisp cygwin maintainer about
this (ask on the cygwin mailing list).

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

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

[ clisp-Bugs-3086793 ] double-float-epsilon (and negative) invariants don't hold

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

Bugs item #3086793, was opened at 2010-10-13 17:25
Message generated for change (Tracker Item Submitted) made by seh
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3086793&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: clisp
Group: ANSI compliance issue
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Steven Harris (seh)
Assigned to: Bruno Haible (haible)
Summary: double-float-epsilon (and negative) invariants don't hold

Initial Comment:
This problem looks similar to bug 501969, closed back in 2002.

CLISP violates the contracts specified in the Hyperspec for double-float-epsilon and double-float-negative-epsilon, though it does work fine for single-float-epsilon and single-float-negative-epsilon.
http://www.lispworks.com/documentation/HyperSpec/Body/v_short_.htm

CL-USER> (not (= (float 1 double-float-epsilon)
                         (+ (float 1.0d0 double-float-epsilon)
                             double-float-epsilon)))
NIL
CL-USER> (not (= (float 1 double-float-negative-epsilon)
                         (- (float 1 double-float-negative-epsilon)
                         double-float-negative-epsilon)))
NIL


I'm using the CLISP binary supplied by the Cygwin project on Windows XP.

% uname -a
CYGWIN_NT-5.1 PA10-5ZYH3M1 1.7.7(0.230/5/3) 2010-08-31 09:58 i686 Cygwin

% clisp --version
GNU CLISP 2.48 (2009-07-28) (built on ATGRZWN502840.avl01.avlcorp.lan [157.247.26.41])
Software: GNU C 4.3.4 20090804 (release) 1
gcc-4 -O2 -pipe  -g -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4 -DUNICODE -DDYNAMIC_FFI -I. -Wl,--stack,8388608 -Wl,--enable-auto-import  /usr/lib/libintl.dll.a /usr/lib/libiconv.dll.a /usr/lib/libreadline.dll.a -lncurses /usr/lib/libavcall.a /usr/lib/libcallback.a /usr/lib/libiconv.dll.a -L/usr/lib -lsigsegv
SAFETY=0 HEAPCODES STANDARD_HEAPCODES SPVW_PAGES SPVW_MIXED
libsigsegv 2.8
libiconv 1.13
libreadline 6.0
Features:
(READLINE REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP
 LISP=CL INTERPRETER SOCKETS GENERIC-STREAMS LOGICAL-PATHNAMES SCREEN FFI
 GETTEXT UNICODE BASE-CHAR=CHARACTER PC386 UNIX CYGWIN)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: /usr/lib/clisp-2.48/
User language: ENGLISH
Machine: I686 (I686) PA10-5ZYH3M1.gddsi.com [10.245.57.23]

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

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

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

[ 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-12 15:48

Message:
ok, so I am awaiting stream.d patches from edgar :-)
meanwhile, you can play with the old clisp screen editor from the 1990-ies
in modules/ediitor
unless someone wants to work on it, it will be removed before the next
release

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

Comment By: edgar-rft (edgar-rft)
Date: 2010-10-12 01: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-11 20: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-11 20: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 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

Re: syscalls build error

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

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

sorry, my fault, should be fixed now.
please try with the current head.

clisp-cvs Digest, Vol 54, Issue 9

[<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/gllib Makefile.am, 1.36, 1.37 errno.in.h, 1.1,	1.2
      langinfo.in.h, 1.3, 1.4 malloca.c, 1.1, 1.2 stddef.in.h, 1.3,	1.4
      stdint.in.h, 1.10, 1.11 stdlib.in.h, 1.10, 1.11 string.in.h,	1.9,
      1.10 sys_socket.in.h, 1.1, 1.2 sys_time.in.h, 1.6,	1.7
      sys_wait.in.h, 1.2, 1.3 unistd.in.h, 1.19, 1.20 wchar.in.h,	1.10,
      1.11 wctype.in.h, 1.11, 1.12 (Sam Steingold)
   2. clisp/src/gllib Makefile.in,1.44,1.45 (Sam Steingold)
   3. clisp/modules/syscalls configure,1.121,1.122 (Sam Steingold)
   4. clisp/modules/i18n configure,1.38,1.39 (Sam Steingold)
   5. clisp/src configure,1.282,1.283 aclocal.m4,1.101,1.102
      (Sam Steingold)


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

Message: 1
Date: Tue, 12 Oct 2010 17:16:00 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src/gllib Makefile.am, 1.36, 1.37 errno.in.h, 1.1,	1.2
	langinfo.in.h, 1.3, 1.4 malloca.c, 1.1, 1.2 stddef.in.h, 1.3,	1.4
	stdint.in.h, 1.10, 1.11 stdlib.in.h, 1.10, 1.11 string.in.h,	1.9, 1.10
	sys_socket.in.h, 1.1, 1.2 sys_time.in.h, 1.6,	1.7 sys_wait.in.h, 1.2,
	1.3 unistd.in.h, 1.19, 1.20 wchar.in.h,	1.10, 1.11 wctype.in.h, 1.11,
	1.12
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Modified Files:
	Makefile.am errno.in.h langinfo.in.h malloca.c stddef.in.h 
	stdint.in.h stdlib.in.h string.in.h sys_socket.in.h 
	sys_time.in.h sys_wait.in.h unistd.in.h wchar.in.h wctype.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: langinfo.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/langinfo.in.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- langinfo.in.h	15 Sep 2010 16:16:25 -0000	1.3
+++ langinfo.in.h	12 Oct 2010 17:15:58 -0000	1.4
@@ -25,6 +25,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 /* The include_next requires a split double-inclusion guard.  */
 #if @HAVE_LANGINFO_H@

Index: stdlib.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/stdlib.in.h,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- stdlib.in.h	27 Sep 2010 22:07:20 -0000	1.10
+++ stdlib.in.h	12 Oct 2010 17:15:58 -0000	1.11
@@ -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
-_gl_GL_WARN_ON_USE (canonicalize_file_name, "canonicalize_file_name is unportable - "
+_gl_GL_WARN_ON_USE (canonicalize_file_name,
+                 "canonicalize_file_name is unportable - "
                  "use gnulib module canonicalize-lgpl for portability");
 # endif
 #endif

Index: string.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/string.in.h,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- string.in.h	15 Sep 2010 16:16:25 -0000	1.9
+++ string.in.h	12 Oct 2010 17:15:58 -0000	1.10
@@ -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_STRING_H@
@@ -50,8 +51,8 @@
 #endif
 
 /* NetBSD 5.0 declares strsignal in <unistd.h>, not in <string.h>.  */
-/* But avoid namespace pollution on glibc systems.  */
-#if (@GNULIB_STRSIGNAL@ || defined GNULIB_POSIXCHECK)  \
+/* But in any case avoid namespace pollution on glibc systems.  */
+#if (@GNULIB_STRSIGNAL@ || defined GNULIB_POSIXCHECK) && defined __NetBSD__ \
     && ! defined __GLIBC__
 # include <unistd.h>
 #endif

Index: sys_wait.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/sys_wait.in.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sys_wait.in.h	29 Sep 2010 18:38:53 -0000	1.2
+++ sys_wait.in.h	12 Oct 2010 17:15:58 -0000	1.3
@@ -21,6 +21,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 /* The include_next requires a split double-inclusion guard.  */
 #if !((defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__)

Index: errno.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/errno.in.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- errno.in.h	1 Sep 2010 22:21:33 -0000	1.1
+++ errno.in.h	12 Oct 2010 17:15:58 -0000	1.2
@@ -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_ERRNO_H@
@@ -98,6 +99,7 @@
 
 /* On OpenBSD 4.0 and on native Windows, the macros ENOMSG, EIDRM, ENOLINK,
    EPROTO, EMULTIHOP, EBADMSG, EOVERFLOW, ENOTSUP, ECANCELED are not defined.
+   Likewise, on NonStop Kernel, EDQUOT is not defined.
    Define them here.  Values >= 2000 seem safe to use: Solaris ESTALE = 151,
    HP-UX EWOULDBLOCK = 246, IRIX EDQUOT = 1133.
 
@@ -150,6 +152,11 @@
 #  define GNULIB_defined_ESTALE 1
 # endif
 
+# ifndef EDQUOT
+#  define EDQUOT 2010
+#  define GNULIB_defined_EDQUOT 1
+# endif
+
 # ifndef ECANCELED
 #  define ECANCELED 2008
 #  define GNULIB_defined_ECANCELED 1

Index: unistd.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/unistd.in.h,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- unistd.in.h	1 Sep 2010 20:26:40 -0000	1.19
+++ unistd.in.h	12 Oct 2010 17:15:58 -0000	1.20
@@ -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/src/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: sys_time.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/sys_time.in.h,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- sys_time.in.h	1 Sep 2010 20:26:40 -0000	1.6
+++ sys_time.in.h	12 Oct 2010 17:15:58 -0000	1.7
@@ -21,6 +21,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 #if defined _gl_GL_SYS_TIME_H
 

Index: stdint.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/stdint.in.h,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- stdint.in.h	18 May 2010 18:36:45 -0000	1.10
+++ stdint.in.h	12 Oct 2010 17:15:58 -0000	1.11
@@ -26,6 +26,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 /* When including a system file that in turn includes <inttypes.h>,
    use the system <inttypes.h>, not our substitute.  This avoids
@@ -278,7 +279,8 @@
 /* Verify that intmax_t and uintmax_t have the same size.  Too much code
    breaks if this is not the case.  If this check fails, the reason is likely
    to be found in the autoconf macros.  */
-typedef int _verify_intmax_size[2 * (sizeof (intmax_t) == sizeof (uintmax_t)) - 1];
+typedef int _verify_intmax_size[sizeof (intmax_t) == sizeof (uintmax_t)
+                                ? 1 : -1];
 
 /* 7.18.2. Limits of specified-width integer types */
 
@@ -475,8 +477,9 @@
 
 /* wchar_t limits */
 /* Get WCHAR_MIN, WCHAR_MAX.
-   This include is not on the top, above, because on OSF/1 4.0 we have a sequence of nested
-   includes <wchar.h> -> <stdio.h> -> <getopt.h> -> <stdlib.h>, and the latter includes
+   This include is not on the top, above, because on OSF/1 4.0 we have a
+   sequence of nested includes
+   <wchar.h> -> <stdio.h> -> <getopt.h> -> <stdlib.h>, and the latter includes
    <stdint.h> and assumes its types are already defined.  */
 #if ! (defined WCHAR_MIN && defined WCHAR_MAX)
 # define _gl_GL_JUST_INCLUDE_SYSTEM_WCHAR_H

Index: malloca.c
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/malloca.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- malloca.c	27 Sep 2010 22:07:20 -0000	1.1
+++ malloca.c	12 Oct 2010 17:15:58 -0000	1.2
@@ -21,6 +21,8 @@
 /* Specification.  */
 #include "malloca.h"
 
+#include "verify.h"
+
 /* Use the system functions, not the gnulib overrides in this file.  */
 #undef malloc
 
@@ -53,8 +55,7 @@
 #define HEADER_SIZE \
   (((sizeof (struct preliminary_header) + sa_alignment_max - 1) / sa_alignment_max) * sa_alignment_max)
 struct header { void *next; char room[HEADER_SIZE - sizeof (struct preliminary_header) + MAGIC_SIZE]; };
-/* Verify that HEADER_SIZE == sizeof (struct header).  */
-typedef int verify1[2 * (HEADER_SIZE == sizeof (struct header)) - 1];
+verify (HEADER_SIZE == sizeof (struct header));
 /* We make the hash table quite big, so that during lookups the probability
    of empty hash buckets is quite high.  There is no need to make the hash
    table resizable, because when the hash table gets filled so much that the

Index: sys_socket.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/sys_socket.in.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- sys_socket.in.h	1 Sep 2010 22:21:33 -0000	1.1
+++ sys_socket.in.h	12 Oct 2010 17:15:58 -0000	1.2
@@ -26,6 +26,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 #if defined _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. */
 

Index: wctype.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/wctype.in.h,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- wctype.in.h	15 Sep 2010 16:16:25 -0000	1.11
+++ wctype.in.h	12 Oct 2010 17:15:58 -0000	1.12
@@ -31,6 +31,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 #if @HAVE_WINT_T@
 /* Solaris 2.5 has a bug: <wchar.h> must be included before <wctype.h>.

Index: Makefile.am
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/Makefile.am,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- Makefile.am	29 Sep 2010 18:38:53 -0000	1.36
+++ Makefile.am	12 Oct 2010 17:15:58 -0000	1.37
@@ -200,6 +200,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_ERRNO_H''@|$(NEXT_ERRNO_H)|g' \
 	      -e 's|@''EMULTIHOP_HIDDEN''@|$(EMULTIHOP_HIDDEN)|g' \
 	      -e 's|@''EMULTIHOP_VALUE''@|$(EMULTIHOP_VALUE)|g' \
@@ -288,6 +289,7 @@
 	  sed -e 's|@''HAVE_LANGINFO_H''@|$(HAVE_LANGINFO_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_LANGINFO_H''@|$(NEXT_LANGINFO_H)|g' \
 	      -e 's|@''GNULIB_NL_LANGINFO''@|$(GNULIB_NL_LANGINFO)|g' \
 	      -e 's|@''HAVE_LANGINFO_CODESET''@|$(HAVE_LANGINFO_CODESET)|g' \
@@ -480,6 +482,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' \
@@ -504,6 +507,7 @@
 	  sed -e 's/@''HAVE_STDINT_H''@/$(HAVE_STDINT_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_STDINT_H''@|$(NEXT_STDINT_H)|g' \
 	      -e 's/@''HAVE_SYS_TYPES_H''@/$(HAVE_SYS_TYPES_H)/g' \
 	      -e 's/@''HAVE_INTTYPES_H''@/$(HAVE_INTTYPES_H)/g' \
@@ -545,6 +549,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' \
@@ -569,6 +574,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' \
@@ -635,6 +641,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_STRING_H''@|$(NEXT_STRING_H)|g' \
 	      -e 's|@''GNULIB_MBSLEN''@|$(GNULIB_MBSLEN)|g' \
 	      -e 's|@''GNULIB_MBSNLEN''@|$(GNULIB_MBSNLEN)|g' \
@@ -732,6 +739,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' \
@@ -781,6 +789,7 @@
 	  sed -e 's/@''HAVE_SYS_TIME_H''@/$(HAVE_SYS_TIME_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_TIME_H''@|$(NEXT_SYS_TIME_H)|g' \
 	      -e 's/@''GNULIB_GETTIMEOFDAY''@/$(GNULIB_GETTIMEOFDAY)/g' \
 	      -e 's/@''HAVE_GETTIMEOFDAY''@/$(HAVE_GETTIMEOFDAY)/g' \
@@ -810,6 +819,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_WAIT_H''@|$(NEXT_SYS_WAIT_H)|g' \
 	      -e 's|@''GNULIB_WAITPID''@|$(GNULIB_WAITPID)|g' \
 	      -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \
@@ -862,6 +872,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' \
@@ -1062,6 +1073,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_WCHAR_H''@|$(NEXT_WCHAR_H)|g' \
 	      -e 's|@''HAVE_WCHAR_H''@|$(HAVE_WCHAR_H)|g' \
 	      -e 's|@''GNULIB_BTOWC''@|$(GNULIB_BTOWC)|g' \
@@ -1123,6 +1135,7 @@
 	  sed -e 's/@''HAVE_WCTYPE_H''@/$(HAVE_WCTYPE_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_WCTYPE_H''@|$(NEXT_WCTYPE_H)|g' \
 	      -e 's/@''HAVE_ISWBLANK''@/$(HAVE_ISWBLANK)/g' \
 	      -e 's/@''HAVE_ISWCNTRL''@/$(HAVE_ISWCNTRL)/g' \

Index: wchar.in.h
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/wchar.in.h,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- wchar.in.h	18 May 2010 18:36:45 -0000	1.10
+++ wchar.in.h	12 Oct 2010 17:15:58 -0000	1.11
@@ -29,6 +29,7 @@
 #if __GNUC__ >= 3
 @PRAGMA_SYSTEM_HEADER@
 #endif
+@PRAGMA_COLUMNS@
 
 #if defined __need_mbstate_t || defined __need_wint_t || (defined __hpux && ((defined _INTTYPES_INCLUDED && !defined strtoimax) || defined _gl_GL_JUST_INCLUDE_SYSTEM_WCHAR_H)) || defined _gl_GL_ALREADY_INCLUDING_WCHAR_H
 /* Special invocation convention:




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

Message: 2
Date: Tue, 12 Oct 2010 17:36:29 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src/gllib Makefile.in,1.44,1.45
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Modified Files:
	Makefile.in 
Log Message:
regenerate

Index: Makefile.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gllib/Makefile.in,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- Makefile.in	29 Sep 2010 18:38:53 -0000	1.44
+++ Makefile.in	12 Oct 2010 17:36:27 -0000	1.45
@@ -296,6 +296,7 @@
 GNULIB_STRVERSCMP = @GNULIB_STRVERSCMP@
 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@
@@ -527,6 +528,7 @@
 PACKAGE_VERSION = @PACKAGE_VERSION@
 PATH_SEPARATOR = @PATH_SEPARATOR@
 POSUB = @POSUB@
+PRAGMA_COLUMNS = @PRAGMA_COLUMNS@
 PRAGMA_SYSTEM_HEADER = @PRAGMA_SYSTEM_HEADER@
 PS2PDF = @PS2PDF@
 PTRDIFF_T_SUFFIX = @PTRDIFF_T_SUFFIX@
@@ -1297,6 +1299,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_ERRNO_H''@|$(NEXT_ERRNO_H)|g' \
 	      -e 's|@''EMULTIHOP_HIDDEN''@|$(EMULTIHOP_HIDDEN)|g' \
 	      -e 's|@''EMULTIHOP_VALUE''@|$(EMULTIHOP_VALUE)|g' \
@@ -1316,6 +1319,7 @@
 	  sed -e 's|@''HAVE_LANGINFO_H''@|$(HAVE_LANGINFO_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_LANGINFO_H''@|$(NEXT_LANGINFO_H)|g' \
 	      -e 's|@''GNULIB_NL_LANGINFO''@|$(GNULIB_NL_LANGINFO)|g' \
 	      -e 's|@''HAVE_LANGINFO_CODESET''@|$(HAVE_LANGINFO_CODESET)|g' \
@@ -1405,6 +1409,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' \
@@ -1420,6 +1425,7 @@
 	  sed -e 's/@''HAVE_STDINT_H''@/$(HAVE_STDINT_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_STDINT_H''@|$(NEXT_STDINT_H)|g' \
 	      -e 's/@''HAVE_SYS_TYPES_H''@/$(HAVE_SYS_TYPES_H)/g' \
 	      -e 's/@''HAVE_INTTYPES_H''@/$(HAVE_INTTYPES_H)/g' \
@@ -1452,6 +1458,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' \
@@ -1476,6 +1483,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' \
@@ -1526,6 +1534,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_STRING_H''@|$(NEXT_STRING_H)|g' \
 	      -e 's|@''GNULIB_MBSLEN''@|$(GNULIB_MBSLEN)|g' \
 	      -e 's|@''GNULIB_MBSNLEN''@|$(GNULIB_MBSNLEN)|g' \
@@ -1608,6 +1617,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' \
@@ -1647,6 +1657,7 @@
 	  sed -e 's/@''HAVE_SYS_TIME_H''@/$(HAVE_SYS_TIME_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_TIME_H''@|$(NEXT_SYS_TIME_H)|g' \
 	      -e 's/@''GNULIB_GETTIMEOFDAY''@/$(GNULIB_GETTIMEOFDAY)/g' \
 	      -e 's/@''HAVE_GETTIMEOFDAY''@/$(HAVE_GETTIMEOFDAY)/g' \
@@ -1667,6 +1678,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_WAIT_H''@|$(NEXT_SYS_WAIT_H)|g' \
 	      -e 's|@''GNULIB_WAITPID''@|$(GNULIB_WAITPID)|g' \
 	      -e '/definitions of _gl_GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \
@@ -1690,6 +1702,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' \
@@ -1828,6 +1841,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_WCHAR_H''@|$(NEXT_WCHAR_H)|g' \
 	      -e 's|@''HAVE_WCHAR_H''@|$(HAVE_WCHAR_H)|g' \
 	      -e 's|@''GNULIB_BTOWC''@|$(GNULIB_BTOWC)|g' \
@@ -1880,6 +1894,7 @@
 	  sed -e 's/@''HAVE_WCTYPE_H''@/$(HAVE_WCTYPE_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_WCTYPE_H''@|$(NEXT_WCTYPE_H)|g' \
 	      -e 's/@''HAVE_ISWBLANK''@/$(HAVE_ISWBLANK)/g' \
 	      -e 's/@''HAVE_ISWCNTRL''@/$(HAVE_ISWCNTRL)/g' \




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

Message: 3
Date: Tue, 12 Oct 2010 17:36:30 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/syscalls configure,1.121,1.122
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-serv9656/modules/syscalls

Modified Files:
	configure 
Log Message:
regenerate

Index: configure
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/configure,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -d -r1.121 -r1.122
--- configure	29 Sep 2010 18:38:53 -0000	1.121
+++ configure	12 Oct 2010 17:36:27 -0000	1.122
@@ -722,6 +722,7 @@
 HAVE_STRCASECMP
 NEXT_AS_FIRST_DIRECTIVE_STDDEF_H
 NEXT_STDDEF_H
+PRAGMA_COLUMNS
 PRAGMA_SYSTEM_HEADER
 INCLUDE_NEXT_AS_FIRST_DIRECTIVE
 INCLUDE_NEXT
@@ -6318,6 +6319,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
+
 
 
 
@@ -6433,6 +6465,9 @@
 #if !defined ESTALE
 booboo
 #endif
+#if !defined EDQUOT
+booboo
+#endif
 #if !defined ECANCELED
 booboo
 #endif




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

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

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

Modified Files:
	configure 
Log Message:
regenerate

Index: configure
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/i18n/configure,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- configure	15 Sep 2010 16:35:27 -0000	1.38
+++ configure	12 Oct 2010 17:36:28 -0000	1.39
@@ -604,6 +604,7 @@
 HAVE_LANGINFO_H
 NEXT_AS_FIRST_DIRECTIVE_LANGINFO_H
 NEXT_LANGINFO_H
+PRAGMA_COLUMNS
 PRAGMA_SYSTEM_HEADER
 INCLUDE_NEXT_AS_FIRST_DIRECTIVE
 INCLUDE_NEXT
@@ -3846,6 +3847,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: 5
Date: Tue, 12 Oct 2010 17:36:29 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src configure,1.282,1.283 aclocal.m4,1.101,1.102
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Modified Files:
	configure aclocal.m4 
Log Message:
regenerate

Index: aclocal.m4
===================================================================
RCS file: /cvsroot/clisp/clisp/src/aclocal.m4,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -d -r1.101 -r1.102
--- aclocal.m4	29 Sep 2010 18:38:53 -0000	1.101
+++ aclocal.m4	12 Oct 2010 17:36:27 -0000	1.102
@@ -1006,7 +1006,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],
@@ -3615,8 +3617,8 @@
   undefine([gt_cv_var])
 ])
 
-# 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.
@@ -3654,6 +3656,9 @@
 #if !defined ESTALE
 booboo
 #endif
+#if !defined EDQUOT
+booboo
+#endif
 #if !defined ECANCELED
 booboo
 #endif
@@ -5714,7 +5719,7 @@
   fi
 ])
 
-# 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,
@@ -5740,6 +5745,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],
 [
@@ -5814,6 +5826,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 ...)
@@ -10416,7 +10446,7 @@
 # indent-tabs-mode: nil
 # End:
 
-# 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,
@@ -10491,6 +10521,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: configure
===================================================================
RCS file: /cvsroot/clisp/clisp/src/configure,v
retrieving revision 1.282
retrieving revision 1.283
diff -u -d -r1.282 -r1.283
--- configure	29 Sep 2010 18:38:53 -0000	1.282
+++ configure	12 Oct 2010 17:36:27 -0000	1.283
@@ -769,6 +769,7 @@
 HAVE__EXIT
 GNULIB_UNSETENV
 GNULIB_UNLOCKPT
+GNULIB_SYSTEM_POSIX
 GNULIB_STRTOULL
 GNULIB_STRTOLL
 GNULIB_STRTOD
@@ -933,6 +934,7 @@
 ERRNO_H
 NEXT_AS_FIRST_DIRECTIVE_ERRNO_H
 NEXT_ERRNO_H
+PRAGMA_COLUMNS
 PRAGMA_SYSTEM_HEADER
 INCLUDE_NEXT_AS_FIRST_DIRECTIVE
 INCLUDE_NEXT
@@ -13144,6 +13146,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
+
 
 
 
@@ -13204,6 +13237,9 @@
 #if !defined ESTALE
 booboo
 #endif
+#if !defined EDQUOT
+booboo
+#endif
 #if !defined ECANCELED
 booboo
 #endif
@@ -14986,6 +15022,7 @@
   GNULIB_STRTOD=0;
   GNULIB_STRTOLL=0;
   GNULIB_STRTOULL=0;
+  GNULIB_SYSTEM_POSIX=0;
   GNULIB_UNLOCKPT=0;
   GNULIB_UNSETENV=0;
     HAVE__EXIT=1;




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

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