assign.c
416 Bytes
#include <stdio.h>
#include <malloc.h>
#include <stdlib.h>
#include <expValue.h>
#include <ident.h>
#include <assign.h>
#include <tepal.h>
s_expVal *
assign (s_ident * to, s_expVal * from)
{
if (identGetType (to) == ID_TYP_IDL)
{
char * key = identGetKey (to);
exitError (ERR_NO_INDEX, key);
}
/* !!!IMPORTANT!!! work here */
/*identListPutVal (block, to);*/
identSetExp (to, from);
return from;
}