Annotation of parser3/src/www/htdocs/dtformat.p, revision 1.1

1.1     ! parser      1: @parse_date[string][parts]
        !             2: $parts[^string.match[^^(\d{1,2}).(\d{1,2}).(\d{2,4})^$]]
        !             3: $parts{
        !             4:        ^if(!^empty[]){$:result[^date:set($3;$2;$1)]}{$:result[bad date]}}
        !             5: }
        !             6: 
        !             7: @long_date_format[date]
        !             8: $date{${day}.${month}.${year}}

E-mail: