/*
* Copyright (c) 1999 - 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: 
*
*/


 /*
    $Workfile: scr_url.c $

    Purpose:

        This file implements the ScriptServer functionality for the URL standard 
        library. The URL standard library contains a set of functions for 
        handling both absolute and relative URLs.  The general syntax is:
          <scheme>://<host>:<port>/path;<params>?<queury>#<fragment>
 */

#include "scr_url.h"
#include "scr_frstack.h"
#include "scr_estack.h"
#include "scr_core.h"
#include "scr_conv.h"
#include "scr_api.h"
#include "scr_srv.h" 

//#include "nwx_http_header_utils.h"
#include "nwx_url_utils.h"

#include "nwx_mem.h"
#include "nwx_string.h"
#include "BrsrStatusCodes.h"


/*#define NO_OF_URL_FUNCS 14
static lib_function_t url_funcs[NO_OF_URL_FUNCS];*/

/*#define BREAK_DO { failed = NW_TRUE; break; }*/

static NW_Ucs2* GetValidUrl(void)
{
  NW_Ucs2 *ustr = 0;
  
  ustr = GetUcs2Val();
  if (ustr != NULL) {
    if (NW_Url_IsValid(ustr) == NW_FALSE) {
      push_estack(new_invalid_val());
      NW_Str_Delete(ustr);
      return NULL;
    }
  }

  return ustr;
}

static NW_Bool ReturnStrVal(TBrowserStatusCode status, NW_Ucs2* res_ustr, NW_Bool res_valid)
{
  val_t res = uninitialize_val();
  str_t res_str = 0;

  if (status == KBrsrOutOfMemory) {
    set_error_code(SCR_ERROR_OUT_OF_MEMORY);
    if (res_ustr != NULL) {
      NW_Str_Delete(res_ustr);
      res_ustr = NULL;
    }
  }

  if (!res_valid) {
    NW_Str_Delete(res_ustr);
    push_estack(new_invalid_val());
    return NW_FALSE;
  } else if (res_ustr == NULL) {
    push_estack(new_empty_str_val());
    return NW_FALSE;
  }

  res_str = ucs22str(res_ustr);
  NW_Str_Delete(res_ustr);
  if (res_str == NULL) {
    /*lint -e{774} Significant prototype coercion*/
    if (res_valid) {
      push_estack(new_empty_str_val());
    } else {
      push_estack(new_invalid_val());
    }
    set_error_code(SCR_ERROR_OUT_OF_MEMORY);
    return NW_FALSE;
  }
  
  res = new_str_val(res_str);
  free_str(res_str);

  push_estack(res);
  free_val(res);
  
  return NW_TRUE;
}


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

  Name: IsValidLoadStringContentType(void)

  Description:  Checks for valid loadString content type argument.
                It must begin with "text/" and contain no whitespace
                or comma's.

  Return Value: NW_TRUE if valid, NW_FALSE otherwise.

******************************************************************/
static NW_Bool IsValidLoadStringContentType ( char* contentType )
{
  char* charPtr;
  const char *textPrefix = "text/";

  if ( contentType == NULL ) {
    return NW_FALSE;
  }
   
  /* Check that the string begins with "text/". */
  if (NW_Asc_strnicmp(contentType, textPrefix,
                      NW_Asc_strlen(textPrefix)) != 0)
  {
    /* Does not begin with "text/".  Fail */
    return NW_FALSE;
  }

  /* Fail if string contains any whitespace or a comma. */
  charPtr = contentType;
  while ( *charPtr ) {
    NW_Ucs2 c;

    c = *charPtr;

    if ( NW_Str_Isspace( c ) )
      return NW_FALSE;

    if ( c == WAE_URL_COMMA_CHAR )
      return NW_FALSE;

    charPtr++;
  }

  return NW_TRUE;
}

NW_Byte size_url_lib(void)
{
  return NO_OF_URL_FUNCS;
}

static NW_Bool url_isValid(void)
{
  val_t res = uninitialize_val();
  NW_Ucs2 *ustr = 0;
  
  ustr = GetUcs2Val();
  if (ustr == NULL) {
    return NW_FALSE;
  }

  res = new_bool_val(NW_Url_IsValid(ustr));
  NW_Str_Delete(ustr);

  push_estack(res);
  free_val(res);
  
  return NW_TRUE;
}

static NW_Bool url_getScheme(void)
{
  NW_Ucs2 *ustr = 0, *res_ustr = 0;
  TBrowserStatusCode status;
  
  ustr = GetValidUrl();
  if (ustr == NULL) {
    return NW_FALSE;
  }

  status = NW_Url_GetSchemeStr(ustr, &res_ustr);
  NW_Str_Delete(ustr);

  return ReturnStrVal(status, res_ustr, NW_TRUE);
}

