From ea1947ffcc606d757357398b24e74a3f4ecefa07 Mon Sep 17 00:00:00 2001 From: neonloop Date: Wed, 20 Oct 2021 14:54:27 +0000 Subject: Initial commit from steward-fu release --- core/bgdc/src/constants.c | 110 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 110 insertions(+) create mode 100644 core/bgdc/src/constants.c (limited to 'core/bgdc/src/constants.c') diff --git a/core/bgdc/src/constants.c b/core/bgdc/src/constants.c new file mode 100644 index 0000000..d9b63a4 --- /dev/null +++ b/core/bgdc/src/constants.c @@ -0,0 +1,110 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * Copyright © 2002-2006 Fenix Team (Fenix) + * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +#include +#include + +#include "bgdc.h" + +#include "varspace.h" + +/* ---------------------------------------------------------------------- */ +/* Gestor de constantes */ +/* ---------------------------------------------------------------------- */ + +static CONSTANT * constants ; +static int constants_used ; +static int constants_reserved ; + +void constants_init() +{ + constants = ( CONSTANT * ) calloc( 16, sizeof( CONSTANT ) ); + constants_reserved = 16 ; + constants_used = 0 ; +} + +void constants_alloc( int count ) +{ + constants = ( CONSTANT * ) realloc( constants, ( constants_reserved += count ) * sizeof( CONSTANT ) ) ; + if ( !constants ) + { + fprintf( stdout, "constants_alloc: out of memory\n" ) ; + exit( 1 ) ; + } +} + +CONSTANT * constants_search( int code ) +{ + int i ; + + for ( i = 0 ; i < constants_used ; i++ ) if ( constants[i].code == code ) return &constants[i] ; + return 0 ; +} + +void constants_add( int code, TYPEDEF type, int value ) +{ + CONSTANT * c; + + if ( constants_used == constants_reserved ) constants_alloc( 16 ) ; + + if ( varspace_search( &global, code ) ) + { + token.code = code; + token.type = IDENTIFIER; + compile_error( MSG_VARIABLE_REDECLARED_AS_CONSTANT ) ; + } + + if ( varspace_search( &local, code ) ) + { + token.code = code; + token.type = IDENTIFIER; + compile_error( MSG_VARIABLE_REDECLARED_AS_CONSTANT ) ; + } + + if (( c = constants_search( code ) ) && ( !typedef_is_equal( c->type, type ) || c->value != value ) ) + { + token.code = string_new( identifier_name( code ) ); + token.type = STRING; + compile_error( "Constant redefined" ); + } + + constants[constants_used].code = code ; + constants[constants_used].type = type ; + constants[constants_used].value = value ; + constants_used++ ; +} + +void constants_dump() +{ + int i ; + + printf( "---- %d constants of %d ----\n", constants_used, constants_reserved ) ; + for ( i = 0 ; i < constants_used ; i++ ) + printf( "%4d: %-16s= %d\n", i, + identifier_name( constants[i].code ), constants[i].value ) ; +} -- cgit v1.2.3