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