cl-postgres/strings-utf-8.lisp

   1 ;;;; -*- Mode: LISP; Syntax: Ansi-Common-Lisp; Base: 10; Package: CL-POSTGRES; -*-
   2 (in-package :cl-postgres)
   3
   4 (defparameter *client-encoding* "UNICODE")
   5
   6 (declaim (inline enc-byte-length))
   7 (defun enc-byte-length (sequence)
   8   (cl-postgres-trivial-utf-8:utf-8-byte-length sequence))
   9
  10 (declaim (inline enc-write-string))
  11 (defun enc-write-string (string output &key null-terminate)
  12   (cl-postgres-trivial-utf-8:write-utf-8-bytes string output
  13                                                :null-terminate null-terminate))
  14
  15 (declaim (inline enc-read-string))
  16 (declaim (ftype (function (t &key (:null-terminated t)
  17                              (:byte-length fixnum))
  18                           string)
  19                 enc-read-string))
  20 (defun enc-read-string (input &key null-terminated (byte-length -1))
  21   (cl-postgres-trivial-utf-8:read-utf-8-string
  22    input :null-terminated null-terminated :stop-at-eof t :byte-length byte-length))
  23
  24 (declaim (inline enc-string-bytes))
  25 (defun enc-string-bytes (string &key null-terminate)
  26   (cl-postgres-trivial-utf-8:string-to-utf-8-bytes
  27    string :null-terminate null-terminate))