Context Navigation

source: trunk/kernel/vfs/vfs.c @ 351

Last change on this file since 351 was 337, checked in by alain, 7 years ago
Introduce the delayed context switch if current thread has a lock.
File size: 60.9 KB

Rev	Line
[1]	1	/*
	2	* vfs.c - Virtual File System implementation.
	3	*
	4	* Author Mohamed Lamine Karaoui (2015)
	5	* Alain Greiner (2016)
	6	*
	7	* Copyright (c) UPMC Sorbonne Universites
	8	*
	9	* This file is part of ALMOS-MKH.
	10	*
	11	* ALMOS-MKH is free software; you can redistribute it and/or modify it
	12	* under the terms of the GNU General Public License as published by
	13	* the Free Software Foundation; version 2.0 of the License.
	14	*
	15	* ALMOS-MKH is distributed in the hope that it will be useful, but
	16	* WITHOUT ANY WARRANTY; without even the implied warranty of
	17	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	18	* General Public License for more details.
	19	*
	20	* You should have received a copy of the GNU General Public License
	21	* along with ALMOS-MKH; if not, write to the Free Software Foundation,
	22	* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
	23	*/
	24
	25
[14]	26	#include <kernel_config.h>
[1]	27	#include <hal_types.h>
	28	#include <hal_atomic.h>
	29	#include <hal_special.h>
	30	#include <readlock.h>
	31	#include <spinlock.h>
	32	#include <printk.h>
	33	#include <list.h>
	34	#include <xlist.h>
	35	#include <slist.h>
	36	#include <xhtab.h>
[23]	37	#include <rpc.h>
[1]	38	#include <errno.h>
	39	#include <kmem.h>
	40	#include <mapper.h>
	41	#include <thread.h>
[337]	42	#include <chdev.h>
[1]	43	#include <process.h>
[23]	44	#include <vfs.h>
[1]	45	#include <fatfs.h>
	46	#include <ramfs.h>
[23]	47	#include <devfs.h>
	48	#include <syscalls.h>
[1]	49
	50
	51	//////////////////////////////////////////////////////////////////////////////////////////
[50]	52	// Extern variables
[1]	53	//////////////////////////////////////////////////////////////////////////////////////////
	54
[337]	55	extern vfs_ctx_t fs_context[FS_TYPES_NR]; // allocated in kernel_init.c
[188]	56
[337]	57	extern chdev_directory_t chdev_dir; // allocated in kernel_init.c
[50]	58
[1]	59	//////////////////////////////////////////////////////////////////////////////////////////
	60	// Context related functions
	61	//////////////////////////////////////////////////////////////////////////////////////////
	62
[188]	63	////////////////////////////////////////
	64	void vfs_ctx_init( vfs_fs_type_t type,
	65	uint32_t attr,
	66	uint32_t total_clusters,
	67	uint32_t cluster_size,
	68	xptr_t vfs_root_xp,
	69	void * extend )
	70	{
	71	vfs_ctx_t * vfs_ctx = &fs_context[type];
	72
	73	vfs_ctx->type = type;
	74	vfs_ctx->attr = attr;
	75	vfs_ctx->total_clusters = total_clusters;
	76	vfs_ctx->cluster_size = cluster_size;
	77	vfs_ctx->vfs_root_xp = vfs_root_xp;
	78	vfs_ctx->extend = extend;
	79
	80	spinlock_init( &vfs_ctx->lock );
	81
	82	bitmap_init( vfs_ctx->bitmap , BITMAP_SIZE(CONFIG_VFS_MAX_INODES) );
	83	}
	84
[23]	85	////////////////////////////////////////////
[1]	86	error_t vfs_ctx_inum_alloc( vfs_ctx_t * ctx,
	87	uint32_t * inum )
	88	{
	89	// get lock on inum allocator
	90	spinlock_lock( &ctx->lock );
	91
	92	// get lid from local inum allocator
[23]	93	uint32_t lid = bitmap_ffc( ctx->bitmap , CONFIG_VFS_MAX_INODES );
[1]	94
	95	if( lid == -1 ) // no more free slot => error
	96	{
	97	// release lock
	98	spinlock_unlock( &ctx->lock );
	99
	100	// return error
	101	return 1;
	102	}
	103	else // found => return inum
	104	{
	105	// set slot allocated
[23]	106	bitmap_set( ctx->bitmap , lid );
[1]	107
	108	// release lock
	109	spinlock_unlock( &ctx->lock );
	110
	111	// return inum
	112	*inum = (((uint32_t)local_cxy) << 16) \| (lid & 0xFFFF);
	113	return 0;
	114	}
	115	}
	116
	117	////////////////////////////////////////////
	118	void vfs_ctx_inum_release( vfs_ctx_t * ctx,
	119	uint32_t inum )
	120	{
[23]	121	bitmap_clear( ctx->bitmap , inum & 0xFFFF );
[1]	122	}
	123
	124	//////////////////////////////////////////////////////////////////////////////////////////
	125	// Inode related functions
	126	//////////////////////////////////////////////////////////////////////////////////////////
	127
[188]	128	char * vfs_inode_type_str( uint32_t type )
	129	{
	130	if ( type == INODE_TYPE_FILE ) return "FILE";
	131	else if( type == INODE_TYPE_DIR ) return "DIR ";
	132	else if( type == INODE_TYPE_FIFO ) return "FIFO";
	133	else if( type == INODE_TYPE_PIPE ) return "PIPE";
	134	else if( type == INODE_TYPE_SOCK ) return "SOCK";
	135	else if( type == INODE_TYPE_DEV ) return "DEV ";
	136	else if( type == INODE_TYPE_SYML ) return "SYML";
	137	else return "undefined";
	138	}
	139
[23]	140	//////////////////////////////////////////////////////
	141	error_t vfs_inode_create( xptr_t dentry_xp,
	142	vfs_fs_type_t fs_type,
	143	vfs_inode_type_t inode_type,
[188]	144	void * extend,
[23]	145	uint32_t attr,
	146	uint32_t rights,
	147	uid_t uid,
	148	gid_t gid,
	149	xptr_t * inode_xp )
[1]	150	{
	151	mapper_t * mapper; // associated mapper( to be allocated)
	152	vfs_inode_t * inode; // inode descriptor (to be allocated)
	153	uint32_t inum; // inode identifier (to be allocated)
	154	vfs_ctx_t * ctx; // file system context
	155	kmem_req_t req; // request to kernel memory allocator
	156	error_t error;
	157
[296]	158	vfs_dmsg("\n[INFO] %s : enter / local_cxy = %x / parent_xp = %l\n",
	159	__FUNCTION__ , local_cxy , dentry_xp );
[279]	160
[23]	161	// check fs type and get pointer on context
	162	if ( fs_type == FS_TYPE_FATFS ) ctx = &fs_context[FS_TYPE_FATFS];
	163	else if( fs_type == FS_TYPE_RAMFS ) ctx = &fs_context[FS_TYPE_RAMFS];
	164	else if( fs_type == FS_TYPE_DEVFS ) ctx = &fs_context[FS_TYPE_DEVFS];
[1]	165	else
	166	{
	167	ctx = NULL;
[246]	168	printk("\n[PANIC] in %s : illegal file system type = %d\n", __FUNCTION__ , fs_type );
[1]	169	hal_core_sleep();
	170	}
	171
	172	// allocate inum
	173	error = vfs_ctx_inum_alloc( ctx , &inum );
	174
	175	if( error )
	176	{
	177	printk("\n[ERROR] in %s : cannot allocate inum\n", __FUNCTION__ );
	178	return ENOMEM;
	179	}
	180
	181	// allocate memory for mapper
[246]	182	mapper = mapper_create( fs_type );
[1]	183
	184	if( mapper == NULL )
	185	{
	186	printk("\n[ERROR] in %s : cannot allocate mapper\n", __FUNCTION__ );
	187	vfs_ctx_inum_release( ctx , inum );
	188	return ENOMEM;
	189	}
	190
[23]	191	// allocate memory for VFS inode descriptor
[1]	192	req.type = KMEM_VFS_INODE;
	193	req.size = sizeof(vfs_inode_t);
	194	req.flags = AF_KERNEL \| AF_ZERO;
	195	inode = (vfs_inode_t *)kmem_alloc( &req );
	196
	197	if( inode == NULL )
	198	{
	199	printk("\n[ERROR] in %s : cannot allocate inode descriptor\n", __FUNCTION__ );
	200	vfs_ctx_inum_release( ctx , inum );
	201	mapper_destroy( mapper );
	202	return ENOMEM;
	203	}
	204
	205	// initialize inode descriptor
	206	inode->gc = 0;
[23]	207	inode->type = inode_type;
[1]	208	inode->inum = inum;
	209	inode->attr = attr;
[23]	210	inode->rights = rights;
[1]	211	inode->uid = uid;
	212	inode->gid = gid;
	213	inode->refcount = 0;
	214	inode->parent_xp = dentry_xp;
	215	inode->ctx = ctx;
[246]	216	inode->mapper = mapper;
[188]	217	inode->extend = extend;
[1]	218
[246]	219	// initialise inode field in mapper
	220	mapper->inode = inode;
	221
[1]	222	// initialise threads waiting queue
	223	xlist_root_init( XPTR( local_cxy , &inode->wait_root ) );
	224
[204]	225	// initialize dentries hash table
	226	xhtab_init( &inode->children , XHTAB_DENTRY_TYPE );
[1]	227
	228	// initialize inode locks
[10]	229	remote_rwlock_init( XPTR( local_cxy , &inode->data_lock ) );
[1]	230	remote_spinlock_init( XPTR( local_cxy , &inode->main_lock ) );
	231
[296]	232	vfs_dmsg("\n[INFO] %s : exit / child_xp = %l / parent_xp = %l\n",
	233	__FUNCTION__ , XPTR( local_cxy , inode ) , dentry_xp );
[279]	234
[1]	235	// return extended pointer on inode
	236	*inode_xp = XPTR( local_cxy , inode );
	237	return 0;
	238
	239	} // end vfs_inode_create()
	240
	241	/////////////////////////////////////////////
	242	void vfs_inode_destroy( vfs_inode_t * inode )
	243	{
	244	if( inode->refcount )
	245	{
	246	printk("\n[PANIC] in %s : inode refcount non zero\n", __FUNCTION__ );
	247	hal_core_sleep();
	248	}
	249
	250	// release memory allocated for mapper
	251	mapper_destroy( inode->mapper );
	252
	253	// release memory allocate for inode descriptor
	254	kmem_req_t req;
	255	req.ptr = inode;
	256	req.type = KMEM_VFS_INODE;
	257	kmem_free( &req );
	258
	259	} // end vfs_inode_destroy()
	260
