[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Bug-kawa] [bug #16660] Additional fix for vertical-bar symbol quoting
From: |
Dean Ferreyra |
Subject: |
[Bug-kawa] [bug #16660] Additional fix for vertical-bar symbol quoting |
Date: |
Mon, 22 May 2006 18:49:00 -0700 |
User-agent: |
Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.3) Gecko/20060426 Firefox/1.5.0.3 |
Follow-up Comment #1, bug #16660 (project kawa):
By the way, here's how I constructed the regex for DisplayFormat.java:
;; Transcription from R5RS:
(define letter "[a-zA-Z]")
(define digit "[0-9]")
(define special-initial "[!$%&*/:<=>?^_~]")
(define peculiar-identifier "([-+]|[.][.][.])")
(define special-subsequent "(address@hidden)")
(define initial
(string-append
"(" letter
"|" special-initial ")"))
(define subsequent
(string-append
"(" initial
"|" digit
"|" special-subsequent ")"))
(define r5rs-identifier
(string-append
"(" initial subsequent "*)"
"|(" peculiar-identifier ")"))
;; R5RS identifiers *minus interior colons*
(define special-interior "[!$%&*/<=>?^_~]") ;; Note, no colon
(define special-terminator "[:]")
(define interior
(string-append
"(" letter
"|" special-interior
"|" digit
"|" special-subsequent ")"))
(define r5rs-identifier-minus-interior-colons
(string-append
"(" initial interior "*" special-terminator "?)"
"|" peculiar-identifier))
and finally, their values:
#|kawa:41|# r5rs-identifier
(([a-zA-Z]|[!$%&*/:<=>?^_~])(([a-zA-Z]|[!$%&*/:<=>?^_~])|[0-9]|(address@hidden))*)|(([-+]|[.][.][.]))
#|kawa:42|# r5rs-identifier-minus-interior-colons
(([a-zA-Z]|[!$%&*/:<=>?^_~])([a-zA-Z]|[!$%&*/<=>?^_~]|[0-9]|(address@hidden))*[:]?)|([-+]|[.][.][.])
_______________________________________________________
Reply to this item at:
<http://savannah.gnu.org/bugs/?func=detailitem&item_id=16660>
_______________________________________________
Message sent via/by Savannah
http://savannah.gnu.org/