Changeset 15737 in project


Ignore:
Timestamp:
09/05/09 03:35:42 (10 years ago)
Author:
Kon Lovett
Message:

Exported the check/error routines

Location:
release/4/locale
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/locale/tags/0.6.2/locale-components.scm

    r15682 r15737  
    1313(module locale-components (;export
    1414  ;
    15   check-locale-components
    1615  make-locale-components
    1716  locale-components?
     17  check-locale-components
     18  error-locale-components
    1819  locale-component-ref
    1920  locale-component-exists?
     
    2122  update-locale-components!
    2223  ;
    23   check-timezone-components
    2424  make-timezone-components
    2525  timezone-components?
     26  check-timezone-components
     27  error-timezone-components
    2628  set-timezone-component!
    2729  timezone-component-ref
    2830  update-timezone-components!
    2931  ;
     32  timezone-offset?
     33  check-timezone-offset
     34  error-timezone-offset
     35  ;
    3036  make-timezone-dst-rule-julian-leap
     37  timezone-dst-rule-julian-leap?
     38  check-timezone-dst-rule-julian-leap-day
     39  error-timezone-dst-rule-julian-leap-day
     40  ;
    3141  make-timezone-dst-rule-julian-noleap
     42  timezone-dst-rule-julian-noleap?
     43  check-timezone-dst-rule-julian-noleap-day
     44  error-timezone-dst-rule-julian-noleap-day
     45  ;
     46  timezone-dst-rule-julian?
     47  timezone-dst-rule-julian
     48  ;
    3249  make-timezone-dst-rule-mwd
    33   timezone-dst-rule-julian?
    34   timezone-dst-rule-julian-leap?
    35   timezone-dst-rule-julian-noleap?
    3650  timezone-dst-rule-mwd?
    37   timezone-dst-rule-julian
     51  check-timezone-dst-rule-mwd
     52  error-timezone-dst-rule-mwd
     53  check-timezone-dst-rule-mwd-day
     54  error-timezone-dst-rule-mwd-day
     55  check-timezone-dst-rule-mwd-week
     56  error-timezone-dst-rule-mwd-week
     57  check-timezone-dst-rule-mwd-month
     58  error-timezone-dst-rule-mwd-month
    3859  timezone-dst-rule-day
    3960  timezone-dst-rule-month
    4061  timezone-dst-rule-week
     62  ;
    4163  timezone-dst-rule-offset)
    4264
     
    162184
    163185(define-constant SEC/DY 86400)
    164 (define (timezone-offset? obj) (and (fixnum? obj) (<= 0 (abs obj) SEC/DY)))
     186(define (timezone-offset? obj)
     187  (and (fixnum? obj) (let ((atzo (abs obj))) (and (fx<= 0 atzo) (fx< atzo SEC/DY)))) )
    165188
    166189(define-check+error-type timezone-offset)
  • release/4/locale/tags/0.6.2/locale.scm

    r15643 r15737  
    77
    88(module locale (;export
    9   ; locale-timezone
     9  ;; locale-timezone
    1010  local-timezone
    1111  local-timezone-offset
    1212  with-tzset
    13   ; locale-builtin
     13  ;; locale-builtin
    1414  builtin-source-name builtin-source-name?
    1515  unknown-timezone-name unknown-timezone-name?
     
    1717  use-builtin-locale
    1818  use-builtin-language
    19   ; locale-posix
     19  ;; locale-posix
    2020  seconds->h:m:s-string
    2121  make-posix-timezone
     
    2626  posix-load-locale
    2727  gnu-load-locale
    28   ; locale-components
     28  ;; locale-components
     29  ;
    2930  make-locale-components
    3031  locale-components?
     32  check-locale-components
     33  error-locale-components
    3134  locale-component-ref
    3235  locale-component-exists?
    3336  set-locale-component!
    3437  update-locale-components!
     38  ;
    3539  make-timezone-components
    3640  timezone-components?
     41  check-timezone-components
     42  error-timezone-components
    3743  set-timezone-component!
    3844  timezone-component-ref
    3945  update-timezone-components!
     46  ;
     47  timezone-offset?
     48  check-timezone-offset
     49  error-timezone-offset
     50  ;
    4051  make-timezone-dst-rule-julian-leap
     52  timezone-dst-rule-julian-leap?
     53  check-timezone-dst-rule-julian-leap-day
     54  error-timezone-dst-rule-julian-leap-day
     55  ;
    4156  make-timezone-dst-rule-julian-noleap
     57  timezone-dst-rule-julian-noleap?
     58  check-timezone-dst-rule-julian-noleap-day
     59  error-timezone-dst-rule-julian-noleap-day
     60  ;
     61  timezone-dst-rule-julian?
     62  timezone-dst-rule-julian
     63  ;
    4264  make-timezone-dst-rule-mwd
    43   timezone-dst-rule-julian?
    44   timezone-dst-rule-julian-leap?
    45   timezone-dst-rule-julian-noleap?
    4665  timezone-dst-rule-mwd?
    47   timezone-dst-rule-julian
     66  check-timezone-dst-rule-mwd
     67  error-timezone-dst-rule-mwd
     68  check-timezone-dst-rule-mwd-day
     69  error-timezone-dst-rule-mwd-day
     70  check-timezone-dst-rule-mwd-week
     71  error-timezone-dst-rule-mwd-week
     72  check-timezone-dst-rule-mwd-month
     73  error-timezone-dst-rule-mwd-month
    4874  timezone-dst-rule-day
    4975  timezone-dst-rule-month
    5076  timezone-dst-rule-week
     77  ;
    5178  timezone-dst-rule-offset
    52   ; locale-categories
     79  ;; locale-categories
    5380  make-locale-dictionary
    5481  locale-dictionary?
     
    5885  locale-category-ref
    5986  set-locale-category!
    60   ; locale-current
     87  ;; locale-current
    6188  current-timezone
    6289  current-locale
  • release/4/locale/trunk/locale-components.scm

    r15682 r15737  
    1313(module locale-components (;export
    1414  ;
    15   check-locale-components
    1615  make-locale-components
    1716  locale-components?
     17  check-locale-components
     18  error-locale-components
    1819  locale-component-ref
    1920  locale-component-exists?
     
    2122  update-locale-components!
    2223  ;
    23   check-timezone-components
    2424  make-timezone-components
    2525  timezone-components?
     26  check-timezone-components
     27  error-timezone-components
    2628  set-timezone-component!
    2729  timezone-component-ref
    2830  update-timezone-components!
    2931  ;
     32  timezone-offset?
     33  check-timezone-offset
     34  error-timezone-offset
     35  ;
    3036  make-timezone-dst-rule-julian-leap
     37  timezone-dst-rule-julian-leap?
     38  check-timezone-dst-rule-julian-leap-day
     39  error-timezone-dst-rule-julian-leap-day
     40  ;
    3141  make-timezone-dst-rule-julian-noleap
     42  timezone-dst-rule-julian-noleap?
     43  check-timezone-dst-rule-julian-noleap-day
     44  error-timezone-dst-rule-julian-noleap-day
     45  ;
     46  timezone-dst-rule-julian?
     47  timezone-dst-rule-julian
     48  ;
    3249  make-timezone-dst-rule-mwd
    33   timezone-dst-rule-julian?
    34   timezone-dst-rule-julian-leap?
    35   timezone-dst-rule-julian-noleap?
    3650  timezone-dst-rule-mwd?
    37   timezone-dst-rule-julian
     51  check-timezone-dst-rule-mwd
     52  error-timezone-dst-rule-mwd
     53  check-timezone-dst-rule-mwd-day
     54  error-timezone-dst-rule-mwd-day
     55  check-timezone-dst-rule-mwd-week
     56  error-timezone-dst-rule-mwd-week
     57  check-timezone-dst-rule-mwd-month
     58  error-timezone-dst-rule-mwd-month
    3859  timezone-dst-rule-day
    3960  timezone-dst-rule-month
    4061  timezone-dst-rule-week
     62  ;
    4163  timezone-dst-rule-offset)
    4264
     
    162184
    163185(define-constant SEC/DY 86400)
    164 (define (timezone-offset? obj) (and (fixnum? obj) (<= 0 (abs obj) SEC/DY)))
     186(define (timezone-offset? obj)
     187  (and (fixnum? obj) (let ((atzo (abs obj))) (and (fx<= 0 atzo) (fx< atzo SEC/DY)))) )
    165188
    166189(define-check+error-type timezone-offset)
  • release/4/locale/trunk/locale.scm

    r15643 r15737  
    77
    88(module locale (;export
    9   ; locale-timezone
     9  ;; locale-timezone
    1010  local-timezone
    1111  local-timezone-offset
    1212  with-tzset
    13   ; locale-builtin
     13  ;; locale-builtin
    1414  builtin-source-name builtin-source-name?
    1515  unknown-timezone-name unknown-timezone-name?
     
    1717  use-builtin-locale
    1818  use-builtin-language
    19   ; locale-posix
     19  ;; locale-posix
    2020  seconds->h:m:s-string
    2121  make-posix-timezone
     
    2626  posix-load-locale
    2727  gnu-load-locale
    28   ; locale-components
     28  ;; locale-components
     29  ;
    2930  make-locale-components
    3031  locale-components?
     32  check-locale-components
     33  error-locale-components
    3134  locale-component-ref
    3235  locale-component-exists?
    3336  set-locale-component!
    3437  update-locale-components!
     38  ;
    3539  make-timezone-components
    3640  timezone-components?
     41  check-timezone-components
     42  error-timezone-components
    3743  set-timezone-component!
    3844  timezone-component-ref
    3945  update-timezone-components!
     46  ;
     47  timezone-offset?
     48  check-timezone-offset
     49  error-timezone-offset
     50  ;
    4051  make-timezone-dst-rule-julian-leap
     52  timezone-dst-rule-julian-leap?
     53  check-timezone-dst-rule-julian-leap-day
     54  error-timezone-dst-rule-julian-leap-day
     55  ;
    4156  make-timezone-dst-rule-julian-noleap
     57  timezone-dst-rule-julian-noleap?
     58  check-timezone-dst-rule-julian-noleap-day
     59  error-timezone-dst-rule-julian-noleap-day
     60  ;
     61  timezone-dst-rule-julian?
     62  timezone-dst-rule-julian
     63  ;
    4264  make-timezone-dst-rule-mwd
    43   timezone-dst-rule-julian?
    44   timezone-dst-rule-julian-leap?
    45   timezone-dst-rule-julian-noleap?
    4665  timezone-dst-rule-mwd?
    47   timezone-dst-rule-julian
     66  check-timezone-dst-rule-mwd
     67  error-timezone-dst-rule-mwd
     68  check-timezone-dst-rule-mwd-day
     69  error-timezone-dst-rule-mwd-day
     70  check-timezone-dst-rule-mwd-week
     71  error-timezone-dst-rule-mwd-week
     72  check-timezone-dst-rule-mwd-month
     73  error-timezone-dst-rule-mwd-month
    4874  timezone-dst-rule-day
    4975  timezone-dst-rule-month
    5076  timezone-dst-rule-week
     77  ;
    5178  timezone-dst-rule-offset
    52   ; locale-categories
     79  ;; locale-categories
    5380  make-locale-dictionary
    5481  locale-dictionary?
     
    5885  locale-category-ref
    5986  set-locale-category!
    60   ; locale-current
     87  ;; locale-current
    6188  current-timezone
    6289  current-locale
Note: See TracChangeset for help on using the changeset viewer.