[elpa] externals/phps-mode b5fcf0e7b7 02/15: Updated automation for PHP 8.1

[Christian Johansson]

branch: externals/phps-mode
commit b5fcf0e7b7ded97931e265ce8bc6a245a0e6d307
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Updated automation for PHP 8.1
---
 phps-mode-automation-parser-generator.el | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/phps-mode-automation-parser-generator.el 
b/phps-mode-automation-parser-generator.el
index 140954d4c6..9398474c47 100644
--- a/phps-mode-automation-parser-generator.el
+++ b/phps-mode-automation-parser-generator.el
@@ -54,20 +54,23 @@
 (defun phps-mode-automation-parser-generator--ensure-yacc-grammar-is-available 
()
   "If grammar is not available, download it."
   (let ((php-yacc-url
-         
"https://raw.githubusercontent.com/php/php-src/php-8.0.0/Zend/zend_language_parser.y";)
+         
"https://raw.githubusercontent.com/php/php-src/PHP-8.1/Zend/zend_language_parser.y";)
         (php-yacc-file
          (expand-file-name "zend_language_parser.y")))
 
+    ;; NOTE PHP 8.1 has a syntax error at 28032, missing semi-colon
+
     ;; Download YACC if not available
     (unless (file-exists-p php-yacc-file)
       (message
-       "Downloading PHP 8.0 YACC grammar.. since %S does not exists" 
php-yacc-file)
+       "Downloading PHP 8.1 YACC grammar.. since %S does not exists" 
php-yacc-file)
       (url-copy-file
-       php-yacc-url php-yacc-file
+       php-yacc-url
+       php-yacc-file
        t
        t)
       (message
-       "Download of PHP 8.0 YACC grammar completed"))
+       "Download of PHP 8.1 YACC grammar completed"))
 
     (unless (file-exists-p php-yacc-file)
       (error "Missing PHP YACC grammar at %s!" php-yacc-file))))
@@ -354,6 +357,13 @@
 
               ))
 
+           ;; (message
+           ;;  "token: %S from %S"
+           ;;  token
+           ;;  (buffer-substring-no-properties
+           ;;   (car (cdr token))
+           ;;   (cdr (cdr token))))
+
            token)))))
 
   (when (boundp 'parser-generator-lex-analyzer--get-function)
@@ -389,7 +399,7 @@
       (kill-region delimiter-start (point-max)))
     (goto-char (point-min))
 
-    ;; (message "Buffer:\n%S" (buffer-substring-no-properties (point-min) 
(point-max)))
+    (message "Buffer:\n%S" (buffer-substring-no-properties (point-min) 
(point-max)))
     
     (let ((productions (eval (car (read-from-string 
(parser-generator-lr-translate))))))