Malaienb??rgehege

input

svn co svn://bknr.net/svn/trunk/libraries/yason/
CL-USER> (defvar *json-string* "[{\"foo\":1,\"bar\":[7,8,9]},2,3,4,[5,6,7],true,null]")
+*JSON-STRING*
+CL-USER> (let* ((result (json:parse *json-string*)))
+           (print result)
+           (alexandria:hash-table-plist (first result)))
+
+(#<HASH-TABLE :TEST EQUAL :COUNT 2 {5A4420F1}> 2 3 4 (5 6 7) T NIL) 
+("bar" (7 8 9) "foo" 1)
+CL-USER> (defun maybe-convert-to-keyword (js-name)
+           (or (find-symbol (string-upcase js-name) :keyword)
+               js-name))
+MAYBE-CONVERT-TO-KEYWORD
+CL-USER> :FOO ; intern the :FOO keyword
+:FOO
+CL-USER> (let* ((json:*parse-json-arrays-as-vectors* t)
+                (json:*parse-json-booleans-as-symbols* t)
+                (json:*parse-object-key-fn* #'maybe-convert-to-string)
+                (result (json:parse *json-string*)))
+           (print result)
+           (alexandria:hash-table-plist (aref result 0)))
+
+#(#<HASH-TABLE :TEST EQUAL :COUNT 2 {59B4EAD1}> 2 3 4 #(5 6 7) YASON:TRUE NIL) 
+("bar" #(7 8 9) :FOO 1)
CL-USER> (json:encode 
+          (list (alexandria:plist-hash-table
+                 '("foo" 1 "bar" (7 8 9))
+                 :test #'equal)
+                2 3 4
+                '(5 6 7)
+                t nil)
+          *standard-output*)
+[{"foo":1,"bar":[7,8,9]},2,3,4,[5,6,7],true,null]
+(#<HASH-TABLE :TEST EQUAL :COUNT 2 {59942D21}> 2 3 4 (5 6 7) T NIL)
CL-USER> (json:with-output (*standard-output*)
+           (json:with-array ()
+             (dotimes (i 3)
+               (json:encode-array-element i))))
+[0,1,2]
+NIL
+CL-USER> (json:with-output (*standard-output*)
+           (json:with-object ()
+             (json:encode-object-element "hello" "hu hu")
+             (json:with-object-element ("harr")
+               (json:with-array ()
+                 (dotimes (i 3)
+                   (json:encode-array-element i))))))
+{"hello":"hu hu","harr":[0,1,2]}
+NIL
CL-USER> (defstruct user name age password)
+USER
+CL-USER> (defmethod json:encode ((user user) &optional (stream *standard-output*))
+           (json:with-output (stream)
+             (json:with-object ()
+               (json:encode-object-element "name" (user-name user))
+               (json:encode-object-element "age" (user-age user)))))
+#<STANDARD-METHOD YASON:ENCODE (USER) {5B40A591}>
+CL-USER> (json:encode (list (make-user :name "horst" :age 27 :password "puppy")
+                            (make-user :name "uschi" :age 28 :password "kitten")))
+[{"name":"horst","age":27},{"name":"uschi","age":28}]
+(#S(USER :NAME "horst" :AGE 27 :PASSWORD "puppy")
+ #S(USER :NAME "uschi" :AGE 28 :PASSWORD "kitten"))
Copyright (c) 2008 Hans H??bner
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+  - Redistributions of source code must retain the above copyright
+    notice, this list of conditions and the following disclaimer.
+
+  - Redistributions in binary form must reproduce the above copyright
+    notice, this list of conditions and the following disclaimer in
+    the documentation and/or other materials provided with the
+    distribution.
+
+  - Neither the name BKNR nor the names of its contributors may be
+    used to endorse or promote products derived from this software
+    without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 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
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
svn co svn://bknr.net/svn/trunk/libraries/yason/
svn co svn://bknr.net/svn/trunk/libraries/yason/
svn co svn://bknr.net/svn/trunk/libraries/yason/
svn co svn://bknr.net/svn/trunk/libraries/yason/
svn co svn://bknr.net/svn/trunk/libraries/yason/
CL-USER> (defvar *json-string* "[{\"foo\":1,\"bar\":[7,8,9]},2,3,4,[5,6,7],true,null]")
-*JSON-STRING*
-CL-USER> (let* ((result (json:parse *json-string*)))
-           (print result)
-           (alexandria:hash-table-plist (first result)))
-
-(#<HASH-TABLE :TEST EQUAL :COUNT 2 {5A4420F1}> 2 3 4 (5 6 7) T NIL) 
-("bar" (7 8 9) "foo" 1)
-CL-USER> (defun maybe-convert-to-keyword (js-name)
-           (or (find-symbol (string-upcase js-name) :keyword)
-               js-name))
-MAYBE-CONVERT-TO-KEYWORD
-CL-USER> :FOO ; intern the :FOO keyword
-:FOO
-CL-USER> (let* ((json:*parse-json-arrays-as-vectors* t)
-                (json:*parse-json-booleans-as-symbols* t)
-                (json:*parse-object-key-fn* #'maybe-convert-to-string)
-                (result (json:parse *json-string*)))
-           (print result)
-           (alexandria:hash-table-plist (aref result 0)))
-
-#(#<HASH-TABLE :TEST EQUAL :COUNT 2 {59B4EAD1}> 2 3 4 #(5 6 7) YASON:TRUE NIL) 
-("bar" #(7 8 9) :FOO 1)
CL-USER> (json:encode 
-          (list (alexandria:plist-hash-table
-                 '("foo" 1 "bar" (7 8 9))
-                 :test #'equal)
-                2 3 4
-                '(5 6 7)
-                t nil)
-          *standard-output*)
-[{"foo":1,"bar":[7,8,9]},2,3,4,[5,6,7],true,null]
-(#<HASH-TABLE :TEST EQUAL :COUNT 2 {59942D21}> 2 3 4 (5 6 7) T NIL)
CL-USER> (json:with-output (*standard-output*)
-           (json:with-array ()
-             (dotimes (i 3)
-               (json:encode-array-element i))))
-[0,1,2]
-NIL
-CL-USER> (json:with-output (*standard-output*)
-           (json:with-object ()
-             (json:encode-object-element "hello" "hu hu")
-             (json:with-object-element ("harr")
-               (json:with-array ()
-                 (dotimes (i 3)
-                   (json:encode-array-element i))))))
-{"hello":"hu hu","harr":[0,1,2]}
-NIL
CL-USER> (defstruct user name age password)
-USER
-CL-USER> (defmethod json:encode ((user user) &optional (stream *standard-output*))
-           (json:with-output (stream)
-             (json:with-object ()
-               (json:encode-object-element "name" (user-name user))
-               (json:encode-object-element "age" (user-age user)))))
-#<STANDARD-METHOD YASON:ENCODE (USER) {5B40A591}>
-CL-USER> (json:encode (list (make-user :name "horst" :age 27 :password "puppy")
-                            (make-user :name "uschi" :age 28 :password "kitten")))
-[{"name":"horst","age":27},{"name":"uschi","age":28}]
-(#S(USER :NAME "horst" :AGE 27 :PASSWORD "puppy")
- #S(USER :NAME "uschi" :AGE 28 :PASSWORD "kitten"))
Copyright (c) 2008 Hans H??bner
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-
-  - Redistributions of source code must retain the above copyright
-    notice, this list of conditions and the following disclaimer.
-
-  - Redistributions in binary form must reproduce the above copyright
-    notice, this list of conditions and the following disclaimer in
-    the documentation and/or other materials provided with the
-    distribution.
-
-  - Neither the name BKNR nor the names of its contributors may be
-    used to endorse or promote products derived from this software
-    without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT
-OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 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
-OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-

JSON datatype	CL datatype	Notes
object	hash-table :test??#'equal	+ Keys are strings by default, + see `parse-object-key-fn` +
array	list	+ Can be changed to read to vectors, + see `parse-json-arrays-as-vectors` +
string	string	+ JSON escape characters are recognized upon reading. + Upon writing, known escape characters are used, but + non-ASCII Unicode characters are written as is. +
number	number	+ Parsed with READ, printed with PRINC. This is not a + faithful implementation of the specification. +
true	t	Can be changed to read as TRUE, see `parse-json-booleans-as-symbols`
false	nil	Can be changed to read as FALSE, see `parse-json-booleans-as-symbols`
null	nil

JSON datatype	CL datatype	Notes
object	hash-table :test??#'equal	- Keys are strings by default, - see `parse-object-key-fn` -
array	list	- Can be changed to read to vectors, - see `parse-json-arrays-as-vectors` -
string	string	- JSON escape characters are recognized upon reading. - Upon writing, known escape characters are used, but - non-ASCII Unicode characters are written as is. -
number	number	- Parsed with READ, printed with PRINC. This is not a - faithful implementation of the specification. -
true	t	Can be changed to read as TRUE, see `parse-json-booleans-as-symbols`
false	nil	Can be changed to read as FALSE, see `parse-json-booleans-as-symbols`
null	nil

- - Der Schl??ssel zum Erfolg - die lokale Bev??lkerung - -		- - - zur??ck - -
-	-	-
- Der Naturschutz und die Bed??rfnisse der Bev??lkerung d??rfen sich nicht im Wege stehen. - - Das Naturreservat Samboja Lestari bietet der lokalen Bev??lkerung ein gesichertes Einkommen, Gesundheit - und Bildung. Die Menschen werden in alle Phasen des Projektes mit einbezogen. Landwirtschaft, Baumschule, - Kompostproduktion, Aufforstung, Anpflanzung, Forschung und Aufbau der Infrastruktur bieten sichere Arbeitspl??tze. - -
-
- "Auf diese Weise wird den Menschen eine Alternative geboten, und sie brauchen den Wald nicht mehr zu roden. So k??nnen - wir der Welt zeigen, dass Natur und Menschen zusammenleben k??nnen und einander nicht auszuschlie??en brauchen." - - sagt Dr. Willie Smits, Vorsitzender von BOS Indonesien. - -
-
-
-
-
- Die Sicherheit des Naturschutzreservates ist durch die Akzeptanz der indonesischen Bev??lkerung gew??hrleistet. - Der Erfolg des Projektes garantiert einen besseren Lebensstandard und umgekehrt. -

+ + Der Schl??ssel zum Erfolg - die lokale Bev??lkerung + +		+ + + zur??ck + +
+	+	+
+ Der Naturschutz und die Bed??rfnisse der Bev??lkerung d??rfen + sich nicht im Wege stehen. Das Naturreservat + Samboja Lestari bietet der lokalen Bev??lkerung ein + gesichertes Einkommen, Gesundheit und Bildung. Die + Menschen werden in alle Phasen des Projektes mit + einbezogen. Landwirtschaft, Baumschule, Kompostproduktion, + Aufforstung, Anpflanzung, Forschung und Aufbau der + Infrastruktur bieten sichere Arbeitspl??tze. +
+
+ "Auf diese Weise wird den Menschen eine Alternative + geboten, und sie brauchen den Wald nicht mehr zu + roden. So k??nnen wir der Welt zeigen, dass Natur und + Menschen zusammenleben k??nnen und einander nicht + auszuschlie??en brauchen." + + sagt Dr. Willie Smits, Gr??nder der BOS Foundation + in Indonesien. +
+
+
+
+
+ Die Sicherheit des Naturschutzreservates ist durch die + Akzeptanz der indonesischen Bev??lkerung gew??hrleistet. + Der Erfolg des Projektes garantiert einen besseren + Lebensstandard und umgekehrt. +

- - The key to success - the local population - -		- - - back - -
-	-	-
- Nature conservation and the needs of the population must not be in conflict with each other. - - The nature reserve Samboja Lestari offers a safe income, health and education to the local population. The people will be included into all phases of the project. Agriculture, nursery, production of compost, reforestation and the creation of infrastructure provide safe workplaces. - -
-
- "This offers an alternative to the people, so that they don't have to clear the forest any more. Thus we can show the world, that nature and humans are able to coexist and don't have to exclude each other." - - says Dr. Willie Smits, chairman of BOS Indonesia. - -
-
-
-
-
- The safety of the nature reserve is guaranteed by the acceptance through the Indonesian population. The success of the project guarantees a better standard of living and vice versa. -

YASON - A JSON encoder/decoder for Common Lisp

Abstract

Contents

Introduction

Installation

Mapping between JSON and CL datatypes

Parsing JSON data

Parser dictionary

Encoding JSON data

Encoding a JSON DOM

DOM encoder dictionary

Encoding JSON in streaming mode

Streaming encoder dictionary

Application specific encoders

Symbol index

License

Acknowledgements

YASON - A JSON encoder/decoder for Common Lisp

Abstract

Contents

Introduction

Download and Installation

Mapping between JSON and CL datatypes

Parsing JSON data

Parser dictionary

Encoding JSON data

Encoding a JSON DOM

DOM encoder dictionary

Encoding JSON in streaming mode

Streaming encoder dictionary

Application specific encoders

Symbol index

License

Acknowledgements

Malaienb??rgehege

Rund 60 Hektar f??r Renaturierung und B??ren

Malaienb??rgehege

Rund 60 Hektar f??r Renaturierung und B??ren

Malaienb??rgehege

Malaienb??rgehege

+ + The key to success - the local population + +		+ + + back + +
+	+	+
+ Nature conservation and the needs of the population must not be in conflict with each other. + + The nature reserve Samboja Lestari offers a safe income, health and education to the local population. The people will be included into all phases of the project. Agriculture, nursery, production of compost, reforestation and the creation of infrastructure provide safe workplaces. + +
+
+ + "This offers an alternative to the people, so that they + don't have to clear the forest any more. Thus we can show + the world, that nature and humans are able to coexist and + don't have to exclude each other." + says Dr. Willie Smits, founder of BOS + Indonesia. +
+
+
+
+
+ The safety of the nature reserve is guaranteed by the acceptance through the Indonesian population. The success of the project guarantees a better standard of living and vice versa. +