Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Time/ToCalendarTime_.hc

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


#include <haskell2c.h>
#include <time.h>


NodePtr hs_toCalendarTime (time_t ct)
{ 
   struct tm *cal;
   cal = localtime(&ct);
  return nhc_mkTuple12(nhc_mkInt(1900+cal->tm_year),nhc_mkInt(cal->tm_mon),nhc_mkInt(cal->tm_mday),nhc_mkInt(cal->tm_hour),nhc_mkInt(cal->tm_min),nhc_mkInt(cal->tm_sec),nhc_mkInt(0),nhc_mkInt(cal->tm_wday),nhc_mkInt(cal->tm_yday),nhc_mkString((char*)0),nhc_mkInt(0),nhc_mkBool(cal->tm_isdst));
}

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to webmaster@9p.io.