forked from KolibriOS/kolibrios
302 lines
5.9 KiB
NASM
302 lines
5.9 KiB
NASM
;-----------------------------------------------------------------------------
|
|
func save_file ;//////////////////////////////////////////////////////////////
|
|
;-----------------------------------------------------------------------------
|
|
|
|
mov esi,tb_opensave.text
|
|
mov edi,f_info.path
|
|
movzx ecx,[tb_opensave.length]
|
|
mov [f_info.length],ecx
|
|
cld
|
|
rep movsb
|
|
mov byte[edi],0
|
|
|
|
mov esi,[cur_tab.Editor.Data] ;! AREA_EDIT ; 0x70000 = 448 Kbytes (maximum)
|
|
mov edi,0 ;!!! AREA_TEMP
|
|
|
|
.new_string:
|
|
call save_string
|
|
cmp dword[esi],0
|
|
jne .new_string
|
|
sub edi,0 ;!!! AREA_TEMP+2 ; minus last CRLF
|
|
;! mov [filelen],edi
|
|
cmp byte[f_info.path],'/'
|
|
je .systree_save
|
|
mcall 33,f_info.path,0,edi,0 ;!!! AREA_TEMP,edi,0;[filelen],0
|
|
or eax,eax
|
|
jz .exit
|
|
; call file_not_found
|
|
jmp .exit.2
|
|
|
|
.systree_save:
|
|
;! mov eax,[filelen]
|
|
; mov [f_info+8],edi ;! eax
|
|
; mov [f_info+0],1
|
|
; mov esi,s_fname
|
|
; mov edi,f_info.path
|
|
; mov ecx,PATHL
|
|
; cld
|
|
; rep movsb
|
|
;mcall 58,f_info
|
|
|
|
mov [f_info70+0],2
|
|
mov [f_info70+12],edi
|
|
mov [f_info70+16],0 ;!!! AREA_TEMP
|
|
mov byte[f_info70+20],0
|
|
mov [f_info70+21],f_info.path
|
|
mcall 70,f_info70
|
|
|
|
call set_status_fs_error
|
|
|
|
or eax,eax
|
|
jnz .exit.2
|
|
|
|
.exit:
|
|
mov [cur_tab.Editor.Modified],0 ;! [modified],0
|
|
clc
|
|
ret
|
|
|
|
.exit.2:
|
|
stc
|
|
ret
|
|
endf
|
|
|
|
;-----------------------------------------------------------------------------
|
|
func save_string ;////////////////////////////////////////////////////////////
|
|
;-----------------------------------------------------------------------------
|
|
movzx ecx,word[esi]
|
|
test dword[esi],0x00010000
|
|
jz @f
|
|
or dword[esi],0x00020000
|
|
@@: add esi,4
|
|
; mov ecx,eax
|
|
|
|
@@: cmp byte[esi+ecx-1],' '
|
|
jne @f
|
|
loop @b
|
|
@@: jecxz .endcopy
|
|
xor edx,edx
|
|
mov ebx,edx
|
|
mov ah,dl
|
|
|
|
.next_char:
|
|
mov al,[esi+ebx]
|
|
inc ebx
|
|
; cmp [asm_mode],0
|
|
; je .put
|
|
test [options],OPTS_OPTIMSAVE
|
|
jz .put
|
|
test ah,00000001b
|
|
jnz .char
|
|
cmp al,'"'
|
|
jne @f
|
|
xor ah,00000100b
|
|
jmp .char
|
|
@@: cmp al,"'"
|
|
jne @f
|
|
xor ah,00000010b
|
|
jmp .char
|
|
@@: test ah,00000110b
|
|
jnz .char
|
|
cmp al,';'
|
|
jne @f
|
|
test ah,00000001b
|
|
jnz .char
|
|
xor ah,00000001b
|
|
jmp .char
|
|
@@: cmp al,' '
|
|
jne .char
|
|
inc edx
|
|
test ebx,ATABW-1
|
|
jnz @f
|
|
dec edx
|
|
jle .put
|
|
mov al,9
|
|
xor edx,edx
|
|
jmp .put
|
|
.char:
|
|
or edx,edx
|
|
jz .put
|
|
push ecx eax
|
|
mov ecx,edx
|
|
mov al,' '
|
|
rep stosb
|
|
pop eax ecx
|
|
xor edx,edx
|
|
.put:
|
|
stosb
|
|
@@: loop .next_char
|
|
|
|
.endcopy:
|
|
mov eax,0x0A0D
|
|
stosw
|
|
movzx eax,word[esi-4]
|
|
add esi,eax;[esi-4]
|
|
ret
|
|
endf
|
|
|
|
func set_status_fs_error
|
|
push eax
|
|
mov esi,s_fs_error
|
|
@@: dec eax
|
|
js @f
|
|
movzx ecx,byte[esi]
|
|
lea esi,[esi+ecx+1]
|
|
jmp @b
|
|
@@: inc esi
|
|
mov [s_status],esi
|
|
pop eax
|
|
call draw_statusbar
|
|
ret
|
|
endf
|
|
|
|
;-----------------------------------------------------------------------------
|
|
func load_file ;//////////////////////////////////////////////////////////////
|
|
;-----------------------------------------------------------------------------
|
|
mov esi,tb_opensave.text
|
|
mov edi,f_info.path
|
|
movzx ecx,[tb_opensave.length]
|
|
mov [f_info.length],ecx
|
|
cld
|
|
rep movsb
|
|
mov byte[edi],0
|
|
|
|
xor eax,eax
|
|
mov [f_info70+0],5
|
|
mov [f_info70+4],eax
|
|
mov [f_info70+8],eax
|
|
mov [f_info70+12],eax
|
|
mov [f_info70+16],file_info
|
|
mov byte[f_info70+20],al
|
|
mov [f_info70+21],f_info.path
|
|
mcall 70,f_info70
|
|
mov [f_info70+0],0
|
|
mov eax,dword[file_info.Size]
|
|
mov [f_info70+12],eax
|
|
call mem.Alloc
|
|
mov [f_info70+16],eax
|
|
mcall 70,f_info70
|
|
|
|
call set_status_fs_error
|
|
|
|
mov esi,[f_info70+16]
|
|
|
|
xchg eax,ebx
|
|
test ebx,ebx
|
|
je .file_found
|
|
cmp ebx,6 ;// ATV driver fix (6 instead of 5)
|
|
je .file_found
|
|
|
|
mov eax,[f_info70+16]
|
|
call mem.Free
|
|
stc
|
|
ret
|
|
|
|
.file_found:
|
|
mov ecx,eax
|
|
call create_tab
|
|
push ecx esi edi
|
|
mov esi,tb_opensave.text
|
|
lea edi,[ebp+TABITEM.Editor.FilePath]
|
|
;mov ecx,[f_info.length]
|
|
movzx ecx,[tb_opensave.length]
|
|
rep movsb
|
|
mov byte[edi],0
|
|
lea edi,[ebp+TABITEM.Editor.FilePath]
|
|
movzx ecx,[tb_opensave.length]
|
|
@@: cmp byte[edi+ecx-1],'/'
|
|
je @f
|
|
dec ecx
|
|
jmp @b
|
|
@@: mov [ebp+TABITEM.Editor.FileName],ecx
|
|
call flush_cur_tab
|
|
pop edi esi ecx
|
|
call load_from_memory
|
|
mov eax,[f_info70+16]
|
|
call mem.Free
|
|
clc
|
|
ret
|
|
endf
|
|
|
|
;-----------------------------------------------------------------------------
|
|
func load_from_memory ;///////////////////////////////////////////////////////
|
|
;-----------------------------------------------------------------------------
|
|
; ECX = data length
|
|
; ESI = data pointer
|
|
; EBP = EDITOR*
|
|
;-----------------------------------------------------------------------------
|
|
call get_lines_in_file
|
|
mov [ebp+EDITOR.Lines],eax
|
|
imul ebx,eax,14
|
|
add ebx,ecx
|
|
mov eax,[ebp+EDITOR.Data]
|
|
call mem.ReAlloc
|
|
mov [ebp+EDITOR.Data],eax
|
|
|
|
mov [ebp+EDITOR.Columns],0
|
|
mov edi,eax
|
|
mov edx,ecx
|
|
|
|
.next_line:
|
|
mov ebx,edi
|
|
add edi,4
|
|
.next_char:
|
|
or edx,edx
|
|
jle .exit
|
|
lodsb
|
|
dec edx
|
|
cmp al,13
|
|
je .CR
|
|
cmp al,10
|
|
je .LF
|
|
cmp al,9
|
|
je .TB
|
|
cmp al,0
|
|
je .exit
|
|
stosb
|
|
jmp .next_char
|
|
|
|
.exit:
|
|
mov ecx,10
|
|
mov al,' '
|
|
rep stosb
|
|
lea eax,[edi-4]
|
|
sub eax,ebx
|
|
mov [ebx],eax
|
|
mov dword[ebx+eax+4],0
|
|
sub eax,10
|
|
jnz @f
|
|
inc eax
|
|
@@: cmp eax,[ebp+EDITOR.Columns] ;! eax,[columns]
|
|
jbe @f
|
|
mov [ebp+EDITOR.Columns],eax ;! [columns],eax
|
|
@@: mov [ebp+EDITOR.Modified],0 ;! [modified],0
|
|
ret
|
|
|
|
.CR: cmp byte[esi],10
|
|
jne .LF
|
|
lodsb
|
|
dec edx
|
|
.LF: mov ecx,10
|
|
mov al,' '
|
|
rep stosb
|
|
lea eax,[edi-4]
|
|
sub eax,ebx
|
|
mov [ebx],eax
|
|
;inc [cur_tab.Editor.Lines] ;! [lines]
|
|
add eax,-10
|
|
cmp eax,[ebp+EDITOR.Columns] ;! eax,[columns]
|
|
jbe .next_line
|
|
mov [ebp+EDITOR.Columns],eax ;! [columns],eax
|
|
jmp .next_line
|
|
|
|
.TB: lea eax,[edi-4]
|
|
sub eax,ebx
|
|
mov ecx,eax
|
|
add ecx,ATABW
|
|
and ecx,not(ATABW-1)
|
|
sub ecx,eax
|
|
mov al,' '
|
|
rep stosb
|
|
jmp .next_char
|
|
endf
|