/*

* Copyright (c) 2000 - 2001 Nokia Corporation and/or its subsidiary(-ies).

* All rights reserved.

* This component and the accompanying materials are made available

* under the terms of the License "Eclipse Public License v1.0"

* which accompanies this distribution, and is available

* at the URL "http://www.eclipse.org/legal/epl-v10.html".

*

* Initial Contributors:

* Nokia Corporation - initial contribution.

*

* Contributors:

*

* Description: 

*

*/

#include "nw_wml_core.h"

#include "nw_wae.h"

#include "nwx_ctx.h"

#include "nw_scrproxy.h"

#include "nw_wml1x_wml1xcontenthandleri.h"

#include "nw_wml1x_wml1xapi.h"

#include "nw_wmlscriptch_wmlscriptcontenthandler.h"  /* to run Wml Scripts */

#include "nw_lmgr_textbox.h"

#include "nw_hed_documentrooti.h"

#include "nw_hed_appservices.h"

#include "nw_hed_contextvisitor.h"

#include "nw_hed_inumbercollectori.h"

#include "nw_adt_segmentedvector.h"

#include "nw_lmgr_cssproperties.h"

#include "nw_imagech_epoc32contenthandler.h"

#include "nwx_string.h"

#include "stdarg.h"

#include "nw_lmgr_bidiflowbox.h"

#include "nw_wml1x_wml1xdefaultstylesheet.h"

#include "nw_image_cannedimages.h"

#include "nw_text_ascii.h"

#include "nwx_osu.h"

#include "wml_url_utils.h"

#include "wml_history.h"

#include "nw_xmlp_xmlp2wbxml.h"

#include "nwx_settings.h"

#include "nw_wml1x_wml_1_3_tokens.h"

#include "wml_elm_attr.h"

#include "wml_task.h"

#include "nw_adt_types.h"

#include "nw_lmgr_slavepropertylist.h"

#include "nw_lmgr_rootbox.h"

#include "nw_markup_numbercollector.h"

#include "nw_system_optionlist.h"

#include "nw_lmgr_imgcontainerbox.h"

#include "nw_htmlp_wml_dict.h"

#include "nw_htmlp_to_wbxml.h"

#include "nwx_osu_file.h"

#include "nwx_logger.h"

#include <stddef.h>

#include "nwx_http_defs.h"

#include "BrsrStatusCodes.h"

#include "HEDDocumentListener.h"

/* ------------------------------------------------------------------------- *

   private methods

 * ------------------------------------------------------------------------- */

/************************************************************************

  Function: HedToWmlTask

  Purpose: Converts HED Url request reason to Wml task

  Parameters: HED reason

  Return Values: Wml task

**************************************************************************/

static NW_Wml_Task_e HedToWmlTask(NW_Uint8 reason)

{

  NW_Wml_Task_e ret = GO_TASK;

  if ((reason == NW_HED_UrlRequest_Reason_DocPrev) ||

      (reason == NW_HED_UrlRequest_Reason_ShellPrev))

  {

    ret= PREV_TASK;

  }

  return ret;

}

/*****************************************************************

  Name:         GetAlignProp

  Description:  Looks in Wml img element for the align attr. 

                Converts it to the LManager box property values

  Return Value: NW_TRUE when the align attr is present

                Value of the attribute

*****************************************************************/

static NW_Bool GetAlignProp(NW_Wml1x_ContentHandler_t *thisObj,

                            NW_Uint16      elId, 

                            NW_ADT_Token_t *token) 

{

  NW_Bool     align = NW_TRUE;

  NW_Ucs2     *retString = NULL;

  TBrowserStatusCode status;

  status = NW_Wml_GetAttribute(&(thisObj->wmlInterpreter),

                               elId,

                               ALIGN_ATTR,

                               &retString);

  if (status != KBrsrSuccess || !retString) {

    align = NW_FALSE;

    goto funcEnd;

  }

  if (!NW_Str_StrcmpConst(retString, WAE_ASC_TOP_STR)) {

    *token = NW_CSS_PropValue_top;

  }

  else if (!NW_Str_StrcmpConst(retString, WAE_ASC_MIDDLE_STR)) {

    *token = NW_CSS_PropValue_middle;

  }

  else if (!NW_Str_StrcmpConst(retString, WAE_ASC_BOTTOM_STR)) {

    /* map WML bottom to CSS baseline to conform to WML spec. */

    *token = NW_CSS_PropValue_baseline;

  }

  else {

    align = NW_FALSE;

  }

funcEnd:

  NW_Str_Delete(retString);

  return align;

}

