whatsxmpp/default.nix

{ depot ? import <depot> {}, pkgs ? import <nixpkgs> {} }:

with depot.nix;
with depot.third_party.lisp;
let
  lispPkgs = rec {
    event-emitter = let
      src = depot.third_party.fetchFromGitHub {
        owner = "fukamachi";
        repo = "event-emitter";
        rev = "cb0e15f9de4c617cef3f5d5a22a41e28f9613d0b";
        sha256 = "1i18xzfr6334db9dzj0lsl7wxw1r1l0ixvn883mjbyqw0czp21h6";
      };
    in buildLisp.library {
      name = "event-emitter";
      deps = [ (buildLisp.bundled "asdf") ];
      srcs = map (f: src + ("/" + f)) [
        "src/event-emitter.lisp"
      ];
    };
    metabang-bind = let
      src = depot.third_party.fetchFromGitHub {
        owner = "gwkkwg";
        repo = "metabang-bind";
        rev = "9ab6e64a30261df109549d21ee7940df87db66bb";
        sha256 = "0681lp2j084w3dx02ah1vm5pk83cp5k090anwdlrjaxd1j4kbpbr";
      };
    in buildLisp.library {
      name = "metabang-bind";
      deps = [];
      srcs = map (f: src + ("/dev/" + f)) [
        "packages.lisp"
        "macros.lisp"
        "bind.lisp"
        "binding-forms.lisp"
      ];
    };
    qbase64 = let
      src = depot.third_party.fetchFromGitHub {
        owner = "chaitanyagupta";
        repo = "qbase64";
        rev = "6374899aec189600e6b7b77c89009d0835154b93";
        sha256 = "1dir0s70ca3hagxv9x15zq4p4ajgl7jrcgqsza2n2y7iqbxh0dwi";
      };
    in buildLisp.library {
      name = "qbase64";
      deps = [ trivial-gray-streams metabang-bind ];
      srcs = map (f: src + ("/" + f)) [
        "package.lisp"
        "utils.lisp"
        "stream-utils.lisp"
        "qbase64.lisp"
      ];
    };
    com-google-base = let
      src = depot.third_party.fetchFromGitHub {
        owner = "brown";
        repo = "base";
        rev = "498fd7224748a1cceaa6127edcedab6e3563aa84";
        sha256 = "0af9gz2rnw4wbdgx3v6bpyfjn04700irdvcp0s41jdp8djpip8f7";
      };
    in buildLisp.library {
      name = "com.google.base";
      deps = [];
      srcs = map (f: src + ("/" + f)) [
        "package.lisp"
        "optimize.lisp"
        "syntax.lisp"
        "error.lisp"
        "type.lisp"
        "octet.lisp"
        "sequence.lisp"
      ];
    };
    protobuf-src = depot.third_party.fetchFromGitHub {
      owner = "brown";
      repo = "protobuf";
      rev = "f55c6f51848ff1f9d523fb293fbe99c076a34a95";
      sha256 = "1frm5s7wsi4nh1adc7qkph5r1cf24fgvbg0xvsyv7cmgg5r3bibi";
    };
    varint = buildLisp.library {
      name = "varint";
      deps = [ com-google-base nibbles ];
      srcs = map (f: protobuf-src + ("/varint/" + f)) [
        "package.lisp"
        "varint.lisp"
      ];
    };
    protobuf = buildLisp.library {
      name = "protobuf";
      deps = [ com-google-base varint ];
      srcs = map (f: protobuf-src + ("/" + f)) [
        "package.lisp"
        "protocol-buffer.lisp"
        "wire-format.lisp"
      ];
    };
    trivial-utf-8 = let
      src = builtins.fetchTarball {
        url = "https://gitlab.common-lisp.net/trivial-utf-8/trivial-utf-8/-/archive/4d427cfbb1c452436a0efb71c3205c9da67f718f/trivial-utf-8-4d427cfbb1c452436a0efb71c3205c9da67f718f.tar.gz";
        sha256 = "1jz27gz8gvqdmvp3k9bxschs6d5b3qgk94qp2bj6nv1d0jc3m1l1";
      };
    in buildLisp.library {
      name = "trivial-utf-8";
      deps = [ (buildLisp.bundled "asdf") ];
      srcs = map (f: src + ("/" + f)) [
        "trivial-utf-8.lisp"
      ];
    };
    salza2 = let
      src = builtins.fetchTarball {
        url = "https://www.xach.com/lisp/salza2.tgz";
        sha256 = "0p38rj4gq7j5k807php7hrz7l2zyyfshv8i9yms7i8lkgg3433ki";
      };
    in buildLisp.library {
      name = "salza2";
      deps = [];
      srcs = map (f: src + ("/" + f)) [
        "package.lisp"
        "reset.lisp"
        "specials.lisp"
        "types.lisp"
        "checksum.lisp"
        "adler32.lisp"
        "crc32.lisp"
        "chains.lisp"
        "bitstream.lisp"
        "matches.lisp"
        "compress.lisp"
        "huffman.lisp"
        "closures.lisp"
        "compressor.lisp"
        "utilities.lisp"
        "zlib.lisp"
        "gzip.lisp"
        "user.lisp"
      ];
    };
    zpng = let
      src = builtins.fetchTarball {
        url = "https://www.xach.com/lisp/zpng.tgz";
        sha256 = "0b3ag3jhl3z7kdls3ahdsdxsfhhw5qrizk769984f4wkxhb69rcm";
      };
    in buildLisp.library {
      name = "zpng";
      deps = [ salza2 ];
      srcs = map (f: src + ("/" + f)) [
        "package.lisp"
        "specials.lisp"
        "utils.lisp"
        "chunk.lisp"
        "conditions.lisp"
        "png.lisp"
      ];
    };
    puri = let
      src = builtins.fetchTarball {
        url = "http://files.kpe.io/puri/puri-1.5.7.tar.gz";
        sha256 = "0bdjcjr2wmwxhv4sr20hh6dhakjdal5hiwzpmvbwzgl394byk100";
      };
    in buildLisp.library {
      name = "puri";
      deps = [];
      srcs = map (f: src + ("/" + f)) [
        "src.lisp"
      ];
    };
    cl-utilities = let
      src = builtins.fetchTarball {
        url = "https://common-lisp.net/project/cl-utilities/cl-utilities-latest.tar.gz";
        sha256 = "1dmbkdr8xm2jw5yx1makqbf1ypqbm0hpkd7zyknxv3cblvz0a87w";
      };
    in buildLisp.library {
      name = "cl-utilities";
      deps = [];
      srcs = map (f: src + ("/" + f)) [
        "package.lisp"
        "with-unique-names.lisp"
        "once-only.lisp"
        "compose.lisp"
        "split-sequence.lisp"
        "extremum.lisp"
        "read-delimited.lisp"
        "expt-mod.lisp"
        "collecting.lisp"
        "rotate-byte.lisp"
        "copy-array.lisp"
      ];
    };
    trivial-timers = let
      src = builtins.fetchTarball {
        url = "http://releases.unknownlamer.org/trivial-timers/trivial-timers_latest.tar.gz";
        sha256 = "0nxr0wb9n2jh6k3cj9ddx2hvgvr4bqb8k587cmj6pjsaa62344mb";
      };
    in buildLisp.library {
      name = "trivial-timers";
      deps = [];
      srcs = map (f: src + ("/" + f)) [
        "packages.lisp"
        "timers-sbcl.lisp"
      ];
    };
    quri = let
      src = depot.third_party.fetchFromGitHub {
        owner = "fukamachi";
        repo = "quri";
        rev = "b39ec54a07062334cfa37b31d14e39115921ffe0";
        sha256 = "1nw0m5fm84x9x8mx5pp6l2bhmpzmmgy4rwj3bkkg4qsp7h6a1ak7";
      };
      etld-nix = import ./nix/etld.nix { tld-names = src + "/data/effective_tld_names.dat"; };
    in buildLisp.library {
      name = "quri";
      deps = [ (buildLisp.bundled "sb-cltl2") (buildLisp.bundled "asdf") babel alexandria split-sequence cl-utilities ];
      srcs = map (f: src + ("/src/" + f)) [
        "../quri.asd"
        "port.lisp"
        "util.lisp"
      ] ++ [
        etld-nix
      ] ++ map (f: src + ("/src/" + f)) [
        "error.lisp"
        "encode.lisp"
        "decode.lisp"
        "parser.lisp"
        "uri.lisp"
        "uri/ftp.lisp"
        "uri/http.lisp"
        "uri/ldap.lisp"
        "uri/file.lisp"
        "domain.lisp"
        "quri.lisp"
      ];
    };
    trivial-mimes = let
      mime-types = ./nix/mime.types;
      mime-types-lisp = import ./nix/trivial-mimes.nix { mime-types = mime-types; };
    in buildLisp.library {
      name = "trivial-mimes";
      deps = [ (buildLisp.bundled "uiop") ];
      native = [];
      srcs = [ mime-types-lisp ];
    };
    cl-sqlite = let
      src = depot.third_party.fetchFromGitHub {
        owner = "TeMPOraL";
        repo = "cl-sqlite";
        rev = "be2fcc193f98e3d5bdc85958a806d612cc48740c";
        sha256 = "08iv7b4m0hh7qx2cvq4f510nrgdld0vicnvmqsh9w0fgrcgmyg4k";
      };
    in buildLisp.library {
      name = "cl-sqlite";
      deps = [ iterate cffi ];
      native = [ pkgs.sqlite ];
      srcs = map (f: src + ("/" + f)) [
        "sqlite-ffi.lisp"
        "cache.lisp"
        "sqlite.lisp"
      ];
    };
    fast-websocket = let
      src = depot.third_party.fetchFromGitHub {
        owner = "fukamachi";
        repo = "fast-websocket";
        rev = "7087d9cf4c3f7da4c68a275ad79eda853ac6f1b9";
        sha256 = "0hmp9mzz7svl0csh9n2954ddpcbngl87jfv32il2q8kkawiycij7";
      };
    in buildLisp.library {
      name = "fast-websocket";
      deps = [ fast-io trivial-utf-8 alexandria ];
      srcs = map (f: src + ("/src/" + f)) [
        "ws.lisp"
        "payload.lisp"
        "constants.lisp"
        "error.lisp"
        "compose.lisp"
        "parser.lisp"
        "fast-websocket.lisp"
      ];
    };
    fast-io = let
      src = depot.third_party.fetchFromGitHub {
        owner = "rpav";
        repo = "fast-io";
        rev = "603f4903dd74fb221859da7058ae6ca3853fe64b";
        sha256 = "00agvc0xx4w715i6ach05p995zpcpghn04xc06zyci06q677vw3n";
      };
    in buildLisp.library {
      name = "fast-io";
      deps = [ alexandria trivial-gray-streams ];
      srcs = map (f: src + ("/src/" + f)) [
        "package.lisp"
        "types.lisp"
        "io.lisp"
        "gray.lisp"
      ];
    };
    proc-parse = let
      src = depot.third_party.fetchFromGitHub {
        owner = "fukamachi";
        repo = "proc-parse";
        rev = "3afe2b76f42f481f44a0a495256f7abeb69cef27";
        sha256 = "07vbj26bfq4ywlcmamsqyac29rsdsa8lamjqx1ycla1bcvgmi4w2";
      };
    in buildLisp.library {
      name = "proc-parse";
      deps = [ alexandria babel (buildLisp.bundled "sb-cltl2") ];
      srcs = map (f: src + ("/src/" + f)) [
        "proc-parse.lisp"
      ];
    };
    xsubseq = let
      src = depot.third_party.fetchFromGitHub {
        owner = "fukamachi";
        repo = "xsubseq";
        rev = "5ce430b3da5cda3a73b9cf5cee4df2843034422b";
        sha256 = "1xz79q0p2mclf3sqjiwf6izdpb6xrsr350bv4mlmdlm6rg5r99px";
      };
    in buildLisp.library {
      name = "xsubseq";
      deps = [ (buildLisp.bundled "sb-cltl2") ];
      srcs = map (f: src + ("/src/" + f)) [
        "xsubseq.lisp"
      ];
    };
    uuid = let
      src = depot.third_party.fetchFromGitHub {
        owner = "dardoria";
        repo = "uuid";
        rev = "f0052f34a006ec995086aa3b2e42182a178fe228";
        sha256 = "1ncwhyw0zggwpkzjsw7d4pkrlldi34xvb69c0bzxmyz2krg8rpx0";
      };
    in buildLisp.library {
      name = "uuid";
      deps = [ ironclad trivial-utf-8 ];
      srcs = map (f: src + ("/" + f)) [
        "uuid.lisp"
      ];
    };
    smart-buffer = let
      src = depot.third_party.fetchFromGitHub {
        owner = "fukamachi";
        repo = "smart-buffer";
        rev = "09b9a9a0b3abaa37abe9a730f5aac2643dca4e62";
        sha256 = "0qz1zzxx0wm5ff7gpgsq550a59p0qj594zfmm2rglj97dahj54l7";
      };
    in buildLisp.library {
      name = "smart-buffer";
      deps = [ xsubseq flexi-streams (buildLisp.bundled "uiop") ];
      srcs = map (f: src + ("/src/" + f)) [
        "smart-buffer.lisp"
      ];
    };
    fast-http = let
      src = depot.third_party.fetchFromGitHub {
        owner = "fukamachi";
        repo = "fast-http";
        rev = "502a37715dcb8544cc8528b78143a942de662c5a";
        sha256 = "0al2g7g219jjljsf7b23pbilpgacxy5as5gs2nqf76b5qni396mi";
      };
    in buildLisp.library {
      name = "fast-http";
      deps = [ alexandria cl-utilities proc-parse babel xsubseq smart-buffer ];
      srcs = map (f: src + ("/src/" + f)) [
        "http.lisp"
        "byte-vector.lisp"
        "error.lisp"
        "util.lisp"
        "parser.lisp"
        "multipart-parser.lisp"
        "fast-http.lisp"
      ];
    };
    wsd-src = depot.third_party.fetchFromGitHub {
      owner = "eeeeeta";
      repo = "websocket-driver";
      rev = "03fdb0684c50fe77cf186d208c671bd9a1575985";
      sha256 = "06plrbk7sbz456hkxsd97ib7xvjp484d18l0r11pqjd1659smjb3";
    };
    wsd-base = buildLisp.library {
      name = "websocket-driver-base";
      deps = [ fast-websocket fast-io event-emitter ironclad cl-base64 split-sequence bordeaux-threads ];
      srcs = map (f: wsd-src + ("/src/" + f)) [
        "util.lisp"
        "ws/base.lisp"
        "driver.lisp"
      ];
    };
    wsd-client = buildLisp.library {
      name = "websocket-driver-client";
      deps = [ wsd-base usocket cl-plus-ssl fast-io fast-websocket cl-base64 trivial-utf-8 ironclad quri fast-http ];
      srcs = map (f: wsd-src + ("/src/" + f)) [
        "ws/client.lisp"
        "client.lisp"
      ];
    };
    closure-common = let
      src = depot.third_party.fetchFromGitHub {
        owner = "sharplispers";
        repo = "closure-common";
        rev = "e3c5f5f454b72b01b89115e581c3c52a7e201e5c";
        sha256 = "0k5r2qxn122pxi301ijir3nayi9sg4d7yiy276l36qmzwhp4mg5n";
      };
      enable-character-runes = pkgs.writeText "character-runes.lisp" "(push :rune-is-character *features*)";
    in buildLisp.library {
      name = "closure-common";
      deps = [ trivial-gray-streams babel ];
      srcs = [
        enable-character-runes
      ] ++ map (f: src + ("/" + f)) [
        "package.lisp"
        "definline.lisp"
        "characters.lisp"
        "syntax.lisp"
        "encodings.lisp"
        "encodings-data.lisp"
        "xstream.lisp"
        "ystream.lisp"
        "hax.lisp"
      ];
    };
    cxml = let
      src = depot.third_party.fetchFromGitHub {
        owner = "sharplispers";
        repo = "cxml";
        rev = "8701da08ba4aac30891b8d2005edb018c1d3d796";
        sha256 = "18fls3bx7vmnxfa6qara8fxp316d8kb3izar0kysvqg6l0a45a51";
      };
    in buildLisp.library {
      name = "cxml";
      deps = [ (buildLisp.bundled "asdf") closure-common puri trivial-gray-streams ];
      srcs = [
        (src + "/cxml.asd")
      ] ++ map (f: src + ("/xml/" + f)) [
        "package.lisp"
        "util.lisp"
        "sax-handler.lisp"
        "xml-name-rune-p.lisp"
        "split-sequence.lisp"
        "xml-parse.lisp"
        "unparse.lisp"
        "xmls-compat.lisp"
        "recoder.lisp"
        "xmlns-normalizer.lisp"
        "space-normalizer.lisp"
        # "catalog.lisp"
        "sax-proxy.lisp"
        "atdoc-configuration.lisp"
      ] ++ map (f: src + ("/dom/" + f)) [
        "package.lisp"
        "dom-impl.lisp"
        "dom-builder.lisp"
        "dom-sax.lisp"
      ] ++ map (f: src + ("/klacks/" + f)) [
        "package.lisp"
        "klacks.lisp"
        "klacks-impl.lisp"
        "tap-source.lisp"
      ];
    };
    cl-qrencode = let
      src = depot.third_party.fetchFromGitHub {
        owner = "jnjcc";
        repo = "cl-qrencode";
        rev = "0de2d8a3877b499a9a0bbb0a9e1247056ae4311e";
        sha256 = "1l5k131dchbf6cj8a8xqa731790p01p3qa1kdy2wa9dawy3ymkxr";
      };
    in buildLisp.library {
      name = "cl-qrencode";
      deps = [ zpng ];
      srcs = map (f: src + ("/" + f)) [
        "packages.lisp"
        "utils/util.lisp"
        "rs-ecc/galois.lisp"
        "rs-ecc/bch-ecc.lisp"
        "rs-ecc/rs-ecc.lisp"
        "qrencode/modes.lisp"
        "qrencode/qrspec.lisp"
        "qrencode/input.lisp"
        "qrencode/bstream.lisp"
        "qrencode/codeword.lisp"
        "qrencode/matrix.lisp"
        "qrencode/mask.lisp"
        "qrencode/encode.lisp"
        "image/png.lisp"
      ];
    };
    vom = let
      src = depot.third_party.fetchFromGitHub {
        owner = "orthecreedence";
        repo = "vom";
        rev = "1aeafeb5b74c53741b79497e0ef4acf85c92ff24";
        sha256 = "0536kppj76ax4lrxhv42npkfjsmx45km2g439vf9jmw3apinz9cy";
      };
    in buildLisp.library {
      name = "vom";
      deps = [];
      srcs = map (f: src + ("/" + f)) [
        "vom.lisp"
      ];
    };
    blackbird = let
      src = depot.third_party.fetchFromGitHub {
        owner = "orthecreedence";
        repo = "blackbird";
        rev = "d361f81c1411dec07f6c2dcb11c78f7aea9aaca8";
        sha256 = "0xfds5yaya64arzr7w1x38karyz11swzbhxx1afldpradj9dh19c";
      };
    in buildLisp.library {
      name = "blackbird";
      deps = [ vom ];
      srcs = map (f: src + ("/" + f)) [
        "package.lisp"
        "syntax.lisp"
        "promise.lisp"
        "util.lisp"
      ];
    };
    nibbles = let
      src = depot.third_party.fetchFromGitHub {
        owner = "sharplispers";
        repo = "nibbles";
        rev = "2b99f103f84f0a6dcbc8212f7763d6b08b13e3fa";
        sha256 = "06ckb4hjl4kca9dwldqrz6gxmfic47makahq3p3ysv71zncr9zgm";
      };
    in buildLisp.library {
      name = "nibbles";
      deps = [ trivial-gray-streams metabang-bind ];
      srcs = map (f: src + ("/" + f)) [
        "package.lisp"
        "types.lisp"
        "macro-utils.lisp"
        "vectors.lisp"
        "streams.lisp"
        "sbcl-opt/fndb.lisp"
        "sbcl-opt/nib-tran.lisp"
        "sbcl-opt/x86-vm.lisp"
        "sbcl-opt/x86-64-vm.lisp"
      ];
    };
    ironclad = let
      src = depot.third_party.fetchFromGitHub {
        owner = "sharplispers";
        repo = "ironclad";
        rev = "c3aa33080621abc10fdb0f34acc4655cc4e982a6";
        sha256 = "0k4bib9mbrzalbl9ivkw4a7g4c7bbad1l5jw4pzkifqszy2swkr5";
      };
    in buildLisp.library {
      name = "ironclad";
      deps = [ (buildLisp.bundled "sb-posix") (buildLisp.bundled "sb-rotate-byte") bordeaux-threads ];
      srcs = map (f: src + ("/src/" + f)) [
        "package.lisp"
        "macro-utils.lisp"
        "generic.lisp"
        "conditions.lisp"
        "util.lisp"
      ] ++ map (f: src + ("/src/prng/" + f)) [
        "prng.lisp"
        "generator.lisp"
        "os-prng.lisp"
        "fortuna.lisp"
      ] ++ map (f: src + ("/src/opt/" + f)) [
        "sbcl/fndb.lisp"
        "sbcl/x86oid-vm.lisp"
        "sbcl/cpu-features.lisp"
      ] ++ map (f: src + ("/src/" + f)) [
        "common.lisp" # aha!
      ] ++ map (f: src + ("/src/ciphers/" + f)) [
        "cipher.lisp"
        "padding.lisp"
        "modes.lisp"
        "salsa20.lisp"
        "aes.lisp"
        "arcfour.lisp"
        "aria.lisp"
        "blowfish.lisp"
        "camellia.lisp"
        "cast5.lisp"
        "chacha.lisp"
        "des.lisp"
        "idea.lisp"
        "keystream.lisp"
        "kalyna.lisp"
        "kuznyechik.lisp"
        "make-cipher.lisp"
        "misty1.lisp"
        "rc2.lisp"
        "rc5.lisp"
        "rc6.lisp"
        "seed.lisp"
        "serpent.lisp"
        "sm4.lisp"
        "sosemanuk.lisp"
        "square.lisp"
        "tea.lisp"
        "threefish.lisp"
        "twofish.lisp"
        "xchacha.lisp"
        "xor.lisp"
        "xsalsa20.lisp"
        "xtea.lisp"
      ] ++ map (f: src + ("/src/digests/" + f)) [
        "digest.lisp"
        "adler32.lisp"
        "blake2.lisp"
        "blake2s.lisp"
        "crc24.lisp"
        "crc32.lisp"
        "groestl.lisp"
        "jh.lisp"
        "kupyna.lisp"
        "md2.lisp"
        "md4.lisp"
        "md5.lisp"
        "md5-lispworks-int32.lisp"
        "ripemd-128.lisp"
        "ripemd-160.lisp"
        "sha1.lisp"
        "sha256.lisp"
        "sha3.lisp"
        "sha512.lisp"
        "skein.lisp"
        "sm3.lisp"
        "streebog.lisp"
        "tiger.lisp"
        "tree-hash.lisp"
        "whirlpool.lisp"
      ] ++ map (f: src + ("/src/public-key/" + f)) [
        "public-key.lisp"
        "curve25519.lisp"
        "curve448.lisp"
        "dsa.lisp"
        "ed25519.lisp"
        "ed448.lisp"
        "elgamal.lisp"
        "pkcs1.lisp"
        "rsa.lisp"
      ] ++ map (f: src + ("/src/macs/" + f)) [
        "mac.lisp"
        "blake2-mac.lisp"
        "blake2s-mac.lisp"
        "cmac.lisp"
        "hmac.lisp"
        "gmac.lisp"
        "poly1305.lisp"
        "siphash.lisp"
        "skein-mac.lisp"
      ] ++ map (f: src + ("/src/kdf/" + f)) [
        "kdf-common.lisp"
        "hmac.lisp"
        "pkcs5.lisp"
        "argon2.lisp"
        "password-hash.lisp"
        "scrypt.lisp"
      ] ++ map (f: src + ("/src/aead/" + f)) [
        "aead.lisp"
        "eax.lisp"
        "etm.lisp"
        "gcm.lisp"
      ] ++ map (f: src + ("/src/" + f)) [
        "math.lisp"
        "octet-stream.lisp"
      ];
    };
  };
  whatscl = import ../whatscl { lispPkgs = lispPkgs; };
in
with lispPkgs;
buildLisp.program {
  name = "whatsxmpp";
  deps = [ whatscl blackbird cxml uuid cl-sqlite trivial-mimes drakma cl-qrencode trivial-backtrace ];
  srcs = map (f: ./. + ("/" + f)) [
    "packages.lisp"
    "utils.lisp"
    "namespaces.lisp"
    "component.lisp"
    "xmpp.lisp"
    "xep-0030.lisp"
    "xep-0363.lisp"
    "xep-0115.lisp"
    "sqlite.lisp"
    "db.lisp"
    "stuff.lisp"
  ];
  main = "whatsxmpp::main";
}