changeset 661: | 39170f311b8c |
parent: | b499d4bcfc39 |
child: | a53be64410c5 |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Sat, 21 Sep 2024 00:04:33 -0400 |
permissions: | -rwxr-xr-x |
description: | add sk-def and sk-bind |
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") |
473 | 10 | :include ("lisp.sk" "rust.sk" "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") |
369 | 12 | :env ((cc "clang")) |
661 | 13 | :def nil |
14 | :bind nil |
|
490 | 15 | :components ((:dir-locals ".dir-locals") |
16 | (:org "readme")) |
|
172 | 17 | :rules |
545 | 18 | ((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
|
19 | psl.dat parquet.json rgb.txt |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
20 | save-std save-prelude save-user |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
21 | save-infra save-core save-tests |
656 | 22 | build-tree-sitter-alien build-core fasls |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
23 | ;; build-skel build-organ build-homer build-packy build-rdb |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
24 | ;; rust-bin |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
25 | )) |
312 | 26 | (clean () |
27 | #$rm -vrf .stash$# |
|
28 | #$find emacs -name '*.elc' -type f -delete$# |
|
29 | #$find lisp -name '*.fasl' -type f -delete$# |
|
30 | #$echo 'cargo clean:' && cd rust && cargo clean$#) |
|
570 | 31 | (tree-sitter-alien () |
571 | 32 | (:build () #$cd lisp/ffi/tree-sitter && |
33 | clang -g -O2 -Wall -Wno-unused-value -ltree-sitter -shared \ |
|
34 | alien.c -o ../../../.stash/libtree-sitter-alien.so$#) |
|
35 | (:install () #$cp .stash/libtree-sitter-alien.so /usr/local/lib/$#)) |
|
567 | 36 | (psl.dat (%stash) |
647 | 37 | (download "https://publicsuffix.org/list/public_suffix_list.dat" |
38 | :output (merge-pathnames |
|
39 | ".stash/psl.dat" |
|
40 | *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
|
41 | (rgb.txt (%stash) |
647 | 42 | (download "https://packy.compiler.company/data/rgb.txt" |
43 | :output (merge-pathnames |
|
44 | ".stash/rgb.txt" |
|
45 | *skel-path*))) |
|
598
c7f9bfc9570f
rm duplicate files, add rocksdb batch and logger files
Richard Westhaver <ellis@rwest.io>
parents:
586
diff
changeset
|
46 | (x11.lisp (rgb.txt) |
647 | 47 | (color::parse-x11-color-definitions |
48 | :input ".stash/rgb.txt" |
|
49 | :output (merge-pathnames "color/x11.lisp" *skel-path*))) |
|
567 | 50 | (parquet.thrift (%stash) |
553 | 51 | (download |
549 | 52 | "https://raw.githubusercontent.com/apache/parquet-format/master/src/main/thrift/parquet.thrift" |
647 | 53 | :output (merge-pathnames ".stash/parquet.thrift" *skel-path*)) |
545 | 54 | #$thrift --gen json -out .stash .stash/parquet.thrift$#) |
567 | 55 | (parquet.json (%stash) |
553 | 56 | (download "https://packy.compiler.company/data/parquet.json" |
647 | 57 | :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
|
58 | (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
|
59 | (download "https://packy.compiler.company/data/freedesktop.org.xml" |
647 | 60 | :output (merge-pathnames ".stash/freedesktop.org.xml" *skel-path*))) |
567 | 61 | (parquet-test-data (%stash) (download "https://packy.compiler.company/data/test/alltypes_plain.parquet" |
647 | 62 | :output (merge-pathnames ".stash/alltypes_plain.parquet" *skel-path*))) |
451
8e94959e96bd
build updates, incorporate cargo
Richard Westhaver <ellis@rwest.io>
parents:
450
diff
changeset
|
63 | ;; lisp |
534 | 64 | (%stash () #$mkdir -pv .stash$#) |
570 | 65 | (rdb (%stash) |
66 | (:build () |
|
67 | (with-sbcl (:noinform t :quit t) |
|
68 | (ql:quickload :bin/rdb) |
|
69 | (asdf:make :bin/rdb)) |
|
625 | 70 | #$mv lisp/bin/rdb .stash/rdb$#) |
71 | (:install () #$install -C -m 755 .stash/rdb /usr/local/bin/rdb$#)) |
|
570 | 72 | (skel (%stash) |
73 | (:build () |
|
74 | (with-sbcl (:noinform t :quit t) |
|
75 | (ql:quickload :bin/skel) |
|
76 | (asdf:make :bin/skel)) |
|
77 | #$mv lisp/bin/skel .stash/skel$#) |
|
78 | (:build-gui () |
|
79 | (with-sbcl (:noinform t :quit t) |
|
80 | (push :tools *features*) |
|
81 | (ql:quickload :bin/skel) |
|
82 | (asdf:make :bin/skel)) |
|
83 | #$mv lisp/bin/skel .stash/skel$#) |
|
84 | (:install () #$install -C -m 755 .stash/skel /usr/local/bin/skel$#)) |
|
85 | (organ (%stash) |
|
86 | (:build () (with-sbcl (:noinform t :quit t) |
|
534 | 87 | (ql:quickload :bin/organ) |
555 | 88 | (asdf:make :bin/organ)) |
570 | 89 | #$mv lisp/bin/organ .stash/organ$#)) |
90 | (homer (%stash) |
|
91 | (:build () (with-sbcl (:noinform t :quit t) |
|
92 | (ql:quickload :bin/homer) |
|
93 | (asdf:make :bin/homer)) |
|
94 | #$mv lisp/bin/homer .stash/homer$#)) |
|
95 | (packy (%stash) |
|
96 | (:build () (with-sbcl (:noinform t :quit t) |
|
97 | (ql:quickload :bin/packy) |
|
98 | (asdf:make :bin/packy)) |
|
99 | #$mv lisp/bin/packy .stash/packy$#)) |
|
651
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
100 | (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
|
101 | (ql:quickload :std) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
102 | (in-package :std-user) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
103 | (compile-lisp :std :save ".stash/std.core")))) |
570 | 104 | (prelude () |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
105 | (:save () (with-sbcl (:noinform t :quit t) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
106 | (ql:quickload :prelude) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
107 | (in-package :std-user) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
108 | (compile-lisp :prelude :save ".stash/prelude.core"))) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
109 | (:compile () (compile-lisp :prelude :force t :verbose t))) |
570 | 110 | (user () |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
111 | (:save () (with-sbcl (:noinform t :quit t) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
112 | (ql:quickload :user) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
113 | (in-package :user) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
114 | (compile-lisp :user :save ".stash/user.core"))) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
115 | (:compile () (compile-lisp :user :force t :verbose t))) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
116 | (infra () (:save () (with-sbcl (:noinform t :quit t) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
117 | (ql:quickload :user) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
118 | (in-package :user) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
119 | (compile-lisp :user :save ".stash/infra.core" :compression 22)))) |
570 | 120 | (core () |
651
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
121 | (:build () (with-sbcl (:noinform t :quit t) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
122 | (ql:quickload :bin/core) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
123 | (asdf:make :bin/core)) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
124 | #$mv lisp/bin/core .stash/core$#) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
125 | (:save () (with-sbcl (:noinform t :quit t) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
126 | (ql:quickload (list :std :core)) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
127 | (in-package :std-user) |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
647
diff
changeset
|
128 | (compile-lisp :core :save ".stash/core.core"))) |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
129 | (:compile () (compile-lisp :core :force t :verbose t)) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
130 | (: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
|
131 | echo "core -> /usr/local/bin/" |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
132 | links="skel homer packy rdb organ" |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
133 | for i in $links; do |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
134 | ln -sf /usr/local/bin/core /usr/local/bin/$i |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
135 | echo "$i -> core -> /usr/local/bin/" |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
136 | done$#)) |
570 | 137 | (tests () |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
138 | (:save () (with-sbcl (:noinform t :quit t) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
139 | (ql:quickload :core/tests) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
140 | (in-package :core/tests) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
141 | (compile-lisp :core/tests :save ".stash/tests.core"))) |
654 | 142 | (:compile () |
143 | (compile-lisp :core/tests :force t :verbose t))) |
|
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
144 | (bench () (:compile () (compile-lisp :core/bench :force t :verbose t))) |
656 | 145 | (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
|
146 | ;; rust |
480 | 147 | (mailman () #$cd rust && cargo build -Z unstable-options --bin mailman --artifact-dir ../.stash/$#) |
148 | (alik () #$cd rust && cargo build -Z unstable-options --bin alik --artifact-dir ../.stash/$#) |
|
505 | 149 | (rust-bin (mailman alik)) |
452 | 150 | (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
|
151 | ;; install |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
152 | (install (install-core) |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
153 | #$d=/usr/local/share/lisp/ |
332 | 154 | cd .stash |
155 | if [ -d $d ]; |
|
156 | then |
|
157 | for f in $(find . -type f -name "*.core") |
|
158 | do echo "$(basename $f) -> $d" |
|
159 | install -C -m 755 $f $d |
|
160 | done fi$#) |
|
533 | 161 | (emacs () #$make -C emacs$#) |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
162 | ;; TODO 2024-09-15: |
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
163 | (core-syms.sxp () (with-open-file (f ".stash/symbols.sxp" :direction :output))) |
459 | 164 | (dist () #$cd .stash |
653
119532882cb1
added keyword-opts (experimental)
Richard Westhaver <ellis@rwest.io>
parents:
651
diff
changeset
|
165 | mkdir -pv core core/bin core/share/lisp/fasl core/lib |
449 | 166 | mv *.core core/share/lisp/ |
167 | mv *.fasl core/share/lisp/fasl/ |
|
516
f68a5996a2b1
skel updates, sketch of sk-path parser
Richard Westhaver <ellis@rwest.io>
parents:
508
diff
changeset
|
168 | mv *.so core/lib/ |
449 | 169 | mv $(find -maxdepth 1 -type f ! -name "*.*") core/bin/ |
170 | tar -I 'zstd' -cf core.tar.zst core/*$#) |
|
465 | 171 | (dist-clean (clean) #$cd .. && tar -I 'zstd' -cf core/core-source.tar.zst core/* && cd core |
445 | 172 | mkdir -pv .stash |
173 | mv core-source.tar.zst .stash/$#)) |