Subversion Repositories Kolibri OS

files_information:

    xor  eax,eax

    mov  [alt_flag],al

    mov  [files_counter],eax

    mov  [directories_counter],eax

    mov  [files_size.low],eax

    mov  [files_size.high],eax

    call get_files_information

    mov  eax,files_size

    mov  ebx,type_size_string

    call decimal_string_20

    call start_files_information_thread

   jmp still

;---------------------------------------------------------------------

start_files_information_thread:

    mcall 9, procinfo, -1

    mov   eax,[ebx+46]

    shr   eax,1

    add   eax,[ebx+38]

    sub   eax,150

    mov   [files_information_window_y+2],ax

    mov   eax,[ebx+42]

    shr   eax,1

    add   eax,[ebx+34]

    sub   eax,125

    mov   [files_information_window_x+2],ax

    mcall 51,1,thread_files_information_start,thread_stack

    ret

;---------------------------------------------------------------------

draw_files_information_window:

    mcall 12, 1

    mcall 0,[files_information_window_x] ,[files_information_window_y], 0x03ffffcc

    mov   edx,90 shl 16+50

    mov   ebx,0xa0000

    mov   esi,0x10000000

    cmp  [inf_marked_yes],1

    je	 .continue_4

    cmp  [nesting_direction],1

    je    @f

    add  edx,15

.continue_4:

    mcall 47, ,[files_counter]

@@:

    cmp  [inf_marked_yes],1

    je	 .continue_2

    cmp  [nesting_direction],0

    je    .continue_2

    cmp  [directories_counter],0

    je   @f

.continue_2:

    add  edx,15

    mcall 47, ,[directories_counter]

@@:

    add  edx,15

    mov  ebx,edx

    mcall 4, ,0x90000000,type_size_string

    cmp  [select_panel_counter],0

    jne  .right_1

    mov   edx,read_folder_name

    jmp  @f

.right_1:

    mov   edx,read_folder_1_name

@@:

    mcall 4,<75,35>,0x80000000,   ;file_name

    mcall 4,<10,35>,0x90000000,type_location

    cmp  [inf_marked_yes],1

    je	 .continue

    mcall 4,<90,50>,0x80000000,type_name

    mov   ecx,0x90000000

    cmp  [nesting_direction],1

    je    @f

    mcall 4,<10,50>, ,type_dir_name

    jmp   .continue

@@:

    mcall 4,<10,50>, ,type_file_name

.continue:

    cmp  [inf_marked_yes],1

    je	 .continue_3

    cmp  [nesting_direction],1

    je    @f

.continue_3:

    add   ebx,15

    mcall 4, , ,type_files

@@:

    cmp  [inf_marked_yes],1

    je	 .continue_1

    cmp  [nesting_direction],0

    je    .continue_1

    cmp  [directories_counter],0

    je   @f

.continue_1:

    add   ebx,15

    mcall 4, , ,type_dir

@@:

    add   ebx,15

    mcall 4, , ,type_size

    mcall 12, 2

    ret

;---------------------------------------------------------------------

thread_files_information_start:

.red:

    call  draw_files_information_window

.still:

    mcall 10

    cmp   eax,1

    je	  .red

    cmp   eax,2

    je	  .key

    cmp   eax,3

    je	  .button

    jmp   .still

.key:

.button:

    mcall -1

    jmp   .still

;---------------------------------------------------------------------

;       ÏÅÐÅÂÎÄ 10-ÍÛÕ ×ÈÑÅË ÑÎ ÇÍÀÊÎÌ Â ÑÒÐÎÊÎÂÛÉ ÂÈÄ

;       Âõîä:

;               EAX - óêàçàòåëü íà ÷èñëî

;               EBX - àäðåñ ñòðîêè

;---------------------------------------------------------------------

decimal_string_20:

	push  eax ebx ecx edx

	mov   [divisor],word 10

	mov   ebp,eax

	xor	  ecx,ecx

;	mov	  [ebx],byte '0'

;	inc	  ebx

.p3:

	xor	  edx,edx

	push  ebx

	call  Division_64bit

	mov   eax,[quotent]

	mov   [ebp],eax

	mov   eax,[quotent+4]

	mov   [ebp+4],eax

	pop   ebx

	add	  edx,48

	push  edx

	inc	  ecx

	cmp   [ebp],dword 0

	jne	  .p3

	cmp   [ebp+4],dword 0

	jne	  .p3

	cmp   ecx,19

	jbe   .p4

	mov   ecx,20

	dec   ebx

