/* Copyright (C) 2002 Bjoern Beutel. */

/* Description. =============================================================*/

/* This module parses Malaga values. */

/* Includes. ================================================================*/

#include <stdio.h>

#include <setjmp.h>

#include <glib.h>

#include "basic.h"

#include "pools.h"

#include "values.h"

#include "symbols.h"

#include "scanner.h"

#include "hangul.h"

#include "value_parser.h"

/* Functions. ===============================================================*/

static void 

parse_symbol( void )

/* Parse a symbol and push it on the VALUE_STACK. */

{

  test_token( TOK_IDENT );

  push_symbol_value( find_symbol( token_name ) );

  read_next_token();

}

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

void 

parse_a_value( void )

/* Parse a value (use scanner input) and leave it on the VALUE_STACK. */

{

  int_t n; /* Number of values in list or record. */

  switch (next_token) 

  {

  case '<': 

    /* Parse a list. */

    read_next_token();

    n = 0;

    if (next_token != '>') 

    { 

      parse_a_value();

      n++;

      while (next_token == ',') 

      { 

	read_next_token();

        parse_a_value();

        n++;

      }

    }

    parse_token( '>' );

    build_list(n);

    break;

  case '[': 

    /* Parse a record. */

    read_next_token();

    n = 0;

    if (next_token != ']') 

    { 

      parse_symbol();

      parse_token( ':' );

      parse_a_value();

      n++;

      while (next_token == ',') 

      { 

	read_next_token();

        parse_symbol();

        parse_token( ':' );

        parse_a_value();

        n++;

      }

    }

    parse_token( ']' );

    build_record(n);

    break;

  case TOK_IDENT: 

    /* Parse a symbol. */

    parse_symbol();

    break;

  case TOK_STRING: 

    /* Parse a string. */

    encode_hangul( &token_string );

    push_string_value( token_string, NULL );

    read_next_token();

    break;

  case TOK_NUMBER: 

    /* Parse a number. */

    push_number_value( token_number );

    read_next_token();

    break;

  case '-':

    /* Parse a negative number. */

    read_next_token();

    test_token( TOK_NUMBER );

    push_number_value( -token_number );

    read_next_token();

    break;

  default:

    complain( "Value expected, not %s.", token_as_text( next_token ) );

  }

}

/* End of file. =============================================================*/