code: mafs

ref: 285644aadb1b58735651a5068703372f8fc9adac
dir: /docs/mafs.ms/

View raw version
.\" The current font is \n(.f
.\" The current point size is \n(.s
.\" The current vertical line spacing is \n(.v
.\" The line length is \n(.l
.\" The page length is \n(.p
.\" The page offset is \n(.o
.\" need this RT call else, the subsequent pages are losing the indent
.RT
.ft B
.ce
Mafs - Plan 9 userspace file systems
.ft R
.sp
Mafs wants you to be able to understand it, so you can be self-sufficient and fix a crash at two in the morning or satisfy your need for speed or a feature. This empowerment is priceless for those with skin in the game. It provides a reference implementation for creating use-case optimized filesystems.
.sp
Mafs is a user space file systems to provide system stability and security. It is based on kfs. It maintains copies of all metadata, creates a copy on any data write and writes to the disk lazily. These equate to greater throughput, the prevention of disk fragmentation, and the display of a recovery path on unsafe shutdowns.
.sp
As this document aims to also provide working knowledge, it gratuitously uses the actual commands and the relevant C data structure definitions to convey information.
.sp
.ft B
Mafs Workflow
.ft R
.sp
.PS
right;
{
	Client: box invis height 4*boxht wid 2*boxwid "" "" "" "Chan.aux has" "file offset, etc.";
	"Client" at Client.n
	line from Client.ne to Client.se
}
move 2*boxwid
{
	Multiple: box invis
	{
		" multiple" at Multiple.nw - 0,0.1 ljust
		" workers" at Multiple.sw + 0,0.1 ljust
		line <-> from Client to Multiple.w "9p" above
	}
	move 0.5*boxwid
	Abstractions: box invis "Abstractions"
	{ "Directory" "File" at Abstractions.s }
	move 0.75*boxwid
	Datastructures: box invis "Data Structures"
	{ "Dentry" at Datastructures.s }
	Buffercache: box invis "Buffer cache" "used blocks" with .sw at Datastructures.ne + 0.5i,0
	Extents: box invis "Extents" "free blocks" with .nw at Datastructures.se + 0.5i,0
	move 0.5*boxwid
	Inmemory: box invis "In-memory" "block contents" with .sw at Buffercache.n + 0.5i,0
	down
	move 0.5*boxwid
	Disk: box "Disk" "blocks" height 1.5*boxht with .sw at Extents.se + 0.4i,0
}
	line <-> from Multiple.e to Abstractions.w - 0.1i,0
	line <-> from Abstractions.e + 0.1i,0 to Datastructures.w - 0.2i,0
	line <-> from Datastructures.e + 0,0.1i to Buffercache.w - 0.1i,0
	line <-> from Datastructures.e - 0,0.1i to Extents.w
	line <-> from Buffercache.se + 0.1i,0 to Disk.w
	line <-> from Extents.e to Disk.w
	line <-> from Buffercache.s to Extents.n
	line <-> from Buffercache.ne - 0,0.1i to Inmemory.sw + 0,0.1i
.PE
.sp
.sp
.ft B
Disk Contents
.ft R
.sp
Mafs organizes and saves content on a disk as directories and files, just like any other filesystem.
.sp
The unit of storage is a logical block (not physical sector) of data. Disk space is split into blocks of 512 bytes. A directory entry uses a block and a data block could use upto 2048 blocks (1MiB).
.sp
Keeping the directory entries to a block reduces "snowdust" due to the "best fit" algorithm used for assigning disk blocks and memory.
.sp
.ne 14
A sample disk of 2048 bytes with 4 blocks.
.PS
right
{
	down;
."	{box dashed; box dashed; box dashed; box dashed;}
	box height 4*boxht;
	move 0.2i;
	"disk of" " 2048 bytes"
}
move; move
{
	move 0.5i;
	down;
	{
		Block0: box dashed;
		Block1: box dashed;
		Block2: box dashed;
		Block3: box dashed;
	}
	box height 4*boxht;
	move 0.2i
	"disk of" " 2048 bytes"
	"Block  " at Block0.nw rjust
	"0  " at Block0.w rjust
	"1  " at Block1.w rjust
	"2  " at Block2.w rjust
	"3  " at Block3.w rjust
}
.PE
.sp
A block is stored to the disk with a tag in the first byte and the Qid.path in the last 8 bytes. The different types of blocks on a disk are:
.br
.nf
enum
{
	Tblank = 0,
	Tfree  = 0,	/* free block */
	Tnone  = 0,
	Tdata,		/* actual file contents */
	Tdentry,		/* directory entry, size = Dentrysize */
				/* Tdata & indirect blocks are last, to allow for greater depth */
	Tind0,		/* contains a list of Tdata block numbers for files
					and Tdentry block numbers for directories.*/
	Tind1,		/* contains a list of Tind0 block numbers */
	Tind2,		/* contains a list of Tind1 block numbers */
	Tind3,		/* contains a list of Tind1 block numbers */
	Tind4,		/* contains a list of Tind1 block numbers */
				/* gap for more indirect block depth in future.
					It can be put upto Tind7 without needing any code changes */
	Maxtind,		/* should be Tind0+Niblock */
	MAXTAG = Maxtind,

	Tmaxind = Maxtind - 1,
};
.fi
.sp
Every file or directory is represented on the disk by a directory entry (Dentry). A directory entry uses a  block (tag = Tdentry) and is uniquely identifiable by a Qid.
.sp
A file's contents are stored in the directory entry itself if they are 320 bytes or lesser. A file stores its contents in blocks with a tag of Tdata if the file size is more than that. A directory holds the directory entries of it's children in blocks each with a tag of Tdentry.
.sp
The blocks used by a file or directory entry are listed in their directory entry. As it is not possible to represent big files using the list of blocks available in the directory entry, the blocks are structured to use multiple levels of indirection as the file size increases.
.sp
A file's data blocks are identified by a tag of Tdata and that file's Qid.path. A directory's data blocks are identified by a tag of Tdentry and Qid.path of the child directory entry. (Is this quirky? Should the child's directory entry have a tag with the parent's Qid.path?)
.sp
A block number of zero represents the end of the file's contents. If a file is truncated, the data and indirect blocks are given up and the dentry.dblocks[0] = 0.
.sp
Mafs does not store the last access time of a file or directory.
.ne 20
.sp
A directory entry is defined as:
.nf
enum {
	Blocksize	= 512ULL,	/* minimum data unit size */

	Maxdatablockunits = 2048,
	Nindperblock= (Blocksize-3*sizeof(u64))/sizeof(u64),/* number of pointers per block */
	Nu64perblock= (Blocksize/sizeof(u64)),		/* number of u64's in a block */
	Dpathidx	= (Blocksize/sizeof(u64) -1),	/* index of path in the last data block, last u64 */

	Namelen = 128,	/* maximum length of a file name, calculated manually */
	Ndblock	= 32,	/* number of direct blocks in a Dentry */
	Niblock	= 5,	/* maximum depth of indirect blocks, can increase it to 8 without issues */
};
struct Dentryhdr
{

	u8 tag;
	u8 namelen;
	s16 uid;
	s16 gid;
	s16 muid;		/* 8 */
	u64 size;		/* 0 for directories. For files, size in bytes of the content - 16 */
	u64 pdblkno; 	/* block number of the parent directory entry. Will be 0 for root. - 24 */
	u64 pqpath; 	/* parent qid.path - 32 */
	u64 mtime;		/* modified time in nano seconds from epoch - 40 */
	u64 qpath;		/* unique identifier Qid.path 48 */
	u32 version;	/* Qid.version 52 */
	u32 mode;		/* same bits as defined in /sys/include/libc.h:/Dir\.mode/ - 56 */
	s8 name[Namelen]; /* Namelen = 128 - 184*/
};
struct Datahdr
{
	u8 tag;
	u8 unused;	/* for alignment and future use */
	u16 len;
	u64 dblkno;	/* block number of the directory entry */
};

