thodg/cl-unix-cybernetics/core/properties.lisp

• Show log

  Commit

• Hash : 1b9dad71
  Author :
  Date : 2015-02-08T20:59:45
  

  Fix compilation, resource containers and localhost.
  

Download

• core/properties.lisp

• ;;
  ;;  adams  -  Remote system administration tools
  ;;
  ;;  Copyright 2013,2014 Thomas de Grivel <thomas@lowh.net>
  ;;
  ;;  Permission to use, copy, modify, and distribute this software for any
  ;;  purpose with or without fee is hereby granted, provided that the above
  ;;  copyright notice and this permission notice appear in all copies.
  ;;
  ;;  THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  ;;  WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  ;;  MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  ;;  ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  ;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  ;;  ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  ;;  OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  ;;
  
  (in-package :adams)
  
  ;;  Properties implemented as property lists
  
  (defun properties (&rest keys-and-values)
    (apply #'list keys-and-values))
  
  (defmacro properties* (&rest vars)
    (when (and (consp (first vars))
               (endp (rest vars)))
      (setq vars (first vars)))
    `(list ,@(iter (for v in vars)
                   (collect (make-keyword v))
                   (collect v))))
  
  (defmacro values* (&rest vars)
    (when (and (consp (first vars))
               (endp (rest vars)))
      (setq vars (first vars)))
    `(values ,@vars))
  
  (defun get-property (property properties)
    (getf properties property +undefined+))
  
  (defsetf get-property (property properties) (value)
    `(setf (getf ,properties ,property) ,value))
  
  (defun merge-properties (&rest properties)
    (apply #'append properties))
  

Download