[Bug-kawa] [bug #16660] Additional fix for vertical-bar symbol quoting

[Dean Ferreyra]

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/