branch: externals/beardbolt
commit 27e7bb714f83c301820dbd915eeea5c0070a6924
Author: Antoine Brand <antoine...@gmail.com>
Commit: Antoine Brand <antoine...@gmail.com>
Add suppport for PHP
---
rmsbolt.el | 41 +++++++++++++++++++++++++++++++++++++++++
1 file changed, 41 insertions(+)
diff --git a/rmsbolt.el b/rmsbolt.el
index adc8cc78b0..36acab6ba0 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -483,6 +483,14 @@ Return value is quoted for passing to the shell."
">" output-filename)
" "))))
+(cl-defun rmsbolt--php-compile-cmd (&key src-buffer)
+ "Process a compile command for PHP it needs to have the vld.so module on."
+ (rmsbolt--with-files
+ src-buffer
+ (concat (buffer-local-value 'rmsbolt-command src-buffer)
+ " -dvld.active=1 -dvld.execute=0 -dvld.verbosity=1 "
+ src-filename " 2> " output-filename " > /dev/null")))
+
(cl-defun rmsbolt--hs-compile-cmd (&key src-buffer)
"Process a compile command for ghc."
(rmsbolt--with-files
@@ -601,6 +609,13 @@ Return value is quoted for passing to the shell."
:objdumper 'objdump
:compile-cmd-function #'rmsbolt--pony-compile-cmd
:disass-hidden-funcs nil))
+ (php-mode
+ . ,(make-rmsbolt-lang :compile-cmd "php"
+ :supports-asm t
+ :supports-disass nil
+ :compile-cmd-function #'rmsbolt--php-compile-cmd
+ :disass-hidden-funcs nil
+ :process-asm-custom-fn
#'rmsbolt--process-php-bytecode))
;; ONLY SUPPORTS PYTHON 3
(python-mode
. ,(make-rmsbolt-lang :compile-cmd "python3"
@@ -896,6 +911,32 @@ Argument SRC-BUFFER source buffer."
(push line result))))
(nreverse result)))
+(cl-defun rmsbolt--process-php-bytecode (_src-buffer asm-lines)
+ (let ((source-linum nil)
+ (state 'useless)
+ (current-line nil)
+ (result nil))
+ (dolist (line asm-lines)
+ (case state
+ ((text)
+ (push line result)
+ (when (string-match "^-+$" line)
+ (setq state 'asm)))
+ ((asm)
+ (cond
+ ((equalp "" line) (setq state 'useless) (push "" result))
+ ((string-match "^ *\\([0-9]+\\) +[0-9]+" line)
+ (setq current-line (string-to-number (match-string 1 line)))
+ (add-text-properties 0 (length line) `(rmsbolt-src-line
,current-line) line)
+ (push line result))
+ (t
+ (add-text-properties 0 (length line) `(rmsbolt-src-line
,current-line) line)
+ (push line result))))
+ (otherwise
+ (when (string-match "^filename:" line)
+ (setq state 'text)))))
+ (nreverse result)))
+
(cl-defun rmsbolt--process-python-bytecode (_src-buffer asm-lines)
(let ((source-linum nil)
(result nil))
