changeset 672: | e14805b2f02f |
parent: | 6856c021d084 |
child: | ca09f470abb3 |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Mon, 23 Sep 2024 21:36:33 -0400 |
permissions: | -rwxr-xr-x |
description: | skel dist fix |
325
9b573fc6bc40
vc updates, fixed missing in-package lines, skel errors
Richard Westhaver <ellis@rwest.io>
parents:
324
diff
changeset
|
1 | ;;; skelfile --- CC/core skelfile -*- mode: skel; -*- |
60 | 2 | :name "core" |
645 | 3 | :author ("Richard Westhaver" . "ellis@rwest.io") |
60 | 4 | :version "0.1.0" |
5 | :license "MPL" |
|
284
597f34d43df7
x.lisp upgrades, skel upgrades, worked on shell reader macros
Richard Westhaver <ellis@rwest.io>
parents:
283
diff
changeset
|
6 | :stash ".stash" |
319 | 7 | :store ".store" |
60 | 8 | :description "The Compiler Company Core" |
325
9b573fc6bc40
vc updates, fixed missing in-package lines, skel errors
Richard Westhaver <ellis@rwest.io>
parents:
324
diff
changeset
|
9 | :tags ("core" "lisp" "rust" "emacs" "c") |
670
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
10 | :include ("lisp/lisp.sk" "rust/rust.sk" "emacs/emacs.sk") |
636
8a5921bf004e
update vc and org-html-home/up-format
Richard Westhaver <ellis@rwest.io>
parents:
625
diff
changeset
|
11 | :vc (:hg "https://vc.compiler.company/core") |
662
a53be64410c5
removed skel project env/def, added to BIND
Richard Westhaver <ellis@rwest.io>
parents:
661
diff
changeset
|
12 | :bind ((stash ".stash") |
670
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
13 | ;; (cc :env "clang") |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
14 | (emacs-locals :dir-locals |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
15 | (nil . ((indent-tabs-mode . nil))) |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
16 | (rust-mode . ((eglot-workspace-configuration |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
17 | . (:rust-analyzer (:cargo (:buildScripts (:enable t) (:features "all"))))))) |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
18 | (nushell-mode . ((nushell-indent-offset . 2))) |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
19 | (nushell-ts-mode . ((nushell-indent-offset . 2))) |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
20 | (sh-mode . (sh-indentation . 2)) |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
21 | (makefile-mode . ((indent-tabs-mode . t))) |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
22 | (slint-mode . ((slint-indent-level . 2))))) |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
23 | :components ((:org "readme") |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
24 | (:mod "emacs") |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
25 | (:mod "lisp") |
6856c021d084
add dir-locals to skel, fix package lock violation in castable, move .sk files
Richard Westhaver <ellis@rwest.io>
parents:
662
diff
changeset
|
26 | (:mod "rust")) |
172 | 27 | :rules |
545 | 28 | ((all (%stash |
575
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
571
diff
changeset
|
29 | psl.dat parquet.json rgb.txt |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
30 | save-std save-prelude save-user |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
31 | save-infra save-core save-tests |
656 | 32 | build-tree-sitter-alien build-core fasls |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
33 | ;; build-skel build-organ build-homer build-packy build-rdb |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
34 | ;; rust-bin |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
35 | )) |
312 | 36 | (clean () |
37 | #$rm -vrf .stash$# |
|
38 | #$find emacs -name '*.elc' -type f -delete$# |
|
39 | #$find lisp -name '*.fasl' -type f -delete$# |
|
40 | #$echo 'cargo clean:' && cd rust && cargo clean$#) |
|
570 | 41 | (tree-sitter-alien () |
571 | 42 | (:build () #$cd lisp/ffi/tree-sitter && |
43 | clang -g -O2 -Wall -Wno-unused-value -ltree-sitter -shared \ |
|
44 | alien.c -o ../../../.stash/libtree-sitter-alien.so$#) |
|
45 | (:install () #$cp .stash/libtree-sitter-alien.so /usr/local/lib/$#)) |
|
567 | 46 | (psl.dat (%stash) |
647 | 47 | (download "https://publicsuffix.org/list/public_suffix_list.dat" |
48 | :output (merge-pathnames |
|
49 | ".stash/psl.dat" |
|
50 | *skel-path*))) |
|
575
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
571
diff
changeset
|
51 | (rgb.txt (%stash) |
647 | 52 | (download "https://packy.compiler.company/data/rgb.txt" |
53 | :output (merge-pathnames |
|
54 | ".stash/rgb.txt" |
|
55 | *skel-path*))) |
|
598
c7f9bfc9570f
rm duplicate files, add rocksdb batch and logger files
Richard Westhaver <ellis@rwest.io>
parents:
586
diff
changeset
|
56 | (x11.lisp (rgb.txt) |
647 | 57 | (color::parse-x11-color-definitions |
58 | :input ".stash/rgb.txt" |
|
59 | :output (merge-pathnames "color/x11.lisp" *skel-path*))) |
|
567 | 60 | (parquet.thrift (%stash) |
553 | 61 | (download |
549 | 62 | "https://raw.githubusercontent.com/apache/parquet-format/master/src/main/thrift/parquet.thrift" |
647 | 63 | :output (merge-pathnames ".stash/parquet.thrift" *skel-path*)) |
545 | 64 | #$thrift --gen json -out .stash .stash/parquet.thrift$#) |
567 | 65 | (parquet.json (%stash) |
553 | 66 | (download "https://packy.compiler.company/data/parquet.json" |
647 | 67 | :output (merge-pathnames ".stash/parquet.json" *skel-path*))) |
584
35bb0d5ec95e
bug fixes, added freedesktop.org.xml rule. more work on prolog/dql - considering lib/lang+forrth..
Richard Westhaver <ellis@rwest.io>
parents:
575
diff
changeset
|
68 | (freedesktop.org.xml (%stash) |
35bb0d5ec95e
bug fixes, added freedesktop.org.xml rule. more work on prolog/dql - considering lib/lang+forrth..
Richard Westhaver <ellis@rwest.io>
parents:
575
diff
changeset
|
69 | (download "https://packy.compiler.company/data/freedesktop.org.xml" |
647 | 70 | :output (merge-pathnames ".stash/freedesktop.org.xml" *skel-path*))) |
567 | 71 | (parquet-test-data (%stash) (download "https://packy.compiler.company/data/test/alltypes_plain.parquet" |
647 | 72 | :output (merge-pathnames ".stash/alltypes_plain.parquet" *skel-path*))) |
451
8e94959e96bd
build updates, incorporate cargo
Richard Westhaver <ellis@rwest.io>
parents:
450
diff
changeset
|
73 | ;; lisp |
534 | 74 | (%stash () #$mkdir -pv .stash$#) |
570 | 75 | (rdb (%stash) |
76 | (:build () |
|
77 | (with-sbcl (:noinform t :quit t) |
|
78 | (ql:quickload :bin/rdb) |
|
79 | (asdf:make :bin/rdb)) |
|
625 | 80 | #$mv lisp/bin/rdb .stash/rdb$#) |
81 | (:install () #$install -C -m 755 .stash/rdb /usr/local/bin/rdb$#)) |
|
570 | 82 | (skel (%stash) |
83 | (:build () |
|
84 | (with-sbcl (:noinform t :quit t) |
|
85 | (ql:quickload :bin/skel) |
|
86 | (asdf:make :bin/skel)) |
|
87 | #$mv lisp/bin/skel .stash/skel$#) |
|
88 | (:build-gui () |
|
89 | (with-sbcl (:noinform t :quit t) |
|
90 | (push :tools *features*) |
|
91 | (ql:quickload :bin/skel) |
|
92 | (asdf:make :bin/skel)) |
|
93 | #$mv lisp/bin/skel .stash/skel$#) |
|
94 | (:install () #$install -C -m 755 .stash/skel /usr/local/bin/skel$#)) |
|
95 | (organ (%stash) |
|
96 | (:build () (with-sbcl (:noinform t :quit t) |
|
534 | 97 | (ql:quickload :bin/organ) |
555 | 98 | (asdf:make :bin/organ)) |
570 | 99 | #$mv lisp/bin/organ .stash/organ$#)) |
100 | (homer (%stash) |
|
101 | (:build () (with-sbcl (:noinform t :quit t) |
|
102 | (ql:quickload :bin/homer) |
|
103 | (asdf:make :bin/homer)) |
|
104 | #$mv lisp/bin/homer .stash/homer$#)) |
|
105 | (packy (%stash) |
|
106 | (:build () (with-sbcl (:noinform t :quit t) |
|
107 | (ql:quickload :bin/packy) |
|
108 | (asdf:make :bin/packy)) |
|
109 | #$mv lisp/bin/packy .stash/packy$#)) |
|
651
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
110 | (std () (:save () (with-sbcl (:noinform t :quit t) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
111 | (ql:quickload :std) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
112 | (in-package :std-user) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
113 | (compile-lisp :std :save ".stash/std.core")))) |
570 | 114 | (prelude () |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
115 | (:save () (with-sbcl (:noinform t :quit t) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
116 | (ql:quickload :prelude) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
117 | (in-package :std-user) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
118 | (compile-lisp :prelude :save ".stash/prelude.core"))) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
119 | (:compile () (compile-lisp :prelude :force t :verbose t))) |
570 | 120 | (user () |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
121 | (:save () (with-sbcl (:noinform t :quit t) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
122 | (ql:quickload :user) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
123 | (in-package :user) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
124 | (compile-lisp :user :save ".stash/user.core"))) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
125 | (:compile () (compile-lisp :user :force t :verbose t))) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
126 | (infra () (:save () (with-sbcl (:noinform t :quit t) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
127 | (ql:quickload :user) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
128 | (in-package :user) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
129 | (compile-lisp :user :save ".stash/infra.core" :compression 22)))) |
570 | 130 | (core () |
651
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
131 | (:build () (with-sbcl (:noinform t :quit t) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
132 | (ql:quickload :bin/core) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
133 | (asdf:make :bin/core)) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
134 | #$mv lisp/bin/core .stash/core$#) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
135 | (:save () (with-sbcl (:noinform t :quit t) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
136 | (ql:quickload (list :std :core)) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
137 | (in-package :std-user) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
138 | (compile-lisp :core :save ".stash/core.core"))) |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
139 | (:compile () (compile-lisp :core :force t :verbose t)) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
140 | (:install () #$install -C -m 755 .stash/core /usr/local/bin/core |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
141 | echo "core -> /usr/local/bin/" |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
142 | links="skel homer packy rdb organ" |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
143 | for i in $links; do |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
144 | ln -sf /usr/local/bin/core /usr/local/bin/$i |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
145 | echo "$i -> core -> /usr/local/bin/" |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
146 | done$#)) |
570 | 147 | (tests () |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
148 | (:save () (with-sbcl (:noinform t :quit t) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
149 | (ql:quickload :core/tests) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
150 | (in-package :core/tests) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
151 | (compile-lisp :core/tests :save ".stash/tests.core"))) |
654 | 152 | (:compile () |
153 | (compile-lisp :core/tests :force t :verbose t))) |
|
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
154 | (bench () (:compile () (compile-lisp :core/bench :force t :verbose t))) |
656 | 155 | (fasls (compile-core #+nil compile-tests compile-bench compile-user compile-prelude)) |
451
8e94959e96bd
build updates, incorporate cargo
Richard Westhaver <ellis@rwest.io>
parents:
450
diff
changeset
|
156 | ;; rust |
480 | 157 | (mailman () #$cd rust && cargo build -Z unstable-options --bin mailman --artifact-dir ../.stash/$#) |
158 | (alik () #$cd rust && cargo build -Z unstable-options --bin alik --artifact-dir ../.stash/$#) |
|
505 | 159 | (rust-bin (mailman alik)) |
452 | 160 | (alik-ui () #$trunk build --config rust/ui/alik/Trunk.toml$#) |
451
8e94959e96bd
build updates, incorporate cargo
Richard Westhaver <ellis@rwest.io>
parents:
450
diff
changeset
|
161 | ;; install |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
162 | (install (install-core) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
163 | #$d=/usr/local/share/lisp/ |
332 | 164 | cd .stash |
165 | if [ -d $d ]; |
|
166 | then |
|
167 | for f in $(find . -type f -name "*.core") |
|
168 | do echo "$(basename $f) -> $d" |
|
169 | install -C -m 755 $f $d |
|
170 | done fi$#) |
|
533 | 171 | (emacs () #$make -C emacs$#) |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
172 | ;; TODO 2024-09-15: |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
173 | (core-syms.sxp () (with-open-file (f ".stash/symbols.sxp" :direction :output))) |
672 | 174 | (dist () #$mkdir -pv .stash/tmp/core/bin/ .stash/tmp/core/share/lisp/fasl/ .stash/tmp/core/lib/ |
175 | cd .stash |
|
176 | mv *.core tmp/core/share/lisp/ |
|
177 | mv *.fasl tmp/core/share/lisp/fasl/ |
|
178 | mv *.so tmp/core/lib/ |
|
179 | mv $(find -maxdepth 1 -type f ! -name "*.*") tmp/core/bin/ |
|
180 | cd tmp && tar -I 'zstd' -cf core.tar.zst core/* && mv core.tar.zst ../$#) |
|
465 | 181 | (dist-clean (clean) #$cd .. && tar -I 'zstd' -cf core/core-source.tar.zst core/* && cd core |
445 | 182 | mkdir -pv .stash |
183 | mv core-source.tar.zst .stash/$#)) |