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