vgexpand.c

/*
	Copyright (C) 2004, 2005 Stephen Bach
	This file is part of the Viewglob package.

	Viewglob is free software; you can redistribute it and/or modify
	it under the terms of the GNU General Public License as published by
	the Free Software Foundation; either version 2 of the License, or
	(at your option) any later version.

	Viewglob is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	GNU General Public License for more details.

	You should have received a copy of the GNU General Public License
	along with Viewglob; if not, write to the Free Software
	Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

#include "config.h"

#include "common.h"
#include "vgexpand.h"
#include <stdio.h>
#include <sys/stat.h>
#include <string.h>
#include <stdlib.h>
#include <fnmatch.h>

#if HAVE_DIRENT_H
#  include <dirent.h>
#  define NAMLEN(dirent) strlen((dirent)->d_name)
#else
#  define dirent direct
#  define NAMLEN(dirent) (dirent)->d_namlen
#  if HAVE_SYS_NDIR_H
#   include <sys/ndir.h>
#  endif
#  if HAVE_SYS_DIR_H
#   include <sys/dir.h>
#  endif
#  if HAVE_NDIR_H
#   include <ndir.h>
#  endif
#endif

static gint  parse_args(gint argc, gchar** argv, gchar** mask_str);
static void  report_version(void);
static void  compile_data(gint argc, gchar** argv);
static void  mask_match(void);
static void  home_to_tilde(void);
static void  report(void);
static void  print_dir(Directory* dir);
static void  initiate(dev_t pwd_dev_id, ino_t pwd_inode);
static void  correlate(gchar* dir_name, gchar* file_name, dev_t dev_id,
		ino_t dir_inode);
static struct mask** split(gchar* mask);

static Directory* reverse_list(Directory* head);

static glong    get_max_path(const gchar* path);
static gchar*   vg_dirname(const gchar* path);
static gchar*   vg_basename(const gchar* path);
static gchar*   normalize_path(const gchar* path, gboolean remove_trailing);
static gboolean has_trailing_slash(const gchar* path);
static gint     find_prev(const gchar* string, gint pos, gchar c);

static FileType  determine_type(const struct stat* file_stat);
static File*           make_new_file(gchar* name, FileType type);
static Directory*      make_new_dir(gchar* dir_name, dev_t dev_id,
		ino_t inode);
static gboolean        have_dir(gchar* name, dev_t dev_id, ino_t inode,
		Directory** return_dir);

gboolean mark_traverse(gpointer key, gpointer value, gpointer data);
gboolean mask_traverse(gpointer key, gpointer value, gpointer data);
gboolean print_traverse(gpointer key, gpointer value, gpointer data);

/* Directory comparisons are done by inode and device id. */
static gboolean compare_by_inode(dev_t dev_id1, ino_t inode1, dev_t dev_id2,
		ino_t inode2);

/* File comparison functions */
static gint cmp_ls(gconstpointer a, gconstpointer b);
static gint cmp_win(gconstpointer a, gconstpointer b);

/* Order in which to list the directories. */
enum sort_order ordering = SO_DESCENDING;

/* Filename sorting */
GCompareFunc filename_cmp = cmp_ls;

static gchar* pwd;
static size_t pwd_length;

struct mask** masks = NULL;

static Directory* dirs = NULL;


gint main(gint argc, gchar* argv[]) {
	glong max_path;
	gint offset;
	gchar* mask_string = "*";

	/* Set the program name. */
	gchar* basename = g_path_get_basename(argv[0]);
	g_set_prgname(basename);
	g_free(basename);

	offset = parse_args(argc, argv, &mask_string);
	masks = split(mask_string);

	/* Get max path length. */
	max_path = get_max_path(".");
	if (max_path == -1) {
		g_critical("Could not determine maximum path length: %s",
				g_strerror(errno));
		exit(EXIT_FAILURE);
	}

	pwd = g_malloc(max_path);
	pwd = getcwd(pwd, max_path);
	if (pwd == NULL) {
		g_critical("Could not determine working directory: %s",
				g_strerror(errno));
		exit(EXIT_FAILURE);
	}

	/* strlen(pwd) is used frequently, so might as well just do it once. */
	pwd_length = strlen(pwd);

	compile_data(argc - offset, argv + offset);
	mask_match();
	home_to_tilde();
	report();

	return EXIT_SUCCESS;
}


