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

Tag - 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

• core/os.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)
  
  (defmethod print-object ((os os) stream)
    (print-unreadable-object (os stream :type t :identity (not *print-pretty*))
      (with-slots (machine name release version) os
      (format stream "~A ~A ~A ~A"
  	    machine name release version))))
  
  (defmethod describe-probed-property-value ((resource host)
                                             (property (eql :os))
                                             (os os))
    (with-slots (machine name release version) os
      (format nil "~A ~A ~A ~A"
  	    machine name release version)))
  
  (defmethod match-specified-value ((host host) (property (eql :os)) specified probed os)
    (re-match `(:sequence ,specified) probed))
  
  ;;  UNIX
  
  (defclass os-unix (os) ())
  
  ;;  Linux
  
  (defclass os-linux (os-unix)
    ((distrib :initarg :distrib
              :accessor os-distrib
              :type symbol)))
  (defclass os-linux-debian (os-linux) ())
  (defclass os-linux-gentoo (os-linux) ())
  
  ;;  BSD
  
  (defclass os-bsd (os-unix) ())
  (defclass os-freebsd (os-bsd) ())
  (defclass os-openbsd (os-bsd) ())
  (defclass os-darwin (os-bsd) ())
  
  ;;  Windows
  
  (defclass os-windows (os) ())
  

Download