[238]	261	/////////////////////////////////////////////
	262	error_t vfs_inode_load( vfs_inode_t * parent,
	263	char * name,
	264	xptr_t child_xp )
	265	{
[246]	266	vfs_dmsg("\n[INFO] %s : enter for child <%s>\n",
	267	__FUNCTION__ , name );
	268
[238]	269	error_t error = 0;
	270
	271	assert( (parent != NULL) , __FUNCTION__ , "parent pointer is NULL\n");
	272
	273	assert( (child_xp != XPTR_NULL) , __FUNCTION__ , "child pointer is NULL\n");
	274
	275	// get parent inode FS type
	276	vfs_fs_type_t fs_type = parent->ctx->type;
	277
	278	// call relevant FS function
	279	if( fs_type == FS_TYPE_FATFS )
	280	{
	281	error = fatfs_inode_load( parent , name , child_xp );
	282	}
	283	else if( fs_type == FS_TYPE_RAMFS )
	284	{
	285	assert( false , __FUNCTION__ , "should not be called for RAMFS\n" );
	286	}
	287	else if( fs_type == FS_TYPE_DEVFS )
	288	{
	289	assert( false , __FUNCTION__ , "should not be called for DEVFS\n" );
	290	}
	291	else
	292	{
	293	assert( false , __FUNCTION__ , "undefined file system type\n" );
	294	}
	295
[246]	296	vfs_dmsg("\n[INFO] %s : exit for child <%s>\n",
	297	__FUNCTION__ , name );
	298
[238]	299	return error;
	300
	301	} // end vfs_load_inode()
	302
[1]	303	////////////////////////////////////////////
	304	void vfs_inode_remote_up( xptr_t inode_xp )
	305	{
	306	// get inode cluster and local pointer
	307	cxy_t inode_cxy = GET_CXY( inode_xp );
	308	vfs_inode_t * inode_ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	309
	310	hal_remote_atomic_add( XPTR( inode_cxy , &inode_ptr->refcount ) , 1 );
	311	}
	312
	313	//////////////////////////////////////////////
	314	void vfs_inode_remote_down( xptr_t inode_xp )
	315	{
	316	// get inode cluster and local pointer
	317	cxy_t inode_cxy = GET_CXY( inode_xp );
	318	vfs_inode_t * inode_ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	319
	320	hal_remote_atomic_add( XPTR( inode_cxy , &inode_ptr->refcount ) , -1 );
	321	}
	322
	323	//////////////////////////////////////////////
	324	uint32_t vfs_inode_get_size( xptr_t inode_xp )
	325	{
	326	// get inode cluster and local pointer
	327	cxy_t cxy = GET_CXY( inode_xp );
	328	vfs_inode_t * ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	329
	330	// get size
[10]	331	remote_rwlock_rd_lock( XPTR( cxy , &ptr->data_lock ) );
[1]	332	uint32_t size = hal_remote_lw( XPTR( cxy , &ptr->size ) );
[10]	333	remote_rwlock_rd_unlock( XPTR( cxy , &ptr->data_lock ) );
[1]	334	return size;
	335	}
	336
[101]	337	////////////////////////////////////////////
	338	void vfs_inode_set_size( xptr_t inode_xp,
[1]	339	uint32_t size )
	340	{
	341	// get inode cluster and local pointer
	342	cxy_t cxy = GET_CXY( inode_xp );
	343	vfs_inode_t * ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	344
	345	// set size
[10]	346	remote_rwlock_wr_unlock( XPTR( cxy , &ptr->data_lock ) );
[1]	347	hal_remote_sw( XPTR( cxy , &ptr->size ) , size );
[10]	348	remote_rwlock_wr_unlock( XPTR( cxy , &ptr->data_lock ) );
[1]	349	}
	350
[101]	351	////////////////////////////////////////
	352	void vfs_inode_unlock( xptr_t inode_xp )
[1]	353	{
	354	// get inode cluster and local pointer
	355	cxy_t cxy = GET_CXY( inode_xp );
	356	vfs_inode_t * ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	357
	358	// release the main lock
	359	remote_spinlock_unlock( XPTR( cxy , &ptr->main_lock ) );
	360	}
	361
[101]	362	//////////////////////////////////////
	363	void vfs_inode_lock( xptr_t inode_xp )
[1]	364	{
	365	// get inode cluster and local pointer
	366	cxy_t cxy = GET_CXY( inode_xp );
	367	vfs_inode_t * ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	368
	369	// get the main lock
	370	remote_spinlock_lock( XPTR( cxy , &ptr->main_lock ) );
	371	}
	372
[101]	373	/////////////////////////////////////////
	374	xptr_t vfs_inode_owner( xptr_t inode_xp )
	375	{
	376	// get inode cluster and local pointer
	377	cxy_t cxy = GET_CXY( inode_xp );
	378	vfs_inode_t * ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	379
	380	// get the main lock
	381	return remote_spinlock_owner( XPTR( cxy , &ptr->main_lock ) );
	382	}
	383
[204]	384	/////////////////////////////////////////
	385	void vfs_inode_display( xptr_t inode_xp )
	386	{
	387	cxy_t inode_cxy;
	388	vfs_inode_t * inode_ptr;
	389	xptr_t dentry_xp;
	390	cxy_t dentry_cxy;
	391	vfs_dentry_t * dentry_ptr;
	392
	393	char name[CONFIG_VFS_MAX_NAME_LENGTH];
	394
	395	// get inode cluster and local pointer
	396	inode_cxy = GET_CXY( inode_xp );
	397	inode_ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	398
	399	// get parent dentry
	400	dentry_xp = hal_remote_lwd( XPTR( inode_cxy , &inode_ptr->parent_xp ) );
	401
	402	// get local copy of name
	403	if( dentry_xp == XPTR_NULL ) // it is the VFS root
	404	{
	405	strcpy( name , "/" );
	406	}
	407	else // not the VFS root
	408	{
	409	dentry_cxy = GET_CXY( dentry_xp );
	410	dentry_ptr = (vfs_dentry_t *)GET_PTR( dentry_xp );
	411
	412	hal_remote_strcpy( XPTR( local_cxy , name ) ,
	413	XPTR( dentry_cxy , &dentry_ptr->name ) );
	414	}
	415
	416	// display inode header
	417	printk("\n* inode <%s> / inode_xp = %l / dentry_xp = %l *\n",
	418	name , inode_xp , dentry_xp );
	419
	420	// display children from xhtab
	421	xhtab_display( XPTR( inode_cxy , &inode_ptr->children ) );
	422
	423	} // end vfs_inode_display()
	424
	425	////////////////////////////////////////////////////////////////////////////////////////////
[1]	426	// Dentry related functions
	427	//////////////////////////////////////////////////////////////////////////////////////////
	428
[23]	429	///////////////////////////////////////////////////
	430	error_t vfs_dentry_create( vfs_fs_type_t fs_type,
	431	char * name,
	432	vfs_inode_t * parent,
	433	xptr_t * dentry_xp )
