Depsgraph: remove EvaluationContext, pass Depsgraph instead.
[blender.git] / source / blender / blenkernel / intern / node.c
1 /*
2  * ***** BEGIN GPL LICENSE BLOCK *****
3  *
4  * This program is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU General Public License
6  * as published by the Free Software Foundation; either version 2
7  * of the License, or (at your option) any later version. 
8  *
9  * This program is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  * GNU General Public License for more details.
13  *
14  * You should have received a copy of the GNU General Public License
15  * along with this program; if not, write to the Free Software Foundation,
16  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
17  *
18  * The Original Code is Copyright (C) 2005 Blender Foundation.
19  * All rights reserved.
20  *
21  * The Original Code is: all of this file.
22  *
23  * Contributor(s): Bob Holcomb.
24  *
25  * ***** END GPL LICENSE BLOCK *****
26  */
27
28 /** \file blender/blenkernel/intern/node.c
29  *  \ingroup bke
30  */
31
32 #include "MEM_guardedalloc.h"
33
34 #include <stdlib.h>
35 #include <stddef.h>
36 #include <string.h>
37 #include <limits.h>
38
39 #include "DNA_action_types.h"
40 #include "DNA_anim_types.h"
41 #include "DNA_lamp_types.h"
42 #include "DNA_material_types.h"
43 #include "DNA_node_types.h"
44 #include "DNA_scene_types.h"
45 #include "DNA_texture_types.h"
46 #include "DNA_world_types.h"
47 #include "DNA_linestyle_types.h"
48
49 #include "BLI_listbase.h"
50 #include "BLI_math.h"
51 #include "BLI_path_util.h"
52 #include "BLI_string.h"
53 #include "BLI_string_utils.h"
54 #include "BLI_utildefines.h"
55
56 #include "BLT_translation.h"
57
58 #include "BKE_animsys.h"
59 #include "BKE_global.h"
60 #include "BKE_idprop.h"
61 #include "BKE_library.h"
62 #include "BKE_library_query.h"
63 #include "BKE_library_remap.h"
64 #include "BKE_main.h"
65 #include "BKE_node.h"
66
67 #include "BLI_ghash.h"
68 #include "BLI_threads.h"
69 #include "RNA_access.h"
70 #include "RNA_define.h"
71
72 #include "NOD_socket.h"
73 #include "NOD_common.h"
74 #include "NOD_composite.h"
75 #include "NOD_shader.h"
76 #include "NOD_texture.h"
77
78 #include "DEG_depsgraph.h"
79
80 #define NODE_DEFAULT_MAX_WIDTH 700
81
82 /* Fallback types for undefined tree, nodes, sockets */
83 bNodeTreeType NodeTreeTypeUndefined;
84 bNodeType NodeTypeUndefined;
85 bNodeSocketType NodeSocketTypeUndefined;
86
87
88 static void node_add_sockets_from_type(bNodeTree *ntree, bNode *node, bNodeType *ntype)
89 {
90         bNodeSocketTemplate *sockdef;
91         /* bNodeSocket *sock; */ /* UNUSED */
92
93         if (ntype->inputs) {
94                 sockdef = ntype->inputs;
95                 while (sockdef->type != -1) {
96                         /* sock = */ node_add_socket_from_template(ntree, node, sockdef, SOCK_IN);
97                         
98                         sockdef++;
99                 }
100         }
101         if (ntype->outputs) {
102                 sockdef = ntype->outputs;
103                 while (sockdef->type != -1) {
104                         /* sock = */ node_add_socket_from_template(ntree, node, sockdef, SOCK_OUT);
105                         
106                         sockdef++;
107                 }
108         }
109 }
110
111 /* Note: This function is called to initialize node data based on the type.
112  * The bNodeType may not be registered at creation time of the node,
113  * so this can be delayed until the node type gets registered.
114  */
115 static void node_init(const struct bContext *C, bNodeTree *ntree, bNode *node)
116 {
117         bNodeType *ntype = node->typeinfo;
118         if (ntype == &NodeTypeUndefined)
119                 return;
120         
121         /* only do this once */
122         if (node->flag & NODE_INIT)
123                 return;
124         
125         node->flag = NODE_SELECT | NODE_OPTIONS | ntype->flag;
126         node->width = ntype->width;
127         node->miniwidth = 42.0f;
128         node->height = ntype->height;
129         node->color[0] = node->color[1] = node->color[2] = 0.608;   /* default theme color */
130         /* initialize the node name with the node label.
131          * note: do this after the initfunc so nodes get their data set which may be used in naming
132          * (node groups for example) */
133         /* XXX Do not use nodeLabel() here, it returns translated content for UI, which should *only* be used
134          *     in UI, *never* in data... Data have their own translation option!
135          *     This solution may be a bit rougher than nodeLabel()'s returned string, but it's simpler
136          *     than adding "do_translate" flags to this func (and labelfunc() as well). */
137         BLI_strncpy(node->name, DATA_(ntype->ui_name), NODE_MAXSTR);
138         nodeUniqueName(ntree, node);
139         
140         node_add_sockets_from_type(ntree, node, ntype);
141
142         if (ntype->initfunc != NULL)
143                 ntype->initfunc(ntree, node);
144
145         if (ntree->typeinfo->node_add_init != NULL)
146                 ntree->typeinfo->node_add_init(ntree, node);
147
148         /* extra init callback */
149         if (ntype->initfunc_api) {
150                 PointerRNA ptr;
151                 RNA_pointer_create((ID *)ntree, &RNA_Node, node, &ptr);
152                 
153                 /* XXX Warning: context can be NULL in case nodes are added in do_versions.
154                  * Delayed init is not supported for nodes with context-based initfunc_api atm.
155                  */
156                 BLI_assert(C != NULL);
157                 ntype->initfunc_api(C, &ptr);
158         }
159         
160         if (node->id)
161                 id_us_plus(node->id);
162         
163         node->flag |= NODE_INIT;
164 }
165
166 static void ntree_set_typeinfo(bNodeTree *ntree, bNodeTreeType *typeinfo)
167 {
168         if (typeinfo) {
169                 ntree->typeinfo = typeinfo;
170                 
171                 /* deprecated integer type */
172                 ntree->type = typeinfo->type;
173         }
174         else {
175                 ntree->typeinfo = &NodeTreeTypeUndefined;
176                 
177                 ntree->init &= ~NTREE_TYPE_INIT;
178         }
179 }
180
181 static void node_set_typeinfo(const struct bContext *C, bNodeTree *ntree, bNode *node, bNodeType *typeinfo)
182 {
183         /* for nodes saved in older versions storage can get lost, make undefined then */
184         if (node->flag & NODE_INIT) {
185                 if (typeinfo && typeinfo->storagename[0] && !node->storage)
186                         typeinfo = NULL;
187         }
188         
189         if (typeinfo) {
190                 node->typeinfo = typeinfo;
191                 
192                 /* deprecated integer type */
193                 node->type = typeinfo->type;
194                 
195                 /* initialize the node if necessary */
196                 node_init(C, ntree, node);
197         }
198         else {
199                 node->typeinfo = &NodeTypeUndefined;
200                 
201                 ntree->init &= ~NTREE_TYPE_INIT;
202         }
203 }
204
205 static void node_socket_set_typeinfo(bNodeTree *ntree, bNodeSocket *sock, bNodeSocketType *typeinfo)
206 {
207         if (typeinfo) {
208                 sock->typeinfo = typeinfo;
209                 
210                 /* deprecated integer type */
211                 sock->type = typeinfo->type;
212                 
213                 if (sock->default_value == NULL) {
214                         /* initialize the default_value pointer used by standard socket types */
215                         node_socket_init_default_value(sock);
216                 }
217         }
218         else {
219                 sock->typeinfo = &NodeSocketTypeUndefined;
220                 
221                 ntree->init &= ~NTREE_TYPE_INIT;
222         }
223 }
224
225 /* Set specific typeinfo pointers in all node trees on register/unregister */
226 static void update_typeinfo(Main *bmain, const struct bContext *C, bNodeTreeType *treetype, bNodeType *nodetype, bNodeSocketType *socktype, bool unregister)
227 {
228         if (!bmain)
229                 return;
230         
231         FOREACH_NODETREE(bmain, ntree, id) {
232                 bNode *node;
233                 bNodeSocket *sock;
234                 
235                 ntree->init |= NTREE_TYPE_INIT;
236                 
237                 if (treetype && STREQ(ntree->idname, treetype->idname))
238                         ntree_set_typeinfo(ntree, unregister ? NULL : treetype);
239                 
240                 /* initialize nodes */
241                 for (node = ntree->nodes.first; node; node = node->next) {
242                         if (nodetype && STREQ(node->idname, nodetype->idname))
243                                 node_set_typeinfo(C, ntree, node, unregister ? NULL : nodetype);
244                         
245                         /* initialize node sockets */
246                         for (sock = node->inputs.first; sock; sock = sock->next)
247                                 if (socktype && STREQ(sock->idname, socktype->idname))
248                                         node_socket_set_typeinfo(ntree, sock, unregister ? NULL : socktype);
249                         for (sock = node->outputs.first; sock; sock = sock->next)
250                                 if (socktype && STREQ(sock->idname, socktype->idname))
251                                         node_socket_set_typeinfo(ntree, sock, unregister ? NULL : socktype);
252                 }
253                 
254                 /* initialize tree sockets */
255                 for (sock = ntree->inputs.first; sock; sock = sock->next)
256                         if (socktype && STREQ(sock->idname, socktype->idname))
257                                 node_socket_set_typeinfo(ntree, sock, unregister ? NULL : socktype);
258                 for (sock = ntree->outputs.first; sock; sock = sock->next)
259                         if (socktype && STREQ(sock->idname, socktype->idname))
260                                 node_socket_set_typeinfo(ntree, sock, unregister ? NULL : socktype);
261         }
262         FOREACH_NODETREE_END
263 }
264
265 /* Try to initialize all typeinfo in a node tree.
266  * NB: In general undefined typeinfo is a perfectly valid case, the type may just be registered later.
267  * In that case the update_typeinfo function will set typeinfo on registration
268  * and do necessary updates.
269  */
270 void ntreeSetTypes(const struct bContext *C, bNodeTree *ntree)
271 {
272         bNode *node;
273         bNodeSocket *sock;
274         
275         ntree->init |= NTREE_TYPE_INIT;
276         
277         ntree_set_typeinfo(ntree, ntreeTypeFind(ntree->idname));
278         
279         for (node = ntree->nodes.first; node; node = node->next) {
280                 node_set_typeinfo(C, ntree, node, nodeTypeFind(node->idname));
281                 
282                 for (sock = node->inputs.first; sock; sock = sock->next)
283                         node_socket_set_typeinfo(ntree, sock, nodeSocketTypeFind(sock->idname));
284                 for (sock = node->outputs.first; sock; sock = sock->next)
285                         node_socket_set_typeinfo(ntree, sock, nodeSocketTypeFind(sock->idname));
286         }
287         
288         for (sock = ntree->inputs.first; sock; sock = sock->next)
289                 node_socket_set_typeinfo(ntree, sock, nodeSocketTypeFind(sock->idname));
290         for (sock = ntree->outputs.first; sock; sock = sock->next)
291                 node_socket_set_typeinfo(ntree, sock, nodeSocketTypeFind(sock->idname));
292 }
293
294
295 static GHash *nodetreetypes_hash = NULL;
296 static GHash *nodetypes_hash = NULL;
297 static GHash *nodesockettypes_hash = NULL;
298 static SpinLock spin;
299
300 bNodeTreeType *ntreeTypeFind(const char *idname)
301 {
302         bNodeTreeType *nt;
303
304         if (idname[0]) {
305                 nt = BLI_ghash_lookup(nodetreetypes_hash, idname);
306                 if (nt)
307                         return nt;
308         }
309
310         return NULL;
311 }
312
313 void ntreeTypeAdd(bNodeTreeType *nt)
314 {
315         BLI_ghash_insert(nodetreetypes_hash, nt->idname, nt);
316         /* XXX pass Main to register function? */
317         update_typeinfo(G.main, NULL, nt, NULL, NULL, false);
318 }
319
320 /* callback for hash value free function */
321 static void ntree_free_type(void *treetype_v)
322 {
323         bNodeTreeType *treetype = treetype_v;
324         /* XXX pass Main to unregister function? */
325         update_typeinfo(G.main, NULL, treetype, NULL, NULL, true);
326         MEM_freeN(treetype);
327 }
328
329 void ntreeTypeFreeLink(const bNodeTreeType *nt)
330 {
331         BLI_ghash_remove(nodetreetypes_hash, nt->idname, NULL, ntree_free_type);
332 }
333
334 bool ntreeIsRegistered(bNodeTree *ntree)
335 {
336         return (ntree->typeinfo != &NodeTreeTypeUndefined);
337 }
338
339 GHashIterator *ntreeTypeGetIterator(void)
340 {
341         return BLI_ghashIterator_new(nodetreetypes_hash);
342 }
343
344 bNodeType *nodeTypeFind(const char *idname)
345 {
346         bNodeType *nt;
347
348         if (idname[0]) {
349                 nt = BLI_ghash_lookup(nodetypes_hash, idname);
350                 if (nt)
351                         return nt;
352         }
353
354         return NULL;
355 }
356
357 static void free_dynamic_typeinfo(bNodeType *ntype)
358 {
359         if (ntype->type == NODE_DYNAMIC) {
360                 if (ntype->inputs) {
361                         MEM_freeN(ntype->inputs);
362                 }
363                 if (ntype->outputs) {
364                         MEM_freeN(ntype->outputs);
365                 }
366         }
367 }
368
369 /* callback for hash value free function */
370 static void node_free_type(void *nodetype_v)
371 {
372         bNodeType *nodetype = nodetype_v;
373         /* XXX pass Main to unregister function? */
374         update_typeinfo(G.main, NULL, NULL, nodetype, NULL, true);
375         
376         /* XXX deprecated */
377         if (nodetype->type == NODE_DYNAMIC)
378                 free_dynamic_typeinfo(nodetype);
379         
380         if (nodetype->needs_free)
381                 MEM_freeN(nodetype);
382 }
383
384 void nodeRegisterType(bNodeType *nt)
385 {
386         /* debug only: basic verification of registered types */
387         BLI_assert(nt->idname[0] != '\0');
388         BLI_assert(nt->poll != NULL);
389         
390         BLI_ghash_insert(nodetypes_hash, nt->idname, nt);
391         /* XXX pass Main to register function? */
392         update_typeinfo(G.main, NULL, NULL, nt, NULL, false);
393 }
394
395 void nodeUnregisterType(bNodeType *nt)
396 {
397         BLI_ghash_remove(nodetypes_hash, nt->idname, NULL, node_free_type);
398 }
399
400 bool nodeIsRegistered(bNode *node)
401 {
402         return (node->typeinfo != &NodeTypeUndefined);
403 }
404
405 GHashIterator *nodeTypeGetIterator(void)
406 {
407         return BLI_ghashIterator_new(nodetypes_hash);
408 }
409
410 bNodeSocketType *nodeSocketTypeFind(const char *idname)
411 {
412         bNodeSocketType *st;
413
414         if (idname[0]) {
415                 st = BLI_ghash_lookup(nodesockettypes_hash, idname);
416                 if (st)
417                         return st;
418         }
419
420         return NULL;
421 }
422
423 /* callback for hash value free function */
424 static void node_free_socket_type(void *socktype_v)
425 {
426         bNodeSocketType *socktype = socktype_v;
427         /* XXX pass Main to unregister function? */
428         update_typeinfo(G.main, NULL, NULL, NULL, socktype, true);
429         
430         MEM_freeN(socktype);
431 }
432
433 void nodeRegisterSocketType(bNodeSocketType *st)
434 {
435         BLI_ghash_insert(nodesockettypes_hash, (void *)st->idname, st);
436         /* XXX pass Main to register function? */
437         update_typeinfo(G.main, NULL, NULL, NULL, st, false);
438 }
439
440 void nodeUnregisterSocketType(bNodeSocketType *st)
441 {
442         BLI_ghash_remove(nodesockettypes_hash, st->idname, NULL, node_free_socket_type);
443 }
444
445 bool nodeSocketIsRegistered(bNodeSocket *sock)
446 {
447         return (sock->typeinfo != &NodeSocketTypeUndefined);
448 }
449
450 GHashIterator *nodeSocketTypeGetIterator(void)
451 {
452         return BLI_ghashIterator_new(nodesockettypes_hash);
453 }
454
455 struct bNodeSocket *nodeFindSocket(bNode *node, int in_out, const char *identifier)
456 {
457         bNodeSocket *sock = (in_out == SOCK_IN ? node->inputs.first : node->outputs.first);
458         for (; sock; sock = sock->next) {
459                 if (STREQ(sock->identifier, identifier))
460                         return sock;
461         }
462         return NULL;
463 }
464
465 /* find unique socket identifier */
466 static bool unique_identifier_check(void *arg, const char *identifier)
467 {
468         struct ListBase *lb = arg;
469         bNodeSocket *sock;
470         for (sock = lb->first; sock; sock = sock->next) {
471                 if (STREQ(sock->identifier, identifier))
472                         return true;
473         }
474         return false;
475 }
476
477 static bNodeSocket *make_socket(bNodeTree *ntree, bNode *UNUSED(node), int in_out, ListBase *lb,
478                                 const char *idname, const char *identifier, const char *name)
479 {
480         bNodeSocket *sock;
481         char auto_identifier[MAX_NAME];
482         
483         if (identifier && identifier[0] != '\0') {
484                 /* use explicit identifier */
485                 BLI_strncpy(auto_identifier, identifier, sizeof(auto_identifier));
486         }
487         else {
488                 /* if no explicit identifier is given, assign a unique identifier based on the name */
489                 BLI_strncpy(auto_identifier, name, sizeof(auto_identifier));
490         }
491         /* make the identifier unique */
492         BLI_uniquename_cb(unique_identifier_check, lb, "socket", '.', auto_identifier, sizeof(auto_identifier));
493         
494         sock = MEM_callocN(sizeof(bNodeSocket), "sock");
495         sock->in_out = in_out;
496         
497         BLI_strncpy(sock->identifier, auto_identifier, NODE_MAXSTR);
498         sock->limit = (in_out == SOCK_IN ? 1 : 0xFFF);
499         
500         BLI_strncpy(sock->name, name, NODE_MAXSTR);
501         sock->storage = NULL;
502         sock->flag |= SOCK_COLLAPSED;
503         sock->type = SOCK_CUSTOM;       /* int type undefined by default */
504         
505         BLI_strncpy(sock->idname, idname, sizeof(sock->idname));
506         node_socket_set_typeinfo(ntree, sock, nodeSocketTypeFind(idname));
507         
508         return sock;
509 }
510
511 void nodeModifySocketType(bNodeTree *ntree, bNode *UNUSED(node), bNodeSocket *sock,
512                           int type, int subtype)
513 {
514         const char *idname = nodeStaticSocketType(type, subtype);
515
516         if (!idname) {
517                 printf("Error: static node socket type %d undefined\n", type);
518                 return;
519         }
520
521         if (sock->default_value) {
522                 MEM_freeN(sock->default_value);
523                 sock->default_value = NULL;
524         }
525
526         sock->type = type;
527         BLI_strncpy(sock->idname, idname, sizeof(sock->idname));
528         node_socket_set_typeinfo(ntree, sock, nodeSocketTypeFind(idname));
529 }
530
531 bNodeSocket *nodeAddSocket(bNodeTree *ntree, bNode *node, int in_out, const char *idname,
532                            const char *identifier, const char *name)
533 {
534         ListBase *lb = (in_out == SOCK_IN ? &node->inputs : &node->outputs);
535         bNodeSocket *sock = make_socket(ntree, node, in_out, lb, idname, identifier, name);
536         
537         BLI_remlink(lb, sock);  /* does nothing for new socket */
538         BLI_addtail(lb, sock);
539         
540         node->update |= NODE_UPDATE;
541         
542         return sock;
543 }
544
545 bNodeSocket *nodeInsertSocket(bNodeTree *ntree, bNode *node, int in_out, const char *idname,
546                               bNodeSocket *next_sock, const char *identifier, const char *name)
547 {
548         ListBase *lb = (in_out == SOCK_IN ? &node->inputs : &node->outputs);
549         bNodeSocket *sock = make_socket(ntree, node, in_out, lb, idname, identifier, name);
550         
551         BLI_remlink(lb, sock);  /* does nothing for new socket */
552         BLI_insertlinkbefore(lb, next_sock, sock);
553         
554         node->update |= NODE_UPDATE;
555         
556         return sock;
557 }
558
559 const char *nodeStaticSocketType(int type, int subtype)
560 {
561         switch (type) {
562                 case SOCK_FLOAT:
563                         switch (subtype) {
564                                 case PROP_UNSIGNED:
565                                         return "NodeSocketFloatUnsigned";
566                                 case PROP_PERCENTAGE:
567                                         return "NodeSocketFloatPercentage";
568                                 case PROP_FACTOR:
569                                         return "NodeSocketFloatFactor";
570                                 case PROP_ANGLE:
571                                         return "NodeSocketFloatAngle";
572                                 case PROP_TIME:
573                                         return "NodeSocketFloatTime";
574                                 case PROP_NONE:
575                                 default:
576                                         return "NodeSocketFloat";
577                         }
578                 case SOCK_INT:
579                         switch (subtype) {
580                                 case PROP_UNSIGNED:
581                                         return "NodeSocketIntUnsigned";
582                                 case PROP_PERCENTAGE:
583                                         return "NodeSocketIntPercentage";
584                                 case PROP_FACTOR:
585                                         return "NodeSocketIntFactor";
586                                 case PROP_NONE:
587                                 default:
588                                         return "NodeSocketInt";
589                         }
590                 case SOCK_BOOLEAN:
591                         return "NodeSocketBool";
592                 case SOCK_VECTOR:
593                         switch (subtype) {
594                                 case PROP_TRANSLATION:
595                                         return "NodeSocketVectorTranslation";
596                                 case PROP_DIRECTION:
597                                         return "NodeSocketVectorDirection";
598                                 case PROP_VELOCITY:
599                                         return "NodeSocketVectorVelocity";
600                                 case PROP_ACCELERATION:
601                                         return "NodeSocketVectorAcceleration";
602                                 case PROP_EULER:
603                                         return "NodeSocketVectorEuler";
604                                 case PROP_XYZ:
605                                         return "NodeSocketVectorXYZ";
606                                 case PROP_NONE:
607                                 default:
608                                         return "NodeSocketVector";
609                         }
610                 case SOCK_RGBA:
611                         return "NodeSocketColor";
612                 case SOCK_STRING:
613                         return "NodeSocketString";
614                 case SOCK_SHADER:
615                         return "NodeSocketShader";
616         }
617         return NULL;
618 }
619
620 const char *nodeStaticSocketInterfaceType(int type, int subtype)
621 {
622         switch (type) {
623                 case SOCK_FLOAT:
624                         switch (subtype) {
625                                 case PROP_UNSIGNED:
626                                         return "NodeSocketInterfaceFloatUnsigned";
627                                 case PROP_PERCENTAGE:
628                                         return "NodeSocketInterfaceFloatPercentage";
629                                 case PROP_FACTOR:
630                                         return "NodeSocketInterfaceFloatFactor";
631                                 case PROP_ANGLE:
632                                         return "NodeSocketInterfaceFloatAngle";
633                                 case PROP_TIME:
634                                         return "NodeSocketInterfaceFloatTime";
635                                 case PROP_NONE:
636                                 default:
637                                         return "NodeSocketInterfaceFloat";
638                         }
639                 case SOCK_INT:
640                         switch (subtype) {
641                                 case PROP_UNSIGNED:
642                                         return "NodeSocketInterfaceIntUnsigned";
643                                 case PROP_PERCENTAGE:
644                                         return "NodeSocketInterfaceIntPercentage";
645                                 case PROP_FACTOR:
646                                         return "NodeSocketInterfaceIntFactor";
647                                 case PROP_NONE:
648                                 default:
649                                         return "NodeSocketInterfaceInt";
650                         }
651                 case SOCK_BOOLEAN:
652                         return "NodeSocketInterfaceBool";
653                 case SOCK_VECTOR:
654                         switch (subtype) {
655                                 case PROP_TRANSLATION:
656                                         return "NodeSocketInterfaceVectorTranslation";
657                                 case PROP_DIRECTION:
658                                         return "NodeSocketInterfaceVectorDirection";
659                                 case PROP_VELOCITY:
660                                         return "NodeSocketInterfaceVectorVelocity";
661                                 case PROP_ACCELERATION:
662                                         return "NodeSocketInterfaceVectorAcceleration";
663                                 case PROP_EULER:
664                                         return "NodeSocketInterfaceVectorEuler";
665                                 case PROP_XYZ:
666                                         return "NodeSocketInterfaceVectorXYZ";
667                                 case PROP_NONE:
668                                 default:
669                                         return "NodeSocketInterfaceVector";
670                         }
671                 case SOCK_RGBA:
672                         return "NodeSocketInterfaceColor";
673                 case SOCK_STRING:
674                         return "NodeSocketInterfaceString";
675                 case SOCK_SHADER:
676                         return "NodeSocketInterfaceShader";
677         }
678         return NULL;
679 }
680
681 bNodeSocket *nodeAddStaticSocket(bNodeTree *ntree, bNode *node, int in_out, int type, int subtype,
682                                  const char *identifier, const char *name)
683 {
684         const char *idname = nodeStaticSocketType(type, subtype);
685         bNodeSocket *sock;
686         
687         if (!idname) {
688                 printf("Error: static node socket type %d undefined\n", type);
689                 return NULL;
690         }
691         
692         sock = nodeAddSocket(ntree, node, in_out, idname, identifier, name);
693         sock->type = type;
694         return sock;
695 }
696
697 bNodeSocket *nodeInsertStaticSocket(bNodeTree *ntree, bNode *node, int in_out, int type, int subtype,
698                                     bNodeSocket *next_sock, const char *identifier, const char *name)
699 {
700         const char *idname = nodeStaticSocketType(type, subtype);
701         bNodeSocket *sock;
702         
703         if (!idname) {
704                 printf("Error: static node socket type %d undefined\n", type);
705                 return NULL;
706         }
707         
708         sock = nodeInsertSocket(ntree, node, in_out, idname, next_sock, identifier, name);
709         sock->type = type;
710         return sock;
711 }
712
713 static void node_socket_free(bNodeTree *UNUSED(ntree), bNodeSocket *sock, bNode *UNUSED(node))
714 {
715         if (sock->prop) {
716                 IDP_FreeProperty(sock->prop);
717                 MEM_freeN(sock->prop);
718         }
719         
720         if (sock->default_value)
721                 MEM_freeN(sock->default_value);
722 }
723
724 void nodeRemoveSocket(bNodeTree *ntree, bNode *node, bNodeSocket *sock)
725 {
726         bNodeLink *link, *next;
727         
728         for (link = ntree->links.first; link; link = next) {
729                 next = link->next;
730                 if (link->fromsock == sock || link->tosock == sock) {
731                         nodeRemLink(ntree, link);
732                 }
733         }
734         
735         /* this is fast, this way we don't need an in_out argument */
736         BLI_remlink(&node->inputs, sock);
737         BLI_remlink(&node->outputs, sock);
738         
739         node_socket_free(ntree, sock, node);
740         MEM_freeN(sock);
741         
742         node->update |= NODE_UPDATE;
743 }
744
745 void nodeRemoveAllSockets(bNodeTree *ntree, bNode *node)
746 {
747         bNodeSocket *sock, *sock_next;
748         bNodeLink *link, *next;
749         
750         for (link = ntree->links.first; link; link = next) {
751                 next = link->next;
752                 if (link->fromnode == node || link->tonode == node) {
753                         nodeRemLink(ntree, link);
754                 }
755         }
756         
757         for (sock = node->inputs.first; sock; sock = sock_next) {
758                 sock_next = sock->next;
759                 node_socket_free(ntree, sock, node);
760                 MEM_freeN(sock);
761         }
762         BLI_listbase_clear(&node->inputs);
763
764         for (sock = node->outputs.first; sock; sock = sock_next) {
765                 sock_next = sock->next;
766                 node_socket_free(ntree, sock, node);
767                 MEM_freeN(sock);
768         }
769         BLI_listbase_clear(&node->outputs);
770         
771         node->update |= NODE_UPDATE;
772 }
773
774 /* finds a node based on its name */
775 bNode *nodeFindNodebyName(bNodeTree *ntree, const char *name)
776 {
777         return BLI_findstring(&ntree->nodes, name, offsetof(bNode, name));
778 }
779
780 /* finds a node based on given socket */
781 int nodeFindNode(bNodeTree *ntree, bNodeSocket *sock, bNode **nodep, int *sockindex)
782 {
783         int in_out = sock->in_out;
784         bNode *node;
785         bNodeSocket *tsock;
786         int index = 0;
787         
788         for (node = ntree->nodes.first; node; node = node->next) {
789                 tsock = (in_out == SOCK_IN ? node->inputs.first : node->outputs.first);
790                 for (index = 0; tsock; tsock = tsock->next, index++) {
791                         if (tsock == sock)
792                                 break;
793                 }
794                 if (tsock)
795                         break;
796         }
797
798         if (node) {
799                 *nodep = node;
800                 if (sockindex) *sockindex = index;
801                 return 1;
802         }
803         
804         *nodep = NULL;
805         return 0;
806 }
807
808 /**
809  * \note Recursive
810  */
811 bNode *nodeFindRootParent(bNode *node)
812 {
813         if (node->parent) {
814                 return nodeFindRootParent(node->parent);
815         }
816         else {
817                 return node->type == NODE_FRAME ? node : NULL;
818         }
819 }
820
821 /**
822  * \returns true if \a child has \a parent as a parent/grandparent/...
823  * \note Recursive
824  */
825 bool nodeIsChildOf(const bNode *parent, const bNode *child)
826 {
827         if (parent == child) {
828                 return true;
829         }
830         else if (child->parent) {
831                 return nodeIsChildOf(parent, child->parent);
832         }
833         return false;
834 }
835
836 /**
837  * Iterate over a chain of nodes, starting with \a node_start, executing
838  * \a callback for each node (which can return false to end iterator).
839  * 
840  * \param reversed for backwards iteration
841  * \note Recursive
842  */
843 void nodeChainIter(
844         const bNodeTree *ntree, const bNode *node_start,
845         bool (*callback)(bNode *, bNode *, void *, const bool), void *userdata,
846         const bool reversed)
847 {
848         bNodeLink *link;
849
850         for (link = ntree->links.first; link; link = link->next) {
851                 if ((link->flag & NODE_LINK_VALID) == 0) {
852                         /* Skip links marked as cyclic. */
853                         continue;
854                 }
855                 if (link->tonode && link->fromnode) {
856                         /* is the link part of the chain meaning node_start == fromnode (or tonode for reversed case)? */
857                         if ((reversed && (link->tonode == node_start)) ||
858                             (!reversed && link->fromnode == node_start))
859                         {
860                                 if (!callback(link->fromnode, link->tonode, userdata, reversed)) {
861                                         return;
862                                 }
863                                 nodeChainIter(ntree, reversed ? link->fromnode : link->tonode, callback, userdata, reversed);
864                         }
865                 }
866         }
867 }
868
869 /**
870  * Iterate over all parents of \a node, executing \a callback for each parent (which can return false to end iterator)
871  * 
872  * \note Recursive
873  */
874 void nodeParentsIter(bNode *node, bool (*callback)(bNode *, void *), void *userdata)
875 {
876         if (node->parent) {
877                 if (!callback(node->parent, userdata)) {
878                         return;
879                 }
880                 nodeParentsIter(node->parent, callback, userdata);
881         }
882 }
883
884 /* ************** Add stuff ********** */
885
886 /* Find the first available, non-duplicate name for a given node */
887 void nodeUniqueName(bNodeTree *ntree, bNode *node)
888 {
889         BLI_uniquename(&ntree->nodes, node, DATA_("Node"), '.', offsetof(bNode, name), sizeof(node->name));
890 }
891
892 bNode *nodeAddNode(const struct bContext *C, bNodeTree *ntree, const char *idname)
893 {
894         bNode *node;
895         
896         node = MEM_callocN(sizeof(bNode), "new node");
897         BLI_addtail(&ntree->nodes, node);
898         
899         BLI_strncpy(node->idname, idname, sizeof(node->idname));
900         node_set_typeinfo(C, ntree, node, nodeTypeFind(idname));
901         
902         ntree->update |= NTREE_UPDATE_NODES;
903         
904         return node;
905 }
906
907 bNode *nodeAddStaticNode(const struct bContext *C, bNodeTree *ntree, int type)
908 {
909         const char *idname = NULL;
910         
911         NODE_TYPES_BEGIN(ntype)
912                 /* do an extra poll here, because some int types are used
913                  * for multiple node types, this helps find the desired type
914                  */
915                 if (ntype->type == type && (!ntype->poll || ntype->poll(ntype, ntree))) {
916                         idname = ntype->idname;
917                         break;
918                 }
919         NODE_TYPES_END
920         if (!idname) {
921                 printf("Error: static node type %d undefined\n", type);
922                 return NULL;
923         }
924         return nodeAddNode(C, ntree, idname);
925 }
926
927 static void node_socket_copy(bNodeSocket *sock_dst, bNodeSocket *sock_src, const int flag)
928 {
929         sock_src->new_sock = sock_dst;
930
931         if (sock_src->prop) {
932                 sock_dst->prop = IDP_CopyProperty_ex(sock_src->prop, flag);
933         }
934
935         if (sock_src->default_value) {
936                 sock_dst->default_value = MEM_dupallocN(sock_src->default_value);
937         }
938
939         sock_dst->stack_index = 0;
940         /* XXX some compositor node (e.g. image, render layers) still store
941          * some persistent buffer data here, need to clear this to avoid dangling pointers.
942          */
943         sock_dst->cache = NULL;
944 }
945
946 /* keep socket listorder identical, for copying links */
947 /* ntree is the target tree */
948 bNode *BKE_node_copy_ex(bNodeTree *ntree, bNode *node_src, const int flag)
949 {
950         bNode *node_dst = MEM_callocN(sizeof(bNode), "dupli node");
951         bNodeSocket *sock_dst, *sock_src;
952         bNodeLink *link_dst, *link_src;
953
954         *node_dst = *node_src;
955         /* can be called for nodes outside a node tree (e.g. clipboard) */
956         if (ntree) {
957                 nodeUniqueName(ntree, node_dst);
958
959                 BLI_addtail(&ntree->nodes, node_dst);
960         }
961
962         BLI_duplicatelist(&node_dst->inputs, &node_src->inputs);
963         for (sock_dst = node_dst->inputs.first, sock_src = node_src->inputs.first;
964              sock_dst != NULL;
965              sock_dst = sock_dst->next, sock_src = sock_src->next)
966         {
967                 node_socket_copy(sock_dst, sock_src, flag);
968         }
969
970         BLI_duplicatelist(&node_dst->outputs, &node_src->outputs);
971         for (sock_dst = node_dst->outputs.first, sock_src = node_src->outputs.first;
972              sock_dst != NULL;
973              sock_dst = sock_dst->next, sock_src = sock_src->next)
974         {
975                 node_socket_copy(sock_dst, sock_src, flag);
976         }
977
978         if (node_src->prop) {
979                 node_dst->prop = IDP_CopyProperty_ex(node_src->prop, flag);
980         }
981
982         BLI_duplicatelist(&node_dst->internal_links, &node_src->internal_links);
983         for (link_dst = node_dst->internal_links.first, link_src = node_src->internal_links.first;
984              link_dst != NULL;
985              link_dst = link_dst->next, link_src = link_src->next)
986         {
987                 link_dst->fromnode = node_dst;
988                 link_dst->tonode = node_dst;
989                 link_dst->fromsock = link_dst->fromsock->new_sock;
990                 link_dst->tosock = link_dst->tosock->new_sock;
991         }
992
993         if ((flag & LIB_ID_CREATE_NO_USER_REFCOUNT) == 0) {
994                 id_us_plus(node_dst->id);
995         }
996
997         if (node_src->typeinfo->copyfunc) {
998                 node_src->typeinfo->copyfunc(ntree, node_dst, node_src);
999         }
1000
1001         node_src->new_node = node_dst;
1002         node_dst->new_node = NULL;
1003
1004         if (node_dst->typeinfo->copyfunc_api) {
1005                 PointerRNA ptr;
1006                 RNA_pointer_create((ID *)ntree, &RNA_Node, node_dst, &ptr);
1007
1008                 node_dst->typeinfo->copyfunc_api(&ptr, node_src);
1009         }
1010
1011         if (ntree) {
1012                 ntree->update |= NTREE_UPDATE_NODES;
1013         }
1014
1015         return node_dst;
1016 }
1017
1018 bNode *nodeCopyNode(bNodeTree *ntree, bNode *node)
1019 {
1020         return BKE_node_copy_ex(ntree, node, LIB_ID_CREATE_NO_USER_REFCOUNT);
1021 }
1022
1023 /* also used via rna api, so we check for proper input output direction */
1024 bNodeLink *nodeAddLink(bNodeTree *ntree, bNode *fromnode, bNodeSocket *fromsock, bNode *tonode, bNodeSocket *tosock)
1025 {
1026         bNodeLink *link = NULL;
1027         
1028         /* test valid input */
1029         BLI_assert(fromnode);
1030         BLI_assert(tonode);
1031         
1032         if (fromsock->in_out == SOCK_OUT && tosock->in_out == SOCK_IN) {
1033                 link = MEM_callocN(sizeof(bNodeLink), "link");
1034                 if (ntree)
1035                         BLI_addtail(&ntree->links, link);
1036                 link->fromnode = fromnode;
1037                 link->fromsock = fromsock;
1038                 link->tonode = tonode;
1039                 link->tosock = tosock;
1040         }
1041         else if (fromsock->in_out == SOCK_IN && tosock->in_out == SOCK_OUT) {
1042                 /* OK but flip */
1043                 link = MEM_callocN(sizeof(bNodeLink), "link");
1044                 if (ntree)
1045                         BLI_addtail(&ntree->links, link);
1046                 link->fromnode = tonode;
1047                 link->fromsock = tosock;
1048                 link->tonode = fromnode;
1049                 link->tosock = fromsock;
1050         }
1051         
1052         if (ntree)
1053                 ntree->update |= NTREE_UPDATE_LINKS;
1054         
1055         return link;
1056 }
1057
1058 void nodeRemLink(bNodeTree *ntree, bNodeLink *link)
1059 {
1060         /* can be called for links outside a node tree (e.g. clipboard) */
1061         if (ntree)
1062                 BLI_remlink(&ntree->links, link);
1063
1064         if (link->tosock)
1065                 link->tosock->link = NULL;
1066         MEM_freeN(link);
1067         
1068         if (ntree)
1069                 ntree->update |= NTREE_UPDATE_LINKS;
1070 }
1071
1072 void nodeRemSocketLinks(bNodeTree *ntree, bNodeSocket *sock)
1073 {
1074         bNodeLink *link, *next;
1075         
1076         for (link = ntree->links.first; link; link = next) {
1077                 next = link->next;
1078                 if (link->fromsock == sock || link->tosock == sock) {
1079                         nodeRemLink(ntree, link);
1080                 }
1081         }
1082         
1083         ntree->update |= NTREE_UPDATE_LINKS;
1084 }
1085
1086 bool nodeLinkIsHidden(bNodeLink *link)
1087 {
1088         return nodeSocketIsHidden(link->fromsock) || nodeSocketIsHidden(link->tosock);
1089 }
1090
1091 void nodeInternalRelink(bNodeTree *ntree, bNode *node)
1092 {
1093         bNodeLink *link, *link_next;
1094         
1095         /* store link pointers in output sockets, for efficient lookup */
1096         for (link = node->internal_links.first; link; link = link->next)
1097                 link->tosock->link = link;
1098         
1099         /* redirect downstream links */
1100         for (link = ntree->links.first; link; link = link_next) {
1101                 link_next = link->next;
1102                 
1103                 /* do we have internal link? */
1104                 if (link->fromnode == node) {
1105                         if (link->fromsock->link) {
1106                                 /* get the upstream input link */
1107                                 bNodeLink *fromlink = link->fromsock->link->fromsock->link;
1108                                 /* skip the node */
1109                                 if (fromlink) {
1110                                         link->fromnode = fromlink->fromnode;
1111                                         link->fromsock = fromlink->fromsock;
1112                                         
1113                                         /* if the up- or downstream link is invalid,
1114                                          * the replacement link will be invalid too.
1115                                          */
1116                                         if (!(fromlink->flag & NODE_LINK_VALID))
1117                                                 link->flag &= ~NODE_LINK_VALID;
1118                                         
1119                                         ntree->update |= NTREE_UPDATE_LINKS;
1120                                 }
1121                                 else
1122                                         nodeRemLink(ntree, link);
1123                         }
1124                         else
1125                                 nodeRemLink(ntree, link);
1126                 }
1127         }
1128         
1129         /* remove remaining upstream links */
1130         for (link = ntree->links.first; link; link = link_next) {
1131                 link_next = link->next;
1132                 
1133                 if (link->tonode == node)
1134                         nodeRemLink(ntree, link);
1135         }
1136 }
1137
1138 void nodeToView(bNode *node, float x, float y, float *rx, float *ry)
1139 {
1140         if (node->parent) {
1141                 nodeToView(node->parent, x + node->locx, y + node->locy, rx, ry);
1142         }
1143         else {
1144                 *rx = x + node->locx;
1145                 *ry = y + node->locy;
1146         }
1147 }
1148
1149 void nodeFromView(bNode *node, float x, float y, float *rx, float *ry)
1150 {
1151         if (node->parent) {
1152                 nodeFromView(node->parent, x, y, rx, ry);
1153                 *rx -= node->locx;
1154                 *ry -= node->locy;
1155         }
1156         else {
1157                 *rx = x - node->locx;
1158                 *ry = y - node->locy;
1159         }
1160 }
1161
1162 bool nodeAttachNodeCheck(bNode *node, bNode *parent)
1163 {
1164         bNode *parent_recurse;
1165         for (parent_recurse = node; parent_recurse; parent_recurse = parent_recurse->parent) {
1166                 if (parent_recurse == parent) {
1167                         return true;
1168                 }
1169         }
1170
1171         return false;
1172 }
1173
1174 void nodeAttachNode(bNode *node, bNode *parent)
1175 {
1176         float locx, locy;
1177
1178         BLI_assert(parent->type == NODE_FRAME);
1179         BLI_assert(nodeAttachNodeCheck(parent, node) == false);
1180
1181         nodeToView(node, 0.0f, 0.0f, &locx, &locy);
1182         
1183         node->parent = parent;
1184         /* transform to parent space */
1185         nodeFromView(parent, locx, locy, &node->locx, &node->locy);
1186 }
1187
1188 void nodeDetachNode(struct bNode *node)
1189 {
1190         float locx, locy;
1191         
1192         if (node->parent) {
1193
1194                 BLI_assert(node->parent->type == NODE_FRAME);
1195
1196                 /* transform to view space */
1197                 nodeToView(node, 0.0f, 0.0f, &locx, &locy);
1198                 node->locx = locx;
1199                 node->locy = locy;
1200                 node->parent = NULL;
1201         }
1202 }
1203
1204 void ntreeInitDefault(bNodeTree *ntree)
1205 {
1206         ntree_set_typeinfo(ntree, NULL);
1207 }
1208
1209 bNodeTree *ntreeAddTree(Main *bmain, const char *name, const char *idname)
1210 {
1211         bNodeTree *ntree;
1212         
1213         /* trees are created as local trees for compositor, material or texture nodes,
1214          * node groups and other tree types are created as library data.
1215          */
1216         if (bmain) {
1217                 ntree = BKE_libblock_alloc(bmain, ID_NT, name, 0);
1218         }
1219         else {
1220                 ntree = MEM_callocN(sizeof(bNodeTree), "new node tree");
1221                 *( (short *)ntree->id.name ) = ID_NT;
1222                 BLI_strncpy(ntree->id.name + 2, name, sizeof(ntree->id.name));
1223         }
1224         
1225         /* Types are fully initialized at this point,
1226          * if an undefined node is added later this will be reset.
1227          */
1228         ntree->init |= NTREE_TYPE_INIT;
1229         
1230         BLI_strncpy(ntree->idname, idname, sizeof(ntree->idname));
1231         ntree_set_typeinfo(ntree, ntreeTypeFind(idname));
1232         
1233         return ntree;
1234 }
1235
1236 /**
1237  * Only copy internal data of NodeTree ID from source to already allocated/initialized destination.
1238  * You probably nerver want to use that directly, use id_copy or BKE_id_copy_ex for typical needs.
1239  *
1240  * WARNING! This function will not handle ID user count!
1241  *
1242  * \param flag  Copying options (see BKE_library.h's LIB_ID_COPY_... flags for more).
1243  */
1244 void BKE_node_tree_copy_data(Main *UNUSED(bmain), bNodeTree *ntree_dst, const bNodeTree *ntree_src, const int flag)
1245 {
1246         bNodeSocket *sock_dst, *sock_src;
1247         bNodeLink *link_dst;
1248
1249         /* We never handle usercount here for own data. */
1250         const int flag_subdata = flag | LIB_ID_CREATE_NO_USER_REFCOUNT;
1251
1252         /* in case a running nodetree is copied */
1253         ntree_dst->execdata = NULL;
1254
1255         ntree_dst->duplilock = NULL;
1256
1257         BLI_listbase_clear(&ntree_dst->nodes);
1258         BLI_listbase_clear(&ntree_dst->links);
1259
1260         for (bNode *node_src = ntree_src->nodes.first; node_src; node_src = node_src->next) {
1261                 BKE_node_copy_ex(ntree_dst, node_src, flag_subdata);
1262         }
1263
1264         /* copy links */
1265         BLI_duplicatelist(&ntree_dst->links, &ntree_src->links);
1266         for (link_dst = ntree_dst->links.first; link_dst; link_dst = link_dst->next) {
1267                 link_dst->fromnode = (link_dst->fromnode ? link_dst->fromnode->new_node : NULL);
1268                 link_dst->fromsock = (link_dst->fromsock ? link_dst->fromsock->new_sock : NULL);
1269                 link_dst->tonode = (link_dst->tonode ? link_dst->tonode->new_node : NULL);
1270                 link_dst->tosock = (link_dst->tosock ? link_dst->tosock->new_sock : NULL);
1271                 /* update the link socket's pointer */
1272                 if (link_dst->tosock) {
1273                         link_dst->tosock->link = link_dst;
1274                 }
1275         }
1276
1277         /* copy interface sockets */
1278         BLI_duplicatelist(&ntree_dst->inputs, &ntree_src->inputs);
1279         for (sock_dst = ntree_dst->inputs.first, sock_src = ntree_src->inputs.first;
1280              sock_dst != NULL;
1281              sock_dst = sock_dst->next, sock_src = sock_src->next)
1282         {
1283                 node_socket_copy(sock_dst, sock_src, flag_subdata);
1284         }
1285
1286         BLI_duplicatelist(&ntree_dst->outputs, &ntree_src->outputs);
1287         for (sock_dst = ntree_dst->outputs.first, sock_src = ntree_src->outputs.first;
1288              sock_dst != NULL;
1289              sock_dst = sock_dst->next, sock_src = sock_src->next)
1290         {
1291                 node_socket_copy(sock_dst, sock_src, flag_subdata);
1292         }
1293
1294         /* copy preview hash */
1295         if (ntree_src->previews && (flag & LIB_ID_COPY_NO_PREVIEW) == 0) {
1296                 bNodeInstanceHashIterator iter;
1297
1298                 ntree_dst->previews = BKE_node_instance_hash_new("node previews");
1299
1300                 NODE_INSTANCE_HASH_ITER(iter, ntree_src->previews) {
1301                         bNodeInstanceKey key = BKE_node_instance_hash_iterator_get_key(&iter);
1302                         bNodePreview *preview = BKE_node_instance_hash_iterator_get_value(&iter);
1303                         BKE_node_instance_hash_insert(ntree_dst->previews, key, BKE_node_preview_copy(preview));
1304                 }
1305         }
1306         else {
1307                 ntree_dst->previews = NULL;
1308         }
1309
1310         /* update node->parent pointers */
1311         for (bNode *node_dst = ntree_dst->nodes.first, *node_src = ntree_src->nodes.first; node_dst; node_dst = node_dst->next, node_src = node_src->next) {
1312                 if (node_dst->parent) {
1313                         node_dst->parent = node_dst->parent->new_node;
1314                 }
1315         }
1316
1317         /* node tree will generate its own interface type */
1318         ntree_dst->interface_type = NULL;
1319 }
1320
1321 bNodeTree *ntreeCopyTree_ex(const bNodeTree *ntree, Main *bmain, const bool do_id_user)
1322 {
1323         bNodeTree *ntree_copy;
1324         BKE_id_copy_ex(bmain, (ID *)ntree, (ID **)&ntree_copy, do_id_user ? 0 : LIB_ID_CREATE_NO_USER_REFCOUNT, false);
1325         return ntree_copy;
1326 }
1327 bNodeTree *ntreeCopyTree(Main *bmain, const bNodeTree *ntree)
1328 {
1329         return ntreeCopyTree_ex(ntree, bmain, true);
1330 }
1331
1332 void ntreeUserIncrefID(bNodeTree *ntree)
1333 {
1334         bNode *node;
1335         for (node = ntree->nodes.first; node; node = node->next) {
1336                 id_us_plus(node->id);
1337         }
1338 }
1339 void ntreeUserDecrefID(bNodeTree *ntree)
1340 {
1341         bNode *node;
1342         for (node = ntree->nodes.first; node; node = node->next) {
1343                 id_us_min(node->id);
1344         }
1345 }
1346
1347 /* *************** Node Preview *********** */
1348
1349 /* XXX this should be removed eventually ...
1350  * Currently BKE functions are modeled closely on previous code,
1351  * using BKE_node_preview_init_tree to set up previews for a whole node tree in advance.
1352  * This should be left more to the individual node tree implementations.
1353  */
1354 int BKE_node_preview_used(bNode *node)
1355 {
1356         /* XXX check for closed nodes? */
1357         return (node->typeinfo->flag & NODE_PREVIEW) != 0;
1358 }
1359
1360 bNodePreview *BKE_node_preview_verify(bNodeInstanceHash *previews, bNodeInstanceKey key, int xsize, int ysize, bool create)
1361 {
1362         bNodePreview *preview;
1363         
1364         preview = BKE_node_instance_hash_lookup(previews, key);
1365         if (!preview) {
1366                 if (create) {
1367                         preview = MEM_callocN(sizeof(bNodePreview), "node preview");
1368                         BKE_node_instance_hash_insert(previews, key, preview);
1369                 }
1370                 else
1371                         return NULL;
1372         }
1373         
1374         /* node previews can get added with variable size this way */
1375         if (xsize == 0 || ysize == 0)
1376                 return preview;
1377         
1378         /* sanity checks & initialize */
1379         if (preview->rect) {
1380                 if (preview->xsize != xsize || preview->ysize != ysize) {
1381                         MEM_freeN(preview->rect);
1382                         preview->rect = NULL;
1383                 }
1384         }
1385         
1386         if (preview->rect == NULL) {
1387                 preview->rect = MEM_callocN(4 * xsize + xsize * ysize * sizeof(char) * 4, "node preview rect");
1388                 preview->xsize = xsize;
1389                 preview->ysize = ysize;
1390         }
1391         /* no clear, makes nicer previews */
1392         
1393         return preview;
1394 }
1395
1396 bNodePreview *BKE_node_preview_copy(bNodePreview *preview)
1397 {
1398         bNodePreview *new_preview = MEM_dupallocN(preview);
1399         if (preview->rect)
1400                 new_preview->rect = MEM_dupallocN(preview->rect);
1401         return new_preview;
1402 }
1403
1404 void BKE_node_preview_free(bNodePreview *preview)
1405 {
1406         if (preview->rect)
1407                 MEM_freeN(preview->rect);
1408         MEM_freeN(preview);
1409 }
1410
1411 static void node_preview_init_tree_recursive(bNodeInstanceHash *previews, bNodeTree *ntree, bNodeInstanceKey parent_key, int xsize, int ysize, int create)
1412 {
1413         bNode *node;
1414         for (node = ntree->nodes.first; node; node = node->next) {
1415                 bNodeInstanceKey key = BKE_node_instance_key(parent_key, ntree, node);
1416                 
1417                 if (BKE_node_preview_used(node)) {
1418                         node->preview_xsize = xsize;
1419                         node->preview_ysize = ysize;
1420                         
1421                         BKE_node_preview_verify(previews, key, xsize, ysize, create);
1422                 }
1423                 
1424                 if (node->type == NODE_GROUP && node->id)
1425                         node_preview_init_tree_recursive(previews, (bNodeTree *)node->id, key, xsize, ysize, create);
1426         }
1427 }
1428
1429 void BKE_node_preview_init_tree(bNodeTree *ntree, int xsize, int ysize, int create_previews)
1430 {
1431         if (!ntree)
1432                 return;
1433         
1434         if (!ntree->previews)
1435                 ntree->previews = BKE_node_instance_hash_new("node previews");
1436         
1437         node_preview_init_tree_recursive(ntree->previews, ntree, NODE_INSTANCE_KEY_BASE, xsize, ysize, create_previews);
1438 }
1439
1440 static void node_preview_tag_used_recursive(bNodeInstanceHash *previews, bNodeTree *ntree, bNodeInstanceKey parent_key)
1441 {
1442         bNode *node;
1443         for (node = ntree->nodes.first; node; node = node->next) {
1444                 bNodeInstanceKey key = BKE_node_instance_key(parent_key, ntree, node);
1445                 
1446                 if (BKE_node_preview_used(node))
1447                         BKE_node_instance_hash_tag_key(previews, key);
1448                 
1449                 if (node->type == NODE_GROUP && node->id)
1450                         node_preview_tag_used_recursive(previews, (bNodeTree *)node->id, key);
1451         }
1452 }
1453
1454 void BKE_node_preview_remove_unused(bNodeTree *ntree)
1455 {
1456         if (!ntree || !ntree->previews)
1457                 return;
1458         
1459         /* use the instance hash functions for tagging and removing unused previews */
1460         BKE_node_instance_hash_clear_tags(ntree->previews);
1461         node_preview_tag_used_recursive(ntree->previews, ntree, NODE_INSTANCE_KEY_BASE);
1462         
1463         BKE_node_instance_hash_remove_untagged(ntree->previews, (bNodeInstanceValueFP)BKE_node_preview_free);
1464 }
1465
1466 void BKE_node_preview_free_tree(bNodeTree *ntree)
1467 {
1468         if (!ntree)
1469                 return;
1470         
1471         if (ntree->previews) {
1472                 BKE_node_instance_hash_free(ntree->previews, (bNodeInstanceValueFP)BKE_node_preview_free);
1473                 ntree->previews = NULL;
1474         }
1475 }
1476
1477 void BKE_node_preview_clear(bNodePreview *preview)
1478 {
1479         if (preview && preview->rect)
1480                 memset(preview->rect, 0, MEM_allocN_len(preview->rect));
1481 }
1482
1483 void BKE_node_preview_clear_tree(bNodeTree *ntree)
1484 {
1485         bNodeInstanceHashIterator iter;
1486         
1487         if (!ntree || !ntree->previews)
1488                 return;
1489         
1490         NODE_INSTANCE_HASH_ITER(iter, ntree->previews) {
1491                 bNodePreview *preview = BKE_node_instance_hash_iterator_get_value(&iter);
1492                 BKE_node_preview_clear(preview);
1493         }
1494 }
1495
1496 static void node_preview_sync(bNodePreview *to, bNodePreview *from)
1497 {
1498         /* sizes should have been initialized by BKE_node_preview_init_tree */
1499         BLI_assert(to->xsize == from->xsize && to->ysize == from->ysize);
1500         
1501         /* copy over contents of previews */
1502         if (to->rect && from->rect) {
1503                 int xsize = to->xsize;
1504                 int ysize = to->ysize;
1505                 memcpy(to->rect, from->rect, xsize * ysize * sizeof(char) * 4);
1506         }
1507 }
1508
1509 void BKE_node_preview_sync_tree(bNodeTree *to_ntree, bNodeTree *from_ntree)
1510 {
1511         bNodeInstanceHash *from_previews = from_ntree->previews;
1512         bNodeInstanceHash *to_previews = to_ntree->previews;
1513         bNodeInstanceHashIterator iter;
1514         
1515         if (!from_previews || !to_previews)
1516                 return;
1517         
1518         NODE_INSTANCE_HASH_ITER(iter, from_previews) {
1519                 bNodeInstanceKey key = BKE_node_instance_hash_iterator_get_key(&iter);
1520                 bNodePreview *from = BKE_node_instance_hash_iterator_get_value(&iter);
1521                 bNodePreview *to = BKE_node_instance_hash_lookup(to_previews, key);
1522                 
1523                 if (from && to)
1524                         node_preview_sync(to, from);
1525         }
1526 }
1527
1528 void BKE_node_preview_merge_tree(bNodeTree *to_ntree, bNodeTree *from_ntree, bool remove_old)
1529 {
1530         if (remove_old || !to_ntree->previews) {
1531                 /* free old previews */
1532                 if (to_ntree->previews)
1533                         BKE_node_instance_hash_free(to_ntree->previews, (bNodeInstanceValueFP)BKE_node_preview_free);
1534                 
1535                 /* transfer previews */
1536                 to_ntree->previews = from_ntree->previews;
1537                 from_ntree->previews = NULL;
1538                 
1539                 /* clean up, in case any to_ntree nodes have been removed */
1540                 BKE_node_preview_remove_unused(to_ntree);
1541         }
1542         else {
1543                 bNodeInstanceHashIterator iter;
1544                 
1545                 if (from_ntree->previews) {
1546                         NODE_INSTANCE_HASH_ITER(iter, from_ntree->previews) {
1547                                 bNodeInstanceKey key = BKE_node_instance_hash_iterator_get_key(&iter);
1548                                 bNodePreview *preview = BKE_node_instance_hash_iterator_get_value(&iter);
1549                                 
1550                                 /* replace existing previews */
1551                                 BKE_node_instance_hash_remove(to_ntree->previews, key, (bNodeInstanceValueFP)BKE_node_preview_free);
1552                                 BKE_node_instance_hash_insert(to_ntree->previews, key, preview);
1553                         }
1554                         
1555                         /* Note: NULL free function here, because pointers have already been moved over to to_ntree->previews! */
1556                         BKE_node_instance_hash_free(from_ntree->previews, NULL);
1557                         from_ntree->previews = NULL;
1558                 }
1559         }
1560 }
1561
1562 /* hack warning! this function is only used for shader previews, and 
1563  * since it gets called multiple times per pixel for Ztransp we only
1564  * add the color once. Preview gets cleared before it starts render though */
1565 void BKE_node_preview_set_pixel(bNodePreview *preview, const float col[4], int x, int y, bool do_manage)
1566 {
1567         if (preview) {
1568                 if (x >= 0 && y >= 0) {
1569                         if (x < preview->xsize && y < preview->ysize) {
1570                                 unsigned char *tar = preview->rect + 4 * ((preview->xsize * y) + x);
1571                                 
1572                                 if (do_manage) {
1573                                         linearrgb_to_srgb_uchar4(tar, col);
1574                                 }
1575                                 else {
1576                                         rgba_float_to_uchar(tar, col);
1577                                 }
1578                         }
1579                         //else printf("prv out bound x y %d %d\n", x, y);
1580                 }
1581                 //else printf("prv out bound x y %d %d\n", x, y);
1582         }
1583 }
1584
1585 #if 0
1586 static void nodeClearPreview(bNode *node)
1587 {
1588         if (node->preview && node->preview->rect)
1589                 memset(node->preview->rect, 0, MEM_allocN_len(node->preview->rect));
1590 }
1591
1592 /* use it to enforce clear */
1593 void ntreeClearPreview(bNodeTree *ntree)
1594 {
1595         bNode *node;
1596         
1597         if (ntree == NULL)
1598                 return;
1599         
1600         for (node = ntree->nodes.first; node; node = node->next) {
1601                 if (node->typeinfo->flag & NODE_PREVIEW)
1602                         nodeClearPreview(node);
1603                 if (node->type == NODE_GROUP)
1604                         ntreeClearPreview((bNodeTree *)node->id);
1605         }
1606 }
1607
1608 /* hack warning! this function is only used for shader previews, and 
1609  * since it gets called multiple times per pixel for Ztransp we only
1610  * add the color once. Preview gets cleared before it starts render though */
1611 void nodeAddToPreview(bNode *node, const float col[4], int x, int y, int do_manage)
1612 {
1613         bNodePreview *preview = node->preview;
1614         if (preview) {
1615                 if (x >= 0 && y >= 0) {
1616                         if (x < preview->xsize && y < preview->ysize) {
1617                                 unsigned char *tar = preview->rect + 4 * ((preview->xsize * y) + x);
1618                                 
1619                                 if (do_manage) {
1620                                         linearrgb_to_srgb_uchar4(tar, col);
1621                                 }
1622                                 else {
1623                                         rgba_float_to_uchar(tar, col);
1624                                 }
1625                         }
1626                         //else printf("prv out bound x y %d %d\n", x, y);
1627                 }
1628                 //else printf("prv out bound x y %d %d\n", x, y);
1629         }
1630 }
1631 #endif
1632
1633 /* ************** Free stuff ********** */
1634
1635 /* goes over entire tree */
1636 void nodeUnlinkNode(bNodeTree *ntree, bNode *node)
1637 {
1638         bNodeLink *link, *next;
1639         bNodeSocket *sock;
1640         ListBase *lb;
1641         
1642         for (link = ntree->links.first; link; link = next) {
1643                 next = link->next;
1644                 
1645                 if (link->fromnode == node) {
1646                         lb = &node->outputs;
1647                         if (link->tonode)
1648                                 link->tonode->update |= NODE_UPDATE;
1649                 }
1650                 else if (link->tonode == node)
1651                         lb = &node->inputs;
1652                 else
1653                         lb = NULL;
1654
1655                 if (lb) {
1656                         for (sock = lb->first; sock; sock = sock->next) {
1657                                 if (link->fromsock == sock || link->tosock == sock)
1658                                         break;
1659                         }
1660                         if (sock) {
1661                                 nodeRemLink(ntree, link);
1662                         }
1663                 }
1664         }
1665 }
1666
1667 static void node_unlink_attached(bNodeTree *ntree, bNode *parent)
1668 {
1669         bNode *node;
1670         for (node = ntree->nodes.first; node; node = node->next) {
1671                 if (node->parent == parent)
1672                         nodeDetachNode(node);
1673         }
1674 }
1675
1676 /** \note caller needs to manage node->id user */
1677 static void node_free_node_ex(bNodeTree *ntree, bNode *node, bool remove_animdata, bool use_api_free_cb)
1678 {
1679         bNodeSocket *sock, *nextsock;
1680         
1681         /* don't remove node animdata if the tree is localized,
1682          * Action is shared with the original tree (T38221)
1683          */
1684         remove_animdata &= ntree && !(ntree->flag & NTREE_IS_LOCALIZED);
1685         
1686         /* extra free callback */
1687         if (use_api_free_cb && node->typeinfo->freefunc_api) {
1688                 PointerRNA ptr;
1689                 RNA_pointer_create((ID *)ntree, &RNA_Node, node, &ptr);
1690                 
1691                 node->typeinfo->freefunc_api(&ptr);
1692         }
1693         
1694         /* since it is called while free database, node->id is undefined */
1695         
1696         /* can be called for nodes outside a node tree (e.g. clipboard) */
1697         if (ntree) {
1698                 /* remove all references to this node */
1699                 nodeUnlinkNode(ntree, node);
1700                 node_unlink_attached(ntree, node);
1701                 
1702                 BLI_remlink(&ntree->nodes, node);
1703                 
1704                 if (remove_animdata) {
1705                         char propname_esc[MAX_IDPROP_NAME * 2];
1706                         char prefix[MAX_IDPROP_NAME * 2];
1707
1708                         BLI_strescape(propname_esc, node->name, sizeof(propname_esc));
1709                         BLI_snprintf(prefix, sizeof(prefix), "nodes[\"%s\"]", propname_esc);
1710
1711                         BKE_animdata_fix_paths_remove((ID *)ntree, prefix);
1712                 }
1713
1714                 if (ntree->typeinfo->free_node_cache)
1715                         ntree->typeinfo->free_node_cache(ntree, node);
1716                 
1717                 /* texture node has bad habit of keeping exec data around */
1718                 if (ntree->type == NTREE_TEXTURE && ntree->execdata) {
1719                         ntreeTexEndExecTree(ntree->execdata);
1720                         ntree->execdata = NULL;
1721                 }
1722         }
1723
1724         if (node->typeinfo->freefunc) {
1725                 node->typeinfo->freefunc(node);
1726         }
1727
1728         for (sock = node->inputs.first; sock; sock = nextsock) {
1729                 nextsock = sock->next;
1730                 node_socket_free(ntree, sock, node);
1731                 MEM_freeN(sock);
1732         }
1733         for (sock = node->outputs.first; sock; sock = nextsock) {
1734                 nextsock = sock->next;
1735                 node_socket_free(ntree, sock, node);
1736                 MEM_freeN(sock);
1737         }
1738
1739         BLI_freelistN(&node->internal_links);
1740
1741         if (node->prop) {
1742                 IDP_FreeProperty(node->prop);
1743                 MEM_freeN(node->prop);
1744         }
1745
1746         MEM_freeN(node);
1747         
1748         if (ntree)
1749                 ntree->update |= NTREE_UPDATE_NODES;
1750 }
1751
1752 void nodeFreeNode(bNodeTree *ntree, bNode *node)
1753 {
1754         node_free_node_ex(ntree, node, true, true);
1755 }
1756
1757 static void node_socket_interface_free(bNodeTree *UNUSED(ntree), bNodeSocket *sock)
1758 {
1759         if (sock->prop) {
1760                 IDP_FreeProperty(sock->prop);
1761                 MEM_freeN(sock->prop);
1762         }
1763         
1764         if (sock->default_value)
1765                 MEM_freeN(sock->default_value);
1766 }
1767
1768 static void free_localized_node_groups(bNodeTree *ntree)
1769 {
1770         bNode *node;
1771         
1772         /* Only localized node trees store a copy for each node group tree.
1773          * Each node group tree in a localized node tree can be freed,
1774          * since it is a localized copy itself (no risk of accessing free'd
1775          * data in main, see [#37939]).
1776          */
1777         if (!(ntree->flag & NTREE_IS_LOCALIZED))
1778                 return;
1779         
1780         for (node = ntree->nodes.first; node; node = node->next) {
1781                 if (node->type == NODE_GROUP && node->id) {
1782                         bNodeTree *ngroup = (bNodeTree *)node->id;
1783                         ntreeFreeTree(ngroup);
1784                         MEM_freeN(ngroup);
1785                 }
1786         }
1787 }
1788
1789 /** Free (or release) any data used by this nodetree (does not free the nodetree itself). */
1790 void ntreeFreeTree(bNodeTree *ntree)
1791 {
1792         bNodeTree *tntree;
1793         bNode *node, *next;
1794         bNodeSocket *sock, *nextsock;
1795
1796         BKE_animdata_free((ID *)ntree, false);
1797
1798         /* XXX hack! node trees should not store execution graphs at all.
1799          * This should be removed when old tree types no longer require it.
1800          * Currently the execution data for texture nodes remains in the tree
1801          * after execution, until the node tree is updated or freed.
1802          */
1803         if (ntree->execdata) {
1804                 switch (ntree->type) {
1805                         case NTREE_SHADER:
1806                                 ntreeShaderEndExecTree(ntree->execdata);
1807                                 break;
1808                         case NTREE_TEXTURE:
1809                                 ntreeTexEndExecTree(ntree->execdata);
1810                                 ntree->execdata = NULL;
1811                                 break;
1812                 }
1813         }
1814         
1815         /* XXX not nice, but needed to free localized node groups properly */
1816         free_localized_node_groups(ntree);
1817         
1818         /* unregister associated RNA types */
1819         ntreeInterfaceTypeFree(ntree);
1820         
1821         BLI_freelistN(&ntree->links);   /* do first, then unlink_node goes fast */
1822         
1823         for (node = ntree->nodes.first; node; node = next) {
1824                 next = node->next;
1825                 node_free_node_ex(ntree, node, false, false);
1826         }
1827
1828         /* free interface sockets */
1829         for (sock = ntree->inputs.first; sock; sock = nextsock) {
1830                 nextsock = sock->next;
1831                 node_socket_interface_free(ntree, sock);
1832                 MEM_freeN(sock);
1833         }
1834         for (sock = ntree->outputs.first; sock; sock = nextsock) {
1835                 nextsock = sock->next;
1836                 node_socket_interface_free(ntree, sock);
1837                 MEM_freeN(sock);
1838         }
1839         
1840         /* free preview hash */
1841         if (ntree->previews) {
1842                 BKE_node_instance_hash_free(ntree->previews, (bNodeInstanceValueFP)BKE_node_preview_free);
1843         }
1844
1845         if (ntree->duplilock)
1846                 BLI_mutex_free(ntree->duplilock);
1847         
1848         /* if ntree is not part of library, free the libblock data explicitly */
1849         for (tntree = G.main->nodetree.first; tntree; tntree = tntree->id.next)
1850                 if (tntree == ntree)
1851                         break;
1852         if (tntree == NULL) {
1853                 BKE_libblock_free_data(&ntree->id, true);
1854         }
1855 }
1856
1857 void ntreeFreeCache(bNodeTree *ntree)
1858 {
1859         if (ntree == NULL) return;
1860         
1861         if (ntree->typeinfo->free_cache)
1862                 ntree->typeinfo->free_cache(ntree);
1863 }
1864
1865 void ntreeSetOutput(bNodeTree *ntree)
1866 {
1867         bNode *node;
1868
1869         /* find the active outputs, might become tree type dependent handler */
1870         for (node = ntree->nodes.first; node; node = node->next) {
1871                 if (node->typeinfo->nclass == NODE_CLASS_OUTPUT) {
1872                         bNode *tnode;
1873                         int output = 0;
1874                         
1875                         /* we need a check for which output node should be tagged like this, below an exception */
1876                         if (node->type == CMP_NODE_OUTPUT_FILE)
1877                                 continue;
1878
1879                         /* there is more types having output class, each one is checked */
1880                         for (tnode = ntree->nodes.first; tnode; tnode = tnode->next) {
1881                                 if (tnode->typeinfo->nclass == NODE_CLASS_OUTPUT) {
1882                                         
1883                                         if (ntree->type == NTREE_COMPOSIT) {
1884                                                         
1885                                                 /* same type, exception for viewer */
1886                                                 if (tnode->type == node->type ||
1887                                                     (ELEM(tnode->type, CMP_NODE_VIEWER, CMP_NODE_SPLITVIEWER) &&
1888                                                      ELEM(node->type, CMP_NODE_VIEWER, CMP_NODE_SPLITVIEWER)))
1889                                                 {
1890                                                         if (tnode->flag & NODE_DO_OUTPUT) {
1891                                                                 output++;
1892                                                                 if (output > 1)
1893                                                                         tnode->flag &= ~NODE_DO_OUTPUT;
1894                                                         }
1895                                                 }
1896                                         }
1897                                         else {
1898                                                 /* same type */
1899                                                 if (tnode->type == node->type) {
1900                                                         if (tnode->flag & NODE_DO_OUTPUT) {
1901                                                                 output++;
1902                                                                 if (output > 1)
1903                                                                         tnode->flag &= ~NODE_DO_OUTPUT;
1904                                                         }
1905                                                 }
1906                                         }
1907                                 }
1908                         }
1909                         if (output == 0)
1910                                 node->flag |= NODE_DO_OUTPUT;
1911                 }
1912                 
1913                 /* group node outputs use this flag too */
1914                 if (node->type == NODE_GROUP_OUTPUT) {
1915                         bNode *tnode;
1916                         int output = 0;
1917                         
1918                         for (tnode = ntree->nodes.first; tnode; tnode = tnode->next) {
1919                                 if (tnode->type == NODE_GROUP_OUTPUT) {
1920                                         if (tnode->flag & NODE_DO_OUTPUT) {
1921                                                 output++;
1922                                                 if (output > 1)
1923                                                         tnode->flag &= ~NODE_DO_OUTPUT;
1924                                         }
1925                                 }
1926                         }
1927                         if (output == 0)
1928                                 node->flag |= NODE_DO_OUTPUT;
1929                 }
1930         }
1931         
1932         /* here we could recursively set which nodes have to be done,
1933          * might be different for editor or for "real" use... */
1934 }
1935
1936 bNodeTree *ntreeFromID(ID *id)
1937 {
1938         switch (GS(id->name)) {
1939                 case ID_MA:  return ((Material *)id)->nodetree;
1940                 case ID_LA:  return ((Lamp *)id)->nodetree;
1941                 case ID_WO:  return ((World *)id)->nodetree;
1942                 case ID_TE:  return ((Tex *)id)->nodetree;
1943                 case ID_SCE: return ((Scene *)id)->nodetree;
1944                 case ID_LS:  return ((FreestyleLineStyle *)id)->nodetree;
1945                 default: return NULL;
1946         }
1947 }
1948
1949 void ntreeMakeLocal(Main *bmain, bNodeTree *ntree, bool id_in_mainlist, const bool lib_local)
1950 {
1951         BKE_id_make_local_generic(bmain, &ntree->id, id_in_mainlist, lib_local);
1952 }
1953
1954 int ntreeNodeExists(bNodeTree *ntree, bNode *testnode)
1955 {
1956         bNode *node = ntree->nodes.first;
1957         for (; node; node = node->next)
1958                 if (node == testnode)
1959                         return 1;
1960         return 0;
1961 }
1962
1963 int ntreeOutputExists(bNode *node, bNodeSocket *testsock)
1964 {
1965         bNodeSocket *sock = node->outputs.first;
1966         for (; sock; sock = sock->next)
1967                 if (sock == testsock)
1968                         return 1;
1969         return 0;
1970 }
1971
1972 void ntreeNodeFlagSet(const bNodeTree *ntree, const int flag, const bool enable)
1973 {
1974         bNode *node = ntree->nodes.first;
1975
1976         for (; node; node = node->next) {
1977                 if (enable) {
1978                         node->flag |= flag;
1979                 }
1980                 else {
1981                         node->flag &= ~flag;
1982                 }
1983         }
1984 }
1985
1986 /* returns localized tree for execution in threads */
1987 bNodeTree *ntreeLocalize(bNodeTree *ntree)
1988 {
1989         if (ntree) {
1990                 bNodeTree *ltree;
1991                 bNode *node;
1992                 AnimData *adt;
1993
1994                 bAction *action_backup = NULL, *tmpact_backup = NULL;
1995
1996                 BLI_spin_lock(&spin);
1997                 if (!ntree->duplilock) {
1998                         ntree->duplilock = BLI_mutex_alloc();
1999                 }
2000                 BLI_spin_unlock(&spin);
2001
2002                 BLI_mutex_lock(ntree->duplilock);
2003
2004                 /* Workaround for copying an action on each render!
2005                  * set action to NULL so animdata actions don't get copied */
2006                 adt = BKE_animdata_from_id(&ntree->id);
2007
2008                 if (adt) {
2009                         action_backup = adt->action;
2010                         tmpact_backup = adt->tmpact;
2011
2012                         adt->action = NULL;
2013                         adt->tmpact = NULL;
2014                 }
2015
2016                 /* Make full copy outside of Main database.
2017                  * Note: previews are not copied here.
2018                  */
2019                 BKE_id_copy_ex(G.main, (ID *)ntree, (ID **)&ltree,
2020                                LIB_ID_CREATE_NO_MAIN | LIB_ID_CREATE_NO_USER_REFCOUNT | LIB_ID_COPY_NO_PREVIEW, false);
2021                 ltree->flag |= NTREE_IS_LOCALIZED;
2022
2023                 for (node = ltree->nodes.first; node; node = node->next) {
2024                         if (node->type == NODE_GROUP && node->id) {
2025                                 node->id = (ID *)ntreeLocalize((bNodeTree *)node->id);
2026                         }
2027                 }
2028
2029                 if (adt) {
2030                         AnimData *ladt = BKE_animdata_from_id(&ltree->id);
2031
2032                         adt->action = ladt->action = action_backup;
2033                         adt->tmpact = ladt->tmpact = tmpact_backup;
2034
2035                         if (action_backup)
2036                                 id_us_plus(&action_backup->id);
2037                         if (tmpact_backup)
2038                                 id_us_plus(&tmpact_backup->id);
2039
2040                 }
2041                 /* end animdata uglyness */
2042
2043                 /* ensures only a single output node is enabled */
2044                 ntreeSetOutput(ntree);
2045
2046                 for (node = ntree->nodes.first; node; node = node->next) {
2047                         /* store new_node pointer to original */
2048                         node->new_node->original = node;
2049                 }
2050
2051                 if (ntree->typeinfo->localize)
2052                         ntree->typeinfo->localize(ltree, ntree);
2053
2054                 BLI_mutex_unlock(ntree->duplilock);
2055
2056                 return ltree;
2057         }
2058         else
2059                 return NULL;
2060 }
2061
2062 /* sync local composite with real tree */
2063 /* local tree is supposed to be running, be careful moving previews! */
2064 /* is called by jobs manager, outside threads, so it doesnt happen during draw */
2065 void ntreeLocalSync(bNodeTree *localtree, bNodeTree *ntree)
2066 {
2067         if (localtree && ntree) {
2068                 if (ntree->typeinfo->local_sync)
2069                         ntree->typeinfo->local_sync(localtree, ntree);
2070         }
2071 }
2072
2073 /* merge local tree results back, and free local tree */
2074 /* we have to assume the editor already changed completely */
2075 void ntreeLocalMerge(bNodeTree *localtree, bNodeTree *ntree)
2076 {
2077         if (ntree && localtree) {
2078                 if (ntree->typeinfo->local_merge)
2079                         ntree->typeinfo->local_merge(localtree, ntree);
2080                 
2081                 ntreeFreeTree(localtree);
2082                 MEM_freeN(localtree);
2083         }
2084 }
2085
2086
2087 /* ************ NODE TREE INTERFACE *************** */
2088
2089 static bNodeSocket *make_socket_interface(bNodeTree *ntree, int in_out,
2090                                          const char *idname, const char *name)
2091 {
2092         bNodeSocketType *stype = nodeSocketTypeFind(idname);
2093         bNodeSocket *sock;
2094         int own_index = ntree->cur_index++;
2095
2096         if (stype == NULL) {
2097                 return NULL;
2098         }
2099
2100         sock = MEM_callocN(sizeof(bNodeSocket), "socket template");
2101         BLI_strncpy(sock->idname, stype->idname, sizeof(sock->idname));
2102         node_socket_set_typeinfo(ntree, sock, stype);
2103         sock->in_out = in_out;
2104         sock->type = SOCK_CUSTOM;       /* int type undefined by default */
2105         
2106         /* assign new unique index */
2107         own_index = ntree->cur_index++;
2108         /* use the own_index as socket identifier */
2109         if (in_out == SOCK_IN)
2110                 BLI_snprintf(sock->identifier, MAX_NAME, "Input_%d", own_index);
2111         else
2112                 BLI_snprintf(sock->identifier, MAX_NAME, "Output_%d", own_index);
2113 #ifdef USE_NODE_COMPAT_CUSTOMNODES
2114         /* XXX forward compatibility:
2115          * own_index is deprecated, but needs to be set here.
2116          * Node sockets generally use the identifier string instead now,
2117          * but reconstructing own_index in writefile.c would require parsing the identifier string.
2118          */
2119
2120 #if (defined(__GNUC__) && ((__GNUC__ * 100 + __GNUC_MINOR__) >= 406)) || defined(__clang__)
2121 #  pragma GCC diagnostic push
2122 #  pragma GCC diagnostic ignored "-Wdeprecated-declarations"
2123 #endif
2124
2125         sock->own_index = own_index;
2126
2127 #if (defined(__GNUC__) && ((__GNUC__ * 100 + __GNUC_MINOR__) >= 406)) || defined(__clang__)
2128 #  pragma GCC diagnostic pop
2129 #endif
2130
2131 #endif  /* USE_NODE_COMPAT_CUSTOMNODES */
2132         
2133         sock->limit = (in_out == SOCK_IN ? 1 : 0xFFF);
2134         
2135         BLI_strncpy(sock->name, name, NODE_MAXSTR);
2136         sock->storage = NULL;
2137         sock->flag |= SOCK_COLLAPSED;
2138         
2139         return sock;
2140 }
2141
2142 bNodeSocket *ntreeFindSocketInterface(bNodeTree *ntree, int in_out, const char *identifier)
2143 {
2144         bNodeSocket *iosock = (in_out == SOCK_IN ? ntree->inputs.first : ntree->outputs.first);
2145         for (; iosock; iosock = iosock->next)
2146                 if (STREQ(iosock->identifier, identifier))
2147                         return iosock;
2148         return NULL;
2149 }
2150
2151 bNodeSocket *ntreeAddSocketInterface(bNodeTree *ntree, int in_out, const char *idname, const char *name)
2152 {
2153         bNodeSocket *iosock;
2154         
2155         iosock = make_socket_interface(ntree, in_out, idname, name);
2156         if (in_out == SOCK_IN) {
2157                 BLI_addtail(&ntree->inputs, iosock);
2158                 ntree->update |= NTREE_UPDATE_GROUP_IN;
2159         }
2160         else if (in_out == SOCK_OUT) {
2161                 BLI_addtail(&ntree->outputs, iosock);
2162                 ntree->update |= NTREE_UPDATE_GROUP_OUT;
2163         }
2164         
2165         return iosock;
2166 }
2167
2168 bNodeSocket *ntreeInsertSocketInterface(bNodeTree *ntree, int in_out, const char *idname,
2169                                bNodeSocket *next_sock, const char *name)
2170 {
2171         bNodeSocket *iosock;
2172         
2173         iosock = make_socket_interface(ntree, in_out, idname, name);
2174         if (in_out == SOCK_IN) {
2175                 BLI_insertlinkbefore(&ntree->inputs, next_sock, iosock);
2176                 ntree->update |= NTREE_UPDATE_GROUP_IN;
2177         }
2178         else if (in_out == SOCK_OUT) {
2179                 BLI_insertlinkbefore(&ntree->outputs, next_sock, iosock);
2180                 ntree->update |= NTREE_UPDATE_GROUP_OUT;
2181         }
2182         
2183         return iosock;
2184 }
2185
2186 struct bNodeSocket *ntreeAddSocketInterfaceFromSocket(bNodeTree *ntree, bNode *from_node, bNodeSocket *from_sock)
2187 {
2188         bNodeSocket *iosock = ntreeAddSocketInterface(ntree, from_sock->in_out, from_sock->idname, from_sock->name);
2189         if (iosock) {
2190                 if (iosock->typeinfo->interface_from_socket)
2191                         iosock->typeinfo->interface_from_socket(ntree, iosock, from_node, from_sock);
2192         }
2193         return iosock;
2194 }
2195
2196 struct bNodeSocket *ntreeInsertSocketInterfaceFromSocket(bNodeTree *ntree, bNodeSocket *next_sock, bNode *from_node, bNodeSocket *from_sock)
2197 {
2198         bNodeSocket *iosock = ntreeInsertSocketInterface(ntree, from_sock->in_out, from_sock->idname, next_sock, from_sock->name);
2199         if (iosock) {
2200                 if (iosock->typeinfo->interface_from_socket)
2201                         iosock->typeinfo->interface_from_socket(ntree, iosock, from_node, from_sock);
2202         }
2203         return iosock;
2204 }
2205
2206 void ntreeRemoveSocketInterface(bNodeTree *ntree, bNodeSocket *sock)
2207 {
2208         /* this is fast, this way we don't need an in_out argument */
2209         BLI_remlink(&ntree->inputs, sock);
2210         BLI_remlink(&ntree->outputs, sock);
2211         
2212         node_socket_interface_free(ntree, sock);
2213         MEM_freeN(sock);
2214         
2215         ntree->update |= NTREE_UPDATE_GROUP;
2216 }
2217
2218 /* generates a valid RNA identifier from the node tree name */
2219 static void ntree_interface_identifier_base(bNodeTree *ntree, char *base)
2220 {
2221         /* generate a valid RNA identifier */
2222         sprintf(base, "NodeTreeInterface_%s", ntree->id.name + 2);
2223         RNA_identifier_sanitize(base, false);
2224 }
2225
2226 /* check if the identifier is already in use */
2227 static bool ntree_interface_unique_identifier_check(void *UNUSED(data), const char *identifier)
2228 {
2229         return (RNA_struct_find(identifier) != NULL);
2230 }
2231
2232 /* generates the actual unique identifier and ui name and description */
2233 static void ntree_interface_identifier(bNodeTree *ntree, const char *base, char *identifier, int maxlen, char *name, char *description)
2234 {
2235         /* There is a possibility that different node tree names get mapped to the same identifier
2236          * after sanitization (e.g. "SomeGroup_A", "SomeGroup.A" both get sanitized to "SomeGroup_A").
2237          * On top of the sanitized id string add a number suffix if necessary to avoid duplicates.
2238          */
2239         identifier[0] = '\0';
2240         BLI_uniquename_cb(ntree_interface_unique_identifier_check, NULL, base, '_', identifier, maxlen);
2241         
2242         sprintf(name, "Node Tree %s Interface", ntree->id.name + 2);
2243         sprintf(description, "Interface properties of node group %s", ntree->id.name + 2);
2244 }
2245
2246 static void ntree_interface_type_create(bNodeTree *ntree)
2247 {
2248         StructRNA *srna;
2249         bNodeSocket *sock;
2250         /* strings are generated from base string + ID name, sizes are sufficient */
2251         char base[MAX_ID_NAME + 64], identifier[MAX_ID_NAME + 64], name[MAX_ID_NAME + 64], description[MAX_ID_NAME + 64];
2252         
2253         /* generate a valid RNA identifier */
2254         ntree_interface_identifier_base(ntree, base);
2255         ntree_interface_identifier(ntree, base, identifier, sizeof(identifier), name, description);
2256         
2257         /* register a subtype of PropertyGroup */
2258         srna = RNA_def_struct_ptr(&BLENDER_RNA, identifier, &RNA_PropertyGroup);
2259         RNA_def_struct_ui_text(srna, name, description);
2260         RNA_def_struct_duplicate_pointers(&BLENDER_RNA, srna);
2261         
2262         /* associate the RNA type with the node tree */
2263         ntree->interface_type = srna;
2264         RNA_struct_blender_type_set(srna, ntree);
2265         
2266         /* add socket properties */
2267         for (sock = ntree->inputs.first; sock; sock = sock->next) {
2268                 bNodeSocketType *stype = sock->typeinfo;
2269                 if (stype && stype->interface_register_properties)
2270                         stype->interface_register_properties(ntree, sock, srna);
2271         }
2272         for (sock = ntree->outputs.first; sock; sock = sock->next) {
2273                 bNodeSocketType *stype = sock->typeinfo;
2274                 if (stype && stype->interface_register_properties)
2275                         stype->interface_register_properties(ntree, sock, srna);
2276         }
2277 }
2278
2279 StructRNA *ntreeInterfaceTypeGet(bNodeTree *ntree, int create)
2280 {
2281         if (ntree->interface_type) {
2282                 /* strings are generated from base string + ID name, sizes are sufficient */
2283                 char base[MAX_ID_NAME + 64], identifier[MAX_ID_NAME + 64], name[MAX_ID_NAME + 64], description[MAX_ID_NAME + 64];
2284                 
2285                 /* A bit of a hack: when changing the ID name, update the RNA type identifier too,
2286                  * so that the names match. This is not strictly necessary to keep it working,
2287                  * but better for identifying associated NodeTree blocks and RNA types.
2288                  */
2289                 StructRNA *srna = ntree->interface_type;
2290                 
2291                 ntree_interface_identifier_base(ntree, base);
2292                 
2293                 /* RNA identifier may have a number suffix, but should start with the idbase string */
2294                 if (!STREQLEN(RNA_struct_identifier(srna), base, sizeof(base))) {
2295                         /* generate new unique RNA identifier from the ID name */
2296                         ntree_interface_identifier(ntree, base, identifier, sizeof(identifier), name, description);
2297                         
2298                         /* rename the RNA type */
2299                         RNA_def_struct_free_pointers(&BLENDER_RNA, srna);
2300                         RNA_def_struct_identifier(&BLENDER_RNA, srna, identifier);
2301                         RNA_def_struct_ui_text(srna, name, description);
2302                         RNA_def_struct_duplicate_pointers(&BLENDER_RNA, srna);
2303                 }
2304         }
2305         else if (create) {
2306                 ntree_interface_type_create(ntree);
2307         }
2308         
2309         return ntree->interface_type;
2310 }
2311
2312 void ntreeInterfaceTypeFree(bNodeTree *ntree)
2313 {
2314         if (ntree->interface_type) {
2315                 RNA_struct_free(&BLENDER_RNA, ntree->interface_type);
2316                 ntree->interface_type = NULL;
2317         }
2318 }
2319
2320 void ntreeInterfaceTypeUpdate(bNodeTree *ntree)
2321 {
2322         /* XXX it would be sufficient to just recreate all properties
2323          * instead of re-registering the whole struct type,
2324          * but there is currently no good way to do this in the RNA functions.
2325          * Overhead should be negligible.
2326          */
2327         ntreeInterfaceTypeFree(ntree);
2328         ntree_interface_type_create(ntree);
2329 }
2330
2331
2332 /* ************ find stuff *************** */
2333
2334 bNode *ntreeFindType(const bNodeTree *ntree, int type)
2335 {
2336         if (ntree) {
2337                 for (bNode * node = ntree->nodes.first; node; node = node->next) {
2338                         if (node->type == type) {
2339                                 return node;
2340                         }
2341                 }
2342         }
2343         return NULL;
2344 }
2345
2346 bool ntreeHasType(const bNodeTree *ntree, int type)
2347 {
2348         return ntreeFindType(ntree, type) != NULL;
2349 }
2350
2351 bool ntreeHasTree(const bNodeTree *ntree, const bNodeTree *lookup)
2352 {
2353         bNode *node;
2354
2355         if (ntree == lookup)
2356                 return true;
2357
2358         for (node = ntree->nodes.first; node; node = node->next)
2359                 if (node->type == NODE_GROUP && node->id)
2360                         if (ntreeHasTree((bNodeTree *)node->id, lookup))
2361                                 return true;
2362
2363         return false;
2364 }
2365
2366 bNodeLink *nodeFindLink(bNodeTree *ntree, bNodeSocket *from, bNodeSocket *to)
2367 {
2368         bNodeLink *link;
2369         
2370         for (link = ntree->links.first; link; link = link->next) {
2371                 if (link->fromsock == from && link->tosock == to)
2372                         return link;
2373                 if (link->fromsock == to && link->tosock == from) /* hrms? */
2374                         return link;
2375         }
2376         return NULL;
2377 }
2378
2379 int nodeCountSocketLinks(bNodeTree *ntree, bNodeSocket *sock)
2380 {
2381         bNodeLink *link;
2382         int tot = 0;
2383         
2384         for (link = ntree->links.first; link; link = link->next) {
2385                 if (link->fromsock == sock || link->tosock == sock)
2386                         tot++;
2387         }
2388         return tot;
2389 }
2390
2391 bNode *nodeGetActive(bNodeTree *ntree)
2392 {
2393         bNode *node;
2394         
2395         if (ntree == NULL) return NULL;
2396         
2397         for (node = ntree->nodes.first; node; node = node->next)
2398                 if (node->flag & NODE_ACTIVE)
2399                         break;
2400         return node;
2401 }
2402
2403 static bNode *node_get_active_id_recursive(bNodeInstanceKey active_key, bNodeInstanceKey parent_key, bNodeTree *ntree, short idtype)
2404 {
2405         if (parent_key.value == active_key.value || active_key.value == 0) {
2406                 bNode *node;
2407                 for (node = ntree->nodes.first; node; node = node->next)
2408                         if (node->id && GS(node->id->name) == idtype)
2409                                 if (node->flag & NODE_ACTIVE_ID)
2410                                         return node;
2411         }
2412         else {
2413                 bNode *node, *tnode;
2414                 /* no node with active ID in this tree, look inside groups */
2415                 for (node = ntree->nodes.first; node; node = node->next) {
2416                         if (node->type == NODE_GROUP) {
2417                                 bNodeTree *group = (bNodeTree *)node->id;
2418                                 if (group) {
2419                                         bNodeInstanceKey group_key = BKE_node_instance_key(parent_key, ntree, node);
2420                                         tnode = node_get_active_id_recursive(active_key, group_key, group, idtype);
2421                                         if (tnode)
2422                                                 return tnode;
2423                                 }
2424                         }
2425                 }
2426         }
2427         
2428         return NULL;
2429 }
2430
2431 /* two active flags, ID nodes have special flag for buttons display */
2432 bNode *nodeGetActiveID(bNodeTree *ntree, short idtype)
2433 {
2434         if (ntree)
2435                 return node_get_active_id_recursive(ntree->active_viewer_key, NODE_INSTANCE_KEY_BASE, ntree, idtype);
2436         else
2437                 return NULL;
2438 }
2439
2440 bool nodeSetActiveID(bNodeTree *ntree, short idtype, ID *id)
2441 {
2442         bNode *node;
2443         bool ok = false;
2444
2445         if (ntree == NULL) return ok;
2446
2447         for (node = ntree->nodes.first; node; node = node->next) {
2448                 if (node->id && GS(node->id->name) == idtype) {
2449                         if (id && ok == false && node->id == id) {
2450                                 node->flag |= NODE_ACTIVE_ID;
2451                                 ok = true;
2452                         }
2453                         else {
2454                                 node->flag &= ~NODE_ACTIVE_ID;
2455                         }
2456                 }
2457         }
2458
2459         /* update all groups linked from here
2460          * if active ID node has been found already,
2461          * just pass NULL so other matching nodes are deactivated.
2462          */
2463         for (node = ntree->nodes.first; node; node = node->next) {
2464                 if (node->type == NODE_GROUP)
2465                         ok |= nodeSetActiveID((bNodeTree *)node->id, idtype, (ok == false ? id : NULL));
2466         }
2467
2468         return ok;
2469 }
2470
2471
2472 /* two active flags, ID nodes have special flag for buttons display */
2473 void nodeClearActiveID(bNodeTree *ntree, short idtype)
2474 {
2475         bNode *node;
2476         
2477         if (ntree == NULL) return;
2478         
2479         for (node = ntree->nodes.first; node; node = node->next)
2480                 if (node->id && GS(node->id->name) == idtype)
2481                         node->flag &= ~NODE_ACTIVE_ID;
2482 }
2483
2484 void nodeSetSelected(bNode *node, bool select)
2485 {
2486         if (select) {
2487                 node->flag |= NODE_SELECT;
2488         }
2489         else {
2490                 bNodeSocket *sock;
2491                 
2492                 node->flag &= ~NODE_SELECT;
2493                 
2494                 /* deselect sockets too */
2495                 for (sock = node->inputs.first; sock; sock = sock->next)
2496                         sock->flag &= ~NODE_SELECT;
2497                 for (sock = node->outputs.first; sock; sock = sock->next)
2498                         sock->flag &= ~NODE_SELECT;
2499         }
2500 }
2501
2502 void nodeClearActive(bNodeTree *ntree)
2503 {
2504         bNode *node;
2505
2506         if (ntree == NULL) return;
2507
2508         for (node = ntree->nodes.first; node; node = node->next)
2509                 node->flag &= ~(NODE_ACTIVE | NODE_ACTIVE_ID);
2510 }
2511
2512 /* two active flags, ID nodes have special flag for buttons display */
2513 void nodeSetActive(bNodeTree *ntree, bNode *node)
2514 {
2515         bNode *tnode;
2516         
2517         /* make sure only one node is active, and only one per ID type */
2518         for (tnode = ntree->nodes.first; tnode; tnode = tnode->next) {
2519                 tnode->flag &= ~NODE_ACTIVE;
2520                 
2521                 if (node->id && tnode->id) {
2522                         if (GS(node->id->name) == GS(tnode->id->name))
2523                                 tnode->flag &= ~NODE_ACTIVE_ID;
2524                 }
2525                 if (node->typeinfo->nclass == NODE_CLASS_TEXTURE)
2526                         tnode->flag &= ~NODE_ACTIVE_TEXTURE;
2527         }
2528         
2529         node->flag |= NODE_ACTIVE;
2530         if (node->id)
2531                 node->flag |= NODE_ACTIVE_ID;
2532         if (node->typeinfo->nclass == NODE_CLASS_TEXTURE)
2533                 node->flag |= NODE_ACTIVE_TEXTURE;
2534 }
2535
2536 int nodeSocketIsHidden(bNodeSocket *sock)
2537 {
2538         return ((sock->flag & (SOCK_HIDDEN | SOCK_UNAVAIL)) != 0);
2539 }
2540
2541 /* ************** Node Clipboard *********** */
2542
2543 #define USE_NODE_CB_VALIDATE
2544
2545 #ifdef USE_NODE_CB_VALIDATE
2546 /**
2547  * This data structure is to validate the node on creation,
2548  * otherwise we may reference missing data.
2549  *
2550  * Currently its only used for ID's, but nodes may one day
2551  * reference other pointers which need validation.
2552  */
2553 typedef struct bNodeClipboardExtraInfo {
2554         struct bNodeClipboardExtraInfo *next, *prev;
2555         ID  *id;
2556         char id_name[MAX_ID_NAME];
2557         char library_name[FILE_MAX];
2558 } bNodeClipboardExtraInfo;
2559 #endif  /* USE_NODE_CB_VALIDATE */
2560
2561
2562 typedef struct bNodeClipboard {
2563         ListBase nodes;
2564
2565 #ifdef USE_NODE_CB_VALIDATE
2566         ListBase nodes_extra_info;
2567 #endif
2568
2569         ListBase links;
2570         int type;
2571 } bNodeClipboard;
2572
2573 static bNodeClipboard node_clipboard = {{NULL}};
2574
2575 void BKE_node_clipboard_init(struct bNodeTree *ntree)
2576 {
2577         node_clipboard.type = ntree->type;
2578 }
2579
2580 void BKE_node_clipboard_clear(void)
2581 {
2582         bNode *node, *node_next;
2583         bNodeLink *link, *link_next;
2584         
2585         for (link = node_clipboard.links.first; link; link = link_next) {
2586                 link_next = link->next;
2587                 nodeRemLink(NULL, link);
2588         }
2589         BLI_listbase_clear(&node_clipboard.links);
2590         
2591         for (node = node_clipboard.nodes.first; node; node = node_next) {
2592                 node_next = node->next;
2593                 node_free_node_ex(NULL, node, false, false);
2594         }
2595         BLI_listbase_clear(&node_clipboard.nodes);
2596
2597 #ifdef USE_NODE_CB_VALIDATE
2598         BLI_freelistN(&node_clipboard.nodes_extra_info);
2599 #endif
2600 }
2601
2602 /* return false when one or more ID's are lost */
2603 bool BKE_node_clipboard_validate(void)
2604 {
2605         bool ok = true;
2606
2607 #ifdef USE_NODE_CB_VALIDATE
2608         bNodeClipboardExtraInfo *node_info;
2609         bNode *node;
2610
2611
2612         /* lists must be aligned */
2613         BLI_assert(BLI_listbase_count(&node_clipboard.nodes) ==
2614                    BLI_listbase_count(&node_clipboard.nodes_extra_info));
2615
2616         for (node = node_clipboard.nodes.first, node_info = node_clipboard.nodes_extra_info.first;
2617              node;
2618              node = node->next, node_info = node_info->next)
2619         {
2620                 /* validate the node against the stored node info */
2621
2622                 /* re-assign each loop since we may clear,
2623                  * open a new file where the ID is valid, and paste again */
2624                 node->id = node_info->id;
2625
2626                 /* currently only validate the ID */
2627                 if (node->id) {
2628                         ListBase *lb = which_libbase(G.main, GS(node_info->id_name));
2629                         BLI_assert(lb != NULL);
2630
2631                         if (BLI_findindex(lb, node_info->id) == -1) {
2632                                 /* may assign NULL */
2633                                 node->id = BLI_findstring(lb, node_info->id_name + 2, offsetof(ID, name) + 2);
2634
2635                                 if (node->id == NULL) {
2636                                         ok = false;
2637                                 }
2638                         }
2639                 }
2640         }
2641 #endif  /* USE_NODE_CB_VALIDATE */
2642
2643         return ok;
2644 }
2645
2646 void BKE_node_clipboard_add_node(bNode *node)
2647 {
2648 #ifdef USE_NODE_CB_VALIDATE
2649         /* add extra info */
2650         bNodeClipboardExtraInfo *node_info = MEM_mallocN(sizeof(bNodeClipboardExtraInfo), "bNodeClipboardExtraInfo");
2651
2652         node_info->id = node->id;
2653         if (node->id) {
2654                 BLI_strncpy(node_info->id_name, node->id->name, sizeof(node_info->id_name));
2655                 if (ID_IS_LINKED(node->id)) {
2656                         BLI_strncpy(node_info->library_name, node->id->lib->filepath, sizeof(node_info->library_name));
2657                 }
2658                 else {
2659                         node_info->library_name[0] = '\0';
2660                 }
2661         }
2662         else {
2663                 node_info->id_name[0] = '\0';
2664                 node_info->library_name[0] = '\0';
2665         }
2666         BLI_addtail(&node_clipboard.nodes_extra_info, node_info);
2667         /* end extra info */
2668 #endif  /* USE_NODE_CB_VALIDATE */
2669
2670         /* add node */
2671         BLI_addtail(&node_clipboard.nodes, node);
2672
2673 }
2674
2675 void BKE_node_clipboard_add_link(bNodeLink *link)
2676 {
2677         BLI_addtail(&node_clipboard.links, link);
2678 }
2679
2680 const ListBase *BKE_node_clipboard_get_nodes(void)
2681 {
2682         return &node_clipboard.nodes;
2683 }
2684
2685 const ListBase *BKE_node_clipboard_get_links(void)
2686 {
2687         return &node_clipboard.links;
2688 }
2689
2690 int BKE_node_clipboard_get_type(void)
2691 {
2692         return node_clipboard.type;
2693 }
2694
2695
2696 /* Node Instance Hash */
2697
2698 /* magic number for initial hash key */
2699 const bNodeInstanceKey NODE_INSTANCE_KEY_BASE = {5381};
2700 const bNodeInstanceKey NODE_INSTANCE_KEY_NONE = {0};
2701
2702 /* Generate a hash key from ntree and node names
2703  * Uses the djb2 algorithm with xor by Bernstein:
2704  * http://www.cse.yorku.ca/~oz/hash.html
2705  */
2706 static bNodeInstanceKey node_hash_int_str(bNodeInstanceKey hash, const char *str)
2707 {
2708         char c;
2709         
2710         while ((c = *str++))
2711                 hash.value = ((hash.value << 5) + hash.value) ^ c; /* (hash * 33) ^ c */
2712         
2713         /* separator '\0' character, to avoid ambiguity from concatenated strings */
2714         hash.value = (hash.value << 5) + hash.value; /* hash * 33 */
2715         
2716         return hash;
2717 }
2718
2719 bNodeInstanceKey BKE_node_instance_key(bNodeInstanceKey parent_key, bNodeTree *ntree, bNode *node)
2720 {
2721         bNodeInstanceKey key;
2722         
2723         key = node_hash_int_str(parent_key, ntree->id.name + 2);
2724         
2725         if (node)
2726                 key = node_hash_int_str(key, node->name);
2727         
2728         return key;
2729 }
2730
2731 static unsigned int node_instance_hash_key(const void *key)
2732 {
2733         return ((const bNodeInstanceKey *)key)->value;
2734 }
2735
2736 static bool node_instance_hash_key_cmp(const void *a, const void *b)
2737 {
2738         unsigned int value_a = ((const bNodeInstanceKey *)a)->value;
2739         unsigned int value_b = ((const bNodeInstanceKey *)b)->value;
2740
2741         return (value_a != value_b);
2742 }
2743
2744 bNodeInstanceHash *BKE_node_instance_hash_new(const char *info)
2745 {
2746         bNodeInstanceHash *hash = MEM_mallocN(sizeof(bNodeInstanceHash), info);
2747         hash->ghash = BLI_ghash_new(node_instance_hash_key, node_instance_hash_key_cmp, "node instance hash ghash");
2748         return hash;
2749 }
2750
2751 void BKE_node_instance_hash_free(bNodeInstanceHash *hash, bNodeInstanceValueFP valfreefp)
2752 {
2753         BLI_ghash_free(hash->ghash, NULL, (GHashValFreeFP)valfreefp);
2754         MEM_freeN(hash);
2755 }
2756
2757 void BKE_node_instance_hash_insert(bNodeInstanceHash *hash, bNodeInstanceKey key, void *value)
2758 {
2759         bNodeInstanceHashEntry *entry = value;
2760         entry->key = key;
2761         entry->tag = 0;
2762         BLI_ghash_insert(hash->ghash, &entry->key, value);
2763 }
2764
2765 void *BKE_node_instance_hash_lookup(bNodeInstanceHash *hash, bNodeInstanceKey key)
2766 {
2767         return BLI_ghash_lookup(hash->ghash, &key);
2768 }
2769
2770 int BKE_node_instance_hash_remove(bNodeInstanceHash *hash, bNodeInstanceKey key, bNodeInstanceValueFP valfreefp)
2771 {
2772         return BLI_ghash_remove(hash->ghash, &key, NULL, (GHashValFreeFP)valfreefp);
2773 }
2774
2775 void BKE_node_instance_hash_clear(bNodeInstanceHash *hash, bNodeInstanceValueFP valfreefp)
2776 {
2777         BLI_ghash_clear(hash->ghash, NULL, (GHashValFreeFP)valfreefp);
2778 }
2779
2780 void *BKE_node_instance_hash_pop(bNodeInstanceHash *hash, bNodeInstanceKey key)
2781 {
2782         return BLI_ghash_popkey(hash->ghash, &key, NULL);
2783 }
2784
2785 int BKE_node_instance_hash_haskey(bNodeInstanceHash *hash, bNodeInstanceKey key)
2786 {
2787         return BLI_ghash_haskey(hash->ghash, &key);
2788 }
2789
2790 int BKE_node_instance_hash_size(bNodeInstanceHash *hash)
2791 {
2792         return BLI_ghash_len(hash->ghash);
2793 }
2794
2795 void BKE_node_instance_hash_clear_tags(bNodeInstanceHash *hash)
2796 {
2797         bNodeInstanceHashIterator iter;
2798         
2799         NODE_INSTANCE_HASH_ITER(iter, hash) {
2800                 bNodeInstanceHashEntry *value = BKE_node_instance_hash_iterator_get_value(&iter);
2801                 
2802                 value->tag = 0;
2803         }
2804 }
2805
2806 void BKE_node_instance_hash_tag(bNodeInstanceHash *UNUSED(hash), void *value)
2807 {
2808         bNodeInstanceHashEntry *entry = value;
2809         entry->tag = 1;
2810 }
2811
2812 bool BKE_node_instance_hash_tag_key(bNodeInstanceHash *hash, bNodeInstanceKey key)
2813 {
2814         bNodeInstanceHashEntry *entry = BKE_node_instance_hash_lookup(hash, key);
2815         
2816         if (entry) {
2817                 entry->tag = 1;
2818                 return true;
2819         }
2820         else
2821                 return false;
2822 }
2823
2824 void BKE_node_instance_hash_remove_untagged(bNodeInstanceHash *hash, bNodeInstanceValueFP valfreefp)
2825 {
2826         /* NOTE: Hash must not be mutated during iterating!
2827          * Store tagged entries in a separate list and remove items afterward.
2828          */
2829         bNodeInstanceKey *untagged = MEM_mallocN(sizeof(bNodeInstanceKey) * BKE_node_instance_hash_size(hash), "temporary node instance key list");
2830         bNodeInstanceHashIterator iter;
2831         int num_untagged, i;
2832         
2833         num_untagged = 0;
2834         NODE_INSTANCE_HASH_ITER(iter, hash) {
2835                 bNodeInstanceHashEntry *value = BKE_node_instance_hash_iterator_get_value(&iter);
2836                 
2837                 if (!value->tag)
2838                         untagged[num_untagged++] = BKE_node_instance_hash_iterator_get_key(&iter);
2839         }
2840         
2841         for (i = 0; i < num_untagged; ++i) {
2842                 BKE_node_instance_hash_remove(hash, untagged[i], valfreefp);
2843         }
2844         
2845         MEM_freeN(untagged);
2846 }
2847
2848
2849 /* ************** dependency stuff *********** */
2850
2851 /* node is guaranteed to be not checked before */
2852 static int node_get_deplist_recurs(bNodeTree *ntree, bNode *node, bNode ***nsort)
2853 {
2854         bNode *fromnode;
2855         bNodeLink *link;
2856         int level = 0xFFF;
2857         
2858         node->done = true;
2859         
2860         /* check linked nodes */
2861         for (link = ntree->links.first; link; link = link->next) {
2862                 if (link->tonode == node) {
2863                         fromnode = link->fromnode;
2864                         if (fromnode->done == 0)
2865                                 fromnode->level = node_get_deplist_recurs(ntree, fromnode, nsort);
2866                         if (fromnode->level <= level)
2867                                 level = fromnode->level - 1;
2868                 }
2869         }
2870         
2871         /* check parent node */
2872         if (node->parent) {
2873                 if (node->parent->done == 0)
2874                         node->parent->level = node_get_deplist_recurs(ntree, node->parent, nsort);
2875                 if (node->parent->level <= level)
2876                         level = node->parent->level - 1;
2877         }
2878         
2879         if (nsort) {
2880                 **nsort = node;
2881                 (*nsort)++;
2882         }
2883         
2884         return level;
2885 }
2886
2887 void ntreeGetDependencyList(struct bNodeTree *ntree, struct bNode ***deplist, int *totnodes)
2888 {
2889         bNode *node, **nsort;
2890         
2891         *totnodes = 0;
2892         
2893         /* first clear data */
2894         for (node = ntree->nodes.first; node; node = node->next) {
2895                 node->done = false;
2896                 (*totnodes)++;
2897         }
2898         if (*totnodes == 0) {
2899                 *deplist = NULL;
2900                 return;
2901         }
2902         
2903         nsort = *deplist = MEM_callocN((*totnodes) * sizeof(bNode *), "sorted node array");
2904         
2905         /* recursive check */
2906         for (node = ntree->nodes.first; node; node = node->next) {
2907                 if (node->done == 0) {
2908                         node->level = node_get_deplist_recurs(ntree, node, &nsort);
2909                 }
2910         }
2911 }
2912
2913 /* only updates node->level for detecting cycles links */
2914 static void ntree_update_node_level(bNodeTree *ntree)
2915 {
2916         bNode *node;
2917         
2918         /* first clear tag */
2919         for (node = ntree->nodes.first; node; node = node->next) {
2920                 node->done = false;
2921         }
2922         
2923         /* recursive check */
2924         for (node = ntree->nodes.first; node; node = node->next) {
2925                 if (node->done == 0) {
2926                         node->level = node_get_deplist_recurs(ntree, node, NULL);
2927                 }
2928         }
2929 }
2930
2931 void ntreeTagUsedSockets(bNodeTree *ntree)
2932 {
2933         bNode *node;
2934         bNodeSocket *sock;
2935         bNodeLink *link;
2936         
2937         /* first clear data */
2938         for (node = ntree->nodes.first; node; node = node->next) {
2939                 for (sock = node->inputs.first; sock; sock = sock->next) {
2940                         sock->flag &= ~SOCK_IN_USE;
2941                 }
2942                 for (sock = node->outputs.first; sock; sock = sock->next) {
2943                         sock->flag &= ~SOCK_IN_USE;
2944                 }
2945         }
2946         
2947         for (link = ntree->links.first; link; link = link->next) {
2948                 /* link is unused if either side is disabled */
2949                 if ((link->fromsock->flag & SOCK_UNAVAIL) || (link->tosock->flag & SOCK_UNAVAIL))
2950                         continue;
2951                 
2952                 link->fromsock->flag |= SOCK_IN_USE;
2953                 link->tosock->flag |= SOCK_IN_USE;
2954         }
2955 }
2956
2957 static void ntree_update_link_pointers(bNodeTree *ntree)
2958 {
2959         bNode *node;
2960         bNodeSocket *sock;
2961         bNodeLink *link;
2962         
2963         /* first clear data */
2964         for (node = ntree->nodes.first; node; node = node->next) {
2965                 for (sock = node->inputs.first; sock; sock = sock->next) {
2966                         sock->link = NULL;
2967                 }
2968         }
2969
2970         for (link = ntree->links.first; link; link = link->next) {
2971                 link->tosock->link = link;
2972         }
2973         
2974         ntreeTagUsedSockets(ntree);
2975 }
2976
2977 static void ntree_validate_links(bNodeTree *ntree)
2978 {
2979         bNodeLink *link;
2980         
2981         for (link = ntree->links.first; link; link = link->next) {
2982                 link->flag |= NODE_LINK_VALID;
2983                 if (link->fromnode && link->tonode && link->fromnode->level <= link->tonode->level)
2984                         link->flag &= ~NODE_LINK_VALID;
2985                 else if (ntree->typeinfo->validate_link) {
2986                         if (!ntree->typeinfo->validate_link(ntree, link))
2987                                 link->flag &= ~NODE_LINK_VALID;
2988                 }
2989         }
2990 }
2991
2992 void ntreeVerifyNodes(struct Main *main, struct ID *id)
2993 {
2994         FOREACH_NODETREE(main, ntree, owner_id) {
2995                 bNode *node;
2996                 
2997                 for (node = ntree->nodes.first; node; node = node->next)
2998                         if (node->typeinfo->verifyfunc)
2999                                 node->typeinfo->verifyfunc(ntree, node, id);
3000         } FOREACH_NODETREE_END
3001 }
3002
3003 void ntreeUpdateTree(Main *bmain, bNodeTree *ntree)
3004 {
3005         bNode *node;
3006         
3007         if (!ntree)
3008                 return;
3009         
3010         /* avoid reentrant updates, can be caused by RNA update callbacks */
3011         if (ntree->is_updating)
3012                 return;
3013         ntree->is_updating = true;
3014         
3015         if (ntree->update & (NTREE_UPDATE_LINKS | NTREE_UPDATE_NODES)) {
3016                 /* set the bNodeSocket->link pointers */
3017                 ntree_update_link_pointers(ntree);
3018         }
3019         
3020         /* update individual nodes */
3021         for (node = ntree->nodes.first; node; node = node->next) {
3022                 /* node tree update tags override individual node update flags */
3023                 if ((node->update & NODE_UPDATE) || (ntree->update & NTREE_UPDATE)) {
3024                         if (node->typeinfo->updatefunc)
3025                                 node->typeinfo->updatefunc(ntree, node);
3026                         
3027                         nodeUpdateInternalLinks(ntree, node);
3028                 }
3029         }
3030         
3031         /* generic tree update callback */
3032         if (ntree->typeinfo->update)
3033                 ntree->typeinfo->update(ntree);
3034         /* XXX this should be moved into the tree type update callback for tree supporting node groups.
3035          * Currently the node tree interface is still a generic feature of the base NodeTree type.
3036          */
3037         if (ntree->update & NTREE_UPDATE_GROUP)
3038                 ntreeInterfaceTypeUpdate(ntree);
3039         
3040         /* XXX hack, should be done by depsgraph!! */
3041         if (bmain)
3042                 ntreeVerifyNodes(bmain, &ntree->id);
3043         
3044         if (ntree->update & (NTREE_UPDATE_LINKS | NTREE_UPDATE_NODES)) {
3045                 /* node updates can change sockets or links, repeat link pointer update afterward */
3046                 ntree_update_link_pointers(ntree);
3047                 
3048                 /* update the node level from link dependencies */
3049                 ntree_update_node_level(ntree);
3050                 
3051                 /* check link validity */
3052                 ntree_validate_links(ntree);
3053         }
3054         
3055         /* clear update flags */
3056         for (node = ntree->nodes.first; node; node = node->next) {
3057                 node->update = 0;
3058         }
3059         ntree->update = 0;
3060         
3061         ntree->is_updating = false;
3062 }
3063
3064 void nodeUpdate(bNodeTree *ntree, bNode *node)
3065 {
3066         /* avoid reentrant updates, can be caused by RNA update callbacks */
3067         if (ntree->is_updating)
3068                 return;
3069         ntree->is_updating = true;
3070         
3071         if (node->typeinfo->updatefunc)
3072                 node->typeinfo->updatefunc(ntree, node);
3073         
3074         nodeUpdateInternalLinks(ntree, node);
3075         
3076         /* clear update flag */
3077         node->update = 0;
3078         
3079         ntree->is_updating = false;
3080 }
3081
3082 bool nodeUpdateID(bNodeTree *ntree, ID *id)
3083 {
3084         bNode *node;
3085         bool changed = false;
3086         
3087         if (ELEM(NULL, id, ntree))
3088                 return changed;
3089         
3090         /* avoid reentrant updates, can be caused by RNA update callbacks */
3091         if (ntree->is_updating)
3092                 return changed;
3093         ntree->is_updating = true;
3094         
3095         for (node = ntree->nodes.first; node; node = node->next) {
3096                 if (node->id == id) {
3097                         changed = true;
3098                         node->update |= NODE_UPDATE_ID;
3099                         if (node->typeinfo->updatefunc)
3100                                 node->typeinfo->updatefunc(ntree, node);
3101                         /* clear update flag */
3102                         node->update = 0;
3103                 }
3104         }
3105         
3106         for (node = ntree->nodes.first; node; node = node->next) {
3107                 nodeUpdateInternalLinks(ntree, node);
3108         }
3109         
3110         ntree->is_updating = false;
3111         return changed;
3112 }
3113
3114 void nodeUpdateInternalLinks(bNodeTree *ntree, bNode *node)
3115 {
3116         BLI_freelistN(&node->internal_links);
3117         
3118         if (node->typeinfo && node->typeinfo->update_internal_links)
3119                 node->typeinfo->update_internal_links(ntree, node);
3120 }
3121
3122
3123 /* nodes that use ID data get synced with local data */
3124 void nodeSynchronizeID(bNode *node, bool copy_to_id)
3125 {
3126         if (node->id == NULL) return;
3127         
3128         if (ELEM(node->type, SH_NODE_MATERIAL, SH_NODE_MATERIAL_EXT)) {
3129                 bNodeSocket *sock;
3130                 Material *ma = (Material *)node->id;
3131                 int a;
3132                 short check_flags = SOCK_UNAVAIL;
3133
3134                 if (!copy_to_id)
3135                         check_flags |= SOCK_HIDDEN;
3136                 
3137                 /* hrmf, case in loop isn't super fast, but we don't edit 100s of material at same time either! */
3138                 for (a = 0, sock = node->inputs.first; sock; sock = sock->next, a++) {
3139                         if (!(sock->flag & check_flags)) {
3140                                 if (copy_to_id) {
3141                                         switch (a) {
3142                                                 case MAT_IN_COLOR:
3143                                                         copy_v3_v3(&ma->r, ((bNodeSocketValueRGBA *)sock->default_value)->value); break;
3144                                                 case MAT_IN_SPEC:
3145                                                         copy_v3_v3(&ma->specr, ((bNodeSocketValueRGBA *)sock->default_value)->value); break;
3146                                                 case MAT_IN_REFL:
3147                                                         ma->ref = ((bNodeSocketValueFloat *)sock->default_value)->value; break;
3148                                                 case MAT_IN_MIR:
3149                                                         copy_v3_v3(&ma->mirr, ((bNodeSocketValueRGBA *)sock->default_value)->value); break;
3150                                                 case MAT_IN_AMB:
3151                                                         ma->amb = ((bNodeSocketValueFloat *)sock->default_value)->value; break;
3152                                                 case MAT_IN_EMIT:
3153                                                         ma->emit = ((bNodeSocketValueFloat *)sock->default_value)->value; break;
3154                                                 case MAT_IN_SPECTRA:
3155                                                         ma->spectra = ((bNodeSocketValueFloat *)sock->default_value)->value; break;
3156                                                 case MAT_IN_RAY_MIRROR:
3157                                                         ma->ray_mirror = ((bNodeSocketValueFloat *)sock->default_value)->value; break;
3158                                                 case MAT_IN_ALPHA:
3159                                                         ma->alpha = ((bNodeSocketValueFloat *)sock->default_value)->value; break;
3160                                                 case MAT_IN_TRANSLUCENCY:
3161                                                         ma->translucency = ((bNodeSocketValueFloat *)sock->default_value)->value; break;
3162                                         }
3163                                 }
3164                                 else {
3165                                         switch (a) {
3166                                                 case MAT_IN_COLOR:
3167                                                         copy_v3_v3(((bNodeSocketValueRGBA *)sock->default_value)->value, &ma->r); break;
3168                                                 case MAT_IN_SPEC:
3169                                                         copy_v3_v3(((bNodeSocketValueRGBA *)sock->default_value)->value, &ma->specr); break;
3170                                                 case MAT_IN_REFL:
3171                                                         ((bNodeSocketValueFloat *)sock->default_value)->value = ma->ref; break;
3172                                                 case MAT_IN_MIR:
3173                                                         copy_v3_v3(((bNodeSocketValueRGBA *)sock->default_value)->value, &ma->mirr); break;
3174                                                 case MAT_IN_AMB:
3175                                                         ((bNodeSocketValueFloat *)sock->default_value)->value = ma->amb; break;
3176                                                 case MAT_IN_EMIT:
3177                                                         ((bNodeSocketValueFloat *)sock->default_value)->value = ma->emit; break;
3178                                                 case MAT_IN_SPECTRA:
3179                                                         ((bNodeSocketValueFloat *)sock->default_value)->value = ma->spectra; break;
3180                                                 case MAT_IN_RAY_MIRROR:
3181                                                         ((bNodeSocketValueFloat *)sock->default_value)->value = ma->ray_mirror; break;
3182                                                 case MAT_IN_ALPHA:
3183                                                         ((bNodeSocketValueFloat *)sock->default_value)->value = ma->alpha; break;
3184                                                 case MAT_IN_TRANSLUCENCY:
3185                                                         ((bNodeSocketValueFloat *)sock->default_value)->value = ma->translucency; break;
3186                                         }
3187                                 }
3188                         }
3189                 }
3190         }
3191 }
3192
3193
3194 /* ************* node type access ********** */
3195
3196 void nodeLabel(bNodeTree *ntree, bNode *node, char *label, int maxlen)
3197 {
3198         label[0] = '\0';
3199
3200         if (node->label[0] != '\0') {
3201                 BLI_strncpy(label, node->label, maxlen);
3202         }
3203         else if (node->typeinfo->labelfunc) {
3204                 node->typeinfo->labelfunc(ntree, node, label, maxlen);
3205         }
3206
3207         /* The previous methods (labelfunc) could not provide an adequate label for the node. */
3208         if (label[0] == '\0') {
3209                 /* Kind of hacky and weak... Ideally would be better to use RNA here. :| */
3210                 const char *tmp = CTX_IFACE_(BLT_I18NCONTEXT_ID_NODETREE, node->typeinfo->ui_name);
3211                 if (tmp == node->typeinfo->ui_name) {
3212                         tmp = IFACE_(node->typeinfo->ui_name);
3213                 }
3214                 BLI_strncpy(label, tmp, maxlen);
3215         }
3216 }
3217
3218 static void node_type_base_defaults(bNodeType *ntype)
3219 {
3220         /* default size values */
3221         node_type_size_preset(ntype, NODE_SIZE_DEFAULT);
3222         ntype->height = 100;
3223         ntype->minheight = 30;
3224         ntype->maxheight = FLT_MAX;
3225 }
3226
3227 /* allow this node for any tree type */
3228 static int node_poll_default(bNodeType *UNUSED(ntype), bNodeTree *UNUSED(ntree))
3229 {
3230         return true;
3231 }
3232
3233 /* use the basic poll function */
3234 static int node_poll_instance_default(bNode *node, bNodeTree *ntree)
3235 {
3236         return node->typeinfo->poll(node->typeinfo, ntree);
3237 }
3238
3239 void node_type_base(bNodeType *ntype, int type, const char *name, short nclass, short flag)
3240 {
3241         /* Use static type info header to map static int type to identifier string and RNA struct type.
3242          * Associate the RNA struct type with the bNodeType.
3243          * Dynamically registered nodes will create an RNA type at runtime
3244          * and call RNA_struct_blender_type_set, so this only needs to be done for old RNA types
3245          * created in makesrna, which can not be associated to a bNodeType immediately,
3246          * since bNodeTypes are registered afterward ...
3247          */
3248 #define DefNode(Category, ID, DefFunc, EnumName, StructName, UIName, UIDesc) \
3249                 case ID: \
3250                         BLI_strncpy(ntype->idname, #Category #StructName, sizeof(ntype->idname)); \
3251                         ntype->ext.srna = RNA_struct_find(#Category #StructName); \
3252                         BLI_assert(ntype->ext.srna != NULL); \
3253                         RNA_struct_blender_type_set(ntype->ext.srna, ntype); \
3254                         break;
3255         
3256         switch (type) {
3257 #include "NOD_static_types.h"
3258         }
3259         
3260         /* make sure we have a valid type (everything registered) */
3261         BLI_assert(ntype->idname[0] != '\0');
3262         
3263         ntype->type = type;
3264         BLI_strncpy(ntype->ui_name, name, sizeof(ntype->ui_name));
3265         ntype->nclass = nclass;
3266         ntype->flag = flag;
3267
3268         node_type_base_defaults(ntype);
3269
3270         ntype->poll = node_poll_default;
3271         ntype->poll_instance = node_poll_instance_default;
3272 }
3273
3274 void node_type_base_custom(bNodeType *ntype, const char *idname, const char *name, short nclass, short flag)
3275 {
3276         BLI_strncpy(ntype->idname, idname, sizeof(ntype->idname));
3277         ntype->type = NODE_CUSTOM;
3278         BLI_strncpy(ntype->ui_name, name, sizeof(ntype->ui_name));
3279         ntype->nclass = nclass;
3280         ntype->flag = flag;
3281
3282         node_type_base_defaults(ntype);
3283 }
3284
3285 static bool unique_socket_template_identifier_check(void *arg, const char *name)
3286 {
3287         bNodeSocketTemplate *ntemp;
3288         struct {bNodeSocketTemplate *list; bNodeSocketTemplate *ntemp;} *data = arg;
3289         
3290         for (ntemp = data->list; ntemp->type >= 0; ++ntemp) {
3291                 if (ntemp != data->ntemp) {
3292                         if (STREQ(ntemp->identifier, name)) {
3293                                 return true;
3294                         }
3295                 }
3296         }