[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 13637e1 15/60: Rename parsec-do-parse to parsec-with-input
From: |
Junpeng Qiu |
Subject: |
[elpa] master 13637e1 15/60: Rename parsec-do-parse to parsec-with-input |
Date: |
Tue, 25 Oct 2016 17:45:13 +0000 (UTC) |
branch: master
commit 13637e1058c07a355a1e5ca4d8d7a7e36127bf8b
Author: Junpeng Qiu <address@hidden>
Commit: Junpeng Qiu <address@hidden>
Rename parsec-do-parse to parsec-with-input
---
parsec.el | 2 +-
pjson.el | 17 +++++++++--------
scheme.el | 18 ++++++++++--------
3 files changed, 20 insertions(+), 17 deletions(-)
diff --git a/parsec.el b/parsec.el
index 9d45285..c35ad05 100644
--- a/parsec.el
+++ b/parsec.el
@@ -280,7 +280,7 @@
parsec-nothing
(parsec-just ,res)))))
-(defmacro parsec-do-parse (input &rest parsers)
+(defmacro parsec-with-input (input &rest parsers)
(declare (indent 1))
`(with-temp-buffer
(insert ,input)
diff --git a/pjson.el b/pjson.el
index ce4b19b..48b4589 100644
--- a/pjson.el
+++ b/pjson.el
@@ -117,23 +117,24 @@
(parsec-re
"\\+?\\([0-9]+\\)\\(\\.[0-9]+\\)?\\([Ee][+-]?[0-9]+\\)?"))))
(defun pjson-parse (input)
- (parsec-do-parse input
+ (parsec-with-input input
(pjson-object)))
-(parsec-do-parse "123"
+(parsec-with-input "123"
(pjson-number))
-(parsec-do-parse "\"asdf\""
+(parsec-with-input "\"asdf\""
(pjson-string))
-(parsec-do-parse "false"
+(parsec-with-input "false"
(pjson-boolean))
-(parsec-do-parse "[1,true,1,\"abc\",[1],null]"
+(parsec-with-input "[1,true,1,\"abc\",[1],null)"
(pjson-array))
-(parsec-do-parse "{}"
- (pjson-object))
-(parsec-do-parse "{\"a\" :1, \"b\":2, [{ \"c\":[1,true] }]}"
+(message "%s" (parsec-msg-get (parsec-with-input "fallls"
+ (pjson-jvalue))))
+(parsec-with-input "{\"a\" :1, \"b\":2, \"c\":[1,true] }"
(pjson-object))
(pjson-parse "{\"a\" :1, \"b\":2, [{ \"c\":[1,true] }]}")
+(json-read-from-string "{\"a\" :1, \"b\":2, [{ \"c\":[1,true] }]}")
(pjson-parse "{\"a\" :1, \"b\":2, \"c\":[1,{\"d\":null}]}")
(json-read-from-string "{\"a\" :1, \"b\":2, \"c\":[1,{\"d\":null}]}")
diff --git a/scheme.el b/scheme.el
index 121dff4..3127b59 100644
--- a/scheme.el
+++ b/scheme.el
@@ -92,16 +92,16 @@
(scheme-parse-string)
(scheme-parse-number)
(scheme-parse-quoted)
- (parsec-and
- (parsec-ch ?\()
- (parsec-or
- (parsec-save (parsec-return (scheme-parse-list)
- (parsec-ch ?\))))
- (parsec-return (scheme-parse-dotted-list)
- (parsec-ch ?\)))))))
+ (parsec-between
+ (parsec-ch ?\()
+ (parsec-ch ?\))
+ (parsec-or
+ (parsec-try
+ (scheme-parse-list))
+ (scheme-parse-dotted-list)))))
(defun scheme-read (expr)
- (parsec-do-parse expr
+ (parsec-with-input expr
(scheme-parse-expr)))
(scheme-read "25")
@@ -109,6 +109,8 @@
(scheme-read "(symbol)")
(scheme-read "(a test)")
(scheme-read "(a . test)")
+(parsec-with-input "a . test"
+ (parsec-sepby (scheme-parse-expr) (scheme-spaces)))
(scheme-read "(a (nested) test)")
(scheme-read "(a '(quoted (dotted . list)) test)")
- [elpa] master 2cce1e3 37/60: Rename parsec-from-just to parsec-from-maybe, (continued)
- [elpa] master 2cce1e3 37/60: Rename parsec-from-just to parsec-from-maybe, Junpeng Qiu, 2016/10/25
- [elpa] master cdb8c0d 47/60: Remove unused symbols, Junpeng Qiu, 2016/10/25
- [elpa] master fdb3d99 44/60: Fix some code in simple-csv-parser.el, Junpeng Qiu, 2016/10/25
- [elpa] master 701964f 57/60: Prepare headers for GNU ELPA, Junpeng Qiu, 2016/10/25
- [elpa] master cbd3352 55/60: Add parsec-lookahead, Junpeng Qiu, 2016/10/25
- [elpa] master a951fbe 41/60: Unify tag names, Junpeng Qiu, 2016/10/25
- [elpa] master dfb3af0 60/60: Add 'packages/parsec/' from commit '8f0c266d8b9b0ee5fcf9b80c518644b2849ff3b3', Junpeng Qiu, 2016/10/25
- [elpa] master 6cc3100 07/60: Fix indentations, Junpeng Qiu, 2016/10/25
- [elpa] master d98e8c8 05/60: Add url-encoded string parser, Junpeng Qiu, 2016/10/25
- [elpa] master a268b9f 08/60: Add more APIs, Junpeng Qiu, 2016/10/25
- [elpa] master 13637e1 15/60: Rename parsec-do-parse to parsec-with-input,
Junpeng Qiu <=
- [elpa] master ba23b01 19/60: Add more APIs, Junpeng Qiu, 2016/10/25
- [elpa] master f3ce070 09/60: Add simple scheme parser, Junpeng Qiu, 2016/10/25
- [elpa] master 9bc1d77 28/60: Move examples to under sub-directory, Junpeng Qiu, 2016/10/25
- [elpa] master 52f1886 33/60: Update pjson, Junpeng Qiu, 2016/10/25
- [elpa] master 7e65db0 51/60: Merge pull request #1 from tarsius/master, Junpeng Qiu, 2016/10/25
- [elpa] master 311a5ca 49/60: Fix typo, Junpeng Qiu, 2016/10/25
- [elpa] master e6d5f38 46/60: Update the comment in source file, Junpeng Qiu, 2016/10/25
- [elpa] master 8c22dcb 39/60: Add :group example, Junpeng Qiu, 2016/10/25
- [elpa] master a45d8f4 03/60: Error propagation to pl-until, Junpeng Qiu, 2016/10/25