[1]	434	{
	435	vfs_ctx_t * ctx; // context descriptor
	436	vfs_dentry_t * dentry; // dentry descriptor (to be allocated)
	437	kmem_req_t req; // request to kernel memory allocator
	438
[296]	439	vfs_dmsg("\n[INFO] %s : enter for %s / parent inode = %x / cycle = %d\n",
	440	__FUNCTION__ , name , parent , hal_time_stamp() );
	441
[188]	442	// get pointer on context
[23]	443	if ( fs_type == FS_TYPE_FATFS ) ctx = &fs_context[FS_TYPE_FATFS];
	444	else if( fs_type == FS_TYPE_RAMFS ) ctx = &fs_context[FS_TYPE_RAMFS];
	445	else if( fs_type == FS_TYPE_DEVFS ) ctx = &fs_context[FS_TYPE_DEVFS];
[1]	446	else
	447	{
	448	ctx = NULL;
	449	printk("\n[PANIC] in %s : undefined file system type\n", __FUNCTION__ );
	450	hal_core_sleep();
	451	}
	452
	453	// get name length
	454	uint32_t length = strlen( name );
	455
[23]	456	if( length >= CONFIG_VFS_MAX_NAME_LENGTH )
[1]	457	{
	458	printk("\n[ERROR] in %s : name too long\n", __FUNCTION__ );
	459	return EINVAL;
	460	}
	461
	462	// allocate memory for dentry descriptor
	463	req.type = KMEM_VFS_DENTRY;
	464	req.size = sizeof(vfs_dentry_t);
	465	req.flags = AF_KERNEL \| AF_ZERO;
	466	dentry = (vfs_dentry_t *)kmem_alloc( &req );
	467
	468	if( dentry == NULL )
	469	{
	470	printk("\n[ERROR] in %s : cannot allocate dentry descriptor\n", __FUNCTION__ );
	471	return ENOMEM;
	472	}
	473
	474	// initialize dentry descriptor
[23]	475
[1]	476	dentry->ctx = ctx;
	477	dentry->length = length;
	478	dentry->parent = parent;
	479	strcpy( dentry->name , name );
	480
[23]	481	// register dentry in hash table rooted in parent inode
	482	xhtab_insert( XPTR( local_cxy , &parent->children ),
	483	name,
[188]	484	XPTR( local_cxy , &dentry->list ) );
[23]	485
	486	// return extended pointer on dentry
[1]	487	*dentry_xp = XPTR( local_cxy , dentry );
	488
[296]	489	vfs_dmsg("\n[INFO] %s : exit for %s / cycle = %d\n",
	490	__FUNCTION__ , name , hal_time_stamp() );
	491
[1]	492	return 0;
	493
	494	} // end vfs_dentry_create()
	495
	496	////////////////////////////////////////////////
	497	void vfs_dentry_destroy( vfs_dentry_t * dentry )
	498	{
	499	if( dentry->refcount )
	500	{
	501	printk("\n[PANIC] in %s : dentry refcount non zero\n", __FUNCTION__ );
	502	hal_core_sleep();
	503	}
	504
	505	kmem_req_t req;
	506	req.ptr = dentry;
	507	req.type = KMEM_VFS_DENTRY;
	508	kmem_free( &req );
	509	}
	510
	511
[188]	512
[1]	513	//////////////////////////////////////////////////////////////////////////////////////////
	514	// File descriptor related functions
	515	//////////////////////////////////////////////////////////////////////////////////////////
	516
[23]	517	/////////////////////////////////////////////
	518	error_t vfs_file_create( vfs_inode_t * inode,
	519	uint32_t attr,
	520	xptr_t * file_xp )
	521	{
	522	vfs_file_t * file;
	523	kmem_req_t req;
	524
	525	// allocate memory for new file descriptor
	526	req.type = KMEM_VFS_FILE;
	527	req.size = sizeof(vfs_file_t);
	528	req.flags = AF_KERNEL \| AF_ZERO;
	529	file = (vfs_file_t *)kmem_alloc( &req );
	530
	531	if( file == NULL ) return ENOMEM;
	532
	533	// initializes new file descriptor
	534	file->gc = 0;
	535	file->type = inode->type;
	536	file->attr = attr;
	537	file->offset = 0;
[337]	538	file->refcount = 1;
[23]	539	file->inode = inode;
	540	file->ctx = inode->ctx;
	541	file->mapper = inode->mapper;
	542
	543	remote_rwlock_init( XPTR( local_cxy , &file->lock ) );
	544
	545	*file_xp = XPTR( local_cxy , file );
	546	return 0;
	547
	548	} // end vfs_file_create()
	549
	550	///////////////////////////////////////////
	551	void vfs_file_destroy( vfs_file_t * file )
	552	{
	553	if( file->refcount )
	554	{
	555	printk("\n[PANIC] in %s : file refcount non zero\n", __FUNCTION__ );
	556	hal_core_sleep();
	557	}
	558
	559	kmem_req_t req;
	560	req.ptr = file;
	561	req.type = KMEM_VFS_FILE;
	562	kmem_free( &req );
	563
	564	} // end vfs_file_destroy()
	565
	566
[1]	567	////////////////////////////////////////
	568	void vfs_file_count_up( xptr_t file_xp )
	569	{
	570	// get file cluster and local pointer
	571	cxy_t file_cxy = GET_CXY( file_xp );
	572	vfs_file_t * file_ptr = (vfs_file_t *)GET_PTR( file_xp );
	573
	574	// atomically increment count
	575	hal_remote_atomic_add( XPTR( file_cxy , &file_ptr->refcount ) , 1 );
	576	}
	577
	578	//////////////////////////////////////////
	579	void vfs_file_count_down( xptr_t file_xp )
	580	{
	581	// get file cluster and local pointer
	582	cxy_t file_cxy = GET_CXY( file_xp );
	583	vfs_file_t * file_ptr = (vfs_file_t *)GET_PTR( file_xp );
	584
	585	// atomically decrement count
	586	hal_remote_atomic_add( XPTR( file_cxy , &file_ptr->refcount ) , -1 );
	587	}
	588
[23]	589	//////////////////////////////////////////////////////////////////////////////////////////
	590	// File access related functions
	591	//////////////////////////////////////////////////////////////////////////////////////////
	592
	593	////////////////////////////////////
	594	error_t vfs_open( xptr_t cwd_xp,
	595	char * path,
	596	uint32_t flags,
	597	uint32_t mode,
	598	xptr_t * new_file_xp,
	599	uint32_t * new_file_id )
[1]	600	{
[23]	601	error_t error;
	602	xptr_t inode_xp; // extended pointer on target inode
	603	cxy_t inode_cxy; // inode cluster identifier
	604	vfs_inode_t * inode_ptr; // inode local pointer
	605	uint32_t file_attr; // file descriptor attributes
	606	uint32_t lookup_mode; // lookup working mode
	607	xptr_t file_xp; // extended pointer on created file descriptor
	608	uint32_t file_id; // created file descriptor index in reference fd_array
[1]	609
[101]	610	vfs_dmsg("\n[INFO] %s : enters for <%s> at cycle %d\n",
[204]	611	__FUNCTION__ , path , (uint32_t)hal_time_stamp() );
[101]	612
[23]	613	// compute lookup working mode
	614	lookup_mode = VFS_LOOKUP_OPEN;
	615	if( (flags & O_DIR ) ) lookup_mode \|= VFS_LOOKUP_DIR;
	616	if( (flags & O_CREAT ) ) lookup_mode \|= VFS_LOOKUP_CREATE;
	617	if( (flags & O_EXCL ) ) lookup_mode \|= VFS_LOOKUP_EXCL;
	618
	619	// compute attributes for the created file
	620	file_attr = 0;
	621	if( (flags & O_RDONLY ) == 0 ) file_attr \|= FD_ATTR_READ_ENABLE;
	622	if( (flags & O_WRONLY ) == 0 ) file_attr \|= FD_ATTR_WRITE_ENABLE;
	623	if( (flags & O_SYNC ) ) file_attr \|= FD_ATTR_SYNC;
	624	if( (flags & O_APPEND ) ) file_attr \|= FD_ATTR_APPEND;
	625	if( (flags & O_CLOEXEC) ) file_attr \|= FD_ATTR_CLOSE_EXEC;
[1]	626
[23]	627	// get extended pointer on target inode
	628	error = vfs_lookup( cwd_xp , path , lookup_mode , &inode_xp );
	629
[101]	630	vfs_dmsg("\n[INFO] %s : get inode_xp = %l for <%s> at cycle %d\n",
	631	__FUNCTION__ , inode_xp , path , hal_get_cycles() );
	632
[23]	633	if( error ) return error;
	634
	635	// get target inode cluster and local pointer
	636	inode_cxy = GET_CXY( inode_xp );
	637	inode_ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	638
	639	// create a new file descriptor in cluster containing inode
	640	if( inode_cxy == local_cxy ) // target cluster is local
[1]	641	{
[23]	642	error = vfs_file_create( inode_ptr , file_attr , &file_xp );
[1]	643	}
[23]	644	else // target cluster is remote
	645	{
	646	rpc_vfs_file_create_client( inode_cxy , inode_ptr , file_attr , &file_xp , &error );
	647	}
[1]	648
[23]	649	if( error ) return error;
[1]	650
[23]	651	// allocate and register a new file descriptor index in reference cluster fd_array
	652	error = process_fd_register( file_xp , &file_id );
[1]	653
[23]	654	if( error ) return error;
[1]	655
[265]	656	vfs_dmsg("\n[INFO] %s : exit for <%s> / file_id = %d / file_xp = %l / at cycle %d\n",
[238]	657	__FUNCTION__ , path , file_id , file_xp , hal_get_cycles() );
	658
[23]	659	// success
	660	*new_file_xp = file_xp;
	661	*new_file_id = file_id;
	662	return 0;
[1]	663
[23]	664	} // end vfs_open()
	665
[317]	666	////////////////////////////////////////////
[313]	667	error_t vfs_user_move( bool_t to_buffer,
	668	xptr_t file_xp,
	669	void * buffer,
	670	uint32_t size )
