?login_element?

Subversion Repositories NedoOS

Rev

Rev 2097 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2097 Rev 2098
Line 2308... Line 2308...
2308 
        ld (filescopied),hl
 2308 
        ld (filescopied),hl
2309 
 
 2309 
 
2310 
;        ld de,PROGRESBARWINXY
 2310 
;        ld de,PROGRESBARWINXY
2311 
;        ld bc,PROGRESBARWINHGTWID
 2311 
;        ld bc,PROGRESBARWINHGTWID
2312 
;        call prwin
 2312 
;        call prwin
- 
 
 2313 
       
2313 
        ld hl,overwriteflag     ;0-skip all; 1-ask each; 2-over all
 2314 
        ld hl,overwriteflag     ;0-skip all; 1-ask each; 2-over all; 3-отмена
2314 
        ld (hl),1  
 2315 
        ld (hl),1  
2315 
       
 2316 
 
2316 
        call printwincopy2
 2317 
        call printwincopy2
2317 
       
 2318 
       
2318 
        ld hl,proceditcmd_copy
 2319 
        ld hl,proceditcmd_copy
Line 2584... Line 2585...
2584 
        ld hl,proceditcmd_copy_fcb
 2585 
        ld hl,proceditcmd_copy_fcb
2585 
        ld (nv_batch_proc),hl
 2586 
        ld (nv_batch_proc),hl
2586 
 
 2587 
 
2587 
proceditcmd_copy_fcb
 2588 
proceditcmd_copy_fcb
2588 
;нельзя CHDIR, потому что это вызывается в цикле чтения директории в nv_batch1!
 2589 
;нельзя CHDIR, потому что это вызывается в цикле чтения директории в nv_batch1!
- 
 
 2590 
 
- 
 
 2591 
        ld hl,overwriteflag     ;0-skip all; 1-ask each; 2-over all; отмена
- 
 
 2592 
        ld a,(hl)
- 
 
 2593 
        cp 3                                    ;Проверка  на отмена всего
- 
 
 2594 
        ret z
- 
 
 2595 
 
2589 
        ld hl,proceditcmd_copy_q
 2596 
        ld hl,proceditcmd_copy_q
2590 
        push hl
 2597 
        push hl
2591 
        ;ld de,dir_buf
 2598 
        ;ld de,dir_buf
2592 
        ;OS_CHDIR
 2599 
        ;OS_CHDIR
2593 
 
 2600 
 
Line 2633... Line 2640...
2633 
        ld hl,wincopy_src
 2640 
        ld hl,wincopy_src
2634 
        ld bc,wincopy_dest
 2641 
        ld bc,wincopy_dest
2635 
        call comparestr                 ;Don't try copy file into himself
 2642 
        call comparestr                 ;Don't try copy file into himself
2636 
        ret z
 2643 
        ret z
2637 
 
 2644 
 
2638 
        ;ld de,_COLOR_DIALOG
 - 
 
2639 
        ;call nv_setcolor
 - 
 
2640 
        ld hl,wincopy2          ; Print filename
 2645 
        ld hl,wincopy2          ; Print filename
2641 
        call upwindow_text
 2646 
        call upwindow_text
2642 
 
 2647 
 
2643 
        ld de,dir3_buf
 2648 
        ld de,dir3_buf
2644 
        push de
 2649 
        push de
Line 2692... Line 2697...
2692 
        cp 'r'                                   ; Давай все перезапишем
 2697 
        cp 'r'                                   ; Давай все перезапишем
2693 
        jp nz,proceditcmd_nextkey0
 2698 
        jp nz,proceditcmd_nextkey0
2694 
 
 2699 
 
2695 
        ld hl,overwriteflag
 2700 
        ld hl,overwriteflag
2696 
        ld (hl),2              
 2701 
        ld (hl),2              
2697 
        jp notargetfile;notargetfile_nopop
 2702 
        jp notargetfile
2698 
proceditcmd_nextkey0
 2703 
proceditcmd_nextkey0
2699 
        cp 's'                                   ; Давай все пропустим
 2704 
        cp 's'                                   ; Давай все существующие пропустим
2700 
        jp nz,proceditcmd_nextkey1
 2705 
        jp nz,proceditcmd_nextkey1
2701 
       
 2706 
       
2702 
        ld hl,overwriteflag
 2707 
        ld hl,overwriteflag
2703 
        ld (hl),0
 2708 
        ld (hl),0
2704 
        pop de
 2709 
        pop de
2705 
        ret
 2710 
        ret
- 
 
 2711 
 
2706 
proceditcmd_nextkey1
 2712 
