KFM: Add function create file

git-svn-id: svn://kolibrios.org@9121 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/fs/kfm/trunk/creatfile.inc

@@ -0,0 +1,174 @@
+;-------------------------------------------------------------
+create_new_file:
+    call clear_file_buffer
+    mov edi, edit1
+    mov ed_size, dword 0 
+    mov ed_pos, dword 0
+default_box
+    mov [create_dir_name],byte 0
+    mcall 66, 1, 0
+    jmp  .red
+.red_1:
+    call  draw_window
+.red:
+    call  draw_create_file
+.still:
+    mcall 10
+    cmp  eax,1
+    je   .red_1
+    cmp  eax,2
+    je   .key_create
+    cmp  eax,3
+    je   .button_create
+        mouse_edit_box create_editboxes
+        jmp .still
+;-------------------------------------------------------------
+.button_create:
+    mov eax,17
+        mcall
+    test ah,ah
+    jz  .still
+    cmp  ah,160
+    je  .exit_with_create
+    cmp  ah,161
+    je  .exit_without_create
+    cmp   ah,1
+    jne   .still
+    mcall -1
+.exit_with_create:
+    call  create_new_file_1
+    cmp   [select_panel_counter],0
+    jne   @f
+    call proc_read_left_folder
+    jmp  .exit_without_create
+@@:
+    call proc_read_right_folder
+.exit_without_create:
+    mcall 66, 1, 1
+    jmp  red
+;-------------------------------------------------------------
+.key_create:
+    mov eax,2
+        mcall
+    cmp ah,13
+    je  .exit_with_create
+    cmp ah,27
+    je  .exit_without_create
+    key_edit_box create_editboxes
+    jmp .still
+;-------------------------------------------------------------
+draw_create_file:
+    mov  ecx,[window_high]
+    mov  ebx,[window_width]
+    shr  ecx,1
+    shr  ebx,1
+    sub  ecx,30
+    sub  ebx,87
+    shl  ecx,16
+    shl  ebx,16
+    mov   cx,60
+    mov   bx,174
+    mcall 13, , ,0x6060ff ;0xff
+    pusha
+    shr ebx,16
+    add  ebx,10
+    shr ecx,16
+    add ecx,17
+    mov eax,create_editboxes
+    mov dword [eax+4],ebx
+    mov dword [eax+8],ecx
+        draw_edit_box create_editboxes
+        popa
+        pusha
+        add   ebx,70 shl 16
+        add   ecx,37 shl 16
+    mov   cx,15
+    mov   bx,40
+    mov   esi,0xffffff
+    mov   edx,0x40000000+160
+    mov   eax,8
+        mcall
+    add   ebx,50 shl 16
+    inc   edx
+        mcall
+    popa
+
+    push  ebx ecx
+    add   ebx,70 shl 16
+    add   ecx,37 shl 16
+    mov   bx,40
+    mov   cx,15
+    mov   edx,0
+    push  ebx ecx
+    sub   ecx,1 shl 16
+    sub   ebx,1 shl 16
+    mov   bx,42
+    mov   cx,17
+        mcall
+    add   ebx,50 shl 16
+        mcall
+    pop   ecx ebx
+    mov   edx,0xff7700
+        mcall
+    mov   edx,0xaa00
+    add   ebx,50 shl 16
+        mcall
+    pop   ecx ebx
+
+    shr   ecx,16
+    mov   bx,cx
+    add   ebx,30 shl 16+1
+    mcall 4, ,0x90ffffff,create_file  ;[confirmation_type]
+    add   ebx,48 shl 16+36
+    mov   edx,type_yes
+        mcall
+    add   ebx,56 shl 16
+    mov   edx,type_no
+        mcall
+        ret
+;-------------------------------------------------------------
+create_new_file_1:
+    mov   edx,create_dir_name
+    cmp   [select_panel_counter],0
+    jne   @f
+    mov   esi,read_folder_name
+    jmp   .start
+@@:
+    mov   esi,read_folder_1_name
+.start:
+    mov   edi,start_parameter
+    xor   eax,eax
+@@:
+    cld
+    lodsb
+    stosb
+    test  eax,eax
+    jnz   @b
+    mov   [edi-1], byte '/'
+    mov   esi,edx
+    mov   [error_pointer], edx  ;start_file_data.name
+@@:
+    cld
+    lodsb
+    stosb
+    test  eax,eax
+    jnz   @b
+    call  write_file
+    cmp   eax,0
+    je    @f
+;    mov  ebx,0
+;    sub  ebx,eax
+;    mov  eax,ebx
+    call start_error_window_thread
+@@:
+;    call create_directory_f70
+    ret
+;-------------------------------------------------------------
+;clear_file_buffer:
+;    xor  eax,eax
+;    mov edi,create_dir_name
+;    mov ecx,256/4
+;    cld
+;    rep stosd
+;    ret
+;-------------------------------------------------------------

programs/fs/kfm/trunk/key.inc

@@ -632,12 +632,14 @@ f_key_f5:
 f_key_f6:
 ;sort_date:
     cmp  [shift_flag],1
-    je   still
+    je   .shift
     cmp  [ctrl_flag],1
     je   .ctrl
     cmp  [alt_flag],1
     je   still
     jmp  move_file_f6
+.shift:
+    jmp  still
 .ctrl:
     cmp  [select_panel_counter],1
     je   right_sort_date
@@ -668,7 +670,7 @@ f_key_f9:
     je   still
     cmp  [alt_flag],1
     je   still
-    jmp  create_directory;create_file
+    jmp  create_new_file; create_directory;
 ;---------------------------------------------------------------------
 f_key_f12:
     cmp  [shift_flag],1

programs/fs/kfm/trunk/kfm.asm

@@ -367,6 +367,8 @@ include   'copy.inc'
 ;---------------------------------------------------------------------
 include   'creatdir.inc'
 ;---------------------------------------------------------------------
+include   'creatfile.inc'
+;---------------------------------------------------------------------
 include   'confirm.inc'
 ;---------------------------------------------------------------------
 include   'err_wind.inc'