Logo Search packages:      
Sourcecode: fenix version File versions  Download package

typedef.c

/*
 *  Fenix - Videogame compiler/interpreter
 *  Current release       : FENIX - PROJECT 1.0 - R 0.84
 *  Last stable release   :
 *  Project documentation : http://fenix.divsite.net
 *
 *
 *  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 2 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, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
 *
 *  Copyright © 1999 José Luis Cebrián Pagüe
 *  Copyright © 2002 Fenix Team
 *
 */

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

#include "fxc.h"
#include "messages.c"

TYPEDEF typedef_new (BASETYPE type)
{
      TYPEDEF t ;

      t.chunk[0].type = type ;
      if (type == TYPE_POINTER)
      {
            t.depth = 2 ;
            t.chunk[1].type = TYPE_UNDEFINED ;
      }
      else t.depth = 1 ;
      t.varspace = 0 ;
      return t ;
}

TYPEDEF typedef_reduce (TYPEDEF base)
{
      TYPEDEF t = base ;

      memmove (&t.chunk[0], &t.chunk[1], sizeof(TYPECHUNK) * (MAX_TYPECHUNKS-1)) ;
      t.depth-- ;
      return t ;
}

TYPEDEF typedef_enlarge (TYPEDEF base)
{
      TYPEDEF t = base ;

      memmove (&t.chunk[1], &t.chunk[0], sizeof(TYPECHUNK) * (MAX_TYPECHUNKS-1)) ;
      t.depth++ ;
      return t ;
}

TYPEDEF typedef_pointer (TYPEDEF base)
{
      TYPEDEF t = typedef_enlarge(base) ;

      t.chunk[0].type = TYPE_POINTER ;
      return t ;
}

void typedef_describe (char * buffer, TYPEDEF t)
{
      switch (t.chunk[0].type)
      {
            case TYPE_INT:
                  sprintf (buffer, "INT") ;
                  return ;

            case TYPE_DWORD:
                  sprintf (buffer, "DWORD") ;
                  return ;

            case TYPE_SHORT:
                  sprintf (buffer, "SHORT") ;
                  return ;

            case TYPE_WORD:
                  sprintf (buffer, "WORD") ;
                  return ;

            case TYPE_BYTE:
                  sprintf (buffer, "BYTE") ;
                  return ;

            case TYPE_CHAR:
                  sprintf (buffer, "CHAR") ;
                  return ;

            case TYPE_SBYTE:
                  sprintf (buffer, "SIGNED BYTE") ;
                  return ;

            case TYPE_STRING:
                  sprintf (buffer, "STRING") ;
                  return ;

            case TYPE_FLOAT:
                  sprintf (buffer, "FLOAT") ;
                  return ;

            case TYPE_STRUCT:
                  if (t.chunk[0].count > 1)
                        sprintf (buffer, "STRUCT [%d]", t.chunk[0].count) ;
                  else
                        sprintf (buffer, "STRUCT") ;
                  return ;

            case TYPE_ARRAY:
                  sprintf (buffer, "ARRAY [%d] OF ", t.chunk[0].count) ;
                  typedef_describe (buffer + strlen(buffer),
                              typedef_reduce(t)) ;
                  return ;

            case TYPE_POINTER:
                  sprintf (buffer, "POINTER TO ") ;
                  typedef_describe (buffer + strlen(buffer),
                              typedef_reduce(t)) ;
                  return ;

            case TYPE_UNDEFINED:
            default:
                  sprintf (buffer, "<UNDEFINED>") ;
                  return ;
      }
}

int typedef_subsize (TYPEDEF t, int c)
{
      switch (t.chunk[c].type)
      {
            case TYPE_BYTE:
            case TYPE_SBYTE:
            case TYPE_CHAR:
                  return 1 ;

            case TYPE_WORD:
            case TYPE_SHORT:
                  return 2 ;

            case TYPE_DWORD:
            case TYPE_INT:
            case TYPE_FLOAT:
            case TYPE_STRING:
            case TYPE_POINTER:
                  return 4 ;

            case TYPE_ARRAY:
                  return t.chunk[c].count * typedef_subsize(t,c+1) ;

            case TYPE_STRUCT:
                  return t.varspace->size ;

            default:
                  compile_error (MSG_INCOMP_TYPE) ;
                  return 0 ;
      }
}

int typedef_size (TYPEDEF t)
{
      return typedef_subsize (t, 0) ;
}

/* Tipos nombrados (structs, típicamente) */

#define MAX_NAMED 64
static TYPEDEF named_types[MAX_NAMED] ;
static int     named_codes[MAX_NAMED] ;
static int     named_count = 0 ;

TYPEDEF * typedef_by_name (int code)
{
      int n ;

      for (n = 0 ; n < named_count ; n++)
            if (named_codes[n] == code)
                  return &named_types[n] ;
      return 0 ;
}

void typedef_name (TYPEDEF t, int code)
{
      if (named_count == MAX_NAMED)
            compile_error (MSG_TOO_MANY_TYPES) ;
      named_codes[named_count] = code ;
      named_types[named_count] = t ;
      named_count++ ;
}

int typedef_tcount (TYPEDEF t)
{
      int n ;
      int count = 1 ;

      if (t.chunk[0].type == TYPE_STRUCT)
            return t.chunk[0].count ;
      for (n = 0 ; t.chunk[n].type == TYPE_ARRAY ; n++)
            count *= t.chunk[n].count ;
      return count ;
}

int typedef_is_equal (TYPEDEF a, TYPEDEF b)
{
      int n;

      if (a.depth != b.depth)
            return 0;

      for (n = 0 ; n < a.depth ; n++)
      {
            if (a.chunk[n].type != b.chunk[n].type)
                  return 0;
            if (a.chunk[n].type == TYPE_ARRAY)
            {
                  if (a.chunk[n].count != b.chunk[n].count)
                        return 0;
            }
      }
      return 1;
}


Generated by  Doxygen 1.6.0   Back to index