/* Figure out where vgexpand's options end and its expansion output
   begins.  Also determine which directory matching function will be used and
   the file mask. */
static gint parse_args(gint argc, gchar** argv, gchar** mask_string) {
	gint i, j;
	gboolean has_double_dash = FALSE;

	for (i = 1; i < argc; i++) {
		if (STREQ("--", *(argv + i)) ) {
			has_double_dash = TRUE;
			break;
		}
	}

	if (has_double_dash) {
		for (j = 1; j < i; j++) {
			if ( (STREQ("-v", *(argv + j))) ||
			     (STREQ("-V", *(argv + j))))
				report_version();
			else if (STREQ("-d", *(argv + j)))
				ordering = SO_DESCENDING;
			else if (STREQ("-a", *(argv + j)))
				ordering = SO_ASCENDING;
			else if (STREQ("-p", *(argv + j)))
				ordering = SO_ASCENDING_PWD_FIRST;
			else if (STREQ("-w", *(argv + j)))
				filename_cmp = cmp_win;
			else if (STREQ("-l", *(argv + j)))
				filename_cmp = cmp_win;
			else if (STREQ("-m", *(argv + j))) {
				j++;
				if (j < i)
					*mask_string = *(argv + j);
			}
		}
		i++;
	}
	else
		i = 1;

	return i;
}


static void report_version(void) {
	printf("vgexpand %s\n", VERSION);
	printf("Released %s\n", VG_RELEASE_DATE);
	exit(EXIT_SUCCESS);
}


static void compile_data(gint argc, gchar** argv) {
	gchar* new_dir_name;
	gchar* new_file_name;
	gchar* normal_path;
	gint i;

	struct stat dir_stat;

	/* Always expand on pwd, whether it appears in the arguments or not. */
	if (stat(pwd, &dir_stat) == 0)
		initiate(dir_stat.st_dev, dir_stat.st_ino);
	else {
		g_critical("Could not read pwd: %s", g_strerror(errno));
		exit(EXIT_FAILURE);
	}

	/* Loop through the arguments.
	   The first word is skipped, because that's the name of the command.
	   We do this here rather than just not passing it from seer, because the
	   command line could be of the form "{abc,def} ghi", which expands here
	   to "abc def ghi", so "abc" is the command name rather than "{abc,def}".
	 */
	for (i = 1; i < argc && argv[i] != NULL; i++) {

		normal_path = normalize_path(argv[i], TRUE);
		new_dir_name = vg_dirname(normal_path);
		new_file_name = vg_basename(normal_path);

		if (stat(new_dir_name, &dir_stat) == 0) {
			correlate(new_dir_name, new_file_name, dir_stat.st_dev,
					dir_stat.st_ino);
		}

		/* When the filename is used, a copy is made from the dirent entry. */
		g_free(new_file_name);

		/* new_dir_name, however, is used.  It is freed elsewhere if not. */
		/*g_free(new_dir_name);*/

		/* normal_path is never saved. */
		g_free(normal_path);

		if (has_trailing_slash(argv[i])) {
			/* The file argument is being referenced as a directory.  We've
			   already dealt with it as a file, so now lets also see if it's a
			   directory, and if so we'll print its contents too. */
			normal_path = normalize_path(argv[i], FALSE);
			new_dir_name = vg_dirname(normal_path);

			if (stat(new_dir_name, &dir_stat) == 0)
				correlate(new_dir_name, NULL, dir_stat.st_dev, dir_stat.st_ino);

			g_free(normal_path);
		}
	}
}


static void mask_match(void) {
	Directory* dir_iter;

	for (dir_iter = dirs; dir_iter; dir_iter = dir_iter->next_dir) {
		if (dir_iter->files)
			g_tree_foreach(dir_iter->files, mask_traverse, dir_iter);
	}
}


