text/plain
•
1005 B
•
25 lines
#pragma once
#include "../nujel.h"
#define CLO_MAX (1<<16)
extern lClosure lClosureList[CLO_MAX];
extern uint lClosureMax;
extern uint lClosureActive;
extern lClosure *lClosureFFree;
void lInitClosure ();
lClosure *lClosureAlloc ();
lClosure *lClosureNew (lClosure *parent);
void lClosureFree (lClosure *c);
int lClosureID (const lClosure *n);
lVal *lSearchClosureSym (lClosure *c, lVal *ret, const char *str, uint len);
lVal *lResolve (lClosure *c, lVal *v);
lVal *lResolveSym (lClosure *c, lVal *v);
lVal *lDefineAliased (lClosure *c, lVal *lNF, const char *sym);
lVal *lSearchClosureSym (lClosure *c, lVal *v, const char *str, uint len);
lVal *lGetClosureSym (lClosure *c, const lSymbol *s);
void lDefineClosureSym (lClosure *c, const lSymbol *s, lVal *v);
void lSetClosureSym (lClosure *c, const lSymbol *s, lVal *v);
void lDefineVal (lClosure *c, const char *str, lVal *v);
