changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > infra / bootstrap.lisp

changeset 220: 2039e29599cd
parent: b1a96e0e3add
child: 0a61207f30d7
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 03 May 2024 00:36:49 +0000
permissions: -rw-r--r--
description: carg-edit 
     1 ;;; bootstrap.lisp --- let 'er rip
     2 
     3 ;;
     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 (in-package :infra/bootstrap)
    15 (in-readtable :shell)
    16 
    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")))
    21                              profile
    22                              #P"default.sxp")))
    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$#))
    28                                  hcfg)))
    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"
    33                                         "LISP_HOME")))
    34                   (dolist (k keys table)
    35                     (setf (gethash k table) (sb-posix:getenv k))))))
    36 
    37 (info! "starting bootstrap.lisp")
    38 (println sb-sys::*machine-version*)
    39 (trace! "env:" (hash-table-alist *env*))
    40 
    41 ;; build-config
    42 (defun apply-build-config ()
    43   (setf *log-level* :trace))
    44 
    45 ;; host-config