Subversion Repositories Kolibri OS

Rev

Rev 8944 | Rev 9471 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
3444 leency 1
//copyf - copy file or folder with content
5598 pavelyakov 2
#ifndef INCLUDE_COPYF_H
3
#define INCLUDE_COPYF_H
5676 pavelyakov 4
#print "[include ]\n"
5515 leency 5
 
5598 pavelyakov 6
#ifndef INCLUDE_FILESYSTEM_H
7219 leency 7
#include "../lib/fs.h"
5598 pavelyakov 8
#endif
9
 
3444 leency 10
:int copyf(dword from1, in1)
3434 leency 11
{
3440 leency 12
	dword error;
13
	BDVK CopyFile_atr1;
5515 leency 14
 
3444 leency 15
	if (!from1) || (!in1)
16
	{
7210 leency 17
		notify("Error: too few copyf() params!");
7878 leency 18
		return -1;
3444 leency 19
	}
20
	if (error = GetFileInfo(from1, #CopyFile_atr1))
21
	{
4645 leency 22
		debugln("Error: copyf->GetFileInfo");
3444 leency 23
		return error;
24
	}
6251 leency 25
	if (dir_exists(from1))
3444 leency 26
		return CopyFolder(from1, in1);
3440 leency 27
	else
4059 leency 28
	{
7210 leency 29
		Operation_Draw_Progress(from1+strrchr(from1, '/'));
3444 leency 30
		return CopyFile(from1, in1);
4059 leency 31
	}
3440 leency 32
}
3434 leency 33
 
3440 leency 34
:int CopyFile(dword copy_from3, copy_in3)
35
{
36
	BDVK CopyFile_atr;
8868 leency 37
	dword error;
7210 leency 38
 
3444 leency 39
	if (error = GetFileInfo(copy_from3, #CopyFile_atr))
3877 leency 40
	{
4645 leency 41
		debugln("Error: CopyFile->GetFileInfo");
3877 leency 42
	}
7210 leency 43
	else
3434 leency 44
	{
7210 leency 45
		if (GetFreeRAM()-1024*1024 < CopyFile_atr.sizelo) //GetFreeRam-1Mb and convert to bytes
3877 leency 46
		{
7210 leency 47
			if (error = CopyFileByBlocks(CopyFile_atr.sizelo, copy_from3, copy_in3))
48
				debugln("Error: CopyFile->CopyFileByBlocks");
3877 leency 49
		}
7210 leency 50
		else {
51
			if (error = CopyFileAtOnce(CopyFile_atr.sizelo, copy_from3, copy_in3))
52
				debugln("Error: CopyFile->CopyFileAtOnce");
53
		}
3434 leency 54
	}
3444 leency 55
	if (error) debug_error(copy_from3, error);
3440 leency 56
	return error;
3434 leency 57
}
58
 
3444 leency 59
:int CopyFolder(dword from2, in2)
3434 leency 60
{
3444 leency 61
	dword dirbuf, fcount, i, filename;
62
	char copy_from2[4096], copy_in2[4096], error;
3434 leency 63
 
3444 leency 64
	if (error = GetDir(#dirbuf, #fcount, from2, DIRS_ONLYREAL))
3440 leency 65
	{
4645 leency 66
		debugln("Error: CopyFolder->GetDir");
3440 leency 67
		debug_error(from2, error);
68
		free(dirbuf);
3444 leency 69
		return error;
3440 leency 70
	}
4023 leency 71
 
3444 leency 72
	if (chrnum(in2, '/')>2) && (error = CreateDir(in2))
3434 leency 73
	{
4645 leency 74
		debugln("Error: CopyFolder->CreateDir");
3444 leency 75
		debug_error(in2, error);
76
		free(dirbuf);
77
		return error;
3434 leency 78
	}
79
 
80
	for (i=0; i
81
	{
82
		filename = i*304+dirbuf+72;
5598 pavelyakov 83
		sprintf(#copy_from2,"%s/%s",from2,filename);
84
		sprintf(#copy_in2,"%s/%s",in2,filename);
3444 leency 85
 
8944 leency 86
		if ( ESDWORD[filename-40] & ATR_FOLDER ) //dir_exists?
3434 leency 87
		{
5598 pavelyakov 88
			if ( (!strncmp(filename, ".",1)) || (!strncmp(filename, "..",2)) ) continue;
3440 leency 89
			CopyFolder(#copy_from2, #copy_in2);
3434 leency 90
		}
91
		else
92
		{
7210 leency 93
			Operation_Draw_Progress(filename+strrchr(filename, '/'));
6691 pathoswith 94
			if (error=CopyFile(#copy_from2, #copy_in2))
3444 leency 95
			{
4645 leency 96
				if (fabs(error)==8) { debugln("Stop copying."); break;} //TODO: may be need grobal var like stop_all
3444 leency 97
				error=CopyFile(#copy_from2, #copy_in2); // #2 :)
98
			}
3434 leency 99
		}
100
	}
101
	free(dirbuf);
3444 leency 102
	return error;
3434 leency 103
}
104
 
4023 leency 105
#ifdef LANG_RUS
7645 leency 106
	unsigned char *ERROR_TEXT[]={
4023 leency 107
	"Код #0: успешно",
108
	"Ошибка #1: не определена база и/или раздел жёсткого диска",
109
	"Ошибка #2: функция не поддерживается для этой файловой системы",
4634 Albom 110
	"Ошибка #3: неизвестная файловая система",
4023 leency 111
	0,
112
	"Ошибка #5: файл или папка не найдены",
113
	"Ошибка #6: конец файла",
114
	"Ошибка #7: указатель находится все памяти приложения",
6691 pathoswith 115
	"Ошибка #8: недостаточно места на разделе",
116
	"Ошибка #9: ошибка файловой системы",
4023 leency 117
	"Ошибка #10: доступ запрещен",
5642 leency 118
	"Ошибка #11: ошибка устройства",
4023 leency 119
	0, 0, 0, 0, 0, 0, 0, 0, 0,
6691 pathoswith 120
	0, 0, 0, 0, 0, 0, 0, 0, 0,
4023 leency 121
	"Ошибка #30: недостаточно памяти",
122
	"Ошибка #31: файл не является исполняемым",
123
	"Ошибка #32: слишком много процессов", 0};
124
#else
7645 leency 125
	unsigned char *ERROR_TEXT[]={
8953 leency 126
	"Code #0 - No error",
4023 leency 127
	"Error #1 - Base or partition of a hard disk is not defined",
128
	"Error #2 - Function isn't supported for this file system",
129
	"Error #3 - Unknown file system",
130
	0,
131
	"Error #5 - File or folder not found",
132
	"Error #6 - End of file",
133
	"Error #7 - Pointer lies outside of application memory",
6691 pathoswith 134
	"Error #8 - Not enough space on partition",
135
	"Error #9 - File system error",
4023 leency 136
	"Error #10 - Access denied",
137
	"Error #11 - Device error",
138
	0, 0, 0, 0, 0, 0, 0, 0, 0,
6691 pathoswith 139
	0, 0, 0, 0, 0, 0, 0, 0, 0,
4023 leency 140
	"Error #30 - Not enough memory",
141
	"Error #31 - File is not executable",
142
	"Error #32 - Too many processes", 0};
143
#endif
3440 leency 144
 
145
:dword get_error(int N)
3434 leency 146
{
6691 pathoswith 147
	char error[256];
3440 leency 148
	N = fabs(N);
5598 pavelyakov 149
	if (N<=33) strcpy(#error, ERROR_TEXT[N]);
150
	else sprintf(#error,"%d%s",N," - Unknown error number O_o");
3434 leency 151
	return #error;
152
}
153
 
3440 leency 154
:void debug_error(dword path, error_number)
3434 leency 155
{
4645 leency 156
	if (path) debugln(path);
157
	debugln(get_error(error_number));
5598 pavelyakov 158
}
159
 
160
#endif