[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/phps-mode 6fc8967 4/4: Updated version and removed nati
From: |
Christian Johansson |
Subject: |
[elpa] externals/phps-mode 6fc8967 4/4: Updated version and removed native tokens test |
Date: |
Mon, 1 Nov 2021 12:28:45 -0400 (EDT) |
branch: externals/phps-mode
commit 6fc8967d421cbcaf198ec096c9af6ca002978d0f
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>
Updated version and removed native tokens test
---
phps-mode-test.el | 70 +++++++++++++++++++++++++++----------------------------
phps-mode.el | 4 ++--
2 files changed, 37 insertions(+), 37 deletions(-)
diff --git a/phps-mode-test.el b/phps-mode-test.el
index d21a20b..c499d8c 100644
--- a/phps-mode-test.el
+++ b/phps-mode-test.el
@@ -119,41 +119,41 @@
(phps-mode)
,@body
- (let ((lexer-tokens phps-mode-lex-analyzer--tokens))
- (setq phps-mode-test--native-tokens nil)
- (with-temp-buffer
- (let ((filename (expand-file-name "lexer-test.tmp"))
- (filename2 (expand-file-name "lexer-test2.tmp")))
- (insert "<?php ini_set('display_errors', false);
ini_set('error_reporting', false); if (function_exists('token_get_all')) {
$tokens = token_get_all(file_get_contents(\"lexer-test2.tmp\")); echo \"'(\";
foreach ($tokens as $token) { echo \"\n \"; if (is_array($token)) { echo
token_name($token[0]); } else { echo '\"' . $token . '\"'; }} echo \"\n)\";}")
- (write-file filename)
- (kill-region (point-min) (point-max))
- (insert ,source)
- (write-file filename2)
- (kill-region (point-min) (point-max))
-
- (let* ((native-tokens
- (call-process
- "php"
- nil
- t
- t
- (concat "-f" filename))))
- (when (= native-tokens 0)
- ;; (message "native-tokens: %S %s" native-tokens
(buffer-substring-no-properties (point-min) (point-max)))
- (let ((tokens (eval (car (read-from-string
(buffer-substring-no-properties (point-min) (point-max)))))))
- (setq
- phps-mode-test--native-tokens
- tokens)
- (let ((trimmed-tokens))
- (dolist (token lexer-tokens)
- (push (car token) trimmed-tokens)
- )
- (setq trimmed-tokens (reverse trimmed-tokens))
- (should
- (equal
- trimmed-tokens
- phps-mode-test--native-tokens))
- (message "Native tokens matches elisp tokens"))))))))
+ ;; (let ((lexer-tokens phps-mode-lex-analyzer--tokens))
+ ;; (setq phps-mode-test--native-tokens nil)
+ ;; (with-temp-buffer
+ ;; (let ((filename (expand-file-name "lexer-test.tmp"))
+ ;; (filename2 (expand-file-name "lexer-test2.tmp")))
+ ;; (insert "<?php ini_set('display_errors', false);
ini_set('error_reporting', false); if (function_exists('token_get_all')) {
$tokens = token_get_all(file_get_contents(\"lexer-test2.tmp\")); echo \"'(\";
foreach ($tokens as $token) { echo \"\n \"; if (is_array($token)) { echo
token_name($token[0]); } else { echo '\"' . $token . '\"'; }} echo \"\n)\";}")
+ ;; (write-file filename)
+ ;; (kill-region (point-min) (point-max))
+ ;; (insert ,source)
+ ;; (write-file filename2)
+ ;; (kill-region (point-min) (point-max))
+
+ ;; (let* ((native-tokens
+ ;; (call-process
+ ;; "php"
+ ;; nil
+ ;; t
+ ;; t
+ ;; (concat "-f" filename))))
+ ;; (when (= native-tokens 0)
+ ;; ;; (message "native-tokens: %S %s" native-tokens
(buffer-substring-no-properties (point-min) (point-max)))
+ ;; (let ((tokens (eval (car (read-from-string
(buffer-substring-no-properties (point-min) (point-max)))))))
+ ;; (setq
+ ;; phps-mode-test--native-tokens
+ ;; tokens)
+ ;; (let ((trimmed-tokens))
+ ;; (dolist (token lexer-tokens)
+ ;; (push (car token) trimmed-tokens)
+ ;; )
+ ;; (setq trimmed-tokens (reverse trimmed-tokens))
+ ;; (should
+ ;; (equal
+ ;; trimmed-tokens
+ ;; phps-mode-test--native-tokens))
+ ;; (message "Native tokens matches elisp tokens"))))))))
(kill-buffer test-buffer)
(when ,title
diff --git a/phps-mode.el b/phps-mode.el
index 23b09e2..6597646 100644
--- a/phps-mode.el
+++ b/phps-mode.el
@@ -5,8 +5,8 @@
;; Author: Christian Johansson <christian@cvj.se>
;; Maintainer: Christian Johansson <christian@cvj.se>
;; Created: 3 Mar 2018
-;; Modified: 31 Oct 2021
-;; Version: 0.4.9
+;; Modified: 1 Nov 2021
+;; Version: 0.4.10
;; Keywords: tools, convenience
;; URL: https://github.com/cjohansson/emacs-phps-mode