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