/*

* 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_debug.c $

    Purpose:

    Propriety Debug library

 */

#include "scr_debug.h"

#include "scr_estack.h"

#include "scr_conv.h"

#include "scr_api.h"

#include "scr_core.h"

#include "nwx_mem.h"

/*#define NO_OF_DEBUG_FUNCS 3

static lib_function_t debug_funcs[NO_OF_DEBUG_FUNCS];*/

NW_Byte size_debug_lib(void)

{

  return NO_OF_DEBUG_FUNCS;

}

#ifdef WAE_DEBUG

static FILE *fp = 0;

static NW_Bool debug_openFile(void)

{

  NW_Bool retval = NW_TRUE;

  val_t v1 = 0, v2 = 0;

  str_t str1 = 0;

  str_t str2 = 0;

  v2 = pop_estack();

  v1 = pop_estack();

  if (val2str(v1, &str1) && val2str(v2, &str2))

  {

    char *fname = str2ascii(str1);

    char *mode = str2ascii(str2);

    if (fname && mode)

    {

      if (fp) fclose(fp);

      fp = fopen(fname, mode);

      if (!fp) printf("Cannot open file %s with mode %s\n",fname, mode);

      NW_Mem_Free(fname);

      NW_Mem_Free(mode);

    }

    else retval = NW_FALSE;

  }

  else

  {

    NW_ASSERT(NW_FALSE);

    retval = NW_FALSE;

  }

  push_estack(new_empty_str_val());

  free_str(str1);  free_str(str2);

  free_val(v1); free_val(v2);

  return retval;

}

static NW_Bool debug_println(void)

{

  NW_Bool retval = NW_TRUE;

  val_t v = 0;

  str_t str = 0;

  v = pop_estack();

  if (val2str(v, &str))

  {

    char *s = str2ascii(str);

    if (s)

    {

      if (fp) fprintf(fp, "%s\n", s);

      else printf("%s\n", s);

      NW_Mem_Free(s);

    }

    else retval = NW_FALSE;

  }

  else if (ScriptVarType(v) == VAL_TYPE_INVALID)

  {

    if (fp) fprintf(fp, "<invalid>\n");

      else printf("<invalid>\n");

  }

  else

  {

    NW_ASSERT(NW_FALSE);

    retval = NW_FALSE;

  }

  push_estack(new_empty_str_val());

  free_str(str);

  free_val(v);

  return retval;

}

static NW_Bool debug_closeFile(void)

{

  if (fp)

  {

    fclose(fp);

    fp = 0;

  }

  push_estack(new_empty_str_val());

  return NW_TRUE;

}

#else

NW_Bool debug_println(void) { return NW_TRUE; }

NW_Bool debug_openFile(void) { return NW_TRUE; }

NW_Bool debug_closeFile(void) { return NW_TRUE; }

#endif

/*  functions in Debug library */

static const lib_function_t debug_lib_table[NO_OF_DEBUG_FUNCS] =

{ /*  arg_size,   func_ptr,                 is_async  */

  {   1,          debug_openFile,           NW_FALSE },

  {   1,          debug_println,            NW_FALSE },

  {   0,          debug_closeFile,          NW_FALSE }

};

void populate_debug_lib(lib_function_table_t *table)

{

  NW_Int32 i = ScriptAPI_get_lib_index(DEBUG_LIB_ID);

  (*table)[i] = debug_lib_table;

  return;

}