/* Convert the "/home/blah" prefix to "~". */
static void home_to_tilde(void) {

	Directory* dir_iter;
	gchar* home;
	size_t home_len;
	size_t dir_len;
	
	if ( !(home = normalize_path(getenv("HOME"), TRUE)) )
		return;

	/* May as well only do this once. */
	home_len = strlen(home);

	for (dir_iter = dirs; dir_iter; dir_iter = dir_iter->next_dir) {
		dir_len = strlen(dir_iter->name);
		if (home_len == dir_len) {
			if (STREQ(home, dir_iter->name))
				strcpy(dir_iter->name, "~");
		}
		else if (home_len < dir_len) {

			/* Need to be careful here because /home/blahblah/ shouldn't
			   become ~blah/ */
			if (strncmp(home, dir_iter->name, home_len) == 0 &&
					*(dir_iter->name + home_len) == '/') {
				*(dir_iter->name + home_len - 1) = '~';
				dir_iter->name += home_len - 1;
			}
		}
	}
}


static gboolean has_trailing_slash(const gchar* path) {
	gint i;

	for (i = 0; *(path + i) != '\0'; i++)
		;

	if (i) {
		i--;
		return *(path + i) == '/';
	}
	else
		return FALSE;
}


static void report(void) {
	Directory* dir_iter;

	/* Semaphore at beginning. */
	printf("\002");

	switch (ordering) {

		case SO_ASCENDING:
			dirs = reverse_list(dirs);
			break;

		case SO_ASCENDING_PWD_FIRST:
			/* Print off the first dir in the list and then drop it.  We're
			   Exiting soon, so don't worry about freeing it. */
			if (dirs) {
				print_dir(dirs);
				dirs = dirs->next_dir;
				dirs = reverse_list(dirs);
			}
			break;

		case SO_DESCENDING:
		default:
			break;
	}

	for (dir_iter = dirs; dir_iter; dir_iter = dir_iter->next_dir)
		print_dir(dir_iter);

	/* Semaphore at end. */
	printf("\n\003");
}


static void print_dir(Directory* dir) {
	if (dir) {
		printf("%d %d %d ",
				dir->selected_count,
				dir->file_count,
				dir->hidden_count);
		if (dir->is_pwd)
			printf("%c", PWD_CHAR);  /* Differentiate PWD. */
		printf("%s\n", dir->name);

		if (dir->files)
			g_tree_foreach(dir->files, print_traverse, NULL);
	}
}


static Directory* reverse_list(Directory* head) {
	Directory* p1 = NULL;
	Directory* p2;

	if (head) {
		p1 = head;
		p2 = head->next_dir;
		p1->next_dir = NULL;

		while(p2) {
			Directory *q = p2->next_dir;
			p2->next_dir = p1;
			p1 = p2;
			p2 = q;
		}
	}

	return p1;
}


gboolean print_traverse(gpointer key, gpointer value, gpointer data) {

	static const gchar types[FT_COUNT] = {
		/*FT_REGULAR*/    'r',
		/*FT_EXECUTABLE*/ 'e',
		/*FT_DIRECTORY*/  'd',
		/*FT_BLOCKDEV*/   'b',
		/*FT_CHARDEV*/    'c',
		/*FT_FIFO*/       'f',
		/*FT_SOCKET*/     's',
		/*FT_SYMLINK*/    'y',
	};

	static const gchar selections[FS_COUNT] = {
		/*FS_YES*/    '*',
		/*FS_NO*/     '-',
		/*FS_MAYBE*/  '~',
	};

	File* file = key;
	if (file->shown) {
		printf("\t%c %c %s\n",
				selections[file->selected],
				types[file->type],
				file->name);
	}

	return FALSE;
}


/* Scan through pwd. */
static void initiate(dev_t pwd_dev_id, ino_t pwd_inode) {
	dirs = make_new_dir(pwd, pwd_dev_id, pwd_inode);
	dirs->is_pwd = TRUE;
}


/* Fit this new directory and file into the others that have been processed,
   if possible. */
static void correlate(gchar* dir_name, gchar* file_name, dev_t dev_id,
		ino_t dir_inode) {
	Directory* search_dir;

	if (have_dir(dir_name, dev_id, dir_inode, &search_dir)) {
		/* In this case search_dir is the located directory.
		   Since the dir is already known, we don't need this. */
		g_free(dir_name);
	}
	else {
		/* In this case search_dir is the last directory struct in the list,
		   so add this new dir to the end. */
		search_dir->next_dir = make_new_dir(dir_name, dev_id, dir_inode);
		search_dir = search_dir->next_dir;
	}

	if (file_name && search_dir->files) {
		search_dir->lookup = file_name;
		search_dir->lookup_len = strlen(file_name);
		g_tree_foreach(search_dir->files, mark_traverse, search_dir);
	}
}


