doxygen: blender/editors tagged.
[blender.git] / source / blender / editors / space_file / filelist.c
1 /*
2  * $Id$
3  *
4  * ***** BEGIN GPL LICENSE BLOCK *****
5  *
6  * This program is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU General Public License
8  * as published by the Free Software Foundation; either version 2
9  * of the License, or (at your option) any later version. 
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software Foundation,
18  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
19  *
20  * The Original Code is Copyright (C) 2007 Blender Foundation.
21  * All rights reserved.
22  *
23  * The Original Code is: all of this file.
24  *
25  * Contributor(s): none yet.
26  *
27  * ***** END GPL LICENSE BLOCK *****
28  */
29
30 /** \file blender/editors/space_file/filelist.c
31  *  \ingroup spfile
32  */
33
34
35 /* global includes */
36
37 #include <stdlib.h>
38 #include <math.h>
39 #include <string.h>
40
41 #ifndef WIN32
42 #include <unistd.h>
43 #else
44 #include <io.h>
45 #include <direct.h>
46 #endif   
47 #include "MEM_guardedalloc.h"
48
49 #include "BLI_blenlib.h"
50 #include "BLI_linklist.h"
51 #include "BLI_storage_types.h"
52 #include "BLI_threads.h"
53 #include "BLI_utildefines.h"
54
55 #ifdef WIN32
56 #include "BLI_winstuff.h"
57 #endif
58
59 #include "BKE_context.h"
60 #include "BKE_global.h"
61 #include "BKE_library.h"
62 #include "BKE_main.h"
63 #include "BKE_report.h"
64 #include "BLO_readfile.h"
65 #include "BKE_idcode.h"
66
67 #include "DNA_space_types.h"
68
69 #include "ED_fileselect.h"
70 #include "ED_datafiles.h"
71
72 #include "IMB_imbuf.h"
73 #include "IMB_imbuf_types.h"
74 #include "IMB_thumbs.h"
75
76 #include "PIL_time.h"
77
78 #include "WM_api.h"
79 #include "WM_types.h"
80
81 #include "UI_resources.h"
82
83 #include "filelist.h"
84
85 /* max length of library group name within filesel */
86 #define GROUP_MAX 32
87
88 struct FileList;
89
90 typedef struct FileImage {
91         struct FileImage *next, *prev;
92         char path[FILE_MAX];
93         unsigned int flags;
94         int index;
95         short done;
96         ImBuf *img;
97 } FileImage;
98
99 typedef struct ThumbnailJob {
100         ListBase loadimages;
101         short *stop;
102         short *do_update;
103         struct FileList* filelist;
104         ReportList reports;
105 } ThumbnailJob;
106
107 typedef struct FileList
108 {
109         struct direntry *filelist;
110         int *fidx;
111         int numfiles;
112         int numfiltered;
113         char dir[FILE_MAX];
114         short prv_w;
115         short prv_h;
116         short hide_dot;
117         unsigned int filter;
118         char filter_glob[64];
119         short changed;
120
121         struct BlendHandle *libfiledata;
122         short hide_parent;
123
124         void (*readf)(struct FileList *);
125         int  (*filterf)(struct direntry* file, const char* dir, unsigned int filter, short hide_dot);
126
127 } FileList;
128
129 typedef struct FolderList
130 {
131         struct FolderList *next, *prev;
132         char *foldername;
133 } FolderList;
134
135 #define SPECIAL_IMG_SIZE 48
136 #define SPECIAL_IMG_ROWS 4
137 #define SPECIAL_IMG_COLS 4
138
139 #define SPECIAL_IMG_FOLDER 0
140 #define SPECIAL_IMG_PARENT 1
141 #define SPECIAL_IMG_REFRESH 2
142 #define SPECIAL_IMG_BLENDFILE 3
143 #define SPECIAL_IMG_SOUNDFILE 4
144 #define SPECIAL_IMG_MOVIEFILE 5
145 #define SPECIAL_IMG_PYTHONFILE 6
146 #define SPECIAL_IMG_TEXTFILE 7
147 #define SPECIAL_IMG_FONTFILE 8
148 #define SPECIAL_IMG_UNKNOWNFILE 9
149 #define SPECIAL_IMG_LOADING 10
150 #define SPECIAL_IMG_MAX SPECIAL_IMG_LOADING + 1
151
152 static ImBuf* gSpecialFileImages[SPECIAL_IMG_MAX];
153
154
155 /* ******************* SORT ******************* */
156
157 static int compare_name(const void *a1, const void *a2)
158 {
159         const struct direntry *entry1=a1, *entry2=a2;
160
161         /* type is equal to stat.st_mode */
162
163         if (S_ISDIR(entry1->type)){
164                 if (S_ISDIR(entry2->type)==0) return (-1);
165         } else{
166                 if (S_ISDIR(entry2->type)) return (1);
167         }
168         if (S_ISREG(entry1->type)){
169                 if (S_ISREG(entry2->type)==0) return (-1);
170         } else{
171                 if (S_ISREG(entry2->type)) return (1);
172         }
173         if ((entry1->type & S_IFMT) < (entry2->type & S_IFMT)) return (-1);
174         if ((entry1->type & S_IFMT) > (entry2->type & S_IFMT)) return (1);
175         
176         /* make sure "." and ".." are always first */
177         if( strcmp(entry1->relname, ".")==0 ) return (-1);
178         if( strcmp(entry2->relname, ".")==0 ) return (1);
179         if( strcmp(entry1->relname, "..")==0 ) return (-1);
180         if( strcmp(entry2->relname, "..")==0 ) return (1);
181         
182         return (BLI_natstrcmp(entry1->relname,entry2->relname));
183 }
184
185 static int compare_date(const void *a1, const void *a2) 
186 {
187         const struct direntry *entry1=a1, *entry2=a2;
188         
189         /* type is equal to stat.st_mode */
190
191         if (S_ISDIR(entry1->type)){
192                 if (S_ISDIR(entry2->type)==0) return (-1);
193         } else{
194                 if (S_ISDIR(entry2->type)) return (1);
195         }
196         if (S_ISREG(entry1->type)){
197                 if (S_ISREG(entry2->type)==0) return (-1);
198         } else{
199                 if (S_ISREG(entry2->type)) return (1);
200         }
201         if ((entry1->type & S_IFMT) < (entry2->type & S_IFMT)) return (-1);
202         if ((entry1->type & S_IFMT) > (entry2->type & S_IFMT)) return (1);
203
204         /* make sure "." and ".." are always first */
205         if( strcmp(entry1->relname, ".")==0 ) return (-1);
206         if( strcmp(entry2->relname, ".")==0 ) return (1);
207         if( strcmp(entry1->relname, "..")==0 ) return (-1);
208         if( strcmp(entry2->relname, "..")==0 ) return (1);
209         
210         if ( entry1->s.st_mtime < entry2->s.st_mtime) return 1;
211         if ( entry1->s.st_mtime > entry2->s.st_mtime) return -1;
212         
213         else return BLI_natstrcmp(entry1->relname,entry2->relname);
214 }
215
216 static int compare_size(const void *a1, const void *a2) 
217 {
218         const struct direntry *entry1=a1, *entry2=a2;
219
220         /* type is equal to stat.st_mode */
221
222         if (S_ISDIR(entry1->type)){
223                 if (S_ISDIR(entry2->type)==0) return (-1);
224         } else{
225                 if (S_ISDIR(entry2->type)) return (1);
226         }
227         if (S_ISREG(entry1->type)){
228                 if (S_ISREG(entry2->type)==0) return (-1);
229         } else{
230                 if (S_ISREG(entry2->type)) return (1);
231         }
232         if ((entry1->type & S_IFMT) < (entry2->type & S_IFMT)) return (-1);
233         if ((entry1->type & S_IFMT) > (entry2->type & S_IFMT)) return (1);
234
235         /* make sure "." and ".." are always first */
236         if( strcmp(entry1->relname, ".")==0 ) return (-1);
237         if( strcmp(entry2->relname, ".")==0 ) return (1);
238         if( strcmp(entry1->relname, "..")==0 ) return (-1);
239         if( strcmp(entry2->relname, "..")==0 ) return (1);
240         
241         if ( entry1->s.st_size < entry2->s.st_size) return 1;
242         if ( entry1->s.st_size > entry2->s.st_size) return -1;
243         else return BLI_natstrcmp(entry1->relname,entry2->relname);
244 }
245
246 static int compare_extension(const void *a1, const void *a2) {
247         const struct direntry *entry1=a1, *entry2=a2;
248         const char *sufix1, *sufix2;
249         const char *nil="";
250
251         if (!(sufix1= strstr (entry1->relname, ".blend.gz"))) 
252                 sufix1= strrchr (entry1->relname, '.');
253         if (!(sufix2= strstr (entry2->relname, ".blend.gz")))
254                 sufix2= strrchr (entry2->relname, '.');
255         if (!sufix1) sufix1= nil;
256         if (!sufix2) sufix2= nil;
257
258         /* type is equal to stat.st_mode */
259
260         if (S_ISDIR(entry1->type)){
261                 if (S_ISDIR(entry2->type)==0) return (-1);
262         } else{
263                 if (S_ISDIR(entry2->type)) return (1);
264         }
265         if (S_ISREG(entry1->type)){
266                 if (S_ISREG(entry2->type)==0) return (-1);
267         } else{
268                 if (S_ISREG(entry2->type)) return (1);
269         }
270         if ((entry1->type & S_IFMT) < (entry2->type & S_IFMT)) return (-1);
271         if ((entry1->type & S_IFMT) > (entry2->type & S_IFMT)) return (1);
272         
273         /* make sure "." and ".." are always first */
274         if( strcmp(entry1->relname, ".")==0 ) return (-1);
275         if( strcmp(entry2->relname, ".")==0 ) return (1);
276         if( strcmp(entry1->relname, "..")==0 ) return (-1);
277         if( strcmp(entry2->relname, "..")==0 ) return (1);
278         
279         return (BLI_strcasecmp(sufix1, sufix2));
280 }
281
282 static int is_hidden_file(const char* filename, short hide_dot)
283 {
284         int is_hidden=0;
285
286         if (hide_dot) {
287                 if(filename[0]=='.' && filename[1]!='.' && filename[1]!=0) {
288                         is_hidden=1; /* ignore .file */
289                 } else if (((filename[0] == '.') && (filename[1] == 0) )) {
290                         is_hidden=1; /* ignore . */
291                 } else {
292                         int len=strlen(filename);
293                         if( (len>0) && (filename[len-1]=='~') ) {
294                                 is_hidden=1;  /* ignore file~ */
295                         }
296                 } 
297         } else {
298                 if (((filename[0] == '.') && (filename[1] == 0) )) {
299                         is_hidden=1; /* ignore . */
300                 }
301         }
302         return is_hidden;
303 }
304
305 static int is_filtered_file(struct direntry* file, const char* UNUSED(dir), unsigned int filter, short hide_dot)
306 {
307         int is_filtered=0;
308         if (filter) {
309                 if (file->flags & filter) {
310                         is_filtered=1;
311                 } else if (file->type & S_IFDIR) {
312                         if (filter & FOLDERFILE) {
313                                 is_filtered = 1;
314                         }
315                 }
316         } else {
317                 is_filtered = 1;
318         }
319         return is_filtered && !is_hidden_file(file->relname, hide_dot);
320 }
321
322 static int is_filtered_lib(struct direntry* file, const char* dir, unsigned int filter, short hide_dot)
323 {
324         int is_filtered=0;
325         char tdir[FILE_MAX], tgroup[GROUP_MAX];
326         if (BLO_is_a_library(dir, tdir, tgroup)) {
327                 is_filtered = !is_hidden_file(file->relname, hide_dot);
328         } else {
329                 is_filtered = is_filtered_file(file, dir, filter, hide_dot);
330         }
331         return is_filtered;
332 }
333
334 static int is_filtered_main(struct direntry* file, const char* UNUSED(dir), unsigned int UNUSED(filter), short hide_dot)
335 {
336         return !is_hidden_file(file->relname, hide_dot);
337 }
338
339 void filelist_filter(FileList* filelist)
340 {
341         int num_filtered = 0;
342         int i, j;
343         
344         if (!filelist->filelist)
345                 return;
346
347         // How many files are left after filter ?
348         for (i = 0; i < filelist->numfiles; ++i) {
349                 struct direntry *file = &filelist->filelist[i];
350                 if ( filelist->filterf(file, filelist->dir, filelist->filter, filelist->hide_dot) ) {
351                         num_filtered++;
352                 } 
353         }
354         
355         if (filelist->fidx) {
356                 MEM_freeN(filelist->fidx);
357                 filelist->fidx = NULL;
358         }
359         filelist->fidx = (int *)MEM_callocN(num_filtered*sizeof(int), "filteridx");
360         filelist->numfiltered = num_filtered;
361
362         for (i = 0, j=0; i < filelist->numfiles; ++i) {
363                 struct direntry *file = &filelist->filelist[i];
364                 if ( filelist->filterf(file, filelist->dir, filelist->filter, filelist->hide_dot) ) {
365                         filelist->fidx[j++] = i;
366                 }
367         }
368 }
369
370 void filelist_init_icons(void)
371 {
372         short x, y, k;
373         ImBuf *bbuf;
374         ImBuf *ibuf;
375         bbuf = IMB_ibImageFromMemory((unsigned char*)datatoc_prvicons, datatoc_prvicons_size, IB_rect);
376         if (bbuf) {
377                 for (y=0; y<SPECIAL_IMG_ROWS; y++) {
378                         for (x=0; x<SPECIAL_IMG_COLS; x++) {
379                                 int tile = SPECIAL_IMG_COLS*y + x; 
380                                 if (tile < SPECIAL_IMG_MAX) {
381                                         ibuf = IMB_allocImBuf(SPECIAL_IMG_SIZE, SPECIAL_IMG_SIZE, 32, IB_rect);
382                                         for (k=0; k<SPECIAL_IMG_SIZE; k++) {
383                                                 memcpy(&ibuf->rect[k*SPECIAL_IMG_SIZE], &bbuf->rect[(k+y*SPECIAL_IMG_SIZE)*SPECIAL_IMG_SIZE*SPECIAL_IMG_COLS+x*SPECIAL_IMG_SIZE], SPECIAL_IMG_SIZE*sizeof(int));
384                                         }
385                                         gSpecialFileImages[tile] = ibuf;
386                                 }
387                         }
388                 }
389                 IMB_freeImBuf(bbuf);
390         }
391 }
392
393 void filelist_free_icons(void)
394 {
395         int i;
396         for (i=0; i < SPECIAL_IMG_MAX; ++i) {
397                 IMB_freeImBuf(gSpecialFileImages[i]);
398                 gSpecialFileImages[i] = NULL;
399         }
400 }
401
402 //-----------------FOLDERLIST (previous/next) --------------//
403 struct ListBase* folderlist_new(void)
404 {
405         ListBase* p = MEM_callocN( sizeof(ListBase), "folderlist" );
406         return p;
407 }
408
409 void folderlist_popdir(struct ListBase* folderlist, char *dir)
410 {
411         const char *prev_dir;
412         struct FolderList *folder;
413         folder = folderlist->last;
414
415         if(folder){
416                 // remove the current directory
417                 MEM_freeN(folder->foldername);
418                 BLI_freelinkN(folderlist, folder);
419
420                 folder = folderlist->last;
421                 if(folder){
422                         prev_dir = folder->foldername;
423                         BLI_strncpy(dir, prev_dir, FILE_MAXDIR);
424                 }
425         }
426         // delete the folder next or use setdir directly before PREVIOUS OP
427 }
428
429 void folderlist_pushdir(ListBase* folderlist, const char *dir)
430 {
431         struct FolderList *folder, *previous_folder;
432         previous_folder = folderlist->last;
433
434         // check if already exists
435         if(previous_folder && previous_folder->foldername){
436                 if(! strcmp(previous_folder->foldername, dir)){
437                         return;
438                 }
439         }
440
441         // create next folder element
442         folder = (FolderList*)MEM_mallocN(sizeof(FolderList),"FolderList");
443         folder->foldername = (char*)MEM_mallocN(sizeof(char)*(strlen(dir)+1), "foldername");
444         folder->foldername[0] = '\0';
445
446         BLI_strncpy(folder->foldername, dir, FILE_MAXDIR);
447
448         // add it to the end of the list
449         BLI_addtail(folderlist, folder);
450 }
451
452 int folderlist_clear_next(struct SpaceFile *sfile)
453 {
454         struct FolderList *folder;
455
456         // if there is no folder_next there is nothing we can clear
457         if (!sfile->folders_next)
458                 return 0;
459
460         // if previous_folder, next_folder or refresh_folder operators are executed it doesn't clear folder_next
461         folder = sfile->folders_prev->last;
462         if ((!folder) ||(!strcmp(folder->foldername, sfile->params->dir)))
463                 return 0;
464
465         // eventually clear flist->folders_next
466         return 1;
467 }
468
469 /* not listbase itself */
470 void folderlist_free(ListBase* folderlist)
471 {
472         FolderList *folder;
473         if (folderlist){
474                 for(folder= folderlist->first; folder; folder= folder->next)
475                         MEM_freeN(folder->foldername);
476                 BLI_freelistN(folderlist);
477         }
478         folderlist= NULL;
479 }
480
481 ListBase *folderlist_duplicate(ListBase* folderlist)
482 {
483         
484         if (folderlist) {
485                 ListBase *folderlistn= MEM_callocN(sizeof(ListBase), "copy folderlist");
486                 FolderList *folder;
487                 
488                 BLI_duplicatelist(folderlistn, folderlist);
489                 
490                 for(folder= folderlistn->first; folder; folder= folder->next) {
491                         folder->foldername= MEM_dupallocN(folder->foldername);
492                 }
493                 return folderlistn;
494         }
495         return NULL;
496 }
497
498
499 static void filelist_read_main(struct FileList* filelist);
500 static void filelist_read_library(struct FileList* filelist);
501 static void filelist_read_dir(struct FileList* filelist);
502
503 //------------------FILELIST------------------------//
504 struct FileList*        filelist_new(short type)
505 {
506         FileList* p = MEM_callocN( sizeof(FileList), "filelist" );
507         switch(type) {
508                 case FILE_MAIN:
509                         p->readf = filelist_read_main;
510                         p->filterf = is_filtered_main;
511                         break;
512                 case FILE_LOADLIB:
513                         p->readf = filelist_read_library;
514                         p->filterf = is_filtered_lib;
515                         break;
516                 default:
517                         p->readf = filelist_read_dir;
518                         p->filterf = is_filtered_file;
519
520         }
521         return p;
522 }
523
524
525 void filelist_free(struct FileList* filelist)
526 {
527         int i;
528
529         if (!filelist) {
530                 printf("Attempting to delete empty filelist.\n");
531                 return;
532         }
533         
534         if (filelist->fidx) {
535                 MEM_freeN(filelist->fidx);
536                 filelist->fidx = NULL;
537         }
538
539         for (i = 0; i < filelist->numfiles; ++i) {
540                 if (filelist->filelist[i].image) {                      
541                         IMB_freeImBuf(filelist->filelist[i].image);
542                 }
543                 filelist->filelist[i].image = 0;
544                 if (filelist->filelist[i].relname)
545                         MEM_freeN(filelist->filelist[i].relname);
546                 if (filelist->filelist[i].path)
547                         MEM_freeN(filelist->filelist[i].path);
548                 filelist->filelist[i].relname = 0;
549                 if (filelist->filelist[i].string)
550                         MEM_freeN(filelist->filelist[i].string);
551                 filelist->filelist[i].string = 0;
552         }
553         
554         filelist->numfiles = 0;
555         free(filelist->filelist);
556         filelist->filelist = 0; 
557         filelist->filter = 0;
558         filelist->filter_glob[0] = '\0';
559         filelist->numfiltered =0;
560         filelist->hide_dot =0;
561 }
562
563 void filelist_freelib(struct FileList* filelist)
564 {
565         if(filelist->libfiledata)       
566                 BLO_blendhandle_close(filelist->libfiledata);
567         filelist->libfiledata= 0;
568 }
569
570 struct BlendHandle *filelist_lib(struct FileList* filelist)
571 {
572         return filelist->libfiledata;
573 }
574
575 int     filelist_numfiles(struct FileList* filelist)
576 {
577         return filelist->numfiltered;
578 }
579
580 const char * filelist_dir(struct FileList* filelist)
581 {
582         return filelist->dir;
583 }
584
585 void filelist_setdir(struct FileList* filelist, const char *dir)
586 {
587         BLI_strncpy(filelist->dir, dir, FILE_MAX);
588 }
589
590 void filelist_imgsize(struct FileList* filelist, short w, short h)
591 {
592         filelist->prv_w = w;
593         filelist->prv_h = h;
594 }
595
596 short filelist_changed(struct FileList* filelist)
597 {
598         return filelist->changed;
599 }
600
601 static struct ImBuf * filelist_loadimage(struct FileList* filelist, int index)
602 {
603         ImBuf *imb = NULL;
604         int fidx = 0;
605         
606         if ( (index < 0) || (index >= filelist->numfiltered) ) {
607                 return NULL;
608         }
609         fidx = filelist->fidx[index];
610         imb = filelist->filelist[fidx].image;
611         if (!imb)
612         {
613                 if ( (filelist->filelist[fidx].flags & IMAGEFILE) || (filelist->filelist[fidx].flags & MOVIEFILE) ) {
614                         imb = IMB_thumb_read(filelist->filelist[fidx].path, THB_NORMAL);
615                 } 
616                 if (imb) {
617                         filelist->filelist[fidx].image = imb;
618                 } 
619         }
620         return imb;
621 }
622
623 struct ImBuf * filelist_getimage(struct FileList* filelist, int index)
624 {
625         ImBuf* ibuf = NULL;
626         int fidx = 0;   
627         if ( (index < 0) || (index >= filelist->numfiltered) ) {
628                 return NULL;
629         }
630         fidx = filelist->fidx[index];
631         ibuf = filelist->filelist[fidx].image;
632
633         return ibuf;
634 }
635
636 struct ImBuf * filelist_geticon(struct FileList* filelist, int index)
637 {
638         ImBuf* ibuf= NULL;
639         struct direntry *file= NULL;
640         int fidx = 0;   
641         if ( (index < 0) || (index >= filelist->numfiltered) ) {
642                 return NULL;
643         }
644         fidx = filelist->fidx[index];
645         file = &filelist->filelist[fidx];
646         if (file->type & S_IFDIR) {
647                 if ( strcmp(filelist->filelist[fidx].relname, "..") == 0) {
648                         ibuf = gSpecialFileImages[SPECIAL_IMG_PARENT];
649                 } else if  ( strcmp(filelist->filelist[fidx].relname, ".") == 0) {
650                         ibuf = gSpecialFileImages[SPECIAL_IMG_REFRESH];
651                 } else {
652                         ibuf = gSpecialFileImages[SPECIAL_IMG_FOLDER];
653                 }
654         } else {
655                 ibuf = gSpecialFileImages[SPECIAL_IMG_UNKNOWNFILE];
656         }
657
658         if (file->flags & BLENDERFILE) {
659                 ibuf = gSpecialFileImages[SPECIAL_IMG_BLENDFILE];
660         } else if ( (file->flags & MOVIEFILE) || (file->flags & MOVIEFILE_ICON) ) {
661                 ibuf = gSpecialFileImages[SPECIAL_IMG_MOVIEFILE];
662         } else if (file->flags & SOUNDFILE) {
663                 ibuf = gSpecialFileImages[SPECIAL_IMG_SOUNDFILE];
664         } else if (file->flags & PYSCRIPTFILE) {
665                 ibuf = gSpecialFileImages[SPECIAL_IMG_PYTHONFILE];
666         } else if (file->flags & FTFONTFILE) {
667                 ibuf = gSpecialFileImages[SPECIAL_IMG_FONTFILE];
668         } else if (file->flags & TEXTFILE) {
669                 ibuf = gSpecialFileImages[SPECIAL_IMG_TEXTFILE];
670         } else if (file->flags & IMAGEFILE) {
671                 ibuf = gSpecialFileImages[SPECIAL_IMG_LOADING];
672         }
673
674         return ibuf;
675 }
676
677 struct direntry * filelist_file(struct FileList* filelist, int index)
678 {
679         int fidx = 0;
680         
681         if ( (index < 0) || (index >= filelist->numfiltered) ) {
682                 return NULL;
683         }
684         fidx = filelist->fidx[index];
685
686         return &filelist->filelist[fidx];
687 }
688
689 int filelist_find(struct FileList* filelist, char *file)
690 {
691         int index = -1;
692         int i;
693         int fidx = -1;
694         
695         if (!filelist->fidx) 
696                 return fidx;
697
698         
699         for (i = 0; i < filelist->numfiles; ++i) {
700                 if ( strcmp(filelist->filelist[i].relname, file) == 0) {
701                         index = i;
702                         break;
703                 }
704         }
705
706         for (i = 0; i < filelist->numfiltered; ++i) {
707                 if (filelist->fidx[i] == index) {
708                         fidx = i;
709                         break;
710                 }
711         }
712         return fidx;
713 }
714
715 void filelist_hidedot(struct FileList* filelist, short hide)
716 {
717         filelist->hide_dot = hide;
718 }
719
720 void filelist_setfilter(struct FileList* filelist, unsigned int filter)
721 {
722         filelist->filter = filter;
723 }
724
725 void filelist_setfilter_types(struct FileList* filelist, const char *filter_glob)
726 {
727         BLI_strncpy(filelist->filter_glob, filter_glob, sizeof(filelist->filter_glob));
728 }
729
730 static int file_is_blend_backup(const char *str)
731 {
732         short a, b;
733         int retval= 0;
734         
735         a= strlen(str);
736         b= 7;
737         
738         if(a==0 || b>=a);
739         else {
740                 char *loc;
741                 
742                 if(a > b+1)
743                         b++;
744                 
745                 /* allow .blend1 .blend2 .blend32 */
746                 loc= BLI_strcasestr(str+a-b, ".blend");
747                 
748                 if(loc)
749                         retval= 1;
750         }
751         
752         return (retval);
753 }
754
755
756 static int file_extension_type(char *relname)
757 {
758         if(BLO_has_bfile_extension(relname)) {
759                 return BLENDERFILE;
760         } else if(file_is_blend_backup(relname)) {
761                 return BLENDERFILE_BACKUP;
762         } else if(BLI_testextensie(relname, ".py")) {
763                 return PYSCRIPTFILE;
764         } else if(BLI_testextensie(relname, ".txt")
765                           || BLI_testextensie(relname, ".glsl")
766                           || BLI_testextensie(relname, ".data")) {
767                 return TEXTFILE;
768         } else if( BLI_testextensie(relname, ".ttf")
769                           || BLI_testextensie(relname, ".ttc")
770                           || BLI_testextensie(relname, ".pfb")
771                           || BLI_testextensie(relname, ".otf")
772                           || BLI_testextensie(relname, ".otc")) {
773                 return FTFONTFILE;                      
774         } else if(BLI_testextensie(relname, ".btx")) {
775                 return BTXFILE;
776         } else if(BLI_testextensie(relname, ".dae")) {
777                 return COLLADAFILE;
778         } else if(BLI_testextensie_array(relname, imb_ext_image)
779                           || (G.have_quicktime && BLI_testextensie_array(relname, imb_ext_image_qt))) {
780                 return IMAGEFILE;                       
781         } else if(BLI_testextensie_array(relname, imb_ext_movie)) {
782                 return MOVIEFILE;                       
783         } else if(BLI_testextensie_array(relname, imb_ext_audio)) {
784                 return SOUNDFILE;
785         } 
786         return 0;
787 }
788
789 int ED_file_extension_icon(char *relname)
790 {
791         int type= file_extension_type(relname);
792         
793         if (type == BLENDERFILE || type==BLENDERFILE_BACKUP)
794                 return ICON_FILE_BLEND;
795         else if (type ==  IMAGEFILE)
796                 return ICON_FILE_IMAGE;
797         else if (type ==  MOVIEFILE)
798                 return ICON_FILE_MOVIE;
799         else if (type ==  PYSCRIPTFILE)
800                 return ICON_FILE_SCRIPT;
801         else if (type ==  PYSCRIPTFILE)
802                 return ICON_FILE_SCRIPT;
803         else if (type ==  SOUNDFILE) 
804                 return ICON_FILE_SOUND;
805         else if (type ==  FTFONTFILE) 
806                 return ICON_FILE_FONT;
807         else if (type ==  BTXFILE) 
808                 return ICON_FILE_BLANK;
809         else if (type ==  COLLADAFILE) 
810                 return ICON_FILE_BLANK;
811         
812         return ICON_FILE_BLANK;
813 }
814
815 static void filelist_setfiletypes(struct FileList* filelist)
816 {
817         struct direntry *file;
818         int num;
819         
820         file= filelist->filelist;
821         
822         for(num=0; num<filelist->numfiles; num++, file++) {
823                 file->type= file->s.st_mode;    /* restore the mess below */ 
824                 
825                 /* Don't check extensions for directories */ 
826                 if (file->type & S_IFDIR) {
827                         continue;
828                 }
829                 file->flags = file_extension_type(file->relname);
830                 
831                 if(filelist->filter_glob
832                    && BLI_testextensie_glob(file->relname, filelist->filter_glob)) {
833                         file->flags= OPERATORFILE;
834                 }
835                 
836         }
837 }
838
839 static void filelist_read_dir(struct FileList* filelist)
840 {
841         char wdir[FILE_MAX]= "";
842         if (!filelist) return;
843
844         filelist->fidx = 0;
845         filelist->filelist = 0;
846
847         BLI_getwdN(wdir, sizeof(wdir));  /* backup cwd to restore after */
848
849         BLI_cleanup_dir(G.main->name, filelist->dir);
850         filelist->numfiles = BLI_getdir(filelist->dir, &(filelist->filelist));
851
852         if(!chdir(wdir)) {} /* fix warning about not checking return value */
853         filelist_setfiletypes(filelist);
854         filelist_filter(filelist);
855 }
856
857 static void filelist_read_main(struct FileList* filelist)
858 {
859         if (!filelist) return;
860         filelist_from_main(filelist);
861 }
862
863 static void filelist_read_library(struct FileList* filelist)
864 {
865         if (!filelist) return;
866         BLI_cleanup_dir(G.main->name, filelist->dir);
867         filelist_from_library(filelist);
868         if(!filelist->libfiledata) {
869                 int num;
870                 struct direntry *file;
871
872                 BLI_make_exist(filelist->dir);
873                 filelist_read_dir(filelist);
874                 file = filelist->filelist;
875                 for(num=0; num<filelist->numfiles; num++, file++) {
876                         if(BLO_has_bfile_extension(file->relname)) {
877                                 char name[FILE_MAXDIR+FILE_MAXFILE];
878                         
879                                 BLI_strncpy(name, filelist->dir, sizeof(name));
880                                 strcat(name, file->relname);
881                                 
882                                 /* prevent current file being used as acceptable dir */
883                                 if (BLI_streq(G.main->name, name)==0) {
884                                         file->type &= ~S_IFMT;
885                                         file->type |= S_IFDIR;
886                                 }
887                         }
888                 }
889         }
890 }
891
892 void filelist_readdir(struct FileList* filelist)
893 {
894         filelist->readf(filelist);
895 }
896
897 int filelist_empty(struct FileList* filelist)
898 {       
899         return filelist->filelist == 0;
900 }
901
902 void filelist_parent(struct FileList* filelist)
903 {
904         BLI_parent_dir(filelist->dir);
905         BLI_make_exist(filelist->dir);
906         filelist_readdir(filelist);
907 }
908
909
910 void filelist_swapselect(struct FileList* filelist)
911 {
912         struct direntry *file;
913         int num, act= 0;
914         
915         file= filelist->filelist;
916         for(num=0; num<filelist->numfiles; num++, file++) {
917                 if(file->flags & ACTIVEFILE) {
918                         act= 1;
919                         break;
920                 }
921         }
922         file= filelist->filelist+2;
923         for(num=2; num<filelist->numfiles; num++, file++) {
924                 if(act) file->flags &= ~ACTIVEFILE;
925                 else file->flags |= ACTIVEFILE;
926         }
927 }
928
929 void filelist_sort(struct FileList* filelist, short sort)
930 {
931         switch(sort) {
932         case FILE_SORT_ALPHA:
933                 qsort(filelist->filelist, filelist->numfiles, sizeof(struct direntry), compare_name);   
934                 break;
935         case FILE_SORT_TIME:
936                 qsort(filelist->filelist, filelist->numfiles, sizeof(struct direntry), compare_date);   
937                 break;
938         case FILE_SORT_SIZE:
939                 qsort(filelist->filelist, filelist->numfiles, sizeof(struct direntry), compare_size);   
940                 break;
941         case FILE_SORT_EXTENSION:
942                 qsort(filelist->filelist, filelist->numfiles, sizeof(struct direntry), compare_extension);      
943         }
944
945         filelist_filter(filelist);
946 }
947
948
949 int filelist_islibrary(struct FileList* filelist, char* dir, char* group)
950 {
951         return BLO_is_a_library(filelist->dir, dir, group);
952 }
953
954 static int groupname_to_code(char *group)
955 {
956         char buf[32];
957         char *lslash;
958         
959         BLI_strncpy(buf, group, sizeof(buf));
960         lslash= BLI_last_slash(buf);
961         if (lslash)
962                 lslash[0]= '\0';
963
964         return BKE_idcode_from_name(buf);
965 }
966
967 void filelist_from_library(struct FileList* filelist)
968 {
969         LinkNode *l, *names, *previews;
970         struct ImBuf* ima;
971         int ok, i, nnames, idcode;
972         char filename[FILE_MAXDIR+FILE_MAXFILE];
973         char dir[FILE_MAX], group[GROUP_MAX];   
974         
975         /* name test */
976         ok= filelist_islibrary(filelist, dir, group);
977         if (!ok) {
978                 /* free */
979                 if(filelist->libfiledata) BLO_blendhandle_close(filelist->libfiledata);
980                 filelist->libfiledata= 0;
981                 return;
982         }
983         
984         BLI_strncpy(filename, G.main->name, sizeof(filename));
985
986         /* there we go */
987         /* for the time being only read filedata when libfiledata==0 */
988         if (filelist->libfiledata==0) {
989                 filelist->libfiledata= BLO_blendhandle_from_file(dir);
990                 if(filelist->libfiledata==0) return;
991         }
992         
993         idcode= groupname_to_code(group);
994
995                 // memory for strings is passed into filelist[i].relname
996                 // and free'd in freefilelist
997         previews = NULL;
998         if (idcode) {
999                 previews= BLO_blendhandle_get_previews(filelist->libfiledata, idcode);
1000                 names= BLO_blendhandle_get_datablock_names(filelist->libfiledata, idcode);
1001                 /* ugh, no rewind, need to reopen */
1002                 BLO_blendhandle_close(filelist->libfiledata);
1003                 filelist->libfiledata= BLO_blendhandle_from_file(dir);
1004                 
1005         } else {
1006                 names= BLO_blendhandle_get_linkable_groups(filelist->libfiledata);
1007         }
1008         
1009         nnames= BLI_linklist_length(names);
1010
1011         filelist->numfiles= nnames + 1;
1012         filelist->filelist= malloc(filelist->numfiles * sizeof(*filelist->filelist));
1013         memset(filelist->filelist, 0, filelist->numfiles * sizeof(*filelist->filelist));
1014
1015         filelist->filelist[0].relname= BLI_strdup("..");
1016         filelist->filelist[0].type |= S_IFDIR;
1017                 
1018         for (i=0, l= names; i<nnames; i++, l= l->next) {
1019                 char *blockname= l->link;
1020
1021                 filelist->filelist[i + 1].relname= BLI_strdup(blockname);
1022                 if (!idcode)
1023                         filelist->filelist[i + 1].type |= S_IFDIR;
1024         }
1025         
1026         if(previews) {
1027                 for (i=0, l= previews; i<nnames; i++, l= l->next) {
1028                         PreviewImage *img= l->link;
1029                         
1030                         if (img) {
1031                                 unsigned int w = img->w[PREVIEW_MIPMAP_LARGE];
1032                                 unsigned int h = img->h[PREVIEW_MIPMAP_LARGE];
1033                                 unsigned int *rect = img->rect[PREVIEW_MIPMAP_LARGE];
1034
1035                                 /* first allocate imbuf for copying preview into it */
1036                                 if (w > 0 && h > 0 && rect) {
1037                                         ima = IMB_allocImBuf(w, h, 32, IB_rect);
1038                                         memcpy(ima->rect, rect, w*h*sizeof(unsigned int));
1039                                         filelist->filelist[i + 1].image = ima;
1040                                         filelist->filelist[i + 1].flags = IMAGEFILE;
1041                                 }
1042                         }
1043                 }
1044         }
1045
1046         BLI_linklist_free(names, free);
1047         if (previews) BLI_linklist_free(previews, (void(*)(void*)) MEM_freeN);
1048
1049         filelist_sort(filelist, FILE_SORT_ALPHA);
1050
1051         BLI_strncpy(G.main->name, filename, sizeof(filename));  // prevent G.main->name to change
1052
1053         filelist->filter = 0;
1054         filelist_filter(filelist);
1055 }
1056
1057 void filelist_hideparent(struct FileList* filelist, short hide)
1058 {
1059         filelist->hide_parent = hide;
1060 }
1061
1062 void filelist_from_main(struct FileList *filelist)
1063 {
1064         ID *id;
1065         struct direntry *files, *firstlib = NULL;
1066         ListBase *lb;
1067         int a, fake, idcode, ok, totlib, totbl;
1068         
1069         // filelist->type = FILE_MAIN; // XXXXX TODO: add modes to filebrowser
1070
1071         if(filelist->dir[0]=='/') filelist->dir[0]= 0;
1072         
1073         if(filelist->dir[0]) {
1074                 idcode= groupname_to_code(filelist->dir);
1075                 if(idcode==0) filelist->dir[0]= 0;
1076         }
1077         
1078         if( filelist->dir[0]==0) {
1079                 
1080                 /* make directories */
1081                 filelist->numfiles= 23;
1082                 filelist->filelist= (struct direntry *)malloc(filelist->numfiles * sizeof(struct direntry));
1083                 
1084                 for(a=0; a<filelist->numfiles; a++) {
1085                         memset( &(filelist->filelist[a]), 0 , sizeof(struct direntry));
1086                         filelist->filelist[a].type |= S_IFDIR;
1087                 }
1088                 
1089                 filelist->filelist[0].relname= BLI_strdup("..");
1090                 filelist->filelist[2].relname= BLI_strdup("Scene");
1091                 filelist->filelist[3].relname= BLI_strdup("Object");
1092                 filelist->filelist[4].relname= BLI_strdup("Mesh");
1093                 filelist->filelist[5].relname= BLI_strdup("Curve");
1094                 filelist->filelist[6].relname= BLI_strdup("Metaball");
1095                 filelist->filelist[7].relname= BLI_strdup("Material");
1096                 filelist->filelist[8].relname= BLI_strdup("Texture");
1097                 filelist->filelist[9].relname= BLI_strdup("Image");
1098                 filelist->filelist[10].relname= BLI_strdup("Ika");
1099                 filelist->filelist[11].relname= BLI_strdup("Wave");
1100                 filelist->filelist[12].relname= BLI_strdup("Lattice");
1101                 filelist->filelist[13].relname= BLI_strdup("Lamp");
1102                 filelist->filelist[14].relname= BLI_strdup("Camera");
1103                 filelist->filelist[15].relname= BLI_strdup("Ipo");
1104                 filelist->filelist[16].relname= BLI_strdup("World");
1105                 filelist->filelist[17].relname= BLI_strdup("Screen");
1106                 filelist->filelist[18].relname= BLI_strdup("VFont");
1107                 filelist->filelist[19].relname= BLI_strdup("Text");
1108                 filelist->filelist[20].relname= BLI_strdup("Armature");
1109                 filelist->filelist[21].relname= BLI_strdup("Action");
1110                 filelist->filelist[22].relname= BLI_strdup("NodeTree");
1111                 filelist_sort(filelist, FILE_SORT_ALPHA);
1112         }
1113         else {
1114
1115                 /* make files */
1116                 idcode= groupname_to_code(filelist->dir);
1117                 
1118                 lb= which_libbase(G.main, idcode );
1119                 if(lb==0) return;
1120                 
1121                 id= lb->first;
1122                 filelist->numfiles= 0;
1123                 while(id) {
1124                         if (!filelist->hide_dot || id->name[2] != '.') {
1125                                 filelist->numfiles++;
1126                         }
1127                         
1128                         id= id->next;
1129                 }
1130                 
1131                 /* XXXXX TODO: if databrowse F4 or append/link filelist->hide_parent has to be set */
1132                 if (!filelist->hide_parent) filelist->numfiles+= 1;
1133                 filelist->filelist= (struct direntry *)malloc(filelist->numfiles * sizeof(struct direntry));
1134                 
1135                 files = filelist->filelist;
1136                 
1137                 if (!filelist->hide_parent) {
1138                         memset( &(filelist->filelist[0]), 0 , sizeof(struct direntry));
1139                         filelist->filelist[0].relname= BLI_strdup("..");
1140                         filelist->filelist[0].type |= S_IFDIR;
1141                 
1142                         files++;
1143                 }
1144                 
1145                 id= lb->first;
1146                 totlib= totbl= 0;
1147                 
1148                 while(id) {
1149                         ok = 1;
1150                         if(ok) {
1151                                 if (!filelist->hide_dot || id->name[2] != '.') {
1152                                         memset( files, 0 , sizeof(struct direntry));
1153                                         if(id->lib==NULL)
1154                                                 files->relname= BLI_strdup(id->name+2);
1155                                         else {
1156                                                 files->relname= MEM_mallocN(FILE_MAXDIR+FILE_MAXFILE+32, "filename for lib");
1157                                                 sprintf(files->relname, "%s | %s", id->lib->name, id->name+2);
1158                                         }
1159                                         /* files->type |= S_IFDIR; */
1160 #if 0                           // XXXXX TODO show the selection status of the objects
1161                                         if(!filelist->has_func) { /* F4 DATA BROWSE */
1162                                                 if(idcode==ID_OB) {
1163                                                         if( ((Object *)id)->flag & SELECT) files->flags |= ACTIVEFILE;
1164                                                 }
1165                                                 else if(idcode==ID_SCE) {
1166                                                         if( ((Scene *)id)->r.scemode & R_BG_RENDER) files->flags |= ACTIVEFILE;
1167                                                 }                                       
1168                                         }
1169 #endif
1170                                         files->nr= totbl+1;
1171                                         files->poin= id;
1172                                         fake= id->flag & LIB_FAKEUSER;
1173                                         if(idcode == ID_MA || idcode == ID_TE || idcode == ID_LA || idcode == ID_WO || idcode == ID_IM) {
1174                                                 files->flags |= IMAGEFILE;
1175                                         }
1176                                         if(id->lib && fake) sprintf(files->extra, "LF %d", id->us);
1177                                         else if(id->lib) sprintf(files->extra, "L    %d", id->us);
1178                                         else if(fake) sprintf(files->extra, "F    %d", id->us);
1179                                         else sprintf(files->extra, "      %d", id->us);
1180                                         
1181                                         if(id->lib) {
1182                                                 if(totlib==0) firstlib= files;
1183                                                 totlib++;
1184                                         }
1185                                         
1186                                         files++;
1187                                 }
1188                                 totbl++;
1189                         }
1190                         
1191                         id= id->next;
1192                 }
1193                 
1194                 /* only qsort of library blocks */
1195                 if(totlib>1) {
1196                         qsort(firstlib, totlib, sizeof(struct direntry), compare_name);
1197                 }
1198         }
1199         filelist->filter = 0;
1200         filelist_filter(filelist);
1201 }
1202
1203 static void thumbnail_joblist_free(ThumbnailJob *tj)
1204 {
1205         FileImage* limg = tj->loadimages.first;
1206         
1207         /* free the images not yet copied to the filelist -> these will get freed with the filelist */
1208         for( ; limg; limg= limg->next) {
1209                 if ((limg->img) && (!limg->done)) {
1210                         IMB_freeImBuf(limg->img);
1211                 }
1212         }
1213         BLI_freelistN(&tj->loadimages);
1214 }
1215
1216 static void thumbnails_startjob(void *tjv, short *stop, short *do_update, float *UNUSED(progress))
1217 {
1218         ThumbnailJob *tj= tjv;
1219         FileImage* limg = tj->loadimages.first;
1220
1221         tj->stop= stop;
1222         tj->do_update= do_update;
1223
1224         while ( (*stop==0) && (limg) ) {
1225                 if ( limg->flags & IMAGEFILE ) {
1226                         limg->img = IMB_thumb_manage(limg->path, THB_NORMAL, THB_SOURCE_IMAGE);
1227                 } else if ( limg->flags & BLENDERFILE ) {
1228                         limg->img = IMB_thumb_manage(limg->path, THB_NORMAL, THB_SOURCE_BLEND);
1229                 } else if ( limg->flags & MOVIEFILE ) {
1230                         limg->img = IMB_thumb_manage(limg->path, THB_NORMAL, THB_SOURCE_MOVIE);
1231                         if (!limg->img) {
1232                                         /* remember that file can't be loaded via IMB_open_anim */
1233                                         limg->flags &= ~MOVIEFILE;
1234                                         limg->flags |= MOVIEFILE_ICON;
1235                                 }
1236                 }
1237                 *do_update = 1;
1238                 PIL_sleep_ms(10);
1239                 limg = limg->next;
1240         }
1241 }
1242
1243 static void thumbnails_update(void *tjv)
1244 {
1245         ThumbnailJob *tj= tjv;
1246
1247         if (tj->filelist && tj->filelist->filelist) {
1248                 FileImage* limg = tj->loadimages.first;
1249                 while (limg) {
1250                         if (!limg->done && limg->img) {
1251                                 tj->filelist->filelist[limg->index].image = limg->img;
1252                                 /* update flag for movie files where thumbnail can't be created */
1253                                 if (limg->flags & MOVIEFILE_ICON) {
1254                                         tj->filelist->filelist[limg->index].flags &= ~MOVIEFILE;
1255                                         tj->filelist->filelist[limg->index].flags |= MOVIEFILE_ICON;
1256                                 }
1257                                 limg->done=1;
1258                         }
1259                         limg = limg->next;
1260                 }
1261         }
1262 }
1263
1264 static void thumbnails_free(void *tjv)
1265 {
1266         ThumbnailJob *tj= tjv;
1267         thumbnail_joblist_free(tj);
1268         MEM_freeN(tj);
1269 }
1270
1271
1272 void thumbnails_start(struct FileList* filelist, const struct bContext* C)
1273 {
1274         wmJob *steve;
1275         ThumbnailJob *tj;
1276         int idx;
1277         
1278         /* prepare job data */
1279         tj= MEM_callocN(sizeof(ThumbnailJob), "thumbnails\n");
1280         tj->filelist = filelist;
1281         for (idx = 0; idx < filelist->numfiles;idx++) {
1282                 if (!filelist->filelist[idx].image) {
1283                         if ( (filelist->filelist[idx].flags & (IMAGEFILE|MOVIEFILE|BLENDERFILE)) ) {
1284                                 FileImage* limg = MEM_callocN(sizeof(struct FileImage), "loadimage");
1285                                 BLI_strncpy(limg->path, filelist->filelist[idx].path, FILE_MAX);
1286                                 limg->index= idx;
1287                                 limg->flags= filelist->filelist[idx].flags;
1288                                 BLI_addtail(&tj->loadimages, limg);
1289                         }
1290                 }
1291         }
1292
1293         BKE_reports_init(&tj->reports, RPT_PRINT);
1294
1295         /* setup job */
1296         steve= WM_jobs_get(CTX_wm_manager(C), CTX_wm_window(C), filelist, "Thumbnails", 0);
1297         WM_jobs_customdata(steve, tj, thumbnails_free);
1298         WM_jobs_timer(steve, 0.5, NC_WINDOW, NC_WINDOW);
1299         WM_jobs_callbacks(steve, thumbnails_startjob, NULL, thumbnails_update, NULL);
1300
1301         /* start the job */
1302         WM_jobs_start(CTX_wm_manager(C), steve);
1303 }
1304
1305 void thumbnails_stop(struct FileList* filelist, const struct bContext* C)
1306 {
1307         WM_jobs_kill(CTX_wm_manager(C), filelist, NULL);
1308 }
1309
1310 int thumbnails_running(struct FileList* filelist, const struct bContext* C)
1311 {
1312         return WM_jobs_test(CTX_wm_manager(C), filelist);
1313 }