/lib/date.arc

http://github.com/alimoeeny/arc · Unknown · 8 lines · 7 code · 1 blank · 0 comment · 0 complexity · 724489f8708297384769ced122d81d72 MD5 · raw file 

    

  1. (require "lib/lang.arc")
    2. 

  2. 

  3. (def parse-date (str)
    4. 

  4.   (timedate 
    5. 

  5.     (perl subprocess “
    6. 

  6. 	  use Date::Language;
    7. 

  7. 	  arcnum(Date::Language->new('English')->str2time(«str»));
    8. 

  8. 	  ”)))
    9.