/* Check out if we've already got this directory in dirs.
   If so, return it.  If not, return the last dir in the dir_list. */
static gboolean have_dir(gchar* name, dev_t dev_id, ino_t inode,
		Directory** return_dir) {
	Directory* dir_iter;

	dir_iter = dirs;
	do {
		if (compare_by_inode(dev_id, inode, dir_iter->dev_id,
					dir_iter->inode)) {
			*return_dir = dir_iter;
			return TRUE;
		}
	} while ((dir_iter->next_dir != NULL) && (dir_iter = dir_iter->next_dir));
	/* ^^ Don't want to iterate to NULL, thus the weird invariant. */

	/* This is the last directory struct in the list. */
	*return_dir = dir_iter;  
	return FALSE;
}


static gboolean compare_by_inode(dev_t dev_id1, ino_t inode1, dev_t dev_id2,
		ino_t inode2) {
	return inode1 == inode2 && dev_id1 == dev_id2;
}


gboolean mask_traverse(gpointer key, gpointer value, gpointer data) {
	File* file = key;
	Directory* dir = data;

	if (file->selected != FS_YES) {
		struct mask** mask_iter = masks;
		while (*mask_iter) {
			if ( (!(*mask_iter)->dirs_only || file->type == FT_DIRECTORY) &&
					fnmatch((*mask_iter)->pattern,
						file->name, FNM_PERIOD) == 0) {
				file->shown = TRUE;
				dir->hidden_count--;
				break;
			}
			mask_iter++;
		}
	}

	return FALSE;
}


gboolean mark_traverse(gpointer key, gpointer value, gpointer data) {
	File* file = key;
	Directory* dir = data;

	/* Don't bother with the file if it's already selected. */
	if (file->selected == FS_YES)
		return FALSE;

	/* Try to match only up to the length of file_name. */
	if (STRNEQ(dir->lookup, file->name, dir->lookup_len)) {
		if (dir->lookup_len == strlen(file->name)) {
			/* Explicit match. */
			file->selected = FS_YES;
			file->shown = TRUE;
			dir->selected_count++;
			dir->hidden_count--;
		}
		else {
			/* Only a partial match. */
			file->selected = FS_MAYBE;
		}
	}

	return FALSE;
}


static File* make_new_file(gchar* name, FileType type) {
	File* new_file;

	new_file = g_new(File, 1);
	new_file->name = name;
	new_file->selected = FS_NO;
	new_file->type = type;
	new_file->shown = FALSE;
	return new_file;
}


static Directory* make_new_dir(gchar* dir_name, dev_t dev_id, ino_t inode) {
	DIR* dirp;
	struct dirent* entry;

	Directory* new_dir;
	gint entry_count = 0;

	gchar* file_name;
	gchar* full_path;
	struct stat file_stat;
	FileType type;

	new_dir = g_new(Directory, 1);
	new_dir->name = dir_name;
	new_dir->dev_id = dev_id;
	new_dir->inode = inode;
	new_dir->selected_count = 0;
	new_dir->is_pwd = FALSE;
	new_dir->next_dir = NULL;
	new_dir->files = NULL;

	dirp = opendir(dir_name);
	if (dirp == NULL) {
		g_warning("Directory is inaccessible: %s", g_strerror(errno));
		new_dir->files = NULL;
		new_dir->file_count = 0;
		new_dir->hidden_count = 0;
		return new_dir;
	}

	/* Cycle through the files in the real directory, and add them to the
	   new_dir struct. */
	while (errno = 0, (entry = readdir(dirp)) != NULL) {

		/* Make a copy of the name since the original data isn't reliable. */
		file_name = g_strdup(entry->d_name);

		/* Stat to determine the file type.
		   Using lstat so that symbolic links are detected instead of
		   followed.  May wish to switch at some point. */
		full_path = g_strconcat(dir_name, "/", entry->d_name, NULL);
		if (lstat(full_path, &file_stat) == -1) {
			g_warning("Could not stat file \"%s\": %s", file_name,
					g_strerror(errno));
			type = FT_REGULAR;   /* We don't want to just skip this; assume
			                        it's regular. */
		}
		else
			type = determine_type(&file_stat);
		g_free(full_path);

		/* Add the file to the tree. */
		if (!new_dir->files)
			new_dir->files = g_tree_new(filename_cmp);
		g_tree_insert(new_dir->files, make_new_file(file_name, type), NULL);

		entry_count++;
	}

	new_dir->file_count = entry_count;
	new_dir->hidden_count = entry_count;

#ifdef CLOSEDIR_VOID
	closedir(dirp);
#else
	if (closedir(dirp) == -1)
		g_warning("Could not close directory: %s", g_strerror(errno));
#endif

	return new_dir;
}


