Votre Convention collective

Test

Test

--

-- 
Stelian Ionescu a.k.a. fe[nl]ix
Quidquid latine dictum sit, altum videtur.
http://common-lisp.net/project/iolib

error downloading babel

Hello,

I encounter a problem trying to download babel using quicklisp. 

I am on debian squeeze and I use the last version of sbcl 1.0.55 that I
downloaded 5mns ago from the website, together with a fresh install of
quicklisp. I can reproduce the error using the version of sbcl 1.0.40
in the debian repositories. 

The relevant part of the log which is attached to this message seems to be
* (ql:quickload "babel")
To load "babel":
  Load 1 ASDF system:
    babel
; Loading "babel"

; file: /home/harven/.quicklisp/dists/quicklisp/software/babel-20120208-git/src/enc-unicode.lisp
; in: DEFINE-UTF-16 :UTF-16
;     (BABEL-ENCODINGS::DEFINE-UTF-16 :UTF-16)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UTF-16 :UTF-16))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).

A similar error has been reported on github 
https://github.com/cl-babel/babel/issues/9
where it was suggested to run the command
(alexandria:format-symbol t '#:~a-code-point-counter "UTF16") 
Here is what I get.

* (ql:quickload "alexandria")
To load "alexandria":
  Load 1 ASDF system:
    alexandria
; Loading "alexandria"

("alexandria")
* (alexandria:format-symbol t '#:~a-code-point-counter "UTF16") 

debugger invoked on a SB-KERNEL:CASE-FAILURE in thread
#<THREAD "initial thread" RUNNING {AB2C889}>:
  #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
  Wanted one of (STRING SIMPLE-STRING).

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(SB-KERNEL:CASE-FAILURE
 ETYPECASE
 #:~A-CODE-POINT-COUNTER
 (STRING SIMPLE-STRING))
0] 0

Any help ?

* (ql:quickload "babel")
To load "babel":
  Load 1 ASDF system:
    babel
; Loading "babel"

; file: /home/harven/.quicklisp/dists/quicklisp/software/babel-20120208-git/src/enc-unicode.lisp
; in: DEFINE-UTF-16 :UTF-16
;     (BABEL-ENCODINGS::DEFINE-UTF-16 :UTF-16)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UTF-16 :UTF-16))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UTF-16 :UTF-16LE
;     (BABEL-ENCODINGS::DEFINE-UTF-16 :UTF-16LE :LE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UTF-16 :UTF-16LE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UTF-16 :UTF-16BE
;     (BABEL-ENCODINGS::DEFINE-UTF-16 :UTF-16BE :BE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UTF-16 :UTF-16BE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UTF-32
;     (BABEL-ENCODINGS::DEFINE-UCS :UTF-32 4)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UTF-32 ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UTF-32LE
;     (BABEL-ENCODINGS::DEFINE-UCS :UTF-32LE 4 :LE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UTF-32LE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UTF-32BE
;     (BABEL-ENCODINGS::DEFINE-UCS :UTF-32BE 4 :BE)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UTF-32BE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UCS-2
;     (BABEL-ENCODINGS::DEFINE-UCS :UCS-2 2 NIL 65536)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UCS-2 ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UCS-2LE
;     (BABEL-ENCODINGS::DEFINE-UCS :UCS-2LE 2 :LE 65536)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UCS-2LE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UCS-2BE
;     (BABEL-ENCODINGS::DEFINE-UCS :UCS-2BE 2 :BE 65536)
; 
; caught ERROR:
;   (during macroexpansion of (DEFINE-UCS :UCS-2BE ...))
;   #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
;   Wanted one of (STRING SIMPLE-STRING).

debugger invoked on a ASDF:COMPILE-ERROR in thread
#<THREAD "initial thread" RUNNING {AB2C889}>:
  Error while invoking #<COMPILE-OP (:VERBOSE NIL) {B72ECF9}> on
  #<CL-SOURCE-FILE "babel" "src" "enc-unicode">

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY ] Retry compiling #<CL-SOURCE-FILE "babel" "src" "enc-unicode">.
  1: [ACCEPT] Continue, treating
              compiling #<CL-SOURCE-FILE "babel" "src" "enc-unicode"> as having
              been successful.
  2: [ABORT ] Give up on "babel"
  3:          Exit debugger, returning to top level.

((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
 #<unavailable argument>
 #<unavailable argument>
 #<ASDF:COMPILE-OP (:VERBOSE NIL) {B72ECF9}>
 #<ASDF:CL-SOURCE-FILE "babel" "src" "enc-unicode">)
0] 

Sincerely,
--

-- 
Harven

_______________________________________________
babel-devel mailing list
babel-devel <at> common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/babel-devel

Problem with gbk-map.lisp

Hello Wenpeng,

I missed an obvious problem with your patch, it depends on Lisps
loading gbk-map.lisp using the UTF-8 encoding. AFAIK, there's no good
way to portably enforce that via ASDF, so I've converted the file to
an ASCII representation. It's not as pretty as the previous version,
but it seems to work.

Cheers,

--

-- 
Luís Oliveira
http://r42.eu/~luis/

Unit tests failures on different lisps

Hello.

I am running tests of some most often Quicklisp-downloaded libraries, including babel.

Babel tests have different number of failures/errors on different Lisps (about 8, 9 or 5).

You may find the results here: http://common-lisp.net/project/cl-test-grid/pivot_ql-lib_lisp.html

Clicking the ok/fail status refer to the library test logs where you may find what failures
occurred.

Best regards,
- Anton

Re: Submit a GBK patch

_______________________________________________
babel-devel mailing list
babel-devel <at> common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/babel-devel

Submit a GBK patch

_______________________________________________
babel-devel mailing list
babel-devel <at> common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/babel-devel

Few fixes for ucs-2 and utf-32

_______________________________________________
babel-devel mailing list
babel-devel <at> common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/babel-devel

patch for cp1252

Hi,

I added support for the cp1252 encoding:

Sat Apr 23 16:41:22 CEST 2011  khaelin <at> gmail.com
  * add support for cp1252 encoding
diff -rN -u old-babel/babel.asd new-babel/babel.asd
--- old-babel/babel.asd	2011-04-23 16:49:25.088659055 +0200
+++ new-babel/babel.asd	2011-04-23 16:49:25.091992342 +0200
 <at>  <at>  -41,6 +41,7  <at>  <at> 
      (:file "enc-iso-8859")
      (:file "enc-unicode")
      (:file "enc-cp1251")
+     (:file "enc-cp1252")
      (:file "jpn-table")
      (:file "enc-jpn")
      (:file "external-format")
diff -rN -u old-babel/src/enc-cp1252.lisp new-babel/src/enc-cp1252.lisp
--- old-babel/src/enc-cp1252.lisp	1970-01-01 01:00:00.000000000 +0100
+++ new-babel/src/enc-cp1252.lisp	2011-04-23 16:49:25.098658916 +0200
 <at>  <at>  -0,0 +1,81  <at>  <at> 
+;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
+;;;
+;;; enc-cp1252.lisp --- Implementation of the CP1252 character encoding.
+;;;
+;;; Copyright (C) 2011, Nicolas Martyanoff
+;;;
+;;; Permission is hereby granted, free of charge, to any person
+;;; obtaining a copy of this software and associated documentation
+;;; files (the "Software"), to deal in the Software without
+;;; restriction, including without limitation the rights to use, copy,
+;;; modify, merge, publish, distribute, sublicense, and/or sell copies
+;;; of the Software, and to permit persons to whom the Software is
+;;; furnished to do so, subject to the following conditions:
+;;;
+;;; The above copyright notice and this permission notice shall be
+;;; included in all copies or substantial portions of the Software.
+;;;
+;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+;;; NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+;;; DEALINGS IN THE SOFTWARE.
+
+(in-package #:babel-encodings)
+
+(define-character-encoding :cp1252
+    "A 8-bit, fixed-width character encoding used by Windows for Western
+    European languages."
+  :aliases '(:windows-1252)
+  :literal-char-code-limit 256)
+
+(define-constant +cp1252-to-unicode+
+    #(#x20ac    nil #x201a #x0192 #x201e #x2026 #x2020 #x2021
+      #x02c6 #x2030 #x0160 #x2039 #x0152    nil #x017d    nil
+         nil #x2018 #x2019 #x201c #x201d #x2022 #x2013 #x2014
+      #x02dc #x2122 #x0161 #x203a #x0153    nil #x017e #x0178)
+  :test #'equalp)
+
+(define-unibyte-decoder :cp1252 (octet)
+  (if (and (>= octet #x80) (<= octet #x9f))
+      (svref +cp1252-to-unicode+
+             (the ub8 (- octet #x80)))
+      octet))
+
+(define-constant +unicode-0152-017e-cp1252+
+    #(#x8c #x9c #x00 #x00 #x00 #x00 #x00 #x00
+      #x00 #x00 #x00 #x00 #x00 #x00 #x8a #x9a
+      #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
+      #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
+      #x00 #x00 #x00 #x00 #x00 #x00 #x9f #x00
+      #x00 #x00 #x00 #x8e #x9e)
+  :test #'equalp)
+
+(define-constant +unicode-2013-203a-cp1252+
+    #(#x96 #x97 #x00 #x00 #x00 #x91 #x92 #x82
+      #x00 #x93 #x94 #x84 #x00 #x86 #x87 #x95
+      #x00 #x00 #x00 #x85 #x00 #x00 #x00 #x00
+      #x00 #x00 #x00 #x00 #x00 #x89 #x00 #x00
+      #x00 #x00 #x00 #x00 #x00 #x00 #x8b #x9b)
+  :test #'equalp)
+
+(define-unibyte-encoder :cp1252 (code)
+  (cond
+    ((or (< code #x80)
+         (and (> code #xa0) (<= code #xff)))
+     code)
+    ((and (>= code #x0152) (<= code #x017e))
+     (svref +unicode-0152-017e-cp1252+
+            (the ub8 (- code #x0152))))
+    ((= code #x0192) #x83)
+    ((= code #x02c6) #x88)
+    ((= code #x02dc) #x89)
+    ((and (>= code #x2013) (<= code #x203a))
+     (svref +unicode-2013-203a-cp1252+
+            (the ub8 (- code #x2013))))
+    ((= code #x20ac) #x80)
+    ((= code #x2122) #x99)
+    (t (handle-error))))

I hope you will find it useful.

Regards,

--

-- 
Nicolas Martyanoff
   http://codemore.org
   khaelin <at> gmail.com

_______________________________________________
babel-devel mailing list
babel-devel <at> common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/babel-devel

octets-to-string with UTF8 and Byte Order Marker

_______________________________________________
babel-devel mailing list
babel-devel <at> common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/babel-devel

Unicode encodings with explicit endianness

_______________________________________________
babel-devel mailing list
babel-devel <at> common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/babel-devel