/**************************************************
UZI (Unix Z80 Implementation) Utilities:  mkfs.c
***************************************************/

#define _HAVE_TYPES_H_
typedef short           int16;
typedef unsigned short  uint16;

#include <stdio.h>

#include <sys/unix.h>
#define MAIN
#include <sys/extern.h>
#undef MAIN

/* This makes a filesystem */

int dev;

extern char *zerobuf();
direct dirbuf[32] = { ROOTINODE,".",ROOTINODE,".." };
struct dinode inode[8];

int main( argc, argv )
int	argc;
char	*argv[];
{
	uint16	fsize,
		isize;

	if( argc != 4 )
	{
		printf( "Usage: mkfs device isize fsize\n" );
		exit( -1 );
	}

	dev   =         atoi( argv[1] );
	isize = (uint16)atoi( argv[2] );
	fsize = (uint16)atoi( argv[3] );

	if( dev==0 && argv[1][0] != '0' )
	{
		printf( "Invalid device\n" );
		exit( -1 );
	}
	
	if( dev<0 || dev>=NDEVS )
	{
		printf( "Invalid device\n" );
		exit( -1 );
	}

	if( fsize<3 || isize<2 || isize>=fsize )
	{
		printf( "Bad parameter values\n" );
		exit( -1 );
	}


	printf( "Making filesystem on device %d with isize %u fsize %u. Confirm?\n",
		dev,isize,fsize );
	if( !yes() )
		exit( -1 );

	bufinit();
	if( d_open(dev) )
	{
		printf( "Can't open device" );
		exit( -1 );
	}

	mkfs( fsize, isize );
	bufsync();
	d_close(dev);
	exit( 0 );
}


int mkfs( fsize, isize )
uint16	fsize,
	isize;
{
	uint16	j;

	/* Zero out the blocks */
	for( j=0; j<fsize; ++j )
		dwrite( j, zerobuf() );

	/* Initialize the super-block */
	fs_tab[dev].s_mounted =  SMOUNTED; /* Magic number */
	fs_tab[dev].s_isize   =  isize;
	fs_tab[dev].s_fsize   =  fsize;
	fs_tab[dev].s_nfree   =  1;
	fs_tab[dev].s_free[0] =  0;
	fs_tab[dev].s_tfree   =  0;
	fs_tab[dev].s_ninode  =  0;
	fs_tab[dev].s_tinode  =  8 * (isize-2) - 2;

	/* Free each block, building the free list */
	for( j=fsize-1; j>=isize+1; --j )
	{
		if( fs_tab[dev].s_nfree == 50 )
		{
			dwrite(j, (char *)&fs_tab[dev].s_nfree);
			fs_tab[dev].s_nfree = 0;
		}
		++fs_tab[dev].s_tfree;
		fs_tab[dev].s_free[(fs_tab[dev].s_nfree)++] = j;
	}

	/* The inodes are already zeroed out */
	/* create the root dir */
	inode[ROOTINODE].i_mode          = F_DIR | (0777 & MODE_MASK);
	inode[ROOTINODE].i_nlink         = 3;
	inode[ROOTINODE].i_size.o_blkno  = 0;
	inode[ROOTINODE].i_size.o_offset = 32;
	inode[ROOTINODE].i_addr[0]       = isize;

	/* Reserve reserved inode */
	inode[0].i_nlink = 1;
	inode[0].i_mode  = ~0;

	dwrite( 2,(char *)inode );

	dwrite( isize, (char*)dirbuf );

	/* Write out super block */
	dwrite( 1, (char *)&fs_tab[dev] );
}



int dwrite( blk, addr )
uint16	blk;
char	*addr;
{
	char	*buf;
	char	*bread();

	buf = bread( dev, blk, 1 );
	bcopy( addr, buf, 512 );
	bfree( buf, 1 );
}
    

int yes()
{
	char	line[20];

	if( !fgets(line,sizeof(line),stdin) || (*line != 'y' && *line != 'Y') )
		return( 0 );

	return( 1 );
}