/home/doxygen/libascend/compiler/childpriv.h

#ifdef __CHILD_ILLEGAL_ACCESS__
/*
 *  Child List Internal Implementation details
 *  by Benjamin Allan
 *  Version: $Revision: 1.1 $
 *  Version control file: $RCSfile: childpriv.h,v $
 *  Date last modified: $Date: 1998/03/27 10:43:58 $
 *  Last modified by: $Author: ballan $
 *
 *  This file is part of the Ascend Language Interpreter.
 *
 *  Copyright (C) 1998 Carnegie Mellon University
 *
 *  The Ascend Language Interpreter 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.
 *
 *  The Ascend Language Interpreter is distributed in 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 the program; if not, write to the Free Software Foundation,
 *  Inc., 675 Mass Ave, Cambridge, MA 02139 USA.  Check the file named
 *  COPYING.
 */

#ifndef _CHILDPRIV_H_SEEN_
#define _CHILDPRIV_H_SEEN_

#ifndef lint
static CONST char ChildPrivID[] = "$Id: childpriv.h,v 1.1 1998/03/27 10:43:58 ballan Exp $";
#endif

#define LegalOrigin(n) ( ((n)>0 && (n) <=8) ? (n) : 0 )

struct ChildHash {
  struct ChildHash *next;
  symchar *sym;           
  unsigned long clindex;  
};

#define CHILDHASHINDEX(p) (((((long) (p))*1103515245) >> 22) & 255)

#define CHILDHASHTABLESIZE 256

struct ChildListStructure {
  struct gl_list_t *list;
  struct gl_list_t *symbols; 
  struct ChildHash *table[CHILDHASHTABLESIZE];
  struct ChildHash *data;    
};

#define CGET(l,n) ((struct ChildListEntry *)gl_fetch((l)->list,(n)))

#define CNAME(l,n) ((l)->data[(n)-1].sym)

#define GGET(l,n) ((struct ChildListEntry *)gl_fetch((l),(n)))

#define CPUT(l,p) gl_insert_sorted((l)->list,(p),(CmpFunc)CmpChildListEntries)

#define GL(a) (a)->list

#define GN(a) (a)->symbols

#endif  /* _CHILDPRIV_H_SEEN_ */
#endif  /* __CHILD_ILLEGAL_ACCESS__ */

---