enum {
	/* size of identifiers used in a Tdata block */
	Ddataidssize = sizeof(Datahdr) +sizeof(u64 /* trailing path */),
	/* max possible size of data that can be stuffed into a Dentry */
	Ddatasize = Blocksize -sizeof(Dentryhdr) -sizeof(u64 /* trailing path */),
	Maxdatablocksize = Maxdatablockunits*Blocksize -Ddataidssize,
};

struct Super
{
	u64 qidgen;	/* generator for unique ids. starts from 1024. */
	u64 fsok;	/* fsck status, using 64 bits to keep it all aligned */
};
struct Dentry
{
	Dentryhdr;
	union
	{
		struct
		{
			u64 dblocks[Ndblock];	/* direct blocks. */
									/* List of Tdata block numbers for files and
										Tdentry block numbers for directories */
			u64 iblocks[Niblock];	/* indirect blocks */
		};
		Super;

		/* when size <= Dentrysize-184-sizeof(Tag), store the data here itself */
		s8 buf[Ddatasize];
	};
	u64 path;	/* same as qid.path */
};
struct Indirect
{
	u8 tagi;	/* the suffix i to avoid union complaining about ambiguous fields */
	u8 pad[7];	/* unused, to align to a multiple of 8 */
	u64 dblkno;	/* block number of the directory entry */
	u64 bufa[Nindperblock];
	u64 pathi;	/* same as qid.path */
};
struct Data		/* used to unmarshall the disk contents */
{
	Datahdr;
	u8 buf[1];	/* upto Maxdatablocksize, followed by u64 qid.path */
	/* u64 path; same as qid.path at the end of the data content - check consistency */
};
.fi
.sp
A directory entry once assigned is not given up until the parent directory is removed. It is zero'ed if the directory entry is removed. It is reused by the next directory entry created under that parent directory. This removes the need for garbage collection of directory entries on removals and also avoids zero block numbers in the middle of a directory entry's list of blocks. A zero block number while traversing a directory entry's dblocks or iblocks represents the end of directory or file contents. When a directory is removed, the parent will have a directory entry with a tag of Tdentry and Qpnone and the rest of the contents set to zero.
.sp
A directory entry is stored in two blocks to have a copy on write. These entries are in consecutive blocks.
.sp
A directory's size is always zero.
.sp
.nf
	; tests/6.sizes
	Blocksize 512 Maxdatablockunits 2048
	Dentryhdr size 184 Ddatasize 320
	Dentry size 512 Namelen 128
	Datahdr size 12 Ddataidssize 20 Maxdatablocksize 1048556
	Namelen 128 Ndblock 32 Niblock 5
	Nindperblock 61 Maxdatablocksize 1048556
	A Tind0 unit points to 1 data blocks (1048556 bytes)
			block points to 61 data blocks
			reli start 32	max 92
			max size 93*Maxdatablocksize = 97515708 bytes	= 92 MiB
	A Tind1 unit points to 61 data blocks (63961916 bytes)
			block points to 3721 data blocks
			reli start 93	max 3813
			max size 3814*Maxdatablocksize = 3999192584 bytes	= 3 GiB
	A Tind2 unit points to 3721 data blocks (3901676876 bytes)
			block points to 226981 data blocks
			reli start 3814	max 230794
			max size 230795*Maxdatablocksize = 242001482020 bytes	= 225 GiB
	A Tind3 unit points to 226981 data blocks (238002289436 bytes)
			block points to 13845841 data blocks
			reli start 230795	max 14076635
			max size 14076636*Maxdatablocksize = 14760141137616 bytes	= 13 TiB
	A Tind4 unit points to 13845841 data blocks (14518139655596 bytes)
			block points to 844596301 data blocks
			reli start 14076636	max 858672936
			max size 858672937*Maxdatablocksize = 900366660128972 bytes	= 818 TiB
