thodg/cl-unix-cybernetics/unix/defs.lisp

Branch - branch -masterv0.3- tag -v0.3.3adams-0.3.2adams-0.3.1adams-0.3adams-0.2adams-0.1

• Show log

  Commit

• Hash : b0ab5bb5
  Author : Thomas de Grivel
  Date : 2022-12-04T18:50:53
  

  cl-unix-cybernetics
  

Download

• unix/defs.lisp

• ;; cl-unix-cybernetics
  ;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
  ;;
  ;; Permission is hereby granted to use this software granted
  ;; the above copyright notice and this permission paragraph
  ;; are included in all copies and substantial portions of this
  ;; software.
  ;;
  ;; THIS SOFTWARE IS PROVIDED "AS-IS" WITHOUT ANY GUARANTEE OF
  ;; PURPOSE AND PERFORMANCE. IN NO EVENT WHATSOEVER SHALL THE
  ;; AUTHOR BE CONSIDERED LIABLE FOR THE USE AND PERFORMANCE OF
  ;; THIS SOFTWARE.
  
  (in-package :cl-unix-cybernetics)
  
  ;;  Group
  
  (define-resource-class group () ()
    ((probe-group :properties (:ensure :name :passwd :gid :members)))
    ((op-update-group :properties (:ensure :gid))))
  
  (defgeneric probe-group (resource os))
  (defgeneric op-update-group (resource os &key ensure gid))
  
  ;;  User
  
  (define-resource-class user (resource-container)
    ()
    ((probe-user :properties (:ensure :login :uid :gid :realname
                                      :home :shell))
     (probe-user-groups :properties (:groups)))
    ((op-update-user :properties (:ensure :uid :gid :realname :home :shell
                                  :login-class :groups))))
  
  (defgeneric probe-user-in-/etc/passwd (resource os))
  (defgeneric probe-user-groups-in-/etc/group (resource os))
  (defgeneric op-update-user (resource os &key ensure uid gid realname home shell
                                            login-class
                                            groups))
  
  (defmethod resource-before-p ((r1 group) (r2 user))
    t)
  
  ;;  Filesystem virtual node
  
  (define-resource-class vnode ()
    ()
    ((probe-vnode-using-ls :properties (:ensure :group :links :mode :mtime
                                                :owner :size))
     (probe-vnode-using-stat :properties (:atime :blocks :blksize :ctime
                                                 :dev :ensure :flags :gid
                                                 :ino :links :mode :mtime
                                                 :rdev :size :uid)))
    ((op-chmod :properties (:mode))
     (op-chown :properties (:uid :gid :owner :group))))
  
  (defgeneric probe-vnode-using-ls (resource os))
  (defgeneric probe-vnode-using-stat (resource os))
  (defgeneric op-chmod (resource os &key mode &allow-other-keys))
  (defgeneric op-chown (resource os &key uid gid owner group &allow-other-keys))
  
  ;;  File
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
  
    (defvar *cksum-legacy-algorithms*
      '(:cksum))
  
    (defvar *cksum-algorithms*
      `(:md5 :rmd160 :sha1 :sha224 :sha256 :sha384 :sha512
             ,@*cksum-legacy-algorithms*)))
  
  (defvar *probe-file-content-size-limit* (* 1024 1024))
  
  (define-resource-class file (vnode)
    ()
    ((probe-file-content :properties (:content))
     . #.(let ((algorithms))
           (dolist (algorithm *cksum-algorithms*)
             (push `(,(sym 'probe-file-cksum- algorithm)
                      :properties (,algorithm))
                   algorithms))
           (nreverse algorithms)))
    ((op-file-ensure :properties (:ensure))
     (op-file-content :properties (:content)))
    ((:op-properties (:content :ensure :mode :uid :gid :owner :group))))
  
  (defgeneric probe-file-content (resource os))
  (defgeneric op-file-ensure (resource os &key ensure))
  (defgeneric op-file-content (resource os &key content))
  
  ;;  Symbolic link
  
  (define-resource-class symlink (vnode)
    ()
    ((probe-symlink-target :properties (:target)))
    ((op-symlink-ensure :properties (:ensure))
     (op-symlink-target :properties (:target)))
    ((:op-properties (:ensure :target))))
  
  (defgeneric probe-symlink-target (resource os))
  (defgeneric op-symlink-ensure (resource os &key ensure))
  (defgeneric op-symlink-target (resource os &key target))
  
  ;;  Directory
  
  (define-resource-class directory (vnode)
    ()
    ((probe-directory-content :properties (:content)))
    ((op-directory-ensure :properties (:ensure)))
    ((:op-properties (:ensure :mode :uid :gid :owner :group))))
  
  (defgeneric probe-directory-content (resource os))
  (defgeneric op-directory-ensure (resource os &key ensure))
  
  ;;  Mounted filesystems
  
  (define-resource-class mount ()
    ()
    ((probe-mount :properties (:mounted-device
                               :mounted-mount-point
                               :mounted-fstype
                               :mounted-options))
     (probe-fstab :properties (:fstab-device
                               :fstab-mount-point
                               :fstab-fstype
                               :fstab-options
                               :fstab-freq
                               :fstab-passno))))
  
  (defgeneric probe-mount (resource os))
  (defgeneric probe-fstab (resource os))
  
  ;;  Process
  
  (define-resource-class process ()
    ()
    ((probe-ps-auxww :properties (:user :pid :cpu :mem :vsz :rss :tt :state
                                  :start :time :cmd))))
  
  (defmethod probe-ps-auxww (process os))
  
  ;;  Software package
  
  (define-resource-class pkg)
  
  (defgeneric probe-installed-packages (host os))
  

Download