Merge pull request #169 from pinaraf/fixDotInName

Allow dots in user names
This commit is contained in:
Dimitri Fontaine 2015-02-06 20:10:06 +01:00
commit 3c1f18f4f5

View File

@ -25,7 +25,14 @@
(defrule doubled-at-sign (and "@@") (:constant "@"))
(defrule doubled-colon (and "::") (:constant ":"))
(defrule password (+ (or (not "@") doubled-at-sign)) (:text t))
(defrule username (and namestring (? (or doubled-at-sign doubled-colon)))
(defrule username-string (and (or #\_ (alpha-char-p character))
(* (or (alpha-char-p character)
(digit-char-p character)
#\.
punct)))
(:text t))
(defrule username (and username-string (? (or doubled-at-sign doubled-colon)))
(:text t))
(defrule dsn-user-password (and username