.fi
.ne 30
.sp
On an empty mafs filesystem mounted at /n/mafs, the disk contents added by the below commands are:
.nf
mkdir /n/mafs/dir1
echo test > /n/mafs/dir1/file1
.fi
\" from test.9
.PS
right
bigboxht = boxht
fieldht = 0.35*boxht
{
	down
	{ Bound: box height 9*bigboxht width 3.3*boxwid }
	move 0.1i
	box height fieldht invis "Tdentry qid.path 64"
	box height fieldht invis "name dir1"
	box height fieldht invis "uid 10006"
	box height fieldht invis "gid -1"
	box height fieldht invis "muid 10006"
	box height fieldht invis "size 0"
	box height fieldht invis "pdblkno 10"
	box height fieldht invis "pqpath 10"
	box height fieldht invis "mtime 1653302180819962729"
	box height fieldht invis "path 64"
	box height fieldht invis "version 0"
	box height fieldht invis "mode 20000000777"
	box height fieldht invis "direct blocks"
	box height fieldht invis "        0 12"
	box height fieldht invis "        1 0"
	box height fieldht invis "        2 0"
	box height fieldht invis "."
	box height fieldht invis "."
	box height fieldht invis "."
	box height fieldht invis "        30 0"
	box height fieldht invis "        31 0"
	box height fieldht invis "indirect blocks"
	box height fieldht invis "        0 0"
	box height fieldht invis "        1 0"
	box height fieldht invis "        2 0"
	"Block 11 contents: /dir1 Dentry" at Bound.nw + 0,0.1i ljust
	"Representation of a file in a directory: /dir1/file1" ljust at Bound.n + 0,0.3i
}
move 4*boxwid
{
	down
	{ Bound: box height 5*bigboxht width 3.3*boxwid }
	move 0.1i
	box height fieldht invis "Tdentry qid.path 65"
	box height fieldht invis "name file1"
	box height fieldht invis "uid 10006"
	box height fieldht invis "gid -1"
	box height fieldht invis "muid 10006"
	box height fieldht invis "size 5"
	box height fieldht invis "pdblkno 11"
	box height fieldht invis "pqpath 64"
	box height fieldht invis "mtime 1653302180823455071"
	box height fieldht invis "path 65"
	box height fieldht invis "version 0"
	box height fieldht invis "mode 666"
	box height fieldht invis "test"
	"Block 12 contents: file1 Dentry" at Bound.nw + 0,0.1i ljust
}
.PE
.sp
.PS
right
Start: {
	down
	{ Bound: box height 8.5*bigboxht width 3.3*boxwid }
	move 0.1i
	box height fieldht invis "Tdentry qid.path 66"
	box height fieldht invis "name dir2"
	box height fieldht invis "uid 10006"
	box height fieldht invis "gid -1"
	box height fieldht invis "muid 10006"
	box height fieldht invis "size 0"
	box height fieldht invis "pdblkno 10"
	box height fieldht invis "pqpath 10"
	box height fieldht invis "mtime 1653302180819962729"
	box height fieldht invis "path 66"
	box height fieldht invis "version 0"
	box height fieldht invis "mode 20000000777"
	box height fieldht invis "direct blocks"
	box height fieldht invis "        0 14"
	box height fieldht invis "        1 15"
	box height fieldht invis "."
	box height fieldht invis "."
	box height fieldht invis "."
	box height fieldht invis "        31 0"
	box height fieldht invis "indirect blocks"
	box height fieldht invis "        0 0"
	box height fieldht invis "        1 0"
	box height fieldht invis "        2 0"
	"Block 13 contents: /dir2 directory entry" at Bound.nw + 0,0.1i ljust
	"Representation of two files in a directory (/dir2/file1 and /dir2/file2)" ljust at Bound.nw + 0.2,0.3i
}
move 4*boxwid
{
	down
	{ Bound: box height 8.5*bigboxht width 3.3*boxwid }
	move 0.1i
	box height fieldht invis "Tdentry qid.path 67"
	box height fieldht invis "name file1"
	box height fieldht invis "uid 10006"
	box height fieldht invis "gid -1"
	box height fieldht invis "muid 10006"
	box height fieldht invis "size 5"
	box height fieldht invis "pdblkno 13"
	box height fieldht invis "pqpath 66"
	box height fieldht invis "mtime 1653302180823455071"
	box height fieldht invis "path 67"
	box height fieldht invis "version 0"
	box height fieldht invis "mode 666"
	box height fieldht invis "test"
	"Block 14 contents: file1 directory entry" at Bound.nw + 0,0.1i ljust
}
.PE
.sp
iblocks[0] holds the block number of a Tind0 block. A Tind0 block contains a list of Tdata block numbers for files or a list of Tdentry block numbers for directories.
.sp
iblocks[1] has the block number of a Tind1 block. A Tind1 block contains a list of Tind0 block numbers.
.sp
Similarly, for other iblocks[n] entries, iblocks[n] has the block number of a Tind\fIn\fR block. A Tind\fIn\fR block contains a list of Tind\fI(n-1)\fR block numbers.
.sp
.sp
Relative index
.sp
The zero'th relative index in a directory entry is the first data block. The next relative index is the second data block of the directory entry, and so on.
.sp
tests/6.reli shows how a relative index (reli) is translated into an actual disk block number.
.sp
To find the actual block number where the first block (zero'th as zero indexed) of a file is stored:
.nf
	tests/6.reli 0 # command, below is the output of this command
	reli 0
	dblock[0]
.fi
.sp
To find the actual block number where the second block of a file is stored:
.nf
	tests/6.reli 1
	reli 1
	dblock[1]
.fi
.sp
And so on, for the 32nd and 33rd blocks of a file:
.nf
	tests/6.reli 31
	reli 31
	dblock[31]

	tests/6.reli 32
	reli 32
	iblock[0] tagstartreli 32
	Tind0 reli 0 is at [0] nperindunit 1
.fi
.sp
.PS
right
Start: {
	down
	{ Bound: box height 8.5*bigboxht width 3.3*boxwid }
	move 0.1i
	box height fieldht invis "Tdentry qid.path 70"
	box height fieldht invis "name 2MB.file"
	box height fieldht invis "uid 10006"
	box height fieldht invis "gid -1"
	box height fieldht invis "muid 10006"
	box height fieldht invis "size 2056192"
	box height fieldht invis "pdblkno 16"
	box height fieldht invis "pqpath 69"
	box height fieldht invis "mtime 1653302180819962729"
	box height fieldht invis "path 70"
	box height fieldht invis "version 0"
	box height fieldht invis "mode 664"
	box height fieldht invis "direct blocks"
	box height fieldht invis "        0 18"
	box height fieldht invis "        1 2066"
	box height fieldht invis "        2 0"
	box height fieldht invis "."
	box height fieldht invis "."
	box height fieldht invis "indirect blocks"
	box height fieldht invis "       0 0"
	box height fieldht invis "       1 0"
	box height fieldht invis "       2 0"
	"Block 17 contents" at Bound.nw + 0,0.1i ljust
	"Representation of a 2 MiB file (/dir3/2MB.file)" ljust at Bound.n + 0,0.3i
}
move 4*boxwid
{
	down
	{ Bound: box height 6*bigboxht width 3.3*boxwid }
	move 0.1i
	box height fieldht invis "Tdata qid.path 70 dblkno 17 len 2048"
	box height fieldht invis "0 0123456789"; {"contents of 2MB.file" at last box.e + 1i,0 ljust}
	"Block 18 contents" at Bound.nw + 0,0.1i ljust
}
.PE
\" from test.a
.PS
right
Start: {
	down
	{ Bound: box height 9*bigboxht width 3.3*boxwid }
	move 0.1i
	box height fieldht invis "Tdentry qid.path 64"
	box height fieldht invis "name big.file"
	box height fieldht invis "uid 10006"
	box height fieldht invis "gid -1"
	box height fieldht invis "muid 10006"
	box height fieldht invis "size 26214400"
	box height fieldht invis "pdblkno 10"
	box height fieldht invis "pqpath 10"
	box height fieldht invis "mtime 1653302180819962729"
	box height fieldht invis "path 64"
	box height fieldht invis "version 0"
	box height fieldht invis "mode 666"
	box height fieldht invis "direct blocks"
	box height fieldht invis "       0 12"
	box height fieldht invis "       1 2060"
	box height fieldht invis "       2 4108"
	box height fieldht invis "."
	box height fieldht invis "."
	box height fieldht invis "       31 63500"
	box height fieldht invis "indirect blocks"
	box height fieldht invis "       0 67596"
	box height fieldht invis "       1 192525"
	box height fieldht invis "       2 0"
	"Block 11 contents" at Bound.nw + 0,0.1i ljust
	"Representation of a 106490448 bytes file (/big.file)" ljust at Bound.n + 0,0.3i
}
move 4*boxwid
{
	down
	{ Bound: box height 4*bigboxht width 3.3*boxwid }
	move 0.1i
	box height fieldht invis "Tdata qid.path 64 dblkno 11 len 2048"
	box height fieldht invis "0 0123456789"; {"starting contents" at last box.e + 1i,0 ljust;}
	box height fieldht invis "."; {"of big.file" at last box.e + 1i,0 ljust}
	box height fieldht invis "."
	box height fieldht invis "."
	"Block 12 contents" at Bound.nw + 0,0.1i ljust
}
move to Start - 0,9.5*bigboxht
{
	down
	{ Bound: box height 3*bigboxht width 3.3*boxwid }
	move 0.1i
	box height fieldht invis "Tind0 qid.path 64 dblkno 11"
	box height fieldht invis "	0 65548"
	box height fieldht invis "	1 67597"
	box height fieldht invis "	2 69645"
	box height fieldht invis "."
	box height fieldht invis "."
	"Block 67596 contents" at Bound.nw + 0,0.1i ljust
}
right
move 4*boxwid
{
	down
	{ Bound: box height 3*bigboxht width 3.3*boxwid }
	move 0.1i
	box height fieldht invis "Tdata qid.path 64 dblkno 11 len 2048"
	box height fieldht invis " 0123456789"; {"more content" at last box.e + 1i,0 ljust}
	box height fieldht invis "."; {"of big.file" at last box.e + 1i,0 ljust}
	box height fieldht invis "."
	"Block 65548 contents" at Bound.nw + 0,0.1i ljust
}
.PE
.sp
.TS
box;
c s
c l
l a .
System Files
=
Block	Description
0	magic dir entry and data
1	/a/config dir entry
2	/a/super dir entry
_
3	/a/ dir entry
4	/a/users/ dir entry
5	/a/bkp/ dir entry
_
6	/a/users/inuse dir entry
7	/a/frees dir entry
8	/a/ctl dir entry -- virtual file, empty contents
_
9	/a/users/staging dir entry
10	/ direntry
_
.TE
.ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
.sp
The /a/ctl file is used to halt or sync the file system. /a/users is a r/w file that will reload users when written to it. The owner of the /a/ctl file or any user belonging to the sys group can ream the disk.
.sp
There is no /a/magic directory entry as the block number of the magic block is zero and zero block in a directory entry signifies the end of the directory contents.
.sp
.sp
.ne 4
Backup blocks
.sp
A copy of Config, Super and Root blocks is maintained. This ensures a backup of config, Super and root blocks.
.sp
The backup block numbers on the disk are calculated during ream based on the disk size.
.sp
.TS
box;
c l c
l a a .
Block	Description	Backup Block
_
1	/a/config	last block number -1
2	/a/super	last block number -2
10	/	last block number -3
.TE
.ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
.sp
Mafs needs atleast Nminblocks=14 blocks (7 KiB).
.fi
.sp
kfs and cwfs use 8192 byte blocks. Hence, they store multiple directory entries (Dentry) per block. They use slot numbers to identify a particular directory entry in a block of directory entries. Mafs avoids that by using 512 byte blocks thus having only one directory entry per block. This avoids locking up other sibling directory entries on access, more compact disk usage and better throughput for large files but also slows down walk()'s as mafs would be using a read() per directory entry.
.sp
.sp
.ne 4
Users
.sp
Users are defined in /a/users/inuse file. Any changes to it are made through the /a/users/staging file. All changes are written to the staging file and then inuse file is updated by writing the command users to the /a/ctl file.
.sp
Either all changes to /a/users/inuse are installed or nothing is installed from the /a/users/staging file.
.sp
The format of /a/users/inuse is described in users(6).
.sp
.sp
.ft B
Buffer cache - Hash buckets with a circular linked list of Iobuf's for collisions.
.ft R
.sp
An Iobuf is used to represent a block in memory. An Iobuf is unique to a block. All disk interaction, except for free block management, happens through an Iobuf. We read a block from the disk into an Iobuf. To update a block on the disk, we write to an Iobuf, which, in-turn gets written to the disk.
.sp
An Iobuf is protected by a read-write lock (RWlock). This ensures synchronization across multiple processes updating the same file.
.sp
getbuf(), putbuf(), putbufs() and putbuffree() are used to manage Iobuf's. The contents of an Iobuf is not touched unless it is locked by getbuf(). It is unlocked by putbuf(), putbufs() or putbuffree() calls. The Iobuf.dirties Ref is decremented by the mafs writer's dowrite() without a lock(). This is to avoid deadlocks between putbuf() and the writer especially when the writer queue is full.
.sp
allocblock() allocates a free block into an Iobuf. allocblocks() allocates a bunch of free blocks with their own Iobuf's.
.sp
freeblock() erases the Iobuf and returns the block to the free block management routines.
.sp
Iobuf's are organized into a list of hash buckets to speed up access.
.sp
.nf
Hiob *hiob = nil;	/* array of nbuckets */
struct Hiob		/* Hash bucket */
{
	Iobuf* link;	/* least recently used Iobuf in the circular linked list */
	QLock;		/* controls access to this hash bucket */
	u64	n;		/* count of Iobuf's in the circular list */
};
struct Iobuf
{
	Ref;
	RWLock;			/* controls access to this Iobuf */
	u64	blkno;		/* block number on the disk, primary key */
	u16	len;		/* number of Units */
	Iobuf *fore;	/* for lru */
	Iobuf *back;	/* for lru */
	union{
		u8	*xiobuf;	/* "real" buffer pointer */
		u64	*xiobuf64;
		Data *io;
		Dentry *d;
		Indirect *i;
	};

	u8 *append;		/* appended data added not yet written to disk */
	u64 appendsize;
	u8 freshalloc;	/* uninitialized blocks on the disk */
	u64 atime;		/* to find old buffers to flush to the disk */
	u8 tag;
	u64 callerpc;	/* when locked, the locker pc for debugging */
};
.fi
.sp
The Iobuf's are arranged into a list of hash buckets. Each bucket points a circular linked list of Iobuf's to handle collisions. If all the Iobuf's in the circular linked list are locked, new Iobuf's are added to this linked list. This circular list is ordered on a least recently used basis. Iobuf's once added to this list are not removed. When an Iobuf is not in the list, the oldest unlocked Iobuf is reused.
.sp
Hiob hiob[nbuckets] is a valid representation of the list of hash buckets. The block number is hashed to arrive at the relevant hash bucket index.
.sp
hiob[hash(block number)].link = Address of Iobuf0, where Iobuf0 is the least recently used Iobuf.
.PS
{
	right
	Iobuf0: box "Iobuf 0"; move
	Iobuf1: box "Iobuf 1"; move
	Iobuf2: box "Iobuf 2"
}
down
move; move
{
	right
	Iobufn: box "Iobuf n"; move
	Iobufn1: box "Iobuf n-1"; move
	Iobufn2: box "Iobuf n-2"
}
arrow from Iobuf0.ne - 0,0.05i to Iobuf1.nw - 0,0.05i
arrow from Iobuf1.sw + 0,0.05i to Iobuf0.se + 0,0.05i
arrow from Iobuf1.ne - 0,0.05i to Iobuf2.nw - 0,0.05i
arrow from Iobuf2.sw + 0,0.05i to Iobuf1.se + 0,0.05i

arrow from Iobufn.ne - 0,0.05i to Iobufn1.nw - 0,0.05i
arrow from Iobufn1.sw + 0,0.05i to Iobufn.se + 0,0.05i
arrow from Iobufn1.ne - 0,0.05i to Iobufn2.nw - 0,0.05i
arrow from Iobufn2.sw + 0,0.05i to Iobufn1.se + 0,0.05i

arrow dashed from Iobuf0.sw + 0.05i,0 to Iobufn.nw + 0.05i,0
arrow dashed from Iobufn.ne - 0.05i,0 to Iobuf0.se - 0.05i,0
arrow dashed from Iobuf2.sw + 0.05i,0 to Iobufn2.nw + 0.05i,0
arrow dashed from Iobufn2.ne - 0.05i,0 to Iobuf2.se - 0.05i,0
.PE
.sp
The size of the buffer cache is: number of hash buckets * collisions per hash bucket * block size. The approximate size of the buffer cache is Nbuckets * Ncollisions * Blocksize * Maxdatablockunits.
.sp
When there is an ups, the ideal memnunits (-m) is disk throughput * Nrefresh * ups duration/2. Without an ups, Without an ups, disk throughput * Nrefresh * 3 seems optimal.
.sp
If you have RAM to spare, increase Nbuckets instead of Ncollisions as the hash index lookup is faster than searching through a linked list.
.sp
Using Maxdatablockunits of 2048 allows bigger data blocks thus providing better throughput for large files but also wastes a lot more memory while writing to small files. If your use case involves requiring more efficient use of memory, setting Maxdatablockunits to 16 keeps the data block sizes down to what cwfs uses.
.sp
Iobuf.Ref is used to avoid locking up the hash bucket when a process is waiting for a lock on an Iobuf in that hash bucket.
.sp
Iobuf.Ref ensures that an Iobuf is not stolen before another process can get to wlock()'ing it after letting go of the lock on the hash bucket. We cannot hold the lock on the hash bucket until we wlock() the iobuf as that blocks other processes from using the hash bucket. This could also result in a deadlock. For example, the directory entry is block 18, which hashes to a hash index of 7. A writer() locked the directory entry iobuf and wants to add a data block 84 to the directory entry. Block 84 hashes to the same hash index of 7. Another process wanting to access the directory entry is waiting for a lock on that io buffer. While doing so, it has locked the hash bucket. Now, this has caused a deadlock between both these processes. The first process cannot proceed until it can lock the hash bucket holding block 84 and is still holding the lock on the directory entry in block 18. The second process cannot lock block 18 and is holding the lock on the hash bucket.
.nf
	for locking a buffer:
		qlock(hash bucket); incref(buffer); qunlock(hash bucket);
			wlock(buffer); decref(buffer);

	for stealing an unused buffer:
		qlock(hash bucket);
		find a buffer with ref == 0 and wlock()'able.
		qunlock(hash bucket);

	for unlocking a buffer:
		wunlock(buffer);
.fi
.sp
.sp
.ne 4
.ft B
Free blocks
.ft R
.sp
Free blocks are managed using Extents. The list of free blocks is stored to the disk when shutting down. If this state is not written, then the file system needs to be checked and the list of free blocks should be updated.
.sp
When shutting down, the Extents are written to free blocks. This information can be accessed from /a/frees. Also, fsok in the super block is set to 1. Mafs does not start until fsok is 1. When fsok = 0, run the sanity check that the unused blocks and the free blocks in /a/frees match up. disk/reconcile identifies any missing blocks or blocks that are marked as both used and free.
.sp
This process of fixing issues and setting fsok to 1 is manual. There is no automatic file system checker as in other file systems. This document aims to empower you with the knowledge to fix your file system issues instead of entrusting your precious data to an arbitrary decision maker such as the file system checker.
.sp
A tag of Tfree and Qpnone represent a free block. If a directory entry is removed, the parent will have a zero'ed out child directory entry (Qid.path = 0) and a tag of Tdentry and Qpnone.
.sp
.sp
.ne 4
.ft B
Extents
.ft R
.sp
This is a more elaborate version of the storage allocator described in Section 8.7 of the K & R C Programming language book. It differs from the allocator described there by being a "Best first fit" instead of a "first fit". Also, instead of a circular linked list of free blocks, we maintain the free blocks in two doubly linked lists, one by start address and another by size and start address. We also maintain a list of recently used blocks to reduce the travel by linear scans.
.sp
Extents is an abstraction used to manage contiguous units. It is responsibility of the caller to manage the size and scaling of each unit.
.sp
Free blocks, memory and long names strings are managed using Extents.
.sp
An Extent represents a continuous list of items. An Extents is a list of such Extent's.
.sp
.nf
struct Extent {
	struct Extent *low, *high;	/* sorted by start */
	struct Extent *small, *big;	/* sorted by the number of blocks in this extent */
	u64 start;					/* where this extent starts from */
	u64 len; 					/* how many units in this extent */

	/* circular least recently used linked list limited to Nlru items */
	struct Extent *prev, *next;
};
struct Extents {
	Extent *lowest;	/* find the first block number in a jiffy */
	QLock lck;
	u64 n;			/* number of extents */
	Rendez isempty; /* fully used, nothing available */

	u8 nlru;		/* number of items in the lru linked list */
	Extent *lru;	/* least recently used extent in the circular lru linked list */
	char name[32];

	void (*flush)(void);
};
.fi
.sp
To allocate n items from Extents, we find the lowest (by block number or memory address) extent that can satisfy our request. If a bigger Extent is available, slice it and take the portion we need.
.sp
If there is no available Extent to satisfy our request, panic().
.sp
allocblock() and freeblock() use balloc() and bfree() respectively. balloc() assigns blocks from an extent and bfree() adds them to an extent for next allocation.
.sp
.PS
# define field { [right; box invis $1 ljust; box invis $2 rjust; down] }
# define field { [right; box $1 ljust; box $2 rjust; down] }
define field { [right; box invis $1; box invis $2; down] }
boxht = 0.5*boxht
down
{
	box invis "Extents at memory location 1"
	Extents: {box ht 3*boxht wid 2*boxwid}
	Lru: field("lru", "100")
	{ "  assuming that the Extent at 100 was used last" ljust at Lru.e }
	El: field("el","0")
	{ "  unlocked" ljust at El.e }
	field("n","3")
}
.PE
.PS
down
move 4*boxht
define extent {
	[
		down
		Extent: {box ht 4*boxht wid 2*boxwid}
		field("blkno", $1)
		Len: field("len",$2)
		{ right line dashed from Len.sw to Len.se }
		field("low",$3)
		High: field("high",$4)
		if $5 > 0 then {
			"Extent at" ljust above at Extent.nw
			"$5" ljust above at Extent.n
		}
	]
}
{
	right
	extent("10", "1", "0", "200", 100);
	move
	extent("20", "3", "100", "300", 200);
	move
	extent("30", "2", "200", "0", 300);
}
down
{
	move boxht*5
	right
	box invis "+"
	box invis width 2 "freed block numbers" "11,12,13,14"
	box invis "="
}
down
move boxht*10
{
	right
	extent("10", "5", "0", "200", 100);
	move
	extent("20", "3", "100", "300", 200);
	move
	extent("30", "2", "200", "0", 300);
}
.PE
.PS
# ../tests/extents/addabove
define delimiter {
	down
	line right 5 dashed
	move down 0.25
}
define headingfield {
	[
		right;
		Blkno: box invis $1;
		Len: box invis $2;
	]
}
define order {
	down
	arrowwid=0.15
	arrowht=0.15
	arrow 0.25i at $1
}
right
Before: [
	down
	Head: headingfield("blkno", "len", Blkno.w)
	{ order(Head.w) }
	field("20", "3")
]
{ "Extents before" above ljust at Before.nw }
[
	right
	box invis "+"
	box invis "Block number 40" "followed" "by 3 free blocks"
	box invis "="
]
move
After: [
	down
	Headb: headingfield("blkno", "len", Blkno.w)
	{ order(Headb.w) }
	field("20", "3")
	field("40", "4")
]
{ "Extents after" above ljust at After.nw }
.PE
.PS
delimiter
.PE
.PS
# ../tests/extents/mergeabove
right
Before: [
	down
	Head: headingfield("blkno", "len", Blkno.w)
	{ order(Head.w) }
	field("100", "5")
	field("110", "3")
]
{ "Extents before" above ljust at Before.nw }
[
	right
	box invis "+"
	box invis "Block number 105" "followed" "by 4 free blocks"
	box invis "="
]
move
After: [
	down
	Headb: headingfield("blkno", "len", Blkno.w)
	{ order(Headb.w) }
	field("100", "13")
]
{ "Extents after" above ljust at After.nw }
.PE
.PS
delimiter
.PE
.PS
# ../tests/extents/mergeprevious
right
Before: [
	down
	Head: headingfield("blkno", "len", Blkno.w)
	{ order(Head.w) }
	field("105", "4")
]
{ "Extents before" above ljust at Before.nw }
[
	right
	box invis "+"
	box invis "Block number 101" "followed" "by 3 free blocks"
	box invis "="
]
move
After: [
	down
	Headb: headingfield("blkno", "len", Blkno.w)
	{ order(Headb.w) }
	field("101", "8")
]
{ "Extents after" above ljust at After.nw }
.PE
.PS
delimiter
.PE
.PS
# ../tests/extents/mergenext
right
Before: [
	down
	Head: headingfield("blkno", "len", Blkno.w)
	{ order(Head.w) }
	field("101", "4")
]
{ "Extents before" above ljust at Before.nw }
[
	right
	box invis "+"
	box invis "Block number 105" "followed" "by 3 free blocks"
	box invis "="
]
move
After: [
	down
	Headb: headingfield("blkno", "len", Blkno.w)
	{ order(Headb.w) }
	field("100", "8")
]
{ "Extents after" above ljust at After.nw }
.PE
.PS
delimiter
.PE
.PS
# ../tests/extents/addabove1
right
Before: [
	down
	Head: headingfield("blkno", "len", Blkno.w)
	{ order(Head.w) }
	field("180", "4")
]
{ "Extents before" above ljust at Before.nw }
[
	right
	box invis "+"
	box invis "Block number 250" "followed" "by 3 free blocks"
	box invis "="
]
move
After: [
	down
	Headb: headingfield("blkno", "len", Blkno.w)
	{ order(Headb.w) }
	field("180", "4")
	field("250", "4")
]
{ "Extents after" above ljust at After.nw }
.PE
.PS
delimiter
.PE
.PS
# ../tests/extents/addbelow
right
Before: [
	down
	Head: headingfield("blkno", "len", Blkno.w)
	{ order(Head.w) }
	field("250", "4")
]
{ "Extents before" above ljust at Before.nw }
[
	right
	box invis "+"
	box invis "Block number 180" "followed" "by 3 free blocks"
	box invis "="
]
move
After: [
	down
	Headb: headingfield("blkno", "len", Blkno.w)
	{ order(Headb.w) }
	field("180", "4")
	field("250", "4")
]
{ "Extents after" above ljust at After.nw }
.PE
.sp
Kfs stores the list of free blocks in a Tfrees block and the Superblock. Instead we use block management routines, similar to pool.h, to allocate and monitor free blocks. On shutdown(), the block management routines (extents.[ch]) store state into the free blocks. This can be read from /a/frees. On startup, this is read back by the block management routines. On a crash, the fsck can walk the directory structure to identify the free blocks and recreate /a/frees.
.sp
.sp
.ne 12
.ft B
Code details
.ft R
.sp
.TS
allbox;
c c
l a .
Program	Description
_
disk/mafs	Start mafs on a disk.
disk/fsck	Check file system on an improper shutdown.
disk/free	List the free blocks. It reads the contents of /a/frees.
disk/used	List the used blocks by traversing all directory entries.
disk/block	Show the contents of a block.
disk/unused	Lists the unused blocks when given extents of used blocks.
disk/updatefrees	Update the contents of /a/frees.
.TE
.sp
.TS
allbox;
c c r
l a r .
File	Description	chatty9p
_
9p.c	9p transactions	2
blk.c	routines to show blocks.
console.c	obsolete. /a/ctl is the console.
ctl.c	/a/ctl operations.
dentry.c	encode/decode the file system abstraction into block operations.	3
extents.[ch]	routines to manage the free blocks.	6
iobuf.c	routines on Iobuf's. The bkp() routines operate on Iobuf's.	5
sub.c	initialization and super block related routines.	2
tag.c	routines to manage a relative index (reli) in a directory entry.
user.c	user management routines.
.TE
.ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
.in 0
.sp
A Chan's state could get out of sync with the contents if another process changes the on-disk state. Ephase error occurs when that happens.
.sp
For throughput, multiple processes are used to service 9p i/o requests when the -s flag is not used.
.sp
.sp
.ne 4
.ft B
Useful commands:
.ft R
.sp
Ream and start single process Mafs on a disk and also mount it for use.
.sp
.nf
	mount -c <{disk/mafs -s -r mafs_myservice mydisk <[0=1]} /n/mafs_myservice
.in 3n
.br
	-s: use stdin and stdout for communication
	-r mafs_myservice: ream the disk using mafs_myservice as the service name
	 mydisk: running mafs on the disk, mydisk
.in 0
.fi
.sp
Ream and start multiple-process mafs on a disk.
.sp
.nf
	disk/mafs -r mafs_myservice mydisk
	mount -c /srv/mafs_myservice /n/mafs_myservice
.fi
.sp
.ne 7
Ream and start mafs on a file. Also, mount thet filesystem at /n/mafs_myservice.
.sp
.nf
	dd -if /dev/zero -of myfile -bs 512 -count 128 # 64KB file
	mount -c <{disk/mafs -s -r mafs_service myfile <[0=1]} /n/mafs_myservice

	# to reuse the contents of myfile later, remove -r (ream) from the above command.
	mount -c <{disk/mafs -s myfile <[0=1]} /n/mafs_myservice
.fi
.sp
Prepare and use a disk (/dev/sdF1) for mafs.
.sp
.nf
	disk/fdisk -bawp /dev/sdF1/data	# partition the disk
	echo '
	a fs 9  $-7
	w
	p
	q' | disk/prep -b  /dev/sdF1/plan9	# add an fs plan 9 partition to the disk
	disk/mafs -r mafs_sdF1 /dev/sdF1/fs	# -r to ream the disk
	mount -c /srv/mafs_sdF1 /n/mafs_sdF1

	# for using the mafs file system on the disk later on
	disk/mafs  /dev/sdF1/fs	# no -r
	mount -c /srv/mafs_sdF1 /n/mafs_sdF1
.fi
.sp
Starting mafs on a 100 MiB file. The below commands create a disk.file to use as a disk. Mount /n/mafs_disk.file for the file system.
.sp
.nf
	dd -if /dev/zero -of disk.file -bs 1m -count 100;
	mount -c <{disk/mafs -s -r mafs_disk.file disk.file <[0=1]} /n/mafs_disk.file
.fi
.sp
Starting mafs on a RAM file. The below commands create a ramfs filesystem to use as a disk.
.sp
.nf
	ramfs -m /n/mafs_ramfs
	touch /n/mafs_ramfs/file
	dd -if /dev/zero -of /n/mafs_ramfs/file -count 100 -bs 1m
	disk/mafs -r mafs_ramfs_file /n/mafs_ramfs/file
	mount -c /srv/mafs_ramfs_file /n/mafs_ramfs_file
.fi
.sp
Sync Mafs. This command does not return until all the writes are written to the disk. So, could take a long time if you have a long writer queue.
.sp
	echo sync >> /n/mafs_myservice/a/ctl
.sp
.sp
.ne 4
Stop Mafs: There are 2 ways to shutdown:
.br
.in 3n
1. Unmount and remove the /srv/mfs_service file (can be rm and unmount too).
.br
2. Write halt into the /a/ctl file. Unmount() the mafs file system to keep it clean.
.in 0
.sp
In the first instance, the srv() process is driving the shutdown. It calls fsend(). rm /srv/mfs_service file does not wait for fsend() to finish. Hence, there is no way to ensure that memory contents have been flushed to the disk. If the system is shutdown or restarted immediately, there is a very high possibility that the filesystem will be in an inconsistent state.
.sp
In the second instance, fsend() is called by the worker process. It does not return until all the pending writes have been flushed to the disk. It also removes the /srv/mafs_service file and also stops the srv() process. Hence, this is the preferred approach to shutting down the file system.
.sp
There is no way to unmount() automatically on shutdown. The mount() and unmount() calls are client driven and it is not the responsibility of the server to find all the clients that mounted it. Just shutdown and let the respective clients deal with their mess.
.sp
The below command does not return until all the writes are written to the disk. So, could take a long time if you have a long writer queue. This is the proper way to shutdown the mafs file system.
.sp
	echo halt >> /n/mafs_myservice/a/ctl
.sp
Interpret the contents of a block based on the tag and write out a single formatted block based on the tag
.sp
	disk/block  tests/test.0/disk 22
.sp
Traverse the directory heirarchy and write out all the used block numbers. disk/reconcile uses the output of this to reconcile the list of used blocks with the list of free blocks. Also, writes the invalid blocks to stderr. Starting from root, walk down each directory entry printing out the linked blocks with invalid tags. (Why not just write out the list of dirty blocks too? instead of using a different command for it?)
.sp
	disk/used  tests/test.0/disk
.sp
From the contents of /a/frees show the list of free blocks. disk/reconcile uses the output of this to reconcile the list of used blocks with the list of free blocks.
.sp
	disk/free  tests/test.0/disk
.sp
Read two lists of block numbers and flag the common and missing blocks.
.sp
.nf
	disk/reconcile -u <{disk/used tests/test.0/disk} \\
		-F <{disk/free  tests/test.0/disk} 32
.fi
.sp
.ne 3
Find traverses the directory heirarchy and identifies the file that a block number belongs to.
.sp
	disk/find tests/test.0/disk 17
.sp
.ne 3
Find the total number of blocks on a disk.
.sp
.nf
	dd -if /dev/sdF1/fs -bs 512 -iseek 2 -count 1 -quiet 1 | awk '$1 == "nblocks" { print $2 }'

	disk/block /dev/sdF1/fs 2 | awk '$1 == "nblocks" { print $2 }'
.fi
.sp
.ne 5
Build the list of free blocks. This should match the contents of /a/frees.
.sp
.nf
	disk/unused 11721040049 <{disk/used /dev/sdF1/fs} # 11721040049 = total number of disk blocks
	disk/unused 32 <{disk/used test.0/disk} # 32 = total number of disk blocks
.fi
.sp
.ne 5
Change the contents of /a/frees.
.sp
.nf
	disk/updatefrees tests/test.0/disk <{disk/unused 32 <{disk/used tests/test.0/disk}}
	disk/updatefrees /dev/sdF1/fs <{disk/unused 11721040049 <{disk/used /dev/sdF1/fs}}
.fi
.sp
.ne 5
A sanity check that the file system is not corrupt by comparing that the unused blocks and free blocks match up. $nblocks is the total number of disk blocks. $disk is the disk.
.sp
.nf
	diff <{disk/unused -l 32 <{disk/used tests/test.0/disk}}} <{disk/free tests/test.0/disk}
