! Copyright (C) 2006, 2010 Slava Pestov
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
USING: kernel make math math.functions math.parser ranges regexp
sequences sets unicode xmode.catalog ;
IN: validators
[ 2drop ] [ drop "invalid " prepend throw ] if ;
: v-email ( str -- str )
- ! From http://www.regular-expressions.info/email.html
+ ! From https://www.regular-expressions.info/email.html
320 v-max-length
"e-mail"
R/ [A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}/i