luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

exported tcl_hook() at global scope for future enhancements

This commit is contained in:
Stefan Schippers 2020-10-14 04:59:20 +02:00
parent c7ae5183fe
commit 4682613290
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/editprop.c
View File

@ -379,10 +379,12 @@ char *strtoupper(char* s) {
void set_inst_prop(int i)
{
char *ptr;
char *ptr = NULL;
char *tmp = NULL;
ptr = (xctx.inst[i].ptr+ xctx.sym)->templ;
my_strdup(104, &ptr, (xctx.inst[i].ptr+ xctx.sym)->templ);
/* my_strdup(104, &ptr, translate(i, (xctx.inst[i].ptr+ xctx.sym)->templ)); */
/* tcl_hook(&ptr); */
dbg(1, "set_inst_prop(): i=%d, name=%s, prop_ptr = %s, template=%s\n",
i, xctx.inst[i].name, xctx.inst[i].prop_ptr, ptr);
my_strdup(69, &xctx.inst[i].prop_ptr, ptr);
@ -392,6 +394,7 @@ void set_inst_prop(int i)
new_prop_string(i, tmp, 0, dis_uniq_names);
my_free(724, &tmp);
}
my_free(330, &ptr);
}
void edit_rect_property(void)

1
src/xschem.h
View File

@ -914,6 +914,7 @@ extern const char *tcleval(const char str[]);
extern const char *tclresult(void);
extern const char *tclgetvar(const char *s);
extern void tclsetvar(const char *s, const char *value);
extern void tcl_hook(char **res);
extern void statusmsg(char str[],int n);
extern void place_text(int draw_text, double mx, double my);
extern void init_inst_iterator(double x1, double y1, double x2, double y2);