changeset 505: |
da3a08c89941 |
parent: |
16fe3cdae1e2
|
child: |
e2d577f31866 |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Wed, 03 Jul 2024 17:38:51 -0400 |
permissions: |
-rwxr-xr-x |
description: |
rm rust krypt |
1 ;;; skelfile --- CC/core skelfile -*- mode: skel; -*- 3 :author ("Richard Westhaver" . "ellis@rwest.io>") 8 :description "The Compiler Company Core" 9 :tags ("core" "lisp" "rust" "emacs" "c") 10 :include ("lisp.sk" "rust.sk" "emacs.sk") 11 :vc (:hg "https://vc.compiler.company/comp/core") 12 :scripts ((:lisp "x")) 14 :components ((:dir-locals ".dir-locals") 17 ((all (compile std prelude user infra core tests build fasl rust-bin)) ;; TODO: add keyword args -- (emacs :stage 'install) 20 #$find emacs -name '*.elc' -type f -delete$# 21 #$find lisp -name '*.fasl' -type f -delete$# 22 #$echo 'cargo clean:' && cd rust && cargo clean$#) 23 (box () #$podman build . --build-arg IMAGE=box -t core$#) 25 #$ cd lisp/ffi/tree-sitter && 26 clang -g -O2 -Wall -Wno-unused-value -ltree-sitter -shared \
27 alien.c -o /usr/local/lib/libtree-sitter-alien.so$# 28 (info! "installed /usr/local/lib/libtree-sitter-alien.so")) 29 (psl.dat () ;; req:fetch works in slime and sk-shell but not here? hmm.. 31 (st ".stash/psl.dat" :direction :output :element-type 'octet) 32 (loop for x across (req:get "https://publicsuffix.org/list/public_suffix_list.dat" :force-binary t) 33 do (write-byte x st)))) 35 (rdb () #$./x.lisp build rdb$#) 36 (skel () #$./x.lisp build skel$#) 37 (organ () #$./x.lisp build organ$#) 38 (homer () #$./x.lisp build homer$#) 39 (packy () #$./x.lisp build packy$#) 40 (build () #$./x.lisp build$#) 41 (compile () #$./x.lisp compile$#) 42 (std () #$./x.lisp save std$#) 43 (prelude () #$./x.lisp save prelude$#) 44 (user () #$./x.lisp save user$#) 45 (infra () #$./x.lisp save infra$#) 46 (core () #$./x.lisp save core$#) 47 (tests () #$./x.lisp save tests$#) 48 (prelude-fasl () #$./x.lisp make prelude$#) 49 (user-fasl () #$./x.lisp make user$#) 50 (core-fasl () #$./x.lisp make core$#) 51 (tests-fasl () #$./x.lisp make core/tests$#) 52 (bench-fasl () #$./x.lisp make core/bench$#) 53 (fasl (core-fasl tests-fasl bench-fasl user-fasl prelude-fasl)) 55 (mailman () #$cd rust && cargo build -Z unstable-options --bin mailman --artifact-dir ../.stash/$#) 56 (alik () #$cd rust && cargo build -Z unstable-options --bin alik --artifact-dir ../.stash/$#) 57 (rust-bin (mailman alik)) 58 (alik-ui () #$trunk build --config rust/ui/alik/Trunk.toml$#) 60 (install () #$d=/usr/local/bin 62 for f in $(find . -type f ! -name "*.*") 63 do echo "$(basename $f) -> $d" 64 install -C -m 755 $f $d 66 d=/usr/local/share/lisp 69 for f in $(find . -type f -name "*.core") 70 do echo "$(basename $f) -> $d" 71 install -C -m 755 $f $d 73 (emacs-user () #$make -C emacs$#) 75 mkdir -pv core/bin core/share/lisp/fasl 76 mv *.core core/share/lisp/ 77 mv *.fasl core/share/lisp/fasl/ 78 mv $(find -maxdepth 1 -type f ! -name "*.*") core/bin/ 79 tar -I 'zstd' -cf core.tar.zst core/*$#) 80 (dist-clean (clean) #$cd .. && tar -I 'zstd' -cf core/core-source.tar.zst core/* && cd core 82 mv core-source.tar.zst .stash/$#))