.p4:

	pop	  edx

	mov	  [ebx],dl

	inc	  ebx

	loop  .p4

	mov   [ebx], byte 0

	pop	  edx ecx ebx eax

	ret

;----------------------------------------------------------

; äåëåíèå 64-áèòíîãî ÷èñëà divident íà 16-áèòíîå ÷èñëî divisor.

; ×àñòíîå ïîìåùàåòñÿ â 64-áèòíóþ ïåðåìåííóþ quotent,

; à îñòàòîê - â 16-áèòíóþ ïåðåìåííóþ modulo

Division_64bit:

        mov  ax,[ebp+6]

        xor  dx,dx

        mov  bx,[divisor]

        div  bx

        mov  [quotent+6],ax

        mov  ax,[ebp+4]

        div  bx

        mov  [quotent+4],ax

        mov  ax,[ebp+2]

        div  bx

        mov  [quotent+2],ax

        mov  ax,[ebp]

        div  bx

        mov  [quotent],ax

;        mov  [modulo],dx

        ret

;divident:

;      rb 8

divisor:

      rb 2

quotent:

      rb 8

;modulo:

;      rb 2

;---------------------------------------------------------------------

copy_type_name:

    push  esi

    mov  esi,ebx

    mov  edi,type_name

@@:

    cld

    lodsb

    stosb

    test  al,al

    jnz   @b

    pop  esi

    ret

;---------------------------------------------------------------------

get_files_information:

    call get_information_marked_files

    cmp  [inf_marked_yes],1

    je	 .end_2

    xor  eax,eax

    xor  edx,edx

    cmp  [select_panel_counter],0

    jne  .right_1

    mov  ax,[left_start_draw_cursor_line]

    mov  ebx,10

    div  ebx

    mov  ebx,[left_start_draw_line]

    add  ebx,eax

    imul ebx,304

    add  ebx,[left_folder_data]

    call prepare_data_8

    mov   esi,read_folder_name

    jmp  .end

.right_1:

    mov  ax,[right_start_draw_cursor_line]

    mov  ebx,10

    div  ebx

    mov  ebx,[right_start_draw_line]

    add  ebx,eax

    imul ebx,304

    add  ebx,[right_folder_data]

    call prepare_data_8

    mov   esi,read_folder_1_name

.end:

    mov   [error_pointer],ebx

    call  copy_type_name

    mov   edi,file_name

    call  copy_path_1

    test [ebx-40],byte 0x10

    jz	 @f

    push eax ebx

    call get_inf_dir

    mov  [nesting_direction],0

    pop  ebx eax

    dec  [directories_counter]

    jmp  .end_2

@@:

    mov  [nesting_direction],1

    call get_file_size

    test  eax,eax

    jz	 .end_1

    call start_error_window_thread

    add  esp,4

    jmp  reload_dir_all

.end_1:

;    inc  [files_counter]

    mov  eax,[file_features_temp_area+32]

    add  [files_size.low],eax

    mov  eax,[file_features_temp_area+32+4]

    adc  [files_size.high],eax

.end_2:

    ret

;---------------------------------------------------------------------

get_information_marked_files:

    xor  eax,eax

    mov  [inf_marked_yes],al

    cmp  [select_panel_counter],al

    jne  .right_1

    mov  ebp,[left_folder_block]

.start:

    mov  ebx,ebp

    dec  ebx

    imul ebx,304

    add  ebx,[left_folder_data]

    add  ebx,32+40

    cmp  [ebx+299-40],byte 0

    je	 @f

    cmp  [ebx],word '..'

    jne  .continue

    cmp  [ebx+2],byte 0

    je	 .continue_1

.continue:

    mov  esi,read_folder_name

    call prepare_data_9

.continue_1:

    mov  [inf_marked_yes],1

@@:

    dec  ebp

    jnz  .start

    ret

.right_1:

    mov  ebp,[right_folder_block]

.start_1:

    mov  ebx,ebp

    dec  ebx

    imul ebx,304

    add  ebx,[right_folder_data]

    add  ebx,32+40

    cmp  [ebx+299-40],byte 0

    je	 @f

    cmp  [ebx],word '..'

    jne  .continue_2

    cmp  [ebx+2],byte 0

    je	 .continue_3

.continue_2:

    mov   esi,read_folder_1_name

    call prepare_data_9

.continue_3:

    mov  [inf_marked_yes],1

@@:

    dec  ebp

    jnz  .start_1

    ret

;---------------------------------------------------------------------

prepare_data_9:

    mov   [error_pointer],ebx

    mov  edi,file_name

    call copy_path_1

    test [ebx-40],byte 0x10

    jz	 @f

    call get_inf_dir

    ret

