Added basic two basic examples, refactor rename restbucks

to restbucksCRUD

examples/restbucksCRUD/client/src/restbuck_client.e

@@ -0,0 +1,72 @@
+note
+	description : "Objects that ..."
+	author      : "$Author$"
+	date        : "$Date$"
+	revision    : "$Revision$"
+
+class
+	RESTBUCK_CLIENT
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make
+			-- Initialize `Current'.
+		local
+			h: LIBCURL_HTTP_CLIENT
+			sess: HTTP_CLIENT_SESSION
+			s: READABLE_STRING_8
+			j: JSON_PARSER
+			id: detachable STRING
+		do
+			create h.make
+			sess := h.new_session ("http://127.0.0.1")
+			s := "[
+			  	      {
+						"location":"takeAway",
+						"items":[
+						        {
+						        "name":"Late",
+						        "option":"skim",
+						        "size":"Small",
+						        "quantity":1
+						        }
+						    ]
+						}
+				]"
+
+			if attached sess.post ("/order", Void, s) as r then
+				if attached r.body as m then
+					create j.make_parser (m)
+
+					if j.is_parsed and attached j.parse_object as j_o then
+						if attached {JSON_STRING} j_o.item ("id") as l_id then
+							id := l_id.item
+						end
+						print (m)
+						io.put_new_line
+
+					end
+				end
+			end
+
+			if id /= Void and then attached sess.get ("/order/" + id, Void) as r then
+				print (r.body)
+				io.put_new_line
+			end
+		end
+
+feature -- Status
+
+feature -- Access
+
+feature -- Change
+
+feature {NONE} -- Implementation
+
+invariant
+--	invariant_clause: True
+
+end