changeset 243: |
e3c0df295100 |
parent: |
989b1b4782dc
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Thu, 30 May 2024 18:30:46 -0400 |
permissions: |
-rw-r--r-- |
description: |
scripts |
1 ;;; bootstrap.lisp --- let 'er rip 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 14 (in-package :infra/bootstrap) 17 (eval-when (:compile-toplevel) 18 (defstruct host name cpus mem arch kernel core) 19 (defparameter *profile* (read-sxp-file 20 (if-let ((profile (sb-posix:getenv "BUILD_PROFILE"))) 23 (defparameter *core* sb-ext:*core-pathname*) 24 (defparameter *host-config* (read-sxp-file 25 (let ((hcfg (format nil "~a.sxp" (sb-unix:unix-gethostname)))) 26 (unless (probe-file hcfg) 27 (print #0$./check.sh$#)) 29 (defparameter *env* (let ((table (make-hash-table :test 'equal)) 30 (keys (list "STASH" "STORE" "DIST" "PACKY_URL" "VC_URL" "INSTALL_PREFIX" 31 "CC" "AR" "HG" "GIT" "LISP" "RUST" "LD" "SHELL" "DEV" "DEV_HOME" 32 "DEV_ID" "WORKER" "WORKER_ID" "WORKER_HOME" "CARGO_HOME" "RUSTUP_HOME" 34 (dolist (k keys table) 35 (setf (gethash k table) (sb-posix:getenv k)))))) 37 (println "starting bootstrap.lisp") 38 ;; (println sb-sys::*machine-version*) 39 ;; (trace! "env:" (hash-table-alist *env*)) 42 (defun apply-build-config () 43 (setf *log-level* :trace))