Return to input_date.p CVS log

Up to [parser3project] / parser3 / src / www / htdocs

Annotation of parser3/src/www/htdocs/input_date.p, revision 1.2

1.1       parser      1: @CLASS
                      2: input_date
                      3: 
                      4: @BASE
                      5: date
                      6: 
1.2     ! parser      7: @auto[]
        !             8: $input_date_auto_test[input_date_auto_test value]
        !             9: 
1.1       parser     10: @parse[string][parts]
                     11: $parts[^string.match[^^(\d{1,2})\.(\d{1,2})\.(\d{2,4})^$]]
                     12: $parts{
                     13:        ^if(!^empty[]){$:result[^date:set($3;$2;$1)]}{$:result[^date:set[bad date]]}
                     14: }