blob: 1aa80478e940fe5daff9d4881d5c3ecb7136c3c0 (
plain)
1
2
3
4
5
6
7
8
9
|
@(load `@{stdlib}txr-case`)
@(define date (year month day))
@{year /\d\d\d\d/}-@{month /\d\d/}-@{day /\d\d/}
@(end)
@(do
(each ((date '("09-10-20" "2009-10-20" "July-15-2014" "foo")))
(txr-if date (y m d) date
(put-line `match: year @y, month @m, day @d`)
(put-line `no match for @date`))))
|
