finndateparse.clj

gistfile1.clj

; Finnish date parser with EBNF parser

(require '[instaparse.core :as insta])

; 
; "huomenna",
; "ylihuomenna",
; "eilen",
; "huomenna aamupäivällä",
; "huomenna aamupäivästä",
; "tänä iltana",
; "tulevana iltana",
; "tänä aamuna",
; "tulevana aamuna",
; "ensi maanantaina",
; "ensi tiistaina",
; "ensi viikonloppuna",
; "ensi viikonloppuna",
; "ensi kuussa",
; "ensi viikolla",
; "aamulla",
; "päivällä",
; "keskipäivällä",
; "iltapäivällä",
; "illasta",
; "iltapäivästä",
; "yöllä",
; "maanantaina",
; "keskiviikkona"

(def finndate
  (insta/parser
    "<S> = (After Relativeday) | (Specifier? <Whitespace?> (Date | Relativeday))
    
    
     Whitespace = #'\\s+'
     After = 'yli'
     <Specifier> = Coming | Past
     Coming = 'tänä' | 'nyt' | 'tulevana' | 'ensi' | 'ens' | 'seuraavana'
     Past =  <'viime' | 'menneenä'>
     Yesterday = <'eilen'>
     Today = <'tänään'>
     Tomorrow = <'huomenna'>
     DayBeforeYesterday = <'toissapäivänä'>
     
     Mon = <'ma' | 'maanantai'>
     Tue = <'ti' | 'tiistai'>
     Wed = <'ke' | 'keskiviikko' | 'pikkulauantai'>
     Thu = <'to' | 'torstai'>
     Fri = <'pe' | 'perjantai'>
     Sat = <'la' | 'lauantai'>
     Sun = <'su' | 'sunnuntai'>
     
     <Weekday> = Mon | Tue | Wed | Thu | Fri | Sat | Sun
     Relativeday = Yesterday | Tomorrow | Today | DayBeforeYesterday
     Date = Weekday <Modulation?>
     Modulation = 'na' | 'nä'
     "))

(finndate "tänä perjantaina"))
(finndate "ensi perjantaina"))
(finndate "ens ti")
(finndate "tänään")
(finndate "viime torstai")
(finndate "viime pikkulauantaina")
(finndate "ylihuomenna")
(finndate "ensi perjantaina")
(finndate "perjantaina")
(finndate "lauantai")
(finndate "keskiviikkona")
(finndate "toissapäivänä")
(finndate "viimetoissapäivänä")

(->>
  (finndate "seuraavana maanantaina")
  (insta/transform {:Date (fn [x] [:date (first x)])
                    :Relativeday (fn [x] [:relativeday (first x)])
                    :After (fn [x] [:after true])
                    :Coming (fn [x] [:tense :coming])
                    :Past (fn [] [:tense :past])})
  (map (fn [[k v]] {k v}))
  (reduce merge))

; {:tense :coming, :date :Mon}