134 lines
2.1 KiB
C
134 lines
2.1 KiB
C
/* $Header$ */
|
|
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
/* Print IDentifiers occurring in C programs outside comment, strings
|
|
and character constants.
|
|
Flags:
|
|
-l<num> : print identifiers of <num> or more characters
|
|
(default <num> = 8)
|
|
|
|
Author: Erik Baalbergen
|
|
Date: Oct 23, 1985
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
|
|
extern char *ProgName;
|
|
|
|
#ifndef DEF_LENGTH
|
|
#define DEF_LENGTH 8
|
|
#endif
|
|
|
|
int maxlen = DEF_LENGTH;
|
|
|
|
BeginOfProgram() {}
|
|
|
|
DoOption(str)
|
|
char *str;
|
|
{
|
|
switch (str[1]) {
|
|
|
|
case 'l':
|
|
if ((maxlen = atoi(&str[2])) <= 0) {
|
|
fprintf(stderr, "%s: option \"-l%s\" ignored\n",
|
|
ProgName, &str[2]);
|
|
maxlen = DEF_LENGTH;
|
|
}
|
|
break;
|
|
|
|
default:
|
|
fprintf(stderr, "%s: bad option \"%s\"\n", ProgName, str);
|
|
break;
|
|
}
|
|
}
|
|
|
|
CheckId(id, len)
|
|
char *id;
|
|
{
|
|
if (len >= maxlen) {
|
|
InsertId(id);
|
|
}
|
|
}
|
|
|
|
#define HASHSIZE 257
|
|
|
|
struct idf {
|
|
char *id_name;
|
|
struct idf *id_next;
|
|
};
|
|
|
|
struct idf *hash_tab[HASHSIZE];
|
|
|
|
char *Malloc(), *Salloc();
|
|
|
|
InsertId(id)
|
|
char *id;
|
|
{
|
|
int hash_val = EnHash(id);
|
|
register struct idf *idp = hash_tab[hash_val];
|
|
register struct idf *p = 0;
|
|
|
|
while (idp && strcmp(idp->id_name, id)) {
|
|
p = idp;
|
|
idp = idp->id_next;
|
|
}
|
|
|
|
if (idp == 0) {
|
|
idp = (struct idf *) Malloc(sizeof(struct idf));
|
|
idp->id_next = 0;
|
|
if (!p) hash_tab[hash_val] = idp;
|
|
else p->id_next = idp;
|
|
idp->id_name = Salloc(id);
|
|
}
|
|
}
|
|
|
|
char *
|
|
Malloc(n)
|
|
unsigned n;
|
|
{
|
|
char *mem, *malloc();
|
|
|
|
if ((mem = malloc(n)) == 0) {
|
|
fprintf(stderr, "%s: out of memory\n", ProgName);
|
|
exit(1);
|
|
}
|
|
return mem;
|
|
}
|
|
|
|
char *
|
|
Salloc(str)
|
|
char *str;
|
|
{
|
|
char *strcpy();
|
|
|
|
if (str == 0)
|
|
str = "";
|
|
|
|
return strcpy(Malloc(strlen(str) + 1), str);
|
|
}
|
|
|
|
EnHash(id)
|
|
char *id;
|
|
{
|
|
register unsigned hash_val = 0;
|
|
register n = maxlen;
|
|
|
|
while (n-- && *id)
|
|
hash_val = 31 * hash_val + *id++;
|
|
|
|
return hash_val % (unsigned) HASHSIZE;
|
|
}
|
|
|
|
EndOfProgram()
|
|
{
|
|
register struct idf *idp;
|
|
register int i;
|
|
|
|
for (i = 0; i < HASHSIZE; i++) {
|
|
for (idp = hash_tab[i]; idp; idp = idp->id_next) {
|
|
printf("%s\n", idp->id_name);
|
|
}
|
|
}
|
|
}
|