/*****************************************************************

  Name:         NW_Bool GetVHspaceHWprop

  Description:  Looks in Wml img element for the vspace, hspace, height, width

                attributes. Converts them to the LManager box property values   

  Return Value: NW_TRUE when the attributes are present.

                Value type and value of the attribute

*****************************************************************/

static NW_Bool GetVHspaceHWprop(NW_Wml1x_ContentHandler_t *thisObj,

                                NW_Uint16          elId,

                                NW_Wml_Attr_t      tag,

                                NW_Int32           *val,

                                NW_ADT_ValueType_t *type)

{

  NW_Ucs2     *ptr;

  TBrowserStatusCode status;

  NW_Ucs2     *retString = NULL;

  NW_Bool     ret = NW_TRUE;

  status = NW_Wml_GetAttribute(&(thisObj->wmlInterpreter),

                               elId,

                               tag,

                               &retString);

  if (status != KBrsrSuccess || !retString) {

    ret = NW_FALSE;

    goto funcEnd;

  }

  if ((ptr=NW_Str_Strchr(retString, '%')) != NULL) {

    *ptr = 0;

    *type = NW_CSS_ValueType_Percentage;

  }

  else {

    *type = NW_CSS_ValueType_Px;

  }

  *val = NW_Str_Atoi(retString);

funcEnd:

  NW_Str_Delete(retString);

  return ret;

}

/*****************************************************************

  Name:         AddImageProperties

  Description:  when attributes are present it sets box properties 

                related to the attributes:

                align, vspace, hspace, height, and width  

  Return Value: <none>

*****************************************************************/

void AddImageProperties(NW_Wml1x_ContentHandler_t* thisObj,

                               NW_LMgr_Box_t *box,

                               NW_LMgr_PropertyValue_t value)

{

  NW_LMgr_Property_t prop;

  NW_Uint16         elId = NW_UINT16_CAST(value.integer);

  NW_LMgr_Property_t heightVal;

  NW_LMgr_Property_t widthVal;

  NW_LMgr_RootBox_t* rootBox = NULL;

  CGDIDeviceContext* deviceContext = NULL;

  const NW_GDI_Rectangle_t* rectangle = NULL;

  NW_HED_DocumentRoot_t* documentRoot = NULL;

  /* first must set the element Id on the new box */

  prop.type = NW_CSS_ValueType_Integer;

  prop.value = value;

  NW_LMgr_Box_SetProperty(box, NW_CSS_Prop_elementId, &prop);

  if (GetAlignProp(thisObj, elId, &prop.value.token)) 

  {

    prop.type = NW_CSS_ValueType_Token ;

    NW_LMgr_Box_SetProperty(box, NW_CSS_Prop_verticalAlign, &prop);

  }

  /* get the RootBox from through IDocumentListener interface */

  documentRoot = (NW_HED_DocumentRoot_t*) NW_HED_DocumentNode_GetRootNode (thisObj);

  NW_ASSERT( documentRoot != NULL );

  rootBox = NW_HED_DocumentRoot_GetRootBox( documentRoot );

  NW_ASSERT(rootBox);

  deviceContext = NW_LMgr_RootBox_GetDeviceContext (rootBox);

  rectangle = deviceContext->DisplayBounds();

  if (GetVHspaceHWprop(thisObj, elId, VSPACE_ATTR, &prop.value.integer, &prop.type)) 

  {

    if (prop.type == NW_CSS_ValueType_Percentage) 

    {

      prop.value.decimal = (NW_Float32)prop.value.integer;

      prop.value.integer = (NW_GDI_Metric_t)((prop.value.decimal*rectangle->dimension.height)/100);

      prop.type = NW_CSS_ValueType_Px;

    }

    NW_LMgr_Box_SetProperty(box, NW_CSS_Prop_topPadding,    &prop);

    NW_LMgr_Box_SetProperty(box, NW_CSS_Prop_bottomPadding, &prop);

  }

  if (GetVHspaceHWprop(thisObj, elId, HSPACE_ATTR, &prop.value.integer, &prop.type)) 

  {

    if (prop.type == NW_CSS_ValueType_Percentage) 

    {

      prop.value.decimal = (NW_Float32)prop.value.integer;

      prop.value.integer = (NW_GDI_Metric_t)((prop.value.decimal*rectangle->dimension.width)/100);

      prop.type = NW_CSS_ValueType_Px;

    }

    NW_LMgr_Box_SetProperty(box, NW_CSS_Prop_leftPadding, &prop);

    NW_LMgr_Box_SetProperty(box, NW_CSS_Prop_rightPadding,&prop);

  }

  if (GetVHspaceHWprop(thisObj, elId, HEIGHT_ATTR, &heightVal.value.integer, &heightVal.type)) 

  {

    if (heightVal.type == NW_CSS_ValueType_Percentage) 

    {

      heightVal.value.decimal = (NW_Float32)heightVal.value.integer;

      heightVal.value.integer = (NW_GDI_Metric_t)((heightVal.value.decimal*rectangle->dimension.height)/100);

      heightVal.type = NW_CSS_ValueType_Px;

    }

    NW_LMgr_Box_SetProperty(box, NW_CSS_Prop_height, &heightVal);

  }

  if (GetVHspaceHWprop(thisObj, elId, WIDTH_ATTR, &widthVal.value.integer, &widthVal.type)) 

  {

    if (widthVal.type == NW_CSS_ValueType_Percentage) 

    {

      widthVal.value.decimal = (NW_Float32)widthVal.value.integer;

      widthVal.value.integer = (NW_GDI_Metric_t)((widthVal.value.decimal*rectangle->dimension.width)/100);

      widthVal.type = NW_CSS_ValueType_Px;

    }

    NW_LMgr_Box_SetProperty(box, NW_CSS_Prop_width, &widthVal);

  }

  return;

}

