changeset 585: |
7a5d6e45de7a |
parent 584: |
35bb0d5ec95e |
child 586: |
7ce855f76e1d |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Sat, 10 Aug 2024 01:40:23 -0400 |
files: |
emacs/default.el lisp/lib/net/srv.lisp lisp/lib/syn/pkg.lisp readme.org |
description: |
srv syn |
1.1--- a/emacs/default.el Sat Aug 10 00:30:45 2024 -0400
1.2+++ b/emacs/default.el Sat Aug 10 01:40:23 2024 -0400
1.3@@ -46,16 +46,17 @@
1.4 view-read-only t)
1.5 (add-to-list 'treesit-extra-load-path "/usr/local/lib/")
1.6
1.7-;; (let ((grammar-dir "/usr/local/share/tree-sitter/"))
1.8-;; (when (file-exists-p grammar-dir)
1.9-;; (append
1.10-;; (flatten
1.11-;; (mapcar
1.12-;; (lambda (f)
1.13-;; (unless (or (string= "." f) (string= ".." f))
1.14-;; (concat grammar-dir f)))
1.15-;; (directory-files "/usr/local/share/tree-sitter")))
1.16-;; treesit-extra-load-path)))
1.17+(let ((grammar-dir "/usr/local/share/tree-sitter/"))
1.18+ (when (file-exists-p grammar-dir)
1.19+ (setq treesit-extra-load-path
1.20+ (append
1.21+ (flatten
1.22+ (mapcar
1.23+ (lambda (f)
1.24+ (unless (or (string= "." f) (string= ".." f))
1.25+ (concat grammar-dir f)))
1.26+ (directory-files "/usr/local/share/tree-sitter")))
1.27+ treesit-extra-load-path))))
1.28
1.29 ;;; Variables
1.30 (defvar user-emacs-lib-directory (expand-file-name (join-paths user-emacs-directory "lib")))
1.31@@ -719,6 +720,7 @@
1.32 (setq org-todo-keywords
1.33 '((type "TBD(0!)" "TODO(t!)" "|")
1.34 (type "WIP(w!)" "|")
1.35+ (type "HOLD(H@!)" "WAIT(/j@!)" "|")
1.36 (sequence "FIND(q!)" "READ(r@!)" "WATCH(W@!)" "|")
1.37 (sequence "RESEARCH(s!)" "RECORD(e!)" "|")
1.38 (sequence "OUTLINE(O!)" "RESEARCH(A!)" "DRAFT(M!)" "REVIEW(R!)" "|")
2.1--- a/lisp/lib/net/srv.lisp Sat Aug 10 00:30:45 2024 -0400
2.2+++ b/lisp/lib/net/srv.lisp Sat Aug 10 01:40:23 2024 -0400
2.3@@ -47,7 +47,7 @@
2.4 ;;; Conditions
2.5 ;; from hunchentoot
2.6 (define-condition srv-condition (condition) ())
2.7-(deferror srv-error (srv-condition error) () (:auto t))
2.8+(deferror srv-error (srv-condition error) () ())
2.9 (deferror srv-simple-error (srv-error simple-condition) () (:auto t))
2.10
2.11 (define-condition srv-warning (srv-condition warning) ())
3.1--- a/lisp/lib/syn/pkg.lisp Sat Aug 10 00:30:45 2024 -0400
3.2+++ b/lisp/lib/syn/pkg.lisp Sat Aug 10 01:40:23 2024 -0400
3.3@@ -10,3 +10,17 @@
3.4 (:export))
3.5
3.6 (in-package :syn)
3.7+
3.8+(defvar *syntax-tree* nil)
3.9+(defclass syntax () ())
3.10+
3.11+;; does not need tree-sitter lang loaded before use
3.12+(defclass tree-sitter-syntax (syntax)
3.13+ (path
3.14+ info))
3.15+
3.16+;; needs tree-sitter lang loaded before use
3.17+(defstruct tree-sitter-syntax-info
3.18+ version
3.19+ symbols
3.20+ fields)
4.1--- a/readme.org Sat Aug 10 00:30:45 2024 -0400
4.2+++ b/readme.org Sat Aug 10 01:40:23 2024 -0400
4.3@@ -9,15 +9,10 @@
4.4 - [[https://compiler.company/docs/core/stats.html][Stats]] :: Project Statistics
4.5
4.6 * Overview
4.7-The Compiler Company (aka CC) is a small software research laboratory
4.8+ is a small software research laboratory
4.9 concerned with the future of Mechanical Freedom.
4.10
4.11-This repository contains the monolothic core of all our products and
4.12-projects.
4.13-
4.14-- NOTE :: This is *not* a portable library. Starting in version =1.0=
4.15- we will be depending on separately distributed forks of SBCL and
4.16- Rust.
4.17+This repository contains the monolothic core of the Compiler Company.
4.18
4.19 To bootstrap the core you will need recent versions of [[https://www.rust-lang.org/][Rust]], [[http://www.sbcl.org/][SBCL]], and
4.20 a C compiler (clang or gcc). Only Unix systems are explicitly
4.21@@ -32,25 +27,25 @@
4.22 platform-specific [[https://packy.compiler.company/dist][binary distributions]].
4.23
4.24 #+NAME: Optional Dependencies
4.25-| dependency | dependents | src | dist |
4.26-|-------------+------------------------+-----------------------------------------------+------|
4.27-| Blake3 | ffi/blake3 | https://vc.compiler.company/packy/blake3 | |
4.28-| Tree-sitter | ffi/tree-sitter | https://vc.compiler.company/packy/tree-sitter | |
4.29-| Uring | ffi/uring | https://vc.compiler.company/packy/uring | |
4.30-| Btrfs | ffi/btrfs | https://vc.compiler.company/packy/btrfs | |
4.31-| Ublksrv | ffi/ublk | https://vc.compiler.company/packy/ublksrv | |
4.32-| OpenSSL | lib/net | | |
4.33-| RocksDB | ffi/rocksdb | https://vc.compiler.company/packy/rocksdb | |
4.34-| Git | lib/vc/git | https://vc.compiler.company/packy/git | |
4.35-| Hg | lib/vc/hg | https://vc.compiler.company/packy/hg | |
4.36-| Zstd | ffi/zstd | https://vc.compiler.company/packy/zstd | |
4.37-| Qemu | lib/box | https://vc.compiler.company/packy/qemu | |
4.38-| Podman | lib/pod | https://vc.compiler.company/packy/podman | |
4.39-| Emacs | emacs | https://vc.compiler.company/packy/emacs | |
4.40-| StumpWM | lib/gui/wm/x11/stumpwm | https://vc.compiler.company/packy/stumpwm | |
4.41-| Readline | ffi/readline | | |
4.42-| Keyutils | ffi/keyutils | | |
4.43-| Mpd | lib/aud/mpd | https://vc.compiler.company/packy/mpd | |
4.44+| dependency | dependents | src |
4.45+|-------------+------------------------+-----------------------------------------------+
4.46+| Blake3 | ffi/blake3 | https://vc.compiler.company/packy/blake3 |
4.47+| Tree-sitter | ffi/tree-sitter | https://vc.compiler.company/packy/tree-sitter |
4.48+| Uring | ffi/uring | https://vc.compiler.company/packy/uring |
4.49+| Btrfs | ffi/btrfs | https://vc.compiler.company/packy/btrfs |
4.50+| Ublksrv | ffi/ublk | https://vc.compiler.company/packy/ublksrv |
4.51+| OpenSSL | lib/net | |
4.52+| RocksDB | ffi/rocksdb | https://vc.compiler.company/packy/rocksdb |
4.53+| Git | lib/vc/git | https://vc.compiler.company/packy/git |
4.54+| Hg | lib/vc/hg | https://vc.compiler.company/packy/hg |
4.55+| Zstd | ffi/zstd | https://vc.compiler.company/packy/zstd |
4.56+| Qemu | lib/box | https://vc.compiler.company/packy/qemu |
4.57+| Podman | lib/pod | https://vc.compiler.company/packy/podman |
4.58+| Emacs | emacs | https://vc.compiler.company/packy/emacs |
4.59+| StumpWM | lib/gui/wm/x11/stumpwm | https://vc.compiler.company/packy/stumpwm |
4.60+| Readline | ffi/readline | |
4.61+| Keyutils | ffi/keyutils | |
4.62+| Mpd | lib/aud/mpd | https://vc.compiler.company/packy/mpd |
4.63
4.64 * Build
4.65 The Core consists of two major system: the *lisp* system and the
4.66@@ -86,7 +81,7 @@
4.67
4.68 #+RESULTS: x-help
4.69 #+begin_example
4.70-This is SBCL 2.4.5, an implementation of ANSI Common Lisp.
4.71+This is SBCL 2.4.7:dc890089a, an implementation of ANSI Common Lisp.
4.72 More information about SBCL is available at <http://www.sbcl.org/>.
4.73
4.74 SBCL is free software, provided as is, with absolutely no warranty.
4.75@@ -119,7 +114,7 @@
4.76
4.77 #+RESULTS:
4.78 #+begin_example
4.79-This is SBCL 2.4.5, an implementation of ANSI Common Lisp.
4.80+This is SBCL 2.4.7:dc890089a, an implementation of ANSI Common Lisp.
4.81 More information about SBCL is available at <http://www.sbcl.org/>.
4.82
4.83 SBCL is free software, provided as is, with absolutely no warranty.
4.84@@ -142,20 +137,22 @@
4.85 ; Loading "std/tests"
4.86
4.87 in suite STD:
4.88-; with 13 tests
4.89-#<PASS CURRY>
4.90+; with 15 tests
4.91+#<PASS READTABLES>
4.92+#<PASS SYM>
4.93+#<PASS STRING>
4.94+#<PASS LIST>
4.95+#<PASS ERR>
4.96+#<PASS THREADS>
4.97+#<PASS TIMERS>
4.98+#<PASS FMT>
4.99+#<PASS ANA>
4.100+#<PASS PAN>
4.101 #<PASS ALIEN>
4.102-#<PASS PAN>
4.103-#<PASS ANA>
4.104-#<PASS FMT>
4.105+#<PASS CURRY>
4.106+#<PASS BITS>
4.107+#<PASS LEB128>
4.108 #<PASS TASKS>
4.109-#<PASS TIMERS>
4.110-#<PASS THREADS>
4.111-#<PASS ERR>
4.112-#<PASS LIST>
4.113-#<PASS STRING>
4.114-#<PASS SYM>
4.115-#<PASS READTABLES>
4.116 No tests failed.
4.117 #+end_example
4.118
4.119@@ -240,7 +237,7 @@
4.120
4.121 #+RESULTS:
4.122 #+begin_example
4.123-skel v0.1.1:0e043dcda8f4+ --- A hacker's project compiler.
4.124+skel v0.1.1:ce91ffc6cc7a+ --- A hacker's project compiler.
4.125
4.126 usage: skel [global] <command> [<arg>]
4.127
4.128@@ -265,7 +262,6 @@
4.129 vc : version control
4.130 -r/--root : repository path
4.131 id : print the project id
4.132- rev : print the current vc revision id
4.133 inspect : inspect the project skelfile
4.134 -f/--file : path to skelfile
4.135 make : build project targets
4.136@@ -289,6 +285,7 @@
4.137 commit : commit changes to the project vc
4.138 edit : edit a project file in emacs.
4.139 shell : open the sk-shell interpreter
4.140+
4.141 #+end_example
4.142 ** organ :lisp:
4.143 #+begin_src shell :results output :exports both
4.144@@ -320,7 +317,6 @@
4.145
4.146 #+RESULTS:
4.147 #+begin_example
4.148-#:debug 0.44; (#S(CLI-NODE :KIND OPT :FORM #<CLI-OPT help :global T :val T>))
4.149 packy v0.1.0 --- Universal Package Manager
4.150
4.151 usage: packy [global] <command> [<arg>]
4.152@@ -332,10 +328,10 @@
4.153
4.154 commands:
4.155 show
4.156-#:debug 0.453333; /home/ellis/comp/core
4.157-; #(#<CLI-OPT help :global T :val NIL>)
4.158-; NIL
4.159-; #()
4.160+ -n/--name*
4.161+ -t/--target
4.162+ -t/--thunk*
4.163+ -p/--pk-target*
4.164 #+end_example
4.165
4.166 ** rdb :lisp:
4.167@@ -344,25 +340,6 @@
4.168 #+end_src
4.169
4.170 #+RESULTS:
4.171-#+begin_example
4.172-rdb v0.1.0 --- A simple helper for RocksDB.
4.173-
4.174- usage: rdb [global] <command> [<arg>]
4.175-
4.176-options:
4.177- -l/--level* : set the log level
4.178- -h/--help* : print help
4.179- -v/--version* : print version
4.180- -d/--db* : target db
4.181-
4.182-commands:
4.183- new
4.184- show
4.185- set
4.186- get
4.187- fuzz
4.188- destroy
4.189-#+end_example
4.190
4.191 ** homer :lisp:
4.192 #+begin_src shell :results output :exports both