haiku.git

/*
	Copyright 1999-2001, Be Incorporated.   All Rights Reserved.
	This file may be used under the terms of the Be Sample Code License.
*/


#include "system_dependencies.h"

#ifndef FS_SHELL
#include <real_time_clock.h>
#endif

#include "dosfs.h"
#include "fat.h"
#include "util.h"

static int32 tzoffset = -1; /* in minutes */

#ifdef DEBUG

int
_assert_(char *a, int b, char *c)
{
	dprintf("tripped assertion in %s/%d (%s)\n", a, b, c);
	kernel_debugger("tripped assertion");
	return 0;
}

#endif

static void
print_byte(uint8 c)
{
	dprintf("%c", ((c >= ' ') && (c <= '~')) ? c : '.');
}


void
dump_bytes(uint8 *buffer, uint32 count)
{
	uint32 i, j, k;
	for (i = 0; i < 0x10; i++)
		dprintf(" %" B_PRIu32 " ", i);

	dprintf("\n");
	for (i = 0; i < count; i += 0x10) {
		j = (i + 0x10 > count) ? count - i : 0x10;
		for (k = i; k < i + j; k++)
			dprintf("%2.2X ", buffer[k]);
		for (; k < i + 0x10; k++)
			dprintf("   ");
		dprintf(" ");
		for (k = i; k < i + j; k++)
			print_byte(buffer[k]);
		dprintf("\n");
	}
}


void
dump_directory(uint8 *buffer)
{
	dump_bytes(buffer, 32);
}


static void
get_tzoffset()
{
	if (tzoffset != -1)
		return;

	#ifdef FS_SHELL
	// We just assume UTC ;-)
	tzoffset = 0;
	#else
	tzoffset = get_timezone_offset() / 60;
	#endif
}


// If divisible by 4, but not divisible by 100, but divisible by 400, it's a leap year
// 1996 is leap, 1900 is not, 2000 is, 2100 is not
#define IS_LEAP_YEAR(y) ((((y) % 4) == 0) && (((y) % 100) || ((((y)) % 400) == 0)))

/* returns leap days since 1970 */
static int leaps(int yr, int mon)
{
	// yr is 1970-based, mon 0-based
	int result = (yr+2)/4 - (yr + 70) / 100;
	if((yr+70) >= 100) result++; // correct for 2000
	if (IS_LEAP_YEAR(yr + 1970))
		if (mon < 2) result--;
	return result;
}

static int daze[] = { 0,0,31,59,90,120,151,181,212,243,273,304,334,0,0,0 };

time_t
dos2time_t(uint32 t)
{
	time_t days;

	get_tzoffset();

	//dprintf("%d/%d/%d %d:%2.2d:%2.2d\n",
	//	(t>>25)+1980,((t>>21)&15),((t>>16)&31),
	//	(t>>11)&31,(t>>5)&63,2*(t&31));

	days = daze[(t>>21)&15] + ((t>>25)+10)*365 + leaps((t>>25)+10,((t>>21)&15)-1)+((t>>16)&31)-1;

	return (((days * 24) + ((t>>11)&31)) * 60 + ((t>>5)&63) - tzoffset) * 60 + 2*(t&31);
}


uint32
time_t2dos(time_t s)
{
	uint32 t, d, y;
	int days;

	get_tzoffset();

	t = (s % 60) / 2;	s /= 60; s += tzoffset;
	t += (s % 60) << 5;	s /= 60;
	t += (s % 24) << 11;s /= 24;

	s -= 10*365 + 2; // convert from 1970-based year to 1980-based year

	for (y=0;;y++) {
		days = IS_LEAP_YEAR(1980+y) ? 366 : 365;
		if (s < days) break;
		s -= days;
	}

	if (IS_LEAP_YEAR(1980+y)) {
		if (s == 59) {
			d = (1 << 5) + 28; /* 2/29, 0 based */
			goto bi;
		} else if (s > 59)
			s--;
	}

	for (d=0;d<11;d++)
		if (daze[d+2] > s)
			break;
	d = (d << 5) + (s - daze[d+1]);

bi:
	d += (1 << 5) + 1; // make date 1-based

	return t + (d << 16) + (y << 25);
}


uint8
hash_msdos_name(const char *name)
{
	const uint8 *p = (const uint8 *)name;
	int i;
	uint8 c = 0;
	for (i=0;i<11;i++)
		c = (c << 7) + (c >> 1) + *(p++);
	return c;
}


void
sanitize_name(char *name, int length)
{
	int i;

	for (i = length - 1; i > 0; i--) {
		if (name[i] != ' ')
			break;
	}
	name[i + 1] = 0;
	for (; i >= 0; i--) {
		if (name[i] >= 'A' && name[i] <= 'Z')
			name[i] += 'a' - 'A';
	}
}