|
/*
* ACCENT
*
* A Compiler Compiler for the Entire Class of Context-Free Languages
*
* Copyright (C) 1999 Friedrich Wilhelm Schroeer
*
* 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., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#define PRIVATE static
/*--------------------------------------------------------------------*/
#define HashTabSize 2048
#define STRINGTAB_PIECE 10000
#define STRINGTAB_EXTRA 500
typedef struct IDENTSTRUCT *IDENT;
struct IDENTSTRUCT
{
char *firstposptr;
long length;
IDENT next;
long meaning;
};
PRIVATE char *idstringtab_ptr;
PRIVATE char *idstringtab_endptr;
struct IDENTSTRUCT *idtab_ptr;
struct IDENTSTRUCT *idtab_endptr;
PRIVATE IDENT HashTab [HashTabSize];
PRIVATE int initialized = 0;
/*--------------------------------------------------------------------*/
PRIVATE allocate_idstringtab ()
{
idstringtab_ptr =
(char *) malloc (STRINGTAB_PIECE + STRINGTAB_EXTRA);
if (idstringtab_ptr == 0) {
printf("memory allocation failed\n");
exit(1);
}
idstringtab_endptr = idstringtab_ptr + STRINGTAB_PIECE - 1;
}
/*--------------------------------------------------------------------*/
#define IDTABPIECESIZE 500
typedef struct IDENTSTRUCT IDTAB [IDTABPIECESIZE];
PRIVATE allocate_idtab ()
{
idtab_ptr =
(struct IDENTSTRUCT *)
malloc (sizeof (IDTAB /*struct IDENTSTRUCT [IDTABPIECESIZE]*/ ) );
if (idtab_ptr == 0) {
printf("memory allocation failed\n");
exit(1);
}
idtab_endptr = & idtab_ptr[IDTABPIECESIZE - 1];
}
/*--------------------------------------------------------------------*/
PRIVATE InitIdents ()
{
long i;
for (i = 0; i<=HashTabSize-1; i++) HashTab[i] = 0;
allocate_idtab ();
allocate_idstringtab ();
initialized = 1;
}
/*--------------------------------------------------------------------*/
slice_to_id (idstart, idstop, ref_id)
char *idstart; /* position of first character */
char *idstop; /* position a f t e r last character */
IDENT *ref_id;
{
long hash, length;
IDENT chain;
IDENT NewId;
if (! initialized) InitIdents();
length = idstop-idstart;
hash = ( length*256 + ((*idstart)&0xf)*16 + (*(idstop-1)&0xf) )
& (HashTabSize-1);
chain = HashTab[hash];
for(;;) {
if (chain == 0) {
/* not in table */
register char *i, *freeptr, *stop;
NewId = idtab_ptr;
if (idtab_ptr == idtab_endptr)
allocate_idtab();
else
idtab_ptr++;
/* copy id into string table */
i = idstart;
if (idstringtab_ptr > idstringtab_endptr)
allocate_idstringtab();
freeptr = idstringtab_ptr;
stop = idstop;
while (i < stop) {
*freeptr++ = *i++;
}
*freeptr = '\0';
freeptr++;
NewId->firstposptr = idstringtab_ptr;
NewId->length = length;
NewId->next = HashTab[hash];
NewId->meaning = 0;
HashTab[hash] = NewId;
idstringtab_ptr= freeptr;
break;
}
/* current token == ident at chain ? */
if (chain->length == length) {
register char *i, *j;
i = idstart; j = chain->firstposptr;
while (i != idstop && *i == *j) {
i++; j++;
}
if (i == idstop && *j == '\0') {
/* found */
NewId = chain;
break;
}
}
chain = chain->next;
}
*ref_id = NewId;
}
/*--------------------------------------------------------------------*/
void string_to_id (string, ref_id)
char *string;
IDENT *ref_id;
{
char *idstop;
idstop = string;
while (*idstop != '\0') idstop++;
slice_to_id (string, idstop, ref_id);
}
/*--------------------------------------------------------------------*/
void id_to_string (id, ref_string)
IDENT id;
char **ref_string;
{
*ref_string = id->firstposptr;
}
/*--------------------------------------------------------------------*/
void DefMeaning (id, m)
IDENT id;
long m;
{
id->meaning = m;
}
/*--------------------------------------------------------------------*/
void UndefMeaning (id)
IDENT id;
{
id->meaning = 0;
}
/*--------------------------------------------------------------------*/
int HasMeaning (id, ref_meaning)
IDENT id;
long *ref_meaning;
{
if (id->meaning == 0)
return 0;
*ref_meaning = id->meaning;
return 1;
}
/*--------------------------------------------------------------------*/
ErrorI (str1, id, str2, pos)
char *str1;
IDENT id;
char *str2;
long pos;
{
char *idrepr;
char buf[300];
id_to_string (id, &idrepr);
sprintf(buf, "%s%s%s", str1, idrepr, str2);
Error(buf, pos);
}
/*--------------------------------------------------------------------*/
¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.1Angebot
Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können
¤
|
Lebenszyklus
Die hierunter aufgelisteten Ziele sind für diese Firma wichtig
Ziele
Entwicklung einer Software für die statische Quellcodeanalyse
|
