source: to-imperative/trunk/library/Dos/time.cc @ 1086

// $Source$
// $Revision: 1086 $
// $Date: 2003-08-02 10:39:06 +0000 (Sat, 02 Aug 2003) $
// $Author: luba $

#include <rf_core.hh>
#include <stdlib.h>
#include <time.h>
#include <sys/time.h>
#include <locale.h>

namespace refal
{
using namespace rfrt;
using namespace rftype;

namespace Dos
{

RF_FUNC (Time, (), (RF_RES e_String))
 
  struct timeval ttt;
  struct tm* lt; 
  unsigned uu;

  setlocale(LC_TIME, "");

  gettimeofday(&ttt,NULL); 
  lt = localtime (&(ttt.tv_sec)); 
  uu = ttt.tv_usec/10000; 

  char s[256]; 

  strftime(s, sizeof(s), " %b ", lt);

  Expr e = ShortInt::create_expr((*lt).tm_mday) +
           Word::create_expr(s) +
           ShortInt::create_expr((*lt).tm_year + 1900) +
           Char::create_expr(" ") +
           ShortInt::create_expr((*lt).tm_hour) +
           Char::create_expr(":") +
           ShortInt::create_expr((*lt).tm_min) +
           Char::create_expr(":") +
           ShortInt::create_expr((*lt).tm_sec) +
           Char::create_expr(".");

  if (uu < 10) 
    e = e + ShortInt::create_expr(0) +
            ShortInt::create_expr(uu);
  else 
    e = e + ShortInt::create_expr(uu);

  e_String = e;

RF_END
}
}