@@:

    inc  [files_counter]

    call get_file_size

    test eax,eax

    jz	 .continue

    call start_error_window_thread

    add  esp,8+4

    ret

.continue:

    mov  eax,[file_features_temp_area+32]

    add  [files_size.low],eax

    mov  eax,[file_features_temp_area+32+4]

    adc  [files_size.high],eax

.continue_1:

    ret

;---------------------------------------------------------------------

prepare_data_8:

    add  ebx,32+40

    cmp  [ebx],word '..'

    jne  .continue

    cmp  [ebx+2],byte 0

    jne  .continue

    add  esp,4+4

    jmp  reload_dir

.continue:

    ret

;---------------------------------------------------------------------

get_inf_dir:

    mov  [nesting_direction],0

    pusha

    mov   [recursive_pointer],0

    mov   eax,[appl_memory]

    mov   [appl_memory_old],eax

.1:

    mov  [read_delete_dir_data.size],0

    mov  [read_delete_dir_data.return],delete_dir_data

    call read_delete_dir

    test eax,eax

    jz	 @f

    mov   [error_pointer],file_name

    call start_error_window_thread

    popa

    add  esp,8+8

    ret

@@:

    mov  eax,[delete_dir_data+8]

    imul  eax,304

    add   eax,32

    mov   ebx,eax

    add   ebx,[appl_memory_old]

    cmp   ebx,[appl_memory]

    jbe   @f

    mov   ecx,[appl_memory]

    mov   ecx,ebx

    mov   [appl_memory],ecx

    mcall 64,1

@@:

    mov  eax,[delete_dir_data+8]

    mov  [read_delete_dir_data.size],eax

    mov   eax,[appl_memory_old]

    mov  [read_delete_dir_data.return],eax

    call read_delete_dir

    test eax,eax

    jz	 @f

    mov   [error_pointer],file_name

    call start_error_window_thread

    popa

    add  esp,8+8

    ret

@@:

    cmp  [nesting_direction],0

    je	  @f

    call get_inf_dir_2

    jnc  .end

    dec   ebp

    push  ebp

    jmp   .1

@@:

    call get_inf_dir_1

    jnc  .end

    dec   ebp

    push  ebp

    jmp   .1

.end:

    call  return_delete_path

    dec   [recursive_pointer]

    cmp   [recursive_pointer],0

    jge   .1

    mov   ecx,[appl_memory_old]

    cmp   [appl_memory],ecx

    je	  @f

    mov   [appl_memory],ecx

    mcall 64,1

@@:

    popa

    ret

;---------------------------------------------------------------------

get_inf_dir_2:

    pop  eax

    pop  ebp

    push eax

    jmp  get_inf_dir_1.start

get_inf_dir_1:

    inc  [directories_counter]

    mov  ebp,[appl_memory_old]

    mov  ebp,[ebp+8]

.start:

    mov  ebx,ebp

    dec  ebx

    imul ebx,304

    add  ebx,[appl_memory_old]

    add  ebx,32+40

    cmp  [ebx],byte '.'

    jne  @f

    cmp  [ebx+1],byte 0

    je	 .continue_4

@@:

    cmp  [ebx],word '..'

    jne  .continue

    cmp  [ebx+2],byte 0

    je	 .continue_4

.continue:

    mov  esi,file_name

    inc  [recursive_pointer]

    call copy_path_2

    test [ebx-40],byte 0x10

    jnz  .continue_3

@@:

    inc  [files_counter]

.continue_1:

    mov  eax,[ebx+32-40]

    add  [files_size.low],eax

    mov  eax,[ebx+32+4-40]

    adc  [files_size.high],eax

    dec  [recursive_pointer]

    call return_delete_path

    dec  ebp

    jnz  .start

.continue_4:

    clc

    mov  [nesting_direction],1

    ret

.continue_3:

    stc

    mov  [nesting_direction],0

    ret

;---------------------------------------------------------------------

;type_patch_test:

;    pusha

;    mcall 5,200

;    mcall 13,<290,300>,<3,13>,0x0

;    mcall 4,<300, 5>,0x80FFFFFF,file_name  ;[error_pointer]

;    mcall 47,0x160100,[recursive_pointer],<300, 5>,0xffffff

;    mcall 47,0x160100,ebp,<300, 5>,0xffffff

;    mcall 5,1

;    popa

;    ret

;temp_value_1 db '1',0

;temp_value_2 db '2',0

;temp_value_3 db '3',0

;temp_value_4 db '4',0

;temp_value_5 db '5',0

;---------------------------------------------------------------------