3rdparties/software/babel-20200218-git/src/packages.lisp (3871 bytes)
1 ;;;; -*- Mode: lisp; indent-tabs-mode: nil -*- 2 ;;; 3 ;;; package.lisp --- Package definition for Babel 4 ;;; 5 ;;; Copyright (C) 2007, Luis Oliveira <loliveira@common-lisp.net> 6 ;;; 7 ;;; Permission is hereby granted, free of charge, to any person 8 ;;; obtaining a copy of this software and associated documentation 9 ;;; files (the "Software"), to deal in the Software without 10 ;;; restriction, including without limitation the rights to use, copy, 11 ;;; modify, merge, publish, distribute, sublicense, and/or sell copies 12 ;;; of the Software, and to permit persons to whom the Software is 13 ;;; furnished to do so, subject to the following conditions: 14 ;;; 15 ;;; The above copyright notice and this permission notice shall be 16 ;;; included in all copies or substantial portions of the Software. 17 ;;; 18 ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 19 ;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 20 ;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 21 ;;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 22 ;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 23 ;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 24 ;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 25 ;;; DEALINGS IN THE SOFTWARE. 26 27 (in-package #:cl-user) 28 29 (defpackage #:babel-encodings 30 (:use #:common-lisp #:alexandria) 31 (:export 32 ;; character encoding objects 33 #:list-character-encodings 34 #:character-encoding 35 #:*default-character-encoding* 36 #:get-character-encoding 37 #:enc-name 38 #:enc-aliases 39 #:enc-code-unit-size 40 #:enc-max-units-per-char 41 #:enc-native-endianness 42 #:enc-decode-literal-code-unit-limit 43 #:enc-encode-literal-code-unit-limit 44 #:enc-use-bom 45 #:enc-bom-encoding 46 #:enc-nul-encoding 47 #:enc-default-replacement 48 #:ambiguous-encoding-p 49 ;; concrete mappings 50 #:instantiate-concrete-mappings 51 #:encoder 52 #:decoder 53 #:octet-counter 54 #:code-point-counter 55 #:lookup-mapping 56 #:with-simple-vector 57 #:with-checked-simple-vector 58 #:*suppress-character-coding-errors* 59 ;; errors 60 #:character-coding-error 61 #:character-coding-error-encoding ; accessor 62 #:character-coding-error-buffer ; accessor 63 #:character-coding-error-position ; accessor 64 #:character-decoding-error 65 #:character-decoding-error-octets ; accessor 66 #:character-encoding-error 67 #:character-encoding-error-code ; accessor 68 #:end-of-input-in-character 69 #:character-out-of-range 70 #:invalid-utf8-starter-byte 71 #:invalid-utf8-continuation-byte 72 #:overlong-utf8-sequence)) 73 74 (defpackage #:babel 75 (:use #:common-lisp #:babel-encodings #:alexandria) 76 (:import-from #:babel-encodings) 77 (:export 78 ;; types 79 #:unicode-char 80 #:unicode-char-code-limit 81 #:unicode-string 82 #:simple-unicode-string 83 ;; fixed sharp-backslash reader 84 #:enable-sharp-backslash-syntax 85 #:set-sharp-backslash-syntax-in-readtable 86 ;; external formats 87 #:external-format 88 #:make-external-format 89 #:ensure-external-format 90 #:external-format-encoding 91 #:external-format-eol-style 92 #:external-format-equal 93 #:*default-eol-style* 94 ;; general user API 95 #:*default-character-encoding* 96 #:list-character-encodings 97 #:string-to-octets 98 #:octets-to-string 99 #:concatenate-strings-to-octets 100 #:string-size-in-octets 101 #:vector-size-in-chars 102 ;; errors 103 #:character-coding-error 104 #:character-coding-error-encoding ; accessor 105 #:character-coding-error-buffer ; accessor 106 #:character-coding-error-position ; accessor 107 #:character-decoding-error 108 #:character-decoding-error-octets ; accessor 109 #:character-encoding-error 110 #:character-encoding-error-code ; accessor 111 #:end-of-input-in-character 112 #:character-out-of-range 113 #:invalid-utf8-starter-byte 114 #:invalid-utf8-continuation-byte 115 #:overlong-utf8-sequence))