X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=package.lisp;h=a1381690380df9d6f8d949f89d7b83c8ff67c329;hp=87f6372fe3e0e23f7d9a6df4d14e5769232fe6f4;hb=c806ada1a12795e377d2ad588e56e051c7a92598;hpb=0ddc05fb79da9603389b5a4294ea0560e45665f1 diff --git a/package.lisp b/package.lisp index 87f6372..a138169 100644 --- a/package.lisp +++ b/package.lisp @@ -7,26 +7,25 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: package.lisp,v 1.30 2003/05/09 09:35:04 kevin Exp $ +;;;; $Id$ ;;;; -;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of KMRCL, is Copyright (c) 2002-2006 by Kevin M. Rosenberg ;;;; ;;;; KMRCL users are granted the rights to distribute and use this software ;;;; as governed by the terms of the Lisp Lesser GNU Public License ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* -(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))) - -(in-package :cl-user) +(in-package #:cl-user) (defpackage #:kmrcl - (:nicknames :kl) - (:use :common-lisp) + (:nicknames #:kl) + (:use #:cl) (:export #:ensure-integer #:mklist #:filter + #:map-and-remove-nils #:appendnew #:memo-proc #:memoize @@ -38,36 +37,123 @@ #:for ;; strings.lisp + #:string-trim-whitespace + #:string-left-trim-whitespace + #:string-right-trim-whitespace #:mapappend #:mapcar-append-string #:mapcar2-append-string #:position-char + #:position-not-char #:delimited-string-to-list + #:string-delimited-string-to-list #:list-to-delimited-string - #:flatten - + #:prefixed-fixnum-string + #:prefixed-integer-string + #:integer-string + #:fast-string-search + #:string-substitute + #:string-to-list-skip-delimiter + #:string-starts-with + #:count-string-char + #:count-string-char-if + #:hexchar + #:charhex + #:encode-uri-string + #:decode-uri-string + #:non-alphanumericp + #:random-string + #:first-char + #:last-char + #:ensure-string + #:string-right-trim-one-char + #:string-strip-ending + #:string-maybe-shorten + #:string-elide + #:shrink-vector + #:collapse-whitespace + #:string->list + #:trim-non-alphanumeric + #:binary-sequence-to-hex-string + + ;; io.lisp #:indent-spaces + #:indent-html-spaces #:print-n-chars + #:print-n-strings #:print-list #:print-rows + #:write-fixnum #:file-subst #:stream-subst + #:null-output-stream + #:directory-tree + #:write-utime-hms + #:write-utime-hm + #:write-utime-ymdhms + #:write-utime-ymdhm + #:write-utime-hms-stream + #:write-utime-hm-stream + #:write-utime-ymdhms-stream + #:write-utime-ymdhm-stream + #:with-utime-decoding + #:with-utime-decoding-utc-offset + #:is-dst + #:year + #:month + #:day-of-month + #:hour + #:minute + #:second + #:daylight-p + #:zone + #:day-of-month + #:day-of-week + #:+datetime-number-strings+ + #:utc-offset + #:copy-binary-stream + + ;; impl.lisp + #:probe-directory + #:cwd + #:quit + #:command-line-arguments + #:copy-file + #:run-shell-command ;; lists.lisp - #:remove-tree-if + #:remove-from-tree-if #:find-tree #:with-each-file-line #:with-each-stream-line #:remove-keyword #:remove-keywords #:append-sublists + #:alist-elem-p + #:alistp + #:get-alist + #:update-alist + #:alist-plist + #:plist-alist + #:update-plist + #:get-plist + #:flatten + #:unique-slot-values + ;; seq.lisp #:nsubseq + ;; math.lisp #:ensure-integer - + #:histogram + #:fixnum-width + #:scaled-epsilon + #:sinc + #:numbers-within-percentage + ;; macros.lisp #:time-iterations + #:time-seconds #:in #:mean #:with-gensyms @@ -81,12 +167,23 @@ #:alambda #:it #:mac - + #:mv-bind + #:deflex + #:def-cached-vector + #:def-cached-instance + #:with-ignore-errors + #:ppmx + #:defconstant* + #:defvar-unbound + ;; files.lisp #:print-file-contents + #:read-stream-to-string #:read-file-to-string + #:read-file-to-usb8-array + #:read-stream-to-strings #:read-file-to-strings - + ;; strings.lisp #:string-append #:count-string-words @@ -94,10 +191,10 @@ #:string-trim-last-character #:nstring-trim-last-character #:string-hash - #:string-not-null? - #:whitespace? - #:not-whitespace? - #:string-ws? + #:is-string-empty + #:is-char-whitespace + #:not-whitespace-char + #:is-string-whitespace #:string-invert #:escape-xml-string #:make-usb8-array @@ -108,38 +205,51 @@ #:escape-backslashes #:concat-separated-strings #:print-separated-strings - + #:lex-string + #:split-alphanumeric-string + + ;; strmatch.lisp + #:score-multiword-match + #:multiword-match + ;; symbols.lisp #:ensure-keyword + #:ensure-keyword-upcase + #:ensure-keyword-default-case #:concat-symbol #:concat-symbol-pkg #:show #:show-variables #:show-functions - + ;; From attrib-class.lisp #:attributes-class #:slot-attribute + #:slot-attributes + #:generalized-equal - + ;; From buffered input - + #:make-fields-buffer #:read-buffered-fields - + ;; From datetime.lisp #:pretty-date #:date-string #:print-float-units #:print-seconds - + #:posix-time-to-utime + #:utime-to-posix-time + ;; From random.lisp #:seed-random-generator #:random-choice - - ;; From telnet-server.lisp - #:start-telnet-server - + + ;; From repl.lisp + #:make-repl + #:init/repl + ;; From web-utils #:*base-url* #:base-url! @@ -148,20 +258,60 @@ #:*standard-xhtml-header* #:*standard-xml-header* #:user-agent-ie-p - + #:decode-uri-query-string + #:split-uri-query-string + ;; From xml-utils - #:wrap-with-xml + #:sgml-header-stream #:xml-tag-contents #:positions-xml-tag-contents - #:xml-cdata - + #:cdata-string + #:write-cdata + ;; From console - *console-msgs* - cmsg - cmsg-c - cmsg-add - cmsg-remove - fixme + #:*console-msgs* + #:cmsg + #:cmsg-c + #:cmsg-add + #:cmsg-remove + #:fixme + + ;; byte-stream + #:make-binary-array-output-stream + #:get-output-stream-data + #:dump-output-stream-data + #:make-byte-array-input-stream + + ;; sockets.lisp + #:make-active-socket + #:close-active-socket + + ;; listener.lisp + #:init/listener + #:stop-all/listener + #:listener + + ;; fformat.lisp + #:fformat + + ;; os.lisp + #:command-output + #:run-shell-command-output-stream + #:delete-directory-and-files + #:file-size + #:getpid + + ;; color.lisp + #:rgb->hsv + #:rgb255->hsv255 + #:hsv->rgb + #:hsv255->rgb255 + #:hsv-equal + #:hsv255-equal + #:hsv-similar + #:hsv255-similar + #:hue-difference + #:hue-difference-fixnum ))