packing_append_tree(struct packing *pack, const char *treepath, const char *newroot)

{

	FTS *fts = NULL;

	FTSENT *fts_e = NULL;

	size_t treelen;

	struct sbuf *sb;

	char *paths[2] = { __DECONST(char *, treepath), NULL };

	treelen = strlen(treepath);

	fts = fts_open(paths, FTS_PHYSICAL | FTS_XDEV, NULL);

	if (fts == NULL)

		goto cleanup;

	sb = sbuf_new_auto();

	while ((fts_e = fts_read(fts)) != NULL) {

		switch(fts_e->fts_info) {

		case FTS_F:

			/* Skip entries that are shorter than the tree itself */

			if (fts_e->fts_pathlen <= treelen)

				break;

			sbuf_clear(sb);

			/* Strip the prefix to obtain the target path */

			if (newroot) /* Prepend a root if one is specified */

				sbuf_cat(sb, newroot);

			sbuf_cat(sb, fts_e->fts_path + treelen + 1 /* skip trailing slash */);

			sbuf_finish(sb);

			packing_append_file(pack, fts_e->fts_name, sbuf_get(sb));

			break;

		case FTS_DNR:

		case FTS_ERR:

		case FTS_NS:

			/* XXX error cases, check fts_e->fts_errno and

			 *     bubble up the call chain */

			break;

		default:

			break;

		}

	}

	sbuf_free(sb);

cleanup:

	fts_close(fts);

	return EPKG_OK;

}

int