/*****************************************************************

  Name:         LoadSrcImage

  Description:  Invokes image load for the WML 'src" attribute of

                the "img: element.

  Parameters:   ContentHandler

                Wrapper box for the image to be loaded

                element Id

  Return Value: KBrsrSuccess

                KBrsrOutOfMemory

                KBrsrFailure

*****************************************************************/

TBrowserStatusCode LoadSrcImage(NW_Wml1x_ContentHandler_t *thisObj,

                                NW_Uint16                 elId)

{

  NW_Ucs2               *imageUrl = NULL;

  TBrowserStatusCode           status;

  NW_Text_UCS2_t        *urlObj;

  NW_HED_DocumentRoot_t *documentRoot;

  status = NW_Wml_GetImageUrl(&(thisObj->wmlInterpreter),

                                elId,

                                &imageUrl);

  if (status == KBrsrSuccess) {

    NW_ASSERT(imageUrl);

    urlObj = NW_Text_UCS2_New (imageUrl, 0, NW_Text_Flags_TakeOwnership);

    if (urlObj != NULL) {

      NW_Uint32 elId32 = elId; 

      /* get the documentRoot and invoke the Load method */

      documentRoot =

        (NW_HED_DocumentRoot_t*)NW_HED_DocumentNode_GetRootNode (thisObj);

      status =

        NW_HED_DocumentRoot_StartLoad (documentRoot,

                                      NW_HED_DocumentNodeOf (thisObj),

                                      NW_TextOf (urlObj),

                                      NW_HED_UrlRequest_Reason_DocLoadChild,

                                      (void*)elId32, NW_UrlRequest_Type_Image,

									  NW_CACHE_NORMAL);

      NW_Object_Delete(urlObj);

    } else {

      status = KBrsrOutOfMemory; /* NW_Text_UCS2_New() takes care of deleting string when fails */

    }

  }

  return status;

}

/*****************************************************************

  Name:         StripInsecureVariables()

  Description:  

  Parameters:   

  Algorithm:    

  Return Value: 

*****************************************************************/

static TBrowserStatusCode StripInsecureVariables (NW_HED_Context_t* context)

{

  static const NW_Ucs2 ecom[] = {'E', 'c', 'o', 'm', '_', 0};

  NW_Uint32 len = NW_Str_Strlen(ecom);

  const NW_HED_Context_Variable_t* var;

  NW_Uint32 i = 0;

  /* while there is another entry */

  while ((var = NW_HED_Context_GetEntry (context, i)) != NULL) {

    /* if the variable's name starts with "Ecom_" remove it -- don't increment i */

    if (!NW_Str_Strncmp ((NW_Ucs2*) var->name.storage, ecom, len)) {

      NW_HED_Context_RemoveEntry (context, i);

    }

    /* otherwise just increment i */

    else {

      i++;

    }

  }

  return KBrsrSuccess;

}

/*****************************************************************

  Name:         CopyInGlobalVariables()

  Description:  

  Parameters:   

  Algorithm:    

  Return Value: 

*****************************************************************/

static TBrowserStatusCode CopyInGlobalVariables(NW_Wml1x_ContentHandler_t* thisObj)