static NW_Bool url_getHost(void)
{
  NW_Ucs2 *ustr = 0, *res_ustr = 0;
  TBrowserStatusCode status;
  
  ustr = GetValidUrl();
  if (ustr == NULL) {
    return NW_FALSE;
  }
    
  status = NW_Url_GetHost(ustr, &res_ustr);
  NW_Str_Delete(ustr);

  return ReturnStrVal(status, res_ustr, NW_TRUE);
}

static NW_Bool url_getPort(void)
{
  NW_Ucs2 *ustr = 0, *res_ustr = 0;
  NW_Bool valid_port;
  TBrowserStatusCode status;
  
  ustr = GetValidUrl();
  if (ustr == NULL) {
    return NW_FALSE;
  }
    
  status = NW_Url_GetPort(ustr, &valid_port, &res_ustr);
  NW_Str_Delete(ustr);

  return ReturnStrVal(status, res_ustr, valid_port);
}


static NW_Bool url_getPath(void)
{
  NW_Ucs2 *ustr = 0, *res_ustr = 0;
  TBrowserStatusCode status;
  
  ustr = GetValidUrl();
  if (ustr == NULL) {
    return NW_FALSE;
  }
    
  status = NW_Url_GetPathNoParam(ustr, &res_ustr);
  NW_Str_Delete(ustr);

  return ReturnStrVal(status, res_ustr, NW_TRUE);
}


static NW_Bool url_getParameters(void)
{
  NW_Ucs2 *ustr = 0, *res_ustr = 0;
  TBrowserStatusCode status;
  
  ustr = GetValidUrl();
  if (ustr == NULL) {
    return NW_FALSE;
  }
    
  status = NW_Url_GetParameters(ustr, &res_ustr);
  NW_Str_Delete(ustr);

  return ReturnStrVal(status, res_ustr, NW_TRUE);
}

static NW_Bool url_getQuery(void)
{
  NW_Ucs2 *ustr = 0, *res_ustr = 0;
  TBrowserStatusCode status;
  
  ustr = GetValidUrl();
  if (ustr == NULL) {
    return NW_FALSE;
  }
    
  status = NW_Url_GetQuery(ustr, &res_ustr);
  NW_Str_Delete(ustr);

  return ReturnStrVal(status, res_ustr, NW_TRUE);
}

static NW_Bool url_getFragment(void)
{
  NW_Ucs2 *ustr = 0, *res_ustr = 0;
  TBrowserStatusCode status;
  
  ustr = GetValidUrl();
  if (ustr == NULL) {
    return NW_FALSE;
  }
    
  status = NW_Url_GetFragId(ustr, &res_ustr, NW_FALSE);
  NW_Str_Delete(ustr);

  return ReturnStrVal(status, res_ustr, NW_TRUE);
}

static NW_Bool url_getBase(void)
{
  NW_Ucs2 *ustr = 0, *res_ustr = 0;
  TBrowserStatusCode status = KBrsrSuccess;

  ustr = get_curr_url();
  /* should always have a current url, but just in case somebody stomps */
  /* on the url pointer in the frame... */
  if (ustr == NULL) {
    NW_ASSERT(ustr != NULL);
    res_ustr = NULL;
  } else {
    status = NW_Url_GetBase(ustr, &res_ustr);
  }

  return ReturnStrVal(status, res_ustr, NW_TRUE);
}

static NW_Bool url_getReferer(void)
{
  TBrowserStatusCode status;
  str_t res_str = 0;
  NW_Ucs2 *relURI = NULL;
  NW_Ucs2 *referer = get_curr_referer();
  val_t res = uninitialize_val();

  if (referer)
  {
    status = NW_Url_AbsToRel(get_curr_url(), referer, &relURI);
    if (status == KBrsrOutOfMemory)
    {
      set_error_code(SCR_ERROR_OUT_OF_MEMORY);
      return NW_FALSE;
    }

    res_str = ucs22str(relURI);
    res = new_str_val(res_str);
    free_str(res_str);
  }
  else res = new_empty_str_val();

  push_estack(res);

  free_val(res);
  if (relURI) {
    NW_Mem_Free(relURI);
  }
  
  return NW_TRUE;
}

static NW_Bool url_resolve(void)
{
  val_t v1 = uninitialize_val(), v2 = uninitialize_val();
  NW_Ucs2 *base_url = 0, *emb_url = 0, *res_url = 0;
  TBrowserStatusCode status;
  NW_Bool isvalid;

  v2 = pop_estack();
  v1 = pop_estack();

  if ((ScriptVarType(v1) == VAL_TYPE_INVALID) || (ScriptVarType(v2) == VAL_TYPE_INVALID) )
  {
    push_estack(new_invalid_val());
    free_val(v1);
    free_val(v2);
    return NW_FALSE;
  }

  base_url = val2ucs2_trim(v1);
  emb_url  = val2ucs2_trim(v2);
  free_val(v1);
  free_val(v2);

  if (!base_url || ! emb_url)
  {
    /* Note: NW_Str_Delete() handles null pointers */
    NW_Str_Delete(base_url);
    NW_Str_Delete(emb_url);
    return NW_TRUE;
  }

  status = NW_Url_RelToAbs(base_url, emb_url, &res_url);
  NW_Str_Delete(base_url);
  NW_Str_Delete(emb_url);

  isvalid = NW_BOOL_CAST(res_url != NULL);

  return ReturnStrVal(status, res_url, isvalid);
}

