clisp-devel — closed list for developers and testers

[ clisp-Bugs-3407260 ] linux:tcsetattr fails - ffi problem

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

Bugs item #3407260, was opened at 2011-09-10 13:41
Message generated for change (Comment added) made by jbparker1
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3407260&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: Brad Parker (jbparker1)
Assigned to: Bruno Haible (haible)
Summary: linux:tcsetattr fails - ffi problem

Initial Comment:
I'm using the stock clisp on ubuntu 9.1 (which is admitted, old).
The linux:tcsettattr call fails with an ffi problem.

sorry if this has been fixed.

Welcome to GNU CLISP 2.44.1 (2008-02-23) <http://clisp.cons.org/>

(let* ((descriptor (linux:open "/dev/ttyS0" ;;(device port)
			       (logior linux:O_RDWR linux:O_NDELAY)
			       (logior linux:S_IRUSR linux:S_IWUSR)))
       (attributes (get-attributes descriptor)))
  (linux:tcsetattr descriptor linux:TCSANOW (linux:tcgetattr descriptor)))

*** - FFI::FOREIGN-CALL-OUT: Illegal foreign data type "tcflag_t"


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

>Comment By: Brad Parker (jbparker1)
Date: 2011-09-14 06:07

Message:
Right.  I see that.  But you're not doing what I did.

linux:txgetattr returns a structure.

linix:tcsetattr takes a structure.

what you did, namely:

Break 1 [4]>
[9]> (linux:tcsetattr 4 linux:TCSANOW (nth-value 1 (linux:tcgetattr 4)))
-1

does not send a structure to linux:tcsetattr.  So, it failed and returned
an error (-1).

I want you to try this:

(linux:tcsetattr 4 linux:TCSANOW  (linux:tcgetattr 4))

Which will send the entire output of tcgetattr to tcsetattr.  That is what
I did and that is what failed.

thanks



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

Comment By: Sam Steingold (sds)
Date: 2011-09-14 00:20

Message:
[1]> (linux:open "/dev/ttyS0" ;;(device port)
                             (logior linux:O_RDWR linux:O_NDELAY)
                             (logior linux:S_IRUSR linux:S_IWUSR)))
4
[2]> (linux:tcgetattr 4)
-1 ;
#S(LINUX:termios :C_IFLAG 0 :C_OFLAG 0 :C_CFLAG 0 :C_LFLAG 0 :C_LINE 0
   :C_CC #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0)
   :C_ISPEED 0 :C_OSPEED 0)
[3]> (linux:tcsetattr 4 linux:TCSANOW -1)

*** - FFI::FOREIGN-CALL-OUT: -1 cannot be converted to the foreign type
       #(FFI:C-STRUCT LINUX:termios NIL
         #(LINUX::c_iflag LINUX::c_oflag LINUX::c_cflag LINUX::c_lflag
           LINUX::c_line LINUX::c_cc LINUX::c_ispeed LINUX::c_ospeed)
         #<COMPILED-FUNCTION LINUX:make-termios> #1="tcflag_t" #1# #1#
#1#
         #2="cc_t" #(FFI:C-ARRAY #2# 32) #3="speed_t" #3#)

Break 1 [4]> 
[9]> (linux:tcsetattr 4 linux:TCSANOW (nth-value 1 (linux:tcgetattr 4)))
-1

i.e., I do not get the 'illegal foreign data type" error.

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

Comment By: Brad Parker (jbparker1)
Date: 2011-09-13 20:22

Message:
it's the tcsetattr that is failing;

can you try this:

(linux:tcsetattr descriptor linux:TCSANOW (linux:tcgetattr descriptor))

That is what is failing - it returns "*** - FFI::FOREIGN-CALL-OUT: Illegal
foreign data type "tcflag_t""


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

Comment By: Sam Steingold (sds)
Date: 2011-09-13 18:31

Message:
I do not have the "get-attributes" function.
here is what I see with the current hg head:

[1]> (linux:open "/dev/ttyS0" ;;(device port)
                              (logior linux:O_RDWR linux:O_NDELAY)
                              (logior linux:S_IRUSR linux:S_IWUSR)))
4
[2]> (linux:tcgetattr 4)
-1 ;
#S(LINUX:termios :C_IFLAG 0 :C_OFLAG 0 :C_CFLAG 0 :C_LFLAG 0 :C_LINE 0
   :C_CC #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0)
   :C_ISPEED 0 :C_OSPEED 0)
[3]> 

is this reasonable?

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

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

[ clisp-Bugs-3407260 ] linux:tcsetattr fails - ffi problem

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

Bugs item #3407260, was opened at 2011-09-10 13:41
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3407260&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: Brad Parker (jbparker1)
Assigned to: Bruno Haible (haible)
Summary: linux:tcsetattr fails - ffi problem

Initial Comment:
I'm using the stock clisp on ubuntu 9.1 (which is admitted, old).
The linux:tcsettattr call fails with an ffi problem.

sorry if this has been fixed.

Welcome to GNU CLISP 2.44.1 (2008-02-23) <http://clisp.cons.org/>

(let* ((descriptor (linux:open "/dev/ttyS0" ;;(device port)
			       (logior linux:O_RDWR linux:O_NDELAY)
			       (logior linux:S_IRUSR linux:S_IWUSR)))
       (attributes (get-attributes descriptor)))
  (linux:tcsetattr descriptor linux:TCSANOW (linux:tcgetattr descriptor)))

*** - FFI::FOREIGN-CALL-OUT: Illegal foreign data type "tcflag_t"


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

>Comment By: Sam Steingold (sds)
Date: 2011-09-14 00:20

Message:
[1]> (linux:open "/dev/ttyS0" ;;(device port)
                             (logior linux:O_RDWR linux:O_NDELAY)
                             (logior linux:S_IRUSR linux:S_IWUSR)))
4
[2]> (linux:tcgetattr 4)
-1 ;
#S(LINUX:termios :C_IFLAG 0 :C_OFLAG 0 :C_CFLAG 0 :C_LFLAG 0 :C_LINE 0
   :C_CC #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0)
   :C_ISPEED 0 :C_OSPEED 0)
[3]> (linux:tcsetattr 4 linux:TCSANOW -1)

*** - FFI::FOREIGN-CALL-OUT: -1 cannot be converted to the foreign type
       #(FFI:C-STRUCT LINUX:termios NIL
         #(LINUX::c_iflag LINUX::c_oflag LINUX::c_cflag LINUX::c_lflag
           LINUX::c_line LINUX::c_cc LINUX::c_ispeed LINUX::c_ospeed)
         #<COMPILED-FUNCTION LINUX:make-termios> #1="tcflag_t" #1# #1#
#1#
         #2="cc_t" #(FFI:C-ARRAY #2# 32) #3="speed_t" #3#)

Break 1 [4]> 
[9]> (linux:tcsetattr 4 linux:TCSANOW (nth-value 1 (linux:tcgetattr 4)))
-1

i.e., I do not get the 'illegal foreign data type" error.

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

Comment By: Brad Parker (jbparker1)
Date: 2011-09-13 20:22

Message:
it's the tcsetattr that is failing;

can you try this:

(linux:tcsetattr descriptor linux:TCSANOW (linux:tcgetattr descriptor))

That is what is failing - it returns "*** - FFI::FOREIGN-CALL-OUT: Illegal
foreign data type "tcflag_t""


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

Comment By: Sam Steingold (sds)
Date: 2011-09-13 18:31

Message:
I do not have the "get-attributes" function.
here is what I see with the current hg head:

[1]> (linux:open "/dev/ttyS0" ;;(device port)
                              (logior linux:O_RDWR linux:O_NDELAY)
                              (logior linux:S_IRUSR linux:S_IWUSR)))
4
[2]> (linux:tcgetattr 4)
-1 ;
#S(LINUX:termios :C_IFLAG 0 :C_OFLAG 0 :C_CFLAG 0 :C_LFLAG 0 :C_LINE 0
   :C_CC #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0)
   :C_ISPEED 0 :C_OSPEED 0)
[3]> 

is this reasonable?

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

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

[ clisp-Bugs-3407260 ] linux:tcsetattr fails - ffi problem

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

