Added Regexp validation (later used for mail, numbers...)

library/server/wsf_html/webcontrol/validators/wsf_phone_number_validator.e

@@ -6,16 +6,19 @@ note
 
 class
 	WSF_PHONE_NUMBER_VALIDATOR
+
 inherit
-	WSF_VALIDATOR[STRING]
+
+	WSF_REGEXP_VALIDATOR
+
 create
-	make
+	make_with_message
 
-feature -- Implementation
+feature {NONE}
 
-	validate(input:STRING):BOOLEAN
-	do
-
-	end
+	make_with_message (e: STRING)
+		do
+			make_regexp_validator ("", e)
+		end
 
 end

library/server/wsf_html/webcontrol/validators/wsf_regexp_validator.e

@@ -0,0 +1,40 @@
+note
+	description: "Summary description for {WSF_REGEXP_VALIDATOR}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	WSF_REGEXP_VALIDATOR
+
+inherit
+
+	WSF_VALIDATOR [STRING]
+
+create
+	make_regexp_validator
+
+feature {NONE}
+
+	make_regexp_validator (r, e: STRING)
+		do
+			make(e)
+			regexp_string := r
+			create regexp
+			regexp.compile (r)
+		end
+
+feature -- Implementation
+
+	validate (input: STRING): BOOLEAN
+		do
+			Result := regexp.matches (input)
+		end
+
+feature
+
+	regexp_string: STRING
+
+	regexp: REGULAR_EXPRESSION
+
+end

library/server/wsf_html/webcontrol/validators/wsf_validator.e

@@ -0,0 +1,25 @@
+note
+	description: "Summary description for {WSF_VALIDATOR}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+deferred class
+	WSF_VALIDATOR [G]
+
+feature {NONE}
+
+	make (e: STRING)
+		do
+			error := e
+		end
+
+feature
+
+	validate (input: G): BOOLEAN
+		deferred
+		end
+
+	error: STRING
+
+end