static NW_Bool url_escapeString(void)
{
  NW_Ucs2 *ustr = 0, *res_ustr = 0;
  NW_Int32  len;
  NW_Bool isvalid;
  TBrowserStatusCode status = KBrsrSuccess;
  
  ustr = GetUcs2Val();
  if (ustr == NULL) {
    return NW_FALSE;
  }

  len = NW_Url_EscapeStringLen(ustr);
  res_ustr = NW_Str_New(len);
  if (res_ustr == NULL){
    status = KBrsrOutOfMemory;
  }

  isvalid = NW_Url_EscapeString(ustr, res_ustr);
  NW_Str_Delete(ustr);

  return ReturnStrVal(status, res_ustr, isvalid);
}

static NW_Bool url_unescapeString(void)
{
  NW_Ucs2 *ustr = 0, *res_ustr = 0;
  NW_Int32  len;
  NW_Bool isvalid;
  TBrowserStatusCode status = KBrsrSuccess;
  
  ustr = GetUcs2Val();
  if (ustr == NULL) {
    return NW_FALSE;
  }

  len = NW_Url_UnEscapeStringLen(ustr);
  res_ustr = NW_Str_New(len);
  if (res_ustr == NULL){
    status = KBrsrOutOfMemory;
  }

  isvalid = NW_Url_UnEscapeString(ustr, res_ustr);
  NW_Str_Delete(ustr);

  return ReturnStrVal(status, res_ustr, isvalid);
}

static NW_Bool url_loadString(void)
{
  val_t v1 = uninitialize_val(), v2 = uninitialize_val();
  NW_Ucs2 *url = NULL;
  char *mimetype = 0;
  str_t mimetype_str = 0;
  NW_Bool status = NW_FALSE;

  /*lint --e{764} No cases, only default*/
  switch (status)
  {
   default:  
    v2 = pop_estack();
    v1 = pop_estack();

    if ((ScriptVarType(v1) == VAL_TYPE_INVALID) || (ScriptVarType(v2) == VAL_TYPE_INVALID))
    {
      status = NW_FALSE;
      break;
    }

    url = val2ucs2_trim(v1);

    if (!url)
    {
      status = NW_FALSE;
      break;
    }

    if (!val2str(v2, &mimetype_str))
    {
      status = NW_FALSE;
      break;
    }

    mimetype = str2ascii(mimetype_str);

    if ( ! IsValidLoadStringContentType( mimetype ) )
    {
      status = NW_FALSE;
      break;
    }

    if (!NW_Url_IsValid(url))
    {
      status = NW_FALSE;
      break;
    }

    /* Leave url until get response, jwild */
    status = ScriptAPI_loadString(url, mimetype);
  }
  
  NW_Mem_Free(url);
  NW_Mem_Free(mimetype);
  free_str(mimetype_str);
  free_val(v1);
  free_val(v2); 
  
  if (!status)
    {
      push_estack(new_invalid_val());
      return NW_FALSE;
    }
  else
    return NW_TRUE;
}


/*  functions in Url library */
static const lib_function_t url_lib_table[NO_OF_URL_FUNCS] =
{ /*  arg_size,   func_ptr,                 is_async  */
  {   1,          url_isValid,              NW_FALSE },
  {   1,          url_getScheme,            NW_FALSE },
  {   1,          url_getHost,              NW_FALSE },
  {   1,          url_getPort,              NW_FALSE },
  {   1,          url_getPath,              NW_FALSE },
  {   1,          url_getParameters,        NW_FALSE },
  {   1,          url_getQuery,             NW_FALSE },
  {   1,          url_getFragment,          NW_FALSE },
  {   0,          url_getBase,              NW_FALSE },
  {   0,          url_getReferer,           NW_FALSE },
  {   2,          url_resolve,              NW_FALSE },
  {   1,          url_escapeString,         NW_FALSE },
  {   1,          url_unescapeString,       NW_FALSE },
  {   2,          url_loadString,           NW_TRUE  }
};

void populate_url_lib(lib_function_table_t *table)
{
  NW_Int32 i = ScriptAPI_get_lib_index(URL_LIB_ID);
  (*table)[i] = url_lib_table;

  return;
}