| changeset 697: |
08621be7e780 |
| parent: |
38e9c3be2392
|
| author: |
Richard Westhaver <ellis@rwest.io> |
| date: |
Fri, 04 Oct 2024 21:45:59 -0400 |
| permissions: |
-rwxr-xr-x |
| description: |
alien C updates |
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/lisp.sk" "rust/rust.sk" "emacs/emacs.sk") 11 :vc (:hg "https://vc.compiler.company/core") 12 :bind ((stash ".stash") 14 (emacs-locals :dir-locals 15 (nil . ((indent-tabs-mode . nil))) 16 (rust-mode . ((eglot-workspace-configuration 17 . (:rust-analyzer (:cargo (:buildScripts (:enable t) (:features "all"))))))) 18 (nushell-mode . ((nushell-indent-offset . 2))) 19 (nushell-ts-mode . ((nushell-indent-offset . 2))) 20 (sh-mode . (sh-indentation . 2)) 21 (makefile-mode . ((indent-tabs-mode . t))) 22 (slint-mode . ((slint-indent-level . 2))))) 23 :components ((:org "readme") 29 psl.dat parquet.json rgb.txt 30 save-std save-prelude save-user 31 save-infra save-core save-tests 32 build-tree-sitter-alien build-core fasls 33 ;; build-skel build-organ build-homer build-packy build-rdb 38 #$find emacs -name '*.elc' -type f -delete$# 39 #$find lisp -name '*.fasl' -type f -delete$# 40 #$echo 'cargo clean:' && cd rust && cargo clean$#) 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/$#)) 47 (:build () #$cd lisp/ffi/zstd && 48 clang -g -O2 -Wall -Wno-unused-value -lzstd -shared \ 49 alien.c -o ../../../.stash/libzstd-alien.so$#) 50 (:install () #$cp .stash/libzstd-alien.so /usr/local/lib/$#)) 52 (download "https://publicsuffix.org/list/public_suffix_list.dat" 53 :output (merge-pathnames 56 :if-exists :supersede)) 58 (download "https://packy.compiler.company/data/rgb.txt" 59 :output (merge-pathnames 62 :if-exists :supersede)) 64 (color::parse-x11-color-definitions 65 :input ".stash/rgb.txt" 66 :output (merge-pathnames "color/x11.lisp" *skel-path*))) 67 (parquet.thrift (%stash) 69 "https://raw.githubusercontent.com/apache/parquet-format/master/src/main/thrift/parquet.thrift" 70 :output (merge-pathnames ".stash/parquet.thrift" *skel-path*) 71 :if-exists :supersede) 72 #$thrift --gen json -out .stash .stash/parquet.thrift$#) 73 (parquet.json (%stash) 74 (download "https://packy.compiler.company/data/parquet.json" 75 :output (merge-pathnames ".stash/parquet.json" *skel-path*) 76 :if-exists :supersede)) 77 (freedesktop.org.xml (%stash) 78 (download "https://packy.compiler.company/data/freedesktop.org.xml" 79 :output (merge-pathnames ".stash/freedesktop.org.xml" *skel-path*))) 80 (parquet-test-data (%stash) (download "https://packy.compiler.company/data/test/alltypes_plain.parquet" 81 :output (merge-pathnames ".stash/alltypes_plain.parquet" *skel-path*) 82 :if-exists :supersede)) 84 (%stash () #$mkdir -pv .stash$#) 87 (with-sbcl (:noinform t :quit t) 88 (ql:quickload :bin/rdb) 90 #$mv lisp/bin/rdb .stash/rdb$#) 91 (:install () #$install -C -m 755 .stash/rdb /usr/local/bin/rdb$#)) 94 (with-sbcl (:noinform t :quit t) 95 (ql:quickload :bin/skel) 96 (asdf:make :bin/skel)) 97 #$mv lisp/bin/skel .stash/skel$#) 99 (with-sbcl (:noinform t :quit t) 100 (push :tools *features*) 101 (ql:quickload :bin/skel) 102 (asdf:make :bin/skel)) 103 #$mv lisp/bin/skel .stash/skel$#) 104 (:install () #$install -C -m 755 .stash/skel /usr/local/bin/skel$#)) 107 (with-sbcl (:noinform t :quit t) 108 (ql:quickload :bin/skc) 109 (asdf:make :bin/skc)) 110 #$mv lisp/bin/skc .stash/skc$#)) 112 (:build () (with-sbcl (:noinform t :quit t) 113 (ql:quickload :bin/organ) 114 (asdf:make :bin/organ)) 115 #$mv lisp/bin/organ .stash/organ$#)) 117 (:build () (with-sbcl (:noinform t :quit t) 118 (ql:quickload :bin/homer) 119 (asdf:make :bin/homer)) 120 #$mv lisp/bin/homer .stash/homer$#)) 122 (:build () (with-sbcl (:noinform t :quit t) 123 (ql:quickload :bin/packy) 124 (asdf:make :bin/packy)) 125 #$mv lisp/bin/packy .stash/packy$#)) 126 (std () (:save () (with-sbcl (:noinform t :quit t) 128 (in-package :std-user) 129 (compile-lisp :std :save ".stash/std.core")))) 131 (:save () (with-sbcl (:noinform t :quit t) 132 (ql:quickload :prelude) 133 (in-package :std-user) 134 (compile-lisp :prelude :save ".stash/prelude.core"))) 135 (:compile () (compile-lisp :prelude :force t :verbose t))) 137 (:save () (with-sbcl (:noinform t :quit t) 140 (compile-lisp :user :save ".stash/user.core"))) 141 (:compile () (compile-lisp :user :force t :verbose t))) 142 (infra () (:save () (with-sbcl (:noinform t :quit t) 145 (compile-lisp :user :save ".stash/infra.core" :compression 22)))) 147 (:build () (with-sbcl (:noinform t :quit t) 148 (ql:quickload :bin/core) 149 (asdf:make :bin/core)) 150 #$mv lisp/bin/core .stash/core$#) 151 (:save () (with-sbcl (:noinform t :quit t) 152 (ql:quickload (list :std :core)) 153 (in-package :std-user) 154 (compile-lisp :core :save ".stash/core.core"))) 155 (:compile () (compile-lisp :core :force t :verbose t)) 156 (:install () #$install -C -m 755 .stash/core /usr/local/bin/core 157 echo "core -> /usr/local/bin/" 158 links="skel homer packy rdb organ" 160 ln -sf /usr/local/bin/core /usr/local/bin/$i 161 echo "$i -> core -> /usr/local/bin/" 164 (:save () (with-sbcl (:noinform t :quit t) 165 (ql:quickload :core/tests) 166 (in-package :core/tests) 167 (compile-lisp :core/tests :save ".stash/tests.core"))) 169 (compile-lisp :core/tests :force t :verbose t))) 170 (bench () (:compile () (compile-lisp :core/bench :force t :verbose t))) 171 (fasls (compile-core #+nil compile-tests compile-bench compile-user compile-prelude)) 173 (mailman () #$cd rust && cargo build -Z unstable-options --bin mailman --artifact-dir ../.stash/$#) 174 (alik () #$cd rust && cargo build -Z unstable-options --bin alik --artifact-dir ../.stash/$#) 175 (rust-bin (mailman alik)) 176 (alik-ui () #$trunk build --config rust/ui/alik/Trunk.toml$#) 178 (install (install-core) 179 #$d=/usr/local/share/lisp/ 183 for f in $(find . -type f -name "*.core") 184 do echo "$(basename $f) -> $d" 185 install -C -m 755 $f $d 187 (emacs () #$make -C emacs$#) 189 (core-syms.sxp () (with-open-file (f ".stash/symbols.sxp" :direction :output))) 190 (dist () #$mkdir -pv .stash/tmp/core/bin/ .stash/tmp/core/share/lisp/fasl/ .stash/tmp/core/lib/ 192 mv *.core tmp/core/share/lisp/ 193 mv *.fasl tmp/core/share/lisp/fasl/ 194 mv *.so tmp/core/lib/ 195 mv $(find -maxdepth 1 -type f ! -name "*.*") tmp/core/bin/ 196 cd tmp && tar -I 'zstd' -cf core.tar.zst core/* && mv core.tar.zst ../$#) 197 (dist-clean (clean) #$cd .. && tar -I 'zstd' -cf core/core-source.tar.zst core/* && cd core 199 mv core-source.tar.zst .stash/$#))
