add a JSON API example

repository/Seaside-REST-Examples.package/WAJsonAPIExample.class/class/register.st

@@ -0,0 +1,4 @@
+registration
+register
+
+	WAAdmin register: self at: 'examples/jsonapi'

repository/Seaside-REST-Examples.package/WAJsonAPIExample.class/instance/getClass..st

@@ -0,0 +1,14 @@
+json api
+getClass: aClassName
+
+	<get>
+	<path: '/classes/{className}'>
+	<produces: 'application/json'>
+
+	^ WAJsonCanvas builder render: [ :json |
+			json array: [ 
+				Smalltalk allClasses do:[ :class |
+					json object: [
+						json 
+							key: 'name' value: class name;
+							key: 'package' value: class package name ] ] ] ]

repository/Seaside-REST-Examples.package/WAJsonAPIExample.class/instance/getClasses.st

@@ -0,0 +1,14 @@
+json api
+getClasses
+
+	<get>
+	<path: '/classes/'>
+	<produces: 'application/json'>
+
+	^ WAJsonCanvas builder render: [ :json |
+			json array: [ 
+				Smalltalk allClasses do:[ :class |
+					json object: [
+						json 
+							key: 'name' value: class name;
+							key: 'package' value: class package name ] ] ] ]

repository/Seaside-REST-Examples.package/WAJsonAPIExample.class/instance/getPackages.st

@@ -0,0 +1,14 @@
+json api
+getPackages
+
+	<get>
+	<path: '/packages/'>
+	<produces: 'application/json'>
+
+	^ WAJsonCanvas builder render: [ :json |
+			json array: [ 
+				Smalltalk packages do:[ :package |
+					json object: [
+						json 
+							key: 'name' value: package name;
+							key: 'classes' value: [ json render: (package classes collect: [ :class | class name ]) ]  ] ] ] ]

repository/Seaside-REST-Examples.package/WAJsonAPIExample.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "WARestfulHandler",
+	"category" : "Seaside-REST-Examples",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "WAJsonAPIExample",
+	"type" : "normal"
+}

repository/Seaside-REST-Examples.package/monticello.meta/categories.st

@@ -1 +1 @@
-SystemOrganization addCategory: #'Seaside-REST-Examples'!
+self packageOrganizer ensurePackage: #'Seaside-REST-Examples' withTags: #()!