diff --git a/Makefile b/Makefile
index 4c339b4..e7908c9 100644
--- a/Makefile
+++ b/Makefile
@@ -18,11 +18,11 @@ all: ${PROGRAM}
deps:
LANG=C.UTF-8 ${LISP_LOAD} prepare-build.lisp --quit
-build/systems.lisp: prepare-build.lisp adams.asd
+build/systems.lisp: prepare-build.lisp cl-unix-cybernetics.asd
LANG=C.UTF-8 ${LISP_LOAD} prepare-build.lisp --quit
${PROGRAM}: build.lisp config.lisp build/systems.lisp toplevel.lisp
- LANG=C.UTF-8 ${LISP_LOAD} build.lisp --eval '(build "${PROGRAM}")' --quit
+ LANG=C.UTF-8 ${LISP_LOAD} build.lisp --eval '(build #P"${PROGRAM}")' --quit
install:
install -m 0755 ${PROGRAM} ${PREFIX}/bin
diff --git a/README.md b/README.md
index 846f01e..2cc4d7a 100644
--- a/README.md
+++ b/README.md
@@ -1,23 +1,21 @@
-Adams 0.3.2
-===========
+cl-unix-cybernetics 0.3.3
+=========================
-Adams is a UNIX system administration tool written in Common Lisp.
+UNIX cybernetics in Common Lisp.
You describe your systems (hosts) using resources having properties.
-The properties are then probed and synchronized by Adams using only
+The properties are then probed and synchronized using only
`/bin/sh` on the remote host, and `/usr/bin/ssh` on the control host.
Current status
--------------
-Adams is currently able to use a local shell or connect to remote hosts
-via ssh.
+There is support for local shell and connection to remote hosts via ssh.
-Adams is this hardcore hacker using only `/bin/sh` commands.
-This makes `ksh` and `bash` suitable shells for adams as they are
-compatible with `/bin/sh`.
+Using only `/bin/sh` commands makes `ksh` and `bash` suitable shells as
+they are compatible with `/bin/sh`.
Supported resource types :
- Host (hostname)
@@ -31,16 +29,16 @@ Supported resource types :
Security design
---------------
-You should only allow Adams what you would allow your system operators :
+You should only allow what you would allow your system operators :
- a shell accessible through SSH using a public key
- apropriate sudo permissions
All commands issued to the remote hosts can be logged.
-Adams does not grant the hosts access to its workstation while it works.
-Adams does not grant access to data belonging to any host.
-Adams does not send any data that is not of direct concern to the host.
-In short, all UNIX permissions are respected, Adams is a regular UNIX user.
+Does not grant the hosts access to its workstation while it works.
+Does not grant access to data belonging to any host.
+Does not send any data that is not of direct concern to the host.
+In short, all UNIX permissions are respected.
Usage
@@ -50,44 +48,35 @@ Usage
### 1. Install [repo](https://github.com/common-lisp-repo/repo).
-### 2. Fetch adams sources.
+### 2. Fetch sources.
``` shell
- $ sbcl --eval '(repo:install :adams)'
+ $ sbcl --eval '(repo:install :cl-unix-cybernetics)'
```
-### 3. Build and install the `adams` binary
+### 3. Build and install the `cl-unix-cybernetics` binary
``` shell
- $ cd ~/common-lisp/cl-adams/adams
+ $ cd ~/common-lisp/thodg/cl-unix-cybernetics
$ make
- $ sudo cp build/adams /usr/local/bin/adams
+ $ sudo cp build/cl-unix-cybernetics /usr/local/bin/
```
-### 4. Configure emacs (optional)
+### 4. Write some resources in a `.lisp` script
-In your `~/.emacs` file :
-``` emacs-lisp
- ;; Adams
- (add-to-list 'auto-mode-alist '("\\.adams\\'" . lisp-mode))
-```
-
-
-### 5. Write some resources in a `.adams` script
-
-In the `tutorial.adams` file :
+In the `tutorial.lisp` file :
``` common-lisp
- #!/usr/local/bin/adams --script
+ #!/usr/local/bin/cl-unix-cybernetics --script
- (resource 'host "adams.kmx.io"
- :user "adams"
- (resource 'user "adams"
+ (resource 'host "example.kmx.io"
+ :user "sysadm"
+ (resource 'user "sysadm"
:shell "/bin/sh"
:ensure :present))
- (with-host "adams.kmx.io"
+ (with-host "example.kmx.io"
(sync *host*))
```
@@ -95,17 +84,17 @@ In the `tutorial.adams` file :
### 6. Profit.
``` shell
- $ chmod 755 tutorial.adams
- $ ./tutorial.adams
+ $ chmod 755 tutorial.lisp
+ $ ./tutorial.lisp
```
-The `tutorial.adams` script will synchronize the host "adams.kmx.io"
+The `tutorial.lisp` script will synchronize the host "example.kmx.io"
according to the resource specifications given in the file.
### 7. DRY up your scripts using `#.(include "file")`
-In the `user/dx.adams` file :
+In the `user/dx.lisp` file :
``` common-lisp
;; Thomas de Grivel (kmx.io)
(resource 'group "dx"
@@ -120,20 +109,27 @@ In the `user/dx.adams` file :
In your main script :
``` common-lisp
- #!/usr/local/bin/adams --script
+ #!/usr/local/bin/cl-unix-cybernetics --script
- (resource 'host "adams.kmx.io"
- :user "adams"
- (resource 'user "adams"
+ (resource 'host "example.kmx.io"
+ :user "admin"
+ (resource 'user "admin"
:shell "/bin/sh"
:ensure :present)
#.(include "user/dx"))
- (with-host "adams.kmx.io"
+ (with-host "example.kmx.io"
(sync *host*))
```
+History
+-------
+
+This project used to be named "Adams".
+It was renamed in 2022 to "cl-unix-cybernetics".
+
+
[License](LICENSE.md)
---------------------
diff --git a/build.lisp b/build.lisp
index 5f38baf..d703ded 100644
--- a/build.lisp
+++ b/build.lisp
@@ -1,5 +1,15 @@
-;; Adams - UNIX system administration tool written in Common 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 :common-lisp-user)
diff --git a/cl-unix-cybernetics.asd b/cl-unix-cybernetics.asd
index 998cc94..67f7d35 100644
--- a/cl-unix-cybernetics.asd
+++ b/cl-unix-cybernetics.asd
@@ -1,5 +1,15 @@
;; 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.
(defpackage :cl-unix-cybernetics.system
(:use :cl :asdf))
@@ -9,7 +19,7 @@
(defsystem :cl-unix-cybernetics
:name "cl-unix-cybernetics"
:author "Thomas de Grivel <thodg@kmx.io>"
- :version "0.1"
+ :version "0.3.3"
:description "UNIX cybernetics in Common Lisp"
:depends-on ("alexandria"
"chronicity"
diff --git a/config.lisp b/config.lisp
index c039f50..291dfcc 100644
--- a/config.lisp
+++ b/config.lisp
@@ -1,4 +1,14 @@
-;; Adams - UNIX system administration tool written in Common 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.
(declaim (optimize (debug 3) (safety 3) (speed 3)))
diff --git a/core/defs.lisp b/core/defs.lisp
index d2123a1..d8335c9 100644
--- a/core/defs.lisp
+++ b/core/defs.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
;; Misc
@@ -132,16 +142,16 @@
:reader resource-registry))
(:metaclass resource-class))
-(defvar *adams*
- (make-instance 'resource-container :id "Adams"))
+(defvar *cl-unix-cybernetics*
+ (make-instance 'resource-container :id "cl-unix-cybernetics"))
(defvar *parent-resource*
- *adams*)
+ *cl-unix-cybernetics*)
(defgeneric clear-resources% (resource-container))
(defmacro with-parent-resource (resource &body body)
- `(let ((*parent-resource* ,(or resource '*adams*)))
+ `(let ((*parent-resource* ,(or resource '*cl-unix-cybernetics*)))
,@body))
(defgeneric resource-before-p (r1 r2))
diff --git a/core/helpers.lisp b/core/helpers.lisp
index 8955517..1eb55ca 100644
--- a/core/helpers.lisp
+++ b/core/helpers.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common 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 :adams)
+(in-package :cl-unix-cybernetics)
(defun read-file (&rest path-parts)
(let ((path (str path-parts)))
diff --git a/core/host.lisp b/core/host.lisp
index 5a17214..46af344 100644
--- a/core/host.lisp
+++ b/core/host.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
(defun run (&rest command)
"Run a command at the current host. COMMAND is assembled using STR."
diff --git a/core/include.lisp b/core/include.lisp
index da6142a..77454e1 100644
--- a/core/include.lisp
+++ b/core/include.lisp
@@ -1,14 +1,24 @@
-;; Adams - UNIX system administration tool written in Common 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 :adams)
+(in-package :cl-unix-cybernetics)
(defun include/resolve-filename (spec)
(flet ((try (&rest parts)
(let ((path (str parts)))
(when (probe-file path)
(return-from include/resolve-filename path)))))
- (try spec ".adams")
+ (try spec ".cl-unix-cybernetics")
(try spec)))
(defun include/resolve-filename! (spec)
diff --git a/core/operation.lisp b/core/operation.lisp
index 76e4ead..5773017 100644
--- a/core/operation.lisp
+++ b/core/operation.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
;; Operation methods
diff --git a/core/os.lisp b/core/os.lisp
index 0ffdace..fac96dd 100644
--- a/core/os.lisp
+++ b/core/os.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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*))
diff --git a/core/probe.lisp b/core/probe.lisp
index c9fc2be..c5b064f 100644
--- a/core/probe.lisp
+++ b/core/probe.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
;; Probe methods
diff --git a/core/properties.lisp b/core/properties.lisp
index d97f345..d1f36c1 100644
--- a/core/properties.lisp
+++ b/core/properties.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common 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 :adams)
+(in-package :cl-unix-cybernetics)
;; Properties implemented as property lists
diff --git a/core/resource-container.lisp b/core/resource-container.lisp
index 43636f4..0d5c5b9 100644
--- a/core/resource-container.lisp
+++ b/core/resource-container.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
;; Resource registry
diff --git a/core/resource.lisp b/core/resource.lisp
index a07c641..66b2a8b 100644
--- a/core/resource.lisp
+++ b/core/resource.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
;; Resource metaclass
diff --git a/core/spec.lisp b/core/spec.lisp
index 13a2853..f30661d 100644
--- a/core/spec.lisp
+++ b/core/spec.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
;; Specified properties, what all specifications amount to.
diff --git a/core/syntaxes.lisp b/core/syntaxes.lisp
index 8b8d6b4..55f6643 100644
--- a/core/syntaxes.lisp
+++ b/core/syntaxes.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common 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 :adams)
+(in-package :cl-unix-cybernetics)
(in-re-readtable)
diff --git a/package.lisp b/package.lisp
index efca103..98b7401 100644
--- a/package.lisp
+++ b/package.lisp
@@ -1,9 +1,19 @@
-;; Adams - UNIX system administration tool written in Common 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-user)
-(defpackage :adams
+(defpackage :cl-unix-cybernetics
(:use
:alexandria
:common-lisp
@@ -13,7 +23,7 @@
:str)
(:shadow #:directory #:get-properties)
(:export
- #:*adams*
+ #:*cl-unix-cybernetics*
#:*host*
;; Shell
#:*default-shell-command*
@@ -147,8 +157,8 @@
#:str
))
-(defpackage :adams-user
- (:use :adams :cl :cl-debug :re)
- (:shadowing-import-from :adams #:directory))
+(defpackage :cl-unix-cybernetics-user
+ (:use :cl-unix-cybernetics :cl :cl-debug :re)
+ (:shadowing-import-from :cl-unix-cybernetics #:directory))
-(setf (symbol-function 'adams::directory) #'cl:directory)
+(setf (symbol-function 'cl-unix-cybernetics::directory) #'cl:directory)
diff --git a/prepare-build.lisp b/prepare-build.lisp
index 3c8234a..a5bcf0f 100644
--- a/prepare-build.lisp
+++ b/prepare-build.lisp
@@ -1,5 +1,15 @@
-;; Adams - UNIX system administration tool written in Common 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 :common-lisp-user)
@@ -26,7 +36,7 @@
(pathname (namestring x))
(string x)))
-(defparameter *dir* (namestring* (system-file :adams "")))
+(defparameter *dir* (namestring* (system-file :cl-unix-cybernetics "")))
(defgeneric collect-sources (x))
@@ -77,13 +87,13 @@
dir)))
(defun dependency-path (src)
- (let* ((adams-dir *dir*)
+ (let* ((cl-unix-cybernetics-dir *dir*)
(path (pathname src))
(dir (pathname-directory path))
(name (pathname-name path))
(type (pathname-type path)))
(with-output-to-string (out)
- (write-string adams-dir out)
+ (write-string cl-unix-cybernetics-dir out)
(write-string "build/" out)
(let ((dir (strip-common-lisp-directory dir)))
(dolist (d (rest dir))
@@ -120,7 +130,7 @@
(call-next-method)))
(t (error "Bad if-feature")))))))
-#+nil (collect-sources :adams)
+#+nil (collect-sources :cl-unix-cybernetics)
(defun write-system-build-file (system sbf)
(format t "~&~A~%" sbf) (force-output)
@@ -176,4 +186,4 @@
(fresh-line out)
(force-output out))))
-(write-build-systems-file :adams)
+(write-build-systems-file :cl-unix-cybernetics)
diff --git a/shell/sb-shell.lisp b/shell/sb-shell.lisp
index e7627f9..05b2706 100644
--- a/shell/sb-shell.lisp
+++ b/shell/sb-shell.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common 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 :adams)
+(in-package :cl-unix-cybernetics)
;; SBCL implementation
diff --git a/shell/shell.lisp b/shell/shell.lisp
index c4aa608..8a33dcd 100644
--- a/shell/shell.lisp
+++ b/shell/shell.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
(defvar *default-shell-command* "/bin/sh")
(defparameter *shell-signal-errors* nil)
diff --git a/test.lisp b/test.lisp
index e57cce3..158050e 100644
--- a/test.lisp
+++ b/test.lisp
@@ -1,11 +1,21 @@
-;; Adams - UNIX system administration tool written in Common 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-user)
-(require :adams)
+(require :cl-unix-cybernetics)
-(in-package :adams-user)
+(in-package :cl-unix-cybernetics-user)
;; TEST
@@ -14,8 +24,8 @@
(assert (string= (machine-instance) (run-1 "hostname")))
-(adams:clear-resources)
-(adams:clear-probed)
+(cl-unix-cybernetics:clear-resources)
+(cl-unix-cybernetics:clear-probed)
(resource 'symlink "/home/dx/test-symlink"
:owner "dx"
diff --git a/toplevel.lisp b/toplevel.lisp
index a31ab40..2709e3e 100644
--- a/toplevel.lisp
+++ b/toplevel.lisp
@@ -1,13 +1,21 @@
-;; Adams - UNIX system administration tool written in Common 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 :adams)
+(in-package :cl-user)
-(defun adams-toplevel ()
- (let ((*package* (find-package :adams-user)))
- (sb-impl::toplevel-init)))
-
-(defun build (path)
- (sb-ext:save-lisp-and-die path
+(flet ((cl-unix-cybernetics-toplevel ()
+ (let ((*package* (find-package :cl-unix-cybernetics-user)))
+ (sb-impl::toplevel-init))))
+ (sb-ext:save-lisp-and-die #P"build/cl-unix-cybernetics"
:toplevel #'cl-unix-cybernetics-toplevel
- :executable t))
+ :executable t)))
diff --git a/unix/commands.lisp b/unix/commands.lisp
index 90868f2..0acaeae 100644
--- a/unix/commands.lisp
+++ b/unix/commands.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
(in-re-readtable)
diff --git a/unix/darwin.lisp b/unix/darwin.lisp
index 0e48d54..7673a03 100644
--- a/unix/darwin.lisp
+++ b/unix/darwin.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
(in-re-readtable)
diff --git a/unix/debian.lisp b/unix/debian.lisp
index 734e4b9..40b333e 100644
--- a/unix/debian.lisp
+++ b/unix/debian.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common 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 :adams)
+(in-package :cl-unix-cybernetics)
(in-re-readtable)
diff --git a/unix/defs.lisp b/unix/defs.lisp
index 7bb5065..9c79035 100644
--- a/unix/defs.lisp
+++ b/unix/defs.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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
diff --git a/unix/freebsd.lisp b/unix/freebsd.lisp
index 9b34175..b9b7c23 100644
--- a/unix/freebsd.lisp
+++ b/unix/freebsd.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common 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 :adams)
+(in-package :cl-unix-cybernetics)
(in-re-readtable)
diff --git a/unix/linux.lisp b/unix/linux.lisp
index 4d2f441..741b129 100644
--- a/unix/linux.lisp
+++ b/unix/linux.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common 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 :adams)
+(in-package :cl-unix-cybernetics)
(in-re-readtable)
diff --git a/unix/openbsd.lisp b/unix/openbsd.lisp
index 6ba2960..3d8bb76 100644
--- a/unix/openbsd.lisp
+++ b/unix/openbsd.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
(in-re-readtable)
diff --git a/unix/operations.lisp b/unix/operations.lisp
index fdd219c..02c997b 100644
--- a/unix/operations.lisp
+++ b/unix/operations.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
;; Echo
diff --git a/unix/probes.lisp b/unix/probes.lisp
index 4c62883..5825cb0 100644
--- a/unix/probes.lisp
+++ b/unix/probes.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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
diff --git a/unix/ssh.lisp b/unix/ssh.lisp
index 0dda1af..52029ff 100644
--- a/unix/ssh.lisp
+++ b/unix/ssh.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common 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 :adams)
+(in-package :cl-unix-cybernetics)
(in-re-readtable)
diff --git a/unix/stat.lisp b/unix/stat.lisp
index 28ec881..a29cff5 100644
--- a/unix/stat.lisp
+++ b/unix/stat.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
;; st_mode, see stat(2)
diff --git a/unix/syntaxes.lisp b/unix/syntaxes.lisp
index 74b54aa..3cfd0ed 100644
--- a/unix/syntaxes.lisp
+++ b/unix/syntaxes.lisp
@@ -1,7 +1,17 @@
-;; Adams - UNIX system administration tool written in Common Lisp
+;; cl-unix-cybernetics
;; Copyright 2013-2022 Thomas de Grivel <thodg@kmx.io>
-
-(in-package :adams)
+;;
+;; 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)
(in-re-readtable)