Bugs item #3407260, was opened at 2011-09-10 13:41
Message generated for change (Comment added) made by jbparker1
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3407260&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: Brad Parker (jbparker1)
Assigned to: Bruno Haible (haible)
Summary: linux:tcsetattr fails - ffi problem

Initial Comment:
I'm using the stock clisp on ubuntu 9.1 (which is admitted, old).
The linux:tcsettattr call fails with an ffi problem.

sorry if this has been fixed.

Welcome to GNU CLISP 2.44.1 (2008-02-23) <http://clisp.cons.org/>

(let* ((descriptor (linux:open "/dev/ttyS0" ;;(device port)
			       (logior linux:O_RDWR linux:O_NDELAY)
			       (logior linux:S_IRUSR linux:S_IWUSR)))
       (attributes (get-attributes descriptor)))
  (linux:tcsetattr descriptor linux:TCSANOW (linux:tcgetattr descriptor)))

*** - FFI::FOREIGN-CALL-OUT: Illegal foreign data type "tcflag_t"


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

>Comment By: Brad Parker (jbparker1)
Date: 2011-09-13 20:22

Message:
it's the tcsetattr that is failing;

can you try this:

(linux:tcsetattr descriptor linux:TCSANOW (linux:tcgetattr descriptor))

That is what is failing - it returns "*** - FFI::FOREIGN-CALL-OUT: Illegal
foreign data type "tcflag_t""


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

Comment By: Sam Steingold (sds)
Date: 2011-09-13 18:31

Message:
I do not have the "get-attributes" function.
here is what I see with the current hg head:

[1]> (linux:open "/dev/ttyS0" ;;(device port)
                              (logior linux:O_RDWR linux:O_NDELAY)
                              (logior linux:S_IRUSR linux:S_IWUSR)))
4
[2]> (linux:tcgetattr 4)
-1 ;
#S(LINUX:termios :C_IFLAG 0 :C_OFLAG 0 :C_CFLAG 0 :C_LFLAG 0 :C_LINE 0
   :C_CC #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0)
   :C_ISPEED 0 :C_OSPEED 0)
[3]> 

is this reasonable?

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

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

[ clisp-Bugs-3405120 ] probe-pathname set :newest version

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

Bugs item #3405120, was opened at 2011-09-06 11:12
Message generated for change (Comment added) made by gabalz
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3405120&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: Invalid
Priority: 5
Private: No
Submitted By: Gabor Balazs (gabalz)
Assigned to: Sam Steingold (sds)
Summary: probe-pathname set :newest version

Initial Comment:

$ clisp --version
GNU CLISP 2.49 (2010-07-07) (built 3519331083) (memory 3519302729)
Software: GNU C 4.4.5 
gcc -O2 -march=core2 -fomit-frame-pointer -pipe -Wa,--noexecstack -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O -falign-functions=4 -DENABLE_UNICODE -DDYNAMIC_FFI -I. -Wl,-O1 -Wl,--as-needed  /usr/lib64/libreadline.so -lncurses -ldl /usr/lib64/libavcall.a /usr/lib64/libcallback.a  -L/usr/lib64 -lsigsegv -L/usr/lib64 -lc libgnu_cl.a 
SAFETY=0 TYPECODES WIDE_HARD GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.8
libreadline 6.1
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 WORD-SIZE=64 PC386 UNIX)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: /usr/lib64/clisp-2.49/
User language: ENGLISH
Machine: X86_64 (X86_64) localhost [127.0.0.1]

The problem:

probe-pathname sets the version field to :NEWEST, and so this pathname is never EQUAL to another one returned by PATHNAME.

(pathname-version (probe-pathname "/tmp/"))
:NEWEST ; this should be NIL

(equal (probe-pathname "/tmp/") (pathname "/tmp/"))
NIL

Furthermore, MAKE-PATHNAME does not initializes the VERSION slot in the following case:

(defparameter *path* (probe-pathname "/tmp/"))
*PATH*

(pathname-version (make-pathname :version NIL :defaults *path*))
:NEWEST ; this should be NIL

This workaround can be done, but this is ugly:

(pathname-version (make-pathname :version NIL :name (pathname-name *path*) :defaults *path*))
NIL


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

>Comment By: Gabor Balazs (gabalz)
Date: 2011-09-13 17:38

Message:
I see your point, but I think there are still problems.

Problem #1:

http://www.lispworks.com/documentation/HyperSpec/Body/f_merge_.htm
The standard says: "If pathname does not specify a name, then the version,
if not provided, will come from default-pathname, just like the other
components."

(pathname-version (merge-pathnames "dir/" "/tmp/"))
:NEWEST ; so this should be NIL

as fortunately
(pathname-version "/tmp/")
NIL

Problem #2: 

(pathname-version (probe-pathname "/tmp/file"))
NIL

(pathname-version (probe-pathname "/tmp/dir/"))
NIL

(pathname-version (probe-pathname "/tmp/"))
:NEWEST ; should be NIL

I think CLISP should be consistent here. Why does it return :NEWEST in the
last case?

Problem #3:

(pathname-version (car (directory "/tmp/*/")))
NIL

(pathname-version (car (directory "/tmp/*")))
:NEWEST

Is there any way to let CLISP's directory function return NIL in this last
case?
Otherwise I have to convert all the file pathnames if I want consistency.
Eg, I want to compare pathnames with the equal function.


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

Comment By: Sam Steingold (sds)
Date: 2011-09-13 16:39

Message:
http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/fun_merge-pathnames.html
default-version---a valid pathname version. The default is :newest

i.e., whenever pathnames are merged without an explicit default-version
argument, 
the result will have the :newest version unless the original pathnames
have non-trivial versions
which is unlikely because no modern filesystem has a notion of a version
built-in.

i.e., the behavior you are complaining about is mandated by the standard.
moreover, it is at least somewhat useful because it lets you know whether
the pathname is a result of a merge with *default-pathname-defaults* or of
raw parsing.


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

Comment By: Sam Steingold (sds)
Date: 2011-09-13 16:39

Message:
This bug report is now marked as "pending"/"invalid".
This means that we think that the problem you report is not a problem with
CLISP.
Unless you - the reporter - act within 2 weeks, the bug will be
permanently closed.
Sorry about the inconvenience - we hope your silence means that you agree
that this is not a bug in CLISP.

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

Comment By: Gabor Balazs (gabalz)
Date: 2011-09-11 15:23

Message:
Furthermore,

(pathname-version (pathname "/tmp/"))
NIL ; ok
(pathname-version (pathname "dir/"))
NIL ; ok
(pathname-version (pathname "file"))
NIL ; ok

(pathname-version (merge-pathnames "dir/" "/tmp/"))
:NEWEST ; should be NIL!
(pathname-version (merge-pathnames "file" "/tmp/"))
:NEWEST ; should be NIL!


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

Comment By: Gabor Balazs (gabalz)
Date: 2011-09-11 14:31

Message:
Unfortunately, there is even more related bugs like this.

(length (directory "/tmp/*/"))
13

(length (directory "/tmp/*"))
7

So my /tmp directory has files and directories too, then:

(pathname-version (car (directory "/tmp/*/")))
NIL ; correct

(pathname-version (car (directory "/tmp/*")))
:NEWEST ; should be NIL!

But the file pathname creation seems to be good

(pathname-version (pathname "does-not-exist.dne"))
NIL


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

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

[ clisp-Bugs-3407931 ] Trying to install in OS X Lion with MacPorts.

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

Bugs item #3407931, was opened at 2011-09-11 22:07
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3407931&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: segfault
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: John Nesky (shaktool)
Assigned to: Bruno Haible (haible)
Summary: Trying to install in OS X Lion with MacPorts.

Initial Comment:
We're having some trouble here:
https://trac.macports.org/ticket/30338
It seems to partially build, but it randomly segfaults while compiling lisp files during the installation, and the person who knows about macports says that we should notify the CLISP developers. Can we help troubleshoot this?

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

>Comment By: Sam Steingold (sds)
Date: 2011-09-13 18:50

Message:
please take a look at the end of unix/PLATFORMS.

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

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

[ clisp-Bugs-3405120 ] probe-pathname set :newest version

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