.fi
.sp
.ne 5
Check and correct a crashed filesystem.
.sp
.nf
	disk=/dev/sdF1/fs
	nblocks=`{disk/block /dev/sdF1/fs 2 | awk '$1 == "nblocks"{ print $2 }'}
	disk/updatefrees /dev/sdF1/fs <{disk/unused $nblocks <{disk/used /dev/sdF1/fs}
	disk/fsok /dev/sdF1/fs

	disk=/dev/sdF1/fs
	nblocks=`{disk/block $disk 2 | awk '$1 == "nblocks"{ print $2 }'}
	disk/updatefrees $disk <{disk/unused $nblocks <{disk/used $disk}
	disk/fsok $disk
.fi
\".sp
\"Changing the service name without a ream.
\".sp
\".nf
\"	disk/block /dev/sdF1/fs 2 | wc
\"	Tdentry 2 2
\"	name config
\"	uid -1
\"	gid -1
\"	muid -1
\"	size 146
\"	pdblkno 6
\"	pqpath 6
\"	mtime 1669916563259999461
\"	path 2
\"	version 0
\"	mode 444
\"	size 6001172505088
\"	nblocks 11721040049
\"	backup config 2 to 11721040047
\"	backup super 4 to 11721040045
\"	backup root 20 to 11721040043
\"	service m_ddf_1
\"
\"	dd -if /dev/sdF1/fs -count 10 -skip 682 -bs 1
\"	mafs_ddf_110+0 records in
\"	10+0 records out
\"
\"	dd -if <{echo m_ddf_1; cat /dev/zero} -of /dev/sdF1/fs -count 11 -oseek 682 -bs 1
\"	7+0 records in
\"	7+0 records out
\"
\"	disk/block /dev/sdF1/fs 1
\"	Tdata 2
\"	size 6001172505088
\"	nblocks 11721040049
\"	backup config 1 to 11721040048
\"	backup super 2 to 11721040046
\"	backup root 3 to 11721040044
\"	service m_ddf_1
\".fi
\".sp
\"Changing the magic phrase in the magic block. - the offsets and the block output format has changed.
\".sp
\".nf
\"	disk/block /dev/sdF1/fs 0
\"	Tmagic 1
\"	mafs device
\"	512
\"
\"	dd -if /dev/sdF1/fs -count 16 -iseek 256 -bs 1
\"	mafs device
\"	512
\"	20+0 records in
\"	20+0 records out
\"
\"	dd -if <{echo mafs device; echo 512; cat /dev/zero} -of /dev/sdF1/fs -count 18 -oseek 256 -bs 1
\"	18+0 records in
\"	18+0 records out
\"
\"	dd -if /dev/sdF1/fs -count 18 -iseek 256 -bs 1
\"	mafs device
\"	512
\"	18+0 records in
\"	18+0 records out
\"
\"	disk/block /dev/sdF1/fs 0
\"	Tmagic 1
\"	mafs device
\"	512
\".fi
.sp
.sp
.ne 20
.ft B
Tests
.ft R
.sp
.TS
box;
c l
l a .
Program	Description
_
tests/regress.rc	All regression tests
tests/chkextents.rc	Unit tests on extents
tests/chkreli.rc	Unit tests on relative index lookups
tests/chknlastdatablocks.rc	Unit tests on the number of blocks in the last Tdata block
_
tests/6.offsets	Write file using different offsets to test mafswrite()
tests/6.sizes	Show the effects of the different parameters
tests/6.testextents	Test extents.[ch] state changes
tests/6.reli	Translate relative index to block number on a disk
.TE
.sp
The below disk state tests:
.in 3n
.br
.ti 0
1. Initialize a disk for mafs.
.br
.ti 0
2. Run mafs on that dsk.
.br
.ti 0
3. Stop mafs.
.br
.ti 0
4. Compare the contents with the expected contents (tests/test.0/blocks/*).
.in 0
.sp
.TS
box;
c s
c l
l a .
Disk State
=
Test	Description
_
tests/test.0	empty disk
tests/test.1	create a file /dir1/file1 and echo test into it
tests/test.2	writes at different offsets to a file and then removes the file
_
tests/test.3	write, read and delete files with sizes upto 16384 blocks
tests/test.4	directory copy
tests/test.5	fcp gzipped files
_
tests/test.6	df
tests/test.7	multiple processes working on the filesystem simultaneously
tests/test.8	check backup blocks locations
_
tests/test.9	examples used by this document
tests/test.a	write, read and delete a 100MB file
tests/test.b	duplicate of test.2 but seeded with random data
_
tests/test.d	seed with random data and do mkdir -p a/b/c/d/e/f/g/h
tests/test.e	seed with random data and test directory and file deletions
tests/test.f	test restart
.TE
.sp
.TS
box;
c s
c l
l a .
Extents behaviour
=
Test	Description
_
tests/extents/addabove	Figure 1 of the Extents section
tests/extents/addabove1	Figure 2 of the Extents section
tests/extents/addbelow	Figure 3 of the Extents section
_
tests/extents/mergeabove	Figure 4 of the Extents section
tests/extents/mergenext	Figure 5 of the Extents section
tests/extents/mergeprevious	Figure 6 of the Extents section
.TE
.ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
.in 0
.sp
.ne 3
To run all the regression tests:
.br
.nf
	cd tests/; ./regress.rc
.fi
.sp
.ne 3
To loop through all the blocks of a test:
.br
.nf
	for(t in tests/test.2/blocks/^`{seq 0 39}*){ echo $t; echo '---------'; cat $t; echo }
.fi
.sp
.sp
.ft B
Performance metrics
.ft R
.sp
.nf
	ramfs -m /n/ramfs
	touch /n/ramfs/file
	cat /dev/zero | tput -p > /n/ramfs/file
		196.00 MB/s
		198.76 MB/s
		187.58 MB/s
		176.96 MB/s
		175.87 MB/s
		180.42 MB/s
		183.52 MB/s
		185.99 MB/s
		187.96 MB/s
		189.54 MB/s
		190.83 MB/s
		191.89 MB/s
		192.80 MB/s
	dd -if /dev/zero -of /n/ramfs/file -count 700 -bs 1m

	disk/mafs -r mafs_ramfs_file /n/ramfs/file
	mount -c /srv/mafs_ramfs_file /n/mafs_ramfs_file
	cat /dev/zero | tput -p > /n/mafs_ramfs_file/zeros.file # increase memunits for speed
		122.50 MB/s
		122.13 MB/s
		122.27 MB/s
		122.28 MB/s
	echo halt >> /n/mafs_ramfs_file/a/ctl; lc /srv
	unmount /n/mafs_ramfs_file

	dd -if /dev/zero -of /n/ramfs/file -count 700 -bs 1m
	hjfs -f /n/ramfs/file -r
	echo allow >>/srv/hjfs.cmd
	mount -c /srv/hjfs /n/hjfs/
	cat /dev/zero | tput -p > /n/hjfs/zeros.file
		70.85 MB/s
		71.02 MB/s
		70.88 MB/s
		70.62 MB/s
		70.46 MB/s
		70.54 MB/s
		69.74 MB/s
		68.63 MB/s
		67.74 MB/s
		67.02 MB/s
		63.81 MB/s
	echo halt >>/srv/hjfs.cmd
	unmount /n/ramfs

	time disk/used /dev/sdF1/fs > /tmp/used.blocks # on 600 GiB data stored to a SATA disk
	3.45u 30.41s 3201.71r 	 disk/used /dev/sdF1/fs

	ramfs -S ramfs
	mount -c /srv/ramfs /n/ramfs
	touch /n/ramfs/file
	dd -if /dev/zero -of /n/ramfs/file -count 1k -bs 2m

	cd
	disk/mafs -r mafs_ramfs_file /n/ramfs/file
	mount -c /srv/mafs_ramfs_file /n/mafs_ramfs_file
	cd /n/mafs_ramfs_file
	time dd -if /dev/zero -of /n/mafs_ramfs_file/file -count 500 -bs 1m
	time dd -if /n/mafs_ramfs_file/file -of /dev/null -count 500 -bs 1m
	rm /n/mafs_ramfs_file/file
	mkdir /n/mafs_ramfs_file/plan9front
	time clone -p 20:80 /dist/plan9front ./plan9front # kvik's clone which transfers in parallel
	time git/clone /dist/plan9front
	time walk plan9front >/dev/null
	time cat `{walk plan9front}>/dev/null
	time du -sh plan9front
	cd
	echo halt >> /n/mafs_ramfs_file/a/ctl; lc /srv
	unmount /n/mafs_ramfs_file

	hjfs -f /n/ramfs/file -r
	echo allow >>/srv/hjfs.cmd
	mount -c /srv/hjfs /n/hjfs/
	cd /n/hjfs
	time dd -if /dev/zero -of /n/hjfs/file -count 500 -bs 1m
	time dd -if /n/hjfs/file -of /dev/null -count 500 -bs 1m
	rm /n/hjfs/file
	time git/clone /dist/plan9front
	time walk plan9front >/dev/null
	time cat `{walk plan9front}>/dev/null
	time du -sh plan9front
	echo halt >>/srv/hjfs.cmd
	unmount /n/ramfs
	rm /srv/ramfs

hjfs metrics
------------
: mafs_ramfs_file ; 	ramfs -S ramfs
: mafs_ramfs_file ; 	mount -c /srv/ramfs /n/ramfs
: mafs_ramfs_file ; 	touch /n/ramfs/file
: mafs_ramfs_file ; 	dd -if /dev/zero -of /n/ramfs/file -count 1k -bs 2m
write: no memory
384+0 records in
383+0 records out
: mafs_ramfs_file ; 	disk/mafs -r mafs_ramfs_file /n/ramfs/file
: mafs_ramfs_file ; 	mount -c /srv/mafs_ramfs_file /n/mafs_ramfs_file
: mafs_ramfs_file ; 	cd /n/mafs_ramfs_file
: mafs_ramfs_file ; 	time dd -if /dev/zero -of /n/mafs_ramfs_file/file -count 500 -bs 1m
500+0 records in
500+0 records out
0.00u 0.63s 3.99r 	 dd -if /dev/zero -of /n/mafs_ramfs_file/file ...
: mafs_ramfs_file ; 	time dd -if /n/mafs_ramfs_file/file -of /dev/null -count 500 -bs 1m
500+0 records in
500+0 records out
0.00u 0.52s 3.74r 	 dd -if /n/mafs_ramfs_file/file -of /dev/null ...
: mafs_ramfs_file ; 	rm /n/mafs_ramfs_file/file
: mafs_ramfs_file ; 	time git/clone /dist/plan9front
fetching...
indexing 102147 objects: 100%
checking out repository...
85.92u 33.49s 175.44r 	 git/clone /dist/plan9front
: mafs_ramfs_file ; 	time walk plan9front >/dev/null
0.12u 0.28s 4.40r 	 walk plan9front
: mafs_ramfs_file ; 	time cat `{walk plan9front}>/dev/null
0.08u 2.02s 27.96r 	 cat plan9front/.git/fs plan9front/.git/objects/pack/bbf8e5461ce218a8b35073482679f457f2df8c7a.pack plan9front/.git/objects/pack/bbf8e5461ce218a8b35073482679f457f2df8c7a.idx plan9front/.git/objects/pack ...
: mafs_ramfs_file ; 	time du -sh plan9front
302.097M	plan9front
0.06u 0.34s 4.84r 	 du -sh plan9front
: mafs_ramfs_file ; 	cd
: ; 	echo halt >> /n/mafs_ramfs_file/a/ctl; lc /srv
9ramnodefs			cs_net.alt			cwfs_sdE2			ramfs
acme.glenda.1496	cwfs_ddf_1			cwfs_sdE2.cmd		rio.glenda.1400
bcfdfs				cwfs_ddf_1.cmd		dns					rio.glenda.1434
boot				cwfs_ddf_2			dns_net.alt			rio.glenda.33938
clone				cwfs_ddf_2.cmd		factotum			slashmnt
cons				cwfs_sdE1			mntexport			slashn
cs					cwfs_sdE1.cmd		plumb.glenda.1388
: ; 	unmount /n/mafs_ramfs_file
: ; 	hjfs -f /n/ramfs/file -r
hjfs: reaming /n/ramfs/file
hjfs: ream successful
hjfs: fs is /n/ramfs/file
: ; 	echo allow >>/srv/hjfs.cmd
hjfs: allow
: ; 	mount -c /srv/hjfs /n/hjfs/
: ; 	cd /n/hjfs
: hjfs ; 	time dd -if /dev/zero -of /n/hjfs/file -count 500 -bs 1m
500+0 records in
500+0 records out
0.00u 0.67s 6.63r 	 dd -if /dev/zero -of /n/hjfs/file ...
: hjfs ; 	time dd -if /n/hjfs/file -of /dev/null -count 500 -bs 1m
500+0 records in
500+0 records out
0.00u 0.39s 8.23r 	 dd -if /n/hjfs/file -of /dev/null ...
: hjfs ; 	rm /n/hjfs/file
: hjfs ; 	time git/clone /dist/plan9front
fetching...
indexing 102147 objects: 100%
checking out repository...
84.08u 34.35s 165.18r 	 git/clone /dist/plan9front
: hjfs ; 	time walk plan9front >/dev/null
0.04u 0.11s 0.69r 	 walk plan9front
: hjfs ; 	time cat `{walk plan9front}>/dev/null
0.13u 2.08s 16.49r 	 cat plan9front/.git/fs plan9front/.git/objects/pack/bbf8e5461ce218a8b35073482679f457f2df8c7a.pack plan9front/.git/objects/pack/bbf8e5461ce218a8b35073482679f457f2df8c7a.idx plan9front/.git/objects/pack ...
: hjfs ; 	time du -sh plan9front
302.097M	plan9front
0.00u 0.05s 0.62r 	 du -sh plan9front
: hjfs ; 	echo halt >>/srv/hjfs.cmd
: hjfs ; hjfs: ending
	unmount /n/ramfs
: hjfs ; 	rm /srv/ramfs

hjfs metrics
------------
: mafs ; 	hjfs -f /n/ramfs/file -r
hjfs: reaming /n/ramfs/file
hjfs: ream successful
hjfs: fs is /n/ramfs/file
: mafs ; 	echo allow >>/srv/hjfs.cmd
hjfs: allow
: mafs ; 	mount -c /srv/hjfs /n/hjfs/
: mafs ; 	cd /n/hjfs
: hjfs ; 	time git/clone /dist/plan9front
fetching...
indexing 102147 objects: 100%
checking out repository...
85.35u 46.81s 177.90r 	 git/clone /dist/plan9front
: hjfs ; bell
: hjfs ; 	time walk plan9front >/dev/null
0.10u 0.08s 0.68r 	 walk plan9front
: hjfs ; 	time cat `{walk plan9front}>/dev/null
0.09u 1.85s 16.54r 	 cat plan9front/.git/fs plan9front/.git/objects/pack/bbf8e5461ce218a8b35073482679f457f2df8c7a.pack plan9front/.git/objects/pack/bbf8e5461ce218a8b35073482679f457f2df8c7a.idx plan9front/.git/objects/pack ...
: hjfs ; 	echo halt >>/srv/hjfs.cmd
: hjfs ; hjfs: ending
	unmount /n/ramfs
: hjfs ; 

.fi
.sp
Profiling instructions:
.nf
	Set LDFLAGS=-p in the mkfile and install the executables.
	profilesize=2000000
	ramfs -m /n/ramfs
	touch /n/ramfs/file
	dd -if /dev/zero -of /n/ramfs/file -count 700 -bs 1m
	mount -c <{disk/mafs -s -r mafs_disk.file /n/ramfs/file <[0=1]} /n/mafs_ramfs_file
	cat /dev/zero | tput -p > /n/mafs_ramfs_file/zeros.file
		57.94 MB/s
		55.27 MB/s
		46.67 MB/s
	echo halt >> /n/mafs_ramfs_file/a/ctl; lc /srv
.fi
.sp
.sp
.ne 3
.ft B
Limitations
.ft R
.sp
As we use packed structs to store data to the disk, a disk with mafs is not portable to a machine using a different endian system.
.sp
.sp
.ft B
Design considerations
.ft R
.sp
For exclusive use (mode has DMEXCL bit set) files, there is no timeout.
.sp
Use an fs(3) device for RAID or other configuration involving multiple disks.
.sp
Why are you not using a checksum to verify the contents?
.br
Checksums are probabilistic and can be implemented as a bespoke application instead of complicating the file system implementation.
.sp
.sp
.ft B
Source
.ft R
.sp
http://git.9front.org/plan9front/mafs/HEAD/info.html
.sp
.sp
.ft B
References
.ft R
.sp
[1] Sean Quinlan, "A Cached WORM File System," Software--Practice and Experience, Vol 21., No 12., December 1991, pp. 1289-1299
.br
[2] Ken Thompson, Geoff Collyer, "The 64-bit Standalone Plan 9 File Server"
.br
[2] Brian Kernighan, Dennis Ritchie, "The C Programming Language"