/*  FFFFF RRRR  EEEEE EEEEE N   N TTTTT        CCCC 
**  F     R   R E     E     NN  N   T         C     
**  FFFF  RRRR  EEEE  EEEE  N N N   T         C     
**  F     R  R  E     E     N  NN   T    ..   C     
**  F     R   R EEEEE EEEEE N   N   T    ..    CCCC 
**
**  Copyright (c) 1991,1993 by Wiz Worx (DAHarrod) Concord, MA
*/

#include "igespeek.h"

PNTR    fre102(), fre106(), fre112(), fre114(), fre126(), fre128(),
	fre132(), fre136(), fre141(), fre143(), fre144(), fre180(),
	fre184(), fre186(), fre208(), fre210(), fre212(), fre213(),
	fre214(), fre228(), fre230(), fre302(), fre304(), fre308(),
	fre314(), fre316(), fre320(), fre322(), fre402(), fre404(),
	fre406(), fre412(), fre414(), fre416(), fre418(), fre420(),
	fre422(), fre502(), fre504(), fre508(), fre510(), fre514();

NUMFNC fre_func[] = {
	{ 102, fre102 },        { 106, fre106 },        { 112, fre112 },
	{ 114, fre114 },        { 126, fre126 },        { 128, fre128 },
	{ 132, fre132 },        { 136, fre136 },        { 141, fre141 },
	{ 143, fre143 },        { 144, fre144 },        { 180, fre180 },
	{ 184, fre184 },        { 186, fre186 },        { 208, fre208 },
	{ 210, fre210 },        { 212, fre212 },        { 213, fre213 },
	{ 214, fre214 },        { 228, fre228 },        { 230, fre230 },
	{ 302, fre302 },        { 304, fre304 },        { 308, fre308 },
	{ 314, fre314 },        { 316, fre316 },        { 320, fre320 },
	{ 322, fre322 },        { 402, fre402 },        { 404, fre404 },
	{ 406, fre406 },        { 412, fre412 },        { 414, fre414 },
	{ 416, fre416 },        { 418, fre418 },        { 420, fre420 },
	{ 422, fre422 },        { 502, fre502 },        { 504, fre504 },
	{ 508, fre508 },        { 510, fre510 },        { 514, fre514 }
	};

#define tblsiz  (sizeof(fre_func)/sizeof(NUMFNC))

/**************************************************************/

void freent(ENTITY *ent)
{
int k;

    for (k=0; k<tblsiz; k++) {
	if (fre_func[k].entnum == ent->e_type) {
	    (*fre_func[k].entfnc)(ent);         /* free pd record */
	    break;
	}
    }
    FREE(ent->e_pdata);                 /* free parameter data */
    FREE(ent->e_assoc);                 /* free associativities */
    FREE(ent->e_prop);                  /* free properties */
}