Bugs item #3405120, was opened at 2011-09-06 13:12
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3405120&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: Pending
>Resolution: Invalid
Priority: 5
Private: No
Submitted By: Gabor Balazs (gabalz)
>Assigned to: Sam Steingold (sds)
Summary: probe-pathname set :newest version

Initial Comment:

$ clisp --version
GNU CLISP 2.49 (2010-07-07) (built 3519331083) (memory 3519302729)
Software: GNU C 4.4.5 
gcc -O2 -march=core2 -fomit-frame-pointer -pipe -Wa,--noexecstack -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O -falign-functions=4 -DENABLE_UNICODE -DDYNAMIC_FFI -I. -Wl,-O1 -Wl,--as-needed  /usr/lib64/libreadline.so -lncurses -ldl /usr/lib64/libavcall.a /usr/lib64/libcallback.a  -L/usr/lib64 -lsigsegv -L/usr/lib64 -lc libgnu_cl.a 
SAFETY=0 TYPECODES WIDE_HARD GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.8
libreadline 6.1
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 WORD-SIZE=64 PC386 UNIX)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: /usr/lib64/clisp-2.49/
User language: ENGLISH
Machine: X86_64 (X86_64) localhost [127.0.0.1]

The problem:

probe-pathname sets the version field to :NEWEST, and so this pathname is never EQUAL to another one returned by PATHNAME.

(pathname-version (probe-pathname "/tmp/"))
:NEWEST ; this should be NIL

(equal (probe-pathname "/tmp/") (pathname "/tmp/"))
NIL

Furthermore, MAKE-PATHNAME does not initializes the VERSION slot in the following case:

(defparameter *path* (probe-pathname "/tmp/"))
*PATH*

(pathname-version (make-pathname :version NIL :defaults *path*))
:NEWEST ; this should be NIL

This workaround can be done, but this is ugly:

(pathname-version (make-pathname :version NIL :name (pathname-name *path*) :defaults *path*))
NIL


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

>Comment By: Sam Steingold (sds)
Date: 2011-09-13 18:39

Message:
http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/fun_merge-pathnames.html
default-version---a valid pathname version. The default is :newest

i.e., whenever pathnames are merged without an explicit default-version
argument, 
the result will have the :newest version unless the original pathnames
have non-trivial versions
which is unlikely because no modern filesystem has a notion of a version
built-in.

i.e., the behavior you are complaining about is mandated by the standard.
moreover, it is at least somewhat useful because it lets you know whether
the pathname is a result of a merge with *default-pathname-defaults* or of
raw parsing.


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

Comment By: Sam Steingold (sds)
Date: 2011-09-13 18:39

Message:
This bug report is now marked as "pending"/"invalid".
This means that we think that the problem you report is not a problem with
CLISP.
Unless you - the reporter - act within 2 weeks, the bug will be
permanently closed.
Sorry about the inconvenience - we hope your silence means that you agree
that this is not a bug in CLISP.

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

Comment By: Gabor Balazs (gabalz)
Date: 2011-09-11 17:23

Message:
Furthermore,

(pathname-version (pathname "/tmp/"))
NIL ; ok
(pathname-version (pathname "dir/"))
NIL ; ok
(pathname-version (pathname "file"))
NIL ; ok

(pathname-version (merge-pathnames "dir/" "/tmp/"))
:NEWEST ; should be NIL!
(pathname-version (merge-pathnames "file" "/tmp/"))
:NEWEST ; should be NIL!


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

Comment By: Gabor Balazs (gabalz)
Date: 2011-09-11 16:31

Message:
Unfortunately, there is even more related bugs like this.

(length (directory "/tmp/*/"))
13

(length (directory "/tmp/*"))
7

So my /tmp directory has files and directories too, then:

(pathname-version (car (directory "/tmp/*/")))
NIL ; correct

(pathname-version (car (directory "/tmp/*")))
:NEWEST ; should be NIL!

But the file pathname creation seems to be good

(pathname-version (pathname "does-not-exist.dne"))
NIL


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

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

[ clisp-Bugs-3407260 ] linux:tcsetattr fails - ffi problem

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

Bugs item #3407260, was opened at 2011-09-10 13:41
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3407260&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: Brad Parker (jbparker1)
Assigned to: Bruno Haible (haible)
Summary: linux:tcsetattr fails - ffi problem

Initial Comment:
I'm using the stock clisp on ubuntu 9.1 (which is admitted, old).
The linux:tcsettattr call fails with an ffi problem.

sorry if this has been fixed.

Welcome to GNU CLISP 2.44.1 (2008-02-23) <http://clisp.cons.org/>

(let* ((descriptor (linux:open "/dev/ttyS0" ;;(device port)
			       (logior linux:O_RDWR linux:O_NDELAY)
			       (logior linux:S_IRUSR linux:S_IWUSR)))
       (attributes (get-attributes descriptor)))
  (linux:tcsetattr descriptor linux:TCSANOW (linux:tcgetattr descriptor)))

*** - FFI::FOREIGN-CALL-OUT: Illegal foreign data type "tcflag_t"


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

>Comment By: Sam Steingold (sds)
Date: 2011-09-13 18:31

Message:
I do not have the "get-attributes" function.
here is what I see with the current hg head:

[1]> (linux:open "/dev/ttyS0" ;;(device port)
                              (logior linux:O_RDWR linux:O_NDELAY)
                              (logior linux:S_IRUSR linux:S_IWUSR)))
4
[2]> (linux:tcgetattr 4)
-1 ;
#S(LINUX:termios :C_IFLAG 0 :C_OFLAG 0 :C_CFLAG 0 :C_LFLAG 0 :C_LINE 0
   :C_CC #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0)
   :C_ISPEED 0 :C_OSPEED 0)
[3]> 

is this reasonable?

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

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

[ clisp-Bugs-3407931 ] Trying to install in OS X Lion with MacPorts.

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

Bugs item #3407931, was opened at 2011-09-11 19:07
Message generated for change (Tracker Item Submitted) made by shaktool
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3407931&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: segfault
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: John Nesky (shaktool)
Assigned to: Bruno Haible (haible)
Summary: Trying to install in OS X Lion with MacPorts.

Initial Comment:
We're having some trouble here:
https://trac.macports.org/ticket/30338
It seems to partially build, but it randomly segfaults while compiling lisp files during the installation, and the person who knows about macports says that we should notify the CLISP developers. Can we help troubleshoot this?

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

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

[ clisp-Bugs-3405120 ] probe-pathname set :newest version

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

Bugs item #3405120, was opened at 2011-09-06 11:12
Message generated for change (Comment added) made by gabalz
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3405120&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: Gabor Balazs (gabalz)
Assigned to: Bruno Haible (haible)
Summary: probe-pathname set :newest version

Initial Comment:

$ clisp --version
GNU CLISP 2.49 (2010-07-07) (built 3519331083) (memory 3519302729)
Software: GNU C 4.4.5 
gcc -O2 -march=core2 -fomit-frame-pointer -pipe -Wa,--noexecstack -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O -falign-functions=4 -DENABLE_UNICODE -DDYNAMIC_FFI -I. -Wl,-O1 -Wl,--as-needed  /usr/lib64/libreadline.so -lncurses -ldl /usr/lib64/libavcall.a /usr/lib64/libcallback.a  -L/usr/lib64 -lsigsegv -L/usr/lib64 -lc libgnu_cl.a 
SAFETY=0 TYPECODES WIDE_HARD GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.8
libreadline 6.1
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 WORD-SIZE=64 PC386 UNIX)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: /usr/lib64/clisp-2.49/
User language: ENGLISH
Machine: X86_64 (X86_64) localhost [127.0.0.1]

The problem:

probe-pathname sets the version field to :NEWEST, and so this pathname is never EQUAL to another one returned by PATHNAME.

(pathname-version (probe-pathname "/tmp/"))
:NEWEST ; this should be NIL

(equal (probe-pathname "/tmp/") (pathname "/tmp/"))
NIL

Furthermore, MAKE-PATHNAME does not initializes the VERSION slot in the following case:

(defparameter *path* (probe-pathname "/tmp/"))
*PATH*

(pathname-version (make-pathname :version NIL :defaults *path*))
:NEWEST ; this should be NIL

This workaround can be done, but this is ugly:

(pathname-version (make-pathname :version NIL :name (pathname-name *path*) :defaults *path*))
NIL


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

