Piotr Caban : jscript: Added DateConstr_UTC implementation.
Alexandre Julliard
julliard at winehq.org
Fri Jul 3 09:31:12 CDT 2009
Module: wine
Branch: master
Commit: 60ddd438d3bc23079a3c2108e400d3252ef48821
URL: http://source.winehq.org/git/wine.git/?a=commit;h=60ddd438d3bc23079a3c2108e400d3252ef48821
Author: Piotr Caban <piotr.caban at gmail.com>
Date: Fri Jul 3 02:45:22 2009 +0200
jscript: Added DateConstr_UTC implementation.
---
dlls/jscript/date.c | 158 +++++++++++++++++++++++++++++----------------------
1 files changed, 89 insertions(+), 69 deletions(-)
diff --git a/dlls/jscript/date.c b/dlls/jscript/date.c
index 7888a1c..d20ee96 100644
--- a/dlls/jscript/date.c
+++ b/dlls/jscript/date.c
@@ -2210,8 +2210,92 @@ static HRESULT DateConstr_parse(DispatchEx *dispex, LCID lcid, WORD flags, DISPP
static HRESULT DateConstr_UTC(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
{
- FIXME("\n");
- return E_NOTIMPL;
+ VARIANT year, month, vdate, hours, minutes, seconds, ms;
+ DOUBLE y;
+ int arg_no = arg_cnt(dp);
+ HRESULT hres;
+
+ TRACE("\n");
+
+ if(arg_no>0) {
+ hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &year);
+ if(FAILED(hres))
+ return hres;
+ y = num_val(&year);
+ if(0<=y && y<=99)
+ y += 1900;
+ }
+ else y = 1900;
+
+ if(arg_no>1) {
+ hres = to_number(dispex->ctx, get_arg(dp, 1), ei, &month);
+ if(FAILED(hres))
+ return hres;
+ }
+ else {
+ V_VT(&month) = VT_R8;
+ V_R8(&month) = 0;
+ }
+
+ if(arg_no>2) {
+ hres = to_number(dispex->ctx, get_arg(dp, 2), ei, &vdate);
+ if(FAILED(hres))
+ return hres;
+ }
+ else {
+ V_VT(&vdate) = VT_R8;
+ V_R8(&vdate) = 1;
+ }
+
+ if(arg_no>3) {
+ hres = to_number(dispex->ctx, get_arg(dp, 3), ei, &hours);
+ if(FAILED(hres))
+ return hres;
+ }
+ else {
+ V_VT(&hours) = VT_R8;
+ V_R8(&hours) = 0;
+ }
+
+ if(arg_no>4) {
+ hres = to_number(dispex->ctx, get_arg(dp, 4), ei, &minutes);
+ if(FAILED(hres))
+ return hres;
+ }
+ else {
+ V_VT(&minutes) = VT_R8;
+ V_R8(&minutes) = 0;
+ }
+
+ if(arg_no>5) {
+ hres = to_number(dispex->ctx, get_arg(dp, 5), ei, &seconds);
+ if(FAILED(hres))
+ return hres;
+ }
+ else {
+ V_VT(&seconds) = VT_R8;
+ V_R8(&seconds) = 0;
+ }
+
+ if(arg_no>6) {
+ hres = to_number(dispex->ctx, get_arg(dp, 6), ei, &ms);
+ if(FAILED(hres))
+ return hres;
+ }
+ else {
+ V_VT(&ms) = VT_R8;
+ V_R8(&ms) = 0;
+ }
+
+ if(retv) {
+ V_VT(retv) = VT_R8;
+ V_R8(retv) = time_clip(make_date(
+ make_day(y, num_val(&month), num_val(&vdate)),
+ make_time(num_val(&hours), num_val(&minutes),
+ num_val(&seconds), num_val(&ms))));
+ }
+
+ return S_OK;
}
static HRESULT DateConstr_value(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
@@ -2266,76 +2350,12 @@ static HRESULT DateConstr_value(DispatchEx *dispex, LCID lcid, WORD flags, DISPP
/* ECMA-262 3rd Edition 15.9.3.1 */
default: {
- VARIANT year, month, vdate, hours, minutes, seconds, ms;
+ VARIANT ret_date;
DateInstance *di;
- int arg_no = arg_cnt(dp), y;
-
- hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &year);
- if(FAILED(hres))
- return hres;
- y = num_val(&year);
- if(0<=y && y<=99)
- y += 1900;
-
- hres = to_number(dispex->ctx, get_arg(dp, 1), ei, &month);
- if(FAILED(hres))
- return hres;
-
- if(arg_no>2) {
- hres = to_number(dispex->ctx, get_arg(dp, 2), ei, &vdate);
- if(FAILED(hres))
- return hres;
- }
- else {
- V_VT(&vdate) = VT_R8;
- V_R8(&vdate) = 1;
- }
-
- if(arg_no>3) {
- hres = to_number(dispex->ctx, get_arg(dp, 3), ei, &hours);
- if(FAILED(hres))
- return hres;
- }
- else {
- V_VT(&hours) = VT_R8;
- V_R8(&hours) = 0;
- }
-
- if(arg_no>4) {
- hres = to_number(dispex->ctx, get_arg(dp, 4), ei, &minutes);
- if(FAILED(hres))
- return hres;
- }
- else {
- V_VT(&minutes) = VT_R8;
- V_R8(&minutes) = 0;
- }
-
- if(arg_no>5) {
- hres = to_number(dispex->ctx, get_arg(dp, 5), ei, &seconds);
- if(FAILED(hres))
- return hres;
- }
- else {
- V_VT(&seconds) = VT_R8;
- V_R8(&seconds) = 0;
- }
-
- if(arg_no>6) {
- hres = to_number(dispex->ctx, get_arg(dp, 6), ei, &ms);
- if(FAILED(hres))
- return hres;
- }
- else {
- V_VT(&ms) = VT_R8;
- V_R8(&ms) = 0;
- }
+ DateConstr_UTC(dispex, lcid, flags, dp, &ret_date, ei, sp);
- hres = create_date(dispex->ctx, TRUE, time_clip(
- make_date(make_day(y, num_val(&month), num_val(&vdate)),
- make_time(num_val(&hours), num_val(&minutes),
- num_val(&seconds), num_val(&ms)))), &date);
+ hres = create_date(dispex->ctx, TRUE, num_val(&ret_date), &date);
if(FAILED(hres))
return hres;
More information about the wine-cvs
mailing list