1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
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 <stdio.h>
#include <stdlib.h>
#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 ) ;
}
|