[23]	671	{
	672	assert( ( file_xp != XPTR_NULL ) , __FUNCTION__ , "file_xp == XPTR_NULL" );
	673
	674	cxy_t file_cxy; // remote file descriptor cluster
	675	vfs_file_t * file_ptr; // remote file descriptor local pointer
	676	vfs_inode_type_t inode_type;
	677	uint32_t file_offset; // current offset in file
	678	mapper_t * mapper;
	679	error_t error;
	680
	681	// get cluster and local pointer on remote file descriptor
	682	file_cxy = GET_CXY( file_xp );
	683	file_ptr = (vfs_file_t *)GET_PTR( file_xp );
	684
	685	// get inode type from remote file descriptor
	686	inode_type = hal_remote_lw( XPTR( file_cxy , &file_ptr->type ) );
	687
	688	// action depends on inode type
	689	if( inode_type == INODE_TYPE_FILE )
	690	{
	691	// get mapper pointer and file offset from file descriptor
	692	file_offset = hal_remote_lw( XPTR( file_cxy , &file_ptr->offset ) );
	693	mapper = (mapper_t *)hal_remote_lpt( XPTR( file_cxy , &file_ptr->mapper ) );
	694
	695	// move data between mapper and buffer
	696	if( file_cxy == local_cxy )
	697	{
[313]	698	error = mapper_move_user( mapper,
	699	to_buffer,
	700	file_offset,
	701	buffer,
	702	size );
[23]	703	}
	704	else
	705	{
[315]	706	rpc_mapper_move_buffer_client( file_cxy,
	707	mapper,
	708	to_buffer,
	709	true, // user buffer
	710	file_offset,
	711	(uint64_t)(intptr_t)buffer,
	712	size,
	713	&error );
[23]	714	}
	715
[265]	716	if( error ) return -1;
[333]	717	else return 0;
[23]	718	}
[265]	719	else
[23]	720	{
[265]	721	printk("\n[ERROR] in %s : inode is not a file", __FUNCTION__ );
[23]	722	return -1;
	723	}
[313]	724	} // end vfs_user_move()
[23]	725
[317]	726	////////////////////////////////////////////
	727	error_t vfs_kernel_move( bool_t to_buffer,
	728	xptr_t file_xp,
	729	xptr_t buffer_xp,
	730	uint32_t size )
	731	{
	732	assert( ( file_xp != XPTR_NULL ) , __FUNCTION__ , "file_xp == XPTR_NULL" );
	733
	734	cxy_t file_cxy; // remote file descriptor cluster
	735	vfs_file_t * file_ptr; // remote file descriptor local pointer
	736	vfs_inode_type_t inode_type;
	737	uint32_t file_offset; // current offset in file
	738	mapper_t * mapper;
	739	error_t error;
	740
	741	// get cluster and local pointer on remote file descriptor
	742	file_cxy = GET_CXY( file_xp );
	743	file_ptr = (vfs_file_t *)GET_PTR( file_xp );
	744
	745	// get inode type from remote file descriptor
	746	inode_type = hal_remote_lw( XPTR( file_cxy , &file_ptr->type ) );
	747
	748	// action depends on inode type
	749	if( inode_type == INODE_TYPE_FILE )
	750	{
	751	// get mapper pointer and file offset from file descriptor
	752	file_offset = hal_remote_lw( XPTR( file_cxy , &file_ptr->offset ) );
	753	mapper = (mapper_t *)hal_remote_lpt( XPTR( file_cxy , &file_ptr->mapper ) );
	754
	755	// move data between mapper and buffer
	756	if( file_cxy == local_cxy )
	757	{
	758	error = mapper_move_kernel( mapper,
	759	to_buffer,
	760	file_offset,
	761	buffer_xp,
	762	size );
	763	}
	764	else
	765	{
	766	rpc_mapper_move_buffer_client( file_cxy,
	767	mapper,
	768	to_buffer,
	769	false, // kernel buffer
	770	file_offset,
	771	buffer_xp,
	772	size,
	773	&error );
	774	}
	775
	776	if( error ) return -1;
	777	else return 0;
	778	}
	779	else
	780	{
	781	printk("\n[ERROR] in %s : inode is not a file", __FUNCTION__ );
	782	return -1;
	783	}
	784	} // end vfs_kernel_move()
	785
[23]	786	//////////////////////////////////////
	787	error_t vfs_lseek( xptr_t file_xp,
	788	uint32_t offset,
	789	uint32_t whence,
	790	uint32_t * new_offset )
	791	{
[266]	792	xptr_t offset_xp;
	793	xptr_t lock_xp;
	794	cxy_t file_cxy;
	795	vfs_file_t * file_ptr;
	796	vfs_inode_t * inode_ptr;
	797	uint32_t new;
	798
	799	assert( (file_xp != XPTR_NULL) , __FUNCTION__ , "file_xp == XPTR_NULL" );
	800
	801	// get cluster and local pointer on remote file descriptor
	802	file_cxy = GET_CXY( file_xp );
	803	file_ptr = (vfs_file_t *)GET_PTR( file_xp );
	804
	805	// build extended pointers on lock and offset
	806	offset_xp = XPTR( file_cxy , &file_ptr->offset );
	807	lock_xp = XPTR( file_cxy , &file_ptr->lock );
	808
	809	// take file descriptor lock
	810	remote_rwlock_wr_lock( lock_xp );
	811
	812	if ( whence == SEEK_CUR ) // new = current + offset
	813	{
	814	new = hal_remote_lw( offset_xp ) + offset;
	815	}
	816	else if ( whence == SEEK_SET ) // new = offset
	817	{
	818	new = offset;
	819	}
	820	else if ( whence == SEEK_END ) // new = size + offset
	821	{
	822	// get local pointer on remote inode
	823	inode_ptr = (vfs_inode_t *)hal_remote_lpt( XPTR( file_cxy , &file_ptr->inode ) );
	824
	825	new = hal_remote_lw( XPTR( file_cxy , &inode_ptr->size ) ) + offset;
	826	}
	827	else
	828	{
	829	printk("\n[ERROR] in %s : illegal whence value\n", __FUNCTION__ );
	830	remote_rwlock_wr_unlock( lock_xp );
	831	return -1;
	832	}
	833
	834	// set new offset
	835	hal_remote_sw( offset_xp , new );
	836
	837	// release file descriptor lock
	838	remote_rwlock_wr_unlock( lock_xp );
	839
	840	// success
[271]	841	if ( new_offset != NULL )
	842	*new_offset = new;
[1]	843	return 0;
	844
[23]	845	} // vfs_lseek()
	846
	847	///////////////////////////////////
	848	error_t vfs_close( xptr_t file_xp,
	849	uint32_t file_id )
[1]	850	{
[23]	851	assert( (file_xp != XPTR_NULL) , __FUNCTION__ , "file_xp == XPTR_NULL" );
	852
	853	assert( (file_id < CONFIG_PROCESS_FILE_MAX_NR) , __FUNCTION__ , "illegal file_id" );
	854
	855	thread_t * this = CURRENT_THREAD;
	856	process_t * process = this->process;
	857
	858	// get cluster and local pointer on remote file descriptor
[1]	859	cxy_t file_cxy = GET_CXY( file_xp );
	860	vfs_file_t * file_ptr = (vfs_file_t *)GET_PTR( file_xp );
	861
[23]	862	// get local pointer on local cluster manager
	863	cluster_t * cluster = LOCAL_CLUSTER;
	864
	865	// get owner process cluster and lpid
	866	cxy_t owner_cxy = CXY_FROM_PID( process->pid );
	867	lpid_t lpid = LPID_FROM_PID( process->pid );
	868
	869	// get extended pointers on copies root and lock
	870	xptr_t root_xp = XPTR( owner_cxy , &cluster->pmgr.copies_root[lpid] );
	871	xptr_t lock_xp = XPTR( owner_cxy , &cluster->pmgr.copies_lock[lpid] );
	872
	873	// take the lock protecting the copies
	874	remote_spinlock_lock( lock_xp );
	875
	876	// 1) loop on the process descriptor copies to cancel all fd_array[file_id] entries
	877	xptr_t iter_xp;
	878	XLIST_FOREACH( root_xp , iter_xp )
[1]	879	{
[23]	880	xptr_t process_xp = XLIST_ELEMENT( iter_xp , process_t , copies_list );
	881	cxy_t process_cxy = GET_CXY( process_xp );
	882	process_t * process_ptr = (process_t *)GET_PTR( process_xp );
[1]	883
[23]	884	xptr_t lock_xp = XPTR( process_cxy , &process_ptr->fd_array.lock );
	885	xptr_t entry_xp = XPTR( process_cxy , &process_ptr->fd_array.array[file_id] );
	886
	887	// lock is required for atomic write of a 64 bits word
	888	remote_rwlock_wr_lock( lock_xp );
	889	hal_remote_swd( entry_xp , XPTR_NULL );
	890	remote_rwlock_wr_unlock( lock_xp );
	891
[124]	892	hal_fence();
[23]	893	}
	894
	895	// 2) release memory allocated to file descriptor in remote cluster
	896	if( file_cxy == local_cxy ) // file cluster is local
[1]	897	{
[23]	898	vfs_file_destroy( file_ptr );
	899	}
	900	else // file cluster is local
	901	{
	902	rpc_vfs_file_destroy_client( file_cxy , file_ptr );
	903	}
[1]	904
[23]	905	return 0;
[1]	906
[23]	907	} // end vfs_close()
[1]	908
	909	////////////////////////////////////
[23]	910	error_t vfs_unlink( xptr_t cwd_xp,
	911	char * path )
