#ifndef __TIME_CHH__
#define __TIME_CHH__
#include list.chh
%<_abbrMonthNames=%list(dummy,Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)>\
%<_fullMonthNames=%list(dummy,January,February,March,April,May,June,July,
                        August,September,October,November,December)>\
\
%define(timeFromString,pattern,str,
%locals(numreg,regs,
        daynum,dayfrm,monthnum,monthfrm,yearnum,yearfrm,
        hournum,hourfrm,minutenum,minutefrm,secondnum,secondfrm,
    %<numreg=1>\
    %<regs=%list()>\
    %<dayfrm=->%<monthfrm=->%<yearfrm=->\
    %<pattern=%sgsub([.?+*\[\]],%pattern,%lambda(r,\%r[0]))>\
    %<pattern=^%sgsub(%'$([$dmbBYHMS])',%pattern,%lambda(r,
        %case(%r[1],
              %list($),$,
              %list(d),%'([0-9]+)'%<daynum=%numreg>%<dayfrm=d>%<numreg=%[numreg+1]>,
              %list(m),%'([0-9]+)'%<monthnum=%numreg>%<monthfrm=m>%<numreg=%[numreg+1]>,
              %list(b),%'([A-Za-z]+)'%<monthnum=%numreg>%<monthfrm=b>%<numreg=%[numreg+1]>,
              %list(B),%'([A-Za-z]+)'%<monthnum=%numreg>%<monthfrm=B>%<numreg=%[numreg+1]>,
              %list(Y),%'([0-9]+)'%<yearnum=%numreg>%<yearfrm=Y>%<numreg=%[numreg+1]>,
              %list(H),%'([0-9]+)'%<hournum=%numreg>%<hourfrm=H>%<numreg=%[numreg+1]>,
              %list(M),%'([0-9]+)'%<minutenum=%numreg>%<minutefrm=M>%<numreg=%[numreg+1]>,
              %list(S),%'([0-9]+)'%<secondnum=%numreg>%<secondfrm=S>%<numreg=%[numreg+1]>,
              else,%error(Illegal specifier '%r[1]' in macro 'timeFromString')
        )))$>\
    %if(%[%smatch(%pattern,%str,%&regs) != -1],
        %locals(result,day,month,year,
            %<result=%hash()>\
            %if(%equal(%yearfrm,Y),
                %<result{year}=%regs[%yearnum]>
            )\
            %if(%equal(%monthfrm,m),
                %<result{month}=%regs[%monthnum]>
            ,%if(%equal(%monthfrm,b),
                %<result{month}=%listSearch(%&_abbrMonthNames,
                                            %lambda(m,%equal(%m,%regs[%monthnum])))>
            ,%if(%equal(%monthfrm,B),
                %<result{month}=%listSearch(%&_fullMonthNames,
                                            %lambda(m,%equal(%m,%regs[%monthnum])))>
            )))\
            %if(%equal(%dayfrm,d),
                %<result{day}=%regs[%daynum]>
            )\
            %if(%equal(%hourfrm,H),
                %<result{hour}=%regs[%hournum]>
            )\
            %if(%equal(%minutefrm,M),
                %<result{minute}=%regs[%minutenum]>
            )\
            %if(%equal(%secondfrm,S),
                %<result{second}=%regs[%secondnum]>
            )\
            %result
        )
    ,
        %error(Wrong time format in macro 'timeFromString')
    )
))\
\
%define(timeToString,pattern,time,
    %sgsub(%'$(.)',%pattern,
            %lambda(r,
                %cond(%equal(%r[1],$),$,
                      %equal(%r[1],d),%time{day},
                      %equal(%r[1],m),%time{month},
                      %equal(%r[1],b),%_abbrMonthNames[%time{month}],
                      %equal(%r[1],B),%_fullMonthNames[%time{month}],
                      %equal(%r[1],Y),%time{year},
                      %equal(%r[1],H),%time{hour},
                      %equal(%r[1],M),%time{minute},
                      %equal(%r[1],S),%time{second},
                      else,%error(Illegal specifier '%r[1]' in macro 'timeToString')
                )
            ))
)\
\
%define(timeNow,
    %timeUNIX2Hash(%timeUNIX())
)\
\
#endif