>Comment By: Gabor Balazs (gabalz)
Date: 2011-09-11 15:23

Message:
Furthermore,

(pathname-version (pathname "/tmp/"))
NIL ; ok
(pathname-version (pathname "dir/"))
NIL ; ok
(pathname-version (pathname "file"))
NIL ; ok

(pathname-version (merge-pathnames "dir/" "/tmp/"))
:NEWEST ; should be NIL!
(pathname-version (merge-pathnames "file" "/tmp/"))
:NEWEST ; should be NIL!


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

Comment By: Gabor Balazs (gabalz)
Date: 2011-09-11 14:31

Message:
Unfortunately, there is even more related bugs like this.

(length (directory "/tmp/*/"))
13

(length (directory "/tmp/*"))
7

So my /tmp directory has files and directories too, then:

(pathname-version (car (directory "/tmp/*/")))
NIL ; correct

(pathname-version (car (directory "/tmp/*")))
:NEWEST ; should be NIL!

But the file pathname creation seems to be good

(pathname-version (pathname "does-not-exist.dne"))
NIL


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

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

[ clisp-Bugs-3405120 ] probe-pathname set :newest version

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

Bugs item #3405120, was opened at 2011-09-06 11:12
Message generated for change (Comment added) made by gabalz
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3405120&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: Gabor Balazs (gabalz)
Assigned to: Bruno Haible (haible)
Summary: probe-pathname set :newest version

Initial Comment:

$ clisp --version
GNU CLISP 2.49 (2010-07-07) (built 3519331083) (memory 3519302729)
Software: GNU C 4.4.5 
gcc -O2 -march=core2 -fomit-frame-pointer -pipe -Wa,--noexecstack -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O -falign-functions=4 -DENABLE_UNICODE -DDYNAMIC_FFI -I. -Wl,-O1 -Wl,--as-needed  /usr/lib64/libreadline.so -lncurses -ldl /usr/lib64/libavcall.a /usr/lib64/libcallback.a  -L/usr/lib64 -lsigsegv -L/usr/lib64 -lc libgnu_cl.a 
SAFETY=0 TYPECODES WIDE_HARD GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.8
libreadline 6.1
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 WORD-SIZE=64 PC386 UNIX)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: /usr/lib64/clisp-2.49/
User language: ENGLISH
Machine: X86_64 (X86_64) localhost [127.0.0.1]

The problem:

probe-pathname sets the version field to :NEWEST, and so this pathname is never EQUAL to another one returned by PATHNAME.

(pathname-version (probe-pathname "/tmp/"))
:NEWEST ; this should be NIL

(equal (probe-pathname "/tmp/") (pathname "/tmp/"))
NIL

Furthermore, MAKE-PATHNAME does not initializes the VERSION slot in the following case:

(defparameter *path* (probe-pathname "/tmp/"))
*PATH*

(pathname-version (make-pathname :version NIL :defaults *path*))
:NEWEST ; this should be NIL

This workaround can be done, but this is ugly:

(pathname-version (make-pathname :version NIL :name (pathname-name *path*) :defaults *path*))
NIL


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

>Comment By: Gabor Balazs (gabalz)
Date: 2011-09-11 14:31

Message:
Unfortunately, there is even more related bugs like this.

(length (directory "/tmp/*/"))
13

(length (directory "/tmp/*"))
7

So my /tmp directory has files and directories too, then:

(pathname-version (car (directory "/tmp/*/")))
NIL ; correct

(pathname-version (car (directory "/tmp/*")))
:NEWEST ; should be NIL!

But the file pathname creation seems to be good

(pathname-version (pathname "does-not-exist.dne"))
NIL


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

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

[ clisp-Bugs-3407260 ] linux:tcsetattr fails - ffi problem

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

Bugs item #3407260, was opened at 2011-09-10 13:41
Message generated for change (Tracker Item Submitted) made by jbparker1
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3407260&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: Brad Parker (jbparker1)
Assigned to: Bruno Haible (haible)
Summary: linux:tcsetattr fails - ffi problem

Initial Comment:
I'm using the stock clisp on ubuntu 9.1 (which is admitted, old).
The linux:tcsettattr call fails with an ffi problem.

sorry if this has been fixed.

Welcome to GNU CLISP 2.44.1 (2008-02-23) <http://clisp.cons.org/>

(let* ((descriptor (linux:open "/dev/ttyS0" ;;(device port)
			       (logior linux:O_RDWR linux:O_NDELAY)
			       (logior linux:S_IRUSR linux:S_IWUSR)))
       (attributes (get-attributes descriptor)))
  (linux:tcsetattr descriptor linux:TCSANOW (linux:tcgetattr descriptor)))

*** - FFI::FOREIGN-CALL-OUT: Illegal foreign data type "tcflag_t"


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

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

[ clisp-Bugs-3405120 ] probe-pathname set :newest version

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

Bugs item #3405120, was opened at 2011-09-06 11:12
Message generated for change (Tracker Item Submitted) made by gabalz
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3405120&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: Gabor Balazs (gabalz)
Assigned to: Bruno Haible (haible)
Summary: probe-pathname set :newest version

Initial Comment:

$ clisp --version
GNU CLISP 2.49 (2010-07-07) (built 3519331083) (memory 3519302729)
Software: GNU C 4.4.5 
gcc -O2 -march=core2 -fomit-frame-pointer -pipe -Wa,--noexecstack -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -Wno-format-nonliteral -O -falign-functions=4 -DENABLE_UNICODE -DDYNAMIC_FFI -I. -Wl,-O1 -Wl,--as-needed  /usr/lib64/libreadline.so -lncurses -ldl /usr/lib64/libavcall.a /usr/lib64/libcallback.a  -L/usr/lib64 -lsigsegv -L/usr/lib64 -lc libgnu_cl.a 
SAFETY=0 TYPECODES WIDE_HARD GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.8
libreadline 6.1
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 WORD-SIZE=64 PC386 UNIX)
C Modules: (clisp i18n syscalls regexp readline)
Installation directory: /usr/lib64/clisp-2.49/
User language: ENGLISH
Machine: X86_64 (X86_64) localhost [127.0.0.1]

The problem:

probe-pathname sets the version field to :NEWEST, and so this pathname is never EQUAL to another one returned by PATHNAME.

(pathname-version (probe-pathname "/tmp/"))
:NEWEST ; this should be NIL

(equal (probe-pathname "/tmp/") (pathname "/tmp/"))
NIL

Furthermore, MAKE-PATHNAME does not initializes the VERSION slot in the following case:

(defparameter *path* (probe-pathname "/tmp/"))
*PATH*

(pathname-version (make-pathname :version NIL :defaults *path*))
:NEWEST ; this should be NIL

This workaround can be done, but this is ugly:

(pathname-version (make-pathname :version NIL :name (pathname-name *path*) :defaults *path*))
NIL


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

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

clisp-cvs Digest, Vol 63, Issue 13