static FileType determine_type(const struct stat* file_stat) {
	if (S_ISREG(file_stat->st_mode)) {
		if ( (file_stat->st_mode & S_IXUSR) == S_IXUSR ||
		     (file_stat->st_mode & S_IXGRP) == S_IXGRP ||
			 (file_stat->st_mode & S_IXOTH) == S_IXOTH    )
			return FT_EXECUTABLE;
		else
			return FT_REGULAR;
	}
	else if (S_ISDIR(file_stat->st_mode))
		return FT_DIRECTORY;
	else if (S_ISLNK(file_stat->st_mode))
		return FT_SYMLINK;
	else if (S_ISBLK(file_stat->st_mode))
		return FT_BLOCKDEV;
	else if (S_ISCHR(file_stat->st_mode))
		return FT_CHARDEV;
	else if (S_ISFIFO(file_stat->st_mode))
		return FT_FIFO;
	else if (S_ISSOCK(file_stat->st_mode))
		return FT_SOCKET;
	else
		return FT_REGULAR;
}


/* Determine the maximum path length.
   Taken almost verbatim from Marc J. Rochkind's Advanced Unix Programming,
   2nd ed. */
static glong get_max_path(const gchar* path) {
	glong max_path;

	errno = 0;
	max_path = pathconf(path, _PC_PATH_MAX);
	if (max_path == -1) {
		if (errno == 0)			/* No limit... */
			max_path = 4096;	/* ... So guess. */
		else
			return -1;
	}
	return max_path + 1;	/* Just in case the size doesn't include space
							   For the null byte. */
}


/* Takes a normalized path and returns the directory name.
   I didn't like the POSIX version of dirname. */
static gchar* vg_dirname(const gchar* path) {
	gchar* dirname;
	gint slash_pos;
	size_t path_length;

	path_length = strlen(path);

	/* Find the last / in the path. */
	slash_pos = find_prev(path, path_length - 1, '/');

	if (*path != '/') {
		/* It's a relative path, so need to append pwd. */

		if (slash_pos == -1) {
			/* The file is at pwd. */
			dirname = g_malloc(pwd_length + 1);
			(void)strcpy(dirname, pwd);
		}
		else {
			/* Build an absolute path with pwd and the argument's path. */
			dirname = g_malloc(pwd_length + 1 + slash_pos + 1);
			(void)strcpy(dirname, pwd);
			if (!STREQ(dirname, "/")) {
				/* (Kludge for directories at root) */
				(void)strcat(dirname, "/");
			}
			(void)strncat(dirname, path, slash_pos);
			/* Just in case. */
			*(dirname + pwd_length + 1 + slash_pos) = '\0';
		}
	}
	else if (slash_pos == 0) {
		/* The file is at root (or is root). */
		dirname = g_malloc(2);
		(void)strcpy(dirname, "/");
	}
	else {
		/* It's an absolute path. */
		dirname = g_malloc(slash_pos + 1);
		(void)strncpy(dirname, path, slash_pos);
		*(dirname + slash_pos) = '\0';
	}

	return dirname;
}


/* Takes a sanitized path and returns the base (file) name. */
gchar* vg_basename(const gchar* path) {
	gchar* base;
	gint slash_pos;
	size_t path_length;

	path_length = strlen(path);

	/* Find the last / in the path. */
	slash_pos = find_prev(path, path_length - 1, '/');

	if (slash_pos == 0 && path_length == 1) {
		/* It's root. */
		base = g_malloc(2);
		(void)strcpy(base, "/");
	}
	else if (slash_pos == -1) {
		/* It's a relative path at pwd. */
		base = g_malloc(path_length + 1);
		(void)strcpy(base, path);
	}
	else {
		base = g_malloc(path_length - slash_pos);
		(void)strcpy(base, path + slash_pos + 1);
	}

	return base;
}


