The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#include <ctype.h>

/* 
 * Declarations for symbol table in sym.c 
 */

/* define some hash function */
#ifndef HASH_FUN
#define HASH_FUN(p, h) while ( *p != '\0' ) h = (h<<1) + tolower (*p++);
#endif

/* minimum symbol table record */
typedef struct _sym 
{
   char        *symbol;         /* the macro name */
   char        *text;           /* its expansion */
   struct _sym *next, *prev, **head, *scope;
   unsigned int hash;
} Sym, *SymPtr;

#ifdef __STDC__
void zzs_init(int, int);
void zzs_free(void);
void zzs_done(void);
void zzs_add(char *, Sym *);
Sym *zzs_get(char *);
void zzs_del(Sym *);
void zzs_keydel(char *);
Sym **zzs_scope(Sym **);
Sym *zzs_rmscope(Sym **);
void zzs_stat(void);
Sym *zzs_new(char *);
Sym *zzs_newadd(char *);
char *zzs_strdup(char *);
#else
void zzs_init();
void zzs_done();
void zzs_add();
Sym *zzs_get();
void zzs_del();
void zzs_keydel();
Sym **zzs_scope();
Sym *zzs_rmscope();
void zzs_stat();
Sym *zzs_new();
Sym *zzs_newadd();
char *zzs_strdup();
#endif