Rev 6021 | Rev 6887 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 5640 | pavelyakov | 1 | //IO library |
| 5660 | pavelyakov | 2 | |
| 3 | /* |
||
| 4 | class IO: |
||
| 6021 | leency | 5 | io.count(path) - path |
| 6 | io.size(path) - (/) path |
||
| 7 | io.run(path,param) - path param |
||
| 8 | io.write(size,data,path) - data path |
||
| 9 | io.read(path) - path |
||
| 10 | io.move(path1,path2) - (/) path1 path2 |
||
| 11 | io.copy(path1,path2) - (/) path1 path2 |
||
| 12 | io.set(path,attribute) - (/) |
||
| 13 | io.del(path) - (/) |
||
| 5660 | pavelyakov | 14 | |
| 6021 | leency | 15 | io.dir.load(path) - path ( free!!!) |
| 16 | io.dir.position(number) - number |
||
| 17 | io.dir.make(path) - path |
||
| 5660 | pavelyakov | 18 | |
| 6021 | leency | 19 | io.dir.buffer - - (io.dir.load) |
| 20 | io.dir.count - - (io.count) |
||
| 5660 | pavelyakov | 21 | */ |
| 22 | |||
| 5640 | pavelyakov | 23 | #ifndef INCLUDE_IO_H |
| 24 | #define INCLUDE_IO_H |
||
| 5676 | pavelyakov | 25 | #print "[include |
| 5640 | pavelyakov | 26 | |
| 27 | #ifndef INCLUDE_DATE_H |
||
| 28 | #include "../lib/date.h" |
||
| 29 | #endif |
||
| 30 | |||
| 31 | #ifdef LANG_RUS |
||
| 32 | #define __T__GB "" |
||
| 33 | #define __T__MB "" |
||
| 34 | #define __T__KB "" |
||
| 35 | #define __T___B "" |
||
| 36 | #else |
||
| 37 | #define __T__GB "Gb" |
||
| 38 | #define __T__MB "Mb" |
||
| 39 | #define __T__KB "Kb" |
||
| 40 | #define __T___B "B" |
||
| 41 | #endif |
||
| 42 | |||
| 43 | #define ATR_READONLY 000001b |
||
| 44 | #define ATR_HIDDEN 000100b |
||
| 45 | #define ATR_SYSTEM 010000b |
||
| 46 | |||
| 47 | #define ATR_NOREADONLY 000010b |
||
| 48 | #define ATR_NOHIDDEN 001000b |
||
| 49 | #define ATR_NOSYSTEM 100000b |
||
| 50 | |||
| 51 | :enum |
||
| 52 | { |
||
| 53 | DIR_ALL, |
||
| 54 | DIR_NOROOT, |
||
| 55 | DIR_ONLYREAL |
||
| 56 | }; |
||
| 57 | |||
| 58 | :struct ___f70{ |
||
| 59 | dword func; |
||
| 60 | dword param1; |
||
| 61 | dword param2; |
||
| 62 | dword param3; |
||
| 63 | dword param4; |
||
| 64 | char rezerv; |
||
| 65 | dword name; |
||
| 66 | }__file_F70; |
||
| 67 | |||
| 68 | :int ___ReadDir(dword file_count, read_buffer, dir_path) |
||
| 69 | { |
||
| 70 | __file_F70.func = 1; |
||
| 71 | __file_F70.param1 = |
||
| 72 | __file_F70.param2 = |
||
| 73 | __file_F70.rezerv = 0; |
||
| 74 | __file_F70.param3 = file_count; |
||
| 75 | __file_F70.param4 = read_buffer; |
||
| 5646 | pavelyakov | 76 | __file_F70.name = io.path.path(dir_path); |
| 5640 | pavelyakov | 77 | $mov eax,70 |
| 78 | $mov ebx,#__file_F70.func |
||
| 79 | $int 0x40 |
||
| 80 | } |
||
| 81 | |||
| 82 | :dword ___GetFileInfo(dword file_path, bdvk_struct) |
||
| 83 | { |
||
| 84 | __file_F70.func = 5; |
||
| 85 | __file_F70.param1 = |
||
| 86 | __file_F70.param2 = |
||
| 87 | __file_F70.param3 = 0; |
||
| 88 | __file_F70.param4 = bdvk_struct; |
||
| 89 | __file_F70.rezerv = 0; |
||
| 5646 | pavelyakov | 90 | __file_F70.name = io.path.path(file_path); |
| 5640 | pavelyakov | 91 | $mov eax,70 |
| 92 | $mov ebx,#__file_F70.func |
||
| 93 | $int 0x40 |
||
| 94 | } |
||
| 95 | |||
| 96 | :struct ____BDVK { |
||
| 97 | dword readonly:1, hidden:1, system:1, volume_label:1, isfolder:1, notarchived:1, :0; |
||
| 98 | byte type_name; |
||
| 99 | byte rez1, rez2, selected; |
||
| 100 | dword timecreate; |
||
| 101 | date datecreate; |
||
| 102 | dword timelastaccess; |
||
| 103 | date datelastaccess; |
||
| 104 | dword timelastedit; |
||
| 105 | date datelastedit; |
||
| 106 | dword sizelo; |
||
| 107 | dword sizehi; |
||
| 108 | char name[518]; |
||
| 109 | }; |
||
| 110 | |||
| 111 | :struct __FILE |
||
| 112 | { |
||
| 113 | dword count; |
||
| 114 | int del(...); |
||
| 115 | int read(...); |
||
| 116 | int write(...); |
||
| 117 | dword set(...); |
||
| 118 | }; |
||
| 119 | :dword __FILE::set(dword file_path) |
||
| 120 | { |
||
| 121 | __file_F70.func = 6; |
||
| 122 | __file_F70.param1 = |
||
| 123 | __file_F70.param2 = |
||
| 124 | __file_F70.param3 = 0; |
||
| 125 | __file_F70.param4 = #io.BDVK; |
||
| 126 | __file_F70.rezerv = 0; |
||
| 5646 | pavelyakov | 127 | __file_F70.name = io.path.path(file_path); |
| 5640 | pavelyakov | 128 | $mov eax,70 |
| 129 | $mov ebx,#__file_F70.func |
||
| 130 | $int 0x40 |
||
| 131 | } |
||
| 132 | :int __FILE::del(dword PATH) |
||
| 133 | { |
||
| 134 | __file_F70.func = 8; |
||
| 135 | __file_F70.param1 = |
||
| 136 | __file_F70.param2 = |
||
| 137 | __file_F70.param3 = |
||
| 138 | __file_F70.param4 = |
||
| 139 | __file_F70.rezerv = 0; |
||
| 5646 | pavelyakov | 140 | __file_F70.name = io.path.path(PATH); |
| 5640 | pavelyakov | 141 | $mov eax,70 |
| 142 | $mov ebx,#__file_F70.func |
||
| 143 | $int 0x40 |
||
| 144 | } |
||
| 145 | :int __FILE::read(dword read_pos, read_file_size, read_buffer, read_file_path) |
||
| 146 | { |
||
| 147 | __file_F70.func = 0; |
||
| 148 | __file_F70.param1 = read_pos; |
||
| 149 | __file_F70.param2 = 0; |
||
| 150 | __file_F70.param3 = read_file_size; |
||
| 151 | __file_F70.param4 = read_buffer; |
||
| 152 | __file_F70.rezerv = 0; |
||
| 5646 | pavelyakov | 153 | __file_F70.name = io.path.path(read_file_path); |
| 5640 | pavelyakov | 154 | $mov eax,70 |
| 155 | $mov ebx,#__file_F70.func |
||
| 156 | $int 0x40 |
||
| 157 | } |
||
| 158 | :int __FILE::write(dword write_file_size, write_buffer, write_file_path) |
||
| 159 | { |
||
| 160 | __file_F70.func = 2; |
||
| 161 | __file_F70.param1 = 0; |
||
| 162 | __file_F70.param2 = 0; |
||
| 163 | __file_F70.param3 = write_file_size; |
||
| 164 | __file_F70.param4 = write_buffer; |
||
| 165 | __file_F70.rezerv = 0; |
||
| 5646 | pavelyakov | 166 | __file_F70.name = io.path.path(write_file_path); |
| 5640 | pavelyakov | 167 | $mov eax,70 |
| 168 | $mov ebx,#__file_F70.func |
||
| 169 | $int 0x40 |
||
| 170 | } |
||
| 171 | :struct __DIR |
||
| 172 | { |
||
| 173 | int make(dword name); |
||
| 5648 | pavelyakov | 174 | dword load(...); |
| 5646 | pavelyakov | 175 | dword position(dword i); |
| 5640 | pavelyakov | 176 | dword buffer; |
| 177 | signed count; |
||
| 178 | }; |
||
| 5646 | pavelyakov | 179 | :dword __DIR::position(dword i) |
| 180 | { |
||
| 181 | return i*304+buffer+72; |
||
| 182 | } |
||
| 5640 | pavelyakov | 183 | :int __DIR::make(dword new_folder_path) |
| 184 | { |
||
| 185 | __file_F70.func = 9; |
||
| 186 | __file_F70.param1 = |
||
| 187 | __file_F70.param2 = |
||
| 188 | __file_F70.param3 = |
||
| 189 | __file_F70.param4 = |
||
| 190 | __file_F70.rezerv = 0; |
||
| 5646 | pavelyakov | 191 | __file_F70.name = io.path.path(new_folder_path); |
| 5640 | pavelyakov | 192 | $mov eax,70 |
| 193 | $mov ebx,#__file_F70.func |
||
| 194 | $int 0x40 |
||
| 195 | } |
||
| 196 | |||
| 5648 | pavelyakov | 197 | :dword __DIR::load(dword PATH;byte options) |
| 198 | { |
||
| 199 | io.count(PATH); |
||
| 200 | if(count!=-1) |
||
| 201 | { |
||
| 202 | buffer = malloc(count+1*304+32); |
||
| 203 | ___ReadDir(count, buffer, PATH); |
||
| 204 | if (options == DIR_ONLYREAL) |
||
| 205 | { |
||
| 206 | if (!strcmp(".",buffer+72)){count--; memmov(buffer,buffer+304,count*304);} |
||
| 207 | if (!strcmp("..",buffer+72)){count--; memmov(buffer,buffer+304,count*304);} |
||
| 208 | return buffer; |
||
| 209 | } |
||
| 210 | if (options == DIR_NOROOT) |
||
| 211 | { |
||
| 212 | if (!strcmp(".",buffer+72)) memmov(buffer,buffer+304,count*304-304); |
||
| 213 | return buffer; |
||
| 214 | } |
||
| 215 | return buffer; |
||
| 216 | } |
||
| 217 | return NULL; |
||
| 218 | } |
||
| 219 | |||
| 5640 | pavelyakov | 220 | :struct __PATH |
| 221 | { |
||
| 222 | dword file(...); |
||
| 223 | dword path(...); |
||
| 224 | }; |
||
| 5646 | pavelyakov | 225 | |
| 5640 | pavelyakov | 226 | :char __PATH_NEW[4096]; |
| 227 | :dword __PATH::path(dword PATH) |
||
| 228 | { |
||
| 5648 | pavelyakov | 229 | dword pos; |
| 230 | if(!PATH) return self.dir; |
||
| 231 | pos = PATH; |
||
| 6759 | leency | 232 | if(DSBYTE[pos]=='/') || (!strncmp(PATH,"./",2)) |
| 5640 | pavelyakov | 233 | { |
| 6759 | leency | 234 | return PATH; |
| 5640 | pavelyakov | 235 | } |
| 5648 | pavelyakov | 236 | sprintf(#__PATH_NEW,"%s/%s",self.dir,PATH); |
| 5646 | pavelyakov | 237 | return #__PATH_NEW; |
| 5640 | pavelyakov | 238 | } |
| 239 | |||
| 240 | :dword __PATH::file(dword name) |
||
| 241 | { |
||
| 242 | dword ret; |
||
| 243 | ret = name; |
||
| 244 | while(DSBYTE[name]) |
||
| 245 | { |
||
| 246 | if(DSBYTE[name]=='/')ret = name+1; |
||
| 247 | name++; |
||
| 248 | } |
||
| 249 | return ret; |
||
| 250 | } |
||
| 251 | |||
| 252 | :struct IO |
||
| 253 | { |
||
| 254 | dword buffer_data; |
||
| 255 | dword size_dir; |
||
| 256 | dword count_dirs,count_files; |
||
| 257 | signed FILES_SIZE; |
||
| 258 | dword file_name; |
||
| 259 | double size(...); |
||
| 260 | dword get_size_dir(dword name); |
||
| 261 | signed count(dword path); |
||
| 262 | signed int run(dword path,param); |
||
| 263 | byte del(...); |
||
| 264 | dword read(...); |
||
| 265 | int write(...); |
||
| 266 | byte copy(...); |
||
| 267 | byte move(...); |
||
| 268 | dword set(...); |
||
| 5730 | pavelyakov | 269 | dword readKPACK(dword path1); |
| 5640 | pavelyakov | 270 | dword convert_size(); |
| 271 | __DIR dir; |
||
| 272 | __PATH path; |
||
| 273 | __FILE file; |
||
| 274 | ____BDVK BDVK; |
||
| 275 | }io; |
||
| 276 | :byte __ConvertSize_size_prefix[8]; |
||
| 277 | :dword IO::convert_size() |
||
| 278 | { |
||
| 279 | byte size_nm[3]; |
||
| 280 | dword bytes; |
||
| 281 | bytes = FILES_SIZE; |
||
| 5646 | pavelyakov | 282 | if (bytes>=1073741824) strlcpy(#size_nm, __T__GB,2); |
| 283 | else if (bytes>=1048576) strlcpy(#size_nm, __T__MB,2); |
||
| 284 | else if (bytes>=1024) strlcpy(#size_nm, __T__KB,2); |
||
| 285 | else strlcpy(#size_nm, __T___B,1); |
||
| 5640 | pavelyakov | 286 | while (bytes>1023) bytes/=1024; |
| 287 | sprintf(#__ConvertSize_size_prefix,"%d %s",bytes,#size_nm); |
||
| 288 | return #__ConvertSize_size_prefix; |
||
| 289 | } |
||
| 5751 | leency | 290 | :dword IO::readKPACK(dword path1) |
| 291 | { |
||
| 292 | EAX = 68; |
||
| 293 | EBX = 27; |
||
| 294 | ECX = path1; |
||
| 295 | $int 0x40; |
||
| 296 | FILES_SIZE = EDX; |
||
| 297 | buffer_data = EAX; |
||
| 298 | return buffer_data; |
||
| 299 | } |
||
| 5640 | pavelyakov | 300 | :int IO::write(dword PATH,data) |
| 301 | { |
||
| 302 | file.write(0,strlen(data),data,PATH); |
||
| 303 | } |
||
| 5800 | pavelyakov | 304 | :char BYTE_HEAD_FILE_KPCK[4]; |
| 5640 | pavelyakov | 305 | :dword IO::read(dword PATH) |
| 306 | { |
||
| 5745 | leency | 307 | int result; |
| 5640 | pavelyakov | 308 | ___GetFileInfo(PATH, #BDVK); |
| 5800 | pavelyakov | 309 | if(BDVK.isfolder)return false; |
| 310 | file.read(0,4,#BYTE_HEAD_FILE_KPCK,PATH); |
||
| 311 | IF(DSDWORD[#BYTE_HEAD_FILE_KPCK]=='KCPK')return readKPACK(PATH); |
||
| 5640 | pavelyakov | 312 | FILES_SIZE = BDVK.sizelo; |
| 313 | buffer_data = malloc(FILES_SIZE+1); |
||
| 5745 | leency | 314 | result = file.read(0,FILES_SIZE,buffer_data,PATH); |
| 315 | if (result!=0) buffer_data = free(buffer_data); //file read failed |
||
| 5751 | leency | 316 | return buffer_data; |
| 5640 | pavelyakov | 317 | } |
| 318 | |||
| 319 | :signed int IO::run(dword rpath,rparam) |
||
| 320 | { |
||
| 321 | __file_F70.func = 7; |
||
| 322 | __file_F70.param1 = |
||
| 323 | __file_F70.param3 = |
||
| 324 | __file_F70.param4 = |
||
| 325 | __file_F70.rezerv = 0; |
||
| 326 | __file_F70.param2 = rparam; |
||
| 5646 | pavelyakov | 327 | __file_F70.name = path.path(rpath); |
| 6759 | leency | 328 | debugln(__file_F70.name); |
| 5640 | pavelyakov | 329 | $mov eax,70 |
| 330 | $mov ebx,#__file_F70.func |
||
| 331 | $int 0x40 |
||
| 332 | } |
||
| 333 | :signed IO::count(dword PATH) |
||
| 334 | { |
||
| 335 | byte buf[32]; |
||
| 336 | if(!___ReadDir(0, #buf, PATH)) |
||
| 337 | { |
||
| 338 | dir.count = ESDWORD[#buf+8]; |
||
| 339 | return dir.count; |
||
| 340 | } |
||
| 341 | return -1; |
||
| 342 | } |
||
| 5646 | pavelyakov | 343 | |
| 5640 | pavelyakov | 344 | :double IO::size(dword PATH) |
| 345 | { |
||
| 346 | dword i,tmp_buf,count_dir,count_file; |
||
| 347 | dword filename; |
||
| 348 | double size_tmp; |
||
| 349 | double tmp; |
||
| 350 | if(!PATH)return 0; |
||
| 351 | if(___GetFileInfo(PATH, #BDVK))return -1; |
||
| 352 | if(BDVK.isfolder) |
||
| 353 | { |
||
| 5648 | pavelyakov | 354 | tmp_buf = dir.load(PATH,DIR_ONLYREAL); |
| 5640 | pavelyakov | 355 | if(dir.count<1)return 0; |
| 356 | count_dir = dir.count; |
||
| 357 | i = 0; |
||
| 358 | size_tmp = 0; |
||
| 359 | count_file = malloc(4096); |
||
| 360 | while(i |
||
| 361 | { |
||
| 362 | filename = i*304+tmp_buf+72; |
||
| 363 | sprintf(count_file,"%s/%s",PATH,filename); |
||
| 364 | tmp = size(count_file); |
||
| 365 | if(tmp==-1)return -1; |
||
| 366 | size_tmp += tmp; |
||
| 367 | i++; |
||
| 368 | if (TestBit(ESDWORD[filename-40], 4))count_dirs++; |
||
| 369 | else count_files++; |
||
| 370 | } |
||
| 371 | |||
| 372 | free(tmp_buf); |
||
| 373 | free(count_file); |
||
| 374 | FILES_SIZE = size_tmp; |
||
| 375 | return FILES_SIZE; |
||
| 376 | } |
||
| 377 | FILES_SIZE = BDVK.sizelo; |
||
| 378 | count_files++; |
||
| 379 | return FILES_SIZE; |
||
| 380 | } |
||
| 381 | :byte IO::del(dword PATH) |
||
| 382 | { |
||
| 383 | dword i,tmp_buf,count_dir,count_file; |
||
| 384 | if(!PATH)return 0; |
||
| 385 | if(___GetFileInfo(PATH, #BDVK))return false; |
||
| 386 | if(BDVK.isfolder) |
||
| 387 | { |
||
| 5648 | pavelyakov | 388 | tmp_buf = dir.load(PATH,DIR_ONLYREAL); |
| 5640 | pavelyakov | 389 | count_dir = dir.count; |
| 390 | i = 0; |
||
| 391 | count_file = malloc(4096); |
||
| 392 | while(i |
||
| 393 | { |
||
| 394 | sprintf(count_file,"%s/%s",PATH,i*304+tmp_buf+72); |
||
| 395 | if(!del(count_file))return false; |
||
| 396 | i++; |
||
| 397 | } |
||
| 398 | free(tmp_buf); |
||
| 399 | free(count_file); |
||
| 400 | } |
||
| 401 | file.del(PATH); |
||
| 402 | return true; |
||
| 403 | } |
||
| 404 | :dword IO::set(dword PATH,atr) |
||
| 405 | { |
||
| 406 | dword i,tmp_buf,count_dir,count_file; |
||
| 407 | byte cmd_read,cmd_hide,cmd_system; |
||
| 408 | if(!PATH)return 0; |
||
| 409 | if(___GetFileInfo(PATH, #BDVK))return false; |
||
| 410 | cmd_read = atr&11b; |
||
| 411 | atr>>=2; |
||
| 412 | cmd_hide = atr&11b; |
||
| 413 | atr>>=2; |
||
| 414 | cmd_system = atr&11b; |
||
| 415 | if(BDVK.isfolder) |
||
| 416 | { |
||
| 5648 | pavelyakov | 417 | tmp_buf = dir.load(PATH,DIR_ONLYREAL); |
| 5640 | pavelyakov | 418 | count_dir = dir.count; |
| 419 | i = 0; |
||
| 420 | count_file = malloc(4096); |
||
| 421 | while(i |
||
| 422 | { |
||
| 423 | sprintf(count_file,"%s/%s",PATH,i*304+tmp_buf+72); |
||
| 424 | file.set(PATH,atr); |
||
| 425 | i++; |
||
| 426 | } |
||
| 427 | free(tmp_buf); |
||
| 428 | free(count_file); |
||
| 429 | return 0; |
||
| 430 | } |
||
| 431 | if(cmd_read) |
||
| 432 | { |
||
| 433 | if(cmd_read&01b)BDVK.readonly = true; |
||
| 434 | else BDVK.readonly = false; |
||
| 435 | } |
||
| 436 | if(cmd_hide) |
||
| 437 | { |
||
| 438 | if(cmd_hide&01b)BDVK.hidden = true; |
||
| 439 | else BDVK.hidden = false; |
||
| 440 | } |
||
| 441 | if(cmd_system) |
||
| 442 | { |
||
| 443 | if(cmd_system&01b)BDVK.system = true; |
||
| 444 | else BDVK.system = false; |
||
| 445 | } |
||
| 446 | file.set(PATH); |
||
| 447 | } |
||
| 448 | :byte IO::copy(dword PATH,PATH1) |
||
| 449 | { |
||
| 450 | dword i,tmp_buf,count_dir,count_file; |
||
| 451 | dword _path_; |
||
| 452 | byte ret; |
||
| 453 | if(!PATH)return 0; |
||
| 454 | if(___GetFileInfo(PATH, #BDVK))return false; |
||
| 455 | _path_ = malloc(4096); |
||
| 456 | if(BDVK.isfolder) |
||
| 457 | { |
||
| 458 | sprintf(_path_,"%s/%s",PATH1,path.file(PATH)); |
||
| 459 | dir.make(_path_); |
||
| 5648 | pavelyakov | 460 | tmp_buf = dir.load(PATH,DIR_ONLYREAL); |
| 5640 | pavelyakov | 461 | count_dir = dir.count; |
| 462 | i = 0; |
||
| 463 | count_file = malloc(4096); |
||
| 464 | while(i |
||
| 465 | { |
||
| 466 | sprintf(count_file,"%s/%s",PATH,i*304+tmp_buf+72); |
||
| 467 | if(!copy(count_file,_path_))return false; |
||
| 468 | i++; |
||
| 469 | } |
||
| 470 | free(tmp_buf); |
||
| 471 | free(count_file); |
||
| 472 | free(_path_); |
||
| 473 | return true; |
||
| 474 | } |
||
| 475 | read(PATH); |
||
| 476 | sprintf(_path_,"%s/%s",PATH1,path.file(PATH)); |
||
| 477 | ret = file.write(FILES_SIZE,buffer_data,_path_); |
||
| 478 | free(_path_); |
||
| 479 | if(!ret)return true; |
||
| 480 | return false; |
||
| 481 | } |
||
| 482 | :byte IO::move(dword PATH,PATH1) |
||
| 483 | { |
||
| 484 | if(copy(PATH,PATH1))if(del(PATH))return true; |
||
| 485 | return false; |
||
| 486 | } |
||
| 487 | |||
| 488 | #endif |