[<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: * makemake.in (clisp.rc) [win32]: add version
      information... (cli...@li...)
   2. clisp: * src/makemake.in (MODULE_CPPFLAGS_VAR): remove
      (cli...@li...)
   3. clisp: * src/clisp.rc.in: extract from src/makemake.in
      (cli...@li...)
   4. clisp: add interface to VerQueryValue, GetFileVersionInfo et
      al (cli...@li...)
   5. clisp: regenerate for -lversion
      (cli...@li...)


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

Message: 1
Date: Mon, 29 Aug 2011 17:46:45 +0000
From: cli...@li...
Subject: clisp: * makemake.in (clisp.rc) [win32]: add version
	information...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/12772c348b38
changeset: 15541:12772c348b383ff4601b710605cee74fb9a2ebe4
user:      Sam Steingold <sd...@po...>
date:      2011-08-29 11:32:38 -0400
description:
* makemake.in (clisp.rc) [win32]: add version information for filever
http://msdn.microsoft.com/en-us/library/aa381058(v=VS.85).aspx

diffstat:

 src/ChangeLog   |   5 +++++
 src/makemake.in |  47 ++++++++++++++++++++++++++++++++++++++++++++---
 2 files changed, 49 insertions(+), 3 deletions(-)



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

Message: 2
Date: Mon, 29 Aug 2011 17:46:47 +0000
From: cli...@li...
Subject: clisp: * src/makemake.in (MODULE_CPPFLAGS_VAR): remove
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/d1dafa4ce466
changeset: 15542:d1dafa4ce466af958317db130721c79f8947ef7b
user:      Sam Steingold <sd...@po...>
date:      2011-08-29 11:58:54 -0400
description:
* src/makemake.in (MODULE_CPPFLAGS_VAR): remove
(MODULE_CPPFLAGS): always define and use to avoid adding
${GNULIB_INCLUDE} to CPPFLAGS twice

diffstat:

 src/ChangeLog   |   6 ++++++
 src/makemake.in |  11 +++--------
 2 files changed, 9 insertions(+), 8 deletions(-)



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

Message: 3
Date: Mon, 29 Aug 2011 17:46:48 +0000
From: cli...@li...
Subject: clisp: * src/clisp.rc.in: extract from src/makemake.in
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/22d77a024cea
changeset: 15543:22d77a024cea5cae05bdfe7316ea7514b71e27de
user:      Sam Steingold <sd...@po...>
date:      2011-08-29 12:32:45 -0400
description:
* src/clisp.rc.in: extract from src/makemake.in
* src/makemake.in (clisp.rc): use it

diffstat:

 src/ChangeLog   |   5 +++++
 src/clisp.rc.in |  28 ++++++++++++++++++++++++++++
 src/makemake.in |  31 +++++++------------------------
 3 files changed, 40 insertions(+), 24 deletions(-)



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

Message: 4
Date: Mon, 29 Aug 2011 17:46:50 +0000
From: cli...@li...
Subject: clisp: add interface to VerQueryValue, GetFileVersionInfo et
	al
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/51549527868a
changeset: 15544:51549527868a0f7fef84ed7fc3ccebec930d7210
user:      Sam Steingold <sd...@po...>
date:      2011-08-29 13:46:08 -0400
description:
add interface to VerQueryValue, GetFileVersionInfo et al
http://msdn.microsoft.com/en-us/library/ms647464(v=vs.85).aspx
* modules/syscalls/calls.c (OS:FILE-VERSION): add function
* modules/syscalls/posix.lisp (OS:FILE-VERSION): add structure
* modules/syscalls/configure.in (LIBS): add -lversion

diffstat:

 modules/syscalls/calls.c      |  67 +++++++++++++++++++++++++++++++++++++++++++
 modules/syscalls/configure.in |   2 +-
 modules/syscalls/posix.lisp   |  25 ++++++++++++++++
 modules/syscalls/test.tst     |  17 ++++++++++
 src/ChangeLog                 |   8 +++++
 5 files changed, 118 insertions(+), 1 deletions(-)



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

Message: 5
Date: Mon, 29 Aug 2011 17:54:04 +0000
From: cli...@li...
Subject: clisp: regenerate for -lversion
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/97642ff3b54e
changeset: 15545:97642ff3b54ec1ee881a326401255b1e37faf881
user:      Sam Steingold <sd...@po...>
date:      2011-08-29 13:53:54 -0400
description:
regenerate for -lversion

diffstat:

 modules/syscalls/configure |  2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)



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

------------------------------------------------------------------------------
Special Offer -- Download ArcSight Logger for FREE!
Finally, a world-class log management solution at an even better 
price-free! And you'll get a free "Love Thy Logs" t-shirt when you
download Logger. Secure your free ArcSight Logger TODAY!
http://p.sf.net/sfu/arcsisghtdev2dev

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

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


End of clisp-cvs Digest, Vol 63, Issue 13
*****************************************

clisp-cvs Digest, Vol 63, Issue 12

[<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/spvw_language.d (init_language): danish locale
      is "... (cli...@li...)
   2. clisp: * src/misc.d (LISP-IMPLEMENTATION-VERSION): add
      missing G... (cli...@li...)
   3. clisp: * configure (host_arg): add both --host and --build
      argument (cli...@li...)
   4. clisp: * src/makemake.in: save & restore CC around setting it
      fo... (cli...@li...)
   5. clisp: * configure (makemake_args) [win32gcc]: add
      --with-dynami... (cli...@li...)
   6. clisp: * src/error.d (format_message, FORMAT-MESSAGE): move
      here... (cli...@li...)
   7. clisp: Report failures in init_language
      (cli...@li...)
   8. clisp: typo (cli...@li...)


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

Message: 1
Date: Wed, 24 Aug 2011 17:18:55 +0000
From: cli...@li...
Subject: clisp: * src/spvw_language.d (init_language): danish locale
	is "...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/fc921f518920
changeset: 15533:fc921f518920b4b471edb08c12ae3f01cc7969e7
user:      Sam Steingold <sd...@po...>
date:      2011-08-24 09:52:30 -0400
description:
* src/spvw_language.d (init_language): danish locale is "da_DK"
Reported by Bruno Haible

diffstat:

 src/ChangeLog       |  5 +++++
 src/spvw_language.d |  2 +-
 2 files changed, 6 insertions(+), 1 deletions(-)



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

Message: 2
Date: Wed, 24 Aug 2011 17:18:57 +0000
From: cli...@li...
Subject: clisp: * src/misc.d (LISP-IMPLEMENTATION-VERSION): add
	missing G...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/0782c5c85186
changeset: 15534:0782c5c8518644eac5e99664f46580f3a3220903
user:      Sam Steingold <sd...@po...>
date:      2011-08-24 13:18:40 -0400
description:
* src/misc.d (LISP-IMPLEMENTATION-VERSION): add missing GETTEXT calls
(MACHINE-TYPE, MACHINE-VERSION): make return value immutable
* src/spvw.d (main): localize the name of the main thread

diffstat:

 src/ChangeLog |   6 ++++++
 src/misc.d    |  14 ++++++++------
 src/spvw.d    |   2 +-
 3 files changed, 15 insertions(+), 7 deletions(-)



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

Message: 3
Date: Wed, 24 Aug 2011 17:30:22 +0000
From: cli...@li...
Subject: clisp: * configure (host_arg): add both --host and --build
	argument
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/3cf46ee112d5
changeset: 15538:3cf46ee112d5e04585b22f5dec58709777e1f463
user:      Sam Steingold <sd...@po...>
date:      2011-08-24 13:29:45 -0400
description:
* configure (host_arg): add both --host and --build argument
Suggested by Eric Blake <eb...@re...>
https://lists.gnu.org/archive/html/bug-libsigsegv/2011-08/msg00006.html

diffstat:

 configure     |  2 +-
 src/ChangeLog |  3 +++
 2 files changed, 4 insertions(+), 1 deletions(-)



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

Message: 4
Date: Wed, 24 Aug 2011 17:30:16 +0000
From: cli...@li...
Subject: clisp: * src/makemake.in: save & restore CC around setting it
	fo...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/866e0e60d88f
changeset: 15535:866e0e60d88f5aed3219237630c4be91269a0827
user:      Sam Steingold <sd...@po...>
date:      2011-08-24 13:23:15 -0400
description:
* src/makemake.in: save & restore CC around setting it for XCC_CREATESHARED
Suggested by Eric Blake <eb...@re...>
http://article.gmane.org/gmane.comp.shells.bash.bugs:17158

diffstat:

 src/ChangeLog   |  6 ++++++
 src/makemake.in |  7 +++++++
 2 files changed, 13 insertions(+), 0 deletions(-)



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

Message: 5
Date: Wed, 24 Aug 2011 17:30:20 +0000
From: cli...@li...
Subject: clisp: * configure (makemake_args) [win32gcc]: add
	--with-dynami...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/d0fb75b4168d
changeset: 15537:d0fb75b4168ddf6e6172b621bc9183d05903c71c
user:      Sam Steingold <sd...@po...>
date:      2011-08-24 13:27:41 -0400
description:
* configure (makemake_args) [win32gcc]: add --with-dynamic-modules=no
<http://article.gmane.org/gmane.comp.lib.gnulib.bugs:27739>

diffstat:

 configure     |  3 ++-
 src/ChangeLog |  5 +++++
 2 files changed, 7 insertions(+), 1 deletions(-)



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

Message: 6
Date: Wed, 24 Aug 2011 17:30:18 +0000
From: cli...@li...
Subject: clisp: * src/error.d (format_message, FORMAT-MESSAGE): move
	here...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/6c9d6bfd8787
changeset: 15536:6c9d6bfd878727153b36661b0ba92f994e31b7b2
user:      Sam Steingold <sd...@po...>
date:      2011-08-24 13:24:34 -0400
description:
* src/error.d (format_message, FORMAT-MESSAGE): move here from ...
* src/errwin32.d: here for the sake of cygwin

diffstat:

 src/ChangeLog  |   5 +++++
 src/error.d    |  32 ++++++++++++++++++++++++++++++++
 src/errwin32.d |  26 --------------------------
 3 files changed, 37 insertions(+), 26 deletions(-)



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

Message: 7
Date: Thu, 25 Aug 2011 04:51:21 +0000
From: cli...@li...
Subject: clisp: Report failures in init_language
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/02ddfae974ee
changeset: 15539:02ddfae974eed0ed82b5f285051957ce9027ce07
user:      Sam Steingold <sd...@po...>
date:      2011-08-25 00:47:09 -0400
description:
Report failures in init_language
* src/spvw_language.d (init_language): accept lisp_error_p and report
all failures using either fprintf() or error();
use classify_namestring on all platforms to check argv_localedir
(language_deutsch): rename to language_german for consistency
(language_francais): rename to language_french for consistency
* src/i18n.d (SET-CURRENT-LANGUAGE): pass lisp_error_p=true to init_language
* src/lispbibl.d (init_language): update the prototype
(file_kind_t): move here from src/pathname.d and rename from
namestring_kind_t
(classify_namestring): add the prototype
* pathname.d (classify_namestring): make global
* src/spvw.d (main): pass lisp_error_p=false to init_language
* tests/ext-clisp.tst (*current-language*): split the test and handle
possible errors in init_language()

diffstat:

 src/ChangeLog       |   16 +++++
 src/i18n.d          |    4 +-
 src/lispbibl.d      |   18 +++++-
 src/pathname.d      |   54 +++++++---------
 src/spvw.d          |    2 +-
 src/spvw_language.d |  166 +++++++++++++++++++++++++++++++--------------------
 tests/ChangeLog     |    5 +
 tests/ext-clisp.tst |   36 ++++++++--
 8 files changed, 192 insertions(+), 109 deletions(-)



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

Message: 8
Date: Thu, 25 Aug 2011 05:00:37 +0000
From: cli...@li...
Subject: clisp: typo
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/9bc1ca199ef4
changeset: 15540:9bc1ca199ef4c431b24f6e525db08be3b6a75fcc
user:      Sam Steingold <sd...@po...>
date:      2011-08-25 01:00:24 -0400
description:
typo

diffstat:

 tests/ext-clisp.tst |  4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)



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

