/[pg]/pg/sysdep.lisp
ViewVC logotype

Diff of /pg/sysdep.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by emarsden, Fri Jan 27 18:03:39 2006 UTC revision 1.14 by emarsden, Mon Sep 18 21:33:10 2006 UTC
# Line 1  Line 1 
1  ;;; sysdep.lisp -- system-dependent parts of pg-dot-lisp  ;;; sysdep.lisp -- system-dependent parts of pg-dot-lisp
2  ;;;  ;;;
3  ;;; Author: Eric Marsden <eric.marsden@free.fr>  ;;; Author: Eric Marsden <eric.marsden@free.fr>
4  ;;; Time-stamp: <2006-01-27 emarsden>  ;;; Time-stamp: <2006-09-18 emarsden>
5  ;;  ;;
6  ;;  ;;
7    
# Line 327  Line 327 
327  (defun implementation-name-for-encoding (encoding)  (defun implementation-name-for-encoding (encoding)
328    (%sysdep "client encoding to external format name"    (%sysdep "client encoding to external format name"
329       #+(and clisp unicode)       #+(and clisp unicode)
330       (cond ((string= encoding "SQL_ASCII") charset:ascii)       (cond ((string-equal encoding "SQL_ASCII") charset:ascii)
331             ((string= encoding "LATIN1") charset:iso-8859-1)             ((string-equal encoding "LATIN1") charset:iso-8859-1)
332             ((string= encoding "LATIN9") charset:iso-8859-9)             ((string-equal encoding "LATIN9") charset:iso-8859-9)
333             ((string= encoding "UTF8") charset:utf-8)             ((string-equal encoding "UTF8") charset:utf-8)
334             (t (error "unknown encoding ~A" encoding)))             (t (error "unknown encoding ~A" encoding)))
335       #+(and allegro ics)       #+(and allegro ics)
336       (cond ((string= encoding "SQL_ASCII") :ascii)       (cond ((string-equal encoding "SQL_ASCII") :ascii)
337             ((string= encoding "LATIN1") :latin1)             ((string-equal encoding "LATIN1") :latin1)
338             ((string= encoding "LATIN9") :latin9)             ((string-equal encoding "LATIN9") :latin9)
339             ((string= encoding "UTF8") :utf8)             ((string-equal encoding "UTF8") :utf8)
340             (t (error "unknown encoding ~A" encoding)))             (t (error "unknown encoding ~A" encoding)))
341       #+(and sbcl sb-unicode)       #+(and sbcl sb-unicode)
342       (cond ((string= encoding "SQL_ASCII") :ascii)       (cond ((string-equal encoding "SQL_ASCII") :ascii)
343             ((string= encoding  "LATIN1") :latin1)             ((string-equal encoding  "LATIN1") :latin1)
344             ((string= encoding "LATIN9") :latin9)             ((string-equal encoding "LATIN9") :latin9)
345             ((string= encoding "UTF8") :utf8)             ((string-equal encoding "UTF8") :utf8)
346             (t (error "unknown encoding ~A" encoding)))             (t (error "unknown encoding ~A" encoding)))
347       #+(or cmu gcl ecl abcl openmcl)       #+(or cmu gcl ecl abcl openmcl)
348       nil))       nil))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5