[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/parsec 4504686 04/13: Merge pull request #2 from jtimmo
From: |
Stefan Monnier |
Subject: |
[elpa] externals/parsec 4504686 04/13: Merge pull request #2 from jtimmons/master |
Date: |
Fri, 26 Mar 2021 22:45:55 -0400 (EDT) |
branch: externals/parsec
commit 45046868fb2d5f3c914f2e3b67fbe15033c93532
Merge: 21f5a11 aaf1c3e
Author: Junpeng Qiu <qjpchmail@gmail.com>
Commit: GitHub <noreply@github.com>
Merge pull request #2 from jtimmons/master
Rewrite `parsec-one-of` using `parsec-or` and `parsec-ch`
---
parsec.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/parsec.el b/parsec.el
index 3432e3d..3ed3856 100644
--- a/parsec.el
+++ b/parsec.el
@@ -600,15 +600,14 @@
(setq regex-str (concat regex-str "^"))))
(concat regex-head regex-str regex-end)))
-(defun parsec-one-of (&rest chars)
+(defmacro parsec-one-of (&rest chars)
"Succeed if the current character is in the supplied list of CHARS.
Return the parsed character.
-> (parsec-one-of ?a ?e ?i ?o ?u)
-
-Note this function is just a wrapper of `parsec-re'. For complicated use
cases,
-consider using `parsec-re' instead."
- (parsec-re (format "[%s]" (parsec-make-alternatives chars))))
+> (parsec-one-of ?a ?e ?i ?o ?u)"
+ (let ((sexp '(parsec-or))
+ (parsers (mapcar (lambda (c) (list #'parsec-ch c)) chars)))
+ (append sexp parsers)))
(defun parsec-none-of (&rest chars)
"Succeed if the current character not in the supplied list of CHARS.
- [elpa] externals/parsec updated (21f5a11 -> 2cbbbc2), Stefan Monnier, 2021/03/26
- [elpa] externals/parsec faf5592 07/13: Fix parsec-count, Stefan Monnier, 2021/03/26
- [elpa] externals/parsec 3cdbdd2 05/13: Fix progn/prog1 byte-compiling problems, Stefan Monnier, 2021/03/26
- [elpa] externals/parsec 6c05bb3 09/13: Update README.org, Stefan Monnier, 2021/03/26
- [elpa] externals/parsec 212f848 08/13: Merge pull request #5 from xuchunyang/master, Stefan Monnier, 2021/03/26
- [elpa] externals/parsec 2cbbbc2 13/13: Merge pull request #7 from ljos/patch-1, Stefan Monnier, 2021/03/26
- [elpa] externals/parsec 72c1897 11/13: Merge pull request #6 from franburstall/franburstall-patch-1, Stefan Monnier, 2021/03/26
- [elpa] externals/parsec aaf1c3e 03/13: Revert "Made char-equal comparison case-sensitive in parsec-ch function", Stefan Monnier, 2021/03/26
- [elpa] externals/parsec 4504686 04/13: Merge pull request #2 from jtimmons/master,
Stefan Monnier <=
- [elpa] externals/parsec b12a9c8 01/13: Made char-equal comparison case-sensitive in parsec-ch function, Stefan Monnier, 2021/03/26
- [elpa] externals/parsec 9053adb 02/13: Redefined 'parsec-one-of' in terms of 'parsec-or' and 'parsec-ch' for consistency in handling character parsing, Stefan Monnier, 2021/03/26
- [elpa] externals/parsec 4c47bec 12/13: Only load cl-lib when needed, Stefan Monnier, 2021/03/26
- [elpa] externals/parsec 8755c60 06/13: Merge pull request #4 from cute-jumper/fix-progn, Stefan Monnier, 2021/03/26
- [elpa] externals/parsec 47c9182 10/13: Update pjson.el, Stefan Monnier, 2021/03/26