[1]	912	{
[23]	913	printk("\n[PANIC] %s non implemented\n", __FUNCTION__ );
	914	hal_core_sleep();
[1]	915	return 0;
[23]	916	} // vfs_unlink()
[1]	917
[23]	918	///////////////////////////////////////
	919	error_t vfs_stat( xptr_t file_xp,
	920	vfs_stat_t * k_stat )
[1]	921	{
[23]	922	printk("\n[PANIC] %s non implemented\n", __FUNCTION__ );
	923	hal_core_sleep();
[1]	924	return 0;
	925	}
	926
[23]	927	////////////////////////////////////////////
	928	error_t vfs_readdir( xptr_t file_xp,
	929	vfs_dirent_t * k_dirent )
[1]	930	{
[23]	931	printk("\n[PANIC] %s non implemented\n", __FUNCTION__ );
	932	hal_core_sleep();
[1]	933	return 0;
	934	}
	935
	936	//////////////////////////////////////
[23]	937	error_t vfs_mkdir( xptr_t file_xp,
	938	char * path,
	939	uint32_t mode )
[1]	940	{
[23]	941	printk("\n[PANIC] %s non implemented\n", __FUNCTION__ );
	942	hal_core_sleep();
[1]	943	return 0;
	944	}
	945
[23]	946	////////////////////////////////////
	947	error_t vfs_rmdir( xptr_t file_xp,
	948	char * path )
[1]	949	{
[23]	950	printk("\n[PANIC] %s non implemented\n", __FUNCTION__ );
	951	hal_core_sleep();
[1]	952	return 0;
	953	}
	954
[23]	955	///////////////////////////////////
	956	error_t vfs_chdir( xptr_t cwd_xp,
	957	char * path )
[1]	958	{
[23]	959	error_t error;
	960	xptr_t inode_xp; // extended pointer on target inode
	961	cxy_t inode_cxy; // target inode cluster identifier
	962	vfs_inode_t * inode_ptr; // target inode local pointer
	963	uint32_t mode; // lookup working mode
	964	vfs_inode_type_t inode_type; // target inode type
	965
	966	// set lookup working mode
	967	mode = 0;
	968
	969	// get extended pointer on target inode
	970	error = vfs_lookup( cwd_xp , path , mode , &inode_xp );
	971
	972	if( error ) return error;
	973
	974	// get inode cluster and local pointer
	975	inode_cxy = GET_CXY( inode_xp );
	976	inode_ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	977
	978	// get inode type from remote file
	979	inode_type = hal_remote_lw( XPTR( inode_cxy , &inode_ptr->type ) );
	980
	981	if( inode_type != INODE_TYPE_DIR )
	982	{
	983	CURRENT_THREAD->errno = ENOTDIR;
	984	return -1;
	985	}
	986
	987	printk("\n[PANIC] %s non fully implemented\n", __FUNCTION__ );
	988	hal_core_sleep();
[1]	989	return 0;
	990	}
	991
[23]	992	///////////////////////////////////
	993	error_t vfs_chmod( xptr_t cwd_xp,
	994	char * path,
	995	uint32_t rights )
[1]	996	{
[23]	997	error_t error;
	998	xptr_t inode_xp; // extended pointer on target inode
	999	cxy_t inode_cxy; // inode cluster identifier
	1000	vfs_inode_t * inode_ptr; // inode local pointer
	1001	uint32_t mode; // lookup working mode
	1002	vfs_inode_type_t inode_type; // target inode type
	1003
	1004	// set lookup working mode
	1005	mode = 0;
	1006
	1007	// get extended pointer on target inode
	1008	error = vfs_lookup( cwd_xp , path , mode , &inode_xp );
	1009
	1010	if( error ) return error;
	1011
	1012	// get inode cluster and local pointer
	1013	inode_cxy = GET_CXY( inode_xp );
	1014	inode_ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	1015
	1016	// get inode type from remote inode
	1017	inode_type = hal_remote_lw( XPTR( inode_cxy , &inode_ptr->type ) );
	1018
	1019
	1020	printk("\n[PANIC] %s non fully implemented\n", __FUNCTION__ );
	1021	hal_core_sleep();
[1]	1022	return 0;
	1023	}
	1024
[23]	1025	///////////////////////////////////
	1026	error_t vfs_mkfifo( xptr_t cwd_xp,
	1027	char * path,
	1028	uint32_t rights )
	1029	{
	1030	printk("\n[PANIC] in %s : not implemented yet\n", __FUNCTION__ );
	1031	hal_core_sleep();
	1032	return 0;
	1033	}
[1]	1034
	1035
	1036
[188]	1037	//////////////////////////////////////////////////////////////////////////////////////////
[1]	1038	// Inode Tree functions
	1039	//////////////////////////////////////////////////////////////////////////////////////////
	1040
[188]	1041	/////////////////////////////////
	1042	cxy_t vfs_cluster_random_select()
	1043	{
	1044	uint32_t x_size = LOCAL_CLUSTER->x_size;
	1045	uint32_t y_size = LOCAL_CLUSTER->y_size;
	1046	uint32_t y_width = LOCAL_CLUSTER->y_width;
	1047	uint32_t index = ( hal_get_cycles() + hal_get_gid() ) % (x_size * y_size);
	1048	uint32_t x = index / y_size;
	1049	uint32_t y = index % y_size;
	1050
	1051	return (x<<y_width) + y;
	1052	}
	1053
	1054
	1055	//////////////////////////////////////////////////////////////////////////
	1056	// This static function is called by the vfs_display() function.
