Subversion Repositories Kolibri OS

//copyf - copy file or folder with content

#define WIN_COPY_W 300

#define WIN_COPY_H 50

:int copyf(dword from1, in1)

{

	dword error;

	BDVK CopyFile_atr1;

	DefineAndDrawWindow(Form.left+Form.width-200,Form.top+90,WIN_COPY_W,GetSkinHeight()+WIN_COPY_H-1,0x34,sc.work,T_PASTE_WINDOW);

	if (!from1) || (!in1)

	{

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

		notify(from1);

		notify(in1);

		return;

	}

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

	{

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

		return error;

	}

	if (isdir(from1))

		return CopyFolder(from1, in1);

	else

	{

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

		return CopyFile(from1, in1);

	}

	if (CheckEvent()==evButton)

	{

		notify(T_CANCEL_PASTE);

		CopyExit();

	}

}

:int CopyFile(dword copy_from3, copy_in3)

{

	BDVK CopyFile_atr;

	dword error, cbuf;

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

	{

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

	}

	else

	{

		cbuf = malloc(CopyFile_atr.sizelo);

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

		{

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

		}

		else

		{

			if (error = WriteFile(CopyFile_atr.sizelo, cbuf, copy_in3)) debugln("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))

	{

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

		debug_error(from2, error);

		free(dirbuf);

		return error;

	}

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

	{

		debugln("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) { debugln("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) debugln(path);

	debugln(get_error(error_number));

}