changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > infra / autogen.lisp

changeset 255: ad70dec68fa1
parent: e2b8d0be0d24
child: 9d6a767d72f0
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 14 Jun 2024 19:20:13 +0000
permissions: -rw-r--r--
description: autogen updates and moved Containerfiles 
     1 ;;; autogen.lisp --- Setup the current directory for 
     2 
     3 ;; sbcl --load autogen.lisp
     4 
     5 ;;; Code:
     6 (in-package :std-user)
     7 
     8 (defpkg :infra/bootstrap
     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
    13         :std/fmt))
    14 
    15 (in-package :infra/bootstrap)
    16 
    17 (in-readtable :shell)
    18 
    19 (defparameter *profile* (uiop:read-file-forms
    20                          (if-let ((profile (sb-posix:getenv "INFRA_PROFILE")))
    21                                  profile
    22                                  #P"default.sxp")))
    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$#))
    28                         hcfg)))
    29 (defun gethost (k) (getf *host* k))
    30 (defun getprofile (k) (getf *profile* k))
    31 (init-skel-vars)
    32 (setq *skel-project* (find-skelfile *default-pathname-defaults* :load t))
    33 (defparameter *host-env* (let ((table (make-hash-table :test 'equal))
    34                                (keys (list "STASH" "STORE" "DIST" "PACKY_URL" "VC_URL" "INSTALL_PREFIX"
    35                                            "CC" "AR" "HG" "GIT" "LISP" "RUST" "LD" "SHELL" "DEV" "DEV_HOME"
    36                                            "DEV_ID" "WORKER" "WORKER_ID" "WORKER_HOME" "CARGO_HOME" "RUSTUP_HOME"
    37                                            "LISP_HOME" "INFRA_PROFILE")))
    38                            (dolist (k keys table)
    39                              (setf (gethash k table) (sb-posix:getenv k)))))
    40 (defun getenv (k) (gethash *host-env* k))
    41 
    42 (defun autogen ()
    43   "Auto-generate the INFRA system."
    44   (info! "starting autogen.lisp" sb-ext:*core-pathname*)
    45   (terpri)
    46   (format t "core: ~A~%" *core*)
    47   (terpri)
    48   (println "host:")
    49   (loop for (k v) on *host* by 'cddr
    50         do (format t "  ~A = ~A~%" k v))
    51   (println "env:")
    52   (loop for k being the hash-key
    53         using (hash-value v) of *host-env*
    54         do (format t "  ~A = ~:A~%" k v))
    55   (println "profile:")
    56   (loop for (k v) on *profile* by 'cddr
    57         do (format t "  ~A = ~A~%" k v))
    58 
    59 ;;; init stash (via skel)
    60   (sk-call* *skel-project* :clean :src)
    61 
    62   (let ((rocksdb-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :rocksdb))))
    63         (sbcl-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :sbcl :sbcl-shared))))
    64         (archlinux-pod-builder (sb-thread:make-thread (lambda () (sk-call *skel-project* :archlinux :operator))))
    65         (alpine-pod-builder (sb-thread:make-thread (lambda () (sk-call *skel-project* :alpine :worker)))))
    66     (std/thread:wait-for-threads
    67      (list rocksdb-builder sbcl-builder archlinux-pod-builder alpine-pod-builder))))
    68 ;;; *host*
    69 
    70 ;;; *profile*
    71 ;; (sb-ext:quit)