[337]	1057	// that is supposed to take the TXT0 lock.
[188]	1058	//////////////////////////////////////////////////////////////////////////
	1059	static void vfs_recursive_display( xptr_t inode_xp,
	1060	xptr_t name_xp,
[204]	1061	xptr_t dentry_xp,
[188]	1062	uint32_t indent )
	1063	{
	1064	cxy_t inode_cxy;
	1065	vfs_inode_t * inode_ptr;
	1066	vfs_inode_type_t inode_type;
[204]	1067	xptr_t children_xp; // extended pointer on children xhtab
[188]	1068
[204]	1069	xptr_t child_dentry_xp;
	1070	cxy_t child_dentry_cxy;
	1071	vfs_dentry_t * child_dentry_ptr;
	1072	xptr_t child_inode_xp;
	1073	xptr_t child_dentry_name_xp;
[188]	1074
	1075	char name[CONFIG_VFS_MAX_NAME_LENGTH];
	1076
	1077	char * indent_str[] = { "", // level 0
	1078	" ", // level 1
	1079	" ", // level 2
	1080	" ", // level 3
	1081	" ", // level 4
	1082	" ", // level 5
	1083	" ", // level 6
	1084	" ", // level 7
	1085	" ", // level 8
	1086	" ", // level 9
	1087	" ", // level 10
	1088	" ", // level 11
	1089	" ", // level 12
	1090	" ", // level 13
	1091	" ", // level 14
	1092	" " }; // level 15
	1093
	1094	assert( (inode_xp != XPTR_NULL) , __FUNCTION__ , "inode_xp cannot be NULL\n" );
	1095	assert( (name_xp != XPTR_NULL) , __FUNCTION__ , "name_xp cannot be NULL\n" );
	1096	assert( (indent < 16) , __FUNCTION__ , "depth cannot be larger than 15\n" );
	1097
	1098	// get inode cluster and local pointer
	1099	inode_cxy = GET_CXY( inode_xp );
	1100	inode_ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	1101
	1102	// get inode type
	1103	inode_type = hal_remote_lw( XPTR( inode_cxy , &inode_ptr->type ) );
	1104
	1105	// make a local copy of node name
	1106	hal_remote_strcpy( XPTR( local_cxy , name ) , name_xp );
	1107
	1108	// display inode
[337]	1109	nolock_printk("%s%s <%s> inode_xp = %l / dentry_xp = %l\n",
	1110	indent_str[indent], vfs_inode_type_str( inode_type ),
	1111	name , inode_xp , dentry_xp );
[188]	1112
	1113	// scan directory entries
	1114	if( inode_type == INODE_TYPE_DIR )
	1115	{
	1116	// get extended pointer on directory entries xhtab
[204]	1117	children_xp = XPTR( inode_cxy , &inode_ptr->children );
[188]	1118
	1119	// get xhtab lock
[204]	1120	xhtab_read_lock( children_xp );
[188]	1121
	1122	// get first dentry from xhtab
[204]	1123	child_dentry_xp = xhtab_get_first( children_xp );
[188]	1124
[204]	1125	while( child_dentry_xp != XPTR_NULL )
[188]	1126	{
	1127	// get dentry cluster and local pointer
[204]	1128	child_dentry_cxy = GET_CXY( child_dentry_xp );
	1129	child_dentry_ptr = (vfs_dentry_t *)GET_PTR( child_dentry_xp );
[188]	1130
	1131	// get extended pointer on child inode
[204]	1132	child_inode_xp = hal_remote_lwd( XPTR( child_dentry_cxy,
	1133	&child_dentry_ptr->child_xp ) );
[188]	1134
	1135	// get extended pointer on dentry name
[204]	1136	child_dentry_name_xp = XPTR( child_dentry_cxy , &child_dentry_ptr->name );
[188]	1137
	1138	// recursive call on child inode
[204]	1139	vfs_recursive_display( child_inode_xp,
	1140	child_dentry_name_xp,
	1141	child_dentry_xp,
	1142	indent+1 );
[188]	1143
	1144	// get next dentry
[204]	1145	child_dentry_xp = xhtab_get_next( children_xp );
[188]	1146	}
	1147
	1148	// release xhtab lock
[204]	1149	xhtab_read_unlock( children_xp );
[188]	1150	}
	1151	} // end vfs_recursive_display()
	1152
	1153	///////////////////////////////////
	1154	void vfs_display( xptr_t inode_xp )
	1155	{
[204]	1156	xptr_t name_xp;
[188]	1157	xptr_t dentry_xp;
	1158	cxy_t dentry_cxy;
	1159	vfs_dentry_t * dentry_ptr;
[337]	1160	uint32_t save_sr;
[188]	1161
	1162	// get target inode cluster and local pointer
	1163	cxy_t inode_cxy = GET_CXY( inode_xp );
	1164	vfs_inode_t * inode_ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	1165
	1166	// get extended pointer on associated dentry
	1167	dentry_xp = hal_remote_lwd( XPTR( inode_cxy , &inode_ptr->parent_xp ) );
	1168
	1169	// check if target inode is the File System root
	1170	if( dentry_xp == XPTR_NULL )
	1171	{
	1172	// build extended pointer on root name
	1173	name_xp = XPTR( local_cxy , "/" );
	1174	}
	1175	else
	1176	{
	1177	// get dentry cluster and local pointer
	1178	dentry_cxy = GET_CXY( dentry_xp );
	1179	dentry_ptr = (vfs_dentry_t *)GET_PTR( dentry_xp );
	1180
	1181	// get extended pointer on dentry name
	1182	name_xp = XPTR( dentry_cxy , &dentry_ptr->name );
	1183	}
	1184
[337]	1185	// get pointers on TXT0 chdev
	1186	xptr_t txt0_xp = chdev_dir.txt[0];
	1187	cxy_t txt0_cxy = GET_CXY( txt0_xp );
	1188	chdev_t * txt0_ptr = GET_PTR( txt0_xp );
	1189
	1190	// get extended pointer on remote TXT0 chdev lock
	1191	xptr_t lock_xp = XPTR( txt0_cxy , &txt0_ptr->wait_lock );
	1192
	1193	// get TXT0 lock in busy waiting mode
	1194	remote_spinlock_lock_busy( lock_xp , &save_sr );
	1195
[188]	1196	// print header
[337]	1197	nolock_printk("\n***** file system state\n");
[188]	1198
	1199	// call recursive function
[204]	1200	vfs_recursive_display( inode_xp , name_xp , dentry_xp , 0 );
[188]	1201
[337]	1202	// release lock
	1203	remote_spinlock_unlock_busy( lock_xp , save_sr );
	1204
[204]	1205	} // end vfs_display()
[188]	1206
[1]	1207	//////////////////////////////////////////////////////////////////////////////////////////
[23]	1208	// This function is used by the vfs_lookup() function.
[1]	1209	// It takes an extended pointer on a remote inode (parent directory inode),
	1210	// and check access_rights violation for the calling thread.
	1211	// It can be used by any thread running in any cluster.
	1212	//////////////////////////////////////////////////////////////////////////////////////////
	1213	// @ inode_xp : extended pointer on inode.
	1214	// @ client_uid : client thread user ID
	1215	// @ client_gid : client thread group ID
	1216	// @ return true if access rights are violated.
	1217	//////////////////////////////////////////////////////////////////////////////////////////
	1218	bool_t vfs_access_denied( xptr_t inode_xp,
	1219	uint32_t client_uid,
	1220	uint32_t client_gid )
	1221	{
	1222	// get found inode cluster and local pointer
	1223	cxy_t inode_cxy = GET_CXY( inode_xp );
	1224	vfs_inode_t * inode_ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	1225
	1226	// get inode access mode, UID, and GID
	1227	// TODO uint32_t mode = hal_remote_lw( XPTR( inode_cxy , &inode_ptr->mode ) );
	1228	uid_t uid = hal_remote_lw( XPTR( inode_cxy , &inode_ptr->uid ) );
	1229	gid_t gid = hal_remote_lw( XPTR( inode_cxy , &inode_ptr->gid ) );
	1230
	1231	// FIXME : me must use mode
	1232	if( (uid == client_uid) \|\| (gid == client_gid) ) return false;
	1233	else return true;
	1234	}
	1235
	1236	//////////////////////////////////////////////////////////////////////////////////////////
	1237	// This static function is used by the vfs_lookup() function.
[204]	1238	// It takes an extended pointer on a remote parent directory inode, a directory
[1]	1239	// entry name, and returns an extended pointer on the child inode.
	1240	// It can be used by any thread running in any cluster.
	1241	//////////////////////////////////////////////////////////////////////////////////////////
	1242	// @ parent_xp : extended pointer on parent inode in remote cluster.
	1243	// @ name : dentry name
	1244	// @ child_xp : [out] buffer for extended pointer on child inode.
	1245	// @ return true if success / return false if not found.
	1246	//////////////////////////////////////////////////////////////////////////////////////////
	1247	static bool_t vfs_get_child( xptr_t parent_xp,
	1248	char * name,
	1249	xptr_t * child_xp )
	1250	{
	1251	xptr_t xhtab_xp; // extended pointer on hash table containing children dentries
	1252	xptr_t dentry_xp; // extended pointer on children dentry
	1253
	1254	// get parent inode cluster and local pointer
	1255	cxy_t parent_cxy = GET_CXY( parent_xp );
	1256	vfs_inode_t * parent_ptr = (vfs_inode_t *)GET_PTR( parent_xp );
	1257
	1258	// get extended pointer on hash table of children directory entries
	1259	xhtab_xp = XPTR( parent_cxy , &parent_ptr->children );
	1260
	1261	// search extended pointer on matching dentry
	1262	dentry_xp = xhtab_lookup( xhtab_xp , name );
	1263
	1264	if( dentry_xp == XPTR_NULL ) return false;
	1265
	1266	// get dentry cluster and local pointer
	1267	cxy_t dentry_cxy = GET_CXY( dentry_xp );
	1268	vfs_dentry_t * dentry_ptr = (vfs_dentry_t *)GET_PTR( dentry_xp );
	1269
	1270	// return child inode
[101]	1271	*child_xp = (xptr_t)hal_remote_lwd( XPTR( dentry_cxy , &dentry_ptr->child_xp ) );
[1]	1272	return true;
	1273
[204]	1274	} // end vfs_get_child()
	1275
[1]	1276	//////////////////////////////////////////////////////////////////////////////////////////
	1277	// This static function is used by the vfs_lookup() function.
	1278	// It takes the <current> pointer on a buffer containing a complete pathname, and return
	1279	// in the <name> buffer, allocated by the caller, a single name in the path.
	1280	// It return also in the <next> pointer the next character to analyse in the path.
	1281	// Finally it returns a <last> boolean, that is true when the returned <name> is the
	1282	// last name in the path. The names are supposed to be separated by one or several '/'
	1283	// characters, that are not written in the <name> buffer.
	1284	//////////////////////////////////////////////////////////////////////////////////////////
	1285	// @ current : pointer on first character to analyse in buffer containing the path.
	1286	// @ name : [out] pointer on buffer allocated by the caller for the returned name.
	1287	// @ next : [out] pointer on next character to analyse in buffer containing the path.
	1288	// @ last : [out] true if the returned name is the last (NUL character found).
	1289	// @ return 0 if success / return EINVAL if string empty (first chracter is NUL).
	1290	//////////////////////////////////////////////////////////////////////////////////////////
	1291	static error_t vfs_get_name_from_path( char * current,
	1292	char * name,
	1293	char ** next,
	1294	bool_t * last )
	1295	{
	1296	char * ptr = current;
	1297
	1298	// skip leading '/' characters
	1299	while( *ptr == '/' ) ptr++;
	1300
	1301	// return EINVAL if string empty
	1302	if( *ptr == 0 ) return EINVAL;
	1303
	1304	// copy all characters in name until NUL or '/'
	1305	while( (ptr != 0) && (ptr !='/') ) (name++) = (ptr++);
	1306
[204]	1307	// set NUL terminating character in name buffer
	1308	*(name++) = 0;
	1309
[1]	1310	// return last an next
	1311	if( *ptr == 0 ) // last found character is NUL => last name in path
	1312	{
	1313	*last = true;
	1314	}
	1315	else // last found character is '/' => skip it
	1316	{
	1317	*last = false;
	1318	*next = ptr + 1;
	1319	}
	1320
	1321	return 0;
[204]	1322
	1323	} // end vfs_get name_from_path()
[188]	1324
[23]	1325	//////////////////////////////////////////////
	1326	error_t vfs_lookup( xptr_t cwd_xp,
	1327	char * pathname,
	1328	uint32_t mode,
	1329	xptr_t * inode_xp )
