[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/phpinspect 2099abced8 099/126: Add Cask configuration a
From: |
ELPA Syncer |
Subject: |
[elpa] externals/phpinspect 2099abced8 099/126: Add Cask configuration and fix some compilation warnings |
Date: |
Sat, 12 Aug 2023 00:58:48 -0400 (EDT) |
branch: externals/phpinspect
commit 2099abced8f3bc04d8f4e3f8aa3fe939e0ba74d6
Author: Hugo Thunnissen <devel@hugot.nl>
Commit: Hugo Thunnissen <devel@hugot.nl>
Add Cask configuration and fix some compilation warnings
---
Cask | 4 +++
Makefile | 19 +++++++++++
phpinspect-autoload.el | 3 +-
phpinspect-bmap.el | 28 ++++++++++------
phpinspect-buffer.el | 2 +-
phpinspect-cache.el | 1 +
phpinspect-changeset.el | 78 +++++++++++++++++++++++++++++++++++++++++++++
phpinspect-completion.el | 50 +++++++++++++++--------------
phpinspect-eldoc.el | 39 +++++++++++------------
phpinspect-fs.el | 15 +++++----
phpinspect-parse-context.el | 52 +-----------------------------
phpinspect-splayt.el | 2 +-
phpinspect.el | 3 +-
13 files changed, 180 insertions(+), 116 deletions(-)
diff --git a/Cask b/Cask
new file mode 100644
index 0000000000..559671e53c
--- /dev/null
+++ b/Cask
@@ -0,0 +1,4 @@
+(source gnu)
+(source melpa)
+
+(package-file "phpinspect.el")
\ No newline at end of file
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000000..a1a03a5743
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,19 @@
+export EMACS ?= $(shell which emacs)
+CASK_DIR := $(shell cask package-directory)
+
+$(CASK_DIR): Cask
+ cask install
+ @touch $(CASK_DIR)
+
+.PHONY: cask
+cask: $(CASK_DIR)
+
+.PHONY: compile
+compile: cask
+ cask emacs -batch -L . -L test \
+ -f batch-byte-compile $$(cask files); \
+ (ret=$$? ; cask clean-elc && exit $$ret)
+
+.PHONY: test
+test: compile
+ cask emacs --batch -L . -L test -l ./test/phpinspect-test.el e -f
ert-run-tests-batch
diff --git a/phpinspect-autoload.el b/phpinspect-autoload.el
index e145755715..8245be322e 100644
--- a/phpinspect-autoload.el
+++ b/phpinspect-autoload.el
@@ -76,7 +76,8 @@ qualified names congruent with a bareword type name. Keyed by
bareword typenames."))
(defun phpinspect-make-autoload-definition-closure (project-root fs typehash)
- "Create a closure that can be used to `maphash' the autoload section of a
composer-json."
+ "Create a closure that can be used to `maphash' the autoload
+section of a composer-json."
(lambda (type prefixes)
(let ((strategy))
(cond
diff --git a/phpinspect-bmap.el b/phpinspect-bmap.el
index 732027b861..5ba1d3ed2c 100644
--- a/phpinspect-bmap.el
+++ b/phpinspect-bmap.el
@@ -25,9 +25,16 @@
(require 'phpinspect-splayt)
(require 'phpinspect-meta)
+(require 'phpinspect-changeset)
(require 'phpinspect-util)
(require 'compat)
+(eval-when-compile
+ (defvar phpinspect-parse-context nil
+ "dummy for compilation")
+
+ (declare-function phpinspect-pctx-register-changeset
"phpinspect-parse-context" (pctx changeset)))
+
(cl-defstruct (phpinspect-bmap (:constructor phpinspect-make-bmap))
(starts (make-hash-table :test #'eql
:size (floor (/ (point-max) 4))
@@ -125,9 +132,9 @@
(declare (indent defun))
(let ((place (car place-and-bmap))
(bmap (gensym))
- (_ignored (gensym)))
+ (ignored (gensym)))
`(let ((,bmap ,(cadr place-and-bmap)))
- (maphash (lambda (,_ignored ,place)
+ (maphash (lambda (,ignored ,place)
,@body
(when (phpinspect-meta-overlay ,place)
(phpinspect-splayt-traverse (,place
(phpinspect-meta-children ,place))
@@ -172,6 +179,11 @@
(and (listp overlay)
(eq 'overlay (car overlay))))
+(defsubst phpinspect-bmap-overlay-at-point (bmap point)
+ (let ((overlay (phpinspect-splayt-find-largest-before
(phpinspect-bmap-overlays bmap) point)))
+ (when (and overlay (phpinspect-overlay-overlaps-point overlay point))
+ overlay)))
+
(cl-defmethod phpinspect-bmap-token-starting-at ((overlay (head overlay))
point)
(phpinspect-bmap-token-starting-at
(phpinspect-overlay-bmap overlay) (- point (phpinspect-overlay-delta
overlay))))
@@ -192,10 +204,6 @@
(phpinspect-bmap-tokens-ending-at overlay point)
(gethash point (phpinspect-bmap-ends bmap)))))
-(defsubst phpinspect-bmap-overlay-at-point (bmap point)
- (let ((overlay (phpinspect-splayt-find-largest-before
(phpinspect-bmap-overlays bmap) point)))
- (when (and overlay (phpinspect-overlay-overlaps-point overlay point))
- overlay)))
(defsubst phpinspect-bmap-tokens-overlapping (bmap point)
(let ((tokens))
@@ -212,6 +220,10 @@
(cl-defmethod phpinspect-bmap-token-meta ((overlay (head overlay)) token)
(phpinspect-bmap-token-meta (phpinspect-overlay-bmap overlay) token))
+(defsubst phpinspect-probably-token-p (token)
+ (and (listp token)
+ (keywordp (car token))))
+
(cl-defmethod phpinspect-bmap-token-meta ((bmap phpinspect-bmap) token)
(unless (phpinspect-probably-token-p token)
(error "Unexpected argument, expected `phpinspect-token-p'. Got invalid
token %s" token))
@@ -226,10 +238,6 @@
(phpinspect-bmap-overlays bmap) (phpinspect-overlay-end
overlay))
(throw 'found found?)))))))
-(defsubst phpinspect-probably-token-p (token)
- (and (listp token)
- (keywordp (car token))))
-
(cl-defmethod phpinspect-bmap-last-token-before-point ((bmap phpinspect-bmap)
point)
"Search backward in BMAP for last token ending before POINT."
(phpinspect-meta-find-child-before-recursively (phpinspect-bmap-root-meta
bmap) point))
diff --git a/phpinspect-buffer.el b/phpinspect-buffer.el
index cea7aa4f91..51d902c238 100644
--- a/phpinspect-buffer.el
+++ b/phpinspect-buffer.el
@@ -23,7 +23,7 @@
;;; Code:
-;;(require 'phpinspect-tree)
+(require 'phpinspect-parser)
(require 'phpinspect-bmap)
(require 'phpinspect-edtrack)
diff --git a/phpinspect-cache.el b/phpinspect-cache.el
index d9e37f7777..b5b0182724 100644
--- a/phpinspect-cache.el
+++ b/phpinspect-cache.el
@@ -25,6 +25,7 @@
(require 'phpinspect-project)
(require 'phpinspect-autoload)
+(require 'phpinspect-worker)
(cl-defstruct (phpinspect--cache (:constructor phpinspect--make-cache))
(projects (make-hash-table :test 'equal :size 10)
diff --git a/phpinspect-changeset.el b/phpinspect-changeset.el
new file mode 100644
index 0000000000..7f19ed2201
--- /dev/null
+++ b/phpinspect-changeset.el
@@ -0,0 +1,78 @@
+;;; phpinspect-changeset.el --- Metadata changeset module -*-
lexical-binding: t; -*-
+
+;; Copyright (C) 2021 Free Software Foundation, Inc
+
+;; Author: Hugo Thunnissen <devel@hugot.nl>
+;; Keywords: php, languages, tools, convenience
+;; Version: 0
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(define-inline phpinspect-make-changeset (meta)
+ (inline-letevals (meta)
+ (inline-quote
+ (list (phpinspect-meta-start ,meta) (phpinspect-meta-end ,meta)
+ (phpinspect-meta-parent ,meta) (phpinspect-meta-overlay ,meta)
+ (phpinspect-meta-parent-offset ,meta) ,meta))))
+
+(define-inline phpinspect-changeset-start (set)
+ (inline-quote (car ,set)))
+
+(define-inline phpinspect-changeset-end (set)
+ (inline-quote (cadr ,set)))
+
+(define-inline phpinspect-changeset-parent (set)
+ (inline-quote (caddr ,set)))
+
+(define-inline phpinspect-changeset-overlay (set)
+ (inline-quote (cadddr ,set)))
+
+(define-inline phpinspect-changeset-parent-offset (set)
+ (inline-quote (car (cddddr ,set))))
+
+(define-inline phpinspect-changeset-meta (set)
+ (inline-quote (car (nthcdr 5 ,set))))
+
+(define-inline phpinspect-meta-with-changeset (meta &rest body)
+ (declare (indent 1))
+ (inline-letevals (meta)
+ (push 'progn body)
+ (inline-quote
+ (progn
+ (when phpinspect-parse-context
+ (phpinspect-pctx-register-changeset
+ phpinspect-parse-context (phpinspect-make-changeset ,meta)))
+ ,body))))
+
+(define-inline phpinspect-changeset-revert (changeset)
+ (inline-letevals (changeset)
+ (inline-quote
+ (progn
+ (setf (phpinspect-meta-parent (phpinspect-changeset-meta ,changeset))
+ (phpinspect-changeset-parent ,changeset))
+ (setf (phpinspect-meta-overlay (phpinspect-changeset-meta ,changeset))
+ (phpinspect-changeset-overlay ,changeset))
+ (setf (phpinspect-meta-absolute-start (phpinspect-changeset-meta
,changeset))
+ (phpinspect-changeset-start ,changeset))
+ (setf (phpinspect-meta-absolute-end (phpinspect-changeset-meta
,changeset))
+ (phpinspect-changeset-end ,changeset))
+ (setf (phpinspect-meta-parent-offset (phpinspect-changeset-meta
,changeset))
+ (phpinspect-changeset-parent-offset ,changeset))))))
+
+(provide 'phpinspect-changeset)
+;;; phpinspect-changeset.el ends here
diff --git a/phpinspect-completion.el b/phpinspect-completion.el
index 554f723201..3048d3c7a2 100644
--- a/phpinspect-completion.el
+++ b/phpinspect-completion.el
@@ -90,36 +90,21 @@ candidate. Candidates can be indexed functions and
variables.")
(buffer nil
:type phpinspect-buffer))
-(cl-defmethod phpinspect-completion-query-execute ((query
phpinspect-completion-query))
- "Execute QUERY.
-
-Returns list of `phpinspect--completion'."
- (let* ((buffer (phpinspect-completion-query-buffer query))
- (point (phpinspect-completion-query-point query))
- (buffer-map (phpinspect-buffer-parse-map buffer))
- (rctx (phpinspect-get-resolvecontext buffer-map point))
- (completion-list (phpinspect--make-completion-list)))
- (dolist (strategy phpinspect-completion-strategies)
- (when (phpinspect-comp-strategy-supports strategy query rctx)
- (phpinspect--log "Found matching completion strategy. Executing...")
- (dolist (candidate (phpinspect-comp-strategy-execute strategy query
rctx))
- (phpinspect--completion-list-add
- completion-list (phpinspect--make-completion candidate)))))
- completion-list))
(cl-defgeneric phpinspect-comp-strategy-supports (strategy (query
phpinspect-completion-query) (context phpinspect--resolvecontext))
"Should return non-nil if STRATEGY should be deployed for QUERY
and CONTEXT. All strategies must implement this method.")
(cl-defgeneric phpinspect-comp-strategy-execute (strategy (query
phpinspect-completion-query) (context phpinspect--resolvecontext))
- "Should return a list of objects for which `phpinspect--make-completion' is
implemented.")
+ "Should return a list of objects for which
+`phpinspect--make-completion' is implemented.")
(cl-defstruct (phpinspect-comp-sigil (:constructor phpinspect-make-comp-sigil))
"Completion strategy for the sigil ($) character.")
(cl-defmethod phpinspect-comp-strategy-supports
- ((strat phpinspect-comp-sigil) (q phpinspect-completion-query)
- (rctx phpinspect--resolvecontext))
+ ((_strat phpinspect-comp-sigil) (q phpinspect-completion-query)
+ (_rctx phpinspect--resolvecontext))
(and (= (phpinspect-completion-query-completion-point q)
(phpinspect-completion-query-point q))
(phpinspect-variable-p
@@ -129,7 +114,7 @@ and CONTEXT. All strategies must implement this method.")
(phpinspect-completion-query-point q))))))
(cl-defmethod phpinspect-comp-strategy-execute
- ((strat phpinspect-comp-sigil) (q phpinspect-completion-query)
+ ((_strat phpinspect-comp-sigil) (_q phpinspect-completion-query)
(rctx phpinspect--resolvecontext))
(phpinspect-suggest-variables-at-point rctx))
@@ -137,12 +122,12 @@ and CONTEXT. All strategies must implement this method.")
"Completion strategy for object attributes")
(cl-defmethod phpinspect-comp-strategy-supports
- ((strat phpinspect-comp-attribute) (q phpinspect-completion-query)
+ ((_strat phpinspect-comp-attribute) (_q phpinspect-completion-query)
(rctx phpinspect--resolvecontext))
(phpinspect-object-attrib-p (car (last (phpinspect--resolvecontext-subject
rctx)))))
(cl-defmethod phpinspect-comp-strategy-execute
- ((strat phpinspect-comp-attribute) (q phpinspect-completion-query)
+ ((_strat phpinspect-comp-attribute) (_q phpinspect-completion-query)
(rctx phpinspect--resolvecontext))
(phpinspect-suggest-attributes-at-point rctx))
@@ -150,12 +135,12 @@ and CONTEXT. All strategies must implement this method.")
"Completion strategy for static attributes")
(cl-defmethod phpinspect-comp-strategy-supports
- ((strat phpinspect-comp-static-attribute) (q phpinspect-completion-query)
+ ((_strat phpinspect-comp-static-attribute) (_q phpinspect-completion-query)
(rctx phpinspect--resolvecontext))
(phpinspect-static-attrib-p (car (last (phpinspect--resolvecontext-subject
rctx)))))
(cl-defmethod phpinspect-comp-strategy-execute
- ((strat phpinspect-comp-static-attribute) (q phpinspect-completion-query)
+ ((_strat phpinspect-comp-static-attribute) (_q phpinspect-completion-query)
(rctx phpinspect--resolvecontext))
(phpinspect-suggest-attributes-at-point rctx 'static))
@@ -164,6 +149,23 @@ and CONTEXT. All strategies must implement this method.")
(phpinspect-make-comp-static-attribute))
"List of completion strategies that phpinspect can use.")
+(cl-defmethod phpinspect-completion-query-execute ((query
phpinspect-completion-query))
+ "Execute QUERY.
+
+Returns list of `phpinspect--completion'."
+ (let* ((buffer (phpinspect-completion-query-buffer query))
+ (point (phpinspect-completion-query-point query))
+ (buffer-map (phpinspect-buffer-parse-map buffer))
+ (rctx (phpinspect-get-resolvecontext buffer-map point))
+ (completion-list (phpinspect--make-completion-list)))
+ (dolist (strategy phpinspect-completion-strategies)
+ (when (phpinspect-comp-strategy-supports strategy query rctx)
+ (phpinspect--log "Found matching completion strategy. Executing...")
+ (dolist (candidate (phpinspect-comp-strategy-execute strategy query
rctx))
+ (phpinspect--completion-list-add
+ completion-list (phpinspect--make-completion candidate)))))
+ completion-list))
+
(cl-defmethod phpinspect--make-completion
((completion-candidate phpinspect--function))
"Create a `phpinspect--completion` for COMPLETION-CANDIDATE."
diff --git a/phpinspect-eldoc.el b/phpinspect-eldoc.el
index b77f7c3d4a..515ac985a9 100644
--- a/phpinspect-eldoc.el
+++ b/phpinspect-eldoc.el
@@ -36,16 +36,6 @@
(buffer nil
:type phpinspect-buffer))
-(cl-defmethod phpinspect-eldoc-query-execute ((query phpinspect-eldoc-query))
- (let* ((buffer (phpinspect-eldoc-query-buffer query))
- (point (phpinspect-eldoc-query-point query))
- (buffer-map (phpinspect-buffer-parse-map buffer))
- (rctx (phpinspect-get-resolvecontext buffer-map point)))
- (catch 'matched
- (dolist (strategy phpinspect-eldoc-strategies)
- (when (phpinspect-eld-strategy-supports strategy query rctx)
- (phpinspect--log "Found matching eldoc strategy. Executing...")
- (throw 'matched (phpinspect-eld-strategy-execute strategy query
rctx)))))))
(cl-defgeneric phpinspect-eld-strategy-supports (strategy (query
phpinspect-eldoc-query) (context phpinspect--resolvecontext))
"Should return non-nil if STRATEGY should be deployed for QUERY
@@ -62,11 +52,11 @@ be implemented for return values of
`phpinspect-eld-strategy-execute'")
"Eldoc strategy for object attributes.")
(cl-defmethod phpinspect-eld-strategy-supports
- ((strat phpinspect-eld-attribute) (q phpinspect-eldoc-query) (rctx
phpinspect--resolvecontext))
+ ((_strat phpinspect-eld-attribute) (_q phpinspect-eldoc-query) (rctx
phpinspect--resolvecontext))
(phpinspect-attrib-p (car (last (phpinspect--resolvecontext-subject rctx)))))
(cl-defmethod phpinspect-eld-strategy-execute
- ((strat phpinspect-eld-attribute) (q phpinspect-eldoc-query) (rctx
phpinspect--resolvecontext))
+ ((_strat phpinspect-eld-attribute) (_q phpinspect-eldoc-query) (rctx
phpinspect--resolvecontext))
(let ((attrib (car (last (phpinspect--resolvecontext-subject rctx))))
type-before)
(setf (phpinspect--resolvecontext-subject rctx) (butlast
(phpinspect--resolvecontext-subject rctx)))
@@ -77,9 +67,7 @@ be implemented for return values of
`phpinspect-eld-strategy-execute'")
(phpinspect--resolvecontext-project rctx)
type-before))
(attribute-name (cadadr attrib))
- variable
- method
- result)
+ variable method result)
(when attribute-name
(cond ((phpinspect-static-attrib-p attrib)
(setq variable (phpinspect--class-get-variable class
attribute-name))
@@ -101,14 +89,15 @@ be implemented for return values of
`phpinspect-eld-strategy-execute'")
(setq method (phpinspect--class-get-method
class (phpinspect-intern-name
attribute-name)))
(when method
- (setq result (phpinspect-make-function-doc :fn
method)))))))))))
+ (setq result (phpinspect-make-function-doc :fn
method))))))
+ result)))))
(cl-defstruct (phpinspect-eld-function-args (:constructor
phpinspect-make-eld-function-args))
"Eldoc strategy for function arguments.")
(cl-defmethod phpinspect-eld-strategy-supports
- ((strat phpinspect-eld-function-args) (q phpinspect-eldoc-query) (rctx
phpinspect--resolvecontext))
+ ((_strat phpinspect-eld-function-args) (_q phpinspect-eldoc-query) (rctx
phpinspect--resolvecontext))
(let ((parent-token (car (phpinspect--resolvecontext-enclosing-tokens
rctx))))
;; When our subject is inside a list, it is probably an argument of a
;; function/method call, which is what this strategy provides information
for.
@@ -120,10 +109,9 @@ be implemented for return values of
`phpinspect-eld-strategy-execute'")
(car (last (phpinspect--resolvecontext-subject rctx)))))))
(cl-defmethod phpinspect-eld-strategy-execute
- ((strat phpinspect-eld-function-args) (q phpinspect-eldoc-query) (rctx
phpinspect--resolvecontext))
+ ((_strat phpinspect-eld-function-args) (q phpinspect-eldoc-query) (rctx
phpinspect--resolvecontext))
(phpinspect--log "Executing `phpinspect-eld-function-args' strategy")
- (let* ((token-map (phpinspect-buffer-parse-map
(phpinspect-eldoc-query-buffer q)))
- (enclosing-token (car (phpinspect--resolvecontext-enclosing-metadata
+ (let* ((enclosing-token (car (phpinspect--resolvecontext-enclosing-metadata
rctx)))
(left-sibling )
(statement )
@@ -239,6 +227,17 @@ be implemented for return values of
`phpinspect-eld-strategy-execute'")
employ. Strategies are queried in the order of this list. See
also `phpinspect-eldoc-query-execute'.")
+(cl-defmethod phpinspect-eldoc-query-execute ((query phpinspect-eldoc-query))
+ (let* ((buffer (phpinspect-eldoc-query-buffer query))
+ (point (phpinspect-eldoc-query-point query))
+ (buffer-map (phpinspect-buffer-parse-map buffer))
+ (rctx (phpinspect-get-resolvecontext buffer-map point)))
+ (catch 'matched
+ (dolist (strategy phpinspect-eldoc-strategies)
+ (when (phpinspect-eld-strategy-supports strategy query rctx)
+ (phpinspect--log "Found matching eldoc strategy. Executing...")
+ (throw 'matched (phpinspect-eld-strategy-execute strategy query
rctx)))))))
+
(defun phpinspect-eldoc-function ()
"An `eldoc-documentation-function` implementation for PHP files.
diff --git a/phpinspect-fs.el b/phpinspect-fs.el
index d87a025702..0a9aeceb16 100644
--- a/phpinspect-fs.el
+++ b/phpinspect-fs.el
@@ -61,13 +61,13 @@ thread, PREFER-ASYNC has no effect.")
(cl-defgeneric phpinspect-fs-directory-files (fs directory match))
(cl-defgeneric phpinspect-fs-directory-files-recursively (fs directory match))
-(cl-defmethod phpinspect-fs-file-exists-p ((fs phpinspect-fs) file)
+(cl-defmethod phpinspect-fs-file-exists-p ((_fs phpinspect-fs) file)
(file-exists-p file))
(cl-defmethod phpinspect-fs-file-exists-p ((fs phpinspect-virtual-fs) file)
(and (gethash file (phpinspect-virtual-fs-files fs)) t))
-(cl-defmethod phpinspect-fs-file-directory-p ((fs phpinspect-fs) file)
+(cl-defmethod phpinspect-fs-file-directory-p ((_fs phpinspect-fs) file)
(file-directory-p file))
(cl-defmethod phpinspect-fs-file-directory-p ((fs phpinspect-virtual-fs) file)
@@ -86,14 +86,15 @@ thread, PREFER-ASYNC has no effect.")
(when file
(phpinspect-virtual-file-modification-time file))))
-(cl-defmethod phpinspect-fs-file-modification-time ((fs phpinspect-fs) file)
+(cl-defmethod phpinspect-fs-file-modification-time ((_fs phpinspect-fs) file)
(let ((attributes (file-attributes file)))
(when attributes
(file-attribute-modification-time attributes))))
(defsubst phpinspect--insert-file-contents-asynchronously (file)
- "Inserts FILE contents into the current buffer asynchronously, while
blocking the current thread.
+ "Inserts FILE contents into the current buffer asynchronously,
+while blocking the current thread.
Errors when executed in main thread, as it should be used to make
background operations less invasive. Usage in the main thread can
@@ -127,7 +128,7 @@ only be the result of a logic error."
(condition-wait condition)
(when err (error err)))))
-(cl-defmethod phpinspect-fs-insert-file-contents ((fs phpinspect-fs) file
&optional prefer-async)
+(cl-defmethod phpinspect-fs-insert-file-contents ((_fs phpinspect-fs) file
&optional prefer-async)
"Insert file contents from FILE. "
(if (and prefer-async (not (eq (current-thread) main-thread))
phpinspect--cat-executable)
@@ -138,7 +139,7 @@ only be the result of a logic error."
(let ((file-obj (gethash file (phpinspect-virtual-fs-files fs))))
(when file (insert (or (phpinspect-virtual-file-contents file-obj) "")))))
-(cl-defmethod phpinspect-fs-directory-files ((fs phpinspect-fs) directory
&optional match)
+(cl-defmethod phpinspect-fs-directory-files ((_fs phpinspect-fs) directory
&optional match)
(directory-files directory t match t))
(cl-defmethod phpinspect-fs-directory-files ((fs phpinspect-virtual-fs)
directory &optional match)
@@ -154,7 +155,7 @@ only be the result of a logic error."
(phpinspect-virtual-fs-files fs))
files))
-(cl-defmethod phpinspect-fs-directory-files-recursively ((fs phpinspect-fs)
directory &optional match)
+(cl-defmethod phpinspect-fs-directory-files-recursively ((_fs phpinspect-fs)
directory &optional match)
(directory-files-recursively directory
match
t ;; Ignore directories that cannot be read
diff --git a/phpinspect-parse-context.el b/phpinspect-parse-context.el
index ded203bb0d..fb2ae38db2 100644
--- a/phpinspect-parse-context.el
+++ b/phpinspect-parse-context.el
@@ -25,6 +25,7 @@
(require 'phpinspect-util)
(require 'phpinspect-meta)
+(require 'phpinspect-changeset)
(require 'phpinspect-bmap)
(defvar phpinspect-parse-context nil
@@ -121,57 +122,6 @@ thrown.")
(setf (phpinspect-pctx-whitespace-before pctx) "")
whitespace))
-(define-inline phpinspect-make-changeset (meta)
- (inline-letevals (meta)
- (inline-quote
- (list (phpinspect-meta-start ,meta) (phpinspect-meta-end ,meta)
- (phpinspect-meta-parent ,meta) (phpinspect-meta-overlay ,meta)
- (phpinspect-meta-parent-offset ,meta) ,meta))))
-
-(define-inline phpinspect-changeset-start (set)
- (inline-quote (car ,set)))
-
-(define-inline phpinspect-changeset-end (set)
- (inline-quote (cadr ,set)))
-
-(define-inline phpinspect-changeset-parent (set)
- (inline-quote (caddr ,set)))
-
-(define-inline phpinspect-changeset-overlay (set)
- (inline-quote (cadddr ,set)))
-
-(define-inline phpinspect-changeset-parent-offset (set)
- (inline-quote (car (cddddr ,set))))
-
-(define-inline phpinspect-changeset-meta (set)
- (inline-quote (car (nthcdr 5 ,set))))
-
-(define-inline phpinspect-meta-with-changeset (meta &rest body)
- (declare (indent 1))
- (inline-letevals (meta)
- (push 'progn body)
- (inline-quote
- (progn
- (when phpinspect-parse-context
- (phpinspect-pctx-register-changeset
- phpinspect-parse-context (phpinspect-make-changeset ,meta)))
- ,body))))
-
-(define-inline phpinspect-changeset-revert (changeset)
- (inline-letevals (changeset)
- (inline-quote
- (progn
- (setf (phpinspect-meta-parent (phpinspect-changeset-meta ,changeset))
- (phpinspect-changeset-parent ,changeset))
- (setf (phpinspect-meta-overlay (phpinspect-changeset-meta ,changeset))
- (phpinspect-changeset-overlay ,changeset))
- (setf (phpinspect-meta-absolute-start (phpinspect-changeset-meta
,changeset))
- (phpinspect-changeset-start ,changeset))
- (setf (phpinspect-meta-absolute-end (phpinspect-changeset-meta
,changeset))
- (phpinspect-changeset-end ,changeset))
- (setf (phpinspect-meta-parent-offset (phpinspect-changeset-meta
,changeset))
- (phpinspect-changeset-parent-offset ,changeset))))))
-
(defun phpinspect-pctx-cancel (pctx)
(phpinspect--log "Cancelling parse context")
(dolist (changeset (phpinspect-pctx-changesets pctx))
diff --git a/phpinspect-splayt.el b/phpinspect-splayt.el
index 76d7668ede..c4874f6993 100644
--- a/phpinspect-splayt.el
+++ b/phpinspect-splayt.el
@@ -204,7 +204,7 @@ apeared to be a little more performant than using `let'."
(phpinspect-splayt-node-rotate-left ,parent ,splayt)
(phpinspect-splayt-node-rotate-right ,parent ,splayt))
(t
- (error "Failed in determining rotation strategy.
(phpinspect-splayt-node-grandparent ,node): %s, parent: %s, ,node: %s")))
+ (error "Failed in determining rotation strategy.")))
;; Else
(if (eq ,node (phpinspect-splayt-node-left ,parent))
diff --git a/phpinspect.el b/phpinspect.el
index fd465c8439..8a13cd60db 100644
--- a/phpinspect.el
+++ b/phpinspect.el
@@ -1,10 +1,11 @@
-; phpinspect.el --- PHP parsing and completion package -*- lexical-binding:
t; -*-
+;;; phpinspect.el --- PHP parsing and completion package -*- lexical-binding:
t; -*-
;; Copyright (C) 2021 Free Software Foundation, Inc
;; Author: Hugo Thunnissen <devel@hugot.nl>
;; Keywords: php, languages, tools, convenience
;; Version: 0
+;; Package-Requires: ((compat "29"))
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
- [elpa] externals/phpinspect ef9a7336cf 049/126: Replace virtual-directory with more general virtual-fs implementation, (continued)
- [elpa] externals/phpinspect ef9a7336cf 049/126: Replace virtual-directory with more general virtual-fs implementation, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect dbf0ec0390 051/126: Transition from index script to autoloader, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect 97377c2922 055/126: Fix bugs in phpinspect-fix-imports, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect 281c5e4ae6 077/126: Remove some overly verbose logging, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect 0596bc52bf 091/126: Optimize splay tree and use it to store token's children, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect ab6954faf5 090/126: Retrieve and wrap metadata using the correct overlay for region, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect 389e77eb8b 092/126: Expand existing overlay when possible, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect 23245d0158 098/126: Fix some compilation warnings, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect db370623da 108/126: Implement "files" autoload strategy, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect 6678ba20c6 103/126: Implement async processing pipeline, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect 2099abced8 099/126: Add Cask configuration and fix some compilation warnings,
ELPA Syncer <=
- [elpa] externals/phpinspect 3175d9a6ac 126/126: Fix typo, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect d86ef5756b 115/126: Remove `phpinspect-define-pipeline-step' in favor of direct fun call, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect f003b6a279 105/126: Make project indexation asynchronous using `phpinspect-pipeline', ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect ce995f2bc4 101/126: Remove unused variables, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect f2ece03f2a 109/126: Add factilities to filter logs from different modules, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect 59a098a4cd 015/126: Add note about parser cache to defhandler + add config example, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect 4430aaccb9 011/126: Rework parser code, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect 0350069e34 005/126: Fix native (built-in) type names, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect f8689ac9df 018/126: Return parser function in stead of just the symbol, ELPA Syncer, 2023/08/12
- [elpa] externals/phpinspect 825a3de2c4 017/126: Add indexation command to mode docstring + add install to readme, ELPA Syncer, 2023/08/12