hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added hcl_setinloc() and called this on each .SCRIPT command received in the server

Browse Source
This commit is contained in:
hyung-hwan
2018-04-12 02:50:37 +00:00
parent 9a1b20a47d
commit 7c886ae2e3
4 changed files with 28 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
lib/hcl.c
View File

@ -286,22 +286,11 @@ void hcl_fini (hcl_t* hcl)
}
}
void hcl_reset (hcl_t* hcl/*, int flags*/)
void hcl_reset (hcl_t* hcl)
{
hcl_oop_t v;
hcl_oow_t i;
#if 0
if (flags & HCL_RESET_LXC)
{
hcl->c->nungots = 0;
hcl->c->inarg.line = 1;
hcl->c->inarg.colm = 1;
/* reset on curinp???? hwo to reset the input stream? or crate a separate function? */
}
#endif
/* delete all literals shown in the literal frame from the system dictionary
* excluding special kernel symbols. */
for (i = 0; i < hcl->code.lit.len; i++)
@ -323,6 +312,12 @@ void hcl_reset (hcl_t* hcl/*, int flags*/)
hcl_gc (hcl);
}
void hcl_setinloc (hcl_t* hcl, hcl_oow_t line, hcl_oow_t colm)
{
hcl->c->inarg.line = line;
hcl->c->inarg.colm = colm;
}
int hcl_setoption (hcl_t* hcl, hcl_option_t id, const void* value)
{
switch (id)
@ -618,7 +613,7 @@ hcl_mod_data_t* hcl_openmod (hcl_t* hcl, const hcl_ooch_t* name, hcl_oow_t namel
hcl_copy_oochars((hcl_ooch_t*)md.mod.name, name, namelen);
if (hcl->vmprim.dl_open && hcl->vmprim.dl_getsym && hcl->vmprim.dl_close)
{
md.handle = hcl->vmprim.dl_open(hcl, &buf[MOD_PREFIX_LEN], HCL_VMPRIM_OPENDL_PFMOD);
md.handle = hcl->vmprim.dl_open(hcl, &buf[MOD_PREFIX_LEN], HCL_VMPRIM_DLOPEN_PFMOD);
}
if (md.handle == HCL_NULL)