[1]	1330	{
[101]	1331	char name[CONFIG_VFS_MAX_NAME_LENGTH]; // one name in path
[1]	1332
[23]	1333	xptr_t parent_xp; // extended pointer on parent inode
	1334	cxy_t parent_cxy; // cluster for parent inode
	1335	vfs_inode_t * parent_ptr; // local pointer on parent inode
	1336	xptr_t child_xp; // extended pointer on child inode
	1337	cxy_t child_cxy; // cluster for child inode
	1338	vfs_inode_t * child_ptr; // local pointer on child inode
[238]	1339	vfs_inode_type_t child_type; // child inode type
[23]	1340	vfs_fs_type_t fs_type; // File system type
	1341	vfs_ctx_t * ctx_ptr; // local pointer on FS context
	1342	char * current; // current pointer on path
	1343	char * next; // next value for current pointer
	1344	bool_t last; // true when the name is the last in path
	1345	bool_t found; // true when a child has been found
	1346	thread_t * this; // pointer on calling thread descriptor
	1347	process_t * process; // pointer on calling process descriptor
	1348	error_t error;
[1]	1349
[204]	1350	vfs_dmsg("\n[INFO] %s : enters for <%s> at cycle %d\n",
	1351	__FUNCTION__ , pathname , (uint32_t)hal_time_stamp() );
[101]	1352
[1]	1353	this = CURRENT_THREAD;
	1354	process = this->process;
	1355
	1356	// get extended pointer on first inode to search
	1357	if( pathname[0] == '/' ) parent_xp = process->vfs_root_xp;
	1358	else parent_xp = cwd_xp;
	1359
[101]	1360	// initialise other loop variables
[1]	1361	current = pathname;
	1362	next = NULL;
	1363	last = false;
	1364	child_xp = XPTR_NULL;
	1365
	1366	// take lock on parent inode
[101]	1367	vfs_inode_lock( parent_xp );
[1]	1368
[101]	1369	// load from device if one intermediate node not found
[204]	1370	// exit while loop when last name found (i.e. last == true)
[1]	1371	do
	1372	{
[101]	1373	// get one name from path, and the "last" flag
[1]	1374	vfs_get_name_from_path( current , name , &next , &last );
	1375
[204]	1376	vfs_dmsg("\n[INFO] %s : looking for <%s> / last = %d\n",
[101]	1377	__FUNCTION__ , name , last );
	1378
[204]	1379	// search a child dentry matching name in parent inode
[1]	1380	found = vfs_get_child( parent_xp,
	1381	name,
	1382	&child_xp );
	1383
[238]	1384	// if a child inode is not found in the inode tree:
	1385	// - we create the missing inode/dentry couple in the inode tree,
	1386	// - we scan the parent mapper to complete the child inode (type and extension),
	1387	// - we return an error if child not found on device.
	1388	// - if the missing child is a directory, we load the child mapper from device
	1389
	1390	// for the last name, the behaviour depends on the "mode" argument:
	1391
[246]	1392	if (found == false ) // child node not found in inode tree
[1]	1393	{
[204]	1394	vfs_dmsg("\n[INFO] %s : <%s> not found, try to load it\n",
[101]	1395	__FUNCTION__ , name );
	1396
[1]	1397	// release lock on parent inode
[101]	1398	vfs_inode_unlock( parent_xp );
[1]	1399
[238]	1400	// get parent inode FS type
[23]	1401	parent_cxy = GET_CXY( parent_xp );
	1402	parent_ptr = (vfs_inode_t *)GET_PTR( parent_xp );
[1]	1403
[238]	1404	ctx_ptr = (vfs_ctx_t *)hal_remote_lpt( XPTR( parent_cxy ,
	1405	&parent_ptr->ctx ) );
	1406	fs_type = hal_remote_lw( XPTR( parent_cxy , &ctx_ptr->type ) );
[23]	1407
[238]	1408	// select a cluster for missing inode
	1409	child_cxy = vfs_cluster_random_select();
[188]	1410
	1411	// insert a new child dentry/inode in parent inode
	1412	error = vfs_add_child_in_parent( child_cxy,
[238]	1413	INODE_TYPE_DIR,
[23]	1414	fs_type,
	1415	parent_xp,
[222]	1416	name,
[238]	1417	NULL, // fs_type_specific inode extend
[23]	1418	&child_xp );
[1]	1419	if( error )
	1420	{
[238]	1421	printk("\n[ERROR] in %s : no memory for inode %s in path %s\n",
	1422	__FUNCTION__ , name , pathname );
	1423	return ENOMEM;
	1424	}
	1425
	1426	// scan parent mapper to complete the missing inode
	1427	if( parent_cxy == local_cxy )
	1428	{
	1429	error = vfs_inode_load( parent_ptr,
	1430	name,
	1431	child_xp );
	1432	}
	1433	else
	1434	{
	1435	rpc_vfs_inode_load_client( parent_cxy,
	1436	parent_ptr,
	1437	name,
	1438	child_xp,
	1439	&error );
	1440	}
	1441
	1442	if ( error )
	1443	{
[188]	1444	printk("\n[ERROR] in %s : node %s not found in path %s\n",
[1]	1445	__FUNCTION__ , name , pathname );
	1446	return ENOENT;
	1447	}
	1448
[238]	1449	// get child inode type
	1450	child_ptr = (vfs_inode_t *)GET_PTR( child_xp );
	1451	child_type = hal_remote_lw( XPTR( child_cxy , &child_ptr->type ) );
	1452
	1453	// load child mapper from device if it is a directory
	1454	if( child_type == INODE_TYPE_DIR )
	1455	{
	1456	if( child_cxy == local_cxy )
	1457	{
	1458	error = vfs_mapper_load_all( child_ptr );
	1459	}
	1460	else
	1461	{
	1462	rpc_vfs_mapper_load_all_client( child_cxy,
	1463	child_ptr,
	1464	&error );
	1465	}
	1466
	1467	if ( error )
	1468	{
	1469	printk("\n[ERROR] in %s : cannot access device for node %s in path %s\n",
	1470	__FUNCTION__ , name , pathname );
	1471	return EIO;
	1472	}
	1473	}
	1474
	1475	// TODO handle lookup mode here [AG]
	1476
[1]	1477	// take lock on parent inode
[101]	1478	vfs_inode_lock( parent_xp );
[1]	1479	}
	1480
[204]	1481	vfs_dmsg("\n[INFO] %s : found <%s> / parent = %l / child = %l / last = %d\n",
[238]	1482	__FUNCTION__ , name , parent_xp , child_xp , last );
[101]	1483
	1484	// TODO check access rights
[23]	1485	// error = vfs_access_denied( child_xp,
	1486	// client_uid,
	1487	// client_gid );
	1488	// if( error )
	1489	// {
	1490	// printk("\n[ERROR] in %s : permission denied for %s\n", __FUNCTION__ , name );
	1491	// return EACCES;
	1492	// }
[1]	1493
[238]	1494	// take lock on child inode and release lock on parent
	1495	vfs_inode_lock( child_xp );
[101]	1496	vfs_inode_unlock( parent_xp );
[1]	1497
	1498	// update loop variables
	1499	parent_xp = child_xp;
	1500	current = next;
	1501	}
	1502	while( last == false );
	1503
[238]	1504	// release lock
	1505	vfs_inode_unlock( parent_xp );
[1]	1506
[265]	1507	vfs_dmsg("\n[INFO] in %s : exit <%s> found / inode = %l\n",
[238]	1508	__FUNCTION__ , pathname , child_xp );
[1]	1509
[238]	1510	// return searched pointer
[1]	1511	*inode_xp = child_xp;
	1512
	1513	return 0;
	1514
	1515	} // end vfs_lookup()
	1516
	1517	////////////////////////////////////////////
	1518	error_t vfs_get_path( xptr_t searched_xp,
	1519	char * buffer,
	1520	uint32_t max_size )
	1521	{
	1522	xptr_t dentry_xp; // extended pointer on current dentry
	1523	char * name; // local pointer on current dentry name
	1524	uint32_t length; // length of current dentry name
	1525	uint32_t count; // number of characters written in buffer
	1526	uint32_t index; // slot index in buffer
[23]	1527	xptr_t inode_xp; // extended pointer on
[1]	1528
	1529	// implementation note:
	1530	// we use two variables "index" and "count" because the buffer
	1531	// is actually written in decreasing index order (from leaf to root)
	1532	// TODO : handle conflict with a concurrent rename
	1533	// FIXME : handle synchro in the loop ... [AG]
	1534
	1535	// set the NUL character in buffer / initialise buffer index and count
	1536	buffer[max_size - 1] = 0;
	1537	count = 1;
	1538	index = max_size - 2;
	1539
	1540	// initialize current inode
	1541	inode_xp = searched_xp;
	1542
	1543	// exit when root inode found (i.e. dentry_xp == XPTR_NULL)
	1544	do
	1545	{
	1546	// get inode cluster and local pointer
	1547	cxy_t inode_cxy = GET_CXY( inode_xp );
	1548	vfs_inode_t * inode_ptr = (vfs_inode_t *)GET_PTR( inode_xp );
	1549
	1550	// get extended pointer on parent dentry
	1551	dentry_xp = (xptr_t)hal_remote_lwd( XPTR( inode_cxy , inode_ptr->parent_xp ) );
	1552
	1553	// get dentry cluster and local pointer
	1554	cxy_t dentry_cxy = GET_CXY( dentry_xp );
	1555	vfs_dentry_t * dentry_ptr = (vfs_dentry_t *)GET_PTR( dentry_xp );
	1556
	1557	// get dentry name length and pointer
	1558	length = hal_remote_lw( XPTR( dentry_cxy , &dentry_ptr->length ) );
	1559	name = (char *)hal_remote_lpt( XPTR( dentry_cxy , &dentry_ptr->name ) );
	1560
	1561	// update index and count
	1562	index -= (length + 1);
	1563	count += (length + 1);
	1564
	1565	// check buffer overflow
	1566	if( count >= max_size )
	1567	{
	1568	printk("\n[ERROR] in %s : kernel buffer too small\n", __FUNCTION__ );
	1569	return EINVAL;
	1570	}
	1571
	1572	// update pathname
	1573	hal_remote_memcpy( XPTR( local_cxy , &buffer[index + 1] ) ,
	1574	XPTR( dentry_cxy , name ) , length );
	1575	buffer[index] = '/';
	1576
	1577	// get extended pointer on next inode
	1578	inode_xp = (xptr_t)hal_remote_lwd( XPTR( dentry_cxy , dentry_ptr->parent ) );
	1579	}
	1580	while( (dentry_xp != XPTR_NULL) );
	1581
	1582	return 0;
	1583
	1584	} // end vfs_get_path()
	1585
