Autocompletion

library/server/wsf_html/webcontrol/autocompletions/wsf_autocompletion.e

@@ -0,0 +1,16 @@
+note
+	description: "Summary description for {WSF_AUTOCOMPLETION}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+deferred class
+	WSF_AUTOCOMPLETION
+
+feature
+
+	autocompletion (input: STRING): JSON_ARRAY
+		deferred
+		end
+
+end

library/server/wsf_html/webcontrol/autocompletions/wsf_simple_autocompletion.e

@@ -0,0 +1,46 @@
+note
+	description: "Summary description for {WSF_SIMPLE_AUTOCOMPLETION}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	WSF_SIMPLE_AUTOCOMPLETION
+
+inherit
+
+	WSF_AUTOCOMPLETION
+
+create
+	make
+
+feature {NONE}
+
+	make (l: LIST [STRING])
+		do
+			list := l
+		end
+
+feature -- Implementation
+
+	autocompletion (input: STRING): JSON_ARRAY
+		local
+			o: JSON_OBJECT
+		do
+			create Result.make_array
+			across
+				list as c
+			loop
+				if c.item.as_lower.has_substring (input.as_lower) then
+					create o.make
+					o.put (create {JSON_STRING}.make_json (c.item), "value")
+					Result.add (o)
+				end
+			end
+		end
+
+feature
+
+	list: LIST [STRING]
+
+end