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: ITERABLE [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: ITERABLE [STRING]

end