felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-16 06:18:47 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Implement clone_expr_tree in preparation for supporting PUSH-FUNCS / POP-FUNCS.

Browse Source
This commit is contained in:
Dianne Skoll
2025-07-24 12:06:23 -04:00
parent 3eadb3f767
commit d944ceb32d
2 changed files with 73 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
src/expr.c
View File

@@ -1836,6 +1836,78 @@ expr_node * free_expr_tree(expr_node *node)
return NULL;
}
/***************************************************************/
/* */
/* clone_expr_tree */
/* */
/* Clone an entire expr_tree. The clone shares no memory */
/* with the original. Returns NULL and sets *r on failure. */
/* */
/***************************************************************/
expr_node * clone_expr_tree(expr_node *src, int *r)
{
int rc;
expr_node *dest = alloc_expr_node(r);
if (!dest) return NULL;
dest->type = src->type;
dest->num_kids = src->num_kids;
switch(dest->type) {
case N_FREE:
case N_ERROR:
*r = E_SWERR;
free_expr_tree(dest);
return NULL;
case N_CONSTANT:
case N_VARIABLE:
case N_SYSVAR:
case N_USER_FUNC:
rc = CopyValue(&(dest->u.value), &(src->u.value));
if (rc != OK) {
*r = rc;
free_expr_tree(dest);
return NULL;
}
break;
case N_SHORT_STR:
case N_SHORT_VAR:
case N_SHORT_SYSVAR:
case N_SHORT_USER_FUNC:
strcpy(dest->u.name, src->u.name);
break;
case N_LOCAL_VAR:
dest->u.arg = src->u.arg;
break;
case N_BUILTIN_FUNC:
dest->u.builtin_func = src->u.builtin_func;
break;
case N_OPERATOR:
dest->u.operator_func = src->u.operator_func;
break;
}
if (src->child) {
dest->child = clone_expr_tree(src->child, r);
if (!dest->child) {
free_expr_tree(dest);
return NULL;
}
}
if (src->sibling) {
dest->sibling = clone_expr_tree(src->sibling, r);
if (!dest->sibling) {
free_expr_tree(dest);
return NULL;
}
}
return dest;
}
/***************************************************************/
/* */
/* set_long_name - set a long name in an expr_node */

1
src/protos.h
View File

@@ -64,6 +64,7 @@ int truthy(Value const *v);
void unlimit_execution_time(void);
expr_node *free_expr_tree(expr_node *node);
expr_node *clone_expr_tree(expr_node *node, int *r);
int EvalExpr (char const **e, Value *v, ParsePtr p);
int DoCoerce (char type, Value *v);
char const *PrintValue (Value *v, FILE *fp);