branch: externals/parser-generator commit db91a5f203ac39bcdfcd5276d3488394361c7f90 Author: Christian Johansson <christ...@cvj.se> Commit: Christian Johansson <christ...@cvj.se>
Removed unused function --- parser-generator.el | 18 ++---------------- test/parser-generator-test.el | 23 ----------------------- 2 files changed, 2 insertions(+), 39 deletions(-) diff --git a/parser-generator.el b/parser-generator.el index 2690799da0..642ea81e09 100644 --- a/parser-generator.el +++ b/parser-generator.el @@ -5,8 +5,8 @@ ;; Author: Christian Johansson <christ...@cvj.se> ;; Maintainer: Christian Johansson <christ...@cvj.se> ;; Created: 10 Oct 2020 -;; Modified: 19 Feb 2021 -;; Version: 0.1.5 +;; Modified: 19 May 2022 +;; Version: 0.1.6 ;; Keywords: tools, convenience ;; URL: https://github.com/cjohansson/emacs-parser-generator @@ -2140,20 +2140,6 @@ (parser-generator--distinct follow-set))) follow-set)) -(defun parser-generator-generate-terminal-saturated-first-set (first-set) - "Generated a set from FIRST-SET with items that does not end with the e-identifier if there is alternative items that continues with terminals." - (let ((max-terminal-count - (parser-generator-calculate-max-terminal-count - first-set)) - (saturated-list)) - (when (> max-terminal-count 0) - (setq - saturated-list - (parser-generator-generate-sets-of-terminals - first-set - max-terminal-count))) - saturated-list)) - (defun parser-generator-generate-sets-of-terminals (sets count) "Generate set of terminals in sequence from SETS with COUNT." (let ((sets-of-terminals) diff --git a/test/parser-generator-test.el b/test/parser-generator-test.el index 45dd865238..33d68ffd11 100644 --- a/test/parser-generator-test.el +++ b/test/parser-generator-test.el @@ -1124,28 +1124,6 @@ (message "Passed tests for (parser-generator--generate-sets-of-terminals)")) -(defun parser-generator-test--generate-terminal-saturated-first-set () - "Test `parser-generator-generate-terminal-saturated-first-set'." - (message "Starting tests for (parser-generator-generate-terminal-saturated-first-set)") - - (parser-generator-set-look-ahead-number 1) - (parser-generator-set-grammar '((S A B) ("a" "b") ((S A) (S (B)) (B "a") (A "a") (A ("b" "a"))) S)) - (parser-generator-process-grammar) - - (should - (equal - (parser-generator-generate-terminal-saturated-first-set - '(("a" "b") ("a" "a" e) ("b") ("a" e))) - '(("a" "b") ("a" "a")))) - - (should - (equal - (parser-generator-generate-terminal-saturated-first-set - '(("a" "b") ("a" "a" e) ("b" "b") ("a" e))) - '(("a" "b") ("a" "a") ("b" "b")))) - - (message "Passed tests for (parser-generator-generate-terminal-saturated-first-set)")) - (defun parser-generator-test () "Run test." ;; (setq debug-on-error t) @@ -1171,7 +1149,6 @@ (parser-generator-test--generate-f-sets) (parser-generator-test--calculate-max-terminal-count) (parser-generator-test--generate-sets-of-terminals) - (parser-generator-test--generate-terminal-saturated-first-set) ;; Algorithms (parser-generator-test--first)