proceditcmd_nextkey1
- 
 
 2713 
        cp 'c'                                   ; Давай все отменим
- 
 
 2714 
        jp nz,proceditcmd_nextkey2
- 
 
 2715 
     
- 
 
 2716 
        ld hl,overwriteflag
- 
 
 2717 
        ld (hl),3
- 
 
 2718 
        pop de
- 
 
 2719 
        ret
- 
 
 2720 
 
- 
 
 2721 
proceditcmd_nextkey2
2707 
        ld hl,overwriteflag                       ; Давай будем спрашивать каждый файл
 2722 
        ld hl,overwriteflag                       ; Давай будем спрашивать каждый файл
2708 
        ld (hl),1
 2723 
        ld (hl),1
2709 
       
 2724 
       
2710 
notargetfile        
 2725 
notargetfile        
2711 
        ;ld de,_COLOR_DIALOG    ; moved to 2686
 2726 
        ;ld de,_COLOR_DIALOG    ; moved to 2686
Line 3094... Line 3109...
3094 
        db "file movement is only available within disk!",0
 3109 
        db "file movement is only available within disk!",0
3095 
        db 0 ;end of window
 3110 
        db 0 ;end of window
3096 
 
 3111 
 
3097 
overwritefile
 3112 
overwritefile
3098 
        dw 0x0d15 ;de=yx
 3113 
        dw 0x0d15 ;de=yx
3099 
        dw 0x0628 ;bc=hgt,wid
 3114 
        dw 0x0528 ;bc=hgt,wid
3100 
        db 3 ;next line
 3115 
        ;db 3 ;next line
3101 
        db "          OVERWRITE FILE?",0,3
 3116 
        db "          OVERWRITE FILE?",0,3
3102 
        db "[Y]es/[No]/[S]kip all/[R]eplace All",0
 3117 
        db "[Y]es/[No]/[S]kip all/[R]eplace All",0,3
- 
 
 3118 
        db "             [C]ancel",0  
3103 
        db 0 ;end of window
 3119 
        db 0 ;end of window
3104 
 
 3120 
 
3105 
 
 3121 
 
3106 
 
 3122 
 
3107 
tdotdot
 3123 
tdotdot
Line 3318... Line 3334...
3318 
         ccf ;no error
 3334 
         ccf ;no error
3319 
        ret
 3335 
        ret
3320 
       endif
 3336 
       endif
3321 
 
 3337 
 
3322 
       align 256
 3338 
       align 256
3323 
twinto866
 - 
 
3324 
        incbin "../_sdk/codepage/winto866"
 - 
 
3325 
searchbuf
 3339 
searchbuf
3326 
SEARCHBUF_SZ=128 ;2 таких
 3340 
SEARCHBUF_SZ=128 ;2 таких
3327 
file_buf
 3341 
file_buf
3328 
dir_buf
 3342 
dir_buf
3329 
        ds 128
 3343 
        ds 128
Line 3334... Line 3348...
3334 
        ds 256 ;max size for no bugs
 3348 
        ds 256 ;max size for no bugs
3335 
 
 3349 
 
3336 
        align 256
 3350 
        align 256
3337 
HS_strpg
 3351 
HS_strpg
3338 
        ds 256;DIRPAGES*2+2 ;по 1 байту на маркеры "0"
 3352 
        ds 256;DIRPAGES*2+2 ;по 1 байту на маркеры "0"
- 
 
 3353 
twinto866
3339 
        align 256
 3354 
        incbin "../_sdk/codepage/winto866"
3340 
textpages
 3355 
textpages
3341 
        ds 164;256
 3356 
        ds 164;256
3342 
 
 - 
 
3343 
cmd_end
 3357 
cmd_end
3344 
 
 3358 
 
3345 
        display "nv size ",cmd_end-cmd_begin," bytes"
 3359 
        display "nv size ",cmd_end-cmd_begin," bytes"
3346 
       if PRSTDIO
 3360 
       if PRSTDIO
3347 
         display "nv.com free space ",0x4000-cmd_end
 3361 
         display "nv.com free space ",0x4000-cmd_end
Line 3350... Line 3364...
3350 
        display "nvfast.com free space ",0x4000-cmd_end
 3364 
        display "nvfast.com free space ",0x4000-cmd_end
3351 
        savebin "nvfast.com",cmd_begin,cmd_end-cmd_begin
 3365 
        savebin "nvfast.com",cmd_begin,cmd_end-cmd_begin
3352 
       endif
 3366 
       endif
3353 
 
 3367 
 
3354 
        LABELSLIST "../../us/user.l",1
 3368 
        LABELSLIST "../../us/user.l",1
3355 
v
 - 
 
3356 

            3369