date.c File Reference

#include <limits.h>
#include <math.h>
#include <assert.h>
#include "jscript.h"
#include "wine/debug.h"

Include dependency graph for date.c:

Go to the source code of this file.

Classes
struct	DateInstance

Macros
#define	MS_PER_DAY   86400000
#define	MS_PER_HOUR   3600000
#define	MS_PER_MINUTE   60000

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (jscript)
static DateInstance *	date_from_jsdisp (jsdisp_t *jsdisp)
static DateInstance *	date_this (jsval_t vthis)
static double	file_time_to_date_time (const FILETIME *ftime)
static DOUBLE	day (DOUBLE time)
static DOUBLE	time_within_day (DOUBLE time)
static DOUBLE	days_in_year (DOUBLE year)
static DOUBLE	day_from_year (DOUBLE year)
static int	day_from_month (int month, int in_leap_year)
static DOUBLE	time_from_year (DOUBLE year)
static DOUBLE	year_from_time (DOUBLE time)
static int	in_leap_year (DOUBLE time)
static int	day_within_year (DOUBLE time)
static DOUBLE	month_from_time (DOUBLE time)
static DOUBLE	date_from_time (DOUBLE time)
static DOUBLE	week_day (DOUBLE time)
static DOUBLE	convert_time (int year, SYSTEMTIME st)
static DOUBLE	daylight_saving_ta (DOUBLE time, DateInstance *date)
static DOUBLE	local_time (DOUBLE time, DateInstance *date)
static DOUBLE	utc (DOUBLE time, DateInstance *date)
static DOUBLE	hour_from_time (DOUBLE time)
static DOUBLE	min_from_time (DOUBLE time)
static DOUBLE	sec_from_time (DOUBLE time)
static DOUBLE	ms_from_time (DOUBLE time)
static DOUBLE	make_time (DOUBLE hour, DOUBLE min, DOUBLE sec, DOUBLE ms)
static DOUBLE	make_day (DOUBLE year, DOUBLE month, DOUBLE day)
static DOUBLE	make_date (DOUBLE day, DOUBLE time)
static DOUBLE	time_clip (DOUBLE time)
static double	date_now (void)
static SYSTEMTIME	create_systemtime (DOUBLE time)
static HRESULT	date_to_string (DOUBLE time, BOOL show_offset, int offset, jsval_t *r)
static HRESULT	dateobj_to_string (DateInstance *date, jsval_t *r)
static HRESULT	Date_toString (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_toLocaleString (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_toISOString (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_valueOf (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	create_utc_string (script_ctx_t *ctx, jsval_t vthis, jsval_t *r)
static HRESULT	Date_toUTCString (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_toGMTString (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	dateobj_to_date_string (DateInstance *date, jsval_t *r)
static HRESULT	Date_toDateString (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_toTimeString (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_toLocaleDateString (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_toLocaleTimeString (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getTime (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getFullYear (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getUTCFullYear (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getMonth (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getUTCMonth (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getDate (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getUTCDate (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getDay (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getUTCDay (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getHours (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getUTCHours (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getMinutes (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getUTCMinutes (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getSeconds (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getUTCSeconds (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getMilliseconds (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getUTCMilliseconds (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getTimezoneOffset (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setTime (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setMilliseconds (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setUTCMilliseconds (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setSeconds (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setUTCSeconds (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setMinutes (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setUTCMinutes (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setHours (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setUTCHours (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setDate (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setUTCDate (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setMonth (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setUTCMonth (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setFullYear (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setUTCFullYear (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_getYear (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	Date_setYear (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	create_date (script_ctx_t *ctx, jsdisp_t *object_prototype, DOUBLE time, DateInstance **ret)
static HRESULT	date_parse (jsstr_t *input_str, double *ret)
static HRESULT	DateConstr_parse (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	date_utc (script_ctx_t *ctx, unsigned argc, jsval_t *argv, double *ret)
static HRESULT	DateConstr_UTC (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	DateConstr_now (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static HRESULT	DateConstr_value (script_ctx_t *ctx, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
HRESULT	create_date_constr (script_ctx_t *ctx, jsdisp_t *object_prototype, jsdisp_t **ret)
HRESULT	variant_date_to_number (double date, double *ret)
HRESULT	variant_date_to_string (script_ctx_t *ctx, double date, jsstr_t **r)

Variables
static const builtin_prop_t	Date_props []
static const builtin_info_t	Date_info
static const builtin_info_t	DateInst_info
static const builtin_prop_t	DateConstr_props []
static const builtin_info_t	DateConstr_info

Macro Definition Documentation

MS_PER_DAY

#define MS_PER_DAY   86400000

Definition at line 70 of file date.c.

MS_PER_HOUR

#define MS_PER_HOUR   3600000

Definition at line 71 of file date.c.

MS_PER_MINUTE

#define MS_PER_MINUTE   60000

Definition at line 72 of file date.c.

Function Documentation

convert_time()

static DOUBLE convert_time ( int  year, SYSTEMTIME  st  )

inlinestatic

Definition at line 247 of file date.c.

{
    DOUBLE time;
    int set_week_day;
 
    if(st.wMonth == 0)
        return NAN;
 
    if(st.wYear != 0)
        year = st.wYear;
 
    time = time_from_year(year);
    time += (DOUBLE)day_from_month(st.wMonth-1, in_leap_year(time)) * MS_PER_DAY;
 
    if(st.wYear == 0) {
        set_week_day = st.wDayOfWeek-week_day(time);
        if(set_week_day < 0)
            set_week_day += 7;
        time += set_week_day * MS_PER_DAY;
 
        time += (DOUBLE)(st.wDay-1) * 7 * MS_PER_DAY;
        if(month_from_time(time) != st.wMonth-1)
            time -= 7 * MS_PER_DAY;
    }
    else
        time += st.wDay * MS_PER_DAY;
 
    time += st.wHour * MS_PER_HOUR;
    time += st.wMinute * MS_PER_MINUTE;
 
    return time;
}

Referenced by daylight_saving_ta().

create_date()

static HRESULT create_date ( script_ctx_t *  ctx, jsdisp_t *  object_prototype, DOUBLE  time, DateInstance **  ret  )

static

Definition at line 1916 of file date.c.

{
    DateInstance *date;
    HRESULT hres;
    TIME_ZONE_INFORMATION tzi;
 
    GetTimeZoneInformation(&tzi);
 
    date = calloc(1, sizeof(DateInstance));
    if(!date)
        return E_OUTOFMEMORY;
 
    if(object_prototype)
        hres = init_dispex(&date->dispex, ctx, &Date_info, object_prototype);
    else
        hres = init_dispex_from_constr(&date->dispex, ctx, &DateInst_info, ctx->date_constr);
    if(FAILED(hres)) {
        free(date);
        return hres;
    }
 
    date->time = time;
    date->bias = tzi.Bias;
    date->standardDate = tzi.StandardDate;
    date->standardBias = tzi.StandardBias;
    date->daylightDate = tzi.DaylightDate;
    date->daylightBias = tzi.DaylightBias;
 
    *ret = date;
    return S_OK;
}

Referenced by create_date_constr(), DateConstr_value(), and variant_date_to_string().

create_date_constr()

HRESULT create_date_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype,
		jsdisp_t **	ret
	)

Definition at line 2442 of file date.c.

{
    DateInstance *date;
    HRESULT hres;
 
    hres = create_date(ctx, object_prototype, 0.0, &date);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, DateConstr_value, L"Date", &DateConstr_info,
            PROPF_CONSTR|7, &date->dispex, ret);
 
    jsdisp_release(&date->dispex);
    return hres;
}

Referenced by init_constructors().

create_systemtime()

static SYSTEMTIME create_systemtime ( DOUBLE  time )

static

Definition at line 425 of file date.c.

{
    SYSTEMTIME st;
 
    st.wYear = year_from_time(time);
    st.wMonth = month_from_time(time) + 1;
    st.wDayOfWeek = week_day(time);
    st.wDay = date_from_time(time);
    st.wHour = hour_from_time(time);
    st.wMinute = min_from_time(time);
    st.wSecond = sec_from_time(time);
    st.wMilliseconds = ms_from_time(time);
 
    return st;
}

Referenced by Date_toLocaleDateString(), Date_toLocaleString(), and Date_toLocaleTimeString().

create_utc_string()

static HRESULT create_utc_string ( script_ctx_t *  ctx, jsval_t  vthis, jsval_t *  r  )

inlinestatic

Definition at line 638 of file date.c.

{
    static const DWORD week_ids[] = { LOCALE_SABBREVDAYNAME7, LOCALE_SABBREVDAYNAME1,
        LOCALE_SABBREVDAYNAME2, LOCALE_SABBREVDAYNAME3, LOCALE_SABBREVDAYNAME4,
        LOCALE_SABBREVDAYNAME5, LOCALE_SABBREVDAYNAME6 };
    static const DWORD month_ids[] = { LOCALE_SABBREVMONTHNAME1, LOCALE_SABBREVMONTHNAME2,
        LOCALE_SABBREVMONTHNAME3, LOCALE_SABBREVMONTHNAME4,
        LOCALE_SABBREVMONTHNAME5, LOCALE_SABBREVMONTHNAME6,
        LOCALE_SABBREVMONTHNAME7, LOCALE_SABBREVMONTHNAME8,
        LOCALE_SABBREVMONTHNAME9, LOCALE_SABBREVMONTHNAME10,
        LOCALE_SABBREVMONTHNAME11, LOCALE_SABBREVMONTHNAME12 };
 
    const WCHAR *formatEra = L"";
    WCHAR week[64], month[64];
    WCHAR buf[192];
    DateInstance *date;
    jsstr_t *date_str;
    int year, day;
    DWORD lcid_en;
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(isnan(date->time)) {
        if(r)
            *r = jsval_string(jsstr_nan());
        return S_OK;
    }
 
    if(r) {
        lcid_en = MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT);
 
        week[0] = 0;
        GetLocaleInfoW(lcid_en, week_ids[(int)week_day(date->time)], week, ARRAY_SIZE(week));
 
        month[0] = 0;
        GetLocaleInfoW(lcid_en, month_ids[(int)month_from_time(date->time)], month, ARRAY_SIZE(month));
 
        year = year_from_time(date->time);
        if(year<0) {
            formatEra = L" B.C.";
            year = -year+1;
        }
 
        day = date_from_time(date->time);
 
        swprintf(buf, ARRAY_SIZE(buf),
                L"%s, %d %s %d%s %02d:%02d:%02d UTC", week, day, month, year, formatEra,
                (int)hour_from_time(date->time), (int)min_from_time(date->time),
                (int)sec_from_time(date->time));
 
        date_str = jsstr_alloc(buf);
        if(!date_str)
            return E_OUTOFMEMORY;
 
        *r = jsval_string(date_str);
    }
    return S_OK;
}

Referenced by Date_toGMTString(), and Date_toUTCString().

date_from_jsdisp()

static DateInstance * date_from_jsdisp ( jsdisp_t *  jsdisp )

inlinestatic

Definition at line 48 of file date.c.

{
    return CONTAINING_RECORD(jsdisp, DateInstance, dispex);
}

Referenced by date_this().

date_from_time()

static DOUBLE date_from_time ( DOUBLE  time )

inlinestatic

Definition at line 210 of file date.c.

{
    int dwy = day_within_year(time);
    int ily = in_leap_year(time);
    int mft = month_from_time(time);
 
    if(isnan(time))
        return NAN;
 
    if(mft==0) return dwy+1;
    if(mft==1) return dwy-30;
    if(mft==2) return dwy-58-ily;
    if(mft==3) return dwy-89-ily;
    if(mft==4) return dwy-119-ily;
    if(mft==5) return dwy-150-ily;
    if(mft==6) return dwy-180-ily;
    if(mft==7) return dwy-211-ily;
    if(mft==8) return dwy-242-ily;
    if(mft==9) return dwy-272-ily;
    if(mft==10) return dwy-303-ily;
    return dwy-333-ily;
}

Referenced by create_systemtime(), create_utc_string(), Date_getDate(), Date_getUTCDate(), Date_setFullYear(), Date_setMonth(), Date_setUTCFullYear(), Date_setUTCMonth(), Date_setYear(), date_to_string(), Date_toISOString(), and dateobj_to_date_string().

Date_getDate()

static HRESULT Date_getDate ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 993 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(date_from_time(local_time(date->time, date)));
    return S_OK;
}

Date_getDay()

static HRESULT Date_getDay ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1024 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(week_day(local_time(date->time, date)));
    return S_OK;
}

Date_getFullYear()

static HRESULT Date_getFullYear ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 927 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r) {
        DOUBLE time = local_time(date->time, date);
 
        *r = jsval_number(year_from_time(time));
    }
    return S_OK;
}

Date_getHours()

static HRESULT Date_getHours ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1056 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(hour_from_time(local_time(date->time, date)));
    return S_OK;
}

Date_getMilliseconds()

static HRESULT Date_getMilliseconds ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1151 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(ms_from_time(local_time(date->time, date)));
    return S_OK;
}

Date_getMinutes()

static HRESULT Date_getMinutes ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1088 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(min_from_time(local_time(date->time, date)));
    return S_OK;
}

Date_getMonth()

static HRESULT Date_getMonth ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 962 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(month_from_time(local_time(date->time, date)));
    return S_OK;
}

Date_getSeconds()

static HRESULT Date_getSeconds ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1120 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(sec_from_time(local_time(date->time, date)));
    return S_OK;
}

Date_getTime()

static HRESULT Date_getTime ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 911 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_getTimezoneOffset()

static HRESULT Date_getTimezoneOffset ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1183 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(floor((date->time-local_time(date->time, date))/MS_PER_MINUTE));
    return S_OK;
}

Date_getUTCDate()

static HRESULT Date_getUTCDate ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1008 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(date_from_time(date->time));
    return S_OK;
}

Date_getUTCDay()

static HRESULT Date_getUTCDay ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1040 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(week_day(date->time));
    return S_OK;
}

Date_getUTCFullYear()

static HRESULT Date_getUTCFullYear ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 946 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(year_from_time(date->time));
    return S_OK;
}

Date_getUTCHours()

static HRESULT Date_getUTCHours ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1072 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(hour_from_time(date->time));
    return S_OK;
}

Date_getUTCMilliseconds()

static HRESULT Date_getUTCMilliseconds ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1167 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(ms_from_time(date->time));
    return S_OK;
}

Date_getUTCMinutes()

static HRESULT Date_getUTCMinutes ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1104 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(min_from_time(date->time));
    return S_OK;
}

Date_getUTCMonth()

static HRESULT Date_getUTCMonth ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 977 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(month_from_time(date->time));
    return S_OK;
}

Date_getUTCSeconds()

static HRESULT Date_getUTCSeconds ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1135 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(sec_from_time(date->time));
    return S_OK;
}

Date_getYear()

static HRESULT Date_getYear ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1794 of file date.c.

{
    DateInstance *date;
    DOUBLE t, year;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    t = local_time(date->time, date);
    if(isnan(t)) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    year = year_from_time(t);
    if(r)
        *r = jsval_number((1900<=year && year<2000)?year-1900:year);
    return S_OK;
}

date_now()

static double date_now ( void  )

static

Definition at line 417 of file date.c.

{
    FILETIME ftime;
 
    GetSystemTimeAsFileTime(&ftime);
    return file_time_to_date_time(&ftime);
}

Referenced by DateConstr_now(), and DateConstr_value().

date_parse()

static HRESULT date_parse ( jsstr_t *  input_str, double *  ret  )

inlinestatic

Definition at line 1948 of file date.c.

                                                                  {
    static const DWORD string_ids[] = { LOCALE_SMONTHNAME12, LOCALE_SMONTHNAME11,
        LOCALE_SMONTHNAME10, LOCALE_SMONTHNAME9, LOCALE_SMONTHNAME8,
        LOCALE_SMONTHNAME7, LOCALE_SMONTHNAME6, LOCALE_SMONTHNAME5,
        LOCALE_SMONTHNAME4, LOCALE_SMONTHNAME3, LOCALE_SMONTHNAME2,
        LOCALE_SMONTHNAME1, LOCALE_SDAYNAME7, LOCALE_SDAYNAME1,
        LOCALE_SDAYNAME2, LOCALE_SDAYNAME3, LOCALE_SDAYNAME4,
        LOCALE_SDAYNAME5, LOCALE_SDAYNAME6 };
    WCHAR *strings[ARRAY_SIZE(string_ids)];
    WCHAR *parse;
    int input_len, parse_len = 0, nest_level = 0, i, size;
    int year = 0, month = 0, day = 0, hour = 0, min = 0, sec = 0;
    int ms = 0, offset = 0, hour_adjust = 0;
    BOOL set_year = FALSE, set_month = FALSE, set_day = FALSE, set_hour = FALSE;
    BOOL set_offset = FALSE, set_era = FALSE, ad = TRUE, set_am = FALSE, am = TRUE;
    BOOL set_hour_adjust = TRUE;
    TIME_ZONE_INFORMATION tzi;
    const WCHAR *input;
    DateInstance di;
    DWORD lcid_en;
 
    input_len = jsstr_length(input_str);
    input = jsstr_flatten(input_str);
    if(!input)
        return E_OUTOFMEMORY;
 
    for(i=0; i<input_len; i++) {
        if(input[i] == '(') nest_level++;
        else if(input[i] == ')') {
            nest_level--;
            if(nest_level<0) {
                *ret = NAN;
                return S_OK;
            }
        }
        else if(!nest_level) parse_len++;
    }
 
    parse = malloc((parse_len+1)*sizeof(WCHAR));
    if(!parse)
        return E_OUTOFMEMORY;
    nest_level = 0;
    parse_len = 0;
    for(i=0; i<input_len; i++) {
        if(input[i] == '(') nest_level++;
        else if(input[i] == ')') nest_level--;
        else if(!nest_level) parse[parse_len++] = towupper(input[i]);
    }
    parse[parse_len] = 0;
 
    GetTimeZoneInformation(&tzi);
    di.bias = tzi.Bias;
    di.standardDate = tzi.StandardDate;
    di.standardBias = tzi.StandardBias;
    di.daylightDate = tzi.DaylightDate;
    di.daylightBias = tzi.DaylightBias;
 
    /* FIXME: Cache strings */
    lcid_en = MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT);
    for(i=0; i<ARRAY_SIZE(string_ids); i++) {
        size = GetLocaleInfoW(lcid_en, string_ids[i], NULL, 0);
        strings[i] = malloc((size+1)*sizeof(WCHAR));
        if(!strings[i]) {
            i--;
            while(i-- >= 0)
                free(strings[i]);
            free(parse);
            return E_OUTOFMEMORY;
        }
        GetLocaleInfoW(lcid_en, string_ids[i], strings[i], size);
    }
 
    for(i=0; i<parse_len;) {
        while(iswspace(parse[i])) i++;
        if(parse[i] == ',') {
            while(parse[i] == ',') i++;
            continue;
        }
 
        if(parse[i]>='0' && parse[i]<='9') {
            int tmp = wcstol(&parse[i], NULL, 10);
            while(parse[i]>='0' && parse[i]<='9') i++;
            while(iswspace(parse[i])) i++;
 
            if(parse[i] == ':') {
                /* Time */
                if(set_hour) break;
                set_hour = TRUE;
 
                hour = tmp;
 
                while(parse[i] == ':') i++;
                while(iswspace(parse[i])) i++;
                if(parse[i]>='0' && parse[i]<='9') {
                    min = wcstol(&parse[i], NULL, 10);
                    while(parse[i]>='0' && parse[i]<='9') i++;
                }
 
                while(iswspace(parse[i])) i++;
                while(parse[i] == ':') i++;
                while(iswspace(parse[i])) i++;
                if(parse[i]>='0' && parse[i]<='9') {
                    sec = wcstol(&parse[i], NULL, 10);
                    while(parse[i]>='0' && parse[i]<='9') i++;
                }
            }
            else if(parse[i]=='-' || parse[i]=='/') {
                /* Short or long date */
                if(set_day || set_month || set_year) break;
                set_day = TRUE;
                set_month = TRUE;
                set_year = TRUE;
 
                month = tmp-1;
 
                while(iswspace(parse[i])) i++;
                while(parse[i]=='-' || parse[i]=='/') i++;
                while(iswspace(parse[i])) i++;
                if(parse[i]<'0' || parse[i]>'9') break;
                day = wcstol(&parse[i], NULL, 10);
                while(parse[i]>='0' && parse[i]<='9') i++;
 
                while(parse[i]=='-' || parse[i]=='/') i++;
                while(iswspace(parse[i])) i++;
                if(parse[i]<'0' || parse[i]>'9') break;
                year = wcstol(&parse[i], NULL, 10);
                while(parse[i]>='0' && parse[i]<='9') i++;
 
                if(tmp >= 70){
                        /* long date */
                        month = day - 1;
                        day = year;
                        year = tmp;
        }
            }
            else if(tmp<0) break;
            else if(tmp<70) {
                /* Day */
                if(set_day) break;
                set_day = TRUE;
                day = tmp;
            }
            else {
                /* Year */
                if(set_year) break;
                set_year = TRUE;
                year = tmp;
            }
        }
        else if(parse[i]=='+' || parse[i]=='-') {
            /* Timezone offset */
            BOOL positive = TRUE;
 
            if(set_offset && set_hour_adjust) break;
            set_offset = TRUE;
            set_hour_adjust = FALSE;
 
            if(parse[i] == '-')  positive = FALSE;
 
            i++;
            while(iswspace(parse[i])) i++;
            if(parse[i]<'0' || parse[i]>'9') break;
            offset = wcstol(&parse[i], NULL, 10);
            while(parse[i]>='0' && parse[i]<='9') i++;
 
            if(offset<24) offset *= 60;
            else offset = (offset/100)*60 + offset%100;
 
            if(positive) offset = -offset;
 
        }
        else {
            if(parse[i]<'A' || parse[i]>'Z') break;
            else if(parse[i]=='B' && (parse[i+1]=='C' ||
                        (parse[i+1]=='.' && parse[i+2]=='C'))) {
                /* AD/BC */
                if(set_era) break;
                set_era = TRUE;
                ad = FALSE;
 
                i++;
                if(parse[i] == '.') i++;
                i++;
                if(parse[i] == '.') i++;
            }
            else if(parse[i]=='A' && (parse[i+1]=='D' ||
                        (parse[i+1]=='.' && parse[i+2]=='D'))) {
                /* AD/BC */
                if(set_era) break;
                set_era = TRUE;
 
                i++;
                if(parse[i] == '.') i++;
                i++;
                if(parse[i] == '.') i++;
            }
            else if(parse[i+1]<'A' || parse[i+1]>'Z') {
                /* Timezone */
                if(set_offset) break;
                set_offset = TRUE;
 
                if(parse[i] <= 'I') hour_adjust = parse[i]-'A'+2;
                else if(parse[i] == 'J') break;
                else if(parse[i] <= 'M') hour_adjust = parse[i]-'K'+11;
                else if(parse[i] <= 'Y') hour_adjust = parse[i]-'N';
                else hour_adjust = 1;
 
                i++;
                if(parse[i] == '.') i++;
            }
            else if(parse[i]=='A' && parse[i+1]=='M') {
                /* AM/PM */
                if(set_am) break;
                set_am = TRUE;
                am = TRUE;
                i += 2;
            }
            else if(parse[i]=='P' && parse[i+1]=='M') {
                /* AM/PM */
                if(set_am) break;
                set_am = TRUE;
                am = FALSE;
                i += 2;
            }
            else if((parse[i]=='U' && parse[i+1]=='T' && parse[i+2]=='C')
                    || (parse[i]=='G' && parse[i+1]=='M' && parse[i+2]=='T')) {
                /* Timezone */
                if(set_offset) break;
                set_offset = TRUE;
                set_hour_adjust = FALSE;
 
                i += 3;
            }
            else {
                /* Month or garbage */
                unsigned int j;
 
                for(size=i; parse[size]>='A' && parse[size]<='Z'; size++);
                size -= i;
 
                for(j=0; j<ARRAY_SIZE(string_ids); j++)
                    if(!wcsnicmp(&parse[i], strings[j], size)) break;
 
                if(j < 12) {
                    if(set_month) break;
                    set_month = TRUE;
                    month = 11-j;
                }
                else if(j == ARRAY_SIZE(string_ids)) break;
 
                i += size;
            }
        }
    }
 
    if(i == parse_len && set_year && set_month && set_day && (!set_am || hour<13)) {
        if(set_am) {
            if(hour == 12) hour = 0;
            if(!am) hour += 12;
        }
 
        if(!ad) year = -year+1;
        else if(year<100) year += 1900;
 
        *ret = time_clip(make_date(make_day(year, month, day),
                    make_time(hour+hour_adjust, min, sec, ms)) + offset*MS_PER_MINUTE);
 
        if(set_hour_adjust)
            *ret = utc(*ret, &di);
    }else {
        *ret = NAN;
    }
 
    for(i=0; i<ARRAY_SIZE(string_ids); i++)
        free(strings[i]);
    free(parse);
 
    return S_OK;
}

Referenced by DateConstr_parse(), and DateConstr_value().

Date_setDate()

static HRESULT Date_setDate ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1566 of file date.c.

{
    DateInstance *date;
    double t, n;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    hres = to_number(ctx, argv[0], &n);
    if(FAILED(hres))
        return hres;
 
    t = local_time(date->time, date);
    t = make_date(make_day(year_from_time(t), month_from_time(t), n), time_within_day(t));
    date->time = time_clip(utc(t, date));
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setFullYear()

static HRESULT Date_setFullYear ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1702 of file date.c.

{
    DateInstance *date;
    double t, year, month, ddate;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    t = local_time(date->time, date);
 
    hres = to_number(ctx, argv[0], &year);
    if(FAILED(hres))
        return hres;
 
    if(argc > 1) {
        hres = to_number(ctx, argv[1], &month);
        if(FAILED(hres))
            return hres;
    }else {
        month = month_from_time(t);
    }
 
    if(argc > 2) {
        hres = to_number(ctx, argv[2], &ddate);
        if(FAILED(hres))
            return hres;
    }else {
        ddate = date_from_time(t);
    }
 
    t = make_date(make_day(year, month, ddate), time_within_day(t));
    date->time = time_clip(utc(t, date));
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setHours()

static HRESULT Date_setHours ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1458 of file date.c.

{
    DateInstance *date;
    double t, hour, min, sec, ms;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    t = local_time(date->time, date);
 
    hres = to_number(ctx, argv[0], &hour);
    if(FAILED(hres))
        return hres;
 
    if(argc > 1) {
        hres = to_number(ctx, argv[1], &min);
        if(FAILED(hres))
            return hres;
    }else {
        min = min_from_time(t);
    }
 
    if(argc > 2) {
        hres = to_number(ctx, argv[2], &sec);
        if(FAILED(hres))
            return hres;
    }else {
        sec = sec_from_time(t);
    }
 
    if(argc > 3) {
        hres = to_number(ctx, argv[3], &ms);
        if(FAILED(hres))
            return hres;
    }else {
        ms = ms_from_time(t);
    }
 
    t = make_date(day(t), make_time(hour, min, sec, ms));
    date->time = time_clip(utc(t, date));
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setMilliseconds()

static HRESULT Date_setMilliseconds ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1226 of file date.c.

{
    DateInstance *date;
    double n, t;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    hres = to_number(ctx, argv[0], &n);
    if(FAILED(hres))
        return hres;
 
    t = local_time(date->time, date);
    t = make_date(day(t), make_time(hour_from_time(t), min_from_time(t),
                sec_from_time(t), n));
    date->time = time_clip(utc(t, date));
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setMinutes()

static HRESULT Date_setMinutes ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1364 of file date.c.

{
    DateInstance *date;
    double t, min, sec, ms;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    t = local_time(date->time, date);
 
    hres = to_number(ctx, argv[0], &min);
    if(FAILED(hres))
        return hres;
 
    if(argc > 1) {
        hres = to_number(ctx, argv[1], &sec);
        if(FAILED(hres))
            return hres;
    }else {
        sec = sec_from_time(t);
    }
 
    if(argc > 2) {
        hres = to_number(ctx, argv[2], &ms);
        if(FAILED(hres))
            return hres;
    }else {
        ms = ms_from_time(t);
    }
 
    t = make_date(day(t), make_time(hour_from_time(t),
                min, sec, ms));
    date->time = time_clip(utc(t, date));
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setMonth()

static HRESULT Date_setMonth ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1624 of file date.c.

{
    DateInstance *date;
    DOUBLE t, month, ddate;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    t = local_time(date->time, date);
 
    hres = to_number(ctx, argv[0], &month);
    if(FAILED(hres))
        return hres;
 
    if(argc > 1) {
        hres = to_number(ctx, argv[1], &ddate);
        if(FAILED(hres))
            return hres;
    }else {
        ddate = date_from_time(t);
    }
 
    t = make_date(make_day(year_from_time(t), month, ddate),
            time_within_day(t));
    date->time = time_clip(utc(t, date));
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setSeconds()

static HRESULT Date_setSeconds ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1286 of file date.c.

{
    DateInstance *date;
    double t, sec, ms;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    t = local_time(date->time, date);
 
    hres = to_number(ctx, argv[0], &sec);
    if(FAILED(hres))
        return hres;
 
    if(argc > 1) {
        hres = to_number(ctx, argv[1], &ms);
        if(FAILED(hres))
            return hres;
    }else {
        ms = ms_from_time(t);
    }
 
    t = make_date(day(t), make_time(hour_from_time(t),
                min_from_time(t), sec, ms));
    date->time = time_clip(utc(t, date));
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setTime()

static HRESULT Date_setTime ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1199 of file date.c.

{
    double n;
    HRESULT hres;
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    hres = to_number(ctx, argv[0], &n);
    if(FAILED(hres))
        return hres;
 
    date->time = time_clip(n);
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setUTCDate()

static HRESULT Date_setUTCDate ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1595 of file date.c.

{
    DateInstance *date;
    double t, n;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    hres = to_number(ctx, argv[0], &n);
    if(FAILED(hres))
        return hres;
 
    t = date->time;
    t = make_date(make_day(year_from_time(t), month_from_time(t), n), time_within_day(t));
    date->time = time_clip(t);
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setUTCFullYear()

static HRESULT Date_setUTCFullYear ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1748 of file date.c.

{
    DateInstance *date;
    double t, year, month, ddate;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    t = date->time;
 
    hres = to_number(ctx, argv[0], &year);
    if(FAILED(hres))
        return hres;
 
    if(argc > 1) {
        hres = to_number(ctx, argv[1], &month);
        if(FAILED(hres))
            return hres;
    }else {
        month = month_from_time(t);
    }
 
    if(argc > 2) {
        hres = to_number(ctx, argv[2], &ddate);
        if(FAILED(hres))
            return hres;
    }else {
        ddate = date_from_time(t);
    }
 
    t = make_date(make_day(year, month, ddate), time_within_day(t));
    date->time = time_clip(t);
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setUTCHours()

static HRESULT Date_setUTCHours ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1512 of file date.c.

{
    DateInstance *date;
    double t, hour, min, sec, ms;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    t = date->time;
 
    hres = to_number(ctx, argv[0], &hour);
    if(FAILED(hres))
        return hres;
 
    if(argc > 1) {
        hres = to_number(ctx, argv[1], &min);
        if(FAILED(hres))
            return hres;
    }else {
        min = min_from_time(t);
    }
 
    if(argc > 2) {
        hres = to_number(ctx, argv[2], &sec);
        if(FAILED(hres))
            return hres;
    }else {
        sec = sec_from_time(t);
    }
 
    if(argc > 3) {
        hres = to_number(ctx, argv[3], &ms);
        if(FAILED(hres))
            return hres;
    }else {
        ms = ms_from_time(t);
    }
 
    t = make_date(day(t), make_time(hour, min, sec, ms));
    date->time = time_clip(t);
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setUTCMilliseconds()

static HRESULT Date_setUTCMilliseconds ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1256 of file date.c.

{
    DateInstance *date;
    double n, t;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    hres = to_number(ctx, argv[0], &n);
    if(FAILED(hres))
        return hres;
 
    t = date->time;
    t = make_date(day(t), make_time(hour_from_time(t), min_from_time(t),
                sec_from_time(t), n));
    date->time = time_clip(t);
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setUTCMinutes()

static HRESULT Date_setUTCMinutes ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1411 of file date.c.

{
    DateInstance *date;
    double t, min, sec, ms;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    t = date->time;
 
    hres = to_number(ctx, argv[0], &min);
    if(FAILED(hres))
        return hres;
 
    if(argc > 1) {
        hres = to_number(ctx, argv[1], &sec);
        if(FAILED(hres))
            return hres;
    }else {
        sec = sec_from_time(t);
    }
 
    if(argc > 2) {
        hres = to_number(ctx, argv[2], &ms);
        if(FAILED(hres))
            return hres;
    }else {
        ms = ms_from_time(t);
    }
 
    t = make_date(day(t), make_time(hour_from_time(t),
                min, sec, ms));
    date->time = time_clip(t);
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setUTCMonth()

static HRESULT Date_setUTCMonth ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1663 of file date.c.

{
    DateInstance *date;
    double t, month, ddate;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    t = date->time;
 
    hres = to_number(ctx, argv[0], &month);
    if(FAILED(hres))
        return hres;
 
    if(argc > 1) {
        hres = to_number(ctx, argv[1], &ddate);
        if(FAILED(hres))
            return hres;
    }else {
        ddate = date_from_time(t);
    }
 
    t = make_date(make_day(year_from_time(t), month, ddate),
            time_within_day(t));
    date->time = time_clip(t);
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setUTCSeconds()

static HRESULT Date_setUTCSeconds ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1325 of file date.c.

{
    DateInstance *date;
    double t, sec, ms;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    t = date->time;
 
    hres = to_number(ctx, argv[0], &sec);
    if(FAILED(hres))
        return hres;
 
    if(argc > 1) {
        hres = to_number(ctx, argv[1], &ms);
        if(FAILED(hres))
            return hres;
    }else {
        ms = ms_from_time(t);
    }
 
    t = make_date(day(t), make_time(hour_from_time(t),
                min_from_time(t), sec, ms));
    date->time = time_clip(t);
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

Date_setYear()

static HRESULT Date_setYear ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 1819 of file date.c.

{
    DateInstance *date;
    DOUBLE t, year;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(!argc)
        return JS_E_MISSING_ARG;
 
    t = local_time(date->time, date);
 
    hres = to_number(ctx, argv[0], &year);
    if(FAILED(hres))
        return hres;
 
    if(isnan(year)) {
        date->time = year;
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    year = year >= 0.0 ? floor(year) : -floor(-year);
    if(-1.0 < year && year < 100.0)
        year += 1900.0;
 
    date->time = time_clip(utc(make_date(make_day(year, month_from_time(t), date_from_time(t)), time_within_day(t)), date));
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

date_this()

static DateInstance * date_this ( jsval_t  vthis )

inlinestatic

Definition at line 53 of file date.c.

{
    jsdisp_t *jsdisp = is_object_instance(vthis) ? to_jsdisp(get_object(vthis)) : NULL;
    return (jsdisp && is_class(jsdisp, JSCLASS_DATE)) ? date_from_jsdisp(jsdisp) : NULL;
}

Referenced by create_utc_string(), Date_getDate(), Date_getDay(), Date_getFullYear(), Date_getHours(), Date_getMilliseconds(), Date_getMinutes(), Date_getMonth(), Date_getSeconds(), Date_getTime(), Date_getTimezoneOffset(), Date_getUTCDate(), Date_getUTCDay(), Date_getUTCFullYear(), Date_getUTCHours(), Date_getUTCMilliseconds(), Date_getUTCMinutes(), Date_getUTCMonth(), Date_getUTCSeconds(), Date_getYear(), Date_setDate(), Date_setFullYear(), Date_setHours(), Date_setMilliseconds(), Date_setMinutes(), Date_setMonth(), Date_setSeconds(), Date_setTime(), Date_setUTCDate(), Date_setUTCFullYear(), Date_setUTCHours(), Date_setUTCMilliseconds(), Date_setUTCMinutes(), Date_setUTCMonth(), Date_setUTCSeconds(), Date_setYear(), Date_toDateString(), Date_toISOString(), Date_toLocaleDateString(), Date_toLocaleString(), Date_toLocaleTimeString(), Date_toString(), Date_toTimeString(), and Date_valueOf().

date_to_string()

static HRESULT date_to_string ( DOUBLE  time, BOOL  show_offset, int  offset, jsval_t *  r  )

inlinestatic

Definition at line 441 of file date.c.

{
    static const DWORD week_ids[] = { LOCALE_SABBREVDAYNAME7, LOCALE_SABBREVDAYNAME1,
        LOCALE_SABBREVDAYNAME2, LOCALE_SABBREVDAYNAME3, LOCALE_SABBREVDAYNAME4,
        LOCALE_SABBREVDAYNAME5, LOCALE_SABBREVDAYNAME6 };
    static const DWORD month_ids[] = { LOCALE_SABBREVMONTHNAME1, LOCALE_SABBREVMONTHNAME2,
        LOCALE_SABBREVMONTHNAME3, LOCALE_SABBREVMONTHNAME4,
        LOCALE_SABBREVMONTHNAME5, LOCALE_SABBREVMONTHNAME6,
        LOCALE_SABBREVMONTHNAME7, LOCALE_SABBREVMONTHNAME8,
        LOCALE_SABBREVMONTHNAME9, LOCALE_SABBREVMONTHNAME10,
        LOCALE_SABBREVMONTHNAME11, LOCALE_SABBREVMONTHNAME12 };
 
    const WCHAR *formatEra = L"";
    WCHAR week[64], month[64];
    WCHAR buf[192];
    jsstr_t *date_jsstr;
    int year, day;
    DWORD lcid_en;
    WCHAR sign = '-';
 
    if(isnan(time)) {
        if(r)
            *r = jsval_string(jsstr_nan());
        return S_OK;
    }
 
    if(r) {
        lcid_en = MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT);
 
        week[0] = 0;
        GetLocaleInfoW(lcid_en, week_ids[(int)week_day(time)], week, ARRAY_SIZE(week));
 
        month[0] = 0;
        GetLocaleInfoW(lcid_en, month_ids[(int)month_from_time(time)], month, ARRAY_SIZE(month));
 
        year = year_from_time(time);
        if(year<0) {
            formatEra = L" B.C.";
            year = -year+1;
        }
 
        day = date_from_time(time);
 
        if(offset < 0) {
            sign = '+';
            offset = -offset;
        }
 
        if(!show_offset)
            swprintf(buf, ARRAY_SIZE(buf), L"%s %s %d %02d:%02d:%02d %d%s", week, month, day,
                    (int)hour_from_time(time), (int)min_from_time(time),
                    (int)sec_from_time(time), year, formatEra);
        else if(offset)
            swprintf(buf, ARRAY_SIZE(buf), L"%s %s %d %02d:%02d:%02d UTC%c%02d%02d %d%s", week, month, day,
                    (int)hour_from_time(time), (int)min_from_time(time),
                    (int)sec_from_time(time), sign, offset/60, offset%60,
                    year, formatEra);
        else
            swprintf(buf, ARRAY_SIZE(buf), L"%s %s %d %02d:%02d:%02d UTC %d%s", week, month, day,
                    (int)hour_from_time(time), (int)min_from_time(time),
                    (int)sec_from_time(time), year, formatEra);
 
        date_jsstr = jsstr_alloc(buf);
        if(!date_jsstr)
            return E_OUTOFMEMORY;
 
        *r = jsval_string(date_jsstr);
    }
    return S_OK;
}

Referenced by DateConstr_value(), and dateobj_to_string().

Date_toDateString()

static HRESULT Date_toDateString ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 770 of file date.c.

{
    DateInstance *date;
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    return dateobj_to_date_string(date, r);
}

Date_toGMTString()

static HRESULT Date_toGMTString ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 706 of file date.c.

{
    TRACE("\n");
    return create_utc_string(ctx, vthis, r);
}

Date_toISOString()

static HRESULT Date_toISOString ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 581 of file date.c.

{
    DateInstance *date;
    WCHAR buf[64], *p = buf;
    double year;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    year = year_from_time(date->time);
    if(isnan(year) || year > 999999 || year < -999999) {
        FIXME("year %lf should throw an exception\n", year);
        return E_FAIL;
    }
 
    if(year < 0) {
        *p++ = '-';
        p += swprintf(p, ARRAY_SIZE(buf) - 1, L"%06d", -(int)year);
    }else if(year > 9999) {
        *p++ = '+';
        p += swprintf(p, ARRAY_SIZE(buf) - 1, L"%06d", (int)year);
    }else {
        p += swprintf(p, ARRAY_SIZE(buf), L"%04d", (int)year);
    }
 
    swprintf(p, ARRAY_SIZE(buf) - (p - buf), L"-%02d-%02dT%02d:%02d:%02d.%03dZ",
             (int)month_from_time(date->time) + 1, (int)date_from_time(date->time),
             (int)hour_from_time(date->time), (int)min_from_time(date->time),
             (int)sec_from_time(date->time), (int)ms_from_time(date->time));
 
    if(r) {
        jsstr_t *ret;
        if(!(ret = jsstr_alloc(buf)))
            return E_OUTOFMEMORY;
        *r = jsval_string(ret);
    }
    return S_OK;
}

Date_toLocaleDateString()

static HRESULT Date_toLocaleDateString ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 833 of file date.c.

{
    SYSTEMTIME st;
    DateInstance *date;
    jsstr_t *date_str;
    int len;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(isnan(date->time)) {
        if(r)
            *r = jsval_string(jsstr_nan());
        return S_OK;
    }
 
    st = create_systemtime(local_time(date->time, date));
 
    if(st.wYear<1601 || st.wYear>9999)
        return dateobj_to_date_string(date, r);
 
    if(r) {
        WCHAR *ptr;
 
        len = GetDateFormatW(ctx->lcid, DATE_LONGDATE, &st, NULL, NULL, 0);
        date_str = jsstr_alloc_buf(len-1, &ptr);
        if(!date_str)
            return E_OUTOFMEMORY;
        GetDateFormatW(ctx->lcid, DATE_LONGDATE, &st, NULL, ptr, len);
 
        *r = jsval_string(date_str);
    }
    return S_OK;
}

Date_toLocaleString()

static HRESULT Date_toLocaleString ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 538 of file date.c.

{
    SYSTEMTIME st;
    DateInstance *date;
    jsstr_t *date_str;
    int date_len, time_len;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(isnan(date->time)) {
        if(r)
            *r = jsval_string(jsstr_nan());
        return S_OK;
    }
 
    st = create_systemtime(local_time(date->time, date));
 
    if(st.wYear<1601 || st.wYear>9999)
        return dateobj_to_string(date, r);
 
    if(r) {
        WCHAR *ptr;
 
        date_len = GetDateFormatW(ctx->lcid, DATE_LONGDATE, &st, NULL, NULL, 0);
        time_len = GetTimeFormatW(ctx->lcid, 0, &st, NULL, NULL, 0);
 
        date_str = jsstr_alloc_buf(date_len+time_len-1, &ptr);
        if(!date_str)
            return E_OUTOFMEMORY;
 
        GetDateFormatW(ctx->lcid, DATE_LONGDATE, &st, NULL, ptr, date_len);
        GetTimeFormatW(ctx->lcid, 0, &st, NULL, ptr+date_len, time_len);
        ptr[date_len-1] = ' ';
 
        *r = jsval_string(date_str);
    }
    return S_OK;
}

Date_toLocaleTimeString()

static HRESULT Date_toLocaleTimeString ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 872 of file date.c.

{
    SYSTEMTIME st;
    DateInstance *date;
    jsstr_t *date_str;
    int len;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(isnan(date->time)) {
        if(r)
            *r = jsval_string(jsstr_nan());
        return S_OK;
    }
 
    st = create_systemtime(local_time(date->time, date));
 
    if(st.wYear<1601 || st.wYear>9999)
        return Date_toTimeString(ctx, vthis, flags, argc, argv, r);
 
    if(r) {
        WCHAR *ptr;
 
        len = GetTimeFormatW(ctx->lcid, 0, &st, NULL, NULL, 0);
        date_str = jsstr_alloc_buf(len-1, &ptr);
        if(!date_str)
            return E_OUTOFMEMORY;
        GetTimeFormatW(ctx->lcid, 0, &st, NULL, ptr, len);
 
        *r = jsval_string(date_str);
    }
    return S_OK;
}

Date_toString()

static HRESULT Date_toString ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 525 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    return dateobj_to_string(date, r);
}

Date_toTimeString()

static HRESULT Date_toTimeString ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 782 of file date.c.

{
    DateInstance *date;
    jsstr_t *date_str;
    WCHAR buf[32];
    DOUBLE time;
    WCHAR sign;
    int offset;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(isnan(date->time)) {
        if(r)
            *r = jsval_string(jsstr_nan());
        return S_OK;
    }
 
    time = local_time(date->time, date);
 
    if(r) {
        offset = date->bias +
            daylight_saving_ta(time, date);
 
        if(offset < 0) {
            sign = '+';
            offset = -offset;
        }
        else sign = '-';
 
        if(offset)
            swprintf(buf, ARRAY_SIZE(buf), L"%02d:%02d:%02d UTC%c%02d%02d", (int)hour_from_time(time),
                    (int)min_from_time(time), (int)sec_from_time(time),
                    sign, offset/60, offset%60);
        else
            swprintf(buf, ARRAY_SIZE(buf), L"%02d:%02d:%02d UTC", (int)hour_from_time(time),
                    (int)min_from_time(time), (int)sec_from_time(time));
 
        date_str = jsstr_alloc(buf);
        if(!date_str)
            return E_OUTOFMEMORY;
 
        *r = jsval_string(date_str);
    }
    return S_OK;
}

Referenced by Date_toLocaleTimeString().

Date_toUTCString()

static HRESULT Date_toUTCString ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 699 of file date.c.

{
    TRACE("\n");
    return create_utc_string(ctx, vthis, r);
}

date_utc()

static HRESULT date_utc ( script_ctx_t *  ctx, unsigned  argc, jsval_t *  argv, double *  ret  )

static

Definition at line 2257 of file date.c.

{
    double year, month, vdate, hours, minutes, seconds, ms;
    HRESULT hres;
 
    TRACE("\n");
 
    if(argc) {
        hres = to_number(ctx, argv[0], &year);
        if(FAILED(hres))
            return hres;
        if(0 <= year && year <= 99)
            year += 1900;
    }else {
        year = 1900;
    }
 
    if(argc>1) {
        hres = to_number(ctx, argv[1], &month);
        if(FAILED(hres))
            return hres;
    }else {
        month = 0;
    }
 
    if(argc>2) {
        hres = to_number(ctx, argv[2], &vdate);
        if(FAILED(hres))
            return hres;
    }else {
        vdate = 1;
    }
 
    if(argc>3) {
        hres = to_number(ctx, argv[3], &hours);
        if(FAILED(hres))
            return hres;
    }else {
        hours = 0;
    }
 
    if(argc>4) {
        hres = to_number(ctx, argv[4], &minutes);
        if(FAILED(hres))
            return hres;
    }else {
        minutes = 0;
    }
 
    if(argc>5) {
        hres = to_number(ctx, argv[5], &seconds);
        if(FAILED(hres))
            return hres;
    }else {
        seconds = 0;
    }
 
    if(argc>6) {
        hres = to_number(ctx, argv[6], &ms);
        if(FAILED(hres))
            return hres;
    } else {
        ms = 0;
    }
 
    *ret = time_clip(make_date(make_day(year, month, vdate),
            make_time(hours, minutes,seconds, ms)));
    return S_OK;
}

Referenced by DateConstr_UTC(), and DateConstr_value().

Date_valueOf()

static HRESULT Date_valueOf ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 623 of file date.c.

{
    DateInstance *date;
 
    TRACE("\n");
 
    if(!(date = date_this(vthis)))
        return JS_E_DATE_EXPECTED;
 
    if(r)
        *r = jsval_number(date->time);
    return S_OK;
}

DateConstr_now()

static HRESULT DateConstr_now ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 2342 of file date.c.

{
    TRACE("\n");
 
    if(r) *r = jsval_number(date_now());
    return S_OK;
}

DateConstr_parse()

static HRESULT DateConstr_parse ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 2228 of file date.c.

{
    jsstr_t *parse_str;
    double n;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_number(NAN);
        return S_OK;
    }
 
    hres = to_string(ctx, argv[0], &parse_str);
    if(FAILED(hres))
        return hres;
 
    hres = date_parse(parse_str, &n);
    jsstr_release(parse_str);
    if(FAILED(hres))
        return hres;
 
    if(r)
        *r = jsval_number(n);
    return S_OK;
}

DateConstr_UTC()

static HRESULT DateConstr_UTC ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 2327 of file date.c.

{
    double n;
    HRESULT hres;
 
    TRACE("\n");
 
    hres = date_utc(ctx, argc, argv, &n);
    if(SUCCEEDED(hres) && r)
        *r = jsval_number(n);
    return hres;
}

DateConstr_value()

static HRESULT DateConstr_value ( script_ctx_t *  ctx, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

static

Definition at line 2350 of file date.c.

{
    DateInstance *date;
    HRESULT hres;
 
    TRACE("\n");
 
    switch(flags) {
    case DISPATCH_CONSTRUCT:
        switch(argc) {
        /* ECMA-262 3rd Edition    15.9.3.3 */
        case 0:
            hres = create_date(ctx, NULL, date_now(), &date);
            if(FAILED(hres))
                return hres;
            break;
 
        /* ECMA-262 3rd Edition    15.9.3.2 */
        case 1: {
            jsval_t prim;
            double n;
 
            hres = to_primitive(ctx, argv[0], &prim, NO_HINT);
            if(FAILED(hres))
                return hres;
 
            if(is_string(prim))
                hres = date_parse(get_string(prim), &n);
            else
                hres = to_number(ctx, prim, &n);
 
            jsval_release(prim);
            if(FAILED(hres))
                return hres;
 
            hres = create_date(ctx, NULL, time_clip(n), &date);
            if(FAILED(hres))
                return hres;
            break;
        }
 
        /* ECMA-262 3rd Edition    15.9.3.1 */
        default: {
            double ret_date;
 
            hres = date_utc(ctx, argc, argv, &ret_date);
            if(FAILED(hres))
                return hres;
 
            hres = create_date(ctx, NULL, ret_date, &date);
            if(FAILED(hres))
                return hres;
 
            date->time = utc(date->time, date);
        }
        }
 
        if(r) *r = jsval_obj(&date->dispex);
        else  jsdisp_release(&date->dispex);
        return S_OK;
 
    case INVOKE_FUNC: {
        FILETIME system_time, local_time;
 
        GetSystemTimeAsFileTime(&system_time);
        FileTimeToLocalFileTime(&system_time, &local_time);
 
        return date_to_string(file_time_to_date_time(&local_time), FALSE, 0, r);
    }
 
    default:
        FIXME("unimplemented flags %x\n", flags);
        return E_NOTIMPL;
    }
 
    return S_OK;
}

Referenced by create_date_constr().

dateobj_to_date_string()

static HRESULT dateobj_to_date_string ( DateInstance *  date, jsval_t *  r  )

static

Definition at line 714 of file date.c.

{
    static const DWORD week_ids[] = { LOCALE_SABBREVDAYNAME7, LOCALE_SABBREVDAYNAME1,
        LOCALE_SABBREVDAYNAME2, LOCALE_SABBREVDAYNAME3, LOCALE_SABBREVDAYNAME4,
        LOCALE_SABBREVDAYNAME5, LOCALE_SABBREVDAYNAME6 };
    static const DWORD month_ids[] = { LOCALE_SABBREVMONTHNAME1, LOCALE_SABBREVMONTHNAME2,
        LOCALE_SABBREVMONTHNAME3, LOCALE_SABBREVMONTHNAME4,
        LOCALE_SABBREVMONTHNAME5, LOCALE_SABBREVMONTHNAME6,
        LOCALE_SABBREVMONTHNAME7, LOCALE_SABBREVMONTHNAME8,
        LOCALE_SABBREVMONTHNAME9, LOCALE_SABBREVMONTHNAME10,
        LOCALE_SABBREVMONTHNAME11, LOCALE_SABBREVMONTHNAME12 };
 
    const WCHAR *formatEra = L"";
    WCHAR week[64], month[64];
    WCHAR buf[192];
    jsstr_t *date_str;
    DOUBLE time;
    int year, day;
    DWORD lcid_en;
 
    if(isnan(date->time)) {
        if(r)
            *r = jsval_string(jsstr_nan());
        return S_OK;
    }
 
    time = local_time(date->time, date);
 
    if(r) {
        lcid_en = MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT);
 
        week[0] = 0;
        GetLocaleInfoW(lcid_en, week_ids[(int)week_day(time)], week, ARRAY_SIZE(week));
 
        month[0] = 0;
        GetLocaleInfoW(lcid_en, month_ids[(int)month_from_time(time)], month, ARRAY_SIZE(month));
 
        year = year_from_time(time);
        if(year<0) {
            formatEra = L" B.C.";
            year = -year+1;
        }
 
        day = date_from_time(time);
 
        swprintf(buf, ARRAY_SIZE(buf), L"%s %s %d %d%s", week, month, day, year, formatEra);
 
        date_str = jsstr_alloc(buf);
        if(!date_str)
            return E_OUTOFMEMORY;
 
        *r = jsval_string(date_str);
    }
    return S_OK;
}

Referenced by Date_toDateString(), and Date_toLocaleDateString().

dateobj_to_string()

static HRESULT dateobj_to_string ( DateInstance *  date, jsval_t *  r  )

static

Definition at line 513 of file date.c.

{
    DOUBLE time;
    int offset;
 
    time = local_time(date->time, date);
    offset = date->bias +
        daylight_saving_ta(time, date);
 
    return date_to_string(time, TRUE, offset, r);
}

Referenced by Date_toLocaleString(), Date_toString(), and variant_date_to_string().

day()

static DOUBLE day ( DOUBLE  time )

inlinestatic

Definition at line 75 of file date.c.

{
    return floor(time / MS_PER_DAY);
}

Referenced by _Locale_abbrev_dayofweek(), _Locale_full_dayofweek(), _WLocale_abbrev_dayofweek(), _WLocale_full_dayofweek(), common_strdate_s(), convert_bios_date(), create_utc_string(), date_parse(), Date_setHours(), Date_setMilliseconds(), Date_setMinutes(), Date_setSeconds(), Date_setUTCHours(), Date_setUTCMilliseconds(), Date_setUTCMinutes(), Date_setUTCSeconds(), date_to_string(), dateobj_to_date_string(), day_within_year(), fill_systime_struct(), getit(), Global_DateSerial(), HTTP_ParseDateAsAsctime(), HTTP_ParseRfc1123Date(), HTTP_ParseRfc850Date(), HTTP_ParseWeekday(), HTTP_ParseWkday(), make_date(), make_day(), modtime(), MONTHCAL_GetFirstDayOfWeek(), MONTHCAL_HitTest(), MONTHCAL_SetCurSel(), MONTHCAL_SetFirstDayOfWeek(), test_strdate(), test_VarWeekdayName(), test_wstrdate(), VARIANT_DMYFromJulian(), VARIANT_IsValidMonthDay(), VARIANT_JulianFromDMY(), and week_day().

day_from_month()

static int day_from_month ( int  month, int  in_leap_year  )

inlinestatic

Definition at line 117 of file date.c.

{
    switch(month)
    {
        case 0:
            return 0;
        case 1:
            return 31;
        case 2:
            return 59+in_leap_year;
        case 3:
            return 90+in_leap_year;
        case 4:
            return 120+in_leap_year;
        case 5:
            return 151+in_leap_year;
        case 6:
            return 181+in_leap_year;
        case 7:
            return 212+in_leap_year;
        case 8:
            return 243+in_leap_year;
        case 9:
            return 273+in_leap_year;
        case 10:
            return 304+in_leap_year;
        default:
            return 334+in_leap_year;
    }
}

Referenced by convert_time(), and make_day().

day_from_year()

static DOUBLE day_from_year ( DOUBLE  year )

inlinestatic

Definition at line 108 of file date.c.

{
    if(year != (int)year)
        return NAN;
 
    return floor(365.0*(year-1970) + floor((year-1969)/4)
        - floor((year-1901)/100) + floor((year-1601)/400));
}

Referenced by day_within_year(), and time_from_year().

day_within_year()

static int day_within_year ( DOUBLE  time )

inlinestatic

Definition at line 181 of file date.c.

{
    return day(time) - day_from_year(year_from_time(time));
}

Referenced by date_from_time(), and month_from_time().

daylight_saving_ta()

static DOUBLE daylight_saving_ta ( DOUBLE  time, DateInstance *  date  )

inlinestatic

Definition at line 281 of file date.c.

{
    int year = year_from_time(time);
    DOUBLE standardTime, daylightTime;
 
    if(isnan(time))
        return 0;
 
    standardTime = convert_time(year, date->standardDate);
    daylightTime = convert_time(year, date->daylightDate);
 
    if(isnan(standardTime) || isnan(daylightTime))
        return 0;
    else if(standardTime > daylightTime) {
        if(daylightTime <= time && time < standardTime)
            return date->daylightBias;
 
        return date->standardBias;
    }
    else {
        if(standardTime <= time && time < daylightTime)
            return date->standardBias;
 
        return date->daylightBias;
    }
}

Referenced by Date_toTimeString(), dateobj_to_string(), local_time(), and utc().

days_in_year()

static DOUBLE days_in_year ( DOUBLE  year )

inlinestatic

Definition at line 93 of file date.c.

{
    int y;
 
    if(year != (int)year)
        return NAN;
 
    y = year;
    if(y%4 != 0) return 365;
    if(y%100 != 0) return 366;
    if(y%400 != 0) return 365;
    return 366;
}

Referenced by in_leap_year().

file_time_to_date_time()

static double file_time_to_date_time ( const FILETIME *  ftime )

inlinestatic

Definition at line 59 of file date.c.

{
    /* 1601 to 1970 is 369 years plus 89 leap days */
    const LONGLONG time_epoch = (LONGLONG)(369 * 365 + 89) * 86400 * 1000;
 
    LONGLONG time = (((ULONGLONG)ftime->dwHighDateTime << 32) | ftime->dwLowDateTime) / 10000;
 
    return time - time_epoch;
}

Referenced by date_now(), and DateConstr_value().

hour_from_time()

static DOUBLE hour_from_time ( DOUBLE  time )

inlinestatic

Definition at line 322 of file date.c.

{
    DOUBLE ret;
 
    if(isnan(time))
        return NAN;
 
    ret = fmod(floor(time/MS_PER_HOUR), 24);
    if(ret<0) ret += 24;
 
    return ret;
}

Referenced by create_systemtime(), create_utc_string(), Date_getHours(), Date_getUTCHours(), Date_setMilliseconds(), Date_setMinutes(), Date_setSeconds(), Date_setUTCMilliseconds(), Date_setUTCMinutes(), Date_setUTCSeconds(), date_to_string(), Date_toISOString(), and Date_toTimeString().

in_leap_year()

static int in_leap_year ( DOUBLE  time )

inlinestatic

Definition at line 173 of file date.c.

{
    if(days_in_year(year_from_time(time))==366)
        return 1;
    return 0;
}

Referenced by convert_time(), date_from_time(), day_from_month(), make_day(), and month_from_time().

local_time()

static DOUBLE local_time ( DOUBLE  time, DateInstance *  date  )

inlinestatic

Definition at line 309 of file date.c.

{
    return time - (daylight_saving_ta(time, date)+date->bias)*MS_PER_MINUTE;
}

Referenced by _getsystime(), _In_range_(), _setsystime(), common_futime(), common_strdate_s(), convert_filetime_to_time_t(), Date_getDate(), Date_getDay(), Date_getFullYear(), Date_getHours(), Date_getMilliseconds(), Date_getMinutes(), Date_getMonth(), Date_getSeconds(), Date_getTimezoneOffset(), Date_getYear(), Date_setDate(), Date_setFullYear(), Date_setHours(), Date_setMilliseconds(), Date_setMinutes(), Date_setMonth(), Date_setSeconds(), Date_setYear(), Date_toLocaleDateString(), Date_toLocaleString(), Date_toLocaleTimeString(), Date_toTimeString(), DateConstr_value(), dateobj_to_date_string(), dateobj_to_string(), DbgP(), print_error(), print_hexbuf(), and test_mktime().

make_date()

static DOUBLE make_date ( DOUBLE  day, DOUBLE  time  )

inlinestatic

Definition at line 402 of file date.c.

{
    return day*MS_PER_DAY + time;
}

Referenced by date_parse(), Date_setDate(), Date_setFullYear(), Date_setHours(), Date_setMilliseconds(), Date_setMinutes(), Date_setMonth(), Date_setSeconds(), Date_setUTCDate(), Date_setUTCFullYear(), Date_setUTCHours(), Date_setUTCMilliseconds(), Date_setUTCMinutes(), Date_setUTCMonth(), Date_setUTCSeconds(), Date_setYear(), date_utc(), and variant_date_to_number().

make_day()

static DOUBLE make_day ( DOUBLE  year, DOUBLE  month, DOUBLE  day  )

inlinestatic

Definition at line 384 of file date.c.

{
    DOUBLE time;
 
    year += floor(month/12);
 
    month = fmod(month, 12);
    if(month<0) month += 12;
 
    time = time_from_year(year);
 
    day += floor(time / MS_PER_DAY);
    day += day_from_month(month, in_leap_year(time));
 
    return day-1;
}

Referenced by date_parse(), Date_setDate(), Date_setFullYear(), Date_setMonth(), Date_setUTCDate(), Date_setUTCFullYear(), Date_setUTCMonth(), Date_setYear(), date_utc(), and variant_date_to_number().

make_time()

static DOUBLE make_time ( DOUBLE  hour, DOUBLE  min, DOUBLE  sec, DOUBLE  ms  )

inlinestatic

Definition at line 378 of file date.c.

{
    return hour*MS_PER_HOUR + min*MS_PER_MINUTE + sec*1000 + ms;
}

Referenced by date_parse(), Date_setHours(), Date_setMilliseconds(), Date_setMinutes(), Date_setSeconds(), Date_setUTCHours(), Date_setUTCMilliseconds(), Date_setUTCMinutes(), Date_setUTCSeconds(), date_utc(), and variant_date_to_number().

min_from_time()

static DOUBLE min_from_time ( DOUBLE  time )

inlinestatic

Definition at line 336 of file date.c.

{
    DOUBLE ret;
 
    if(isnan(time))
        return NAN;
 
    ret = fmod(floor(time/MS_PER_MINUTE), 60);
    if(ret<0) ret += 60;
 
    return ret;
}

Referenced by create_systemtime(), create_utc_string(), Date_getMinutes(), Date_getUTCMinutes(), Date_setHours(), Date_setMilliseconds(), Date_setSeconds(), Date_setUTCHours(), Date_setUTCMilliseconds(), Date_setUTCSeconds(), date_to_string(), Date_toISOString(), and Date_toTimeString().

month_from_time()

static DOUBLE month_from_time ( DOUBLE  time )

inlinestatic

Definition at line 187 of file date.c.

{
    int ily = in_leap_year(time);
    int dwy = day_within_year(time);
 
    if(isnan(time))
        return NAN;
 
    if(0<=dwy && dwy<31) return 0;
    if(dwy < 59+ily) return 1;
    if(dwy < 90+ily) return 2;
    if(dwy < 120+ily) return 3;
    if(dwy < 151+ily) return 4;
    if(dwy < 181+ily) return 5;
    if(dwy < 212+ily) return 6;
    if(dwy < 243+ily) return 7;
    if(dwy < 273+ily) return 8;
    if(dwy < 304+ily) return  9;
    if(dwy < 334+ily) return  10;
    return  11;
}

Referenced by convert_time(), create_systemtime(), create_utc_string(), date_from_time(), Date_getMonth(), Date_getUTCMonth(), Date_setDate(), Date_setFullYear(), Date_setUTCDate(), Date_setUTCFullYear(), Date_setYear(), date_to_string(), Date_toISOString(), and dateobj_to_date_string().

ms_from_time()

static DOUBLE ms_from_time ( DOUBLE  time )

inlinestatic

Definition at line 364 of file date.c.

{
    DOUBLE ret;
 
    if(isnan(time))
        return NAN;
 
    ret = fmod(time, 1000);
    if(ret<0) ret += 1000;
 
    return ret;
}

Referenced by create_systemtime(), Date_getMilliseconds(), Date_getUTCMilliseconds(), Date_setHours(), Date_setMinutes(), Date_setSeconds(), Date_setUTCHours(), Date_setUTCMinutes(), Date_setUTCSeconds(), and Date_toISOString().

sec_from_time()

static DOUBLE sec_from_time ( DOUBLE  time )

inlinestatic

Definition at line 350 of file date.c.

{
    DOUBLE ret;
 
    if(isnan(time))
        return NAN;
 
    ret = fmod(floor(time/1000), 60);
    if(ret<0) ret += 60;
 
    return ret;
}

Referenced by create_systemtime(), create_utc_string(), Date_getSeconds(), Date_getUTCSeconds(), Date_setHours(), Date_setMilliseconds(), Date_setMinutes(), Date_setUTCHours(), Date_setUTCMilliseconds(), Date_setUTCMinutes(), date_to_string(), Date_toISOString(), and Date_toTimeString().

time_clip()

static DOUBLE time_clip ( DOUBLE  time )

inlinestatic

Definition at line 408 of file date.c.

{
    if(8.64e15 < time || time < -8.64e15) {
        return NAN;
    }
 
    return floor(time);
}

Referenced by date_parse(), Date_setDate(), Date_setFullYear(), Date_setHours(), Date_setMilliseconds(), Date_setMinutes(), Date_setMonth(), Date_setSeconds(), Date_setTime(), Date_setUTCDate(), Date_setUTCFullYear(), Date_setUTCHours(), Date_setUTCMilliseconds(), Date_setUTCMinutes(), Date_setUTCMonth(), Date_setUTCSeconds(), Date_setYear(), date_utc(), and DateConstr_value().

time_from_year()

static DOUBLE time_from_year ( DOUBLE  year )

inlinestatic

Definition at line 149 of file date.c.

{
    return MS_PER_DAY*day_from_year(year);
}

Referenced by convert_time(), make_day(), and year_from_time().

time_within_day()

static DOUBLE time_within_day ( DOUBLE  time )

inlinestatic

Definition at line 81 of file date.c.

{
    DOUBLE ret;
 
    ret = fmod(time, MS_PER_DAY);
    if(ret < 0)
        ret += MS_PER_DAY;
 
    return ret;
}

Referenced by Date_setDate(), Date_setFullYear(), Date_setMonth(), Date_setUTCDate(), Date_setUTCFullYear(), Date_setUTCMonth(), and Date_setYear().

utc()

static DOUBLE utc ( DOUBLE  time, DateInstance *  date  )

inlinestatic

Definition at line 315 of file date.c.

{
    time += date->bias * MS_PER_MINUTE;
    return time + daylight_saving_ta(time, date)*MS_PER_MINUTE;
}

Referenced by date_parse(), Date_setDate(), Date_setFullYear(), Date_setHours(), Date_setMilliseconds(), Date_setMinutes(), Date_setMonth(), Date_setSeconds(), Date_setYear(), DateConstr_value(), FileTimeToLocalFileTime(), CCabFolder::GetItemDetails(), LocalFileTimeToFileTime(), parse_filetime(), and test_GetTimeZoneInformation().

variant_date_to_number()

HRESULT variant_date_to_number	(	double	date,
		double *	ret
	)

Definition at line 2458 of file date.c.

{
    SYSTEMTIME st;
    UDATE udate;
    HRESULT hres;
 
    hres = VarUdateFromDate(date, 0, &udate);
    if(FAILED(hres))
        return hres;
 
    if(!TzSpecificLocalTimeToSystemTime(NULL, &udate.st, &st))
        return E_FAIL;
 
    TRACE("%uy %um %u %ud %uh %um %u.%us\n", st.wYear, st.wMonth, st.wDayOfWeek, st.wDay, st.wHour, st.wMinute,
        st.wSecond, st.wMilliseconds);
 
    *ret = make_date(make_day(st.wYear, st.wMonth - 1, st.wDay),
                     make_time(st.wHour, st.wMinute, st.wSecond, st.wMilliseconds));
    return S_OK;
}

Referenced by to_number(), and variant_date_to_string().

variant_date_to_string()

HRESULT variant_date_to_string	(	script_ctx_t *	ctx,
		double	date,
		jsstr_t **	r
	)

Definition at line 2479 of file date.c.

{
    DateInstance *date_obj;
    jsval_t val;
    double time;
    HRESULT hres;
 
    hres = variant_date_to_number(date, &time);
    if(FAILED(hres))
        return hres;
 
    hres = create_date(ctx, NULL, time, &date_obj);
    if(FAILED(hres))
        return hres;
 
    hres = dateobj_to_string(date_obj, &val);
    jsdisp_release(&date_obj->dispex);
    if(FAILED(hres))
        return hres;
 
    assert(is_string(val));
    *r = get_string(val);
    return hres;
}

Referenced by to_string().

week_day()

static DOUBLE week_day ( DOUBLE  time )

inlinestatic

Definition at line 234 of file date.c.

{
    DOUBLE ret;
 
    if(isnan(time))
        return NAN;
 
    ret = fmod(day(time)+4, 7);
    if(ret<0) ret += 7;
 
    return ret;
}

Referenced by convert_time(), create_systemtime(), create_utc_string(), Date_getDay(), Date_getUTCDay(), date_to_string(), and dateobj_to_date_string().

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

jscript

)

year_from_time()

static DOUBLE year_from_time ( DOUBLE  time )

inlinestatic

Definition at line 155 of file date.c.

{
    int y;
 
    if(isnan(time))
        return NAN;
 
    y = 1970 + time/365.25/MS_PER_DAY;
 
    if(time_from_year(y) > time)
        while(time_from_year(y) > time) y--;
    else
        while(time_from_year(y+1)<=time) y++;
 
    return y;
}

Referenced by create_systemtime(), create_utc_string(), Date_getFullYear(), Date_getUTCFullYear(), Date_getYear(), Date_setDate(), Date_setMonth(), Date_setUTCDate(), Date_setUTCMonth(), date_to_string(), Date_toISOString(), dateobj_to_date_string(), day_within_year(), daylight_saving_ta(), and in_leap_year().

Variable Documentation

Date_info

const builtin_info_t Date_info

static

Initial value:

= {
    .class     = JSCLASS_DATE,
    .props_cnt = ARRAY_SIZE(Date_props),
    .props     = Date_props,
}

Definition at line 1906 of file date.c.

Referenced by create_date().

Date_props

const builtin_prop_t Date_props[]

static

Definition at line 1858 of file date.c.

DateConstr_info

const builtin_info_t DateConstr_info

static

Initial value:

= {
    .class     = JSCLASS_FUNCTION,
    .call      = Function_value,
    .props_cnt = ARRAY_SIZE(DateConstr_props),
    .props     = DateConstr_props,
}

Definition at line 2435 of file date.c.

Referenced by create_date_constr().

DateConstr_props

const builtin_prop_t DateConstr_props[]

static

Initial value:

= {
    {L"UTC",    DateConstr_UTC,    PROPF_METHOD},
    {L"now",    DateConstr_now,    PROPF_HTML|PROPF_METHOD},
    {L"parse",  DateConstr_parse,  PROPF_METHOD}
}

Definition at line 2429 of file date.c.

DateInst_info

const builtin_info_t DateInst_info

static

Initial value:

= {
    .class = JSCLASS_DATE,
}

Definition at line 1912 of file date.c.

Referenced by create_date().