/* This file is part of GCC.

GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 3, or (at your option) any later
version.

GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING3.  If not see
<http://www.gnu.org/licenses/>.  */

#ifndef __GCC_OBJECTS_H__
#define __GCC_OBJECTS_H__

enum GPY_LIT_T {
  TYPE_INTEGER,
  TYPE_STRING,
  TYPE_BOOLEAN,
  TYPE_FLOAT,
  TYPE_VECTOR,
  TYPE_NONE,
};

enum GPY_OBJECT_T {
  TYPE_OBJECT_STATE,
  TYPE_OBJECT_LIT,
  TYPE_NULL
};

typedef struct gpy_rr_literal_t {
  enum GPY_LIT_T type;
  union {
    int integer;
    float decimal;
    char * string;
    bool boolean;
  } literal ;
} gpy_literal_t ;

#define Gpy_Lit_Init( x )			\
  x = gpy_malloc( sizeof(gpy_literal_t) );	\
  x->type = TYPE_NONE;				\
  x->literal.integer = 0;

typedef struct gpy_rr_object_state_t {
  char * obj_t_ident;
  signed long ref_count;
  void * self;
  struct gpy_type_obj_def_t * definition;
} gpy_object_state_t ;

typedef struct gpy_object_t {
  enum GPY_OBJECT_T T;
  union{
    gpy_object_state_t * object_state;
    gpy_literal_t * literal;
  } o ;
} gpy_object_t ;

#define METH_NOARGS      (1 << 0) /* 0x01 */
#define METH_VARARGS     (1 << 1) /* 0x02 */
#define METH_KEYWORDS    (1 << 2) /* 0x03 */

typedef gpy_object_t * (*binary_op)( gpy_object_t *,
				     gpy_object_t * );

typedef gpy_object_t * (*gpy_builtin_callback__)
  (gpy_object_t *, gpy_object_t ** );

typedef struct gpy_builtin_method_def_t {
  char * identifer;
  gpy_builtin_callback__ callback;
  unsigned char args_type;
} gpy_method_def_t ;

typedef struct gpy_number_prot_t
{
  bool init;

  binary_op n_add;
  binary_op n_sub;
  binary_op n_div;
  binary_op n_mul;
  binary_op n_pow;

  binary_op n_let;
  binary_op n_lee;
  binary_op n_get;
  binary_op n_gee;
  binary_op n_eee;
  binary_op n_nee;
  binary_op n_orr;
  binary_op n_and;

} gpy_num_prot_t ;

typedef struct gpy_type_obj_def_t {
  char * identifier;
  size_t builtin_type_size;
  gpy_object_t * (*init_hook)( gpy_object_t ** );
  void (*destroy_hook)( gpy_object_t * );
  void (*print_hook)( gpy_object_t * , FILE * , bool );
  struct gpy_number_prot_t * binary_protocol;
  struct gpy_builtin_method_def_t * methods;
} gpy_type_obj_def_t ;

typedef gpy_object_t * (*__callable)( void );

typedef struct gpy_callable_def_t {
  char * ident; int n_args;
  bool class; __callable call;
} gpy_callable_def_t;

#define Gpy_Object_State_Init( x )				\
  x = gpy_malloc( sizeof(struct gpy_rr_object_state_t) );	\
  debug("object created at <%p>!\n", (void*)x );		\
  x->obj_t_ident = NULL; x->ref_count = 0;			\
  x->self = NULL; x->definition = NULL;

#define Gpy_Object_State_Init_Ctx( x,y )			\
  Gpy_Object_State_Init( x );					\
  gpy_vec_push( ((gpy_context_t*)(y->vector[y->length-1]))->symbols, x );

#define NULL_OBJ_STATE (gpy_object_state_t *) NULL
#define NULL_OBJECT (gpy_object_t *) NULL

extern void gpy_rr_init_runtime( void );
extern gpy_object_t * gpy_rr_fold_integer( int );

extern void gpy_rr_init_primitives( void );

#endif //__GCC_OBJECTS_H__