{

  NW_HED_DocumentRoot_t* docRoot;

  NW_HED_Context_t* globalContext;

  TBrowserStatusCode status = KBrsrSuccess;

  /* get the global context from the doc-root */

  docRoot =

    (NW_HED_DocumentRoot_t*)NW_HED_DocumentNode_GetRootNode (thisObj);

  globalContext = NW_HED_DocumentRoot_GetContext (docRoot, NW_HED_DocumentRoot_ContextGlobalId);

  NW_ASSERT (globalContext);

  /* apply the global variables to the wml interpreter */

  NW_DeckDecoder_ContextToVarList (globalContext, thisObj->wmlInterpreter.var_list,

      thisObj->wmlInterpreter.mem_segment_general);

  /* clear the global variable context */

  NW_HED_Context_Reset (globalContext);

  return status;

}

/*****************************************************************

  Name:         CopyOutGlobalVariables()

  Description:  

  Parameters:   

  Algorithm:    

  Return Value: 

*****************************************************************/

static TBrowserStatusCode CopyOutGlobalVariables(NW_Wml1x_ContentHandler_t* thisObj)

{

  NW_HED_DocumentRoot_t* docRoot;

  NW_HED_Context_t* oldGlobalContext;

  NW_HED_Context_t* newGlobalContext;

  /* get the global context from the doc-root */

  docRoot =

    (NW_HED_DocumentRoot_t*)NW_HED_DocumentNode_GetRootNode (thisObj);

  oldGlobalContext = NW_HED_DocumentRoot_GetContext (docRoot, NW_HED_DocumentRoot_ContextGlobalId);

  /* convert the varlist into a new context */

  newGlobalContext = NW_DeckDecoder_VarListToContext(thisObj->wmlInterpreter.var_list);

  /* strip insecure variables */

  StripInsecureVariables (newGlobalContext);

  /* replace the old context with the new one */

  if (newGlobalContext != NULL) {

    NW_Int8 id;

    NW_HED_DocumentRoot_RemoveContext (docRoot, NW_HED_DocumentRoot_ContextGlobalId);

    NW_Object_Delete (oldGlobalContext);

    id = NW_HED_DocumentRoot_ContextGlobalId;

    NW_HED_DocumentRoot_AddContext (docRoot, newGlobalContext, &id);

  }

  /* otherwise just reset the current old global context */

  else {

    NW_HED_Context_Reset (oldGlobalContext);

  }

  return KBrsrSuccess;

}

/*****************************************************************

  Name:         CopyInTaskVariables()

  Description:  

  Parameters:   

  Algorithm:    

  Return Value: 

*****************************************************************/

static TBrowserStatusCode CopyInTaskVariables(NW_Wml1x_ContentHandler_t* thisObj)

{

  NW_HED_DocumentRoot_t* docRoot;

  NW_HED_Context_t* context;

  TBrowserStatusCode status = KBrsrSuccess;

  /* get the global context from the doc-root */

  docRoot =

    (NW_HED_DocumentRoot_t*)NW_HED_DocumentNode_GetRootNode (thisObj);

  NW_ASSERT (docRoot);

  context = NW_HED_DocumentRoot_GetContext (docRoot, NW_Wml1x_ContentHandler_ContextTaskId);

  if (context == NULL) {

    return KBrsrSuccess;

  }

  /* apply the global variables to the wml interpreter */

  NW_DeckDecoder_ContextToVarList (context, thisObj->wmlInterpreter.param_list,

      thisObj->wmlInterpreter.mem_segment_general);

  /* clear the global variable context */

  NW_HED_Context_Reset (context);

  return status;

}

/*****************************************************************

  Name:         CopyOutTaskVariables()

  Description:  

  Parameters:   

  Algorithm:    

  Return Value: 

*****************************************************************/

static TBrowserStatusCode CopyOutTaskVariables(NW_Wml1x_ContentHandler_t* thisObj)

{

  NW_HED_DocumentRoot_t* docRoot;

  NW_HED_Context_t* oldContext;

  NW_HED_Context_t* newContext;

  /* get the global context from the doc-root */

  docRoot =

    (NW_HED_DocumentRoot_t*)NW_HED_DocumentNode_GetRootNode (thisObj);

  oldContext = NW_HED_DocumentRoot_GetContext (docRoot, NW_Wml1x_ContentHandler_ContextTaskId);

  /* convert the varlist into a new context */

  newContext = NW_DeckDecoder_VarListToContext(thisObj->wmlInterpreter.param_list);

  /* strip insecure variables */

  StripInsecureVariables (newContext);