Changeset 13884 in project


Ignore:
Timestamp:
03/24/09 04:12:05 (11 years ago)
Author:
Kon Lovett
Message:

Global [] => () caused char-class in regex's to be corrupted.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/locale/trunk/locale-posix.scm

    r13881 r13884  
    3535
    3636(define (nonnull-getenv varnam)
    37   (let ((str (getenv "TZ")))
    38                 (and (string? str)
    39                      (not (string-null? str))
     37  (let ((str (getenv varnam)))
     38                (and (string? str) (not (string-null? str))
    4039                     str ) ) )
    4140
     
    6564
    6665(define parse-posix-standard-timezone-value
    67         (let ((name-re (regexp "((A-Za-z)+)|<((^>)+)>"))
    68                                 (offset-re (regexp "((+-))?((0-9)+)(:(0-9)+)?(:(0-9)+)?"))
    69                                 (date-re (regexp ",((MJ))?((0-9)+)(\\.(0-9)+)?(\\.(0-9)+)?"))
    70                                 (time-re (regexp "/((0-9)+)(:(0-9)+)?(:(0-9)+)?"))
     66        (let ((name-re (regexp "([A-Za-z]+)|<([^>]+)>"))
     67                                (offset-re (regexp "(+|-)?([0-9]+)(:[0-9]+)?(:[0-9]+)?"))
     68                                (date-re (regexp ",(M|J)?([0-9]+)(\\.[0-9]+)?(\\.[0-9]+)?"))
     69                                (time-re (regexp "/([0-9]+)(:[0-9]+)?(:[0-9]+)?"))
    7170                                (+defoff+ 3600))
    7271                (lambda (tz str)
     
    175174
    176175(define parse-posix-standard-locale
    177         (let ((locale-re (regexp "((a-zA-Z)+)(-(a-zA-Z)+)?(_(a-zA-Z)+)?(\\.(^@)+)?(@.+)?")))
     176        (let ((locale-re (regexp "([a-zA-Z]+)(-[a-zA-Z]+)?(_[a-zA-Z]+)?(\\.[^@]+)?(@.+)?")))
    178177                (lambda (lc str)
    179178                        (and-let* ((r (string-match locale-re str))
     
    250249    (let ((lst
    251250            (map
    252               (lambda (lclstr)
    253                 (let ((lc (posix-locale-string->locale-components lclstr src)))
    254                   (unless (locale-component-ref lc 'region)
    255                     (set-locale-component! lc
    256                       'region (string-upcase (locale-component-ref lc 'language))) )
    257                   lc ) )
    258               (string-split str ":"))))
     251             (lambda (lclstr)
     252               (let ((lc (posix-locale-string->locale-components lclstr src)))
     253                 (unless (locale-component-ref lc 'region)
     254                   (set-locale-component! lc
     255                    'region (string-upcase (locale-component-ref lc 'language))) )
     256                 lc ) )
     257             (string-split str ":"))))
    259258        (let ((lc (make-locale-components str src tag)))
    260259          (update-locale-components! lc 'locales lst)
Note: See TracChangeset for help on using the changeset viewer.