Internal node links are now cached in a per-node list, instead of being generated...
[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_node_types.h"
42 #include "DNA_node_types.h"
43 #include "DNA_scene_types.h"
44
45 #include "BLI_string.h"
46 #include "BLI_math.h"
47 #include "BLI_listbase.h"
48 #include "BLI_path_util.h"
49 #include "BLI_utildefines.h"
50
51 #include "BLF_translation.h"
52
53 #include "BKE_animsys.h"
54 #include "BKE_action.h"
55 #include "BKE_fcurve.h"
56 #include "BKE_global.h"
57 #include "BKE_image.h"
58 #include "BKE_library.h"
59 #include "BKE_main.h"
60 #include "BKE_node.h"
61
62 #include "RNA_access.h"
63
64 #include "NOD_socket.h"
65 #include "NOD_composite.h"
66 #include "NOD_shader.h"
67 #include "NOD_texture.h"
68
69
70 bNodeTreeType *ntreeGetType(int type)
71 {
72         static bNodeTreeType *types[NUM_NTREE_TYPES];
73         static int types_init = 1;
74         if (types_init) {
75                 types[NTREE_SHADER] = &ntreeType_Shader;
76                 types[NTREE_COMPOSIT] = &ntreeType_Composite;
77                 types[NTREE_TEXTURE] = &ntreeType_Texture;
78                 types_init = 0;
79         }
80         
81         if (type >= 0 && type < NUM_NTREE_TYPES) {
82                 return types[type];
83         }
84         else {
85                 return NULL;
86         }
87 }
88
89 static bNodeType *node_get_type(bNodeTree *ntree, int type)
90 {
91         bNodeType *ntype = ntreeGetType(ntree->type)->node_types.first;
92         for (; ntype; ntype = ntype->next)
93                 if (ntype->type == type)
94                         return ntype;
95         
96         return NULL;
97 }
98
99 bNodeType *ntreeGetNodeType(bNodeTree *ntree)
100 {
101         return node_get_type(ntree, ntree->nodetype);
102 }
103
104 bNodeSocketType *ntreeGetSocketType(int type)
105 {
106         static bNodeSocketType *types[NUM_SOCKET_TYPES] = {NULL};
107         static int types_init = 1;
108
109         if (types_init) {
110                 node_socket_type_init(types);
111                 types_init = 0;
112         }
113
114         if (type < NUM_SOCKET_TYPES) {
115                 return types[type];
116         }
117         else {
118                 return NULL;
119         }
120 }
121
122 void ntreeInitTypes(bNodeTree *ntree)
123 {
124         bNode *node, *next;
125         
126         for (node = ntree->nodes.first; node; node = next) {
127                 next = node->next;
128                 
129                 node->typeinfo = node_get_type(ntree, node->type);
130
131                 if (node->typeinfo == NULL) {
132                         printf("Error: Node type %s doesn't exist anymore, removed\n", node->name);
133                         nodeFreeNode(ntree, node);
134                 }
135         }
136                         
137         ntree->init |= NTREE_TYPE_INIT;
138 }
139
140 static bNodeSocket *make_socket(bNodeTree *UNUSED(ntree), int in_out, const char *name, int type)
141 {
142         bNodeSocket *sock;
143         
144         sock = MEM_callocN(sizeof(bNodeSocket), "sock");
145         
146         BLI_strncpy(sock->name, name, NODE_MAXSTR);
147         sock->limit = (in_out == SOCK_IN ? 1 : 0xFFF);
148         sock->type = type;
149         sock->storage = NULL;
150         sock->flag |= SOCK_COLLAPSED;
151         
152         sock->default_value = node_socket_make_default_value(type);
153         node_socket_init_default_value(type, sock->default_value);
154         
155         return sock;
156 }
157
158 bNodeSocket *nodeAddSocket(bNodeTree *ntree, bNode *node, int in_out, const char *name, int type)
159 {
160         bNodeSocket *sock = make_socket(ntree, in_out, name, type);
161         if (in_out == SOCK_IN)
162                 BLI_addtail(&node->inputs, sock);
163         else if (in_out == SOCK_OUT)
164                 BLI_addtail(&node->outputs, sock);
165         
166         node->update |= NODE_UPDATE;
167         
168         return sock;
169 }
170
171 bNodeSocket *nodeInsertSocket(bNodeTree *ntree, bNode *node, int in_out, bNodeSocket *next_sock, const char *name, int type)
172 {
173         bNodeSocket *sock = make_socket(ntree, in_out, name, type);
174         if (in_out == SOCK_IN)
175                 BLI_insertlinkbefore(&node->inputs, next_sock, sock);
176         else if (in_out == SOCK_OUT)
177                 BLI_insertlinkbefore(&node->outputs, next_sock, sock);
178         
179         node->update |= NODE_UPDATE;
180         
181         return sock;
182 }
183
184 void nodeRemoveSocket(bNodeTree *ntree, bNode *node, bNodeSocket *sock)
185 {
186         bNodeLink *link, *next;
187         
188         for (link = ntree->links.first; link; link = next) {
189                 next = link->next;
190                 if (link->fromsock == sock || link->tosock == sock) {
191                         nodeRemLink(ntree, link);
192                 }
193         }
194         
195         /* this is fast, this way we don't need an in_out argument */
196         BLI_remlink(&node->inputs, sock);
197         BLI_remlink(&node->outputs, sock);
198         
199         node_socket_free_default_value(sock->type, sock->default_value);
200         MEM_freeN(sock);
201         
202         node->update |= NODE_UPDATE;
203 }
204
205 void nodeRemoveAllSockets(bNodeTree *ntree, bNode *node)
206 {
207         bNodeSocket *sock;
208         bNodeLink *link, *next;
209         
210         for (link = ntree->links.first; link; link = next) {
211                 next = link->next;
212                 if (link->fromnode == node || link->tonode == node) {
213                         nodeRemLink(ntree, link);
214                 }
215         }
216         
217         for (sock = node->inputs.first; sock; sock = sock->next)
218                 node_socket_free_default_value(sock->type, sock->default_value);
219         BLI_freelistN(&node->inputs);
220         for (sock = node->outputs.first; sock; sock = sock->next)
221                 node_socket_free_default_value(sock->type, sock->default_value);
222         BLI_freelistN(&node->outputs);
223         
224         node->update |= NODE_UPDATE;
225 }
226
227 /* finds a node based on its name */
228 bNode *nodeFindNodebyName(bNodeTree *ntree, const char *name)
229 {
230         return BLI_findstring(&ntree->nodes, name, offsetof(bNode, name));
231 }
232
233 /* finds a node based on given socket */
234 int nodeFindNode(bNodeTree *ntree, bNodeSocket *sock, bNode **nodep, int *sockindex, int *in_out)
235 {
236         bNode *node;
237         bNodeSocket *tsock;
238         int index = 0;
239         
240         for (node = ntree->nodes.first; node; node = node->next) {
241                 for (index = 0, tsock = node->inputs.first; tsock; tsock = tsock->next, index++) {
242                         if (tsock == sock) {
243                                 if (in_out) *in_out = SOCK_IN;
244                                 break;
245                         }
246                 }
247                 if (tsock)
248                         break;
249                 for (index = 0, tsock = node->outputs.first; tsock; tsock = tsock->next, index++) {
250                         if (tsock == sock) {
251                                 if (in_out) *in_out = SOCK_OUT;
252                                 break;
253                         }
254                 }
255                 if (tsock)
256                         break;
257         }
258
259         if (node) {
260                 *nodep = node;
261                 if (sockindex) *sockindex = index;
262                 return 1;
263         }
264         
265         *nodep = NULL;
266         return 0;
267 }
268
269 /* ************** Add stuff ********** */
270 static void node_add_sockets_from_type(bNodeTree *ntree, bNode *node, bNodeType *ntype)
271 {
272         bNodeSocketTemplate *sockdef;
273         /* bNodeSocket *sock; */ /* UNUSED */
274
275         if (ntype->inputs) {
276                 sockdef = ntype->inputs;
277                 while (sockdef->type != -1) {
278                         /* sock = */ node_add_input_from_template(ntree, node, sockdef);
279                         
280                         sockdef++;
281                 }
282         }
283         if (ntype->outputs) {
284                 sockdef = ntype->outputs;
285                 while (sockdef->type != -1) {
286                         /* sock = */ node_add_output_from_template(ntree, node, sockdef);
287                         
288                         sockdef++;
289                 }
290         }
291 }
292
293 /* Find the first available, non-duplicate name for a given node */
294 void nodeUniqueName(bNodeTree *ntree, bNode *node)
295 {
296         BLI_uniquename(&ntree->nodes, node, "Node", '.', offsetof(bNode, name), sizeof(node->name));
297 }
298
299 bNode *nodeAddNode(bNodeTree *ntree, struct bNodeTemplate *ntemp)
300 {
301         bNode *node;
302         bNodeType *ntype;
303         
304         ntype = node_get_type(ntree, ntemp->type);
305         if (ntype == NULL) {
306                 printf("nodeAddNodeType() error: '%d' type invalid\n", ntemp->type);
307                 return NULL;
308         }
309         /* validity check */
310         if (!nodeValid(ntree, ntemp))
311                 return NULL;
312         
313         node = MEM_callocN(sizeof(bNode), "new node");
314         node->type = ntype->type;
315         node->typeinfo = ntype;
316         node->flag = NODE_SELECT | ntype->flag;
317         node->width = ntype->width;
318         node->miniwidth = 42.0f;
319         node->height = ntype->height;
320         node->color[0] = node->color[1] = node->color[2] = 0.608;   /* default theme color */
321         
322         node_add_sockets_from_type(ntree, node, ntype);
323
324         BLI_addtail(&ntree->nodes, node);
325         
326         if (ntype->initfunc != NULL)
327                 ntype->initfunc(ntree, node, ntemp);
328
329         /* initialize the node name with the node label.
330          * note: do this after the initfunc so nodes get their data set which may be used in naming
331          * (node groups for example) */
332         /* XXX Do not use nodeLabel() here, it returns translated content, which should *only* be used
333          *     in UI, *never* in data...
334          *     This solution may be a bit rougher than nodeLabel()'s returned string, but it's simpler
335          *     than adding a "no translate" flag to this func (and labelfunc() as well). */
336         BLI_strncpy(node->name, node->typeinfo->name, NODE_MAXSTR);
337         nodeUniqueName(ntree, node);
338         
339         ntree->update |= NTREE_UPDATE_NODES;
340         
341         return node;
342 }
343
344 /* keep socket listorder identical, for copying links */
345 /* ntree is the target tree */
346 bNode *nodeCopyNode(struct bNodeTree *ntree, struct bNode *node)
347 {
348         bNode *nnode = MEM_callocN(sizeof(bNode), "dupli node");
349         bNodeSocket *sock, *oldsock;
350         bNodeLink *link, *oldlink;
351
352         *nnode = *node;
353         /* can be called for nodes outside a node tree (e.g. clipboard) */
354         if (ntree) {
355                 nodeUniqueName(ntree, nnode);
356
357                 BLI_addtail(&ntree->nodes, nnode);
358         }
359
360         BLI_duplicatelist(&nnode->inputs, &node->inputs);
361         oldsock = node->inputs.first;
362         for (sock = nnode->inputs.first; sock; sock = sock->next, oldsock = oldsock->next) {
363                 oldsock->new_sock = sock;
364                 sock->stack_index = 0;
365                 
366                 sock->default_value = node_socket_make_default_value(oldsock->type);
367                 node_socket_copy_default_value(oldsock->type, sock->default_value, oldsock->default_value);
368                 
369                 /* XXX some compositor node (e.g. image, render layers) still store
370                  * some persistent buffer data here, need to clear this to avoid dangling pointers.
371                  */
372                 sock->cache = NULL;
373         }
374         
375         BLI_duplicatelist(&nnode->outputs, &node->outputs);
376         oldsock = node->outputs.first;
377         for (sock = nnode->outputs.first; sock; sock = sock->next, oldsock = oldsock->next) {
378                 oldsock->new_sock = sock;
379                 sock->stack_index = 0;
380                 
381                 sock->default_value = node_socket_make_default_value(oldsock->type);
382                 node_socket_copy_default_value(oldsock->type, sock->default_value, oldsock->default_value);
383                 
384                 /* XXX some compositor node (e.g. image, render layers) still store
385                  * some persistent buffer data here, need to clear this to avoid dangling pointers.
386                  */
387                 sock->cache = NULL;
388         }
389         
390         BLI_duplicatelist(&nnode->internal_links, &node->internal_links);
391         oldlink = node->internal_links.first;
392         for (link = nnode->internal_links.first; link; link = link->next, oldlink = oldlink->next) {
393                 link->fromnode = nnode;
394                 link->tonode = nnode;
395                 link->fromsock = link->fromsock->new_sock;
396                 link->tosock = link->tosock->new_sock;
397         }
398         
399         /* don't increase node->id users, freenode doesn't decrement either */
400         
401         if (node->typeinfo->copystoragefunc)
402                 node->typeinfo->copystoragefunc(node, nnode);
403         
404         node->new_node = nnode;
405         nnode->new_node = NULL;
406         nnode->preview = NULL;
407         
408         if (ntree)
409                 ntree->update |= NTREE_UPDATE_NODES;
410         
411         return nnode;
412 }
413
414 /* also used via rna api, so we check for proper input output direction */
415 bNodeLink *nodeAddLink(bNodeTree *ntree, bNode *fromnode, bNodeSocket *fromsock, bNode *tonode, bNodeSocket *tosock)
416 {
417         bNodeSocket *sock;
418         bNodeLink *link = NULL;
419         int from = 0, to = 0;
420         
421         if (fromnode) {
422                 /* test valid input */
423                 for (sock = fromnode->outputs.first; sock; sock = sock->next)
424                         if (sock == fromsock)
425                                 break;
426                 if (sock)
427                         from = 1;  /* OK */
428                 else {
429                         for (sock = fromnode->inputs.first; sock; sock = sock->next)
430                                 if (sock == fromsock)
431                                         break;
432                         if (sock)
433                                 from = -1;  /* OK but flip */
434                 }
435         }
436         else if (ntree) {
437                 /* check tree sockets */
438                 for (sock = ntree->inputs.first; sock; sock = sock->next)
439                         if (sock == fromsock)
440                                 break;
441                 if (sock)
442                         from = 1;  /* OK */
443                 else {
444                         for (sock = ntree->outputs.first; sock; sock = sock->next)
445                                 if (sock == fromsock)
446                                         break;
447                         if (sock)
448                                 from = -1;  /* OK but flip */
449                 }
450         }
451         if (tonode) {
452                 for (sock = tonode->inputs.first; sock; sock = sock->next)
453                         if (sock == tosock)
454                                 break;
455                 if (sock)
456                         to = 1;  /* OK */
457                 else {
458                         for (sock = tonode->outputs.first; sock; sock = sock->next)
459                                 if (sock == tosock)
460                                         break;
461                         if (sock)
462                                 to = -1;  /* OK but flip */
463                 }
464         }
465         else if (ntree) {
466                 /* check tree sockets */
467                 for (sock = ntree->outputs.first; sock; sock = sock->next)
468                         if (sock == tosock)
469                                 break;
470                 if (sock)
471                         to = 1;  /* OK */
472                 else {
473                         for (sock = ntree->inputs.first; sock; sock = sock->next)
474                                 if (sock == tosock)
475                                         break;
476                         if (sock)
477                                 to = -1;  /* OK but flip */
478                 }
479         }
480         
481         if (from >= 0 && to >= 0) {
482                 link = MEM_callocN(sizeof(bNodeLink), "link");
483                 if (ntree)
484                         BLI_addtail(&ntree->links, link);
485                 link->fromnode = fromnode;
486                 link->fromsock = fromsock;
487                 link->tonode = tonode;
488                 link->tosock = tosock;
489         }
490         else if (from <= 0 && to <= 0) {
491                 link = MEM_callocN(sizeof(bNodeLink), "link");
492                 if (ntree)
493                         BLI_addtail(&ntree->links, link);
494                 link->fromnode = tonode;
495                 link->fromsock = tosock;
496                 link->tonode = fromnode;
497                 link->tosock = fromsock;
498         }
499         
500         if (ntree)
501                 ntree->update |= NTREE_UPDATE_LINKS;
502         
503         return link;
504 }
505
506 void nodeRemLink(bNodeTree *ntree, bNodeLink *link)
507 {
508         /* can be called for links outside a node tree (e.g. clipboard) */
509         if (ntree)
510                 BLI_remlink(&ntree->links, link);
511
512         if (link->tosock)
513                 link->tosock->link = NULL;
514         MEM_freeN(link);
515         
516         if (ntree)
517                 ntree->update |= NTREE_UPDATE_LINKS;
518 }
519
520 void nodeRemSocketLinks(bNodeTree *ntree, bNodeSocket *sock)
521 {
522         bNodeLink *link, *next;
523         
524         for (link = ntree->links.first; link; link = next) {
525                 next = link->next;
526                 if (link->fromsock == sock || link->tosock == sock) {
527                         nodeRemLink(ntree, link);
528                 }
529         }
530         
531         ntree->update |= NTREE_UPDATE_LINKS;
532 }
533
534 void nodeInternalRelink(bNodeTree *ntree, bNode *node)
535 {
536         bNodeLink *link, *link_next;
537         
538         if (node->internal_links.first == NULL)
539                 return;
540         
541         /* store link pointers in output sockets, for efficient lookup */
542         for (link = node->internal_links.first; link; link = link->next)
543                 link->tosock->link = link;
544         
545         /* redirect downstream links */
546         for (link = ntree->links.first; link; link = link_next) {
547                 link_next = link->next;
548                 
549                 /* do we have internal link? */
550                 if (link->fromnode == node) {
551                         if (link->fromsock->link) {
552                                 /* get the upstream input link */
553                                 bNodeLink *fromlink = link->fromsock->link->fromsock->link;
554                                 /* skip the node */
555                                 if (fromlink) {
556                                         link->fromnode = fromlink->fromnode;
557                                         link->fromsock = fromlink->fromsock;
558                                         
559                                         ntree->update |= NTREE_UPDATE_LINKS;
560                                 }
561                                 else
562                                         nodeRemLink(ntree, link);
563                         }
564                         else
565                                 nodeRemLink(ntree, link);
566                 }
567         }
568         
569         /* remove remaining upstream links */
570         for (link = ntree->links.first; link; link = link_next) {
571                 link_next = link->next;
572                 
573                 if (link->tonode == node)
574                         nodeRemLink(ntree, link);
575         }
576 }
577
578 void nodeToView(bNode *node, float x, float y, float *rx, float *ry)
579 {
580         if (node->parent) {
581                 nodeToView(node->parent, x + node->locx, y + node->locy, rx, ry);
582         }
583         else {
584                 *rx = x + node->locx;
585                 *ry = y + node->locy;
586         }
587 }
588
589 void nodeFromView(bNode *node, float x, float y, float *rx, float *ry)
590 {
591         if (node->parent) {
592                 nodeFromView(node->parent, x, y, rx, ry);
593                 *rx -= node->locx;
594                 *ry -= node->locy;
595         }
596         else {
597                 *rx = x - node->locx;
598                 *ry = y - node->locy;
599         }
600 }
601
602 int nodeAttachNodeCheck(bNode *node, bNode *parent)
603 {
604         bNode *parent_recurse;
605         for (parent_recurse = node; parent_recurse; parent_recurse = parent_recurse->parent) {
606                 if (parent_recurse == parent) {
607                         return TRUE;
608                 }
609         }
610
611         return FALSE;
612 }
613
614 void nodeAttachNode(bNode *node, bNode *parent)
615 {
616         float locx, locy;
617
618         BLI_assert(parent->type == NODE_FRAME);
619         BLI_assert(nodeAttachNodeCheck(parent, node) == FALSE);
620
621         nodeToView(node, 0.0f, 0.0f, &locx, &locy);
622         
623         node->parent = parent;
624         /* transform to parent space */
625         nodeFromView(parent, locx, locy, &node->locx, &node->locy);
626 }
627
628 void nodeDetachNode(struct bNode *node)
629 {
630         float locx, locy;
631         
632         if (node->parent) {
633
634                 BLI_assert(node->parent->type == NODE_FRAME);
635
636                 /* transform to view space */
637                 nodeToView(node, 0.0f, 0.0f, &locx, &locy);
638                 node->locx = locx;
639                 node->locy = locy;
640                 node->parent = NULL;
641         }
642 }
643
644 bNodeTree *ntreeAddTree(const char *name, int type, int nodetype)
645 {
646         bNodeTree *ntree;
647         bNodeType *ntype;
648         
649         /* trees are created as local trees if they of compositor, material or texture type,
650          * node groups and other tree types are created as library data.
651          */
652         if (ELEM3(type, NTREE_COMPOSIT, NTREE_SHADER, NTREE_TEXTURE) && nodetype == 0) {
653                 ntree = MEM_callocN(sizeof(bNodeTree), "new node tree");
654                 *( (short *)ntree->id.name) = ID_NT; /* not "type", as that is ntree->type */
655                 BLI_strncpy(ntree->id.name + 2, name, sizeof(ntree->id.name));
656         }
657         else
658                 ntree = BKE_libblock_alloc(&G.main->nodetree, ID_NT, name);
659         
660         ntree->type = type;
661         ntree->nodetype = nodetype;
662         
663         ntreeInitTypes(ntree);
664         
665         ntype = node_get_type(ntree, ntree->nodetype);
666         if (ntype && ntype->inittreefunc)
667                 ntype->inittreefunc(ntree);
668         
669         return ntree;
670 }
671
672 /* Warning: this function gets called during some rather unexpected times
673  *      - this gets called when executing compositing updates (for threaded previews)
674  *      - when the nodetree datablock needs to be copied (i.e. when users get copied)
675  *      - for scene duplication use ntreeSwapID() after so we don't have stale pointers.
676  *
677  * do_make_extern: keep enabled for general use, only reason _not_ to enable is when
678  * copying for internal use (threads for eg), where you wont want it to modify the
679  * scene data.
680  */
681 static bNodeTree *ntreeCopyTree_internal(bNodeTree *ntree, const short do_id_user, const short do_make_extern)
682 {
683         bNodeTree *newtree;
684         bNode *node /*, *nnode */ /* UNUSED */, *last;
685         bNodeLink *link;
686         bNodeSocket *gsock, *oldgsock;
687         
688         if (ntree == NULL) return NULL;
689         
690         /* is ntree part of library? */
691         for (newtree = G.main->nodetree.first; newtree; newtree = newtree->id.next)
692                 if (newtree == ntree) break;
693         if (newtree) {
694                 newtree = BKE_libblock_copy(&ntree->id);
695         }
696         else {
697                 newtree = MEM_dupallocN(ntree);
698                 BKE_libblock_copy_data(&newtree->id, &ntree->id, TRUE); /* copy animdata and ID props */
699         }
700
701         id_us_plus((ID *)newtree->gpd);
702
703         /* in case a running nodetree is copied */
704         newtree->execdata = NULL;
705         
706         newtree->nodes.first = newtree->nodes.last = NULL;
707         newtree->links.first = newtree->links.last = NULL;
708         
709         last = ntree->nodes.last;
710         for (node = ntree->nodes.first; node; node = node->next) {
711
712                 /* ntreeUserDecrefID inline */
713                 if (do_id_user) {
714                         id_us_plus(node->id);
715                 }
716
717                 if (do_make_extern) {
718                         id_lib_extern(node->id);
719                 }
720
721                 node->new_node = NULL;
722                 /* nnode = */ nodeCopyNode(newtree, node);   /* sets node->new */
723                 
724                 /* make sure we don't copy new nodes again! */
725                 if (node == last)
726                         break;
727         }
728         
729         /* socket definition for group usage */
730         BLI_duplicatelist(&newtree->inputs, &ntree->inputs);
731         for (gsock = newtree->inputs.first, oldgsock = ntree->inputs.first; gsock; gsock = gsock->next, oldgsock = oldgsock->next) {
732                 oldgsock->new_sock = gsock;
733                 gsock->groupsock = (oldgsock->groupsock ? oldgsock->groupsock->new_sock : NULL);
734                 gsock->default_value = node_socket_make_default_value(oldgsock->type);
735                 node_socket_copy_default_value(oldgsock->type, gsock->default_value, oldgsock->default_value);
736         }
737         BLI_duplicatelist(&newtree->outputs, &ntree->outputs);
738         for (gsock = newtree->outputs.first, oldgsock = ntree->outputs.first; gsock; gsock = gsock->next, oldgsock = oldgsock->next) {
739                 oldgsock->new_sock = gsock;
740                 gsock->groupsock = (oldgsock->groupsock ? oldgsock->groupsock->new_sock : NULL);
741                 gsock->default_value = node_socket_make_default_value(oldgsock->type);
742                 node_socket_copy_default_value(oldgsock->type, gsock->default_value, oldgsock->default_value);
743         }
744         
745         /* copy links */
746         BLI_duplicatelist(&newtree->links, &ntree->links);
747         for (link = newtree->links.first; link; link = link->next) {
748                 link->fromnode = (link->fromnode ? link->fromnode->new_node : NULL);
749                 link->fromsock = (link->fromsock ? link->fromsock->new_sock : NULL);
750                 link->tonode = (link->tonode ? link->tonode->new_node : NULL);
751                 link->tosock = (link->tosock ? link->tosock->new_sock : NULL);
752                 /* update the link socket's pointer */
753                 if (link->tosock)
754                         link->tosock->link = link;
755         }
756         
757         /* update node->parent pointers */
758         for (node = newtree->nodes.first; node; node = node->next) {
759                 if (node->parent)
760                         node->parent = node->parent->new_node;
761         }
762         
763         return newtree;
764 }
765
766 bNodeTree *ntreeCopyTree_ex(bNodeTree *ntree, const short do_id_user)
767 {
768         return ntreeCopyTree_internal(ntree, do_id_user, TRUE);
769 }
770 bNodeTree *ntreeCopyTree(bNodeTree *ntree)
771 {
772         return ntreeCopyTree_ex(ntree, TRUE);
773 }
774
775 /* use when duplicating scenes */
776 void ntreeSwitchID_ex(bNodeTree *ntree, ID *id_from, ID *id_to, const short do_id_user)
777 {
778         bNode *node;
779
780         if (id_from == id_to) {
781                 /* should never happen but may as well skip if it does */
782                 return;
783         }
784
785         /* for scene duplication only */
786         for (node = ntree->nodes.first; node; node = node->next) {
787                 if (node->id == id_from) {
788                         if (do_id_user) {
789                                 id_us_min(id_from);
790                                 id_us_plus(id_to);
791                         }
792
793                         node->id = id_to;
794                 }
795         }
796 }
797 void ntreeSwitchID(bNodeTree *ntree, ID *id_from, ID *id_to)
798 {
799         ntreeSwitchID_ex(ntree, id_from, id_to, TRUE);
800 }
801
802 void ntreeUserIncrefID(bNodeTree *ntree)
803 {
804         bNode *node;
805         for (node = ntree->nodes.first; node; node = node->next) {
806                 id_us_plus(node->id);
807         }
808 }
809 void ntreeUserDecrefID(bNodeTree *ntree)
810 {
811         bNode *node;
812         for (node = ntree->nodes.first; node; node = node->next) {
813                 id_us_min(node->id);
814         }
815 }
816
817 /* *************** preview *********** */
818 /* if node->preview, then we assume the rect to exist */
819
820 void nodeFreePreview(bNode *node)
821 {
822         if (node->preview) {
823                 if (node->preview->rect)
824                         MEM_freeN(node->preview->rect);
825                 MEM_freeN(node->preview);
826                 node->preview = NULL;
827         }
828 }
829
830 static void node_init_preview(bNode *node, int xsize, int ysize)
831 {
832         
833         if (node->preview == NULL) {
834                 node->preview = MEM_callocN(sizeof(bNodePreview), "node preview");
835                 //              printf("added preview %s\n", node->name);
836         }
837         
838         /* node previews can get added with variable size this way */
839         if (xsize == 0 || ysize == 0)
840                 return;
841         
842         /* sanity checks & initialize */
843         if (node->preview->rect) {
844                 if (node->preview->xsize != xsize && node->preview->ysize != ysize) {
845                         MEM_freeN(node->preview->rect);
846                         node->preview->rect = NULL;
847                 }
848         }
849         
850         if (node->preview->rect == NULL) {
851                 node->preview->rect = MEM_callocN(4 * xsize + xsize * ysize * sizeof(char) * 4, "node preview rect");
852                 node->preview->xsize = xsize;
853                 node->preview->ysize = ysize;
854         }
855         /* no clear, makes nicer previews */
856 }
857
858 void ntreeInitPreview(bNodeTree *ntree, int xsize, int ysize)
859 {
860         bNode *node;
861         
862         if (ntree == NULL)
863                 return;
864         
865         for (node = ntree->nodes.first; node; node = node->next) {
866                 if (node->typeinfo->flag & NODE_PREVIEW)    /* hrms, check for closed nodes? */
867                         node_init_preview(node, xsize, ysize);
868                 if (node->type == NODE_GROUP && (node->flag & NODE_GROUP_EDIT))
869                         ntreeInitPreview((bNodeTree *)node->id, xsize, ysize);
870         }
871 }
872
873 static void nodeClearPreview(bNode *node)
874 {
875         if (node->preview && node->preview->rect)
876                 memset(node->preview->rect, 0, MEM_allocN_len(node->preview->rect));
877 }
878
879 /* use it to enforce clear */
880 void ntreeClearPreview(bNodeTree *ntree)
881 {
882         bNode *node;
883         
884         if (ntree == NULL)
885                 return;
886         
887         for (node = ntree->nodes.first; node; node = node->next) {
888                 if (node->typeinfo->flag & NODE_PREVIEW)
889                         nodeClearPreview(node);
890                 if (node->type == NODE_GROUP && (node->flag & NODE_GROUP_EDIT))
891                         ntreeClearPreview((bNodeTree *)node->id);
892         }
893 }
894
895 /* hack warning! this function is only used for shader previews, and 
896  * since it gets called multiple times per pixel for Ztransp we only
897  * add the color once. Preview gets cleared before it starts render though */
898 void nodeAddToPreview(bNode *node, const float col[4], int x, int y, int do_manage)
899 {
900         bNodePreview *preview = node->preview;
901         if (preview) {
902                 if (x >= 0 && y >= 0) {
903                         if (x < preview->xsize && y < preview->ysize) {
904                                 unsigned char *tar = preview->rect + 4 * ((preview->xsize * y) + x);
905                                 
906                                 if (do_manage) {
907                                         linearrgb_to_srgb_uchar4(tar, col);
908                                 }
909                                 else {
910                                         rgba_float_to_uchar(tar, col);
911                                 }
912                         }
913                         //else printf("prv out bound x y %d %d\n", x, y);
914                 }
915                 //else printf("prv out bound x y %d %d\n", x, y);
916         }
917 }
918
919 /* ************** Free stuff ********** */
920
921 /* goes over entire tree */
922 void nodeUnlinkNode(bNodeTree *ntree, bNode *node)
923 {
924         bNodeLink *link, *next;
925         bNodeSocket *sock;
926         ListBase *lb;
927         
928         for (link = ntree->links.first; link; link = next) {
929                 next = link->next;
930                 
931                 if (link->fromnode == node) {
932                         lb = &node->outputs;
933                         if (link->tonode)
934                                 link->tonode->update |= NODE_UPDATE;
935                 }
936                 else if (link->tonode == node)
937                         lb = &node->inputs;
938                 else
939                         lb = NULL;
940
941                 if (lb) {
942                         for (sock = lb->first; sock; sock = sock->next) {
943                                 if (link->fromsock == sock || link->tosock == sock)
944                                         break;
945                         }
946                         if (sock) {
947                                 nodeRemLink(ntree, link);
948                         }
949                 }
950         }
951 }
952
953 static void node_unlink_attached(bNodeTree *ntree, bNode *parent)
954 {
955         bNode *node;
956         for (node = ntree->nodes.first; node; node = node->next) {
957                 if (node->parent == parent)
958                         nodeDetachNode(node);
959         }
960 }
961
962 /** \note caller needs to manage node->id user */
963 void nodeFreeNode(bNodeTree *ntree, bNode *node)
964 {
965         bNodeSocket *sock, *nextsock;
966         
967         /* can be called for nodes outside a node tree (e.g. clipboard) */
968         if (ntree) {
969                 bNodeTreeType *treetype = ntreeGetType(ntree->type);
970
971                 /* remove all references to this node */
972                 nodeUnlinkNode(ntree, node);
973                 node_unlink_attached(ntree, node);
974
975                 BLI_remlink(&ntree->nodes, node);
976
977                 if (treetype->free_node_cache)
978                         treetype->free_node_cache(ntree, node);
979         }
980         
981         /* since it is called while free database, node->id is undefined */
982         
983         if (node->typeinfo && node->typeinfo->freestoragefunc)
984                 node->typeinfo->freestoragefunc(node);
985         
986         for (sock = node->inputs.first; sock; sock = nextsock) {
987                 nextsock = sock->next;
988                 node_socket_free_default_value(sock->type, sock->default_value);
989                 MEM_freeN(sock);
990         }
991         for (sock = node->outputs.first; sock; sock = nextsock) {
992                 nextsock = sock->next;
993                 node_socket_free_default_value(sock->type, sock->default_value);
994                 MEM_freeN(sock);
995         }
996
997         BLI_freelistN(&node->internal_links);
998
999         nodeFreePreview(node);
1000
1001         MEM_freeN(node);
1002         
1003         if (ntree)
1004                 ntree->update |= NTREE_UPDATE_NODES;
1005 }
1006
1007 /* do not free ntree itself here, BKE_libblock_free calls this function too */
1008 void ntreeFreeTree_ex(bNodeTree *ntree, const short do_id_user)
1009 {
1010         bNode *node, *next;
1011         bNodeSocket *sock;
1012         
1013         if (ntree == NULL) return;
1014         
1015         /* XXX hack! node trees should not store execution graphs at all.
1016          * This should be removed when old tree types no longer require it.
1017          * Currently the execution data for texture nodes remains in the tree
1018          * after execution, until the node tree is updated or freed.
1019          */
1020         if (ntree->execdata) {
1021                 switch (ntree->type) {
1022                         case NTREE_COMPOSIT:
1023                                 ntreeCompositEndExecTree(ntree->execdata, 1);
1024                                 break;
1025                         case NTREE_SHADER:
1026                                 ntreeShaderEndExecTree(ntree->execdata, 1);
1027                                 break;
1028                         case NTREE_TEXTURE:
1029                                 ntreeTexEndExecTree(ntree->execdata, 1);
1030                                 break;
1031                 }
1032         }
1033         
1034         BKE_free_animdata((ID *)ntree);
1035         
1036         id_us_min((ID *)ntree->gpd);
1037
1038         BLI_freelistN(&ntree->links);   /* do first, then unlink_node goes fast */
1039         
1040         for (node = ntree->nodes.first; node; node = next) {
1041                 next = node->next;
1042
1043                 /* ntreeUserIncrefID inline */
1044
1045                 /* XXX, this is correct, however when freeing the entire database
1046                  * this ends up accessing freed data which isn't properly unlinking
1047                  * its self from scene nodes, SO - for now prefer invalid usercounts
1048                  * on free rather then bad memory access - Campbell */
1049 #if 0
1050                 if (do_id_user) {
1051                         id_us_min(node->id);
1052                 }
1053 #else
1054                 (void)do_id_user;
1055 #endif
1056
1057                 nodeFreeNode(ntree, node);
1058         }
1059         
1060         for (sock = ntree->inputs.first; sock; sock = sock->next)
1061                 node_socket_free_default_value(sock->type, sock->default_value);
1062         BLI_freelistN(&ntree->inputs);
1063         for (sock = ntree->outputs.first; sock; sock = sock->next)
1064                 node_socket_free_default_value(sock->type, sock->default_value);
1065         BLI_freelistN(&ntree->outputs);
1066 }
1067 /* same as ntreeFreeTree_ex but always manage users */
1068 void ntreeFreeTree(bNodeTree *ntree)
1069 {
1070         ntreeFreeTree_ex(ntree, TRUE);
1071 }
1072
1073 void ntreeFreeCache(bNodeTree *ntree)
1074 {
1075         bNodeTreeType *treetype;
1076         
1077         if (ntree == NULL) return;
1078         
1079         treetype = ntreeGetType(ntree->type);
1080         if (treetype->free_cache)
1081                 treetype->free_cache(ntree);
1082 }
1083
1084 void ntreeSetOutput(bNodeTree *ntree)
1085 {
1086         bNode *node;
1087
1088         /* find the active outputs, might become tree type dependent handler */
1089         for (node = ntree->nodes.first; node; node = node->next) {
1090                 if (node->typeinfo->nclass == NODE_CLASS_OUTPUT) {
1091                         bNode *tnode;
1092                         int output = 0;
1093                         
1094                         /* we need a check for which output node should be tagged like this, below an exception */
1095                         if (node->type == CMP_NODE_OUTPUT_FILE)
1096                                 continue;
1097
1098                         /* there is more types having output class, each one is checked */
1099                         for (tnode = ntree->nodes.first; tnode; tnode = tnode->next) {
1100                                 if (tnode->typeinfo->nclass == NODE_CLASS_OUTPUT) {
1101                                         
1102                                         if (ntree->type == NTREE_COMPOSIT) {
1103                                                         
1104                                                 /* same type, exception for viewer */
1105                                                 if (tnode->type == node->type ||
1106                                                     (ELEM(tnode->type, CMP_NODE_VIEWER, CMP_NODE_SPLITVIEWER) &&
1107                                                      ELEM(node->type, CMP_NODE_VIEWER, CMP_NODE_SPLITVIEWER)))
1108                                                 {
1109                                                         if (tnode->flag & NODE_DO_OUTPUT) {
1110                                                                 output++;
1111                                                                 if (output > 1)
1112                                                                         tnode->flag &= ~NODE_DO_OUTPUT;
1113                                                         }
1114                                                 }
1115                                         }
1116                                         else {
1117                                                 /* same type */
1118                                                 if (tnode->type == node->type) {
1119                                                         if (tnode->flag & NODE_DO_OUTPUT) {
1120                                                                 output++;
1121                                                                 if (output > 1)
1122                                                                         tnode->flag &= ~NODE_DO_OUTPUT;
1123                                                         }
1124                                                 }
1125                                         }
1126                                 }
1127                         }
1128                         if (output == 0)
1129                                 node->flag |= NODE_DO_OUTPUT;
1130                 }
1131         }
1132         
1133         /* here we could recursively set which nodes have to be done,
1134          * might be different for editor or for "real" use... */
1135 }
1136
1137 typedef struct MakeLocalCallData {
1138         ID *group_id;
1139         ID *new_id;
1140         int lib, local;
1141 } MakeLocalCallData;
1142
1143 static void ntreeMakeLocal_CheckLocal(void *calldata, ID *owner_id, bNodeTree *ntree)
1144 {
1145         MakeLocalCallData *cd = (MakeLocalCallData *)calldata;
1146         bNode *node;
1147         
1148         /* find if group is in tree */
1149         for (node = ntree->nodes.first; node; node = node->next) {
1150                 if (node->id == cd->group_id) {
1151                         if (owner_id->lib) {
1152                                 cd->lib = TRUE;
1153                         }
1154                         else {
1155                                 cd->local = TRUE;
1156                         }
1157                 }
1158         }
1159 }
1160
1161 static void ntreeMakeLocal_LinkNew(void *calldata, ID *owner_id, bNodeTree *ntree)
1162 {
1163         MakeLocalCallData *cd = (MakeLocalCallData *)calldata;
1164         bNode *node;
1165         
1166         /* find if group is in tree */
1167         for (node = ntree->nodes.first; node; node = node->next) {
1168                 if (node->id == cd->group_id) {
1169                         if (owner_id->lib == NULL) {
1170                                 node->id = cd->new_id;
1171                                 cd->new_id->us++;
1172                                 cd->group_id->us--;
1173                         }
1174                 }
1175         }
1176 }
1177
1178 void ntreeMakeLocal(bNodeTree *ntree)
1179 {
1180         Main *bmain = G.main;
1181         bNodeTreeType *treetype = ntreeGetType(ntree->type);
1182         MakeLocalCallData cd;
1183         
1184         /* - only lib users: do nothing
1185          * - only local users: set flag
1186          * - mixed: make copy
1187          */
1188         
1189         if (ntree->id.lib == NULL) return;
1190         if (ntree->id.us == 1) {
1191                 id_clear_lib_data(bmain, (ID *)ntree);
1192                 return;
1193         }
1194         
1195         /* now check users of groups... again typedepending, callback... */
1196         cd.group_id = &ntree->id;
1197         cd.new_id = NULL;
1198         cd.local = 0;
1199         cd.lib = 0;
1200         
1201         treetype->foreach_nodetree(G.main, &cd, &ntreeMakeLocal_CheckLocal);
1202         
1203         /* if all users are local, we simply make tree local */
1204         if (cd.local && cd.lib == 0) {
1205                 id_clear_lib_data(bmain, (ID *)ntree);
1206         }
1207         else if (cd.local && cd.lib) {
1208                 /* this is the mixed case, we copy the tree and assign it to local users */
1209                 bNodeTree *newtree = ntreeCopyTree(ntree);
1210                 
1211                 newtree->id.us = 0;
1212                 
1213
1214                 cd.new_id = &newtree->id;
1215                 treetype->foreach_nodetree(G.main, &cd, &ntreeMakeLocal_LinkNew);
1216         }
1217 }
1218
1219 int ntreeNodeExists(bNodeTree *ntree, bNode *testnode)
1220 {
1221         bNode *node = ntree->nodes.first;
1222         for (; node; node = node->next)
1223                 if (node == testnode)
1224                         return 1;
1225         return 0;
1226 }
1227
1228 int ntreeOutputExists(bNode *node, bNodeSocket *testsock)
1229 {
1230         bNodeSocket *sock = node->outputs.first;
1231         for (; sock; sock = sock->next)
1232                 if (sock == testsock)
1233                         return 1;
1234         return 0;
1235 }
1236
1237 /* returns localized tree for execution in threads */
1238 bNodeTree *ntreeLocalize(bNodeTree *ntree)
1239 {
1240         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1241
1242         bNodeTree *ltree;
1243         bNode *node;
1244         
1245         bAction *action_backup = NULL, *tmpact_backup = NULL;
1246         
1247         /* Workaround for copying an action on each render!
1248          * set action to NULL so animdata actions don't get copied */
1249         AnimData *adt = BKE_animdata_from_id(&ntree->id);
1250
1251         if (adt) {
1252                 action_backup = adt->action;
1253                 tmpact_backup = adt->tmpact;
1254
1255                 adt->action = NULL;
1256                 adt->tmpact = NULL;
1257         }
1258
1259         /* node copy func */
1260         ltree = ntreeCopyTree_internal(ntree, FALSE, FALSE);
1261
1262         if (adt) {
1263                 AnimData *ladt = BKE_animdata_from_id(&ltree->id);
1264
1265                 adt->action = ladt->action = action_backup;
1266                 adt->tmpact = ladt->tmpact = tmpact_backup;
1267
1268                 if (action_backup) action_backup->id.us++;
1269                 if (tmpact_backup) tmpact_backup->id.us++;
1270                 
1271         }
1272         /* end animdata uglyness */
1273
1274         /* ensures only a single output node is enabled */
1275         ntreeSetOutput(ntree);
1276
1277         for (node = ntree->nodes.first; node; node = node->next) {
1278                 /* store new_node pointer to original */
1279                 node->new_node->new_node = node;
1280         }
1281
1282         if (ntreetype->localize)
1283                 ntreetype->localize(ltree, ntree);
1284
1285         return ltree;
1286 }
1287
1288 /* sync local composite with real tree */
1289 /* local tree is supposed to be running, be careful moving previews! */
1290 /* is called by jobs manager, outside threads, so it doesnt happen during draw */
1291 void ntreeLocalSync(bNodeTree *localtree, bNodeTree *ntree)
1292 {
1293         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1294
1295         if (ntreetype->local_sync)
1296                 ntreetype->local_sync(localtree, ntree);
1297 }
1298
1299 /* merge local tree results back, and free local tree */
1300 /* we have to assume the editor already changed completely */
1301 void ntreeLocalMerge(bNodeTree *localtree, bNodeTree *ntree)
1302 {
1303         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1304         bNode *lnode;
1305         
1306         /* move over the compbufs and previews */
1307         for (lnode = localtree->nodes.first; lnode; lnode = lnode->next) {
1308                 if (ntreeNodeExists(ntree, lnode->new_node)) {
1309                         if (lnode->preview && lnode->preview->rect) {
1310                                 nodeFreePreview(lnode->new_node);
1311                                 lnode->new_node->preview = lnode->preview;
1312                                 lnode->preview = NULL;
1313                         }
1314                 }
1315         }
1316
1317         if (ntreetype->local_merge)
1318                 ntreetype->local_merge(localtree, ntree);
1319
1320         ntreeFreeTree_ex(localtree, FALSE);
1321         MEM_freeN(localtree);
1322 }
1323
1324 /* ************ find stuff *************** */
1325
1326 int ntreeHasType(bNodeTree *ntree, int type)
1327 {
1328         bNode *node;
1329         
1330         if (ntree)
1331                 for (node = ntree->nodes.first; node; node = node->next)
1332                         if (node->type == type)
1333                                 return 1;
1334         return 0;
1335 }
1336
1337 bNodeLink *nodeFindLink(bNodeTree *ntree, bNodeSocket *from, bNodeSocket *to)
1338 {
1339         bNodeLink *link;
1340         
1341         for (link = ntree->links.first; link; link = link->next) {
1342                 if (link->fromsock == from && link->tosock == to)
1343                         return link;
1344                 if (link->fromsock == to && link->tosock == from) /* hrms? */
1345                         return link;
1346         }
1347         return NULL;
1348 }
1349
1350 int nodeCountSocketLinks(bNodeTree *ntree, bNodeSocket *sock)
1351 {
1352         bNodeLink *link;
1353         int tot = 0;
1354         
1355         for (link = ntree->links.first; link; link = link->next) {
1356                 if (link->fromsock == sock || link->tosock == sock)
1357                         tot++;
1358         }
1359         return tot;
1360 }
1361
1362 bNode *nodeGetActive(bNodeTree *ntree)
1363 {
1364         bNode *node;
1365         
1366         if (ntree == NULL) return NULL;
1367         
1368         for (node = ntree->nodes.first; node; node = node->next)
1369                 if (node->flag & NODE_ACTIVE)
1370                         break;
1371         return node;
1372 }
1373
1374 /* two active flags, ID nodes have special flag for buttons display */
1375 bNode *nodeGetActiveID(bNodeTree *ntree, short idtype)
1376 {
1377         bNode *node;
1378         
1379         if (ntree == NULL) return NULL;
1380
1381         /* check for group edit */
1382         for (node = ntree->nodes.first; node; node = node->next)
1383                 if (node->flag & NODE_GROUP_EDIT)
1384                         break;
1385
1386         if (node)
1387                 ntree = (bNodeTree *)node->id;
1388         
1389         /* now find active node with this id */
1390         for (node = ntree->nodes.first; node; node = node->next)
1391                 if (node->id && GS(node->id->name) == idtype)
1392                         if (node->flag & NODE_ACTIVE_ID)
1393                                 break;
1394
1395         return node;
1396 }
1397
1398 int nodeSetActiveID(bNodeTree *ntree, short idtype, ID *id)
1399 {
1400         bNode *node;
1401         int ok = FALSE;
1402
1403         if (ntree == NULL) return ok;
1404
1405         /* check for group edit */
1406         for (node = ntree->nodes.first; node; node = node->next)
1407                 if (node->flag & NODE_GROUP_EDIT)
1408                         break;
1409
1410         if (node)
1411                 ntree = (bNodeTree *)node->id;
1412
1413         /* now find active node with this id */
1414         for (node = ntree->nodes.first; node; node = node->next) {
1415                 if (node->id && GS(node->id->name) == idtype) {
1416                         if (id && ok == FALSE && node->id == id) {
1417                                 node->flag |= NODE_ACTIVE_ID;
1418                                 ok = TRUE;
1419                         }
1420                         else {
1421                                 node->flag &= ~NODE_ACTIVE_ID;
1422                         }
1423                 }
1424         }
1425
1426         return ok;
1427 }
1428
1429
1430 /* two active flags, ID nodes have special flag for buttons display */
1431 void nodeClearActiveID(bNodeTree *ntree, short idtype)
1432 {
1433         bNode *node;
1434         
1435         if (ntree == NULL) return;
1436         
1437         for (node = ntree->nodes.first; node; node = node->next)
1438                 if (node->id && GS(node->id->name) == idtype)
1439                         node->flag &= ~NODE_ACTIVE_ID;
1440 }
1441
1442 void nodeClearActive(bNodeTree *ntree)
1443 {
1444         bNode *node;
1445
1446         if (ntree == NULL) return;
1447
1448         for (node = ntree->nodes.first; node; node = node->next)
1449                 node->flag &= ~(NODE_ACTIVE | NODE_ACTIVE_ID);
1450 }
1451
1452
1453 /* two active flags, ID nodes have special flag for buttons display */
1454 void nodeSetActive(bNodeTree *ntree, bNode *node)
1455 {
1456         bNode *tnode;
1457         
1458         /* make sure only one node is active, and only one per ID type */
1459         for (tnode = ntree->nodes.first; tnode; tnode = tnode->next) {
1460                 tnode->flag &= ~NODE_ACTIVE;
1461                 
1462                 if (node->id && tnode->id) {
1463                         if (GS(node->id->name) == GS(tnode->id->name))
1464                                 tnode->flag &= ~NODE_ACTIVE_ID;
1465                 }
1466                 if (node->typeinfo->nclass == NODE_CLASS_TEXTURE)
1467                         tnode->flag &= ~NODE_ACTIVE_TEXTURE;
1468         }
1469         
1470         node->flag |= NODE_ACTIVE;
1471         if (node->id)
1472                 node->flag |= NODE_ACTIVE_ID;
1473         if (node->typeinfo->nclass == NODE_CLASS_TEXTURE)
1474                 node->flag |= NODE_ACTIVE_TEXTURE;
1475 }
1476
1477 int nodeSocketIsHidden(bNodeSocket *sock)
1478 {
1479         return ((sock->flag & (SOCK_HIDDEN | SOCK_UNAVAIL)) != 0);
1480 }
1481
1482 void nodeSocketSetType(bNodeSocket *sock, int type)
1483 {
1484         int old_type = sock->type;
1485         void *old_default_value = sock->default_value;
1486         
1487         sock->type = type;
1488         
1489         sock->default_value = node_socket_make_default_value(sock->type);
1490         node_socket_init_default_value(type, sock->default_value);
1491         node_socket_convert_default_value(sock->type, sock->default_value, old_type, old_default_value);
1492         node_socket_free_default_value(old_type, old_default_value);
1493 }
1494
1495 /* ************** Node Clipboard *********** */
1496
1497 #define USE_NODE_CB_VALIDATE
1498
1499 #ifdef USE_NODE_CB_VALIDATE
1500 /**
1501  * This data structure is to validate the node on creation,
1502  * otherwise we may reference missing data.
1503  *
1504  * Currently its only used for ID's, but nodes may one day
1505  * reference other pointers which need validation.
1506  */
1507 typedef struct bNodeClipboardExtraInfo {
1508         struct bNodeClipboardExtraInfo *next, *prev;
1509         ID  *id;
1510         char id_name[MAX_ID_NAME];
1511         char library_name[FILE_MAX];
1512 } bNodeClipboardExtraInfo;
1513 #endif  /* USE_NODE_CB_VALIDATE */
1514
1515
1516 typedef struct bNodeClipboard {
1517         ListBase nodes;
1518
1519 #ifdef USE_NODE_CB_VALIDATE
1520         ListBase nodes_extra_info;
1521 #endif
1522
1523         ListBase links;
1524         int type;
1525 } bNodeClipboard;
1526
1527 bNodeClipboard node_clipboard = {{0}};
1528
1529 void BKE_node_clipboard_init(struct bNodeTree *ntree)
1530 {
1531         node_clipboard.type = ntree->type;
1532 }
1533
1534 void BKE_node_clipboard_clear(void)
1535 {
1536         bNode *node, *node_next;
1537         bNodeLink *link, *link_next;
1538         
1539         for (link = node_clipboard.links.first; link; link = link_next) {
1540                 link_next = link->next;
1541                 nodeRemLink(NULL, link);
1542         }
1543         node_clipboard.links.first = node_clipboard.links.last = NULL;
1544         
1545         for (node = node_clipboard.nodes.first; node; node = node_next) {
1546                 node_next = node->next;
1547                 nodeFreeNode(NULL, node);
1548         }
1549         node_clipboard.nodes.first = node_clipboard.nodes.last = NULL;
1550
1551 #ifdef USE_NODE_CB_VALIDATE
1552         BLI_freelistN(&node_clipboard.nodes_extra_info);
1553 #endif
1554 }
1555
1556 /* return FALSE when one or more ID's are lost */
1557 int BKE_node_clipboard_validate(void)
1558 {
1559         int ok = TRUE;
1560
1561 #ifdef USE_NODE_CB_VALIDATE
1562         bNodeClipboardExtraInfo *node_info;
1563         bNode *node;
1564
1565
1566         /* lists must be aligned */
1567         BLI_assert(BLI_countlist(&node_clipboard.nodes) ==
1568                            BLI_countlist(&node_clipboard.nodes_extra_info));
1569
1570         for (node = node_clipboard.nodes.first, node_info = node_clipboard.nodes_extra_info.first;
1571                  node;
1572                  node = node->next, node_info = node_info->next)
1573         {
1574                 /* validate the node against the stored node info */
1575
1576                 /* re-assign each loop since we may clear,
1577                  * open a new file where the ID is valid, and paste again */
1578                 node->id = node_info->id;
1579
1580                 /* currently only validate the ID */
1581                 if (node->id) {
1582                         ListBase *lb = which_libbase(G.main, GS(node_info->id_name));
1583                         BLI_assert(lb != NULL);
1584
1585                         if (BLI_findindex(lb, node_info->id) == -1) {
1586                                 /* may assign NULL */
1587                                 node->id = BLI_findstring(lb, node_info->id_name + 2, offsetof(ID, name) + 2);
1588
1589                                 if (node->id == NULL) {
1590                                         ok = FALSE;
1591                                 }
1592                         }
1593                 }
1594         }
1595 #endif  /* USE_NODE_CB_VALIDATE */
1596
1597         return ok;
1598 }
1599
1600 void BKE_node_clipboard_add_node(bNode *node)
1601 {
1602 #ifdef USE_NODE_CB_VALIDATE
1603         /* add extra info */
1604         bNodeClipboardExtraInfo *node_info = MEM_mallocN(sizeof(bNodeClipboardExtraInfo), STRINGIFY(bNodeClipboardExtraInfo));
1605
1606         node_info->id = node->id;
1607         if (node->id) {
1608                 BLI_strncpy(node_info->id_name, node->id->name, sizeof(node_info->id_name));
1609                 if (node->id->lib) {
1610                         BLI_strncpy(node_info->library_name, node->id->lib->filepath, sizeof(node_info->library_name));
1611                 }
1612                 else {
1613                         node_info->library_name[0] = '\0';
1614                 }
1615         }
1616         else {
1617                 node_info->id_name[0] = '\0';
1618                 node_info->library_name[0] = '\0';
1619         }
1620         BLI_addtail(&node_clipboard.nodes_extra_info, node_info);
1621         /* end extra info */
1622 #endif  /* USE_NODE_CB_VALIDATE */
1623
1624         /* add node */
1625         BLI_addtail(&node_clipboard.nodes, node);
1626
1627 }
1628
1629 void BKE_node_clipboard_add_link(bNodeLink *link)
1630 {
1631         BLI_addtail(&node_clipboard.links, link);
1632 }
1633
1634 const ListBase *BKE_node_clipboard_get_nodes(void)
1635 {
1636         return &node_clipboard.nodes;
1637 }
1638
1639 const ListBase *BKE_node_clipboard_get_links(void)
1640 {
1641         return &node_clipboard.links;
1642 }
1643
1644 int BKE_node_clipboard_get_type(void)
1645 {
1646         return node_clipboard.type;
1647 }
1648
1649 /* ************** dependency stuff *********** */
1650
1651 /* node is guaranteed to be not checked before */
1652 static int node_get_deplist_recurs(bNodeTree *ntree, bNode *node, bNode ***nsort)
1653 {
1654         bNode *fromnode;
1655         bNodeLink *link;
1656         int level = 0xFFF;
1657         
1658         node->done = TRUE;
1659         
1660         /* check linked nodes */
1661         for (link = ntree->links.first; link; link = link->next) {
1662                 if (link->tonode == node) {
1663                         fromnode = link->fromnode;
1664                         if (fromnode) {
1665                                 if (fromnode->done == 0)
1666                                         fromnode->level = node_get_deplist_recurs(ntree, fromnode, nsort);
1667                                 if (fromnode->level <= level)
1668                                         level = fromnode->level - 1;
1669                         }
1670                 }
1671         }
1672         
1673         /* check parent node */
1674         if (node->parent) {
1675                 if (node->parent->done == 0)
1676                         node->parent->level = node_get_deplist_recurs(ntree, node->parent, nsort);
1677                 if (node->parent->level <= level)
1678                         level = node->parent->level - 1;
1679         }
1680         
1681         if (nsort) {
1682                 **nsort = node;
1683                 (*nsort)++;
1684         }
1685         
1686         return level;
1687 }
1688
1689 void ntreeGetDependencyList(struct bNodeTree *ntree, struct bNode ***deplist, int *totnodes)
1690 {
1691         bNode *node, **nsort;
1692         
1693         *totnodes = 0;
1694         
1695         /* first clear data */
1696         for (node = ntree->nodes.first; node; node = node->next) {
1697                 node->done = FALSE;
1698                 (*totnodes)++;
1699         }
1700         if (*totnodes == 0) {
1701                 *deplist = NULL;
1702                 return;
1703         }
1704         
1705         nsort = *deplist = MEM_callocN((*totnodes) * sizeof(bNode *), "sorted node array");
1706         
1707         /* recursive check */
1708         for (node = ntree->nodes.first; node; node = node->next) {
1709                 if (node->done == 0) {
1710                         node->level = node_get_deplist_recurs(ntree, node, &nsort);
1711                 }
1712         }
1713 }
1714
1715 /* only updates node->level for detecting cycles links */
1716 static void ntree_update_node_level(bNodeTree *ntree)
1717 {
1718         bNode *node;
1719         
1720         /* first clear tag */
1721         for (node = ntree->nodes.first; node; node = node->next) {
1722                 node->done = FALSE;
1723         }
1724         
1725         /* recursive check */
1726         for (node = ntree->nodes.first; node; node = node->next) {
1727                 if (node->done == 0) {
1728                         node->level = node_get_deplist_recurs(ntree, node, NULL);
1729                 }
1730         }
1731 }
1732
1733 static void ntree_update_link_pointers(bNodeTree *ntree)
1734 {
1735         bNode *node;
1736         bNodeSocket *sock;
1737         bNodeLink *link;
1738         
1739         /* first clear data */
1740         for (node = ntree->nodes.first; node; node = node->next) {
1741                 for (sock = node->inputs.first; sock; sock = sock->next) {
1742                         sock->link = NULL;
1743                         sock->flag &= ~SOCK_IN_USE;
1744                 }
1745                 for (sock = node->outputs.first; sock; sock = sock->next) {
1746                         sock->flag &= ~SOCK_IN_USE;
1747                 }
1748         }
1749         for (sock = ntree->inputs.first; sock; sock = sock->next) {
1750                 sock->flag &= ~SOCK_IN_USE;
1751         }
1752         for (sock = ntree->outputs.first; sock; sock = sock->next) {
1753                 sock->link = NULL;
1754                 sock->flag &= ~SOCK_IN_USE;
1755         }
1756
1757         for (link = ntree->links.first; link; link = link->next) {
1758                 link->tosock->link = link;
1759                 
1760                 link->fromsock->flag |= SOCK_IN_USE;
1761                 link->tosock->flag |= SOCK_IN_USE;
1762         }
1763 }
1764
1765 static void ntree_validate_links(bNodeTree *ntree)
1766 {
1767         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1768         bNodeLink *link;
1769         
1770         for (link = ntree->links.first; link; link = link->next) {
1771                 link->flag |= NODE_LINK_VALID;
1772                 if (link->fromnode && link->tonode && link->fromnode->level <= link->tonode->level)
1773                         link->flag &= ~NODE_LINK_VALID;
1774                 else if (ntreetype->validate_link) {
1775                         if (!ntreetype->validate_link(ntree, link))
1776                                 link->flag &= ~NODE_LINK_VALID;
1777                 }
1778         }
1779 }
1780
1781 static void ntree_verify_nodes_cb(void *calldata, struct ID *UNUSED(owner_id), struct bNodeTree *ntree)
1782 {
1783         ID *id = (ID *)calldata;
1784         bNode *node;
1785         
1786         for (node = ntree->nodes.first; node; node = node->next)
1787                 if (node->typeinfo->verifyfunc)
1788                         node->typeinfo->verifyfunc(ntree, node, id);
1789 }
1790
1791 void ntreeVerifyNodes(struct Main *main, struct ID *id)
1792 {
1793         bNodeTreeType *ntreetype;
1794         bNodeTree *ntree;
1795         int n;
1796         
1797         for (n = 0; n < NUM_NTREE_TYPES; ++n) {
1798                 ntreetype = ntreeGetType(n);
1799                 if (ntreetype && ntreetype->foreach_nodetree)
1800                         ntreetype->foreach_nodetree(main, id, ntree_verify_nodes_cb);
1801         }
1802         for (ntree = main->nodetree.first; ntree; ntree = ntree->id.next)
1803                 ntree_verify_nodes_cb(id, NULL, ntree);
1804 }
1805
1806 void ntreeUpdateTree(bNodeTree *ntree)
1807 {
1808         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1809         bNode *node;
1810         
1811         if (ntree->update & (NTREE_UPDATE_LINKS | NTREE_UPDATE_NODES)) {
1812                 /* set the bNodeSocket->link pointers */
1813                 ntree_update_link_pointers(ntree);
1814                 
1815                 /* update the node level from link dependencies */
1816                 ntree_update_node_level(ntree);
1817         }
1818         
1819         /* update individual nodes */
1820         for (node = ntree->nodes.first; node; node = node->next) {
1821                 /* node tree update tags override individual node update flags */
1822                 if ((node->update & NODE_UPDATE) || (ntree->update & NTREE_UPDATE)) {
1823                         if (ntreetype->update_node)
1824                                 ntreetype->update_node(ntree, node);
1825                         else if (node->typeinfo->updatefunc)
1826                                 node->typeinfo->updatefunc(ntree, node);
1827                         
1828                         nodeUpdateInternalLinks(ntree, node);
1829                 }
1830         }
1831         
1832         /* check link validity */
1833         if (ntree->update & (NTREE_UPDATE_LINKS | NTREE_UPDATE_NODES))
1834                 ntree_validate_links(ntree);
1835         
1836         /* generic tree update callback */
1837         if (ntreetype->update)
1838                 ntreetype->update(ntree);
1839         else {
1840                 /* Trees can be associated with a specific node type (i.e. group nodes),
1841                  * in that case a tree update function may be defined by that node type.
1842                  */
1843                 bNodeType *ntype = node_get_type(ntree, ntree->nodetype);
1844                 if (ntype && ntype->updatetreefunc)
1845                         ntype->updatetreefunc(ntree);
1846         }
1847         
1848         /* XXX hack, should be done by depsgraph!! */
1849         ntreeVerifyNodes(G.main, &ntree->id);
1850         
1851         /* clear update flags */
1852         for (node = ntree->nodes.first; node; node = node->next) {
1853                 node->update = 0;
1854         }
1855         ntree->update = 0;
1856 }
1857
1858 void nodeUpdate(bNodeTree *ntree, bNode *node)
1859 {
1860         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1861         
1862         if (ntreetype->update_node)
1863                 ntreetype->update_node(ntree, node);
1864         else if (node->typeinfo->updatefunc)
1865                 node->typeinfo->updatefunc(ntree, node);
1866         
1867         nodeUpdateInternalLinks(ntree, node);
1868         
1869         /* clear update flag */
1870         node->update = 0;
1871 }
1872
1873 int nodeUpdateID(bNodeTree *ntree, ID *id)
1874 {
1875         bNodeTreeType *ntreetype;
1876         bNode *node;
1877         int change = FALSE;
1878         
1879         if (ELEM(NULL, id, ntree))
1880                 return change;
1881         
1882         ntreetype = ntreeGetType(ntree->type);
1883         
1884         if (ntreetype->update_node) {
1885                 for (node = ntree->nodes.first; node; node = node->next) {
1886                         if (node->id == id) {
1887                                 change = TRUE;
1888                                 node->update |= NODE_UPDATE_ID;
1889                                 ntreetype->update_node(ntree, node);
1890                                 /* clear update flag */
1891                                 node->update = 0;
1892                         }
1893                 }
1894         }
1895         else {
1896                 for (node = ntree->nodes.first; node; node = node->next) {
1897                         if (node->id == id) {
1898                                 change = TRUE;
1899                                 node->update |= NODE_UPDATE_ID;
1900                                 if (node->typeinfo->updatefunc)
1901                                         node->typeinfo->updatefunc(ntree, node);
1902                                 /* clear update flag */
1903                                 node->update = 0;
1904                         }
1905                 }
1906         }
1907         
1908         for (node = ntree->nodes.first; node; node = node->next) {
1909                 nodeUpdateInternalLinks(ntree, node);
1910         }
1911         
1912         return change;
1913 }
1914
1915 void nodeUpdateInternalLinks(bNodeTree *ntree, bNode *node)
1916 {
1917         BLI_freelistN(&node->internal_links);
1918         
1919         if (node->typeinfo && node->typeinfo->update_internal_links)
1920                 node->typeinfo->update_internal_links(ntree, node);
1921 }
1922
1923
1924 /* ************* node type access ********** */
1925
1926 int nodeValid(bNodeTree *ntree, bNodeTemplate *ntemp)
1927 {
1928         bNodeType *ntype = node_get_type(ntree, ntemp->type);
1929         if (ntype) {
1930                 if (ntype->validfunc)
1931                         return ntype->validfunc(ntree, ntemp);
1932                 else
1933                         return 1;
1934         }
1935         else
1936                 return 0;
1937 }
1938
1939 const char *nodeLabel(bNode *node)
1940 {
1941         if (node->label[0] != '\0')
1942                 return node->label;
1943         else if (node->typeinfo->labelfunc)
1944                 return node->typeinfo->labelfunc(node);
1945         else
1946                 return IFACE_(node->typeinfo->name);
1947 }
1948
1949 struct bNodeTree *nodeGroupEditGet(struct bNode *node)
1950 {
1951         if (node->typeinfo->group_edit_get)
1952                 return node->typeinfo->group_edit_get(node);
1953         else
1954                 return NULL;
1955 }
1956
1957 struct bNodeTree *nodeGroupEditSet(struct bNode *node, int edit)
1958 {
1959         if (node->typeinfo->group_edit_set)
1960                 return node->typeinfo->group_edit_set(node, edit);
1961         else if (node->typeinfo->group_edit_get)
1962                 return node->typeinfo->group_edit_get(node);
1963         else
1964                 return NULL;
1965 }
1966
1967 void nodeGroupEditClear(struct bNode *node)
1968 {
1969         if (node->typeinfo->group_edit_clear)
1970                 node->typeinfo->group_edit_clear(node);
1971 }
1972
1973 struct bNodeTemplate nodeMakeTemplate(struct bNode *node)
1974 {
1975         bNodeTemplate ntemp;
1976         if (node->typeinfo->templatefunc)
1977                 return node->typeinfo->templatefunc(node);
1978         else {
1979                 ntemp.type = node->type;
1980                 return ntemp;
1981         }
1982 }
1983
1984 void node_type_base(bNodeTreeType *ttype, bNodeType *ntype, int type, const char *name, short nclass, short flag)
1985 {
1986         memset(ntype, 0, sizeof(bNodeType));
1987
1988         ntype->type = type;
1989         BLI_strncpy(ntype->name, name, sizeof(ntype->name));
1990         ntype->nclass = nclass;
1991         ntype->flag = flag;
1992
1993         /* Default muting stuff. */
1994         if (ttype)
1995                 ntype->update_internal_links = ttype->update_internal_links;
1996
1997         /* default size values */
1998         ntype->width = 140;
1999         ntype->minwidth = 100;
2000         ntype->maxwidth = 320;
2001         ntype->height = 100;
2002         ntype->minheight = 30;
2003         ntype->maxheight = FLT_MAX;
2004 }
2005
2006 void node_type_socket_templates(struct bNodeType *ntype, struct bNodeSocketTemplate *inputs, struct bNodeSocketTemplate *outputs)
2007 {
2008         ntype->inputs = inputs;
2009         ntype->outputs = outputs;
2010 }
2011
2012 void node_type_init(struct bNodeType *ntype, void (*initfunc)(struct bNodeTree *ntree, struct bNode *node, struct bNodeTemplate *ntemp))
2013 {
2014         ntype->initfunc = initfunc;
2015 }
2016
2017 void node_type_valid(struct bNodeType *ntype, int (*validfunc)(struct bNodeTree *ntree, struct bNodeTemplate *ntemp))
2018 {
2019         ntype->validfunc = validfunc;
2020 }
2021
2022 void node_type_size(struct bNodeType *ntype, int width, int minwidth, int maxwidth)
2023 {
2024         ntype->width = width;
2025         ntype->minwidth = minwidth;
2026         if (maxwidth <= minwidth)
2027                 ntype->maxwidth = FLT_MAX;
2028         else
2029                 ntype->maxwidth = maxwidth;
2030 }
2031
2032 void node_type_storage(bNodeType *ntype, const char *storagename, void (*freestoragefunc)(struct bNode *), void (*copystoragefunc)(struct bNode *, struct bNode *))
2033 {
2034         if (storagename)
2035                 BLI_strncpy(ntype->storagename, storagename, sizeof(ntype->storagename));
2036         else
2037                 ntype->storagename[0] = '\0';
2038         ntype->copystoragefunc = copystoragefunc;
2039         ntype->freestoragefunc = freestoragefunc;
2040 }
2041
2042 void node_type_label(struct bNodeType *ntype, const char *(*labelfunc)(struct bNode *))
2043 {
2044         ntype->labelfunc = labelfunc;
2045 }
2046
2047 void node_type_template(struct bNodeType *ntype, struct bNodeTemplate (*templatefunc)(struct bNode *))
2048 {
2049         ntype->templatefunc = templatefunc;
2050 }
2051
2052 void node_type_update(struct bNodeType *ntype,
2053                       void (*updatefunc)(struct bNodeTree *ntree, struct bNode *node),
2054                       void (*verifyfunc)(struct bNodeTree *ntree, struct bNode *node, struct ID *id))
2055 {
2056         ntype->updatefunc = updatefunc;
2057         ntype->verifyfunc = verifyfunc;
2058 }
2059
2060 void node_type_tree(struct bNodeType *ntype, void (*inittreefunc)(struct bNodeTree *), void (*updatetreefunc)(struct bNodeTree *))
2061 {
2062         ntype->inittreefunc = inittreefunc;
2063         ntype->updatetreefunc = updatetreefunc;
2064 }
2065
2066 void node_type_group_edit(struct bNodeType *ntype,
2067                           struct bNodeTree *(*group_edit_get)(struct bNode *node),
2068                           struct bNodeTree *(*group_edit_set)(struct bNode *node, int edit),
2069                           void (*group_edit_clear)(struct bNode *node))
2070 {
2071         ntype->group_edit_get = group_edit_get;
2072         ntype->group_edit_set = group_edit_set;
2073         ntype->group_edit_clear = group_edit_clear;
2074 }
2075
2076 void node_type_exec(struct bNodeType *ntype, void (*execfunc)(void *data, struct bNode *, struct bNodeStack **, struct bNodeStack **))
2077 {
2078         ntype->execfunc = execfunc;
2079 }
2080
2081 void node_type_exec_new(struct bNodeType *ntype,
2082                         void *(*initexecfunc)(struct bNode *node),
2083                         void (*freeexecfunc)(struct bNode *node, void *nodedata),
2084                         void (*newexecfunc)(void *data, int thread, struct bNode *, void *nodedata, struct bNodeStack **, struct bNodeStack **))
2085 {
2086         ntype->initexecfunc = initexecfunc;
2087         ntype->freeexecfunc = freeexecfunc;
2088         ntype->newexecfunc = newexecfunc;
2089 }
2090
2091 void node_type_internal_links(bNodeType *ntype, void (*update_internal_links)(bNodeTree *, bNode *))
2092 {
2093         ntype->update_internal_links = update_internal_links;
2094 }
2095
2096 void node_type_gpu(struct bNodeType *ntype, int (*gpufunc)(struct GPUMaterial *mat, struct bNode *node, struct GPUNodeStack *in, struct GPUNodeStack *out))
2097 {
2098         ntype->gpufunc = gpufunc;
2099 }
2100
2101 void node_type_gpu_ext(struct bNodeType *ntype, int (*gpuextfunc)(struct GPUMaterial *mat, struct bNode *node, void *nodedata, struct GPUNodeStack *in, struct GPUNodeStack *out))
2102 {
2103         ntype->gpuextfunc = gpuextfunc;
2104 }
2105
2106 void node_type_compatibility(struct bNodeType *ntype, short compatibility)
2107 {
2108         ntype->compatibility = compatibility;
2109 }
2110
2111 static bNodeType *is_nodetype_registered(ListBase *typelist, int type) 
2112 {
2113         bNodeType *ntype = typelist->first;
2114         
2115         for (; ntype; ntype = ntype->next)
2116                 if (ntype->type == type)
2117                         return ntype;
2118         
2119         return NULL;
2120 }
2121
2122 void nodeRegisterType(bNodeTreeType *ttype, bNodeType *ntype) 
2123 {
2124         ListBase *typelist = &(ttype->node_types);
2125         bNodeType *found = is_nodetype_registered(typelist, ntype->type);
2126         
2127         if (found == NULL)
2128                 BLI_addtail(typelist, ntype);
2129 }
2130
2131 static void registerCompositNodes(bNodeTreeType *ttype)
2132 {
2133         register_node_type_frame(ttype);
2134         register_node_type_reroute(ttype);
2135         
2136         register_node_type_cmp_group(ttype);
2137 //      register_node_type_cmp_forloop(ttype);
2138 //      register_node_type_cmp_whileloop(ttype);
2139         
2140         register_node_type_cmp_rlayers(ttype);
2141         register_node_type_cmp_image(ttype);
2142         register_node_type_cmp_texture(ttype);
2143         register_node_type_cmp_value(ttype);
2144         register_node_type_cmp_rgb(ttype);
2145         register_node_type_cmp_curve_time(ttype);
2146         register_node_type_cmp_movieclip(ttype);
2147         
2148         register_node_type_cmp_composite(ttype);
2149         register_node_type_cmp_viewer(ttype);
2150         register_node_type_cmp_splitviewer(ttype);
2151         register_node_type_cmp_output_file(ttype);
2152         register_node_type_cmp_view_levels(ttype);
2153         
2154         register_node_type_cmp_curve_rgb(ttype);
2155         register_node_type_cmp_mix_rgb(ttype);
2156         register_node_type_cmp_hue_sat(ttype);
2157         register_node_type_cmp_brightcontrast(ttype);
2158         register_node_type_cmp_gamma(ttype);
2159         register_node_type_cmp_invert(ttype);
2160         register_node_type_cmp_alphaover(ttype);
2161         register_node_type_cmp_zcombine(ttype);
2162         register_node_type_cmp_colorbalance(ttype);
2163         register_node_type_cmp_huecorrect(ttype);
2164         
2165         register_node_type_cmp_normal(ttype);
2166         register_node_type_cmp_curve_vec(ttype);
2167         register_node_type_cmp_map_value(ttype);
2168         register_node_type_cmp_normalize(ttype);
2169         
2170         register_node_type_cmp_filter(ttype);
2171         register_node_type_cmp_blur(ttype);
2172         register_node_type_cmp_dblur(ttype);
2173         register_node_type_cmp_bilateralblur(ttype);
2174         register_node_type_cmp_vecblur(ttype);
2175         register_node_type_cmp_dilateerode(ttype);
2176         register_node_type_cmp_inpaint(ttype);
2177         register_node_type_cmp_despeckle(ttype);
2178         register_node_type_cmp_defocus(ttype);
2179         
2180         register_node_type_cmp_valtorgb(ttype);
2181         register_node_type_cmp_rgbtobw(ttype);
2182         register_node_type_cmp_setalpha(ttype);
2183         register_node_type_cmp_idmask(ttype);
2184         register_node_type_cmp_math(ttype);
2185         register_node_type_cmp_seprgba(ttype);
2186         register_node_type_cmp_combrgba(ttype);
2187         register_node_type_cmp_sephsva(ttype);
2188         register_node_type_cmp_combhsva(ttype);
2189         register_node_type_cmp_sepyuva(ttype);
2190         register_node_type_cmp_combyuva(ttype);
2191         register_node_type_cmp_sepycca(ttype);
2192         register_node_type_cmp_combycca(ttype);
2193         register_node_type_cmp_premulkey(ttype);
2194         
2195         register_node_type_cmp_diff_matte(ttype);
2196         register_node_type_cmp_distance_matte(ttype);
2197         register_node_type_cmp_chroma_matte(ttype);
2198         register_node_type_cmp_color_matte(ttype);
2199         register_node_type_cmp_channel_matte(ttype);
2200         register_node_type_cmp_color_spill(ttype);
2201         register_node_type_cmp_luma_matte(ttype);
2202         register_node_type_cmp_doubleedgemask(ttype);
2203         register_node_type_cmp_keyingscreen(ttype);
2204         register_node_type_cmp_keying(ttype);
2205
2206         register_node_type_cmp_translate(ttype);
2207         register_node_type_cmp_rotate(ttype);
2208         register_node_type_cmp_scale(ttype);
2209         register_node_type_cmp_flip(ttype);
2210         register_node_type_cmp_crop(ttype);
2211         register_node_type_cmp_displace(ttype);
2212         register_node_type_cmp_mapuv(ttype);
2213         register_node_type_cmp_glare(ttype);
2214         register_node_type_cmp_tonemap(ttype);
2215         register_node_type_cmp_lensdist(ttype);
2216         register_node_type_cmp_transform(ttype);
2217         register_node_type_cmp_stabilize2d(ttype);
2218         register_node_type_cmp_moviedistortion(ttype);
2219
2220         register_node_type_cmp_colorcorrection(ttype);
2221         register_node_type_cmp_boxmask(ttype);
2222         register_node_type_cmp_ellipsemask(ttype);
2223         register_node_type_cmp_bokehimage(ttype);
2224         register_node_type_cmp_bokehblur(ttype);
2225         register_node_type_cmp_switch(ttype);
2226         register_node_type_cmp_pixelate(ttype);
2227
2228         register_node_type_cmp_mask(ttype);
2229         register_node_type_cmp_trackpos(ttype);
2230 }
2231
2232 static void registerShaderNodes(bNodeTreeType *ttype) 
2233 {
2234         register_node_type_frame(ttype);
2235         register_node_type_reroute(ttype);
2236         
2237         register_node_type_sh_group(ttype);
2238         //register_node_type_sh_forloop(ttype);
2239         //register_node_type_sh_whileloop(ttype);
2240
2241         register_node_type_sh_output(ttype);
2242         register_node_type_sh_material(ttype);
2243         register_node_type_sh_camera(ttype);
2244         register_node_type_sh_gamma(ttype);
2245         register_node_type_sh_brightcontrast(ttype);
2246         register_node_type_sh_value(ttype);
2247         register_node_type_sh_rgb(ttype);
2248         register_node_type_sh_mix_rgb(ttype);
2249         register_node_type_sh_valtorgb(ttype);
2250         register_node_type_sh_rgbtobw(ttype);
2251         register_node_type_sh_texture(ttype);
2252         register_node_type_sh_normal(ttype);
2253         register_node_type_sh_geom(ttype);
2254         register_node_type_sh_mapping(ttype);
2255         register_node_type_sh_curve_vec(ttype);
2256         register_node_type_sh_curve_rgb(ttype);
2257         register_node_type_sh_math(ttype);
2258         register_node_type_sh_vect_math(ttype);
2259         register_node_type_sh_squeeze(ttype);
2260         register_node_type_sh_material_ext(ttype);
2261         register_node_type_sh_invert(ttype);
2262         register_node_type_sh_seprgb(ttype);
2263         register_node_type_sh_combrgb(ttype);
2264         register_node_type_sh_hue_sat(ttype);
2265
2266         register_node_type_sh_attribute(ttype);
2267         register_node_type_sh_geometry(ttype);
2268         register_node_type_sh_light_path(ttype);
2269         register_node_type_sh_light_falloff(ttype);
2270         register_node_type_sh_object_info(ttype);
2271         register_node_type_sh_fresnel(ttype);
2272         register_node_type_sh_layer_weight(ttype);
2273         register_node_type_sh_tex_coord(ttype);
2274         register_node_type_sh_particle_info(ttype);
2275         register_node_type_sh_bump(ttype);
2276
2277         register_node_type_sh_background(ttype);
2278         register_node_type_sh_bsdf_anisotropic(ttype);
2279         register_node_type_sh_bsdf_diffuse(ttype);
2280         register_node_type_sh_bsdf_glossy(ttype);
2281         register_node_type_sh_bsdf_glass(ttype);
2282         register_node_type_sh_bsdf_translucent(ttype);
2283         register_node_type_sh_bsdf_transparent(ttype);
2284         register_node_type_sh_bsdf_velvet(ttype);
2285         register_node_type_sh_emission(ttype);
2286         register_node_type_sh_holdout(ttype);
2287         //register_node_type_sh_volume_transparent(ttype);
2288         //register_node_type_sh_volume_isotropic(ttype);
2289         register_node_type_sh_mix_shader(ttype);
2290         register_node_type_sh_add_shader(ttype);
2291
2292         register_node_type_sh_output_lamp(ttype);
2293         register_node_type_sh_output_material(ttype);
2294         register_node_type_sh_output_world(ttype);
2295
2296         register_node_type_sh_tex_image(ttype);
2297         register_node_type_sh_tex_environment(ttype);
2298         register_node_type_sh_tex_sky(ttype);
2299         register_node_type_sh_tex_noise(ttype);
2300         register_node_type_sh_tex_wave(ttype);
2301         register_node_type_sh_tex_voronoi(ttype);
2302         register_node_type_sh_tex_musgrave(ttype);
2303         register_node_type_sh_tex_gradient(ttype);
2304         register_node_type_sh_tex_magic(ttype);
2305         register_node_type_sh_tex_checker(ttype);
2306         register_node_type_sh_tex_brick(ttype);
2307 }
2308
2309 static void registerTextureNodes(bNodeTreeType *ttype)
2310 {
2311         register_node_type_frame(ttype);
2312         register_node_type_reroute(ttype);
2313         
2314         register_node_type_tex_group(ttype);
2315 //      register_node_type_tex_forloop(ttype);
2316 //      register_node_type_tex_whileloop(ttype);
2317         
2318         register_node_type_tex_math(ttype);
2319         register_node_type_tex_mix_rgb(ttype);
2320         register_node_type_tex_valtorgb(ttype);
2321         register_node_type_tex_rgbtobw(ttype);
2322         register_node_type_tex_valtonor(ttype);
2323         register_node_type_tex_curve_rgb(ttype);
2324         register_node_type_tex_curve_time(ttype);
2325         register_node_type_tex_invert(ttype);
2326         register_node_type_tex_hue_sat(ttype);
2327         register_node_type_tex_coord(ttype);
2328         register_node_type_tex_distance(ttype);
2329         register_node_type_tex_compose(ttype);
2330         register_node_type_tex_decompose(ttype);
2331         
2332         register_node_type_tex_output(ttype);
2333         register_node_type_tex_viewer(ttype);
2334         
2335         register_node_type_tex_checker(ttype);
2336         register_node_type_tex_texture(ttype);
2337         register_node_type_tex_bricks(ttype);
2338         register_node_type_tex_image(ttype);
2339         
2340         register_node_type_tex_rotate(ttype);
2341         register_node_type_tex_translate(ttype);
2342         register_node_type_tex_scale(ttype);
2343         register_node_type_tex_at(ttype);
2344         
2345         register_node_type_tex_proc_voronoi(ttype);
2346         register_node_type_tex_proc_blend(ttype);
2347         register_node_type_tex_proc_magic(ttype);
2348         register_node_type_tex_proc_marble(ttype);
2349         register_node_type_tex_proc_clouds(ttype);
2350         register_node_type_tex_proc_wood(ttype);
2351         register_node_type_tex_proc_musgrave(ttype);
2352         register_node_type_tex_proc_noise(ttype);
2353         register_node_type_tex_proc_stucci(ttype);
2354         register_node_type_tex_proc_distnoise(ttype);
2355 }
2356
2357 static void free_typeinfos(ListBase *list)
2358 {
2359         bNodeType *ntype, *next;
2360         for (ntype = list->first; ntype; ntype = next) {
2361                 next = ntype->next;
2362
2363                 if (ntype->needs_free)
2364                         MEM_freeN(ntype);
2365         }
2366 }
2367
2368 void init_nodesystem(void) 
2369 {
2370         /* init clipboard */
2371         node_clipboard.nodes.first = node_clipboard.nodes.last = NULL;
2372         node_clipboard.links.first = node_clipboard.links.last = NULL;
2373         
2374         registerCompositNodes(ntreeGetType(NTREE_COMPOSIT));
2375         registerShaderNodes(ntreeGetType(NTREE_SHADER));
2376         registerTextureNodes(ntreeGetType(NTREE_TEXTURE));
2377 }
2378
2379 void free_nodesystem(void) 
2380 {
2381         free_typeinfos(&ntreeGetType(NTREE_COMPOSIT)->node_types);
2382         free_typeinfos(&ntreeGetType(NTREE_SHADER)->node_types);
2383         free_typeinfos(&ntreeGetType(NTREE_TEXTURE)->node_types);
2384 }
2385
2386 /* called from BKE_scene_unlink, when deleting a scene goes over all scenes
2387  * other than the input, checks if they have render layer nodes referencing
2388  * the to-be-deleted scene, and resets them to NULL. */
2389
2390 /* XXX needs to get current scene then! */
2391 void clear_scene_in_nodes(Main *bmain, Scene *sce)
2392 {
2393         Scene *sce1;
2394         bNode *node;
2395
2396         for (sce1 = bmain->scene.first; sce1; sce1 = sce1->id.next) {
2397                 if (sce1 != sce) {
2398                         if (sce1->nodetree) {
2399                                 for (node = sce1->nodetree->nodes.first; node; node = node->next) {
2400                                         if (node->type == CMP_NODE_R_LAYERS) {
2401                                                 Scene *nodesce = (Scene *)node->id;
2402                                                 
2403                                                 if (nodesce == sce) node->id = NULL;
2404                                         }
2405                                 }
2406                         }
2407                 }
2408         }
2409 }