root/src/obj_list.c

/**
 * obj_list.c -> Part of Crules Programming language
 *
 * Crules is the legal property of its developers. Please refer to the
 * COPYRIGHT file distributed with this source distribution.
 *
 * This program 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 of the License, or
 * (at your option) any later version.
 *
 * This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.
 **/

#ifdef HAVE_CONFIG_H
# include "config.h"
#else
# define CMAKE 1
# include "config.h.cmake"
#endif

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <crules/crules.h>
#include <crules/opcodes.h>
#include <crules/symbols.h>
#include <crules/objects.h>
#include <crules/backend.h>
#include <crules/runtime.h>
#include <crules/garbage.h>
#include <crules/operators.h>

typedef struct crl_list_t {
  long int size, length;
  crl_symbol_obj **array;
} crl_list_t ;

crl_symbol_obj *
crl_obj_list_init( crl_symbol_obj * caller,
                   crl_type_obj_def_t ** def )
{
  return NULL;
}

crl_symbol_obj *
crl_obj_list_push( crl_symbol_obj * caller,
                   crl_symbol_obj * self,
                   crl_context_table * context )
{
  return NULL;
}

crl_symbol_obj *
crl_obj_list_pop( crl_symbol_obj * caller,
                  crl_symbol_obj * self,
                  crl_context_table * context )
{
  return NULL;
}

crl_symbol_obj *
crl_obj_list_remove( crl_symbol_obj * caller,
                     crl_symbol_obj * self,
                     crl_context_table * context )
{
  return NULL;
}

crl_symbol_obj *
crl_obj_list_append( crl_symbol_obj * caller,
                     crl_symbol_obj * self,
                     crl_context_table * context )
{
  return NULL;
}

crl_symbol_obj *
crl_obj_list_length( crl_symbol_obj * caller,
                     crl_symbol_obj * self,
                     crl_context_table * context )
{
  return NULL;
}

bool crl_obj_list_print( crl_list_t * list )
{
  return true;
}

void crl_obj_list_destroy( crl_list_t * list  )
{
  return;
}

struct crl_number_prot_t list_module_binary_ops = {
  false,
  NULL,
  NULL,
  NULL,
  NULL,
  NULL,
  NULL,
  NULL,
  NULL,
  NULL,
  NULL,
  NULL,
  NULL,
  NULL,
};

struct crl_builtin_function_def_t list_module_function_table[] = {
  { "push", 1, &crl_obj_list_push },
  { "pop", 0, &crl_obj_list_pop },
  { "remove", 1, &crl_obj_list_remove },
  { "append", 1, &crl_obj_list_append },
  { "length", 0, &crl_obj_list_length },
  { NULL, 0, NULL },
} ;

struct crl_builtin_member_def_t list_module_member_table[] = {
  { 0, NULL },
} ;

struct crl_type_obj_def_t list_object = {
  "List",
  sizeof( crl_list_t ),
  &crl_obj_list_init,
  &crl_obj_list_destroy,
  &crl_obj_list_print,
  NULL,
  &list_module_binary_ops,
  list_module_member_table,
  list_module_function_table,
} ;


bool crl_obj_list_module_init( crl_context_table * context )
{
  return true;
}