changeset 269: |
2e100f53d0d7 |
parent: |
9ff6664cd5a9
|
child: |
cd797f4eb846 |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Sun, 16 Jun 2024 05:02:27 +0000 |
permissions: |
-rw-r--r-- |
description: |
merge |
1 ;;; autogen.lisp --- Setup the current directory for 3 ;; sbcl --core .stash/share/lisp/user.core --load autogen.lisp 9 (:use :cl :skel :log :std/named-readtables 10 :dat/json :dat/sxp :net/fetch :net/util 11 :cli/progress :cli/ansi :cli/ed :cli/prompt 12 :cli/shell :std/hash-table :std/alien :std/macs 15 (in-package :infra/autogen) 19 (defparameter *profile* (uiop:read-file-forms 20 (if-let ((profile (sb-posix:getenv "INFRA_PROFILE"))) 23 (defparameter *core* sb-ext:*core-pathname*) 24 (defparameter *host* (uiop:read-file-forms 25 (let ((hcfg (format nil "~a.sxp" (sb-unix:unix-gethostname)))) 26 (unless (probe-file hcfg) 27 (print #0$./check.sh$#)) 30 (defun gethost (k) (getf *host* k)) 31 (defun getprofile (k) (getf *profile* k)) 33 (setq *skel-project* (find-skelfile *default-pathname-defaults* :load t)) 34 (defparameter *host-env* (let ((table (make-hash-table :test 'equal)) 35 (keys (list "STASH" "STORE" "DIST" "PACKY_URL" "VC_URL" "INSTALL_PREFIX" 36 "CC" "AR" "HG" "GIT" "LISP" "RUST" "LD" "SHELL" "DEV" "DEV_HOME" 37 "DEV_ID" "WORKER" "WORKER_ID" "WORKER_HOME" "CARGO_HOME" "RUSTUP_HOME" 38 "LISP_HOME" "INFRA_PROFILE"))) 39 (dolist (k keys table) 40 (setf (gethash k table) (sb-posix:getenv k))))) 41 (defun getenv (k) (gethash *host-env* k)) 43 (defun build-default () 44 (let ((comp-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :repos)))) 45 (packy-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :packy-repos)))) 46 (operator-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :archlinux :box)))) 47 (worker-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :alpine :worker))))) 48 (std/thread:wait-for-threads 49 (list comp-builder packy-builder)))) 52 "Auto-generate the INFRA system." 53 (info! "starting autogen.lisp" sb-ext:*core-pathname*) 55 ;; print host, env, profile 56 (format t "core: ~A~%" *core*) 59 (loop for (k v) on *host* by 'cddr 60 do (format t " ~A = ~A~%" k v)) 62 (loop for k being the hash-key 63 using (hash-value v) of *host-env* 64 do (format t " ~A = ~:A~%" k v)) 66 (loop for (k v) on *profile* by 'cddr 67 do (format t " ~A = ~A~%" k v)) 72 ;; The host profile is generated automatically by 'check.sh'. After running 73 ;; the script you'll have a file HOST.sxp. 76 ;; The default profile is defined in 'default.sxp'. You can use that as a base 77 ;; configuration and override it with INFRA_PROFILE 81 (unless (probe-file #p".stash") 82 (sk-call* *skel-project* :bootstrap))