From: Matthew Fernandez Date: Wed, 26 May 2021 01:34:26 +0000 (-0700) Subject: remove unused excc() X-Git-Tag: 2.47.3~19^2~3 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=8c2f36099c1cc96315653e4ad4e3067f8e6a3913;p=graphviz remove unused excc() --- diff --git a/lib/expr/excc.c b/lib/expr/excc.c index c87727d03..f26cc5aff 100644 --- a/lib/expr/excc.c +++ b/lib/expr/excc.c @@ -684,33 +684,6 @@ exccclose(Excc_t* cc) return r; } -/* - * generate the program for name or sym coerced to type - */ - -int -excc(Excc_t* cc, const char* name, Exid_t* sym, int type) -{ - char* t; - - if (!cc) - return -1; - if (!sym) - sym = name ? dtmatch(cc->expr->symbols, name) : &cc->expr->main; - if (sym && sym->lex == PROCEDURE && sym->value) - { - t = extype(type); - sfprintf(cc->ccdisc->text, "\n%s %s%s(data) char** data; {\n%s _%svalue = 0;\n", t, cc->id, sym->name, t, cc->id); - gen(cc, sym->value->data.procedure.body); - sfprintf(cc->ccdisc->text, ";\n"); - if (cc->lastop != RETURN) - sfprintf(cc->ccdisc->text, "return _%svalue;\n", cc->id); - sfprintf(cc->ccdisc->text, "}\n"); - return 0; - } - return -1; -} - /* * dump an expression tree on sp */ diff --git a/lib/expr/expr.3 b/lib/expr/expr.3 index dcc397495..d242fb4ec 100644 --- a/lib/expr/expr.3 +++ b/lib/expr/expr.3 @@ -33,7 +33,6 @@ expr \- c-like expression library Expr_t* exopen(Exdisc_t*); Excc_t* exccopen(Expr_t*, Exccdisc_t*); -int excc(Excc_t*, const char*, Exid_t*, int); int exccclose(Excc_t*); void exclose(Expr_t*, int); char* excontext(Expr_t*, char*, int); diff --git a/lib/expr/expr.h b/lib/expr/expr.h index 68072a2f1..c7f44377d 100644 --- a/lib/expr/expr.h +++ b/lib/expr/expr.h @@ -273,7 +273,6 @@ struct Excc_s /* excc() state */ extern Exnode_t* excast(Expr_t*, Exnode_t*, int, Exnode_t*, int); extern Exnode_t* exnoncast(Exnode_t *); -extern int excc(Excc_t*, const char*, Exid_t*, int); extern int exccclose(Excc_t*); extern Excc_t* exccopen(Expr_t*, Exccdisc_t*); extern void exclose(Expr_t*, int);