;;; skelfile --- CC/core skelfile -*- mode: skel; -*-

 :name "core"

 :author ("Richard Westhaver" . "ellis@rwest.io")

 :version "0.1.0"

 :license "MPL"

 :stash ".stash"

 :store ".store"

 :description "The Compiler Company Core"

 :tags ("core" "lisp" "rust" "emacs" "c")

 :include ("lisp.sk" "rust.sk" "emacs.sk")

 :vc (:hg "https://vc.compiler.company/core")

 :scripts ((:lisp "x.lisp"))

 :env ((cc "clang"))

 :components ((:dir-locals ".dir-locals")

              (:org "readme"))

 :rules

 ((all (%stash

        psl.dat parquet.json rgb.txt

        compile save-std save-prelude save-user

        save-infra save-core save-tests build-rdb

        build-skel build-organ build-homer build-packy

        fasl rust-bin build-tree-sitter-alien))

  (clean ()

         #$rm -vrf .stash$#

         #$find emacs -name '*.elc' -type f -delete$#

         #$find lisp -name '*.fasl' -type f -delete$#

         #$echo 'cargo clean:' && cd rust && cargo clean$#)

  (tree-sitter-alien ()

                     (:build () #$cd lisp/ffi/tree-sitter &&

                             clang -g -O2 -Wall -Wno-unused-value -ltree-sitter -shared \

                             alien.c -o ../../../.stash/libtree-sitter-alien.so$#)

                     (:install () #$cp .stash/libtree-sitter-alien.so /usr/local/lib/$#))

  (psl.dat (%stash)

           (download "https://publicsuffix.org/list/public_suffix_list.dat"

                     :output (merge-pathnames

                              ".stash/psl.dat"

                              *skel-path*)))

  (rgb.txt (%stash)

           (download "https://packy.compiler.company/data/rgb.txt"

                     :output (merge-pathnames

                              ".stash/rgb.txt"

                              *skel-path*)))

  (x11.lisp (rgb.txt)

            (color::parse-x11-color-definitions

             :input ".stash/rgb.txt"

             :output (merge-pathnames "color/x11.lisp" *skel-path*)))

  (parquet.thrift (%stash)

                  (download

                   "https://raw.githubusercontent.com/apache/parquet-format/master/src/main/thrift/parquet.thrift"

                   :output (merge-pathnames ".stash/parquet.thrift" *skel-path*))

                  #$thrift --gen json -out .stash .stash/parquet.thrift$#)

  (parquet.json (%stash)

                (download "https://packy.compiler.company/data/parquet.json"

                          :output (merge-pathnames ".stash/parquet.json" *skel-path*)))

  (freedesktop.org.xml (%stash)

                       (download "https://packy.compiler.company/data/freedesktop.org.xml"

                                 :output (merge-pathnames ".stash/freedesktop.org.xml" *skel-path*)))

  (parquet-test-data (%stash) (download "https://packy.compiler.company/data/test/alltypes_plain.parquet"

                                        :output (merge-pathnames ".stash/alltypes_plain.parquet" *skel-path*)))

  ;; lisp

  (%stash () #$mkdir -pv .stash$#)

  (rdb (%stash)

       (:build ()

               (with-sbcl (:noinform t :quit t)

                 (ql:quickload :bin/rdb)

                 (asdf:make :bin/rdb))

               #$mv lisp/bin/rdb .stash/rdb$#)

       (:install () #$install -C -m 755 .stash/rdb /usr/local/bin/rdb$#))

  (skel (%stash)

        (:build ()

                (with-sbcl (:noinform t :quit t)

                  (ql:quickload :bin/skel)

                  (asdf:make :bin/skel))

                #$mv lisp/bin/skel .stash/skel$#)

        (:build-gui ()

                    (with-sbcl (:noinform t :quit t)

                      (push :tools *features*)

                      (ql:quickload :bin/skel)

                      (asdf:make :bin/skel))

                    #$mv lisp/bin/skel .stash/skel$#)

        (:install () #$install -C -m 755 .stash/skel /usr/local/bin/skel$#))

  (organ (%stash)

         (:build () (with-sbcl (:noinform t :quit t)

                      (ql:quickload :bin/organ)

                      (asdf:make :bin/organ))

                 #$mv lisp/bin/organ .stash/organ$#))

  (homer (%stash)

         (:build () (with-sbcl (:noinform t :quit t)

                      (ql:quickload :bin/homer)

                      (asdf:make :bin/homer))

                 #$mv lisp/bin/homer .stash/homer$#))

  (packy (%stash)

         (:build () (with-sbcl (:noinform t :quit t)

                      (ql:quickload :bin/packy)

                      (asdf:make :bin/packy))

                 #$mv lisp/bin/packy .stash/packy$#))

  (compile () #$./x.lisp compile$#)

  (prelude ()

           (:save () #$./x.lisp save prelude$#)

           (:compile () #$./x.lisp make prelude$#))

  (user ()

        (:save () #$./x.lisp save user$#)

        (:compile () #$./x.lisp make user$#))

  (infra () (:save () #$./x.lisp save infra$#))

  (core ()

  (tests ()

         (:save () #$./x.lisp save tests$#)

         (:compile () #$./x.lisp make core/tests$#))

  (bench () (:compile () #$./x.lisp make core/bench$#))

  (fasl (compile-core compile-tests compile-bench compile-user compile-prelude))

  ;; rust

  (mailman () #$cd rust && cargo build -Z unstable-options --bin mailman --artifact-dir ../.stash/$#)

  (alik () #$cd rust && cargo build -Z unstable-options --bin alik --artifact-dir ../.stash/$#)

  (rust-bin (mailman alik))

  (alik-ui () #$trunk build --config rust/ui/alik/Trunk.toml$#)

  ;; install

  (install () #$d=/usr/local/bin

           cd .stash

           for f in $(find . -type f ! -name "*.*")

           do echo "$(basename $f) -> $d"

           install -C -m 755 $f $d

           done

           d=/usr/local/share/lisp

           if [ -d $d ];

           then

           for f in $(find . -type f -name "*.core")

           do echo "$(basename $f) -> $d"

           install -C -m 755 $f $d

           done fi$#)

  (emacs () #$make -C emacs$#)

  (core-syms.sxp ()

                 (with-open-file (f "emacs/core-syms.sxp")

                   (write `(defvar lisp-standard-function-names ,(standard-symbol-names #'fboundp)) :stream f)

                   (write `(defvar lisp-standard-value-names ,(standard-symbol-names #'boundp)) :stream f)))

  (dist () #$cd .stash

        mkdir -pv core/bin core/share/lisp/fasl core/lib

        mv *.core core/share/lisp/

        mv *.fasl core/share/lisp/fasl/

        mv *.so core/lib/

        mv $(find -maxdepth 1 -type f ! -name "*.*") core/bin/

        tar -I 'zstd' -cf core.tar.zst core/*$#)

  (dist-clean (clean) #$cd .. && tar -I 'zstd' -cf core/core-source.tar.zst core/* && cd core

              mkdir -pv .stash

              mv core-source.tar.zst .stash/$#))