changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / skelfile

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; -*-
2 :name "core"
3 :author ("Richard Westhaver" . "ellis@rwest.io>")
4 :version "0.1.0"
5 :license "MPL"
6 :stash ".stash"
7 :store ".store"
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"))
13 :env ((cc "clang"))
14 :components ((:dir-locals ".dir-locals")
15  (:org "readme"))
16 :rules
17 ((all (compile std prelude user infra core tests build fasl rust-bin)) ;; TODO: add keyword args -- (emacs :stage 'install)
18  (clean ()
19  #$rm -vrf .stash$#
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$#)
24  (tree-sitter-alien ()
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..
30  (with-open-file
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))))
34  ;; lisp
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))
54  ;; rust
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$#)
59  ;; install
60  (install () #$d=/usr/local/bin
61  cd .stash
62  for f in $(find . -type f ! -name "*.*")
63  do echo "$(basename $f) -> $d"
64  install -C -m 755 $f $d
65  done
66  d=/usr/local/share/lisp
67  if [ -d $d ];
68  then
69  for f in $(find . -type f -name "*.core")
70  do echo "$(basename $f) -> $d"
71  install -C -m 755 $f $d
72  done fi$#)
73  (emacs-user () #$make -C emacs$#)
74  (dist () #$cd .stash
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
81  mkdir -pv .stash
82  mv core-source.tar.zst .stash/$#))