------------------------------------------------------------------------------
EMC VNX: the world's simplest storage, starting under $10K
The only unified storage solution that offers unified management 
Up to 160% more powerful than alternatives and 25% more efficient. 
Guaranteed. http://p.sf.net/sfu/emc-vnx-dev2dev

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

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


End of clisp-cvs Digest, Vol 63, Issue 12
*****************************************

Re: i18n

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

> Okay, so when called during startup it will be a warning, not an error.
> My point is that ignoring errors is always wrong.

implemented.
Bruno, please check that you like the error messages.
thanks.

-- 
Sam Steingold (http://sds.podval.org/) on Ubuntu 11.04 (natty) X 11.0.11001000
http://memri.org http://mideasttruth.com http://thereligionofpeace.com
http://dhimmi.com http://jihadwatch.org http://camera.org
Vegetarians eat Vegetables, Humanitarians are scary.

Re: i18n

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

> * Bruno Haible <oe...@py...> [2011-08-24 18:01:09 +0200]:
>
> Sam wrote:
>> BTW, could you please explain this comment:
>>
>> /* Given the above, the following line is only needed for those platforms
>> for which gettext is compiled with HAVE_LOCALE_NULL defined. */
>
> On glibc systems, setlocale(cat,NULL) is known to return a locale string in the
> expected format, and locales can be created by users. Therefore gettext()
> uses setlocale(); on the other platforms gettext() relies on the environment
> variables and the setlocale() call is therefore actually redundant.

So what happens on those non-glibc systems where this call is redundant?
Is NULL returned?

>> At any rate, apparently you do not object to moving init_language past
>> initmem and letting it indicate a failure as long as it does not prevent
>> clisp from starting up.
>
> I'm not sure there aren't GETTEXT or GETTEXTL calls during initmem
> or the rest of the start-up.

yes, there are some.

> If there are some, it seems safer to me to
>   - continue to call init_language as early as it is now,
>   - but store its result or success in some variable, and
>   - emit the warning message after everything is initialized.

I want the warning to be more specific, so, I guess, init_language will
have to take a flag arg indicating whether to warn with fprintf or
signal with ERROR.

>> 4. bind_textdomain_codeset --> errno != 0 (may return NULL on success!)
>
> This function can fail if malloc fails. I'm not aware that it could return NULL on success.

RETURN VALUE
       If successful, the bind_textdomain_codeset function returns the current
       codeset  for domain domainname, after possibly changing it. The result-
       ing string is valid until the next bind_textdomain_codeset call for the
       same  domainname and must not be modified or freed. If a memory alloca-
       tion failure occurs, it sets errno to ENOMEM and returns  NULL.  If  no
       codeset has been set for domain domainname, it returns NULL.

I find the combination of the last two sentences confusing.
They appear to indicate that either
 -- NULL return value does not necessarily indicate failure (e.g., if
    nothing has changed)
 -- It is possible that NULL is returned (i.e., the call failed) but
    errno is not set.
The first option seems to actually contradict the first sentence, so, I
guess, the second is correct. Right?
Or, just like with bindtextdomain & textdomain, NULL return value ==
failure, and the manual page should be fixed?

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://memri.org http://www.PetitionOnline.com/tap12009/ http://dhimmi.com
http://truepeace.org http://palestinefacts.org http://www.memritv.org
Computers are like air conditioners: they don't work with open windows!

Re: i18n

[Bruno H. <br...@cl...>]

Sam wrote:
> BTW, could you please explain this comment:
>
> /* Given the above, the following line is only needed for those platforms
> for which gettext is compiled with HAVE_LOCALE_NULL defined. */

On glibc systems, setlocale(cat,NULL) is known to return a locale string in the
expected format, and locales can be created by users. Therefore gettext()
uses setlocale(); on the other platforms gettext() relies on the environment
variables and the setlocale() call is therefore actually redundant.

> also, could you please confirm that this is necessary:
>
> /* Invalidate the gettext internal caches. */
> textdomain(textdomain(NULL));

textdomain(textdomain(NULL)) has the effect of incrementing the (hidden)
variable _nl_msg_cat_cntr. gettext has a cache that stores translations,
indexed by (domain, category) pairs. This cache is invalidated when 
_nl_msg_cat_cntr is incremented. This is necessary when the encoding
has changed.

> >> setlocale(5, "fr_FR")                            = NULL
> > This explains it.
> 
> what's inexplicable is that the error is silently ignored.

The error is silently ignored because the return value of setlocale() is ignored.

> >> Apparently because "locale -a" does not list fr_FR.
> >
> > But it will likely have the locale "fr_FR.UTF-8" (or "fr_FR.utf8"
> > which is the name under which it is stored on disk)?
> 
> no, all I have is C, POSIX and a bunch of en_* locales (I am an
> English-only bigot, remember? ;-)

OK, then my proposed code would not help on your system. But some
Linux distros are now shipping only *.UTF-8 locales, no fr_FR locale
any more.

> so when called during startup it will be a warning, not an error.
> My point is that ignoring errors is always wrong.
> If setting locale fails, the user should be notified about it

OK, fine with me.

> At any rate, apparently you do not object to moving init_language past
> initmem and letting it indicate a failure as long as it does not prevent
> clisp from starting up.

I'm not sure there aren't GETTEXT or GETTEXTL calls during initmem
or the rest of the start-up. If there are some, it seems safer to me to
  - continue to call init_language as early as it is now,
  - but store its result or success in some variable, and
  - emit the warning message after everything is initialized.

> Now, what _is_ a failure?
> 
> 1. setlocale --> NULL

Yes, this is a failure. It means the system does not support translations in the
specified locale.

> 2. textdomain --> NULL ==> errno

Indicates a malloc failure.

> 3. bindtextdomain --> NULL ==> errno

Likewise.

> 4. bind_textdomain_codeset --> errno != 0 (may return NULL on success!)

This function can fail if malloc fails. I'm not aware that it could return NULL on success.

Bruno

Re: i18n

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

> * Bruno Haible <oe...@py...> [2011-08-24 09:16:11 +0200]:
>
> Sam wrote:
>> setlocale(5, "fr_FR")                            = NULL
> This explains it.

BTW, could you please explain this comment:

   /* Given the above, the following line is only needed for those platforms
       for which gettext is compiled with HAVE_LOCALE_NULL defined. */

also, could you please confirm that this is necessary:

    /* Invalidate the gettext internal caches. */
    textdomain(textdomain(NULL));

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://openvotingconsortium.org http://ffii.org http://pmw.org.il
http://truepeace.org http://jihadwatch.org http://iris.org.il http://camera.org
Just because you're paranoid doesn't mean they AREN'T after you.

Re: i18n

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

> * Bruno Haible <oe...@py...> [2011-08-24 09:16:11 +0200]:
>
> Sam wrote:
>> setlocale(5, "fr_FR")                            = NULL
> This explains it.

what's inexplicable is that the error is silently ignored.

>> Apparently because "locale -a" does not list fr_FR.
>
> But it will likely have the locale "fr_FR.UTF-8" (or "fr_FR.utf8"
> which is the name under which it is stored on disk)?

no, all I have is C, POSIX and a bunch of en_* locales (I am an
English-only bigot, remember? ;-)

> I think the code in spvw_language.d lines 137..140 should be
> changed from
>   setenv (LC_MESSAGES, locale, 1);
>   setlocale (LC_MESSAGES, locale);
> to
>   char locale_utf8[32];
>   strcpy (locale_utf8, locale);
>   strcat (locale_utf8, ".UTF-8");
>   setenv (LC_MESSAGES, locale_utf8, 1);
>   if (setlocale (LC_MESSAGES, locale_utf8) == NULL) {
>     setenv (LC_MESSAGES, locale, 1);
>     setlocale (LC_MESSAGES, locale);
>   }
> so that it tries first fr_FR.UTF-8 and then, if that fails, fr_FR.

is it possible to have fr_FR.UTF-8 and not fr_FR?
let's see, on a machine with many locales:
$ locale -a | wc
    650     650    6924
$ locale -a | egrep '\.' | cut -d. -f1 | sort -u > with-dot
$ locale -a | egrep -v '[.@]' | sort > no-dot
$ comm -23 with-dot no-dot 
as_IN
az_AZ
tt_RU
$ locale -a | grep tt_RU
tt_RU.utf8
$ locale -a | grep as_IN
as_IN.utf8
$ locale -a | grep az_AZ
az_AZ.utf8
$

interesting.
so it is possible.
fine, but since both locale and locale_utf8 are known constants,
I will do it without strcpy et al.
thanks for the suggestion!

> By the way, in line 132, the Danish locale is "da_DK", not "da_DA",

fixed, thanks.

>> Does setlocale set errno? (the man page is silent).
>
> No, setlocale simply returns NULL when it fails.
>
>> I think init_language is called too early - before the memory is
>> initialized, so we cannot signal lisp errors yet.
>> I think it should be called via C_set_current_language after the memory
>> is initialized and it should raise lisp errors on any failure
>
> This is debatable. The usual approach with missing translations and
> missing locales is to be lenient. If you signal an error, clisp will
> not start up at all, and that is not useful for the user.

Okay, so when called during startup it will be a warning, not an error.
My point is that ignoring errors is always wrong.
If setting locale fails, the user should be notified about it and not
left wondering why (sys::test "Bye.") returns "Bye." - is it because the
word was not translated or something else?

At any rate, apparently you do not object to moving init_language past
initmem and letting it indicate a failure as long as it does not prevent
clisp from starting up.

Now, what _is_ a failure?

1. setlocale --> NULL

2. textdomain --> NULL ==> errno

3. bindtextdomain --> NULL ==> errno

4. bind_textdomain_codeset --> errno != 0 (may return NULL on success!)

is this right?

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://pmw.org.il http://truepeace.org http://openvotingconsortium.org
http://iris.org.il http://www.PetitionOnline.com/tap12009/
Experience comes with debts.

clisp-cvs Digest, Vol 63, Issue 11

[<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: revert most of the 2011-08-17 patch
      (cli...@li...)
   2. clisp: * tests/alltest.tst (lambda-parameters-limit): limit
      to 5... (cli...@li...)
   3. clisp: * tests/tests.lisp (check-os-error): add
      (cli...@li...)
   4. clisp: whitespace (cli...@li...)
   5. clisp: * src/win32.d (WSAEAGAIN, WSAENOENT): remove unused
      defines (cli...@li...)
   6. clisp: regenerate for not checking ntstatus et al
      (cli...@li...)


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

Message: 1
Date: Tue, 23 Aug 2011 15:56:16 +0000
From: cli...@li...
Subject: clisp: revert most of the 2011-08-17 patch
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/e9711ebf2e1d
changeset: 15527:e9711ebf2e1dfc5e831a1da22b2c4848b26abef8
user:      Sam Steingold <sd...@po...>
date:      2011-08-23 10:53:49 -0400
description:
revert most of the 2011-08-17 patch
* src/win32.d: include <ddk/ntifs.h> for NtQueryInformationFile
because that's what works with i686-pc-mingw32-gcc and is
recommended by http://msdn.microsoft.com/en-us/library/ff567052.aspx;
do not include ntstatus.h because it is included by winddk/ntddk
which is included by ntifs
* src/configure.in: do not test for windows headers

diffstat:

 src/ChangeLog    |  10 ++++++++++
 src/configure.in |   2 --
 src/win32.d      |  26 +++-----------------------
 unix/INSTALL     |   7 +++++--
 4 files changed, 18 insertions(+), 27 deletions(-)



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

Message: 2
Date: Tue, 23 Aug 2011 15:56:18 +0000
From: cli...@li...
Subject: clisp: * tests/alltest.tst (lambda-parameters-limit): limit
	to 5...
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/b90249e37245
changeset: 15528:b90249e37245f4fa1219d3fd92a616f64c7021b3
user:      Sam Steingold <sd...@po...>
date:      2011-08-23 11:24:20 -0400
description:
* tests/alltest.tst (lambda-parameters-limit): limit to 512 on mingw

diffstat:

 tests/ChangeLog   |  4 ++++
 tests/alltest.tst |  7 ++++---
 2 files changed, 8 insertions(+), 3 deletions(-)



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

Message: 3
Date: Tue, 23 Aug 2011 21:26:31 +0000
From: cli...@li...
Subject: clisp: * tests/tests.lisp (check-os-error): add
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/9dd9233c480b
changeset: 15529:9dd9233c480bda633b78046f09ca533e86f018bf
user:      Sam Steingold <sd...@po...>
date:      2011-08-23 17:26:06 -0400
description:
* tests/tests.lisp (check-os-error): add
* tests/socket.tst: use it

diffstat:

 tests/ChangeLog  |   5 +++++
 tests/socket.tst |  41 +++++++++++++++--------------------------
 tests/tests.lisp |  10 +++++++++-
 3 files changed, 29 insertions(+), 27 deletions(-)



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

Message: 4
Date: Tue, 23 Aug 2011 21:43:29 +0000
From: cli...@li...
Subject: clisp: whitespace
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/9c1ab5f524a3
changeset: 15530:9c1ab5f524a3bf6402b4d65e78fc8dac1a9b247c
user:      Sam Steingold <sd...@po...>
date:      2011-08-23 17:33:16 -0400
description:
whitespace

diffstat:

 src/stream.d |  87 +++++++++++++++++++++++------------------------------------
 1 files changed, 34 insertions(+), 53 deletions(-)



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

Message: 5
Date: Tue, 23 Aug 2011 21:43:31 +0000
From: cli...@li...
Subject: clisp: * src/win32.d (WSAEAGAIN, WSAENOENT): remove unused
	defines
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/dcd82afb9149
changeset: 15531:dcd82afb9149e3f7e8be1da81f07263af9ee6c2e
user:      Sam Steingold <sd...@po...>
date:      2011-08-23 17:43:06 -0400
description:
* src/win32.d (WSAEAGAIN, WSAENOENT): remove unused defines
(ioctl): do not define to ioctlsocket because gnulib defines it to
rpl_ioctl which calls ioctlsocket

diffstat:

 src/ChangeLog |  6 ++++++
 src/win32.d   |  5 -----
 2 files changed, 6 insertions(+), 5 deletions(-)



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

Message: 6
Date: Tue, 23 Aug 2011 22:54:49 +0000
From: cli...@li...
Subject: clisp: regenerate for not checking ntstatus et al
To: cli...@li...
Message-ID:
	<hg....@vz...>
Content-Type: text/plain; charset="us-ascii"

details:   http://clisp.hg.sourceforge.net/hgweb/clisp/clisp/clisp/rev/1adabedc5aed
changeset: 15532:1adabedc5aed2ee292696a8ec0930e1cd39ceed3
user:      Sam Steingold <sd...@po...>
date:      2011-08-23 18:54:28 -0400
description:
regenerate for not checking ntstatus et al

diffstat:

 src/config.h.in |  30 ------------------------------
 src/configure   |  16 +---------------
 2 files changed, 1 insertions(+), 45 deletions(-)



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

------------------------------------------------------------------------------
EMC VNX: the world's simplest storage, starting under $10K
The only unified storage solution that offers unified management 
Up to 160% more powerful than alternatives and 25% more efficient. 
Guaranteed. http://p.sf.net/sfu/emc-vnx-dev2dev

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

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


End of clisp-cvs Digest, Vol 63, Issue 11
*****************************************

Re: i18n

[Bruno H. <br...@cl...>]

Sam wrote:
> setlocale(5, "fr_FR")                            = NULL

This explains it.

> Apparently because "locale -a" does not list fr_FR.

But it will likely have the locale "fr_FR.UTF-8" (or "fr_FR.utf8"
which is the name under which it is stored on disk)?

I think the code in spvw_language.d lines 137..140 should be
changed from
  setenv (LC_MESSAGES, locale, 1);
  setlocale (LC_MESSAGES, locale);
to
  char locale_utf8[32];
  strcpy (locale_utf8, locale);
  strcat (locale_utf8, ".UTF-8");
  setenv (LC_MESSAGES, locale_utf8, 1);
  if (setlocale (LC_MESSAGES, locale_utf8) == NULL) {
    setenv (LC_MESSAGES, locale, 1);
    setlocale (LC_MESSAGES, locale);
  }
so that it tries first fr_FR.UTF-8 and then, if that fails, fr_FR.

By the way, in line 132, the Danish locale is "da_DK", not "da_DA",

> Does setlocale set errno? (the man page is silent).

No, setlocale simply returns NULL when it fails.

> I think init_language is called too early - before the memory is
> initialized, so we cannot signal lisp errors yet.
> I think it should be called via C_set_current_language after the memory
> is initialized and it should raise lisp errors on any failure

This is debatable. The usual approach with missing translations and missing
locales is to be lenient. If you signal an error, clisp will not start up at all,
and that is not useful for the user.

Bruno

Re: i18n

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

Hi Bruno,

> * Bruno Haible <oe...@py...> [2011-08-24 00:10:06 +0200]:
>
>> on a CentOS system I see
>> $ ./clisp -E utf-8 -q -norc -L french -x '(sys::text "Bye.")'
>> "? bient??t!"
>> on a Ubuntu system I see
>> $ ./clisp -E utf-8 -q -norc -L french -x '(sys::text "Bye.")'
>> "Bye."
>> How do I debug this?
>
> The checklist from the gettext FAQ at
> <http://www.gnu.org/software/gettext/FAQ.html#integrating_noop> should
> provide the answer.

$ ltrace ./clisp -q -norc -L french -x '(sys::text "Bye.")' 2>&1 | grep setlocale
setlocale(0, "C")                                = "C"
setlocale(5, "")                                 = "C"
setlocale(0, "")                                 = "C"
setlocale(2, "")                                 = "C"
setlocale(3, "")                                 = "C"
setlocale(4, "")                                 = "C"
setlocale(5, "fr_FR")                            = NULL
$ ltrace ./clisp -q -norc -L french -x '(sys::text "Bye.")' 2>&1 | grep textdomain
textdomain(NULL)                                 = "messages"
textdomain("messages")                           = "messages"
bindtextdomain("clisp", "/home/sds/src/clisp/current/buil"...) = "/home/sds/src/clisp/current/buil"...
bindtextdomain("clisplow", "/home/sds/src/clisp/current/buil"...) = "/home/sds/src/clisp/current/buil"...
bind_textdomain_codeset(0x6204ce, 0x6204dd, 5, 0, 0) = 0x1a34580
$ ltrace ./clisp -q -norc -L french -x '(sys::text "Bye.")' 2>&1 | grep gettext
dgettext(0x6204ce, 0x7fffb2046fa0, 0x7fffb2046fa0, 147, 0x7fffb20472e0) = 0x7fffb2046fa0
dgettext(0x6204ce, 0x7fffb2047b40, 0x7fffb2047b40, 4, 0x7fffb2047bb0) = 0x7fffb2047b40
dgettext(0x6204ce, 0x7fffb2046fa0, 0x7fffb2046fa0, 147, 0x7fffb20472e0) = 0x7fffb2046fa0

So, why does setlocale fail?

Apparently because "locale -a" does not list fr_FR.
Does setlocale set errno? (the man page is silent).

I think init_language is called too early - before the memory is
initialized, so we cannot signal lisp errors yet.
I think it should be called via C_set_current_language after the memory
is initialized and it should raise lisp errors on any failure so that we
will never see *current-language* = FRENCH and messages delivered in
English.

WDYT?

-- 
Sam Steingold (http://sds.podval.org/) on Ubuntu 11.04 (natty) X 11.0.11001000
http://jihadwatch.org http://www.PetitionOnline.com/tap12009/
http://iris.org.il http://ffii.org http://thereligionofpeace.com
If at first you don't suck seed, try and suck another seed.

Re: i18n

[Bruno H. <br...@cl...>]

Hi Sam,

> on a CentOS system I see
> $ ./clisp -E utf-8 -q -norc -L french -x '(sys::text "Bye.")'
> "? bient??t!"
> on a Ubuntu system I see
> $ ./clisp -E utf-8 -q -norc -L french -x '(sys::text "Bye.")'
> "Bye."
> How do I debug this?

The checklist from the gettext FAQ at <http://www.gnu.org/software/gettext/FAQ.html#integrating_noop>
should provide the answer.

Bruno

Re: nightly build problems

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

Sam Steingold writes:
 > > * Don Cohen <qba...@vf...> [2011-08-23 13:11:32 -0700]:
 > >
 > >  > ;; Loading file /home/clisp-build/hg/clisp/build-mt-no/condition.fas ...
 > 
 > rm -f /home/clisp-build/hg/clisp/build-mt-no/condition.fas
I see, I had screwed up the script somehow:
 > + cd /home/clisp-build/hg/clisp/
 > + rm -rf /home/clisp-build/clisp/.hg/data/build-mt-no
was meant to be: rm -rf build-mt-no
 > + ./configure --with-debug --with-threads=POSIX_THREADS --with-module=rawsock --with-dynamic-modules=no build-mt-no
 ...
Expecting it to work again tomorrow.

Re: nightly build problems

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

> * Don Cohen <qba...@vf...> [2011-08-23 13:11:32 -0700]:
>
>  > ;; Loading file /home/clisp-build/hg/clisp/build-mt-no/condition.fas ...

rm -f /home/clisp-build/hg/clisp/build-mt-no/condition.fas

this is an artifact of


2011-08-19  Sam Steingold  <sd...@gn...>

	Implement RFE#3384688: use OS facilities to print os-error


-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://iris.org.il http://pmw.org.il http://truepeace.org http://memri.org
http://palestinefacts.org http://thereligionofpeace.com http://www.memritv.org
There are many reasons not to use Linux - but no good ones.