changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > infra / autogen.lisp

changeset 254: e2b8d0be0d24
parent: 80e639d0b203
child: ad70dec68fa1
author: Richard Westhaver <ellis@rwest.io>
date: Wed, 12 Jun 2024 23:02:34 -0400
permissions: -rw-r--r--
description: autogen updates 
     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 (info! "starting autogen.lisp" sb-ext:*core-pathname*)
    43 (terpri)
    44 (format t "core: ~A~%" *core*)
    45 (terpri)
    46 (println "host:")
    47 (loop for (k v) on *host* by 'cddr
    48       do (format t "  ~A = ~A~%" k v))
    49 (println "env:")
    50 (loop for k being the hash-key
    51       using (hash-value v) of *host-env*
    52       do (format t "  ~A = ~:A~%" k v))
    53 (println "profile:")
    54 (loop for (k v) on *profile* by 'cddr
    55       do (format t "  ~A = ~A~%" k v))
    56 
    57 ;;; init stash (via skel)
    58 (sk-call* *skel-project* :clean :src)
    59 
    60 (let ((rocksdb-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :rocksdb))))
    61       (sbcl-builder (sb-thread:make-thread (lambda () (sk-call* *skel-project* :sbcl :sbcl-shared))))
    62       (archlinux-pod-builder (sb-thread:make-thread (lambda () (sk-call *skel-project* :archlinux))))
    63       (alpine-pod-builder (sb-thread:make-thread (lambda () (sk-call *skel-project* :alpine)))))
    64   (std/thread:wait-for-threads
    65    (list rocksdb-builder sbcl-builder archlinux-pod-builder alpine-pod-builder)))
    66 ;;; *host*
    67 
    68 ;;; *profile*
    69 
    70 (sb-ext:quit)