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