Subversion Repositories Kolibri OS

//copyf - copy file or folder with content

:int copyf(dword from1, in1)

{

	dword error;

	BDVK CopyFile_atr1;

	if (!from1) || (!in1)

	{

		notify("Error: too less copyf params!");

		notify(from1);

		notify(in1);

		return;

	}

	if (error = GetFileInfo(from1, #CopyFile_atr1))

	{

		debug("Error: copyf->GetFileInfo");

		return error;

	}

	if (isdir(from1))

		return CopyFolder(from1, in1);

	else

	{

		copyf_Draw_Progress(from1+strchr(from1, '/'));

		return CopyFile(from1, in1);

	}

}

:int CopyFile(dword copy_from3, copy_in3)

{

	BDVK CopyFile_atr;

	dword error, cbuf;

	if (error = GetFileInfo(copy_from3, #CopyFile_atr))

	{

		debug("Error: CopyFile->GetFileInfo");

	}

	else

	{

		cbuf = malloc(CopyFile_atr.sizelo);

		if (error = ReadFile(0, CopyFile_atr.sizelo, cbuf, copy_from3))

		{

			debug("Error: CopyFile->ReadFile");

		}

		else

		{

			if (error = WriteFile(CopyFile_atr.sizelo, cbuf, copy_in3)) debug("Error: CopyFile->WriteFile");

		}

	}

	free(cbuf);

	if (error) debug_error(copy_from3, error);

	return error;

}

:int CopyFolder(dword from2, in2)

{

	dword dirbuf, fcount, i, filename;

	char copy_from2[4096], copy_in2[4096], error;

	if (error = GetDir(#dirbuf, #fcount, from2, DIRS_ONLYREAL))

	{

		debug("Error: CopyFolder->GetDir");

		debug_error(from2, error);

		free(dirbuf);

		return error;

	}

	if (chrnum(in2, '/')>2) && (error = CreateDir(in2))

	{

		debug("Error: CopyFolder->CreateDir");

		debug_error(in2, error);

		free(dirbuf);

		return error;

	}

	for (i=0; i

	{

		filename = i*304+dirbuf+72;

		strcpy(#copy_from2, from2);

		chrcat(#copy_from2, '/');

		strcat(#copy_from2, filename);

		strcpy(#copy_in2, in2);

		chrcat(#copy_in2, '/');

		strcat(#copy_in2, filename);

		if ( TestBit(ESDWORD[filename-40], 4) ) //isdir?

		{

			if ( (!strcmp(filename, ".")) || (!strcmp(filename, "..")) ) continue;

			CopyFolder(#copy_from2, #copy_in2);

		}

		else

		{

			copyf_Draw_Progress(filename);

			if (error=CopyFile(#copy_from2, #copy_in2))

			{

				if (fabs(error)==8) { debug("Stop copying."); break;} //TODO: may be need grobal var like stop_all

				error=CopyFile(#copy_from2, #copy_in2); // #2 :)

			}

		}

	}

	free(dirbuf);

	return error;

}

#ifdef LANG_RUS

	unsigned char *ERROR_TEXT[]={

	"��� #0: �ᯥ譮",

	"�訡�� #1: �� ��।����� ���� �/��� ࠧ��� ���⪮�� ��᪠",

	"�訡�� #2: �㭪�� �� �����ন������ ��� �⮩ 䠩����� ��⥬�",

	"�訡�� #3: ������᭠� 䠩����� ��⥬�",

	0,

	"�訡�� #5: 䠩� ��� ����� �� �������",

	"�訡�� #6: ����� 䠩��",

	"�訡�� #7: 㪠��⥫� ��室���� �� ����� �ਫ������",

	"�訡�� #8: �������筮 ���� �� ��᪥",

	"�訡�� #9: ⠡��� FAT ࠧ��襭�",

	"�訡�� #10: ����� ����饭",

	"�訡�� #11: �訡�� ���னᢠ",

	0, 0, 0, 0, 0, 0, 0, 0, 0,

	0, 0, 0, 0, 0, 0, 0, 0, 0,

	"�訡�� #30: �������筮 �����",

	"�訡�� #31: 䠩� �� ���� �ᯮ��塞�",

	"�訡�� #32: ᫨誮� ����� ����ᮢ", 0};

#else

	unsigned char *ERROR_TEXT[]={

	"Code #0 - No error, compleated successfully",

	"Error #1 - Base or partition of a hard disk is not defined",

	"Error #2 - Function isn't supported for this file system",

	"Error #3 - Unknown file system",

	0,

	"Error #5 - File or folder not found",

	"Error #6 - End of file",

	"Error #7 - Pointer lies outside of application memory",

	"Error #8 - Too less disk space",

	"Error #9 - FAT table is destroyed",

	"Error #10 - Access denied",

	"Error #11 - Device error",

	0, 0, 0, 0, 0, 0, 0, 0, 0,

	0, 0, 0, 0, 0, 0, 0, 0, 0,

	"Error #30 - Not enough memory",

	"Error #31 - File is not executable",

	"Error #32 - Too many processes", 0};

#endif

:dword get_error(int N)

{

	char error[256];

	N = fabs(N);

	if (N<=33)

	{

		strcpy(#error, ERROR_TEXT[N]);

	}

	else

	{

		strcpy(#error, itoa(N));

		strcat(#error, " - Unknown error number O_o");

	}

	return #error;

}

:void debug_error(dword path, error_number)

{

	if (path) debug(path);

	debug(get_error(error_number));

}