[nongnu] elpa/php-mode aaaa85c7cd 1/2: Impl php-phpdbg-disassemble-file and php-parse-file

[ELPA Syncer]

branch: elpa/php-mode
commit aaaa85c7cdefcd5032df0328f52ea720e7718930
Author: USAMI Kenta <tad...@zonu.me>
Commit: USAMI Kenta <tad...@zonu.me>

    Impl php-phpdbg-disassemble-file and php-parse-file
---
 lisp/php.el | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/lisp/php.el b/lisp/php.el
index 9ce9eecf92..ef46272c75 100644
--- a/lisp/php.el
+++ b/lisp/php.el
@@ -55,6 +55,18 @@
   :tag "PHP Executable"
   :type 'string)
 
+(defcustom php-phpdbg-executable (list "phpdbg")
+  "The location of the PHPDBG executable."
+  :group 'php
+  :tag "PHP PHPDBG Executable"
+  :type '(repeat string))
+
+(defcustom php-php-parse-executabe nil
+  "The location of the php-parse executable."
+  :group 'php
+  :tag "PHP php-parse Executable"
+  :type '(repeat string))
+
 (defcustom php-site-url "https://www.php.net/";
   "Default PHP.net site URL.
 
@@ -804,5 +816,29 @@ When `DOCUMENT-ROOT' is NIL, the document root is obtained 
from `ROUTER-OR-DIR'.
                       #'file-exists-p))))
   (find-file file))
 
+
+(defun php-phpdbg-disassemble-file (file)
+  "Read PHP FILE and print opcodes."
+  (interactive (list (if (or buffer-file-name (zerop (prefix-numeric-value 
current-prefix-arg)))
+                         buffer-file-name
+                       (expand-file-name
+                        (read-file-name "Select PHP file: " default-directory 
buffer-file-name)))))
+  (let ((args `(,@php-phpdbg-executable "-dopcache.enable_cli=1" "-p*" ,file)))
+    (compile (mapconcat #'shell-quote-argument args " "))))
+
+(defun php-parse-file (file)
+  "Parse PHP FILE and print node tree."
+  (interactive (list (if (or buffer-file-name (zerop (prefix-numeric-value 
current-prefix-arg)))
+                         buffer-file-name
+                       (expand-file-name
+                        (read-file-name "Select PHP file: " default-directory 
buffer-file-name)))))
+  (let* ((project-dir (php-project-get-root-dir))
+         (executable (or php-php-parse-executabe
+                         (file-executable-p (expand-file-name 
"vendor/bin/php-parse" project-dir))
+                         (executable-find "php-parse")
+                         (user-error "`php-parse' command not found")))
+         (args `(,@(if (listp executable) executable (list executable)) 
,file)))
+    (compile (mapconcat #'shell-quote-argument args " "))))
+
 (provide 'php)
 ;;; php.el ends here