Subversion Repositories Kolibri OS

Rev

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