X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=blobdiff_plain;f=package.lisp;fp=package.lisp;h=7c119de45ec550dd4873afbd05a3f35d955c12ea;hp=0000000000000000000000000000000000000000;hb=9d5e8be84951cef7f6a11bb60af0c64d8bd1e254;hpb=1b3ea245129cdd7b33b2fc28da5fda8300c31a97

diff --git a/package.lisp b/package.lisp
new file mode 100644
index 0000000..7c119de
--- /dev/null
+++ b/package.lisp
@@ -0,0 +1,74 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          package.lisp
+;;;; Purpose:       Package definition for cl-base64
+;;;; Programmer:    Kevin M. Rosenberg
+;;;; Date Started:  Dec 2002
+;;;;
+;;;; $Id: package.lisp,v 1.1 2003/01/12 20:25:26 kevin Exp $
+;;;;
+;;;; *************************************************************************
+
+(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
+
+(defpackage #:cl-base64
+  (:nicknames #:base64)
+  (:use #:cl)
+  (:export #:base64-stream-to-integer
+	   #:base64-string-to-integer
+	   #:base64-string-to-string
+	   #:base64-stream-to-string
+	   #:base64-string-to-stream
+	   #:base64-stream-to-stream
+	   #:base64-string-to-usb8-array
+	   #:base64-stream-to-usb8-array
+	   #:string-to-base64-string
+	   #:string-to-base64-stream
+	   #:usb8-array-to-base64-string
+	   #:usb8-array-to-base64-stream
+	   #:stream-to-base64-string
+	   #:stream-to-base64-stream
+	   #:integer-to-base64-string
+	   #:integer-to-base64-stream
+
+	   ;; For creating custom encode/decode tables
+	   #:*uri-encode-table*
+	   #:*uri-decode-table*
+	   #:make-decode-table
+	   ))
+
+(in-package #:cl-base64)
+
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defvar *encode-table*
+    "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/")
+  (declaim (type simple-string *encode-table*))
+  
+  (defvar *uri-encode-table*
+    "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_")
+  (declaim (type simple-string *uri-encode-table*))
+  
+  (deftype decode-table () '(array fixnum (256)))
+
+  (defun make-decode-table (encode-table)
+    (let ((dt (make-array 256 :adjustable nil :fill-pointer nil
+			  :element-type 'fixnum
+			  :initial-element -1)))
+      (loop for char of-type character across encode-table
+	 for index of-type fixnum from 0 below 64
+	 do (setf (aref dt (the fixnum (char-code char))) index))
+      dt))
+    
+  (defvar *decode-table* (make-decode-table *encode-table*))
+  
+  (defvar *uri-decode-table* (make-decode-table *uri-encode-table*))
+  
+  (declaim (type decode-table *decode-table* *uri-decode-table*))
+  
+  (defvar *pad-char* #\=)
+  (defvar *uri-pad-char* #\.)
+  (declaim (type character *pad-char* *uri-pad-char*))
+  )