[188]	1586
	1587	//////////////////////////////////////////////////////////////
	1588	error_t vfs_add_child_in_parent( cxy_t child_cxy,
	1589	vfs_inode_type_t inode_type,
[23]	1590	vfs_fs_type_t fs_type,
	1591	xptr_t parent_xp,
	1592	char * name,
[188]	1593	void * extend,
[23]	1594	xptr_t * child_xp )
[1]	1595	{
[23]	1596	error_t error;
	1597	xptr_t dentry_xp; // extended pointer on created dentry
	1598	xptr_t inode_xp; // extended pointer on created inode
	1599	cxy_t parent_cxy; // parent inode cluster identifier
	1600	vfs_inode_t * parent_ptr; // parent inode local pointer
[1]	1601
	1602	// get parent inode cluster and local pointer
[23]	1603	parent_cxy = GET_CXY( parent_xp );
	1604	parent_ptr = (vfs_inode_t *)GET_PTR( parent_xp );
[1]	1605
[296]	1606	vfs_dmsg("\n[INFO] %s : enter in cluster %x for %s / child_cxy = %x / parent_xp = %l\n",
	1607	__FUNCTION__ , local_cxy , name , child_cxy , parent_xp );
[279]	1608
[204]	1609	// 1. create dentry
[1]	1610	if( parent_cxy == local_cxy ) // parent cluster is the local cluster
	1611	{
[23]	1612	error = vfs_dentry_create( fs_type,
[1]	1613	name,
	1614	parent_ptr,
	1615	&dentry_xp );
[279]	1616
	1617	vfs_dmsg("\n[INFO] %s : dentry created in local cluster %x\n",
	1618	__FUNCTION__ , local_cxy );
[1]	1619	}
	1620	else // parent cluster is remote
	1621	{
	1622	rpc_vfs_dentry_create_client( parent_cxy,
[23]	1623	fs_type,
[1]	1624	name,
	1625	parent_ptr,
	1626	&dentry_xp,
	1627	&error );
[279]	1628
	1629	vfs_dmsg("\n[INFO] %s : dentry created in remote cluster %x\n",
	1630	__FUNCTION__ , parent_cxy );
[1]	1631	}
	1632
	1633	if( error )
	1634	{
	1635	printk("\n[ERROR] in %s : cannot create dentry in cluster %x\n",
	1636	__FUNCTION__ , parent_cxy );
[204]	1637	return ENOMEM;
[1]	1638	}
	1639
[204]	1640	// 2. create child inode TODO : define attr / mode / uid / gid
[1]	1641	uint32_t attr = 0;
	1642	uint32_t mode = 0;
	1643	uint32_t uid = 0;
	1644	uint32_t gid = 0;
	1645
	1646	if( child_cxy == local_cxy ) // child cluster is the local cluster
	1647	{
	1648	error = vfs_inode_create( dentry_xp,
[23]	1649	fs_type,
	1650	inode_type,
[188]	1651	extend,
[1]	1652	attr,
	1653	mode,
	1654	uid,
	1655	gid,
	1656	&inode_xp );
[279]	1657
	1658	vfs_dmsg("\n[INFO] %s : inode created in local cluster %x\n",
	1659	__FUNCTION__ , local_cxy );
[1]	1660	}
	1661	else // child cluster is remote
	1662	{
	1663	rpc_vfs_inode_create_client( child_cxy,
	1664	dentry_xp,
[23]	1665	fs_type,
	1666	inode_type,
[188]	1667	extend,
[1]	1668	attr,
	1669	mode,
	1670	uid,
	1671	gid,
	1672	&inode_xp,
	1673	&error );
[279]	1674
	1675	vfs_dmsg("\n[INFO] %s : inodecreated in remote cluster %x\n",
	1676	__FUNCTION__ , child_cxy );
[1]	1677	}
	1678
	1679	if( error )
	1680	{
	1681	printk("\n[ERROR] in %s : cannot create inode in cluster %x\n",
	1682	__FUNCTION__ , child_cxy );
	1683
	1684	vfs_dentry_t * dentry = (vfs_dentry_t *)GET_PTR( dentry_xp );
	1685	if( parent_cxy == local_cxy ) vfs_dentry_destroy( dentry );
	1686	else rpc_vfs_dentry_destroy_client( parent_cxy , dentry );
[204]	1687	return ENOMEM;
[1]	1688	}
	1689
[204]	1690	// 3. update extended pointer on inode in dentry
	1691	cxy_t dentry_cxy = GET_CXY( dentry_xp );
	1692	vfs_dentry_t * dentry_ptr = (vfs_dentry_t *)GET_PTR( dentry_xp );
	1693	hal_remote_swd( XPTR( dentry_cxy , &dentry_ptr->child_xp ) , inode_xp );
	1694
[296]	1695	vfs_dmsg("\n[INFO] %s : exit in cluster %x for %s\n",
	1696	__FUNCTION__ , local_cxy , name );
	1697
[1]	1698	// success : return extended pointer on child inode
	1699	*child_xp = inode_xp;
	1700	return 0;
	1701
	1702	} // end vfs_add_child_in_parent()
	1703
[23]	1704	//////////////////////////////////////////////////////////////////////////////////////////
	1705	// Mapper related functions
	1706	//////////////////////////////////////////////////////////////////////////////////////////
	1707
[238]	1708	////////////////////////////////////////////
	1709	error_t vfs_mapper_move_page( page_t * page,
	1710	bool_t to_mapper )
[23]	1711	{
[204]	1712	error_t error = 0;
[23]	1713
	1714	assert( (page != NULL) , __FUNCTION__ , "page pointer is NULL\n" );
	1715
[246]	1716	mapper_t * mapper = page->mapper;
[23]	1717
[246]	1718
[23]	1719	assert( (mapper != NULL) , __FUNCTION__ , "no mapper for page\n" );
	1720
[246]	1721	vfs_dmsg("\n[INFO] %s : enters for page = %d in mapper = %x\n",
	1722	__FUNCTION__ , page->index , mapper );
	1723
[23]	1724	// get FS type
[246]	1725	vfs_fs_type_t fs_type = mapper->type;
[23]	1726
[238]	1727	// call relevant FS function
[23]	1728	if( fs_type == FS_TYPE_FATFS )
	1729	{
	1730	rwlock_wr_lock( &mapper->lock );
[246]	1731	error = fatfs_mapper_move_page( page , to_mapper );
[23]	1732	rwlock_wr_unlock( &mapper->lock );
	1733	}
	1734	else if( fs_type == FS_TYPE_RAMFS )
	1735	{
	1736	assert( false , __FUNCTION__ , "should not be called for RAMFS\n" );
	1737	}
	1738	else if( fs_type == FS_TYPE_DEVFS )
	1739	{
	1740	assert( false , __FUNCTION__ , "should not be called for DEVFS\n" );
	1741	}
	1742	else
	1743	{
	1744	assert( false , __FUNCTION__ , "undefined file system type\n" );
	1745	}
	1746
[246]	1747	vfs_dmsg("\n[INFO] %s : exit for page = %d in mapper = %x\n",
	1748	__FUNCTION__ , page->index , mapper );
	1749
[23]	1750	return error;
	1751
[238]	1752	} // end vfs_move_page()
[23]	1753
	1754	//////////////////////////////////////////////////
[238]	1755	error_t vfs_mapper_load_all( vfs_inode_t * inode )
[23]	1756	{
[265]	1757	assert( (inode != NULL) , __FUNCTION__ , "inode pointer is NULL\n" );
[23]	1758
[238]	1759	uint32_t index;
	1760	page_t * page;
[23]	1761
[238]	1762	mapper_t * mapper = inode->mapper;
	1763	uint32_t size = inode->size;
[23]	1764
[265]	1765	assert( (mapper != NULL) , __FUNCTION__ , "mapper pointer is NULL\n" );
[23]	1766
[238]	1767	uint32_t npages = size >> CONFIG_PPM_PAGE_SHIFT;
[265]	1768	if( (size & CONFIG_PPM_PAGE_MASK) \|\| (size == 0) ) npages++;
[238]	1769
[265]	1770	// loop on pages
[238]	1771	for( index = 0 ; index < npages ; index ++ )
[23]	1772	{
[238]	1773	// this function allocates the missing page in mapper,
	1774	// and call the vfs_mapper_move_page() to load the page from device
	1775	page = mapper_get_page( mapper , index );
[23]	1776
[238]	1777	if( page == NULL ) return EIO;
[23]	1778	}
	1779
[238]	1780	return 0;
[23]	1781
[238]	1782	} // end vfs_mapper_load_all()
[23]	1783

Note: See TracBrowser for help on using the repository browser.

Download in other formats: