3 ;; Copyright (C) 2012, 2013 David Vazquez
4 ;; Copyright (C) 2012 Raimon Grau
6 ;; JSCL is free software: you can redistribute it and/or
7 ;; modify it under the terms of the GNU General Public License as
8 ;; published by the Free Software Foundation, either version 3 of the
9 ;; License, or (at your option) any later version.
11 ;; JSCL is distributed in the hope that it will be useful, but
12 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ;; General Public License for more details.
16 ;; You should have received a copy of the GNU General Public License
17 ;; along with JSCL. If not, see <http://www.gnu.org/licenses/>.
19 (defvar *newline* (string (code-char 10)))
21 (defmacro concatf (variable &body form)
22 `(setq ,variable (concat ,variable (progn ,@form))))
24 ;;; This couple of helper functions will be defined in both Common
25 ;;; Lisp and in Ecmalisp.
26 (defun ensure-list (x)
31 (defun !reduce (func list &key initial-value)
36 :initial-value (funcall func initial-value (car list)))))
38 ;;; Concatenate a list of strings, with a separator
39 (defun join (list &optional (separator ""))
42 (!reduce (lambda (s o) (concat s separator o))
44 :initial-value (car list))))
46 (defun join-trailing (list &optional (separator ""))
49 (concat (car list) separator (join-trailing (cdr list) separator))))
51 (defun mapconcat (func list)
52 (join (mapcar func list)))
54 (defun vector-to-list (vector)
56 (size (length vector)))
57 (dotimes (i size (reverse list))
58 (push (aref vector i) list))))
60 (defun list-to-vector (list)
61 (let ((v (make-array (length list)))
67 (defmacro awhen (condition &body body)
68 `(let ((it ,condition))
71 (defun integer-to-string (x)
76 (concat "-" (integer-to-string (- 0 x))))
79 (while (not (zerop x))
80 (push (mod x 10) digits)
81 (setq x (truncate x 10)))
82 (mapconcat (lambda (x) (string (digit-char x)))
85 (defun float-to-string (x)
86 #+jscl (float-to-string x)
87 #+common-lisp (format nil "~f" x))