disk-io.c 6.4 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13
#define _XOPEN_SOURCE 500
#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <unistd.h>
#include "kerncompat.h"
#include "radix-tree.h"
#include "ctree.h"
#include "disk-io.h"

static int allocated_blocks = 0;
14
int cache_max = 10000;
15

16
static int check_tree_block(struct ctree_root *root, struct tree_buffer *buf)
17
{
18 19 20 21 22
	if (buf->blocknr != buf->node.header.blocknr)
		BUG();
	if (root->node && buf->node.header.parentid != root->node->node.header.parentid)
		BUG();
	return 0;
23 24
}

25 26 27 28 29 30 31 32 33 34 35 36 37
static int free_some_buffers(struct ctree_root *root)
{
	struct list_head *node, *next;
	struct tree_buffer *b;
	if (root->cache_size < cache_max)
		return 0;
	list_for_each_safe(node, next, &root->cache) {
		b = list_entry(node, struct tree_buffer, cache);
		if (b->count == 1) {
			BUG_ON(!list_empty(&b->dirty));
			list_del_init(&b->cache);
			tree_block_release(root, b);
			if (root->cache_size < cache_max)
38
				break;
39 40 41 42 43
		}
	}
	return 0;
}

44 45 46 47 48 49 50 51 52
struct tree_buffer *alloc_tree_block(struct ctree_root *root, u64 blocknr)
{
	struct tree_buffer *buf;
	int ret;
	buf = malloc(sizeof(struct tree_buffer));
	if (!buf)
		return buf;
	allocated_blocks++;
	buf->blocknr = blocknr;
53 54 55
	buf->count = 2;
	INIT_LIST_HEAD(&buf->dirty);
	free_some_buffers(root);
56 57 58
	radix_tree_preload(GFP_KERNEL);
	ret = radix_tree_insert(&root->cache_radix, blocknr, buf);
	radix_tree_preload_end();
59 60
	list_add_tail(&buf->cache, &root->cache);
	root->cache_size++;
61 62 63 64 65 66 67
	if (ret) {
		free(buf);
		return NULL;
	}
	return buf;
}

68
struct tree_buffer *find_tree_block(struct ctree_root *root, u64 blocknr)
69
{
70 71 72 73 74 75 76 77 78 79
	struct tree_buffer *buf;
	buf = radix_tree_lookup(&root->cache_radix, blocknr);
	if (buf) {
		buf->count++;
	} else {
		buf = alloc_tree_block(root, blocknr);
		if (!buf) {
			BUG();
			return NULL;
		}
80 81 82 83 84 85
	}
	return buf;
}

struct tree_buffer *read_tree_block(struct ctree_root *root, u64 blocknr)
{
86
	loff_t offset = blocknr * CTREE_BLOCKSIZE;
87 88 89 90 91 92
	struct tree_buffer *buf;
	int ret;

	buf = radix_tree_lookup(&root->cache_radix, blocknr);
	if (buf) {
		buf->count++;
93 94 95 96 97 98 99 100 101
	} else {
		buf = alloc_tree_block(root, blocknr);
		if (!buf)
			return NULL;
		ret = pread(root->fp, &buf->node, CTREE_BLOCKSIZE, offset);
		if (ret != CTREE_BLOCKSIZE) {
			free(buf);
			return NULL;
		}
102
	}
103
	if (check_tree_block(root, buf))
C
Chris Mason 已提交
104
		BUG();
105 106 107
	return buf;
}

108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125
int dirty_tree_block(struct ctree_root *root, struct tree_buffer *buf)
{
	if (!list_empty(&buf->dirty))
		return 0;
	list_add_tail(&buf->dirty, &root->trans);
	buf->count++;
	return 0;
}

int clean_tree_block(struct ctree_root *root, struct tree_buffer *buf)
{
	if (!list_empty(&buf->dirty)) {
		list_del_init(&buf->dirty);
		tree_block_release(root, buf);
	}
	return 0;
}

126 127 128
int write_tree_block(struct ctree_root *root, struct tree_buffer *buf)
{
	u64 blocknr = buf->blocknr;
129
	loff_t offset = blocknr * CTREE_BLOCKSIZE;
130 131 132 133 134 135 136 137 138 139
	int ret;

	if (buf->blocknr != buf->node.header.blocknr)
		BUG();
	ret = pwrite(root->fp, &buf->node, CTREE_BLOCKSIZE, offset);
	if (ret != CTREE_BLOCKSIZE)
		return ret;
	return 0;
}

140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165
static int __commit_transaction(struct ctree_root *root)
{
	struct tree_buffer *b;
	int ret = 0;
	int wret;
	while(!list_empty(&root->trans)) {
		b = list_entry(root->trans.next, struct tree_buffer, dirty);
		list_del_init(&b->dirty);
		wret = write_tree_block(root, b);
		if (wret)
			ret = wret;
		tree_block_release(root, b);
	}
	return ret;
}