/* Removes repeated /'s and takes out the ending /, if present. */
static gchar* normalize_path(const gchar* path, gboolean remove_trailing) {
	gchar* norm;
	gint i, norm_pos;
	gboolean slash_seen;
	size_t length;

	if (!path)
		return NULL;

	length = strlen(path);
	norm = g_malloc(length + 1);	/* We'll need at most this much memory. */
	norm_pos = 0;

	slash_seen = FALSE;
	for (i = 0; i < length; i++) {

		if (*(path + i) == '/') {
			if (slash_seen)
				continue;	/* Only copy the first slash. */
			else {
				slash_seen = TRUE;
				*(norm + norm_pos) = '/';
				norm_pos++;
			}
		}
		else {
			slash_seen = FALSE;
			*(norm + norm_pos) = *(path + i);
			norm_pos++;
		}
	}

	*(norm + norm_pos) = '\0';

	/* If remove_trailing == TRUE, strip off a trailing / (if any). */
	if (remove_trailing && norm_pos > 1 && *(norm + norm_pos - 1) == '/')
		*(norm + norm_pos - 1) = '\0';

	return norm;
}


/* Return the position of the previous c from pos, or -1 if not found. */
gint find_prev(const gchar* string, gint pos, gchar c) {
	gboolean found = FALSE;

	while (pos >= 0) {
		if ( *(string + pos) == c ) {
			found = TRUE;
			break;
		}
		pos--;
	}

	if (found)
		return pos;
	else
		return -1;
}


/* Sort strictly by name (default ls style). */
static gint cmp_ls(gconstpointer a, gconstpointer b) {
	const File* aa = a;
	const File* bb = b;

	return (strcmp(aa->name, bb->name));
}


/* Sort by type (dir first), then by name (default Windows style). */
static gint cmp_win(gconstpointer a, gconstpointer b) {
	const File* aa = a;
	const File* bb = b;

	if (aa->type == FT_DIRECTORY) {
		if (bb->type == FT_DIRECTORY)
			return strcmp(aa->name, bb->name);
		else
			return -1;
	}
	else {
		if (bb->type == FT_DIRECTORY)
			return 1;
		else
			return strcmp(aa->name, bb->name);
	}
}


/* Split the given mask into words (mini-masks). E.g.:
	   "*.c *.h" is split into "*.c" and "*.h".
   This function performs very little error checking, as it's assumed the
   mask has been sanitized by vgseer. */
static struct mask** split(gchar* mask) {

	g_return_val_if_fail(mask != NULL, NULL);

	GPtrArray* ptrarray = g_ptr_array_new();
	gchar* start = NULL;
	gchar* end = NULL;

	mask = g_strdup(mask);
	mask = g_strchug(mask);

	/* Split the mask into words. */
	start = end = mask;
	while (*start != '\0') {

		switch (*end) {

			case ' ':
				/* End of word. */
				*end = '\0';
				g_ptr_array_add(ptrarray, start);
				start = end + 1;
				while (*start == ' ')
					start++;
				end = start;
				continue;
				break;

			case '\0':
				g_ptr_array_add(ptrarray, start);
				start = end;
				break;

			case '\\':
				end++;
				break;

			case '\"':
				end++;
				while (*end != '\"')
					end++;
				break;

			case '\'':
				end++;
				while (*end != '\'')
					end++;
				break;
		}

		end++;
	}

	/* Take the patterns from the pointer array and check to see if any of
	   them have the trailing slash special case for matching directories. */
	struct mask** array = g_new(struct mask*, ptrarray->len + 1);
	gchar* p;
	gint i;
	for (i = 0; i < ptrarray->len; i++) {
		array[i] = g_new(struct mask, 1);
		array[i]->pattern = ptrarray->pdata[i];
		for (p = array[i]->pattern; *p != '\0'; p++)
			;
		if (p == array[i]->pattern)
			array[i]->dirs_only = FALSE;
		else {
			p--;
			if (*p == '/') {
				array[i]->dirs_only = TRUE;
				*p = '\0';
			}
			else
				array[i]->dirs_only = FALSE;
		}
	}
	/* Delimit with NULL. */
	array[i] = NULL;

	g_ptr_array_free(ptrarray, FALSE);
	return array;
}