package.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          package.lisp
   6 ;;;; Purpose:       Package definition for kmrcl package
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  Apr 2000
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;;
  12 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
  13 ;;;;
  14 ;;;; KMRCL users are granted the rights to distribute and use this software
  15 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  16 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  17 ;;;; *************************************************************************
  18
  19 (in-package #:cl-user)
  20
  21 (defpackage #:kmrcl
  22   (:nicknames #:kl)
  23   (:use #:cl)
  24   (:export
  25    #:ensure-integer
  26    #:mklist
  27    #:filter
  28    #:map-and-remove-nils
  29    #:appendnew
  30    #:memo-proc
  31    #:memoize
  32    #:defun-memo
  33    #:_f
  34    #:compose
  35    #:until
  36    #:while
  37    #:for
  38
  39    ;; strings.lisp
  40    #:string-trim-whitespace
  41    #:string-left-trim-whitespace
  42    #:string-right-trim-whitespace
  43    #:mapappend
  44    #:mapcar-append-string
  45    #:mapcar2-append-string
  46    #:position-char
  47    #:position-not-char
  48    #:delimited-string-to-list
  49    #:string-delimited-string-to-list
  50    #:list-to-delimited-string
  51    #:prefixed-fixnum-string
  52    #:integer-string
  53    #:fast-string-search
  54    #:string-substitute
  55    #:string-to-list-skip-delimiter
  56    #:string-starts-with
  57    #:count-string-char
  58    #:count-string-char-if
  59    #:hexchar
  60    #:charhex
  61    #:encode-uri-string
  62    #:decode-uri-string
  63    #:non-alphanumericp
  64    #:random-string
  65    #:first-char
  66    #:last-char
  67    #:ensure-string
  68    #:string-right-trim-one-char
  69    #:string-strip-ending
  70    #:string-maybe-shorten
  71    #:string-elide
  72    #:shrink-vector
  73    #:collapse-whitespace
  74    #:string->list
  75    #:trim-non-alphanumeric
  76
  77    ;; io.lisp
  78    #:indent-spaces
  79    #:indent-html-spaces
  80    #:print-n-chars
  81    #:print-n-strings
  82    #:print-list
  83    #:print-rows
  84    #:write-fixnum
  85    #:file-subst
  86    #:stream-subst
  87    #:null-output-stream
  88    #:directory-tree
  89    #:write-utime-hms
  90    #:write-utime-hm
  91    #:write-utime-ymdhms
  92    #:write-utime-ymdhm
  93    #:write-utime-hms-stream
  94    #:write-utime-hm-stream
  95    #:write-utime-ymdhms-stream
  96    #:write-utime-ymdhm-stream
  97    #:with-utime-decoding
  98    #:with-utime-decoding-utc-offset
  99    #:is-dst
 100    #:year
 101    #:month
 102    #:day-of-month
 103    #:hour
 104    #:minute
 105    #:second
 106    #:daylight-p
 107    #:zone
 108    #:day-of-month
 109    #:day-of-week
 110    #:+datetime-number-strings+
 111    #:utc-offset
 112    #:copy-binary-stream
 113
 114    ;; impl.lisp
 115    #:probe-directory
 116    #:cwd
 117    #:quit
 118    #:command-line-arguments
 119    #:copy-file
 120    #:run-shell-command
 121
 122    ;; lists.lisp
 123    #:remove-from-tree-if
 124    #:find-tree
 125    #:with-each-file-line
 126    #:with-each-stream-line
 127    #:remove-keyword
 128    #:remove-keywords
 129    #:append-sublists
 130    #:alist-elem-p
 131    #:alistp
 132    #:get-alist
 133    #:update-alist
 134    #:alist-plist
 135    #:plist-alist
 136    #:update-plist
 137    #:get-plist
 138    #:flatten
 139    #:unique-slot-values
 140
 141    ;; seq.lisp
 142    #:nsubseq
 143
 144    ;; math.lisp
 145    #:ensure-integer
 146    #:histogram
 147    #:fixnum-width
 148    #:scaled-epsilon
 149
 150    ;; macros.lisp
 151    #:time-iterations
 152    #:time-seconds
 153    #:in
 154    #:mean
 155    #:with-gensyms
 156    #:let-if
 157    #:let-when
 158    #:aif
 159    #:awhen
 160    #:awhile
 161    #:aand
 162    #:acond
 163    #:alambda
 164    #:it
 165    #:mac
 166    #:mv-bind
 167    #:deflex
 168    #:def-cached-vector
 169    #:def-cached-instance
 170    #:with-ignore-errors
 171    #:ppmx
 172    #:defconstant*
 173    #:defvar-unbound
 174
 175    ;; files.lisp
 176    #:print-file-contents
 177    #:read-stream-to-string
 178    #:read-file-to-string
 179    #:read-file-to-usb8-array
 180    #:read-stream-to-strings
 181    #:read-file-to-strings
 182
 183    ;; strings.lisp
 184    #:string-append
 185    #:count-string-words
 186    #:substitute-string-for-char
 187    #:string-trim-last-character
 188    #:nstring-trim-last-character
 189    #:string-hash
 190    #:is-string-empty
 191    #:is-char-whitespace
 192    #:not-whitespace-char
 193    #:is-string-whitespace
 194    #:string-invert
 195    #:escape-xml-string
 196    #:make-usb8-array
 197    #:usb8-array-to-string
 198    #:string-to-usb8-array
 199    #:substitute-chars-strings
 200    #:add-sql-quotes
 201    #:escape-backslashes
 202    #:concat-separated-strings
 203    #:print-separated-strings
 204    #:lex-string
 205    #:split-alphanumeric-string
 206
 207    ;; strmatch.lisp
 208    #:score-multiword-match
 209    #:multiword-match
 210
 211    ;; symbols.lisp
 212    #:ensure-keyword
 213    #:ensure-keyword-upcase
 214    #:ensure-keyword-default-case
 215    #:concat-symbol
 216    #:concat-symbol-pkg
 217    #:show
 218    #:show-variables
 219    #:show-functions
 220
 221    ;; From attrib-class.lisp
 222    #:attributes-class
 223    #:slot-attribute
 224    #:slot-attributes
 225
 226    #:generalized-equal
 227
 228    ;; From buffered input
 229
 230    #:make-fields-buffer
 231    #:read-buffered-fields
 232
 233    ;; From datetime.lisp
 234    #:pretty-date
 235    #:date-string
 236    #:print-float-units
 237    #:print-seconds
 238    #:posix-time-to-utime
 239    #:utime-to-posix-time
 240
 241    ;; From random.lisp
 242    #:seed-random-generator
 243    #:random-choice
 244
 245    ;; From repl.lisp
 246    #:make-repl
 247    #:init/repl
 248
 249    ;; From web-utils
 250    #:*base-url*
 251    #:base-url!
 252    #:make-url
 253    #:*standard-html-header*
 254    #:*standard-xhtml-header*
 255    #:*standard-xml-header*
 256    #:user-agent-ie-p
 257    #:decode-uri-query-string
 258    #:split-uri-query-string
 259
 260    ;; From xml-utils
 261    #:sgml-header-stream
 262    #:xml-tag-contents
 263    #:positions-xml-tag-contents
 264    #:cdata-string
 265    #:write-cdata
 266
 267    ;; From console
 268    #:*console-msgs*
 269    #:cmsg
 270    #:cmsg-c
 271    #:cmsg-add
 272    #:cmsg-remove
 273    #:fixme
 274
 275    ;; byte-stream
 276    #:make-binary-array-output-stream
 277    #:get-output-stream-data
 278    #:dump-output-stream-data
 279    #:make-byte-array-input-stream
 280
 281    ;; sockets.lisp
 282    #:make-active-socket
 283    #:close-active-socket
 284
 285    ;; listener.lisp
 286    #:init/listener
 287    #:stop-all/listener
 288    #:listener
 289
 290    ;; fformat.lisp
 291    #:fformat
 292
 293    ;; os.lisp
 294    #:command-output
 295    #:run-shell-command-output-stream
 296    #:delete-directory-and-files
 297    #:file-size
 298
 299    ;; color.lisp
 300    #:rgb->hsv
 301    #:rgb255->hsv255
 302    #:hsv->rgb
 303    #:hsv255->rgb255
 304    #:hsv-equal
 305    #:hsv255-equal
 306    #:hsv-similar
 307    #:hsv255-similar
 308    #:hue-difference
 309    #:hue-difference-fixnum
 310    ))
 311
 312
 313