int commit_transaction(struct ctree_root *root)
{
	int ret;
	ret = __commit_transaction(root);
	if (!ret && root != root->extent_root)
		ret = __commit_transaction(root->extent_root);
	BUG_ON(ret);
	return ret;
}

166 167 168
static int __setup_root(struct ctree_root *root, struct ctree_root *extent_root,
			struct ctree_root_info *info, int fp)
{
169 170
	INIT_LIST_HEAD(&root->trans);
	INIT_LIST_HEAD(&root->cache);
171
	root->fp = fp;
C
Chris Mason 已提交
172
	root->node = NULL;
173 174 175 176 177
	root->node = read_tree_block(root, info->tree_root);
	root->extent_root = extent_root;
	return 0;
}

C
Chris Mason 已提交
178
struct ctree_root *open_ctree(char *filename, struct ctree_super_block *super)
179 180
{
	struct ctree_root *root = malloc(sizeof(struct ctree_root));
181
	struct ctree_root *extent_root = malloc(sizeof(struct ctree_root));
182 183 184
	int fp;
	int ret;

C
Chris Mason 已提交
185
	fp = open(filename, O_CREAT | O_RDWR, 0600);
186 187 188 189
	if (fp < 0) {
		free(root);
		return NULL;
	}
190 191
	INIT_RADIX_TREE(&root->cache_radix, GFP_KERNEL);
	INIT_RADIX_TREE(&extent_root->cache_radix, GFP_KERNEL);
C
Chris Mason 已提交
192
	ret = pread(fp, super, sizeof(struct ctree_super_block),
193
		     CTREE_SUPER_INFO_OFFSET(CTREE_BLOCKSIZE));
C
Chris Mason 已提交
194 195
	if (ret == 0 || super->root_info.tree_root == 0) {
		printf("making new FS!\n");
196 197 198
		ret = mkfs(fp);
		if (ret)
			return NULL;
C
Chris Mason 已提交
199
		ret = pread(fp, super, sizeof(struct ctree_super_block),
200 201 202 203 204
			     CTREE_SUPER_INFO_OFFSET(CTREE_BLOCKSIZE));
		if (ret != sizeof(struct ctree_super_block))
			return NULL;
	}
	BUG_ON(ret < 0);
C
Chris Mason 已提交
205 206
	__setup_root(root, extent_root, &super->root_info, fp);
	__setup_root(extent_root, extent_root, &super->extent_info, fp);
207 208 209
	return root;
}

C
Chris Mason 已提交
210
static int __update_root(struct ctree_root *root, struct ctree_root_info *info)
211
{
C
Chris Mason 已提交
212
	info->tree_root = root->node->blocknr;
213 214 215
	return 0;
}

C
Chris Mason 已提交
216
int write_ctree_super(struct ctree_root *root, struct ctree_super_block *s)
217 218
{
	int ret;
C
Chris Mason 已提交
219 220 221 222 223
	__update_root(root, &s->root_info);
	__update_root(root->extent_root, &s->extent_info);
	ret = pwrite(root->fp, s, sizeof(*s), CTREE_SUPER_INFO_OFFSET(CTREE_BLOCKSIZE));
	if (ret != sizeof(*s)) {
		fprintf(stderr, "failed to write new super block err %d\n", ret);
224
		return ret;
C
Chris Mason 已提交
225 226 227 228
	}
	return 0;
}

229 230 231 232 233 234 235 236 237 238
static int drop_cache(struct ctree_root *root)
{
	while(!list_empty(&root->cache)) {
		struct tree_buffer *b = list_entry(root->cache.next,
						   struct tree_buffer, cache);
		list_del_init(&b->cache);
		tree_block_release(root, b);
	}
	return 0;
}
C
Chris Mason 已提交
239 240
int close_ctree(struct ctree_root *root)
{
241
	commit_transaction(root);
242 243 244 245 246
	drop_cache(root->extent_root);
	drop_cache(root);
	BUG_ON(!list_empty(&root->trans));
	BUG_ON(!list_empty(&root->extent_root->trans));

C
Chris Mason 已提交
247 248 249 250 251 252 253
	close(root->fp);
	if (root->node)
		tree_block_release(root, root->node);
	if (root->extent_root->node)
		tree_block_release(root->extent_root, root->extent_root->node);
	free(root);
	printf("on close %d blocks are allocated\n", allocated_blocks);
254 255 256 257 258 259
	return 0;
}

void tree_block_release(struct ctree_root *root, struct tree_buffer *buf)
{
	buf->count--;
C
Chris Mason 已提交
260 261
	if (buf->count < 0)
		BUG();
262 263 264 265 266 267 268 269
	if (buf->count == 0) {
		if (!radix_tree_lookup(&root->cache_radix, buf->blocknr))
			BUG();
		radix_tree_delete(&root->cache_radix, buf->blocknr);
		memset(buf, 0, sizeof(*buf));
		free(buf);
		BUG_ON(allocated_blocks == 0);
		allocated_blocks--;
270 271
		BUG_ON(root->cache_size == 0);
		root->cache_size--;
272 273 274
	}
}