diff --git a/.github/workflows/doc-build.yml b/.github/workflows/doc-build.yml
deleted file mode 100644
index 07265e0..0000000
--- a/.github/workflows/doc-build.yml
+++ /dev/null
@@ -1,13 +0,0 @@
-name: Build API Docs
-
-permissions:
- contents: write
-
-on:
- workflow_dispatch:
-
-jobs:
- call-doc-build-workflow:
- uses: clojure/build.ci/.github/workflows/doc-build.yml@master
- with:
- project: clojure/data.json
diff --git a/.github/workflows/release.yml b/.github/workflows/release.yml
deleted file mode 100644
index 286cf95..0000000
--- a/.github/workflows/release.yml
+++ /dev/null
@@ -1,22 +0,0 @@
-name: Release on demand
-
-permissions:
- contents: write
-
-on:
- workflow_dispatch:
- inputs:
- releaseVersion:
- description: "Version to release"
- required: true
- snapshotVersion:
- description: "Snapshot version after release"
- required: true
-
-jobs:
- call-release:
- uses: clojure/build.ci/.github/workflows/release.yml@master
- with:
- releaseVersion: ${{ github.event.inputs.releaseVersion }}
- snapshotVersion: ${{ github.event.inputs.snapshotVersion }}
- secrets: inherit
\ No newline at end of file
diff --git a/.github/workflows/snapshot.yml b/.github/workflows/snapshot.yml
deleted file mode 100644
index 9fdad8c..0000000
--- a/.github/workflows/snapshot.yml
+++ /dev/null
@@ -1,11 +0,0 @@
-name: Snapshot on demand
-
-permissions:
- contents: read
-
-on: [workflow_dispatch]
-
-jobs:
- call-snapshot:
- uses: clojure/build.ci/.github/workflows/snapshot.yml@master
- secrets: inherit
diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
deleted file mode 100644
index 2cc441a..0000000
--- a/.github/workflows/test.yml
+++ /dev/null
@@ -1,10 +0,0 @@
-name: Test
-
-permissions:
- contents: read
-
-on: [push]
-
-jobs:
- call-test:
- uses: clojure/build.ci/.github/workflows/test.yml@master
diff --git a/.gitignore b/.gitignore
deleted file mode 100644
index d6672d7..0000000
--- a/.gitignore
+++ /dev/null
@@ -1,6 +0,0 @@
-target
-.cpcache/
-.idea/
-*.iml
-.lein*
-.nrepl*
diff --git a/CONTRIBUTING.md b/CONTRIBUTING.md
deleted file mode 100644
index 5ea8fc7..0000000
--- a/CONTRIBUTING.md
+++ /dev/null
@@ -1,12 +0,0 @@
-This is a [Clojure contrib] project.
-
-Under the Clojure contrib [guidelines], this project cannot accept
-pull requests. All patches must be submitted via [JIRA].
-
-See [Contributing] on the Clojure website for
-more information on how to contribute.
-
-[Clojure contrib]: https://clojure.org/community/contrib_libs
-[Contributing]: https://clojure.org/community/contributing
-[JIRA]: https://clojure.atlassian.net/browse/DJSON
-[guidelines]: https://clojure.org/community/contrib_howto
diff --git a/LICENSE b/LICENSE
deleted file mode 100644
index e246f6a..0000000
--- a/LICENSE
+++ /dev/null
@@ -1,205 +0,0 @@
-Eclipse Public License - v 1.0
-
-THE ACCOMPANYING PROGRAM IS PROVIDED UNDER THE TERMS OF THIS ECLIPSE PUBLIC
-LICENSE ("AGREEMENT"). ANY USE, REPRODUCTION OR DISTRIBUTION OF THE PROGRAM
-CONSTITUTES RECIPIENT'S ACCEPTANCE OF THIS AGREEMENT.
-
-1. DEFINITIONS
-
-"Contribution" means:
-
-a) in the case of the initial Contributor, the initial code and documentation
- distributed under this Agreement, and
-b) in the case of each subsequent Contributor:
- i) changes to the Program, and
- ii) additions to the Program;
-
- where such changes and/or additions to the Program originate from and are
- distributed by that particular Contributor. A Contribution 'originates'
- from a Contributor if it was added to the Program by such Contributor
- itself or anyone acting on such Contributor's behalf. Contributions do not
- include additions to the Program which: (i) are separate modules of
- software distributed in conjunction with the Program under their own
- license agreement, and (ii) are not derivative works of the Program.
-
-"Contributor" means any person or entity that distributes the Program.
-
-"Licensed Patents" mean patent claims licensable by a Contributor which are
-necessarily infringed by the use or sale of its Contribution alone or when
-combined with the Program.
-
-"Program" means the Contributions distributed in accordance with this
-Agreement.
-
-"Recipient" means anyone who receives the Program under this Agreement,
-including all Contributors.
-
-2. GRANT OF RIGHTS
- a) Subject to the terms of this Agreement, each Contributor hereby grants
- Recipient a non-exclusive, worldwide, royalty-free copyright license to
- reproduce, prepare derivative works of, publicly display, publicly
- perform, distribute and sublicense the Contribution of such Contributor,
- if any, and such derivative works, in source code and object code form.
- b) Subject to the terms of this Agreement, each Contributor hereby grants
- Recipient a non-exclusive, worldwide, royalty-free patent license under
- Licensed Patents to make, use, sell, offer to sell, import and otherwise
- transfer the Contribution of such Contributor, if any, in source code and
- object code form. This patent license shall apply to the combination of
- the Contribution and the Program if, at the time the Contribution is
- added by the Contributor, such addition of the Contribution causes such
- combination to be covered by the Licensed Patents. The patent license
- shall not apply to any other combinations which include the Contribution.
- No hardware per se is licensed hereunder.
- c) Recipient understands that although each Contributor grants the licenses
- to its Contributions set forth herein, no assurances are provided by any
- Contributor that the Program does not infringe the patent or other
- intellectual property rights of any other entity. Each Contributor
- disclaims any liability to Recipient for claims brought by any other
- entity based on infringement of intellectual property rights or
- otherwise. As a condition to exercising the rights and licenses granted
- hereunder, each Recipient hereby assumes sole responsibility to secure
- any other intellectual property rights needed, if any. For example, if a
- third party patent license is required to allow Recipient to distribute
- the Program, it is Recipient's responsibility to acquire that license
- before distributing the Program.
- d) Each Contributor represents that to its knowledge it has sufficient
- copyright rights in its Contribution, if any, to grant the copyright
- license set forth in this Agreement.
-
-3. REQUIREMENTS
-
-A Contributor may choose to distribute the Program in object code form under
-its own license agreement, provided that:
-
- a) it complies with the terms and conditions of this Agreement; and
- b) its license agreement:
- i) effectively disclaims on behalf of all Contributors all warranties
- and conditions, express and implied, including warranties or
- conditions of title and non-infringement, and implied warranties or
- conditions of merchantability and fitness for a particular purpose;
- ii) effectively excludes on behalf of all Contributors all liability for
- damages, including direct, indirect, special, incidental and
- consequential damages, such as lost profits;
- iii) states that any provisions which differ from this Agreement are
- offered by that Contributor alone and not by any other party; and
- iv) states that source code for the Program is available from such
- Contributor, and informs licensees how to obtain it in a reasonable
- manner on or through a medium customarily used for software exchange.
-
-When the Program is made available in source code form:
-
- a) it must be made available under this Agreement; and
- b) a copy of this Agreement must be included with each copy of the Program.
- Contributors may not remove or alter any copyright notices contained
- within the Program.
-
-Each Contributor must identify itself as the originator of its Contribution,
-if
-any, in a manner that reasonably allows subsequent Recipients to identify the
-originator of the Contribution.
-
-4. COMMERCIAL DISTRIBUTION
-
-Commercial distributors of software may accept certain responsibilities with
-respect to end users, business partners and the like. While this license is
-intended to facilitate the commercial use of the Program, the Contributor who
-includes the Program in a commercial product offering should do so in a manner
-which does not create potential liability for other Contributors. Therefore,
-if a Contributor includes the Program in a commercial product offering, such
-Contributor ("Commercial Contributor") hereby agrees to defend and indemnify
-every other Contributor ("Indemnified Contributor") against any losses,
-damages and costs (collectively "Losses") arising from claims, lawsuits and
-other legal actions brought by a third party against the Indemnified
-Contributor to the extent caused by the acts or omissions of such Commercial
-Contributor in connection with its distribution of the Program in a commercial
-product offering. The obligations in this section do not apply to any claims
-or Losses relating to any actual or alleged intellectual property
-infringement. In order to qualify, an Indemnified Contributor must:
-a) promptly notify the Commercial Contributor in writing of such claim, and
-b) allow the Commercial Contributor to control, and cooperate with the
-Commercial Contributor in, the defense and any related settlement
-negotiations. The Indemnified Contributor may participate in any such claim at
-its own expense.
-
-For example, a Contributor might include the Program in a commercial product
-offering, Product X. That Contributor is then a Commercial Contributor. If
-that Commercial Contributor then makes performance claims, or offers
-warranties related to Product X, those performance claims and warranties are
-such Commercial Contributor's responsibility alone. Under this section, the
-Commercial Contributor would have to defend claims against the other
-Contributors related to those performance claims and warranties, and if a
-court requires any other Contributor to pay any damages as a result, the
-Commercial Contributor must pay those damages.
-
-5. NO WARRANTY
-
-EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS PROVIDED ON AN
-"AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, EITHER EXPRESS OR
-IMPLIED INCLUDING, WITHOUT LIMITATION, ANY WARRANTIES OR CONDITIONS OF TITLE,
-NON-INFRINGEMENT, MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. Each
-Recipient is solely responsible for determining the appropriateness of using
-and distributing the Program and assumes all risks associated with its
-exercise of rights under this Agreement , including but not limited to the
-risks and costs of program errors, compliance with applicable laws, damage to
-or loss of data, programs or equipment, and unavailability or interruption of
-operations.
-
-6. DISCLAIMER OF LIABILITY
-
-EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT NOR ANY
-CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING WITHOUT LIMITATION
-LOST PROFITS), HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
-ARISING IN ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
-EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY
-OF SUCH DAMAGES.
-
-7. GENERAL
-
-If any provision of this Agreement is invalid or unenforceable under
-applicable law, it shall not affect the validity or enforceability of the
-remainder of the terms of this Agreement, and without further action by the
-parties hereto, such provision shall be reformed to the minimum extent
-necessary to make such provision valid and enforceable.
-
-If Recipient institutes patent litigation against any entity (including a
-cross-claim or counterclaim in a lawsuit) alleging that the Program itself
-(excluding combinations of the Program with other software or hardware)
-infringes such Recipient's patent(s), then such Recipient's rights granted
-under Section 2(b) shall terminate as of the date such litigation is filed.
-
-All Recipient's rights under this Agreement shall terminate if it fails to
-comply with any of the material terms or conditions of this Agreement and does
-not cure such failure in a reasonable period of time after becoming aware of
-such noncompliance. If all Recipient's rights under this Agreement terminate,
-Recipient agrees to cease use and distribution of the Program as soon as
-reasonably practicable. However, Recipient's obligations under this Agreement
-and any licenses granted by Recipient relating to the Program shall continue
-and survive.
-
-Everyone is permitted to copy and distribute copies of this Agreement, but in
-order to avoid inconsistency the Agreement is copyrighted and may only be
-modified in the following manner. The Agreement Steward reserves the right to
-publish new versions (including revisions) of this Agreement from time to
-time. No one other than the Agreement Steward has the right to modify this
-Agreement. The Eclipse Foundation is the initial Agreement Steward. The
-Eclipse Foundation may assign the responsibility to serve as the Agreement
-Steward to a suitable separate entity. Each new version of the Agreement will
-be given a distinguishing version number. The Program (including
-Contributions) may always be distributed subject to the version of the
-Agreement under which it was received. In addition, after a new version of the
-Agreement is published, Contributor may elect to distribute the Program
-(including its Contributions) under the new version. Except as expressly
-stated in Sections 2(a) and 2(b) above, Recipient receives no rights or
-licenses to the intellectual property of any Contributor under this Agreement,
-whether expressly, by implication, estoppel or otherwise. All rights in the
-Program not expressly granted under this Agreement are reserved.
-
-This Agreement is governed by the laws of the State of New York and the
-intellectual property laws of the United States of America. No party to this
-Agreement will bring a legal action under this Agreement more than one year
-after the cause of action arose. Each party waives its rights to a jury trial in
-any resulting litigation.
-
-
diff --git a/README.md b/README.md
deleted file mode 100644
index 653f3e2..0000000
--- a/README.md
+++ /dev/null
@@ -1,335 +0,0 @@
-data.json
-========================================
-
-JSON parser/generator to/from Clojure data structures.
-
-Key goals:
-* Compliant with JSON spec per https://json.org/
-* No external dependencies
-
-
-Releases and Dependency Information
-----------------------------------------
-
-This project follows the version scheme MAJOR.MINOR.PATCH where each component provides some relative indication of the size of the change, but does not follow semantic versioning. In general, all changes endeavor to be non-breaking (by moving to new names rather than by breaking existing names).
-
-Latest stable release is [2.5.2]
-
-[CLI/`deps.edn`](https://clojure.org/reference/deps_and_cli) dependency information:
-```clojure
-org.clojure/data.json {:mvn/version "2.5.2"}
-```
-
-[Leiningen] dependency information:
-
- [org.clojure/data.json "2.5.2"]
-
-[Maven] dependency information:
-
-
- org.clojure
- data.json
- 2.5.2
-
-
-[Leiningen]: https://leiningen.org/
-[Maven]: https://maven.apache.org/
-
-
-Other versions:
-
-* [All Released Versions](https://search.maven.org/#search%7Cgav%7C1%7Cg%3A%22org.clojure%22%20AND%20a%3A%22data.json%22)
-* [Development Snapshots](https://oss.sonatype.org/index.html#nexus-search;gav~org.clojure~data.json~~~)
-* [Development Snapshot Repositories](https://clojure.org/releases/downloads#_using_clojure_snapshot_releases)
-
-
-
-Usage
-----------------------------------------
-
-[API Documentation](https://clojure.github.io/data.json/)
-
-Example usage:
-
- (ns example
- (:require [clojure.data.json :as json]))
-
-To convert to/from JSON strings, use `json/write-str` and `json/read-str`:
-
- (json/write-str {:a 1 :b 2})
- ;;=> "{\"a\":1,\"b\":2}"
-
- (json/read-str "{\"a\":1,\"b\":2}")
- ;;=> {"a" 1, "b" 2}
-
-Note that these operations are not symmetric: converting Clojure data
-into JSON is lossy.
-
-
-### Converting Key/Value Types
-
-You can specify a `:key-fn` to convert map keys on the way in or out:
-
- (json/read-str "{\"a\":1,\"b\":2}"
- :key-fn keyword)
- ;;=> {:a 1, :b 2}
-
- (json/write-str {:a 1 :b 2}
- :key-fn #(.toUpperCase %))
- ;;=> "{\"A\":1,\"B\":2}"
-
- (json/read-str "{\"a\":1,\"b\":2}"
- :key-fn #(keyword "com.example" %))
- ;;=> {:com.example/a 1, :com.example/b 2}
-
-You can specify a `:value-fn` to convert map values on the way in or
-out. The value-fn will be called with two arguments, the key and the
-value, and it returns the updated value.
-
- (defn my-value-reader [key value]
- (if (= key :date)
- (java.sql.Date/valueOf value)
- value))
-
- (json/read-str "{\"number\":42,\"date\":\"2012-06-02\"}"
- :value-fn my-value-reader
- :key-fn keyword)
- ;;=> {:number 42, :date #inst "2012-06-02T04:00:00.000-00:00"}
-
-Be aware that `:value-fn` only works on maps (JSON objects). If your
-root data structure is, for example, a vector of dates, you will need
-to pre- or post-process it outside of data.json. [clojure.walk] may be
-useful for this.
-
-[clojure.walk]: https://clojure.github.io/clojure/clojure.walk-api.html
-
-
-### Order of key-fn / value-fn
-
-If you specify both a `:key-fn` and a `:value-fn` when **reading**,
-the value-fn is called **after** the key has been processed by the
-key-fn.
-
-The **reverse** is true when **writing**:
-
- (defn my-value-writer [key value]
- (if (= key :date)
- (str (java.sql.Date. (.getTime value)))
- value))
-
- (json/write-str {:number 42, :date (java.util.Date. 112 5 2)}
- :value-fn my-value-writer
- :key-fn name)
- ;;=> "{\"number\":42,\"date\":\"2012-06-02\"}"
-
-
-### Reading/Writing a Stream
-
-You can also read JSON directly from a java.io.Reader with `json/read`
-and write JSON directly to a java.io.Writer with `json/write`.
-
-
-### More
-
-Other options are available. Refer to the [API Documentation] for details.
-
-[API Documentation]: https://clojure.github.io/data.json/
-
-
-
-Developer Information
-----------------------------------------
-
-* [GitHub project](https://github.com/clojure/data.json)
-* [How to contribute](https://clojure.org/community/contributing)
-* [Bug Tracker](https://clojure.atlassian.net/browse/DJSON)
-* [Continuous Integration](https://github.com/clojure/data.json/actions/workflows/test.yml)
-
-
-
-Change Log
-----------------------------------------
-
-* Release [2.5.2] on 2026-Jan-02
- * Update to latest parent pom and Clojure 1.11.4
- * Fix: [DJSON-56] During `read`, better error messages for chars < 32
-* Release [2.5.1] on 2024-Nov-26
- * Fix: `read` of JSON number followed by EOF can break subsequent read on supplier PBR from seeing EOF
- * Fix: `read` docstring updated to specify minimum buffer size when PushbackReader supplied (64)
-* Release [2.5.0] on 2023-Dec-21
- * Fix [DJSON-50]: `read` can take a PushbackReader for repeated read use case
- * Fix `write` docstring to add `:indent` option added in [DJSON-18]
- * Fix [DJSON-57]: Throw better exception when EOF encountered while reading array or object
- * Add [DJSON-46]: In `read`, add `:extra-data-fn` that can be provided to cause an eof check after value is read
- * Add [DJSON-54]: In `write`, add custom fallback fn for writing unknown types
- * Perf [DJSON-61]: Faster string writing when string is "simple"
- * Perf: Faster string writing when string is not simple
- * Perf: Faster `read-str`
-* Release [2.4.0] on 2021-Jul-12
- * Fix [DJSON-52]: Remove Classloader workaround to support Clojure 1.2.x and below
- * Fix [DJSON-53]: Move deprecated API functions from compat ns into main ns
-* Release [2.3.1] on 2021-May-19
- * Fix [DJSON-51]: Fix possible read of x00's in quoted strings on partial stream read
-* Release [2.3.0] on 2021-May-14
- * Fix [DJSON-48]: Make array parsing match spec
- * Fix [DJSON-18]: Make pprint-json much faster
-* Release [2.2.3] on 2021-May-6
- * Fix [DJSON-47]: Make number parsing match spec (reject invalid numbers)
-* Release [2.2.2] on 2021-Apr-26
- * Perf [DJSON-36]: Reapplied updated refactored code in read-array and read-object
- * Add [DJSON-45]: Generative tests for read/write roundtrip
-* Release [2.2.1] on 2021-Apr-19
- * Revert [DJSON-36]: Problem with transient batching in that change
-* Release [2.2.0] on 2021-Apr-16
- * Add [DJSON-41]: New support for writing java.time.Instant and java.util.Date (+ subclasses)
- * New options to `write` functions:
- * `:date-formatter` - `java.time.DateTimeFormatter` to use (default `DateTimeFormatter/ISO_INSTANT`)
- * `:sql-date-converter` - fn to convert `java.sql.Date` to `java.time.Instant` (default provided)
- * Perf [DJSON-36]: Refactor code in read-array and read-object
-* Release [2.1.1] on 2021-Apr-15
- * Fix [DJSON-43]: Fix buffer overflow in pushbackreader
- * Update parent pom to latest (1.1.0)
-* Release [2.1.0] on 2021-Apr-6
- * Fix [DJSON-39]: Support writing UUIDs (as strings)
-* Release [2.0.2] on 2021-Mar-27
- * Fix [DJSON-38]: Type-hint return type of write-str
- * Fix [DJSON-40]: Make named argument passing compatible with new
-* Release [2.0.1] on 2021-Mar-19
- * Fix [DJSON-37]: Fix off-by-one error reading long strings, regression in 2.0.0
-* Release [2.0.0] on 2021-Mar-19
- * Perf [DJSON-35]: Replace PrintWriter with more generic Appendable, reduce wrapping
- * Perf [DJSON-34]: More efficient writing for common path
- * Perf [DJSON-32]: Use option map instead of dynamic variables (affects read+write)
- * NOTE: Includes a breaking change in the internal JSONWriter protocol method signature
- * Perf [DJSON-33]: Improve speed of reading JSON strings
- * Fix [DJSON-30]: Fix bad test
-* Release [1.1.0] on 2021-Mar-5
- * Fix [DJSON-26]: write-object should check seq on loop var, not param
- * Use latest parent pom (will bump default clojure dep to 1.8.0)
- * Use direct linking on "aot" classifier lib
-* Release [1.0.0] on 2020-Feb-18
-* Release [0.2.7] on 2019-Nov-18
- * Fix [DJSON-29]: throw exception on missing object entries (extra commas)
-* Release [0.2.6] on 2015-Mar-6
- * Modify build to produce an AOT package with classifier "aot"
-* Release [0.2.5] on 2014-Jun-13
- * Fix [DJSON-17]: throw exception on Infinite or NaN floating-point
- values. Old behavior could produce invalid JSON.
-* Release [0.2.4] on 2014-Jan-10
- * Small change in behavior: `clojure.data.json/pprint` now adds a
- newline after its output just like `clojure.core/pprint`
- * Fix [DJSON-13]: flush output after pprint
- * Fix [DJSON-14]: handle EOF inside character escape
- * Fix [DJSON-15]: bad syntax in test
-* Release [0.2.3] on 2013-Aug-30
- * Enhancement [DJSON-9]: option to escape U+2028 and U+2029
- * Fix [DJSON-11]: printing unnecessary commas with value-fn
-* Release [0.2.2] on 2013-Apr-07
- * Fix [DJSON-7]: extra commas when removing key/value pairs)
- * Fix [DJSON-8]: wrong output stream in `write-json`
-* Release [0.2.1] on 2012-Oct-26
- * Restores backwards-compatibility with 0.1.x releases. The older
- 0.1.x APIs are marked as deprecated in their documentation. They
- will be removed in a future release.
-* Release [0.2.0] on 2012-Oct-12
- * **Not recommended for use**: this release introduced breaking API
- changes (renaming core functions) without any path for
- backwards-compatibility. Applications with transitive dependencies
- on both the 0.2.x and 0.1.x APIs cannot use this version.
- * New :key-fn and :value-fn permit flexible transformation
- of values when reading & writing JSON
- * Support for reading large integers as BigInt
- * Optional support for reading decimals as BigDecimal
- * Performance improvements
-* Release [0.1.3] on 2012-Mar-09
- * Fix writing strings containing characters outside the BMP
-* Release [0.1.2] on 2011-Oct-14
- * Better parsing of hexadecimal character escapes
- * Fix EOF-handling bug
- * Fix [DJSON-1]: reflection warnings
-* Release [0.1.1] on 2011-Jul-01
- * Ensure that printing to `*out*` always uses a PrintWriter.
-* Release [0.1.0] on 2011-Mar-18
- * Initial release.
- * Source-compatible with clojure.contrib.json, except for the name change.
-
-[DJSON-61]: https://clojure.atlassian.net/browse/DJSON-61
-[DJSON-57]: https://clojure.atlassian.net/browse/DJSON-57
-[DJSON-56]: https://clojure.atlassian.net/browse/DJSON-56
-[DJSON-54]: https://clojure.atlassian.net/browse/DJSON-54
-[DJSON-53]: https://clojure.atlassian.net/browse/DJSON-53
-[DJSON-52]: https://clojure.atlassian.net/browse/DJSON-52
-[DJSON-51]: https://clojure.atlassian.net/browse/DJSON-51
-[DJSON-50]: https://clojure.atlassian.net/browse/DJSON-50
-[DJSON-48]: https://clojure.atlassian.net/browse/DJSON-48
-[DJSON-47]: https://clojure.atlassian.net/browse/DJSON-47
-[DJSON-46]: https://clojure.atlassian.net/browse/DJSON-46
-[DJSON-45]: https://clojure.atlassian.net/browse/DJSON-45
-[DJSON-43]: https://clojure.atlassian.net/browse/DJSON-43
-[DJSON-41]: https://clojure.atlassian.net/browse/DJSON-41
-[DJSON-40]: https://clojure.atlassian.net/browse/DJSON-40
-[DJSON-39]: https://clojure.atlassian.net/browse/DJSON-39
-[DJSON-38]: https://clojure.atlassian.net/browse/DJSON-38
-[DJSON-37]: https://clojure.atlassian.net/browse/DJSON-37
-[DJSON-36]: https://clojure.atlassian.net/browse/DJSON-36
-[DJSON-35]: https://clojure.atlassian.net/browse/DJSON-35
-[DJSON-34]: https://clojure.atlassian.net/browse/DJSON-34
-[DJSON-33]: https://clojure.atlassian.net/browse/DJSON-33
-[DJSON-32]: https://clojure.atlassian.net/browse/DJSON-32
-[DJSON-30]: https://clojure.atlassian.net/browse/DJSON-30
-[DJSON-29]: https://clojure.atlassian.net/browse/DJSON-29
-[DJSON-26]: https://clojure.atlassian.net/browse/DJSON-26
-[DJSON-18]: https://clojure.atlassian.net/browse/DJSON-18
-[DJSON-17]: https://clojure.atlassian.net/browse/DJSON-17
-[DJSON-15]: https://clojure.atlassian.net/browse/DJSON-15
-[DJSON-14]: https://clojure.atlassian.net/browse/DJSON-14
-[DJSON-13]: https://clojure.atlassian.net/browse/DJSON-13
-[DJSON-11]: https://clojure.atlassian.net/browse/DJSON-11
-[DJSON-9]: https://clojure.atlassian.net/browse/DJSON-9
-[DJSON-8]: https://clojure.atlassian.net/browse/DJSON-8
-[DJSON-7]: https://clojure.atlassian.net/browse/DJSON-7
-[DJSON-1]: https://clojure.atlassian.net/browse/DJSON-1
-
-[2.5.2]: https://github.com/clojure/data.json/tree/v2.5.2
-[2.5.1]: https://github.com/clojure/data.json/tree/v2.5.1
-[2.5.0]: https://github.com/clojure/data.json/tree/v2.5.0
-[2.4.0]: https://github.com/clojure/data.json/tree/v2.4.0
-[2.3.1]: https://github.com/clojure/data.json/tree/v2.3.1
-[2.3.0]: https://github.com/clojure/data.json/tree/v2.3.0
-[2.2.3]: https://github.com/clojure/data.json/tree/v2.2.3
-[2.2.2]: https://github.com/clojure/data.json/tree/v2.2.2
-[2.2.1]: https://github.com/clojure/data.json/tree/v2.2.1
-[2.2.0]: https://github.com/clojure/data.json/tree/v2.2.0
-[2.1.1]: https://github.com/clojure/data.json/tree/v2.1.1
-[2.1.0]: https://github.com/clojure/data.json/tree/data.json-2.1.0
-[2.0.2]: https://github.com/clojure/data.json/tree/data.json-2.0.2
-[2.0.1]: https://github.com/clojure/data.json/tree/data.json-2.0.1
-[2.0.0]: https://github.com/clojure/data.json/tree/data.json-2.0.0
-[1.1.0]: https://github.com/clojure/data.json/tree/data.json-1.1.0
-[1.0.0]: https://github.com/clojure/data.json/tree/data.json-1.0.0
-[0.2.7]: https://github.com/clojure/data.json/tree/data.json-0.2.7
-[0.2.6]: https://github.com/clojure/data.json/tree/data.json-0.2.6
-[0.2.5]: https://github.com/clojure/data.json/tree/data.json-0.2.5
-[0.2.4]: https://github.com/clojure/data.json/tree/data.json-0.2.4
-[0.2.3]: https://github.com/clojure/data.json/tree/data.json-0.2.3
-[0.2.2]: https://github.com/clojure/data.json/tree/data.json-0.2.2
-[0.2.1]: https://github.com/clojure/data.json/tree/data.json-0.2.1
-[0.2.0]: https://github.com/clojure/data.json/tree/data.json-0.2.0
-[0.1.3]: https://github.com/clojure/data.json/tree/data.json-0.1.3
-[0.1.2]: https://github.com/clojure/data.json/tree/data.json-0.1.2
-[0.1.1]: https://github.com/clojure/data.json/tree/data.json-0.1.1
-[0.1.0]: https://github.com/clojure/data.json/tree/data.json-0.1.0
-
-
-
-Copyright and License
-----------------------------------------
-
-Copyright (c) Stuart Sierra, Rich Hickey, and contributors.
-All rights reserved. The use and
-distribution terms for this software are covered by the Eclipse Public
-License 1.0 (https://opensource.org/license/epl-1-0/) witch can
-be found in the file epl-v10.html at the root of this distribution.
-By using this software in any fashion, you are agreeing to be bound by
-the terms of this license. You must not remove this notice, or any
-other, from this software.
diff --git a/api-index.html b/api-index.html
new file mode 100644
index 0000000..c00bdf9
--- /dev/null
+++ b/api-index.html
@@ -0,0 +1,242 @@
+
+
+ Index - data.json 2.5.2-SNAPSHOT API documentation
+
+
+
+
+
+
+
+
+
Index of Public Functions and Variables -
+This page has an alphabetical index of all the documented functions and variables
+in
data.json .
+
+
+
+
+
+
+
J
+
+ json-str function clojure.data.json DEPRECATED; replaced by 'write-str'. Converts x t...
+ JSONWriter protocol clojure.data.json
+
+
+
+
O
+
+ on-extra-throw function clojure.data.json Pass as :extra-data-fn to `read` or `read-str` to ...
+ on-extra-throw-remaining function clojure.data.json Pass as :extra-data-fn to `read` or `read-str` to ...
+
+
+
+
P
+
+ pprint function clojure.data.json Pretty-prints JSON representation of x to *out*. O...
+ pprint-json function clojure.data.json DEPRECATED; replaced by 'pprint'. Pretty-prints J...
+ print-json function clojure.data.json DEPRECATED; replaced by 'write' to *out*. Write J...
+
+
+
+
R
+
+ ->ReaderPBR function clojure.data.json Positional factory function for class clojure.data...
+ read function clojure.data.json Reads a single item of JSON data from a java.io.Re...
+ read-json function clojure.data.json DEPRECATED; replaced by read-str. Reads one JSON ...
+ read-str function clojure.data.json Reads one JSON value from input String. Options ar...
+ ReaderPBR type clojure.data.json
+
+
+
+
S
+
+ ->StringPBR function clojure.data.json Positional factory function for class clojure.data...
+ StringPBR type clojure.data.json
+
+
+
+
W
+
+ -write function clojure.data.json Print object to Appendable out as JSON.
+ write function clojure.data.json Write JSON-formatted output to a java.io.Writer. O...
+ write-json function clojure.data.json DEPRECATED; replaced by 'write'. Print object to ...
+ write-str function clojure.data.json Converts x to a JSON-formatted string. Options are...
+
+
+
+
+
+
+
+
+
+
+
+
Logo & site design by
Tom Hickey .
+ Clojure auto-documentation system by Tom Faulhaber.
+
Eclipse Public License - Version 1.0
-
-
-
-
-
-
-Eclipse Public License - v 1.0
-
-THE ACCOMPANYING PROGRAM IS PROVIDED UNDER THE TERMS OF THIS ECLIPSE
-PUBLIC LICENSE ("AGREEMENT"). ANY USE, REPRODUCTION OR
-DISTRIBUTION OF THE PROGRAM CONSTITUTES RECIPIENT'S ACCEPTANCE OF THIS
-AGREEMENT.
-
-1. DEFINITIONS
-
-"Contribution" means:
-
-a) in the case of the initial Contributor, the initial
-code and documentation distributed under this Agreement, and
-b) in the case of each subsequent Contributor:
-i) changes to the Program, and
-ii) additions to the Program;
-where such changes and/or additions to the Program
-originate from and are distributed by that particular Contributor. A
-Contribution 'originates' from a Contributor if it was added to the
-Program by such Contributor itself or anyone acting on such
-Contributor's behalf. Contributions do not include additions to the
-Program which: (i) are separate modules of software distributed in
-conjunction with the Program under their own license agreement, and (ii)
-are not derivative works of the Program.
-
-"Contributor" means any person or entity that distributes
-the Program.
-
-"Licensed Patents" mean patent claims licensable by a
-Contributor which are necessarily infringed by the use or sale of its
-Contribution alone or when combined with the Program.
-
-"Program" means the Contributions distributed in accordance
-with this Agreement.
-
-"Recipient" means anyone who receives the Program under
-this Agreement, including all Contributors.
-
-2. GRANT OF RIGHTS
-
-a) Subject to the terms of this Agreement, each
-Contributor hereby grants Recipient a non-exclusive, worldwide,
-royalty-free copyright license to reproduce, prepare derivative works
-of, publicly display, publicly perform, distribute and sublicense the
-Contribution of such Contributor, if any, and such derivative works, in
-source code and object code form.
-
-b) Subject to the terms of this Agreement, each
-Contributor hereby grants Recipient a non-exclusive, worldwide,
-royalty-free patent license under Licensed Patents to make, use, sell,
-offer to sell, import and otherwise transfer the Contribution of such
-Contributor, if any, in source code and object code form. This patent
-license shall apply to the combination of the Contribution and the
-Program if, at the time the Contribution is added by the Contributor,
-such addition of the Contribution causes such combination to be covered
-by the Licensed Patents. The patent license shall not apply to any other
-combinations which include the Contribution. No hardware per se is
-licensed hereunder.
-
-c) Recipient understands that although each Contributor
-grants the licenses to its Contributions set forth herein, no assurances
-are provided by any Contributor that the Program does not infringe the
-patent or other intellectual property rights of any other entity. Each
-Contributor disclaims any liability to Recipient for claims brought by
-any other entity based on infringement of intellectual property rights
-or otherwise. As a condition to exercising the rights and licenses
-granted hereunder, each Recipient hereby assumes sole responsibility to
-secure any other intellectual property rights needed, if any. For
-example, if a third party patent license is required to allow Recipient
-to distribute the Program, it is Recipient's responsibility to acquire
-that license before distributing the Program.
-
-d) Each Contributor represents that to its knowledge it
-has sufficient copyright rights in its Contribution, if any, to grant
-the copyright license set forth in this Agreement.
-
-3. REQUIREMENTS
-
-A Contributor may choose to distribute the Program in object code
-form under its own license agreement, provided that:
-
-a) it complies with the terms and conditions of this
-Agreement; and
-
-b) its license agreement:
-
-i) effectively disclaims on behalf of all Contributors
-all warranties and conditions, express and implied, including warranties
-or conditions of title and non-infringement, and implied warranties or
-conditions of merchantability and fitness for a particular purpose;
-
-ii) effectively excludes on behalf of all Contributors
-all liability for damages, including direct, indirect, special,
-incidental and consequential damages, such as lost profits;
-
-iii) states that any provisions which differ from this
-Agreement are offered by that Contributor alone and not by any other
-party; and
-
-iv) states that source code for the Program is available
-from such Contributor, and informs licensees how to obtain it in a
-reasonable manner on or through a medium customarily used for software
-exchange.
-
-When the Program is made available in source code form:
-
-a) it must be made available under this Agreement; and
-
-b) a copy of this Agreement must be included with each
-copy of the Program.
-
-Contributors may not remove or alter any copyright notices contained
-within the Program.
-
-Each Contributor must identify itself as the originator of its
-Contribution, if any, in a manner that reasonably allows subsequent
-Recipients to identify the originator of the Contribution.
-
-4. COMMERCIAL DISTRIBUTION
-
-Commercial distributors of software may accept certain
-responsibilities with respect to end users, business partners and the
-like. While this license is intended to facilitate the commercial use of
-the Program, the Contributor who includes the Program in a commercial
-product offering should do so in a manner which does not create
-potential liability for other Contributors. Therefore, if a Contributor
-includes the Program in a commercial product offering, such Contributor
-("Commercial Contributor") hereby agrees to defend and
-indemnify every other Contributor ("Indemnified Contributor")
-against any losses, damages and costs (collectively "Losses")
-arising from claims, lawsuits and other legal actions brought by a third
-party against the Indemnified Contributor to the extent caused by the
-acts or omissions of such Commercial Contributor in connection with its
-distribution of the Program in a commercial product offering. The
-obligations in this section do not apply to any claims or Losses
-relating to any actual or alleged intellectual property infringement. In
-order to qualify, an Indemnified Contributor must: a) promptly notify
-the Commercial Contributor in writing of such claim, and b) allow the
-Commercial Contributor to control, and cooperate with the Commercial
-Contributor in, the defense and any related settlement negotiations. The
-Indemnified Contributor may participate in any such claim at its own
-expense.
-
-For example, a Contributor might include the Program in a commercial
-product offering, Product X. That Contributor is then a Commercial
-Contributor. If that Commercial Contributor then makes performance
-claims, or offers warranties related to Product X, those performance
-claims and warranties are such Commercial Contributor's responsibility
-alone. Under this section, the Commercial Contributor would have to
-defend claims against the other Contributors related to those
-performance claims and warranties, and if a court requires any other
-Contributor to pay any damages as a result, the Commercial Contributor
-must pay those damages.
-
-5. NO WARRANTY
-
-EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS
-PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS
-OF ANY KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION,
-ANY WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY
-OR FITNESS FOR A PARTICULAR PURPOSE. Each Recipient is solely
-responsible for determining the appropriateness of using and
-distributing the Program and assumes all risks associated with its
-exercise of rights under this Agreement , including but not limited to
-the risks and costs of program errors, compliance with applicable laws,
-damage to or loss of data, programs or equipment, and unavailability or
-interruption of operations.
-
-6. DISCLAIMER OF LIABILITY
-
-EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT
-NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT, INDIRECT,
-INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING
-WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED AND ON ANY THEORY OF
-LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OR
-DISTRIBUTION OF THE PROGRAM OR THE EXERCISE OF ANY RIGHTS GRANTED
-HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
-
-7. GENERAL
-
-If any provision of this Agreement is invalid or unenforceable under
-applicable law, it shall not affect the validity or enforceability of
-the remainder of the terms of this Agreement, and without further action
-by the parties hereto, such provision shall be reformed to the minimum
-extent necessary to make such provision valid and enforceable.
-
-If Recipient institutes patent litigation against any entity
-(including a cross-claim or counterclaim in a lawsuit) alleging that the
-Program itself (excluding combinations of the Program with other
-software or hardware) infringes such Recipient's patent(s), then such
-Recipient's rights granted under Section 2(b) shall terminate as of the
-date such litigation is filed.
-
-All Recipient's rights under this Agreement shall terminate if it
-fails to comply with any of the material terms or conditions of this
-Agreement and does not cure such failure in a reasonable period of time
-after becoming aware of such noncompliance. If all Recipient's rights
-under this Agreement terminate, Recipient agrees to cease use and
-distribution of the Program as soon as reasonably practicable. However,
-Recipient's obligations under this Agreement and any licenses granted by
-Recipient relating to the Program shall continue and survive.
-
-Everyone is permitted to copy and distribute copies of this
-Agreement, but in order to avoid inconsistency the Agreement is
-copyrighted and may only be modified in the following manner. The
-Agreement Steward reserves the right to publish new versions (including
-revisions) of this Agreement from time to time. No one other than the
-Agreement Steward has the right to modify this Agreement. The Eclipse
-Foundation is the initial Agreement Steward. The Eclipse Foundation may
-assign the responsibility to serve as the Agreement Steward to a
-suitable separate entity. Each new version of the Agreement will be
-given a distinguishing version number. The Program (including
-Contributions) may always be distributed subject to the version of the
-Agreement under which it was received. In addition, after a new version
-of the Agreement is published, Contributor may elect to distribute the
-Program (including its Contributions) under the new version. Except as
-expressly stated in Sections 2(a) and 2(b) above, Recipient receives no
-rights or licenses to the intellectual property of any Contributor under
-this Agreement, whether expressly, by implication, estoppel or
-otherwise. All rights in the Program not expressly granted under this
-Agreement are reserved.
-
-This Agreement is governed by the laws of the State of New York and
-the intellectual property laws of the United States of America. No party
-to this Agreement will bring a legal action under this Agreement more
-than one year after the cause of action arose. Each party waives its
-rights to a jury trial in any resulting litigation.
-
-
-
-
diff --git a/index-2.2.1-SNAPSHOT.clj b/index-2.2.1-SNAPSHOT.clj
new file mode 100644
index 0000000..ecec70e
--- /dev/null
+++ b/index-2.2.1-SNAPSHOT.clj
@@ -0,0 +1,175 @@
+{:namespaces
+ ({:doc
+ "JavaScript Object Notation (JSON) parser/generator.\nSee http://www.json.org/",
+ :author "Stuart Sierra",
+ :name "clojure.data.json",
+ :wiki-url "https://clojure.github.io/data.json/index.html",
+ :source-url
+ "https://github.com/clojure/data.json/blob/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj"}),
+ :vars
+ ({:raw-source-url
+ "https://github.com/clojure/data.json/raw/d3cce5b200031cf22603c13a9a39e3939651d344/src/main/clojure/clojure/data/json_compat_0_1.clj",
+ :name "json-str",
+ :file "src/main/clojure/clojure/data/json_compat_0_1.clj",
+ :source-url
+ "https://github.com/clojure/data.json/blob/d3cce5b200031cf22603c13a9a39e3939651d344/src/main/clojure/clojure/data/json_compat_0_1.clj#L42",
+ :line 42,
+ :var-type "function",
+ :arglists ([x & options]),
+ :doc
+ "DEPRECATED; replaced by 'write-str'.\n\nConverts x to a JSON-formatted string.\n\nValid options are:\n :escape-unicode false\n to turn of \\uXXXX escapes of Unicode characters.",
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/json-str"}
+ {:raw-source-url
+ "https://github.com/clojure/data.json/raw/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj",
+ :name "pprint",
+ :file "src/main/clojure/clojure/data/json.clj",
+ :source-url
+ "https://github.com/clojure/data.json/blob/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj#L597",
+ :line 597,
+ :var-type "function",
+ :arglists ([x & {:as options}]),
+ :doc
+ "Pretty-prints JSON representation of x to *out*. Options are the\nsame as for write except :value-fn, which is not supported.",
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/pprint"}
+ {:raw-source-url
+ "https://github.com/clojure/data.json/raw/d3cce5b200031cf22603c13a9a39e3939651d344/src/main/clojure/clojure/data/json_compat_0_1.clj",
+ :name "pprint-json",
+ :file "src/main/clojure/clojure/data/json_compat_0_1.clj",
+ :source-url
+ "https://github.com/clojure/data.json/blob/d3cce5b200031cf22603c13a9a39e3939651d344/src/main/clojure/clojure/data/json_compat_0_1.clj#L64",
+ :line 64,
+ :var-type "function",
+ :arglists ([x & options]),
+ :doc
+ "DEPRECATED; replaced by 'pprint'.\n\nPretty-prints JSON representation of x to *out*.\n\nValid options are:\n :escape-unicode false\n to turn off \\uXXXX escapes of Unicode characters.",
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/pprint-json"}
+ {:raw-source-url
+ "https://github.com/clojure/data.json/raw/d3cce5b200031cf22603c13a9a39e3939651d344/src/main/clojure/clojure/data/json_compat_0_1.clj",
+ :name "print-json",
+ :file "src/main/clojure/clojure/data/json_compat_0_1.clj",
+ :source-url
+ "https://github.com/clojure/data.json/blob/d3cce5b200031cf22603c13a9a39e3939651d344/src/main/clojure/clojure/data/json_compat_0_1.clj#L53",
+ :line 53,
+ :var-type "function",
+ :arglists ([x & options]),
+ :doc
+ "DEPRECATED; replaced by 'write' to *out*.\n\nWrite JSON-formatted output to *out*.\n\nValid options are:\n :escape-unicode false\n to turn off \\uXXXX escapes of Unicode characters.",
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/print-json"}
+ {:raw-source-url
+ "https://github.com/clojure/data.json/raw/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj",
+ :name "read",
+ :file "src/main/clojure/clojure/data/json.clj",
+ :source-url
+ "https://github.com/clojure/data.json/blob/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj#L255",
+ :line 255,
+ :var-type "function",
+ :arglists ([reader & {:as options}]),
+ :doc
+ "Reads a single item of JSON data from a java.io.Reader. Options are\nkey-value pairs, valid options are:\n\n :eof-error? boolean\n\n If true (default) will throw exception if the stream is empty.\n\n :eof-value Object\n\n Object to return if the stream is empty and eof-error? is\n false. Default is nil.\n\n :bigdec boolean\n\n If true use BigDecimal for decimal numbers instead of Double.\n Default is false.\n\n :key-fn function\n\n Single-argument function called on JSON property names; return\n value will replace the property names in the output. Default\n is clojure.core/identity, use clojure.core/keyword to get\n keyword properties.\n\n :value-fn function\n\n Function to transform values in maps (\"objects\" in JSON) in\n the output. For each JSON property, value-fn is called with\n two arguments: the property name (transformed by key-fn) and\n the value. The return value of value-fn will replace the value\n in the output. If value-fn returns itself, the property will\n be omitted from the output. The default value-fn returns the\n value unchanged. This option does not apply to non-map\n collections.",
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/read"}
+ {:raw-source-url
+ "https://github.com/clojure/data.json/raw/d3cce5b200031cf22603c13a9a39e3939651d344/src/main/clojure/clojure/data/json_compat_0_1.clj",
+ :name "read-json",
+ :file "src/main/clojure/clojure/data/json_compat_0_1.clj",
+ :source-url
+ "https://github.com/clojure/data.json/blob/d3cce5b200031cf22603c13a9a39e3939651d344/src/main/clojure/clojure/data/json_compat_0_1.clj#L10",
+ :line 10,
+ :var-type "function",
+ :arglists
+ ([input]
+ [input keywordize?]
+ [input keywordize? eof-error? eof-value]),
+ :doc
+ "DEPRECATED; replaced by read-str.\n\nReads one JSON value from input String or Reader. If keywordize? is\ntrue (default), object keys will be converted to keywords. If\neof-error? is true (default), empty input will throw an\nEOFException; if false EOF will return eof-value.",
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/read-json"}
+ {:raw-source-url
+ "https://github.com/clojure/data.json/raw/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj",
+ :name "read-str",
+ :file "src/main/clojure/clojure/data/json.clj",
+ :source-url
+ "https://github.com/clojure/data.json/blob/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj#L297",
+ :line 297,
+ :var-type "function",
+ :arglists ([string & {:as options}]),
+ :doc
+ "Reads one JSON value from input String. Options are the same as for\nread.",
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/read-str"}
+ {:raw-source-url
+ "https://github.com/clojure/data.json/raw/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj",
+ :name "write",
+ :file "src/main/clojure/clojure/data/json.clj",
+ :source-url
+ "https://github.com/clojure/data.json/blob/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj#L507",
+ :line 507,
+ :var-type "function",
+ :arglists ([x writer & {:as options}]),
+ :doc
+ "Write JSON-formatted output to a java.io.Writer. Options are\nkey-value pairs, valid options are:\n\n :escape-unicode boolean\n\n If true (default) non-ASCII characters are escaped as \\uXXXX\n\n :escape-js-separators boolean\n\n If true (default) the Unicode characters U+2028 and U+2029 will\n be escaped as \\u2028 and \\u2029 even if :escape-unicode is\n false. (These two characters are valid in pure JSON but are not\n valid in JavaScript strings.)\n\n :escape-slash boolean\n\n If true (default) the slash / is escaped as \\/\n\n :sql-date-converter function\n\n Single-argument function used to convert a java.sql.Date to\n a java.time.Instant. As java.sql.Date does not have a\n time-component (which is required by java.time.Instant), it needs\n to be computed. The default implementation, `default-sql-date->instant-fn`\n uses\n ```\n (.toInstant (.atStartOfDay (.toLocalDate sql-date) (java.time.ZoneId/systemDefault)))\n ```\n\n :date-formatter\n\n A java.time.DateTimeFormatter instance, defaults to DateTimeFormatter/ISO_INSTANT\n\n :key-fn function\n\n Single-argument function called on map keys; return value will\n replace the property names in the output. Must return a\n string. Default calls clojure.core/name on symbols and\n keywords and clojure.core/str on everything else.\n\n :value-fn function\n\n Function to transform values in maps before writing. For each\n key-value pair in an input map, called with two arguments: the\n key (BEFORE transformation by key-fn) and the value. The\n return value of value-fn will replace the value in the output.\n If the return value is a number, boolean, string, or nil it\n will be included literally in the output. If the return value\n is a non-map collection, it will be processed recursively. If\n the return value is a map, it will be processed recursively,\n calling value-fn again on its key-value pairs. If value-fn\n returns itself, the key-value pair will be omitted from the\n output. This option does not apply to non-map collections.",
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/write"}
+ {:raw-source-url
+ "https://github.com/clojure/data.json/raw/d3cce5b200031cf22603c13a9a39e3939651d344/src/main/clojure/clojure/data/json_compat_0_1.clj",
+ :name "write-json",
+ :file "src/main/clojure/clojure/data/json_compat_0_1.clj",
+ :source-url
+ "https://github.com/clojure/data.json/blob/d3cce5b200031cf22603c13a9a39e3939651d344/src/main/clojure/clojure/data/json_compat_0_1.clj#L35",
+ :line 35,
+ :var-type "function",
+ :arglists ([x out escape-unicode?]),
+ :doc
+ "DEPRECATED; replaced by 'write'.\n\nPrint object to PrintWriter out as JSON",
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/write-json"}
+ {:raw-source-url
+ "https://github.com/clojure/data.json/raw/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj",
+ :name "write-str",
+ :file "src/main/clojure/clojure/data/json.clj",
+ :source-url
+ "https://github.com/clojure/data.json/blob/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj#L564",
+ :line 564,
+ :var-type "function",
+ :arglists ([x & {:as options}]),
+ :doc
+ "Converts x to a JSON-formatted string. Options are the same as\nwrite.",
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/write-str"}
+ {:raw-source-url
+ "https://github.com/clojure/data.json/raw/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj",
+ :name "JSONWriter",
+ :file "src/main/clojure/clojure/data/json.clj",
+ :source-url
+ "https://github.com/clojure/data.json/blob/66f946edc83f59034f0c139cffe737367216c382/src/main/clojure/clojure/data/json.clj#L310",
+ :line 310,
+ :var-type "protocol",
+ :arglists nil,
+ :doc nil,
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/JSONWriter"}
+ {:raw-source-url nil,
+ :name "-write",
+ :file nil,
+ :source-url nil,
+ :var-type "function",
+ :arglists ([object out options]),
+ :doc "Print object to Appendable out as JSON",
+ :namespace "clojure.data.json",
+ :wiki-url
+ "https://clojure.github.io/data.json//index.html#clojure.data.json/-write"})}
diff --git a/index.html b/index.html
new file mode 100644
index 0000000..b7ab837
--- /dev/null
+++ b/index.html
@@ -0,0 +1,510 @@
+
+
+ clojure.data.json - data.json 2.5.2-SNAPSHOT API documentation
+
+
+
+
+
+
+
+
+
API for clojure.data.json
+ -
+
+
by Stuart Sierra
+
Full namespace name:
clojure.data.json
+
+
Overview
+
+
JavaScript Object Notation (JSON) parser/generator.
+See http://www.json.org/
+
+
+
+
+
+
+
Protocols
+
+
+
+
JSONWriter
+
Protocol
+
+ Known implementations:
clojure.lang.BigInt, clojure.lang.Named, clojure.lang.Ratio, java.lang.Boolean, java.lang.Byte, java.lang.CharSequence, java.lang.Double, java.lang.Float, java.lang.Integer, java.lang.Long, java.lang.Short, java.math.BigDecimal, java.math.BigInteger, java.sql.Date, java.time.Instant, java.util.Collection, java.util.concurrent.atomic.AtomicInteger, java.util.concurrent.atomic.AtomicLong, java.util.Date, java.util.Map, java.util.UUID, nil, Object
+
+
+
-write
+
function
+
Usage: (-write object out options)
+
+
Print object to Appendable out as JSON
+
+
+
+
+
+
+
+
Source
+
+
+
+
+
Types
+
+
+
+
ReaderPBR
+
type
+
+ Fields:
[rdr]
+ Protocols:
+ Interfaces:
clojure.data.json.InternalPBR
+
+
+
+
StringPBR
+
type
+
+ Fields:
[s pos len]
+ Protocols:
+ Interfaces:
clojure.data.json.InternalPBR
+
+
+
+
+
Public Variables and Functions
+
+
+
+
->ReaderPBR
+
function
+
Usage: (->ReaderPBR rdr)
+
+
Positional factory function for class clojure.data.json.ReaderPBR.
+
+
+
+
Source
+
+
+
+
->StringPBR
+
function
+
Usage: (->StringPBR s pos len)
+
+
Positional factory function for class clojure.data.json.StringPBR.
+
+
+
+
Source
+
+
+
+
json-str
+
function
+
Usage: (json-str x & options)
+
+
DEPRECATED; replaced by 'write-str'.
+
+Converts x to a JSON-formatted string.
+
+Valid options are:
+ :escape-unicode false
+ to turn of \uXXXX escapes of Unicode characters.
+
+
+
+
Source
+
+
+
+
+
function
+
Usage: (on-extra-throw val rdr)
+
+
Pass as :extra-data-fn to `read` or `read-str` to throw if data is found
+after the first object.
+
+
+
+
Source
+
+
+
+
on-extra-throw-remaining
+
function
+
Usage: (on-extra-throw-remaining val rdr)
+
+
Pass as :extra-data-fn to `read` or `read-str` to throw if data is found
+after the first object and return the remaining data in ex-data :remaining.
+
+
+
+
Source
+
+
+
+
pprint
+
function
+
Usage: (pprint x & {:as options})
+
+
Pretty-prints JSON representation of x to *out*. Options are the same
+as for write except :value-fn and :indent, which are not supported.
+
+
+
+
Source
+
+
+
+
pprint-json
+
function
+
Usage: (pprint-json x & options)
+
+
DEPRECATED; replaced by 'pprint'.
+
+Pretty-prints JSON representation of x to *out*.
+
+Valid options are:
+ :escape-unicode false
+ to turn off \uXXXX escapes of Unicode characters.
+
+
+
+
Source
+
+
+
+
print-json
+
function
+
Usage: (print-json x & options)
+
+
DEPRECATED; replaced by 'write' to *out*.
+
+Write JSON-formatted output to *out*.
+
+Valid options are:
+ :escape-unicode false
+ to turn off \uXXXX escapes of Unicode characters.
+
+
+
+
Source
+
+
+
+
read
+
function
+
Usage: (read reader & {:as options})
+
+
Reads a single item of JSON data from a java.io.Reader.
+
+If you wish to repeatedly read items from the same reader, you must
+supply a PushbackReader with buffer size >= 64, and reuse it on
+subsequent calls.
+
+Options are key-value pairs, valid options are:
+
+ :eof-error? boolean
+
+ If true (default) will throw exception if the stream is empty.
+
+ :eof-value Object
+
+ Object to return if the stream is empty and eof-error? is
+ false. Default is nil.
+
+ :bigdec boolean
+
+ If true use BigDecimal for decimal numbers instead of Double.
+ Default is false.
+
+ :key-fn function
+
+ Single-argument function called on JSON property names; return
+ value will replace the property names in the output. Default
+ is clojure.core/identity, use clojure.core/keyword to get
+ keyword properties.
+
+ :value-fn function
+
+ Function to transform values in maps ("objects" in JSON) in
+ the output. For each JSON property, value-fn is called with
+ two arguments: the property name (transformed by key-fn) and
+ the value. The return value of value-fn will replace the value
+ in the output. If value-fn returns itself, the property will
+ be omitted from the output. The default value-fn returns the
+ value unchanged. This option does not apply to non-map
+ collections.
+
+ :extra-data-fn function
+
+ If :extra-data-fn is not nil, then the reader will be checked
+ for extra data after the read. If found, the extra-data-fn will
+ be invoked with the read value and the reader. The result of
+ the extra-data-fn will be returned.
+
+
+
+
Source
+
+
+
+
read-json
+
function
+
Usage: (read-json input)
+ (read-json input keywordize?)
+ (read-json input keywordize? eof-error? eof-value)
+
+
DEPRECATED; replaced by read-str.
+
+Reads one JSON value from input String or Reader. If keywordize? is
+true (default), object keys will be converted to keywords. If
+eof-error? is true (default), empty input will throw an
+EOFException; if false EOF will return eof-value.
+
+
+
+
Source
+
+
+
+
read-str
+
function
+
Usage: (read-str string & {:as options})
+
+
Reads one JSON value from input String. Options are the same as for
+read.
+
+
+
+
Source
+
+
+
+
write
+
function
+
Usage: (write x writer & {:as options})
+
+
Write JSON-formatted output to a java.io.Writer. Options are
+key-value pairs, valid options are:
+
+ :escape-unicode boolean
+
+ If true (default) non-ASCII characters are escaped as \uXXXX
+
+ :escape-js-separators boolean
+
+ If true (default) the Unicode characters U+2028 and U+2029 will
+ be escaped as \u2028 and \u2029 even if :escape-unicode is
+ false. (These two characters are valid in pure JSON but are not
+ valid in JavaScript strings.)
+
+ :escape-slash boolean
+
+ If true (default) the slash / is escaped as \/
+
+ :sql-date-converter function
+
+ Single-argument function used to convert a java.sql.Date to
+ a java.time.Instant. As java.sql.Date does not have a
+ time-component (which is required by java.time.Instant), it needs
+ to be computed. The default implementation, `default-sql-date->instant-fn`
+ uses
+ ```
+ (.toInstant (.atStartOfDay (.toLocalDate sql-date) (java.time.ZoneId/systemDefault)))
+ ```
+
+ :date-formatter
+
+ A java.time.DateTimeFormatter instance, defaults to DateTimeFormatter/ISO_INSTANT
+
+ :key-fn function
+
+ Single-argument function called on map keys; return value will
+ replace the property names in the output. Must return a
+ string. Default calls clojure.core/name on symbols and
+ keywords and clojure.core/str on everything else.
+
+ :value-fn function
+
+ Function to transform values in maps before writing. For each
+ key-value pair in an input map, called with two arguments: the
+ key (BEFORE transformation by key-fn) and the value. The
+ return value of value-fn will replace the value in the output.
+ If the return value is a number, boolean, string, or nil it
+ will be included literally in the output. If the return value
+ is a non-map collection, it will be processed recursively. If
+ the return value is a map, it will be processed recursively,
+ calling value-fn again on its key-value pairs. If value-fn
+ returns itself, the key-value pair will be omitted from the
+ output. This option does not apply to non-map collections.
+
+ :default-write-fn function
+
+ Function to handle types which are unknown to data.json. Defaults
+ to a function which throws an exception. Expects to be called with
+ three args, the value to be serialized, the output stream, and the
+ options map.
+
+ :indent boolean
+
+ If true, indent json while writing (default = false).
+
+
+
+
Source
+
+
+
+
write-json
+
function
+
Usage: (write-json x out escape-unicode?)
+
+
DEPRECATED; replaced by 'write'.
+
+Print object to PrintWriter out as JSON
+
+
+
+
Source
+
+
+
+
write-str
+
function
+
Usage: (write-str x & {:as options})
+
+
Converts x to a JSON-formatted string. Options are the same as
+write.
+
+
+
+
Source
+
+
+
+
+
+
+
+
+
+
+
+
Logo & site design by
Tom Hickey .
+ Clojure auto-documentation system by Tom Faulhaber.
+
- 4.0.0
- data.json
- 2.5.3-SNAPSHOT
- data.json
- Generating/parsing JSON from/to Clojure data structures
- https://github.com/clojure/data.json
-
-
-
- Stuart Sierra
- mail@stuartsierra.com
- http://stuartsierra.com/
- -5
-
-
-
-
- org.clojure
- pom.contrib
- 1.4.0
-
-
-
- scm:git:git@github.com:clojure/data.json
- scm:git:git@github.com:clojure/data.json
- git@github.com:clojure/data.json.git
- HEAD
-
-
-
- 1.11.4
-
-
-
-
- org.clojure
- test.check
- 1.1.3
- test
-
-
-
-
-
-
- com.theoryinpractise
- clojure-maven-plugin
- 1.7.1
-
- false
- -Dclojure.compiler.direct-linking=true
-
-
-
- clojure-compile
- compile
-
- compile
-
-
- true
-
- clojure.data.json
- clojure.data.json-compat-0-1
-
-
-
-
-
-
- maven-jar-plugin
- 3.5.0
-
-
- default-jar
- package
-
- jar
-
-
-
- **/*.clj
-
-
-
-
- javadoc-jar
- package
-
- jar
-
-
- javadoc
-
- **/*.html
-
-
-
-
-
-
- maven-assembly-plugin
- 3.8.0
-
-
- aot-jar
- package
-
- single
-
-
-
- src/assembly/aot.xml
-
-
-
-
-
-
-
-
diff --git a/project.clj b/project.clj
deleted file mode 100644
index 17f63e4..0000000
--- a/project.clj
+++ /dev/null
@@ -1,19 +0,0 @@
-;; NOTE: Used only for perf testing - this project is built with Maven (see pom.xml)
-(defproject clojure.data.json "1.1.1-SNAPSHOT"
- :dependencies [[org.clojure/clojure "1.12.4"]]
- :source-paths ["src/main/clojure"]
- :java-source-paths ["src/main/java"]
- :java-test-paths ["src/test/java"]
- :test-paths ["src/test/clojure" "src/test/clojure-perf"]
- :profiles {:dev {:dependencies [[com.clojure-goes-fast/clj-async-profiler "1.6.2"]
- [com.clojure-goes-fast/clj-java-decompiler "0.3.7"]
- [org.clojure/test.check "1.1.3"]
- [criterium/criterium "0.4.6"]
- [metosin/jsonista "0.3.13"]
- [cheshire/cheshire "6.1.0"]
- [org.openjdk.jmh/jmh-core "1.37"]
- [jmh-clojure "0.4.1"]
- [com.jsoniter/jsoniter "0.9.23"]]
- :resource-paths ["dev-resources"]
- :global-vars {*warn-on-reflection* true}}}
- :jvm-opts ["-Djdk.attach.allowAttachSelf=true"])
diff --git a/src/assembly/aot.xml b/src/assembly/aot.xml
deleted file mode 100644
index 9fac531..0000000
--- a/src/assembly/aot.xml
+++ /dev/null
@@ -1,18 +0,0 @@
-
- aot
-
- jar
-
- false
-
-
- src/resources
- /
- true
-
-
- target/classes
- /
-
-
-
diff --git a/src/main/clojure/clojure/data/json.clj b/src/main/clojure/clojure/data/json.clj
deleted file mode 100644
index 8afcd14..0000000
--- a/src/main/clojure/clojure/data/json.clj
+++ /dev/null
@@ -1,981 +0,0 @@
-;; Copyright (c) Stuart Sierra, 2012. All rights reserved. The use
-;; and distribution terms for this software are covered by the Eclipse
-;; Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
-;; which can be found in the file epl-v10.html at the root of this
-;; distribution. By using this software in any fashion, you are
-;; agreeing to be bound by the terms of this license. You must not
-;; remove this notice, or any other, from this software.
-
-(ns ^{:author "Stuart Sierra"
- :doc "JavaScript Object Notation (JSON) parser/generator.
- See http://www.json.org/"}
- clojure.data.json
- (:refer-clojure :exclude (read))
- (:require [clojure.pprint :as pprint])
- (:import (java.io PrintWriter PushbackReader StringWriter
- Writer StringReader EOFException)))
-
-;; CUSTOM PUSHBACK READER
-
-(set! *warn-on-reflection* true)
-
-(definterface InternalPBR
- (^int readChar [])
- (^long readChars [^chars buffer ^long start ^long bufflen])
- (^void unreadChar [^int c])
- (^void unreadChars [^chars buffer ^int off ^int bufflen])
- (^java.io.Reader toReader []))
-
-(deftype ReaderPBR [^PushbackReader rdr]
- InternalPBR
- (readChar [_]
- (.read rdr))
- (readChars [_ buffer start bufflen]
- (.read rdr ^chars buffer start bufflen))
- (unreadChar [_ c]
- ;; ASSERT: c should never be -1 (EOF)
- (.unread rdr c))
- (unreadChars [_ buffer start bufflen]
- (.unread rdr buffer start bufflen))
- (toReader [_]
- rdr))
-
-(comment
- (compile 'clojure.data.json)
- )
-
-(deftype StringPBR [^String s ^:unsynchronized-mutable ^long pos ^long len]
- InternalPBR
- (readChar [_]
- (if (< pos len)
- (let [p pos]
- (set! pos (unchecked-inc pos))
- (let [c (int (.charAt s p))]
- c))
- (let [i (int -1)]
- i)))
- (readChars [_ buffer start bufflen]
- (let [remaining (- len pos)
- n (Math/min remaining bufflen)]
- (when (pos? n)
- (let [p pos
- end (+ p n)]
- (set! pos end)
- (.getChars ^String s p end ^chars buffer start)))
- (if (pos? n) n -1)))
- (unreadChar [_ _c]
- ;; ASSERT: c should never be -1 (EOF)
- (set! pos (unchecked-dec pos))
- nil)
- (unreadChars [_ _buffer _start bufflen]
- (set! pos (unchecked-subtract pos bufflen))
- nil)
- (toReader [_]
- (StringReader. (.subSequence s pos len))))
-
-(defn- pushback-pbr
- [^PushbackReader r]
- (->ReaderPBR r))
-
-(defn- string-pbr
- [^String s]
- (->StringPBR s 0 (.length s)))
-
-;;; JSON READER
-
-(set! *warn-on-reflection* true)
-
-(defn- default-write-key-fn
- [x]
- (cond (instance? clojure.lang.Named x)
- (name x)
- (nil? x)
- (throw (Exception. "JSON object properties may not be nil"))
- :else (str x)))
-
-(defn- default-value-fn [k v] v)
-
-(declare -read)
-
-(defmacro ^:private codepoint [c]
- (int c))
-
-(defn- codepoint-clause [[test result]]
- (cond (list? test)
- [(map int test) result]
- (= test :whitespace)
- ['(9 10 13 32) result]
- (= test :js-separators)
- ['(16r2028 16r2029) result]
- :else
- [(int test) result]))
-
-(defmacro ^:private codepoint-case [e & clauses]
- `(case ~e
- ~@(mapcat codepoint-clause (partition 2 clauses))
- ~@(when (odd? (count clauses))
- [(last clauses)])))
-
-(defn- read-hex-char [^InternalPBR stream]
- ;; Expects to be called with the head of the stream AFTER the
- ;; initial "\u". Reads the next four characters from the stream.
- (let [a (.readChar stream)
- b (.readChar stream)
- c (.readChar stream)
- d (.readChar stream)]
- (when (or (neg? a) (neg? b) (neg? c) (neg? d))
- (throw (EOFException.
- "JSON error (end-of-file inside Unicode character escape)")))
- (let [s (str (char a) (char b) (char c) (char d))]
- (char (Integer/parseInt s 16)))))
-
-(defn- read-escaped-char [^InternalPBR stream]
- ;; Expects to be called with the head of the stream AFTER the
- ;; initial backslash.
- (let [c (.readChar stream)]
- (when (neg? c)
- (throw (EOFException. "JSON error (end-of-file inside escaped char)")))
- (codepoint-case c
- (\" \\ \/) (char c)
- \b \backspace
- \f \formfeed
- \n \newline
- \r \return
- \t \tab
- \u (read-hex-char stream))))
-
-(defn- slow-read-string [^InternalPBR stream ^String already-read]
- (let [buffer (StringBuilder. already-read)]
- (loop []
- (let [c (.readChar stream)]
- (when (neg? c)
- (throw (EOFException. "JSON error (end-of-file inside string)")))
- (codepoint-case c
- \" (str buffer)
- \\ (do (.append buffer (read-escaped-char stream))
- (recur))
- (do (.append buffer (char c))
- (recur)))))))
-
-(defn- read-quoted-string [^InternalPBR stream]
- ;; Expects to be called with the head of the stream AFTER the
- ;; opening quotation mark.
- (let [buffer ^chars (char-array 64)
- read (.readChars stream buffer 0 64)
- end-index (unchecked-dec-int read)]
- (when (neg? read)
- (throw (EOFException. "JSON error (end-of-file inside string)")))
- (loop [i (int 0)]
- (let [c (int (aget buffer i))]
- (codepoint-case c
- \" (let [off (unchecked-inc-int i)
- len (unchecked-subtract-int read off)]
- (.unreadChars stream buffer off len)
- (String. buffer 0 i))
- \\ (let [off i
- len (unchecked-subtract-int read off)]
- (.unreadChars stream buffer off len)
- (slow-read-string stream (String. buffer 0 i)))
- (if (= i end-index)
- (do (.unreadChar stream c)
- (slow-read-string stream (String. buffer 0 i)))
- (recur (unchecked-inc-int i))))))))
-
-(defn- read-integer [^String string]
- (if (< (count string) 18) ; definitely fits in a Long
- (Long/valueOf string)
- (or (try (Long/valueOf string)
- (catch NumberFormatException e nil))
- (bigint string))))
-
-(defn- read-decimal [^String string bigdec?]
- (if bigdec?
- (bigdec string)
- (Double/valueOf string)))
-
-(defn- read-number [^InternalPBR stream bigdec?]
- (let [buffer (StringBuilder.)
- decimal? (loop [stage :minus]
- (let [c (.readChar stream)]
- (case stage
- :minus
- (codepoint-case c
- \-
- (do (.append buffer (char c))
- (recur :int-zero))
- \0
- (do (.append buffer (char c))
- (recur :frac-point))
- (\1 \2 \3 \4 \5 \6 \7 \8 \9)
- (do (.append buffer (char c))
- (recur :int-digit))
- (throw (Exception. "JSON error (invalid number literal)")))
- ;; Number must either be a single 0 or 1-9 followed by 0-9
- :int-zero
- (codepoint-case c
- \0
- (do (.append buffer (char c))
- (recur :frac-point))
- (\1 \2 \3 \4 \5 \6 \7 \8 \9)
- (do (.append buffer (char c))
- (recur :int-digit))
- (throw (Exception. "JSON error (invalid number literal)")))
- ;; at this point, there is at least one digit
- :int-digit
- (codepoint-case c
- (\0 \1 \2 \3 \4 \5 \6 \7 \8 \9)
- (do (.append buffer (char c))
- (recur :int-digit))
- \.
- (do (.append buffer (char c))
- (recur :frac-first))
- (\e \E)
- (do (.append buffer (char c))
- (recur :exp-symbol))
- ;; early exit
- :whitespace
- (do (.unreadChar stream c)
- false)
- (\, \] \})
- (do (.unreadChar stream c)
- false)
- -1
- false
- (throw (Exception. "JSON error (invalid number literal)")))
- ;; previous character is a "0"
- :frac-point
- (codepoint-case c
- \.
- (do (.append buffer (char c))
- (recur :frac-first))
- (\e \E)
- (do (.append buffer (char c))
- (recur :exp-symbol))
- ;; early exit
- :whitespace
- (do (.unreadChar stream c)
- false)
- (\, \] \})
- (do (.unreadChar stream c)
- false)
- -1
- false
- ;; Disallow zero-padded numbers or invalid characters
- (throw (Exception. "JSON error (invalid number literal)")))
- ;; previous character is a "."
- :frac-first
- (codepoint-case c
- (\0 \1 \2 \3 \4 \5 \6 \7 \8 \9)
- (do (.append buffer (char c))
- (recur :frac-digit))
- (throw (Exception. "JSON error (invalid number literal)")))
- ;; any number of following digits
- :frac-digit
- (codepoint-case c
- (\0 \1 \2 \3 \4 \5 \6 \7 \8 \9)
- (do (.append buffer (char c))
- (recur :frac-digit))
- (\e \E)
- (do (.append buffer (char c))
- (recur :exp-symbol))
- ;; early exit
- :whitespace
- (do (.unreadChar stream c)
- true)
- (\, \] \})
- (do (.unreadChar stream c)
- true)
- -1
- true
- (throw (Exception. "JSON error (invalid number literal)")))
- ;; previous character is a "e" or "E"
- :exp-symbol
- (codepoint-case c
- (\- \+)
- (do (.append buffer (char c))
- (recur :exp-first))
- (\0 \1 \2 \3 \4 \5 \6 \7 \8 \9)
- (do (.append buffer (char c))
- (recur :exp-digit)))
- ;; previous character is a "-" or "+"
- ;; must have at least one digit
- :exp-first
- (codepoint-case c
- (\0 \1 \2 \3 \4 \5 \6 \7 \8 \9)
- (do (.append buffer (char c))
- (recur :exp-digit))
- (throw (Exception. "JSON error (invalid number literal)")))
- ;; any number of following digits
- :exp-digit
- (codepoint-case c
- (\0 \1 \2 \3 \4 \5 \6 \7 \8 \9)
- (do (.append buffer (char c))
- (recur :exp-digit))
- :whitespace
- (do (.unreadChar stream c)
- true)
- (\, \] \})
- (do (.unreadChar stream c)
- true)
- -1
- true
- (throw (Exception. "JSON error (invalid number literal)"))))))]
- (if decimal?
- (read-decimal (str buffer) bigdec?)
- (read-integer (str buffer)))))
-
-(defn- next-token [^InternalPBR stream]
- (loop [c (.readChar stream)]
- (if (< 32 c)
- (int c)
- (codepoint-case (int c)
- :whitespace (recur (.readChar stream))
- c))))
-
-(defn invalid-array-exception []
- (Exception. "JSON error (invalid array)"))
-
-(defn- eof-array-exception []
- (EOFException. "JSON error (EOF in array)"))
-
-(defn- read-array* [^InternalPBR stream options]
- ;; Handles all array values after the first.
- (loop [result (transient [])]
- (let [r (conj! result (-read stream true nil options))]
- (codepoint-case (int (next-token stream))
- \] (persistent! r)
- \, (recur r)
- -1 (throw (eof-array-exception))
- (throw (invalid-array-exception))))))
-
-(defn- read-array [^InternalPBR stream options]
- ;; Expects to be called with the head of the stream AFTER the
- ;; opening bracket.
- ;; Only handles array value.
- (let [c (int (next-token stream))]
- (codepoint-case c
- \] []
- \, (throw (invalid-array-exception))
- -1 (throw (eof-array-exception))
- (do (.unreadChar stream c)
- (read-array* stream options)))))
-
-(defn- object-colon-exception []
- (Exception. "JSON error (missing `:` in object)"))
-
-(defn- eof-object-exception []
- (EOFException. "JSON error (EOF in object)"))
-
-(defn- invalid-key-exception [c]
- (if (= c -1)
- (throw (eof-object-exception))
- (throw (Exception. (str "JSON error (non-string key in object), found `" (char c) "`, expected `\"`")))))
-
-(comment
- (compile 'clojure.data.json)
- )
-
-(defn- read-key [^InternalPBR stream]
- (let [c (int (next-token stream))]
- (if (= c (codepoint \"))
- (let [key (read-quoted-string stream)]
- (if (= (codepoint \:) (int (next-token stream)))
- key
- (throw (object-colon-exception))))
- (if (= c (codepoint \}))
- nil
- (invalid-key-exception c)))))
-
-(defn- read-object [^InternalPBR stream options]
- ;; Expects to be called with the head of the stream AFTER the
- ;; opening bracket.
- (let [key-fn (get options :key-fn)
- value-fn (get options :value-fn)]
- (loop [result (transient {})]
- (if-let [key (read-key stream)]
- (let [key (cond-> key key-fn key-fn)
- value (-read stream true nil options)
- r (if value-fn
- (let [out-value (value-fn key value)]
- (if-not (= value-fn out-value)
- (assoc! result key out-value)
- result))
- (assoc! result key value))]
- (codepoint-case (int (next-token stream))
- \, (recur r)
- \} (persistent! r)
- -1 (throw (eof-object-exception))
- (throw (Exception. "JSON error (missing entry in object)"))))
- (let [r (persistent! result)]
- (if (empty? r)
- r
- (throw (Exception. "JSON error empty entry in object is not allowed"))))))))
-
-(defn- -read
- [^InternalPBR stream eof-error? eof-value options]
- (let [c (int (next-token stream))]
- (codepoint-case c
- ;; Read numbers
- (\- \0 \1 \2 \3 \4 \5 \6 \7 \8 \9)
- (do (.unreadChar stream c)
- (read-number stream (:bigdec options)))
-
- ;; Read strings
- \" (read-quoted-string stream)
-
- ;; Read null as nil
- \n (if (and (= (codepoint \u) (.readChar stream))
- (= (codepoint \l) (.readChar stream))
- (= (codepoint \l) (.readChar stream)))
- nil
- (throw (Exception. "JSON error (expected null)")))
-
- ;; Read true
- \t (if (and (= (codepoint \r) (.readChar stream))
- (= (codepoint \u) (.readChar stream))
- (= (codepoint \e) (.readChar stream)))
- true
- (throw (Exception. "JSON error (expected true)")))
-
- ;; Read false
- \f (if (and (= (codepoint \a) (.readChar stream))
- (= (codepoint \l) (.readChar stream))
- (= (codepoint \s) (.readChar stream))
- (= (codepoint \e) (.readChar stream)))
- false
- (throw (Exception. "JSON error (expected false)")))
-
- ;; Read JSON objects
- \{ (read-object stream options)
-
- ;; Read JSON arrays
- \[ (read-array stream options)
-
- (if (neg? c) ;; Handle end-of-stream
- (if eof-error?
- (throw (EOFException. "JSON error (end-of-file)"))
- eof-value)
- (throw (Exception.
- (str "JSON error (unexpected character): " (char c))))))))
-
-(defn- -read1
- [^InternalPBR stream eof-error? eof-value options]
- (let [val (-read stream eof-error? eof-value options)]
- (if-let [extra-data-fn (:extra-data-fn options)]
- (if (or eof-error? (not (identical? eof-value val)))
- (let [c (.readChar stream)]
- (if (neg? c)
- val
- (do
- (.unreadChar stream c)
- (extra-data-fn val (.toReader stream)))))
- val)
- val)))
-
-(defn on-extra-throw
- "Pass as :extra-data-fn to `read` or `read-str` to throw if data is found
- after the first object."
- [val rdr]
- (throw (ex-info "Found extra data after json object" {:val val})))
-
-(defn on-extra-throw-remaining
- "Pass as :extra-data-fn to `read` or `read-str` to throw if data is found
- after the first object and return the remaining data in ex-data :remaining."
- [val rdr]
- (let [remaining (slurp rdr)]
- (throw (ex-info (str "Found extra data after json object: " remaining)
- {:val val, :remaining remaining}))))
-
-(def default-read-options {:bigdec false
- :key-fn nil
- :value-fn nil})
-(defn read
- "Reads a single item of JSON data from a java.io.Reader.
-
- If you wish to repeatedly read items from the same reader, you must
- supply a PushbackReader with buffer size >= 64, and reuse it on
- subsequent calls.
-
- Options are key-value pairs, valid options are:
-
- :eof-error? boolean
-
- If true (default) will throw exception if the stream is empty.
-
- :eof-value Object
-
- Object to return if the stream is empty and eof-error? is
- false. Default is nil.
-
- :bigdec boolean
-
- If true use BigDecimal for decimal numbers instead of Double.
- Default is false.
-
- :key-fn function
-
- Single-argument function called on JSON property names; return
- value will replace the property names in the output. Default
- is clojure.core/identity, use clojure.core/keyword to get
- keyword properties.
-
- :value-fn function
-
- Function to transform values in maps (\"objects\" in JSON) in
- the output. For each JSON property, value-fn is called with
- two arguments: the property name (transformed by key-fn) and
- the value. The return value of value-fn will replace the value
- in the output. If value-fn returns itself, the property will
- be omitted from the output. The default value-fn returns the
- value unchanged. This option does not apply to non-map
- collections.
-
- :extra-data-fn function
-
- If :extra-data-fn is not nil, then the reader will be checked
- for extra data after the read. If found, the extra-data-fn will
- be invoked with the read value and the reader. The result of
- the extra-data-fn will be returned."
- [reader & {:as options}]
- (let [{:keys [eof-error? eof-value]
- :or {eof-error? true}} options
- pbr (pushback-pbr
- (if (instance? PushbackReader reader)
- reader
- (PushbackReader. reader 64)))]
- (->> options
- (merge default-read-options)
- (-read1 pbr eof-error? eof-value))))
-
-(defn read-str
- "Reads one JSON value from input String. Options are the same as for
- read."
- [string & {:as options}]
- (let [{:keys [eof-error? eof-value]
- :or {eof-error? true}} options]
- (->> options
- (merge default-read-options)
- (-read1 (string-pbr string) eof-error? eof-value))))
-
-;;; JSON WRITER
-
-
-(defprotocol JSONWriter
- (-write [object out options]
- "Print object to Appendable out as JSON"))
-
-(defn- ->hex-string [^Appendable out cp]
- (let [cpl (long cp)]
- (.append out "\\u")
- (cond
- (< cpl 16)
- (.append out "000")
- (< cpl 256)
- (.append out "00")
- (< cpl 4096)
- (.append out "0"))
- (.append out (Integer/toHexString cp))))
-
-(def ^{:tag "[S"} codepoint-decoder
- (let [shorts (short-array 128)]
- (dotimes [i 128]
- (codepoint-case i
- \" (aset shorts i (short 1))
- \\ (aset shorts i (short 1))
- \/ (aset shorts i (short 2))
- \backspace (aset shorts i (short 3))
- \formfeed (aset shorts i (short 4))
- \newline (aset shorts i (short 5))
- \return (aset shorts i (short 6))
- \tab (aset shorts i (short 7))
- (if (< i 32)
- (aset shorts i (short 8))
- (aset shorts i (short 0)))))
- shorts))
-
-(defn- slow-write-string [^CharSequence s ^Appendable out options]
- (let [decoder codepoint-decoder
- slash (get options :escape-slash)
- escape-js-separators (get options :escape-js-separators)
- escape-unicode (get options :escape-unicode)]
- (dotimes [i (.length s)]
- (let [cp (int (.charAt s i))]
- (if (< cp 128)
- (case (aget decoder cp)
- 0 (.append out (char cp))
- 1 (do (.append out (char (codepoint \\))) (.append out (char cp)))
- 2 (.append out (if slash "\\/" "/"))
- 3 (.append out "\\b")
- 4 (.append out "\\f")
- 5 (.append out "\\n")
- 6 (.append out "\\r")
- 7 (.append out "\\t")
- 8 (->hex-string out cp))
- (codepoint-case cp
- :js-separators (if escape-js-separators
- (->hex-string out cp)
- (.append out (char cp)))
- (if escape-unicode
- (->hex-string out cp) ; Hexadecimal-escaped
- (.append out (char cp)))))))))
-
-(defn- write-string [^CharSequence s ^Appendable out options]
- (let [decoder codepoint-decoder
- l (.length s)]
- (.append out \")
- (loop [i 0]
- (if (= i l)
- (.append out s)
- (let [cp (int (.charAt s i))]
- (if (and (< cp 128)
- (zero? (aget decoder cp)))
- (recur (unchecked-inc i))
- (do
- (.append out s 0 i)
- (slow-write-string (.subSequence s i l) out options))))))
- (.append out \")))
-
-(defn- write-indent [^Appendable out options]
- (let [indent-depth (:indent-depth options)]
- (.append out \newline)
- (loop [i indent-depth]
- (when (pos? i)
- (.append out " ")
- (recur (dec i))))))
-
-(defn- write-object [m ^Appendable out options]
- (let [key-fn (get options :key-fn)
- value-fn (get options :value-fn)
- indent (get options :indent)
- opts (cond-> options
- indent (update :indent-depth inc))]
- (.append out \{)
- (when (and indent (seq m))
- (write-indent out opts))
- (loop [x m, have-printed-kv false]
- (when (seq x)
- (let [[k v] (first x)
- out-key (key-fn k)
- out-value (value-fn k v)
- nxt (next x)]
- (when-not (string? out-key)
- (throw (Exception. "JSON object keys must be strings")))
- (if-not (= value-fn out-value)
- (do
- (when have-printed-kv
- (.append out \,)
- (when indent
- (write-indent out opts)))
- (write-string out-key out opts)
- (.append out \:)
- (when indent
- (.append out \space))
- (-write out-value out opts)
- (when (seq nxt)
- (recur nxt true)))
- (when (seq nxt)
- (recur nxt have-printed-kv))))))
- (when (and indent (seq m))
- (write-indent out options)))
- (.append out \}))
-
-(defn- write-array [s ^Appendable out options]
- (let [indent (get options :indent)
- opts (cond-> options
- indent (update :indent-depth inc))]
- (.append out \[)
- (when (and indent (seq s))
- (write-indent out opts))
- (loop [x s]
- (when (seq x)
- (let [fst (first x)
- nxt (next x)]
- (-write fst out opts)
- (when (seq nxt)
- (.append out \,)
- (when indent
- (write-indent out opts))
- (recur nxt)))))
- (when (and indent (seq s))
- (write-indent out options)))
- (.append out \]))
-
-(defn- write-bignum [x ^Appendable out options]
- (.append out (str x)))
-
-(defn- write-float [^Float x ^Appendable out options]
- (cond (.isInfinite x)
- (throw (Exception. "JSON error: cannot write infinite Float"))
- (.isNaN x)
- (throw (Exception. "JSON error: cannot write Float NaN"))
- :else
- (.append out (str x))))
-
-(defn- write-double [^Double x ^Appendable out options]
- (cond (.isInfinite x)
- (throw (Exception. "JSON error: cannot write infinite Double"))
- (.isNaN x)
- (throw (Exception. "JSON error: cannot write Double NaN"))
- :else
- (.append out (str x))))
-
-(defn- write-plain [x ^Appendable out options]
- (.append out (str x)))
-
-(defn- write-uuid [^java.util.UUID x ^Appendable out options]
- (.append out \")
- (.append out (.toString x))
- (.append out \"))
-
-(defn- write-instant [^java.time.Instant x ^Appendable out options]
- (let [formatter ^java.time.format.DateTimeFormatter (:date-formatter options)]
- (.append out \")
- (.append out (.format formatter x))
- (.append out \")))
-
-(defn- write-date [^java.util.Date x ^Appendable out options]
- (write-instant (.toInstant x) out options))
-
-(defn- default-sql-date->instant-fn [^java.sql.Date d]
- (.toInstant (.atStartOfDay (.toLocalDate d) (java.time.ZoneId/systemDefault))))
-
-(defn- write-sql-date [^java.sql.Date x ^Appendable out options]
- (let [->instant (:sql-date-converter options)]
- (write-instant (->instant x) out options)))
-
-(defn- write-null [x ^Appendable out options]
- (.append out "null"))
-
-(defn- write-named [x out options]
- (write-string (name x) out options))
-
-(defn- write-generic [x out options]
- (if (.isArray (class x))
- (-write (seq x) out options)
- ((:default-write-fn options) x out options)))
-
-(defn- write-ratio [x out options]
- (-write (double x) out options))
-
-;; nil, true, false
-(extend nil JSONWriter {:-write write-null})
-(extend java.lang.Boolean JSONWriter {:-write write-plain})
-
-;; Numbers
-(extend java.lang.Byte JSONWriter {:-write write-plain})
-(extend java.lang.Short JSONWriter {:-write write-plain})
-(extend java.lang.Integer JSONWriter {:-write write-plain})
-(extend java.lang.Long JSONWriter {:-write write-plain})
-(extend java.lang.Float JSONWriter {:-write write-float})
-(extend java.lang.Double JSONWriter {:-write write-double})
-(extend clojure.lang.Ratio JSONWriter {:-write write-ratio})
-(extend java.math.BigInteger JSONWriter {:-write write-bignum})
-(extend java.math.BigDecimal JSONWriter {:-write write-bignum})
-(extend java.util.concurrent.atomic.AtomicInteger JSONWriter {:-write write-plain})
-(extend java.util.concurrent.atomic.AtomicLong JSONWriter {:-write write-plain})
-(extend java.util.UUID JSONWriter {:-write write-uuid})
-(extend java.time.Instant JSONWriter {:-write write-instant})
-(extend java.util.Date JSONWriter {:-write write-date})
-(extend java.sql.Date JSONWriter {:-write write-sql-date})
-(extend clojure.lang.BigInt JSONWriter {:-write write-bignum})
-
-;; Symbols, Keywords, and Strings
-(extend clojure.lang.Named JSONWriter {:-write write-named})
-(extend java.lang.CharSequence JSONWriter {:-write write-string})
-
-;; Collections
-(extend java.util.Map JSONWriter {:-write write-object})
-(extend java.util.Collection JSONWriter {:-write write-array})
-
-;; Maybe a Java array, otherwise fail
-(extend java.lang.Object JSONWriter {:-write write-generic})
-
-(defn- default-write-fn [x out options]
- (throw (Exception. (str "Don't know how to write JSON of " (class x)))))
-
-(def default-write-options {:escape-unicode true
- :escape-js-separators true
- :escape-slash true
- :sql-date-converter default-sql-date->instant-fn
- :date-formatter java.time.format.DateTimeFormatter/ISO_INSTANT
- :key-fn default-write-key-fn
- :value-fn default-value-fn
- :default-write-fn default-write-fn
- :indent false
- :indent-depth 0 ;; internal, to track nesting depth
- })
-(defn write
- "Write JSON-formatted output to a java.io.Writer. Options are
- key-value pairs, valid options are:
-
- :escape-unicode boolean
-
- If true (default) non-ASCII characters are escaped as \\uXXXX
-
- :escape-js-separators boolean
-
- If true (default) the Unicode characters U+2028 and U+2029 will
- be escaped as \\u2028 and \\u2029 even if :escape-unicode is
- false. (These two characters are valid in pure JSON but are not
- valid in JavaScript strings.)
-
- :escape-slash boolean
-
- If true (default) the slash / is escaped as \\/
-
- :sql-date-converter function
-
- Single-argument function used to convert a java.sql.Date to
- a java.time.Instant. As java.sql.Date does not have a
- time-component (which is required by java.time.Instant), it needs
- to be computed. The default implementation, `default-sql-date->instant-fn`
- uses
- ```
- (.toInstant (.atStartOfDay (.toLocalDate sql-date) (java.time.ZoneId/systemDefault)))
- ```
-
- :date-formatter
-
- A java.time.DateTimeFormatter instance, defaults to DateTimeFormatter/ISO_INSTANT
-
- :key-fn function
-
- Single-argument function called on map keys; return value will
- replace the property names in the output. Must return a
- string. Default calls clojure.core/name on symbols and
- keywords and clojure.core/str on everything else.
-
- :value-fn function
-
- Function to transform values in maps before writing. For each
- key-value pair in an input map, called with two arguments: the
- key (BEFORE transformation by key-fn) and the value. The
- return value of value-fn will replace the value in the output.
- If the return value is a number, boolean, string, or nil it
- will be included literally in the output. If the return value
- is a non-map collection, it will be processed recursively. If
- the return value is a map, it will be processed recursively,
- calling value-fn again on its key-value pairs. If value-fn
- returns itself, the key-value pair will be omitted from the
- output. This option does not apply to non-map collections.
-
- :default-write-fn function
-
- Function to handle types which are unknown to data.json. Defaults
- to a function which throws an exception. Expects to be called with
- three args, the value to be serialized, the output stream, and the
- options map.
-
- :indent boolean
-
- If true, indent json while writing (default = false)."
- [x ^Writer writer & {:as options}]
- (-write x writer (merge default-write-options options)))
-
-(defn write-str
- "Converts x to a JSON-formatted string. Options are the same as
- write."
- ^String [x & {:as options}]
- (let [sw (StringWriter.)]
- (-write x sw (merge default-write-options options))
- (.toString sw)))
-
-;;; JSON PRETTY-PRINTER
-
-;; Based on code by Tom Faulhaber
-
-(defn- pprint-array [s]
- ((pprint/formatter-out "~<[~;~@{~w~^, ~:_~}~;]~:>") s))
-
-(defn- pprint-object [m options]
- (let [key-fn (:key-fn options)]
- ((pprint/formatter-out "~<{~;~@{~<~w:~_~w~:>~^, ~_~}~;}~:>")
- (for [[k v] m] [(key-fn k) v]))))
-
-(defn- pprint-generic [x options]
- (if (.isArray (class x))
- (pprint-array (seq x))
- ;; pprint proxies Writer, so we can't just wrap it
- (print (with-out-str (-write x (PrintWriter. *out*) options)))))
-
-(defn- pprint-dispatch [x options]
- (cond (nil? x) (print "null")
- (instance? java.util.Map x) (pprint-object x options)
- (instance? java.util.Collection x) (pprint-array x)
- (instance? clojure.lang.ISeq x) (pprint-array x)
- :else (pprint-generic x options)))
-
-(defn pprint
- "Pretty-prints JSON representation of x to *out*. Options are the same
- as for write except :value-fn and :indent, which are not supported."
- [x & {:as options}]
- (let [opts (merge default-write-options options)]
- (pprint/with-pprint-dispatch #(pprint-dispatch % opts)
- (pprint/pprint x))))
-
-;; DEPRECATED APIs from 0.1.x
-
-(defn read-json
- "DEPRECATED; replaced by read-str.
-
- Reads one JSON value from input String or Reader. If keywordize? is
- true (default), object keys will be converted to keywords. If
- eof-error? is true (default), empty input will throw an
- EOFException; if false EOF will return eof-value."
- ([input]
- (read-json input true true nil))
- ([input keywordize?]
- (read-json input keywordize? true nil))
- ([input keywordize? eof-error? eof-value]
- (let [key-fn (if keywordize? keyword identity)]
- (condp instance? input
- String
- (read-str input
- :key-fn key-fn
- :eof-error? eof-error?
- :eof-value eof-value)
- java.io.Reader
- (read input
- :key-fn key-fn
- :eof-error? eof-error?
- :eof-value eof-value)))))
-
-(defn write-json
- "DEPRECATED; replaced by 'write'.
-
- Print object to PrintWriter out as JSON"
- [x out escape-unicode?]
- (write x out :escape-unicode escape-unicode?))
-
-(defn json-str
- "DEPRECATED; replaced by 'write-str'.
-
- Converts x to a JSON-formatted string.
-
- Valid options are:
- :escape-unicode false
- to turn of \\uXXXX escapes of Unicode characters."
- [x & options]
- (apply write-str x options))
-
-(defn print-json
- "DEPRECATED; replaced by 'write' to *out*.
-
- Write JSON-formatted output to *out*.
-
- Valid options are:
- :escape-unicode false
- to turn off \\uXXXX escapes of Unicode characters."
- [x & options]
- (apply write x *out* options))
-
-(defn pprint-json
- "DEPRECATED; replaced by 'pprint'.
-
- Pretty-prints JSON representation of x to *out*.
-
- Valid options are:
- :escape-unicode false
- to turn off \\uXXXX escapes of Unicode characters."
- [x & options]
- (apply pprint x options))
diff --git a/src/test/clojure-perf/clojure/data/json_perf_test.clj b/src/test/clojure-perf/clojure/data/json_perf_test.clj
deleted file mode 100644
index 16ff39f..0000000
--- a/src/test/clojure-perf/clojure/data/json_perf_test.clj
+++ /dev/null
@@ -1,163 +0,0 @@
-(ns clojure.data.json-perf-test
- (:require [cheshire.core :as cheshire]
- [clj-async-profiler.core :as prof]
- [clojure.data.json :as json]
- [criterium.core :refer :all]
- [jsonista.core :as jsonista]
- [clojure.string :as str])
- (:import com.jsoniter.JsonIterator))
-
-(defmacro profiling [times & body]
- `(try
- (prof/start {})
- (dotimes [_# ~times]
- ~@body)
- (finally
- (prof/stop {:transform (fn [s#]
- (if (or (str/index-of s# "err_codes_unix")
- (str/index-of s# "["))
- nil
- (-> s#
- (str/replace #"^.+/.*read-profiling.+?;" "START;")
- (str/replace #"^.*nextToken.*" "jackson-next-token")
- (str/replace #"^.*getText.*" "jackson-get-text")
- (str/replace #"^.*next.token.*" "data-json-next-token")
- (str/replace #"^.*read.quoted.string.*" "data-json-read_quoted_string")
- (str/replace #".*assoc.*" "ASSOC;")
- (str/replace #".*Map.*" "ASSOC;"))))}))))
-
-(defn json-data [size]
- (slurp (str "dev-resources/json" size ".json")))
-
-(defn do-read-bench [size]
- (let [json (json-data size)]
- (println "Results for" size "json:")
- (println "data.json:")
- (println (with-out-str (quick-bench (json/read-str json))))
- (println "cheshire:")
- (println (with-out-str (quick-bench (cheshire/parse-string-strict json))))
- (println "jsonista:")
- (println (with-out-str (quick-bench (jsonista/read-value json))))
- (println "jsoniter:")
- (println (with-out-str (quick-bench (.read (JsonIterator/parse ^String json)))))))
-
-(defn do-write-bench [size]
- (let [edn (json/read-str (json-data size))]
- (println "Results for" size "json:")
- (println "data.json:")
- (println (with-out-str (quick-bench (json/write-str edn))))
- (println "cheshire:")
- (println (with-out-str (quick-bench (cheshire/generate-string edn))))
- (println "jsonista:")
- (println (with-out-str (quick-bench (jsonista/write-value-as-string edn))))))
-
-(defn read-bench-all-sizes []
- (doseq [size ["10b" "100b" "1k" "10k" "100k"]]
- (do-read-bench size)))
-
-(defn write-bench-all-sizes []
- (doseq [size ["10b" "100b" "1k" "10k" "100k"]]
- (do-write-bench size)))
-
-(defn profile-read-all-sizes []
- (doseq [size ["10b" "100b" "1k" "10k" "100k"]]
- (let [json (json-data size)]
- (profiling 10000 (json/read-str json))
- (Thread/sleep 1000))))
-
-(defn profile-write-all-sizes []
- (doseq [size ["10b" "100b" "1k" "10k" "100k"]]
- (let [edn (json/read-str (json-data size))]
- (profiling 10000 (json/write-str edn))
- (Thread/sleep 1000))))
-
-(defn read-bench-data-json []
- (doseq [size ["10b" "100b" "1k" "10k" "100k"]]
- (let [json (json-data size)]
- (quick-bench (json/read-str json)))))
-
-(defn write-bench-data-json []
- (doseq [size ["10b" "100b" "1k" "10k" "100k"]]
- (let [json (json/read-str (json-data size))]
- (quick-bench (json/write-str json)))))
-
-(defn write-profiling []
- (doseq [size ["10b" "100b" "1k" "10k" "100k"]]
- (let [json (json/read-str (json-data size))]
- (profiling 10000 (json/write-str json)))))
-
-(defn read-profiling []
- (doseq [size ["10b" "100b" "1k" "10k" "100k"]]
- (let [json (json-data size)]
- (profiling 10000 (json/read-str json)))))
-
-(defn cheshire-read-profiling []
- (doseq [size ["10b" "100b" "1k" "10k" "100k"]]
- (let [json (json-data size)]
- (profiling 10000 (cheshire/parse-string-strict json)))))
-
-(defn jsonista-read-profiling []
- (doseq [size ["10b" "100b" "1k" "10k" "100k"]]
- (let [json (json-data size)]
- (profiling 10000 (jsonista/read-value json)))))
-
-
-(defn benchit [data]
- (let [json (json/write-str data)]
- (quick-bench (json/read-str json))
- (quick-bench (cheshire/parse-string-strict json))))
-
-;; Used to generate 1000-numbers.json
-(defn gen-int []
- (str (rand-int 1000)))
-
-(defn gen-frac []
- (str "." (rand-int 1000)))
-
-(defn gen-exp []
- (str (rand-nth ["e" "E"]) (rand-nth ["" "-" "+"]) (rand-int 5)))
-
-(defn generate-random-json-number []
- (case (rand-int 8)
- ; int
- 0 (gen-int)
- 1 (str "-" (gen-int))
- ; frac
- 2 (str (gen-int) (gen-frac))
- 3 (str "-" (gen-int) (gen-frac))
- ; exp
- 4 (str (gen-int) (gen-exp))
- 5 (str "-" (gen-int) (gen-exp))
- ; combo
- 6 (str (gen-int) (gen-frac) (gen-exp))
- 7 (str "-" (gen-int) (gen-frac) (gen-exp))))
-
-(defn generate-random-json-numbers [n]
- ;; used to generate dev-resources/1000-numbers.json
- (->> (for [x (range n)]
- (generate-random-json-number))
- (str/join ", ")
- (#(str "[" % "]"))))
-
-(defn read-bench-all-sizes-numbers []
- (let [json (slurp "dev-resources/1000-numbers.json")]
- (println "data.json:")
- (println (with-out-str (quick-bench (json/read-str json))))
- (println "cheshire:")
- (println (with-out-str (quick-bench (cheshire/parse-string-strict json))))
- (println "jsonista:")
- (println (with-out-str (quick-bench (jsonista/read-value json))))
- (println "jsoniter:")
- (println (with-out-str (quick-bench (.read (JsonIterator/parse ^String json)))))))
-
-(defn read-bench-nested-arrays []
- (let [json (slurp "dev-resources/nested-arrays.json")]
- (println "Results for nested arrays:")
- (println "data.json:")
- (println (with-out-str (quick-bench (json/read-str json))))
- (println "cheshire:")
- (println (with-out-str (quick-bench (cheshire/parse-string-strict json))))
- (println "jsonista:")
- (println (with-out-str (quick-bench (jsonista/read-value json))))
- (println "jsoniter:")
- (println (with-out-str (quick-bench (.read (JsonIterator/parse ^String json)))))))
diff --git a/src/test/clojure/clojure/data/json_compat_0_1_test.clj b/src/test/clojure/clojure/data/json_compat_0_1_test.clj
deleted file mode 100644
index 67aa0f7..0000000
--- a/src/test/clojure/clojure/data/json_compat_0_1_test.clj
+++ /dev/null
@@ -1,226 +0,0 @@
-;; Copyright (c) Stuart Sierra, 2012. All rights reserved. The use and
-;; distribution terms for this software are covered by the Eclipse
-;; Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
-;; By using this software in any fashion, you are agreeing to be bound
-;; by the terms of this license. You must not remove this notice, or
-;; any other, from this software.
-
-(ns clojure.data.json-compat-0-1-test
- "Compatibility tests for the 0.1.x data.json API."
- (:use clojure.test
- [clojure.data.json :only (read-json json-str pprint-json)]))
-
-(deftest can-read-from-pushback-reader
- (let [s (java.io.PushbackReader. (java.io.StringReader. "42"))]
- (is (= 42 (read-json s)))))
-
-(deftest can-read-from-reader
- (let [s (java.io.StringReader. "42")]
- (is (= 42 (read-json s)))))
-
-(deftest can-read-numbers
- (is (= 42 (read-json "42")))
- (is (= -3 (read-json "-3")))
- (is (= 3.14159 (read-json "3.14159")))
- (is (= 6.022e23 (read-json "6.022e23"))))
-
-(deftest can-read-null
- (is (= nil (read-json "null"))))
-
-(deftest can-read-strings
- (is (= "Hello, World!" (read-json "\"Hello, World!\""))))
-
-(deftest handles-escaped-slashes-in-strings
- (is (= "/foo/bar" (read-json "\"\\/foo\\/bar\""))))
-
-(deftest handles-unicode-escapes
- (is (= " \u0beb " (read-json "\" \\u0bEb \""))))
-
-(deftest handles-unicode-outside-bmp
- (is (= "\"smiling face: \uD83D\uDE03\""
- (json-str "smiling face: \uD83D\uDE03" :escape-unicode false)))
- (is (= "\"smiling face: \\ud83d\\ude03\""
- (json-str "smiling face: \uD83D\uDE03" :escape-unicode true))))
-
-(deftest handles-escaped-whitespace
- (is (= "foo\nbar" (read-json "\"foo\\nbar\"")))
- (is (= "foo\rbar" (read-json "\"foo\\rbar\"")))
- (is (= "foo\tbar" (read-json "\"foo\\tbar\""))))
-
-(deftest can-read-booleans
- (is (= true (read-json "true")))
- (is (= false (read-json "false"))))
-
-(deftest can-ignore-whitespace
- (is (= nil (read-json "\r\n null"))))
-
-(deftest can-read-arrays
- (is (= [1 2 3] (read-json "[1,2,3]")))
- (is (= ["Ole" "Lena"] (read-json "[\"Ole\", \r\n \"Lena\"]"))))
-
-(deftest can-read-objects
- (is (= {:a 1, :b 2} (read-json "{\"a\": 1, \"b\": 2}"))))
-
-(deftest can-read-nested-structures
- (is (= {:a [1 2 {:b [3 "four"]} 5.5]}
- (read-json "{\"a\":[1,2,{\"b\":[3,\"four\"]},5.5]}"))))
-
-(deftest disallows-non-string-keys
- (is (thrown? Exception (read-json "{26:\"z\""))))
-
-(deftest disallows-barewords
- (is (thrown? Exception (read-json " foo "))))
-
-(deftest disallows-unclosed-arrays
- (is (thrown? Exception (read-json "[1, 2, "))))
-
-(deftest disallows-unclosed-objects
- (is (thrown? Exception (read-json "{\"a\":1, "))))
-
-(deftest can-get-string-keys
- (is (= {"a" [1 2 {"b" [3 "four"]} 5.5]}
- (read-json "{\"a\":[1,2,{\"b\":[3,\"four\"]},5.5]}" false true nil))))
-
-(declare pass1-string)
-
-(deftest pass1-test
- (let [input (read-json pass1-string false true nil)]
- (is (= "JSON Test Pattern pass1" (first input)))
- (is (= "array with 1 element" (get-in input [1 "object with 1 member" 0])))
- (is (= 1234567890 (get-in input [8 "integer"])))
- (is (= "rosebud" (last input)))))
-
-; from http://www.json.org/JSON_checker/test/pass1.json
-(def pass1-string
- "[
- \"JSON Test Pattern pass1\",
- {\"object with 1 member\":[\"array with 1 element\"]},
- {},
- [],
- -42,
- true,
- false,
- null,
- {
- \"integer\": 1234567890,
- \"real\": -9876.543210,
- \"e\": 0.123456789e-12,
- \"E\": 1.234567890E+34,
- \"\": 23456789012E66,
- \"zero\": 0,
- \"one\": 1,
- \"space\": \" \",
- \"quote\": \"\\\"\",
- \"backslash\": \"\\\\\",
- \"controls\": \"\\b\\f\\n\\r\\t\",
- \"slash\": \"/ & \\/\",
- \"alpha\": \"abcdefghijklmnopqrstuvwyz\",
- \"ALPHA\": \"ABCDEFGHIJKLMNOPQRSTUVWYZ\",
- \"digit\": \"0123456789\",
- \"0123456789\": \"digit\",
- \"special\": \"`1~!@#$%^&*()_+-={':[,]}|;.?\",
- \"hex\": \"\\u0123\\u4567\\u89AB\\uCDEF\\uabcd\\uef4A\",
- \"true\": true,
- \"false\": false,
- \"null\": null,
- \"array\":[ ],
- \"object\":{ },
- \"address\": \"50 St. James Street\",
- \"url\": \"http://www.JSON.org/\",
- \"comment\": \"// /* */\": \" \",
- \" s p a c e d \" :[1,2 , 3
-
-,
-
-4 , 5 , 6 ,7 ],\"compact\":[1,2,3,4,5,6,7],
- \"jsontext\": \"{\\\"object with 1 member\\\":[\\\"array with 1 element\\\"]}\",
- \"quotes\": \"" \\u0022 %22 0x22 034 "\",
- \"\\/\\\\\\\"\\uCAFE\\uBABE\\uAB98\\uFCDE\\ubcda\\uef4A\\b\\f\\n\\r\\t`1~!@#$%^&*()_+-=[]{}|;:',./<>?\"
-: \"A key can be any string\"
- },
- 0.5 ,98.6
-,
-99.44
-,
-
-1066,
-1e1,
-0.1e1,
-1e-1,
-1e00,2e+00,2e-00
-,\"rosebud\"]")
-
-
-(deftest can-print-json-strings
- (is (= "\"Hello, World!\"" (json-str "Hello, World!")))
- (is (= "\"\\\"Embedded\\\" Quotes\"" (json-str "\"Embedded\" Quotes"))))
-
-(deftest can-print-unicode
- (is (= "\"\\u1234\\u4567\"" (json-str "\u1234\u4567"))))
-
-(deftest can-print-nonescaped-unicode
- (is (= "\"\u1234\u4567\"" (json-str "\u1234\u4567" :escape-unicode false))))
-
-(deftest can-print-json-null
- (is (= "null" (json-str nil))))
-
-(deftest can-print-ratios-as-doubles
- (is (= "0.75" (json-str 3/4))))
-
-(deftest can-print-bigints
- (is (= "12345678901234567890" (json-str 12345678901234567890))))
-
-(deftest can-print-json-arrays
- (is (= "[1,2,3]" (json-str [1 2 3])))
- (is (= "[1,2,3]" (json-str (list 1 2 3))))
- (is (= "[1,2,3]" (json-str (sorted-set 1 2 3))))
- (is (= "[1,2,3]" (json-str (seq [1 2 3])))))
-
-(deftest can-print-java-arrays
- (is (= "[1,2,3]" (json-str (into-array [1 2 3])))))
-
-(deftest can-print-empty-arrays
- (is (= "[]" (json-str [])))
- (is (= "[]" (json-str (list))))
- (is (= "[]" (json-str #{}))))
-
-(deftest can-print-json-objects
- (is (= "{\"a\":1,\"b\":2}" (json-str (sorted-map :a 1 :b 2)))))
-
-(deftest object-keys-must-be-strings
- (is (= "{\"1\":1,\"2\":2}" (json-str (sorted-map 1 1 2 2)))))
-
-(deftest can-print-empty-objects
- (is (= "{}" (json-str {}))))
-
-(deftest accept-sequence-of-nils
- (is (= "[null,null,null]" (json-str [nil nil nil]))))
-
-(deftest error-on-nil-keys
- (is (thrown? Exception (json-str {nil 1}))))
-
-(deftest characters-in-symbols-are-escaped
- (is (= "\"foo\\u1b1b\"" (json-str (symbol "foo\u1b1b")))))
-
-(deftest default-throws-on-eof
- (is (thrown? java.io.EOFException (read-json ""))))
-
-(deftest can-accept-eof
- (is (= ::eof (read-json "" true false ::eof))))
-
-(deftest characters-in-map-keys-are-escaped
- (is (= (json-str {"\"" 42}) "{\"\\\"\":42}")))
-
-;;; Pretty-printer
-
-(deftest pretty-printing
- (let [x (read-json pass1-string false)]
- (is (= x (read-json (with-out-str (pprint-json x)) false)))))
-
-(defn benchmark []
- (dotimes [_ 8]
- (time
- (dotimes [_ 100]
- (assert (= (read-json pass1-string false)
- (read-json (json-str (read-json pass1-string false)) false)))))))
diff --git a/src/test/clojure/clojure/data/json_gen_test.clj b/src/test/clojure/clojure/data/json_gen_test.clj
deleted file mode 100644
index 885d7ae..0000000
--- a/src/test/clojure/clojure/data/json_gen_test.clj
+++ /dev/null
@@ -1,34 +0,0 @@
-(ns clojure.data.json-gen-test
- (:require [clojure.data.json :as json]
- [clojure.spec.alpha :as s]
- [clojure.spec.gen.alpha :as sgen]
- [clojure.spec.test.alpha :as stest]
- [clojure.test :refer :all]))
-
-(s/def ::json-number
- (s/with-gen
- number?
- #(sgen/one-of [(sgen/large-integer) (sgen/double* {:infinite? false :NaN? false})])))
-
-(s/def ::json-scalar (s/or :boolean boolean?
- :number ::json-number
- :string string?
- :nil nil?))
-
-(s/def ::json-value (s/or :object ::json-object
- :array ::json-array
- :scalar ::json-scalar))
-
-(s/def ::json-array (s/coll-of ::json-value :gen-max 12))
-(s/def ::json-object (s/map-of string? ::json-value
- :gen-max 10))
-
-(s/fdef json/write-str
- :args (s/cat :json ::json-value)
- :ret string?
- :fn #(= (->> % :args :json (s/unform ::json-value))
- (json/read-str (-> % :ret))))
-
-(deftest roundtrip
- (let [results (stest/check `json/write-str)]
- (is (every? nil? (mapv :failure results)))))
diff --git a/src/test/clojure/clojure/data/json_test.clj b/src/test/clojure/clojure/data/json_test.clj
deleted file mode 100644
index aa6d79c..0000000
--- a/src/test/clojure/clojure/data/json_test.clj
+++ /dev/null
@@ -1,514 +0,0 @@
-(ns clojure.data.json-test
- (:require [clojure.data.json :as json]
- [clojure.test :refer :all]
- [clojure.string :as str]))
-
-(defn pbr
- ([s]
- (pbr s 64))
- ([s size]
- (if (< size 64)
- (throw (RuntimeException. "Size must be >= 64"))
- (java.io.PushbackReader. (java.io.StringReader. s) size))))
-
-(deftest read-from-pushback-reader
- (is (= 42 (json/read (pbr "42"))))
- (is (= ["abc" "def"] (json/read (pbr "[\"abc\", \"def\"]")))))
-
-;; DJSON-50 - pass PBR to safely do repeated read
-(deftest read-multiple
- (let [st "{\"foo\":\"some string\"}{\"foo\":\"another string\"}"
- pbr (pbr st)]
- (is (= {"foo" "some string"} (json/read pbr)))
- (is (= {"foo" "another string"} (json/read pbr))))
-
- (let [st "{\"foo\":\"some string\"}{\"foo\":\"another long ......................................................... string\"}"
- pbr (pbr st)]
- (is (= {"foo" "some string"} (json/read pbr)))
- (is (= {"foo" "another long ......................................................... string"} (json/read pbr)))))
-
-(defn read-then-eof [s]
- (let [r (pbr s)
- val (json/read r :eof-error? false :eof-value :EOF)]
- (is (= :EOF (json/read r :eof-error? false :eof-value :EOF)))
- val))
-
-(deftest read-multiple-eof
- (are [expected s] (= expected (read-then-eof s))
- 1.2 "1.2"
- 0 "0"
- 1 "1"
- 1.0 "1.0"
- "abc" "\"abc\""
- "\u2202" "\"\u2202\""
- [] "[]"
- [1 2] "[1, 2]")
- )
-
-(deftest read-from-reader
- (let [s (java.io.StringReader. "42")]
- (is (= 42 (json/read s)))))
-
-(deftest read-numbers
- (is (= 42 (json/read-str "42")))
- (is (= -3 (json/read-str "-3")))
- (is (= 3.14159 (json/read-str "3.14159")))
- (is (= 6.022e23 (json/read-str "6.022e23"))))
-
-(deftest read-bigint
- (is (= 123456789012345678901234567890N
- (json/read-str "123456789012345678901234567890"))))
-
-(deftest lenient-on-extra-data
- (is (= [42] (json/read-str "[42],abc")))
- (is (= [42] (json/read (java.io.StringReader. "[42],abc")))))
-
-(deftest strict-on-extra-data
- ;; on-extra-throw
- (is (thrown? clojure.lang.ExceptionInfo
- (json/read-str "[42],abc" :extra-data-fn json/on-extra-throw)))
- (is (thrown? clojure.lang.ExceptionInfo
- (json/read (java.io.StringReader. "[42],abc") :extra-data-fn json/on-extra-throw)))
-
- ;; on-extra-throw-remaining
- (try
- (json/read-str "[42],abc" :extra-data-fn json/on-extra-throw-remaining)
- (is false "expected exception to be thrown")
- (catch clojure.lang.ExceptionInfo e
- (is (= ",abc" (:remaining (ex-data e))))))
- (try
- (json/read-str "[1], 1]" :extra-data-fn json/on-extra-throw-remaining)
- (is false "expected exception to be thrown")
- (catch clojure.lang.ExceptionInfo e
- (is (= ", 1]" (:remaining (ex-data e))))))
-
- ;; check that empty input behavior not modified when :extra-data-fn specified
- (is (= :hi (json/read-str ""
- :eof-error? false, :eof-value :hi, :extra-data-fn json/on-extra-throw)))
- (is (= :hi (json/read (java.io.StringReader. "")
- :eof-error? false, :eof-value :hi, :extra-data-fn json/on-extra-throw))))
-
-(deftest write-bigint
- (is (= "123456789012345678901234567890"
- (json/write-str 123456789012345678901234567890N))))
-
-(deftest read-bigdec
- (is (= 3.14159M (json/read-str "3.14159" :bigdec true))))
-
-(deftest write-bigdec
- (is (= "3.14159" (json/write-str 3.14159M))))
-
-(deftest read-null
- (is (= nil (json/read-str "null"))))
-
-(deftest read-strings
- (is (= "Hello, World!" (json/read-str "\"Hello, World!\""))))
-
-(deftest escaped-slashes-in-strings
- (is (= "/foo/bar" (json/read-str "\"\\/foo\\/bar\""))))
-
-(deftest unicode-escapes
- (is (= " \u0beb " (json/read-str "\" \\u0bEb \""))))
-
-(deftest unicode-outside-bmp
- (is (= "\"smiling face: \uD83D\uDE03\""
- (json/write-str "smiling face: \uD83D\uDE03" :escape-unicode false)))
- (is (= "\"smiling face: \\ud83d\\ude03\""
- (json/write-str "smiling face: \uD83D\uDE03" :escape-unicode true))))
-
-(deftest escaped-whitespace
- (is (= "foo\nbar" (json/read-str "\"foo\\nbar\"")))
- (is (= "foo\rbar" (json/read-str "\"foo\\rbar\"")))
- (is (= "foo\tbar" (json/read-str "\"foo\\tbar\""))))
-
-(deftest read-booleans
- (is (= true (json/read-str "true")))
- (is (= false (json/read-str "false"))))
-
-(deftest ignore-whitespace
- (is (= nil (json/read-str "\r\n null"))))
-
-(deftest read-arrays
- (is (= (vec (range 35))
- (json/read-str "[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34]")))
- (is (= ["Ole" "Lena"] (json/read-str "[\"Ole\", \r\n \"Lena\"]"))))
-
-(deftest read-objects
- (is (= {:k1 1, :k2 2, :k3 3, :k4 4, :k5 5, :k6 6, :k7 7, :k8 8
- :k9 9, :k10 10, :k11 11, :k12 12, :k13 13, :k14 14, :k15 15, :k16 16}
- (json/read-str "{\"k1\": 1, \"k2\": 2, \"k3\": 3, \"k4\": 4,
- \"k5\": 5, \"k6\": 6, \"k7\": 7, \"k8\": 8,
- \"k9\": 9, \"k10\": 10, \"k11\": 11, \"k12\": 12,
- \"k13\": 13, \"k14\": 14, \"k15\": 15, \"k16\": 16}"
- :key-fn keyword))))
-
-(deftest read-nested-structures
- (is (= {:a [1 2 {:b [3 "four"]} 5.5]}
- (json/read-str "{\"a\":[1,2,{\"b\":[3,\"four\"]},5.5]}"
- :key-fn keyword))))
-
-(deftest read-nested-structures-stream
- (is (= {:a [1 2 {:b [3 "four"]} 5.5]}
- (json/read (java.io.StringReader. "{\"a\":[1,2,{\"b\":[3,\"four\"]},5.5]}")
- :key-fn keyword))))
-
-(deftest reads-long-string-correctly
- (let [long-string (str/join "" (take 100 (cycle "abcde")))]
- (is (= long-string (json/read-str (str "\"" long-string "\""))))))
-
-(deftest disallows-non-string-keys
- (is (thrown? Exception (json/read-str "{26:\"z\""))))
-
-(deftest disallows-barewords
- (is (thrown? Exception (json/read-str " foo "))))
-
-(deftest disallows-unclosed-arrays
- (is (thrown? Exception (json/read-str "[1, 2, "))))
-
-(deftest disallows-unclosed-objects
- (is (thrown? Exception (json/read-str "{\"a\":1, "))))
-
-(deftest disallows-empty-entry-in-object
- (is (thrown? Exception (json/read-str "{\"a\":1,}")))
- (is (thrown? Exception (json/read-str "{\"a\":1, }")))
- (is (thrown? Exception (json/read-str "{\"a\":1,,,,}")))
- (is (thrown? Exception (json/read-str "{\"a\":1,,\"b\":2}"))))
-
-(deftest get-string-keys
- (is (= {"a" [1 2 {"b" [3 "four"]} 5.5]}
- (json/read-str "{\"a\":[1,2,{\"b\":[3,\"four\"]},5.5]}"))))
-
-(deftest keywordize-keys
- (is (= {:a [1 2 {:b [3 "four"]} 5.5]}
- (json/read-str "{\"a\":[1,2,{\"b\":[3,\"four\"]},5.5]}"
- :key-fn keyword))))
-
-(deftest convert-values
- (is (= {:number 42 :date (java.sql.Date. 55 6 12)}
- (json/read-str "{\"number\": 42, \"date\": \"1955-07-12\"}"
- :key-fn keyword
- :value-fn (fn [k v]
- (if (= :date k)
- (java.sql.Date/valueOf ^String v)
- v))))))
-
-(deftest omit-values
- (is (= {:number 42}
- (json/read-str "{\"number\": 42, \"date\": \"1955-07-12\"}"
- :key-fn keyword
- :value-fn (fn thisfn [k v]
- (if (= :date k)
- thisfn
- v)))))
- (is (= "{\"c\":1,\"e\":2}"
- (json/write-str (sorted-map :a nil, :b nil, :c 1, :d nil, :e 2, :f nil)
- :value-fn (fn remove-nils [k v]
- (if (nil? v)
- remove-nils
- v))))))
-
-(declare pass1-string)
-
-(deftest pass1-test
- (let [input (json/read-str pass1-string)]
- (is (= "JSON Test Pattern pass1" (first input)))
- (is (= "array with 1 element" (get-in input [1 "object with 1 member" 0])))
- (is (= 1234567890 (get-in input [8 "integer"])))
- (is (= "rosebud" (last input)))))
-
-; from http://www.json.org/JSON_checker/test/pass1.json
-(def pass1-string
- "[
- \"JSON Test Pattern pass1\",
- {\"object with 1 member\":[\"array with 1 element\"]},
- {},
- [],
- -42,
- true,
- false,
- null,
- {
- \"integer\": 1234567890,
- \"real\": -9876.543210,
- \"e\": 0.123456789e-12,
- \"E\": 1.234567890E+34,
- \"\": 23456789012E66,
- \"zero\": 0,
- \"one\": 1,
- \"space\": \" \",
- \"quote\": \"\\\"\",
- \"backslash\": \"\\\\\",
- \"controls\": \"\\b\\f\\n\\r\\t\",
- \"slash\": \"/ & \\/\",
- \"alpha\": \"abcdefghijklmnopqrstuvwyz\",
- \"ALPHA\": \"ABCDEFGHIJKLMNOPQRSTUVWYZ\",
- \"digit\": \"0123456789\",
- \"0123456789\": \"digit\",
- \"special\": \"`1~!@#$%^&*()_+-={':[,]}|;.?\",
- \"hex\": \"\\u0123\\u4567\\u89AB\\uCDEF\\uabcd\\uef4A\",
- \"true\": true,
- \"false\": false,
- \"null\": null,
- \"array\":[ ],
- \"object\":{ },
- \"address\": \"50 St. James Street\",
- \"url\": \"http://www.JSON.org/\",
- \"comment\": \"// /* */\": \" \",
- \" s p a c e d \" :[1,2 , 3
-
-,
-
-4 , 5 , 6 ,7 ],\"compact\":[1,2,3,4,5,6,7],
- \"jsontext\": \"{\\\"object with 1 member\\\":[\\\"array with 1 element\\\"]}\",
- \"quotes\": \"" \\u0022 %22 0x22 034 "\",
- \"\\/\\\\\\\"\\uCAFE\\uBABE\\uAB98\\uFCDE\\ubcda\\uef4A\\b\\f\\n\\r\\t`1~!@#$%^&*()_+-=[]{}|;:',./<>?\"
-: \"A key can be any string\"
- },
- 0.5 ,98.6
-,
-99.44
-,
-
-1066,
-1e1,
-0.1e1,
-1e-1,
-1e00,2e+00,2e-00
-,\"rosebud\"]")
-
-
-(deftest print-json-strings
- (is (= "\"Hello, World!\"" (json/write-str "Hello, World!")))
- (is (= "\"\\\"Embedded\\\" Quotes\"" (json/write-str "\"Embedded\" Quotes"))))
-
-(deftest print-unicode
- (is (= "\"\\u1234\\u4567\"" (json/write-str "\u1234\u4567"))))
-
-(deftest print-nonescaped-unicode
- (is (= "\"\\u0000\\t\\u001f \"" (json/write-str "\u0000\u0009\u001f\u0020" :escape-unicode true)))
- (is (= "\"\\u0000\\t\\u001f \"" (json/write-str "\u0000\u0009\u001f\u0020" :escape-unicode false)))
- (is (= "\"\u1234\u4567\"" (json/write-str "\u1234\u4567" :escape-unicode false))))
-
-(deftest escape-special-separators
- (is (= "\"\\u2028\\u2029\"" (json/write-str "\u2028\u2029" :escape-unicode false)))
- (is (= "\"\u2028\u2029\"" (json/write-str "\u2028\u2029" :escape-js-separators false))))
-
-(deftest print-json-null
- (is (= "null" (json/write-str nil))))
-
-(deftest print-ratios-as-doubles
- (is (= "0.75" (json/write-str 3/4))))
-
-(deftest print-bigints
- (is (= "12345678901234567890" (json/write-str 12345678901234567890))))
-
-(deftest print-uuids
- (let [uid (java.util.UUID/randomUUID)
- roundtripped (java.util.UUID/fromString (json/read-str (json/write-str uid)))]
- (is (= uid roundtripped))))
-
-(def ^java.text.SimpleDateFormat date-format
- (doto (java.text.SimpleDateFormat. "dd-MM-yyyy hh:mm:ss")
- (.setTimeZone (java.util.TimeZone/getDefault))))
-
-(deftest print-util-date
- (let [date (.parse date-format "24-03-2006 15:49:00")
- epoch-millis (.getTime date)]
- (is (= epoch-millis (-> date
- json/write-str
- json/read-str
- java.time.Instant/parse
- .toEpochMilli)))))
-
-(deftest print-sql-date
- (let [date (.parse date-format "24-03-2006 15:49:00")
- sql-date (java.sql.Date. (.getTime date))
- epoch-millis-start-of-day (.getTime (.getTime (doto (java.util.Calendar/getInstance)
- (.setTime date)
- (.set java.util.Calendar/HOUR_OF_DAY 0)
- (.set java.util.Calendar/MINUTE 0)
- (.set java.util.Calendar/SECOND 0)
- (.set java.util.Calendar/MILLISECOND 0))))]
- (is (= epoch-millis-start-of-day (-> sql-date
- json/write-str
- json/read-str
- java.time.Instant/parse
- .toEpochMilli)))))
-
-(deftest print-time
- (let [time (java.time.Instant/parse "2006-03-24T15:49:00.000Z")]
- (is (= time (java.time.Instant/parse (json/read-str (json/write-str time)))))))
-
-
-(deftest print-time-supports-format
- (let [formatter (.withZone java.time.format.DateTimeFormatter/ISO_ZONED_DATE_TIME
- (java.time.ZoneId/systemDefault))
- date (.parse date-format "24-03-2006 15:49:00")
- time (.toInstant (.atZone (java.time.LocalDateTime/parse
- "2006-03-24T15:49:00.000Z"
- formatter)
- (java.time.ZoneId/systemDefault)))]
- (is (= time (->> (json/write-str date :date-formatter formatter)
- json/read-str
- (.parse formatter)
- (java.time.Instant/from))))))
-
-(deftest error-on-NaN
- (is (thrown? Exception (json/write-str Float/NaN)))
- (is (thrown? Exception (json/write-str Double/NaN))))
-
-(deftest error-on-infinity
- (is (thrown? Exception (json/write-str Float/POSITIVE_INFINITY)))
- (is (thrown? Exception (json/write-str Float/NEGATIVE_INFINITY)))
- (is (thrown? Exception (json/write-str Double/POSITIVE_INFINITY)))
- (is (thrown? Exception (json/write-str Double/NEGATIVE_INFINITY))))
-
-(defn- double-value [_ v]
- (if (and (instance? Double v)
- (or (.isNaN ^Double v)
- (.isInfinite ^Double v)))
- (str v)
- v))
-
-(deftest special-handler-for-double-NaN
- (is (= "{\"double\":\"NaN\"}"
- (json/write-str {:double Double/NaN}
- :value-fn double-value))))
-
-(deftest special-handler-for-double-infinity
- (is (= "{\"double\":\"Infinity\"}"
- (json/write-str {:double Double/POSITIVE_INFINITY}
- :value-fn double-value)))
- (is (= "{\"double\":\"-Infinity\"}"
- (json/write-str {:double Double/NEGATIVE_INFINITY}
- :value-fn double-value))))
-
-(deftest print-json-arrays
- (is (= "[1,2,3]" (json/write-str [1 2 3])))
- (is (= "[1,2,3]" (json/write-str (list 1 2 3))))
- (is (= "[1,2,3]" (json/write-str (sorted-set 1 2 3))))
- (is (= "[1,2,3]" (json/write-str (seq [1 2 3])))))
-
-(deftest print-java-arrays
- (is (= "[1,2,3]" (json/write-str (into-array [1 2 3])))))
-
-(deftest print-empty-arrays
- (is (= "[]" (json/write-str [])))
- (is (= "[]" (json/write-str (list))))
- (is (= "[]" (json/write-str #{}))))
-
-(deftest print-json-objects
- (is (= "{\"a\":1,\"b\":2}" (json/write-str (sorted-map :a 1 :b 2)))))
-
-(deftest object-keys-must-be-strings
- (is (= "{\"1\":1,\"2\":2}" (json/write-str (sorted-map 1 1 2 2)))))
-
-(deftest print-empty-objects
- (is (= "{}" (json/write-str {}))))
-
-(deftest accept-sequence-of-nils
- (is (= "[null,null,null]" (json/write-str [nil nil nil]))))
-
-(deftest error-on-nil-keys
- (is (thrown? Exception (json/write-str {nil 1}))))
-
-(deftest characters-in-symbols-are-escaped
- (is (= "\"foo\\u1b1b\"" (json/write-str (symbol "foo\u1b1b")))))
-
-(deftest default-throws-on-eof
- (is (thrown? java.io.EOFException (json/read-str ""))))
-
-(deftest throws-eof-in-unterminated-array
- (is (thrown? java.io.EOFException
- (json/read-str "[1, "))))
-
-(deftest throws-eof-in-unterminated-string
- (is (thrown? java.io.EOFException
- (json/read-str "\"missing end quote"))))
-
-(deftest throws-eof-in-escaped-chars
- (is (thrown? java.io.EOFException
- (json/read-str "\"\\"))))
-
-(deftest throws-eof-in-arrays
- (is (thrown? java.io.EOFException
- (json/read-str "[1,")))
- (is (thrown? java.io.EOFException
- (json/read-str "[1,2,"))))
-
-(deftest throws-eof-in-objects
- (is (thrown? java.io.EOFException
- (json/read-str "{")))
- (is (thrown? java.io.EOFException
- (json/read-str "{\"\":1,"))))
-
-(deftest accept-eof
- (is (= ::eof (json/read-str "" :eof-error? false :eof-value ::eof))))
-
-(deftest characters-in-map-keys-are-escaped
- (is (= "{\"\\\"\":42}" (json/write-str {"\"" 42}))))
-
-;;; Indent
-
-(deftest print-json-arrays-indent
- (is (= "[\n 1,\n 2,\n 3\n]" (json/write-str [1 2 3] :indent true)))
- (is (= "[\n 1,\n 2,\n 3\n]" (json/write-str (list 1 2 3) :indent true)))
- (is (= "[\n 1,\n 2,\n 3\n]" (json/write-str (sorted-set 1 2 3) :indent true)))
- (is (= "[\n 1,\n 2,\n 3\n]" (json/write-str (seq [1 2 3]) :indent true))))
-
-(deftest print-java-arrays-indent
- (is (= "[\n 1,\n 2,\n 3\n]" (json/write-str (into-array [1 2 3]) :indent true))))
-
-(deftest print-empty-arrays-indent
- (is (= "[]" (json/write-str [] :indent true)))
- (is (= "[]" (json/write-str (list) :indent true)))
- (is (= "[]" (json/write-str #{} :indent true))))
-
-(deftest print-json-objects-indent
- (is (= "{\n \"a\": 1,\n \"b\": 2\n}" (json/write-str (sorted-map :a 1 :b 2) :indent true))))
-
-(deftest print-empty-objects-indent
- (is (= "{}" (json/write-str {} :indent true))))
-
-(deftest print-json-nested-indent
- (is (=
-"{
- \"a\": {
- \"b\": [
- 1,
- 2
- ],
- \"c\": [],
- \"d\": {}
- }
-}" (json/write-str {:a (sorted-map :b [1 2] :c [] :d {})} :indent true))))
-
-
-;;; Pretty-printer
-
-(deftest pretty-printing
- (let [x (json/read-str pass1-string)]
- (is (= x (json/read-str (with-out-str (json/pprint x)))))))
-
-(deftest pretty-print-nonescaped-unicode
- (is (= "\"\u1234\u4567\"\n"
- (with-out-str
- (json/pprint "\u1234\u4567" :escape-unicode false)))))
-
-(defn benchmark []
- (dotimes [_ 8]
- (time
- (dotimes [_ 1000]
- (assert (= (json/read-str pass1-string)
- (json/read-str (json/write-str (json/read-str pass1-string)))))))))
-
-(defn djson-54-default-write-fn [x out options]
- (#'json/write-string (str x) out options))
-
-(deftest DJSON-54-test
- (is (thrown? Exception (json/write-str {:foo (java.net.URI. "http://clojure.org")})))
- (try (json/write-str {:foo (java.net.URI. "http://clojure.org")})
- (catch Exception e
- (is (= "Don't know how to write JSON of class java.net.URI" (.getMessage e)))))
- (is (= "{\"foo\":\"http:\\/\\/clojure.org\"}" (json/write-str {:foo (java.net.URI. "http://clojure.org")} :default-write-fn djson-54-default-write-fn))))
diff --git a/src/test/clojure/clojure/data/json_test_suite_test.clj b/src/test/clojure/clojure/data/json_test_suite_test.clj
deleted file mode 100644
index c0b714c..0000000
--- a/src/test/clojure/clojure/data/json_test_suite_test.clj
+++ /dev/null
@@ -1,393 +0,0 @@
-(ns clojure.data.json-test-suite-test
- (:require [clojure.data.json :as json]
- [clojure.test :refer :all]
- [clojure.string :as str]))
-
-(deftest i-number-double-huge-neg-exp-test
- (is (= [0.0] (json/read-str "[123.456e-789]"))))
-
-(deftest i-number-huge-exp-test
- (is (= [##Inf]
- (json/read-str "[0.4e00669999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999969999999006]"))))
-
-(deftest i-number-neg-int-huge-exp-test
- (is (= [##-Inf] (json/read-str "[-1e+9999]"))))
-
-(deftest i-number-pos-double-huge-exp-test
- (is (= [##Inf] (json/read-str "[1.5e+9999]"))))
-
-(deftest i-number-real-neg-overflow-test
- (is (= [##-Inf] (json/read-str "[-123123e100000]"))))
-
-(deftest i-number-real-pos-overflow-test
- (is (= [##Inf] (json/read-str "[123123e100000]"))))
-
-(deftest i-number-real-underflow-test
- (is (= [0.0] (json/read-str "[123e-10000000]"))))
-
-(deftest i-number-too-big-neg-int-test
- (is (= [-123123123123123123123123123123N]
- (json/read-str "[-123123123123123123123123123123]"))))
-
-(deftest i-number-too-big-pos-int-test
- (is (= [100000000000000000000N] (json/read-str "[100000000000000000000]"))))
-
-(deftest i-number-very-big-negative-int-test
- (is (= [-237462374673276894279832749832423479823246327846N]
- (json/read-str "[-237462374673276894279832749832423479823246327846]"))))
-
-(deftest n-array-1-true-without-comma-test
- (is (thrown? Exception (json/read-str "[1 true]"))))
-
-(deftest n-array-colon-instead-of-comma-test
- (is (thrown? Exception (json/read-str "[\"\": 1]"))))
-
-(deftest n-array-comma-and-number-test
- (is (thrown? Exception (json/read-str "[,1]"))))
-
-(deftest n-array-double-comma-test
- (is (thrown? Exception (json/read-str "[1,,2]"))))
-
-(deftest n-array-double-extra-comma-test
- (is (thrown? Exception (json/read-str "[\"x\",,]"))))
-
-(deftest n-array-extra-comma-test
- (is (thrown? Exception (json/read-str "[\"\",]"))))
-
-(deftest n-array-incomplete-invalid-value-test
- (is (thrown? Exception (json/read-str "[x"))))
-
-(deftest n-array-incomplete-test
- (is (thrown? Exception (json/read-str "[\"x\""))))
-
-(deftest n-array-inner-array-no-comma-test
- (is (thrown? Exception (json/read-str "[3[4]]"))))
-
-(deftest n-array-items-separated-by-semicolon-test
- (is (thrown? Exception (json/read-str "[1:2]"))))
-
-(deftest n-array-just-comma-test
- (is (thrown? Exception (json/read-str "[,]"))))
-
-(deftest n-array-just-minus-test
- (is (thrown? Exception (json/read-str "[-]"))))
-
-(deftest n-array-missing-value-test
- (is (thrown? Exception (json/read-str "[ , \"\"]"))))
-
-(deftest n-array-newlines-unclosed-test
- (is (thrown? Exception (json/read-str "[\"a\",\n4\n,1,"))))
-
-(deftest n-array-number-and-comma-test
- (is (thrown? Exception (json/read-str "[1,]"))))
-
-(deftest n-array-number-and-several-commas-test
- (is (thrown? Exception (json/read-str "[1,,]"))))
-
-(deftest n-array-spaces-vertical-tab-formfeed-test
- (is (thrown? Exception (json/read-str "[\" a\"\\f]"))))
-
-(deftest n-array-star-inside-test
- (is (thrown? Exception (json/read-str "[*]"))))
-
-(deftest n-array-unclosed-test
- (is (thrown? Exception (json/read-str "[\"\""))))
-
-(deftest n-array-unclosed-trailing-comma-test
- (is (thrown? Exception (json/read-str "[1,"))))
-
-(deftest n-array-unclosed-with-new-lines-test
- (is (thrown? Exception (json/read-str "[1,\n1\n,1"))))
-
-(deftest n-array-unclosed-with-object-inside-test
- (is (thrown? Exception (json/read-str "[{}"))))
-
-(deftest n-number-++-test
- (is (thrown? Exception (json/read-str "[++1234]"))))
-
-(deftest n-number-+1-test
- (is (thrown? Exception (json/read-str "[+1]"))))
-
-(deftest n-number-+Inf-test
- (is (thrown? Exception (json/read-str "[+Inf]"))))
-
-(deftest n-number--01-test
- (is (thrown? Exception (json/read-str "[-01]"))))
-
-(deftest n-number--1.0.-test
- (is (thrown? Exception (json/read-str "[-1.0.]"))))
-
-(deftest n-number--2.-test
- (is (thrown? Exception (json/read-str "[-2.]"))))
-
-(deftest n-number--NaN-test
- (is (thrown? Exception (json/read-str "[-NaN]"))))
-
-(deftest n-number-.-1-test
- (is (thrown? Exception (json/read-str "[.-1]"))))
-
-(deftest n-number-.2e-3-test
- (is (thrown? Exception (json/read-str "[.2e-3]"))))
-
-(deftest n-number-0-capital-E+-test
- (is (thrown? Exception (json/read-str "[0E+]"))))
-
-(deftest n-number-0-capital-E-test
- (is (thrown? Exception (json/read-str "[0E]"))))
-
-(deftest n-number-0.1.2-test
- (is (thrown? Exception (json/read-str "[0.1.2]"))))
-
-(deftest n-number-0.3e+-test
- (is (thrown? Exception (json/read-str "[0.3e+]"))))
-
-(deftest n-number-0.3e-test
- (is (thrown? Exception (json/read-str "[0.3e]"))))
-
-(deftest n-number-0.e1-test
- (is (thrown? Exception (json/read-str "[0.e1]"))))
-
-(deftest n-number-0e+-test
- (is (thrown? Exception (json/read-str "[0e+]"))))
-
-(deftest n-number-0e-test
- (is (thrown? Exception (json/read-str "[0e]"))))
-
-(deftest n-number-1-000-test
- (is (thrown? Exception (json/read-str "[1 000.0]"))))
-
-(deftest n-number-1.0e+-test
- (is (thrown? Exception (json/read-str "[1.0e+]"))))
-
-(deftest n-number-1.0e--test
- (is (thrown? Exception (json/read-str "[1.0e-]"))))
-
-(deftest n-number-1.0e-test
- (is (thrown? Exception (json/read-str "[1.0e]"))))
-
-(deftest n-number-1eE2-test
- (is (thrown? Exception (json/read-str "[1eE2]"))))
-
-(deftest n-number-2.e+3-test
- (is (thrown? Exception (json/read-str "[2.e+3]"))))
-
-(deftest n-number-2.e-3-test
- (is (thrown? Exception (json/read-str "[2.e-3]"))))
-
-(deftest n-number-2.e3-test
- (is (thrown? Exception (json/read-str "[2.e3]"))))
-
-(deftest n-number-9.e+-test
- (is (thrown? Exception (json/read-str "[9.e+]"))))
-
-(deftest n-number-Inf-test
- (is (thrown? Exception (json/read-str "[Inf]"))))
-
-(deftest n-number-NaN-test
- (is (thrown? Exception (json/read-str "[NaN]"))))
-
-(deftest n-number-expression-test
- (is (thrown? Exception (json/read-str "[1+2]"))))
-
-(deftest n-number-hex-1-digit-test
- (is (thrown? Exception (json/read-str "[0x1]"))))
-
-(deftest n-number-hex-2-digits-test
- (is (thrown? Exception (json/read-str "[0x42]"))))
-
-(deftest n-number-infinity-test
- (is (thrown? Exception (json/read-str "[Infinity]"))))
-
-(deftest n-number-invalid+--test
- (is (thrown? Exception (json/read-str "[0e+-1]"))))
-
-(deftest n-number-invalid-negative-real-test
- (is (thrown? Exception (json/read-str "[-123.123foo]"))))
-
-(deftest n-number-minus-infinity-test
- (is (thrown? Exception (json/read-str "[-Infinity]"))))
-
-(deftest n-number-minus-sign-with-trailing-garbage-test
- (is (thrown? Exception (json/read-str "[-foo]"))))
-
-(deftest n-number-minus-space-1-test
- (is (thrown? Exception (json/read-str "[- 1]"))))
-
-(deftest n-number-neg-int-starting-with-zero-test
- (is (thrown? Exception (json/read-str "[-012]"))))
-
-(deftest n-number-neg-real-without-int-part-test
- (is (thrown? Exception (json/read-str "[-.123]"))))
-
-(deftest n-number-neg-with-garbage-at-end-test
- (is (thrown? Exception (json/read-str "[-1x]"))))
-
-(deftest n-number-real-garbage-after-e-test
- (is (thrown? Exception (json/read-str "[1ea]"))))
-
-(deftest n-number-real-without-fractional-part-test
- (is (thrown? Exception (json/read-str "[1.]"))))
-
-(deftest n-number-starting-with-dot-test
- (is (thrown? Exception (json/read-str "[.123]"))))
-
-(deftest n-number-with-alpha-char-test
- (is (thrown? Exception (json/read-str "[1.8011670033376514H-308]"))))
-
-(deftest n-number-with-alpha-test
- (is (thrown? Exception (json/read-str "[1.2a-3]"))))
-
-(deftest n-number-with-leading-zero-test
- (is (thrown? Exception (json/read-str "[012]"))))
-
-(deftest n-object-non-string-key-but-huge-number-instead-test
- (is (thrown? Exception (json/read-str "{9999E9999:1}"))))
-
-(deftest n-structure-array-with-unclosed-string-test
- (is (thrown? Exception (json/read-str "[\"asd]"))))
-
-(deftest n-structure-end-array-test
- (is (thrown? Exception (json/read-str "]"))))
-
-(deftest n-structure-number-with-trailing-garbage-test
- (is (thrown? Exception (json/read-str "2@"))))
-
-(deftest n-structure-open-array-apostrophe-test
- (is (thrown? Exception (json/read-str "['"))))
-
-(deftest n-structure-open-array-comma-test
- (is (thrown? Exception (json/read-str "[,"))))
-
-(deftest n-structure-open-array-open-object-test
- (is (thrown? Exception (json/read-str "[{"))))
-
-(deftest n-structure-open-array-open-string-test
- (is (thrown? Exception (json/read-str "[\"a"))))
-
-(deftest n-structure-open-array-string-test
- (is (thrown? Exception (json/read-str "[\"a\""))))
-
-(deftest n-structure-open-object-close-array-test
- (is (thrown? Exception (json/read-str "{]"))))
-
-(deftest n-structure-open-object-open-array-test
- (is (thrown? Exception (json/read-str "{["))))
-
-(deftest n-structure-unclosed-array-partial-null-test
- (is (thrown? Exception (json/read-str "[ false, nul"))))
-
-(deftest n-structure-unclosed-array-test
- (is (thrown? Exception (json/read-str "[1"))))
-
-(deftest n-structure-unclosed-array-unfinished-false-test
- (is (thrown? Exception (json/read-str "[ true, fals"))))
-
-(deftest n-structure-unclosed-array-unfinished-true-test
- (is (thrown? Exception (json/read-str "[ false, tru"))))
-
-(deftest y-array-arraysWithSpaces-test
- (is (= [[]] (json/read-str "[[] ]"))))
-
-(deftest y-array-empty-string-test
- (is (= [""] (json/read-str "[\"\"]"))))
-
-(deftest y-array-empty-test
- (is (= [] (json/read-str "[]"))))
-
-(deftest y-array-ending-with-newline-test
- (is (= ["a"] (json/read-str "[\"a\"]"))))
-
-(deftest y-array-false-test
- (is (= [false] (json/read-str "[false]"))))
-
-(deftest y-array-heterogeneous-test
- (is (= [nil 1 "1" {}] (json/read-str "[null, 1, \"1\", {}]"))))
-
-(deftest y-array-null-test
- (is (= [nil] (json/read-str "[null]"))))
-
-(deftest y-array-with-1-and-newline-test
- (is (= [1] (json/read-str "[1\n]"))))
-
-(deftest y-array-with-leading-space-test
- (is (= [1] (json/read-str " [1]"))))
-
-(deftest y-array-with-several-null-test
- (is (= [1 nil nil nil 2] (json/read-str "[1,null,null,null,2]"))))
-
-(deftest y-array-with-trailing-space-test
- (is (= [2] (json/read-str "[2] "))))
-
-(deftest y-number-0e+1-test
- (is (= [0.0] (json/read-str "[0e+1]"))))
-
-(deftest y-number-0e1-test
- (is (= [0.0] (json/read-str "[0e1]"))))
-
-(deftest y-number-after-space-test
- (is (= [4] (json/read-str "[ 4]"))))
-
-(deftest y-number-double-close-to-zero-test
- (is (= [-1.0E-78]
- (json/read-str "[-0.000000000000000000000000000000000000000000000000000000000000000000000000000001]"))))
-
-(deftest y-number-int-with-exp-test
- (is (= [200.0] (json/read-str "[20e1]"))))
-
-(deftest y-number-minus-zero-test
- (is (= [0] (json/read-str "[-0]"))))
-
-(deftest y-number-negative-int-test
- (is (= [-123] (json/read-str "[-123]"))))
-
-(deftest y-number-negative-one-test
- (is (= [-1] (json/read-str "[-1]"))))
-
-(deftest y-number-negative-zero-test
- (is (= [0] (json/read-str "[-0]"))))
-
-(deftest y-number-real-capital-e-neg-exp-test
- (is (= [0.01] (json/read-str "[1E-2]"))))
-
-(deftest y-number-real-capital-e-pos-exp-test
- (is (= [100.0] (json/read-str "[1E+2]"))))
-
-(deftest y-number-real-capital-e-test
- (is (= [1.0E22] (json/read-str "[1E22]"))))
-
-(deftest y-number-real-exponent-test
- (is (= [1.23E47] (json/read-str "[123e45]"))))
-
-(deftest y-number-real-fraction-exponent-test
- (is (= [1.23456E80] (json/read-str "[123.456e78]"))))
-
-(deftest y-number-real-neg-exp-test
- (is (= [0.01] (json/read-str "[1e-2]"))))
-
-(deftest y-number-real-pos-exponent-test
- (is (= [100.0] (json/read-str "[1e+2]"))))
-
-(deftest y-number-simple-int-test
- (is (= [123] (json/read-str "[123]"))))
-
-(deftest y-number-simple-real-test
- (is (= [123.456789] (json/read-str "[123.456789]"))))
-
-(deftest y-number-test
- (is (= [1.23E67] (json/read-str "[123e65]"))))
-
-(deftest y-object-extreme-numbers-test
- (is (= {"min" -1.0E28, "max" 1.0E28}
- (json/read-str "{\"min\": -1.0e+28, \"max\": 1.0e+28}"))))
-
-(deftest y-string-in-array-test
- (is (= ["asd"] (json/read-str "[\"asd\"]"))))
-
-(deftest y-string-in-array-with-leading-space-test
- (is (= ["asd"] (json/read-str "[ \"asd\"]"))))
-
-(deftest y-structure-true-in-array-test
- (is (= [true] (json/read-str "[true]"))))
-
-(deftest y-structure-whitespace-array-test
- (is (= [] (json/read-str " [] "))))
diff --git a/static/clojure-icon.gif b/static/clojure-icon.gif
new file mode 100644
index 0000000..84eee16
Binary files /dev/null and b/static/clojure-icon.gif differ
diff --git a/static/clojure.css b/static/clojure.css
new file mode 100644
index 0000000..d40ea35
--- /dev/null
+++ b/static/clojure.css
@@ -0,0 +1,53 @@
+
+body {margin: 0;padding: 0;background-color: #e3e3e3;border-top: 4px solid #b3ccfe;color: #272727}
+body, .wiki, #Content, .wikipage {font-family: "Lucida Grande","Trebuchet MS","Bitstream Vera Sans",Verdana,Helvetica,sans-serif;font-size: 12px;line-height: 18px;}
+#leftcolumn .wiki_link, #toc, #toc a, .toc-header {font-size: 11px;line-height: 18px;text-decoration: none}
+img {border: 0;}
+#AllContentContainer {max-width: 96em;min-width: 663px;background: #fff url(space/content-background.gif) right repeat-y;padding: 0 40px 18px 0;}
+
+#Header {position: relative;clear: both;overflow: auto;height: 110px}
+#Logo {position: absolute;top: 0;left: 0;padding: 10px 0 0 62px;width: 138px;height: 100px}
+#Header h1 {float: left;border: 0;margin: 0;padding: 0;position: absolute;top: 50;left: 200px; height: 60px}
+#Header h1 a:link, #Header h1 a:visited, #Header h1 a:hover {color:#000000; text-decoration: none;}
+#Resources {min-height: 110px;width: 234px;padding: 5px 0;float: right;border-bottom: 1px solid #abc4e2;background: #e4eaf7 url(space/resources-background.gif) repeat-y;overflow: auto;}
+#Resources ul {margin: 0;padding: 0 25px;list-style: none;}
+#ResourcesB {float: right;}
+#Resources a {text-decoration: none;}
+#Resources a:link, #Resources a:visited, #Resources a:hover, #Resources a:active {color: #4c5770;}
+#Resources a:hover {text-decoration: underline;}
+
+#leftcolumn {margin: 0 0 0 22px;float: left;width: 168px;padding-bottom: 18px;background: #c5d2eb url(space/left-nav-bottom.gif) bottom no-repeat;}
+
+#leftcolumn ul {list-style: none;margin: 0;padding: 0;}
+
+#leftcolumn a, #leftcolumn .toc-header {font-weight: bold;display: block;background: transparent url(space/left-nav-divider.gif) repeat-x;padding: 6px 0 0 17px;margin: 12px 0 0 0;}
+#leftcolumn li a {font-weight: normal;background:none;margin: 0;padding: 0 0 0 17px;}
+#leftcolumn br {display: none;}
+#leftcolumn .menu {margin-top: 14px;background: #fff url(space/left-nav-background.gif) repeat-y;}
+
+#leftcolumn a:link , #leftcolumn a:visited , #leftcolumn a:active {color: #666;}
+#leftcolumn a:hover {text-decoration: underline;color: #222;}
+
+#rightcolumn {margin-left: 220px;}
+
+.wiki #toc {border: none;margin: 0 0 30px 18px;width: 222px;padding: 0 0 17px 12px;background: transparent url(space/toc-background.gif) repeat-y;border-bottom: 1px solid #d6d6d6;}
+.wiki #toc h1, .wiki #toc div {margin: 0;padding: 0;}
+.wiki #toc h1 {font-size: 14px;line-height: 18px;font-family: Georgia, "Times New Roman", Times, serif;font-style: italic;font-weight: normal;color: #969696;padding: 10px 0 8px 11px;}
+.wiki #toc a:link, .wiki #toc a:visited, .wiki #toc a:active {color: #646464;}
+.wiki #toc a:hover {background: none;color: #333333;}
+
+.wiki pre {font-family: Inconsolata, Monaco, Consolas, "Lucida Console", "Courier New", Courier, monospace;background-color: transparent;border: 0px;color: #000000}
+#DesignedBy { clear: both; text-align: right; margin-top: 18px;}
+#DesignedBy, #DesignedBy a, #DesignedBy a:link, #DesignedBy a:visited, #DesignedBy a:hover, #DesignedBy a:active { color: #999; }
+
+#WikiHeaderNavContainer { height: 36px; position: relative; }
+#leftcolumn .WikiActions a {display: inline;}
+
+.comment { color: gray; }
+.string { color: teal; }
+.function { color: #00c; }
+.macro, .specialops { color: #60c; }
+.parens { color: #000; }
+.keyword { color: #c09; }
+.brackets { color: #006; }
+.curlybrackets { color: #906; }
diff --git a/static/favicon.png b/static/favicon.png
new file mode 100644
index 0000000..b1653e8
Binary files /dev/null and b/static/favicon.png differ
diff --git a/static/internal.css b/static/internal.css
new file mode 100644
index 0000000..08ce7fb
--- /dev/null
+++ b/static/internal.css
@@ -0,0 +1,18 @@
+/* *** MISC STUFF USED ALL OVER *** */
+.nowrap { white-space: nowrap; }
+.hidden { display: none; }
+tr td .sm { font-size: 90%; }
+.grey { color: #666; }
+.smgrey { color: #666; font-size: 80%; }
+.grey a { color: #666; }
+.textentry { font-family: arial, helvetica, sans-serif; border: 1px solid #999; }
+.nopad { padding: 0; margin: 0; }
+.bblack { color: #000; font-size: 1.1em; font-weight: bold; }
+.bblacklight { color: #000; font-size: 1.1em; }
+
+/* IE6 min-height: http://www.dustindiaz.com/min-height-fast-hack */
+#content_view { display: block; padding-bottom: 2em; width: 100%; min-height: 600px; height: auto !important; height: 600px; }
+
+/* Used with .innerContentBox and #WikiAds to position the ad column */
+.contentBox { position: relative; min-height: 600px; height: auto !important; height: 600px; }
+
diff --git a/static/space/content-background.gif b/static/space/content-background.gif
new file mode 100644
index 0000000..0786c72
Binary files /dev/null and b/static/space/content-background.gif differ
diff --git a/static/space/left-nav-background.gif b/static/space/left-nav-background.gif
new file mode 100644
index 0000000..e6e5904
Binary files /dev/null and b/static/space/left-nav-background.gif differ
diff --git a/static/space/left-nav-bottom.gif b/static/space/left-nav-bottom.gif
new file mode 100644
index 0000000..061c089
Binary files /dev/null and b/static/space/left-nav-bottom.gif differ
diff --git a/static/space/left-nav-divider.gif b/static/space/left-nav-divider.gif
new file mode 100644
index 0000000..1854e56
Binary files /dev/null and b/static/space/left-nav-divider.gif differ
diff --git a/static/space/resources-background.gif b/static/space/resources-background.gif
new file mode 100644
index 0000000..9657769
Binary files /dev/null and b/static/space/resources-background.gif differ
diff --git a/static/space/toc-background.gif b/static/space/toc-background.gif
new file mode 100644
index 0000000..0b7c95b
Binary files /dev/null and b/static/space/toc-background.gif differ
diff --git a/static/wiki.css b/static/wiki.css
new file mode 100644
index 0000000..1cb1bdd
--- /dev/null
+++ b/static/wiki.css
@@ -0,0 +1,22 @@
+/* Wiki Rendered Styles */
+.wiki { line-height: 150%; font-family: arial, helvetica, sans-serif; font-size: small; }
+.wiki h1 { font-weight: bold; padding: 5px 0 0 0; margin: 0; font-size: 1.4em; }
+.wiki h2 { font-weight: bold; padding: 5px 0 0 0; margin: 0; font-size: 1.3em; }
+.wiki h3 { font-weight: bold; padding: 5px 0 0 0; margin: 0; font-size: 1.1em; }
+.wiki h4 { font-weight: normal; padding: 5px 0 0 0; margin: 0; font-size: 1.066em; }
+.wiki h5 { font-weight: normal; padding: 5px 0 0 0; margin: 0; font-size: 1.033em; }
+.wiki h6 { font-weight: normal; padding: 5px 0 0 0; margin: 0; font-size: 1.0em; }
+.wiki table { border-collapse: collapse; margin: 10px 0; font-size: small; }
+.wiki p { margin: 0; padding: 0; padding: 5px 0; }
+.wiki td { border: 1px solid #DDD; }
+.wiki #toc { border: 1px solid #AAA; background: #fff; padding: 5px; margin: 0 0 10px 10px; width: 25%; float: right; clear: right;}
+.wiki #toc h1 { font-weight: normal; font-size: 1.2em; padding: 0; }
+.wiki #toc a:hover { color: #00D; background: #FFD; }
+
+.wiki hr { height: 1px; color: #AAA; background-color: #AAA; border: 0; margin: 0 10px; }
+.wiki ul { padding: .5em 0 0 3em; margin: 0; }
+.wiki ol { padding: .5em 0 0 3em; margin: 0; }
+.wiki ul.quotelist { list-style: none; }
+.wiki tt { font-size: small; }
+.wiki img { border: 0; padding: 4px; }
+
+