GopherProxy

	tkoi8-r.lisp - clic - Clic is an command line interactive client for gopher wri…
	git clone git://bitreich.org/clic/ git://hg6vgqziawt5s4dj.onion/clic/
	Log
	Files
	Refs
	Tags
	LICENSE
	---
	tkoi8-r.lisp (2841B)
	---
	1 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: FLEXI-STREAMS; Base: 1…
	2 ;;; $Header: /usr/local/cvsrep/flexi-streams/koi8-r.lisp,v 1.2 2008/05/1…
	3
	4 ;;; Copyright (c) 2006, Igor Plekhov. All rights reserved.
	5 ;;; Copyright (c) 2006-2008, Dr. Edmund Weitz. All rights reserved.
	6
	7 ;;; Redistribution and use in source and binary forms, with or without
	8 ;;; modification, are permitted provided that the following conditions
	9 ;;; are met:
	10
	11 ;;; * Redistributions of source code must retain the above copyright
	12 ;;; notice, this list of conditions and the following disclaimer.
	13
	14 ;;; * Redistributions in binary form must reproduce the above
	15 ;;; copyright notice, this list of conditions and the following
	16 ;;; disclaimer in the documentation and/or other materials
	17 ;;; provided with the distribution.
	18
	19 ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
	20 ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
	21 ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	22 ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
	23 ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	24 ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
	25 ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
	26 ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
	27 ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
	28 ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
	29 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
	30
	31 (in-package :flexi-streams)
	32
	33 ;; http://unicode.org/Public/MAPPINGS/VENDORS/MISC/KOI8-R.TXT
	34 (defconstant +koi8-r-table+
	35 (make-decoding-table '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 …
	36 "An array enumerating the character codes for the KOI8-R encoding.")