WebSVN – Kolibri OS – Diff – /programs/fs/kfar/trunk/viewer.inc


virtual at 0
viewer_data:
        .hPlugin        dd      ?
        .hFile          dd      ?
        .buf_start      dq      ?
        .cur_pos        dq      ?
        .filesize       dq      ?
        .buf_pos        dd      ?
        .buf_size       dd      ?
        .col            dq      ?
 
 
        .hWorkFile      dd      ?
        .encoding       db      ?
 
        .flags          db      ?       ; & 1: hex mode
                                        ; & 2: unwrap
                                        ; & 4: big-endian unicode
        .bEofReached    db      ?
                        rb      1
        align 200h
        .filename       rb      1024
        .hostname       rb      1024
        .buf            rb      16384
        .size = $
end virtual
 
view_file:
        mov     eax, [ebp + panel1_files - panel1_data]
        mov     ecx, [eax+ecx*4]
        test    byte [ecx], 10h
        jz      .file
        ret
.file:
        lea     esi, [ebp + panel1_dir - panel1_data]
        push    ecx
        mov     ecx, viewer_data.size
        mov     edx, viewer_vtable
        call    new_screen
        pop     ecx
        test    eax, eax
        jnz     @f
        ret
@@:
        mov     eax, dword [esi+panel1_hPlugin-panel1_dir]
        mov     [ebp+viewer_data.hPlugin], eax
        test    eax, eax
        jz      .nocopyhostname
        lea     edi, [ebp+viewer_data.hostname]
        push    esi
        mov     eax, dword [esi+panel1_parents-panel1_dir]
        mov     esi, dword [esi+panel1_parents_sz-panel1_dir]
        add     esi, eax
@@:
        dec     esi
        cmp     byte [esi-1], 0
        jz      @f
        cmp     byte [esi-1], '/'
        jnz     @b
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        pop     esi
.nocopyhostname:
        mov     eax, dword [esi+panel1_hFile-panel1_dir]
        mov     [ebp+viewer_data.hFile], eax
        mov     [ebp+viewer_data.encoding], encodings.cp866
        mov     [ebp+viewer_data.flags], 0
        and     dword [ebp+viewer_data.col], 0
        and     dword [ebp+viewer_data.col+4], 0
        lea     edi, [ebp+viewer_data.filename]
        push    edi
@@:
        lodsb
        test    al, al
        jz      @f
        stosb
        jmp     @b
@@:
        lea     esi, [ecx+40]
        cmp     byte [edi-1], '/'
        jz      @f
        mov     al, '/'
        stosb
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        pop     eax
        push    eax
        mov     ebx, attrinfo
        mov     [ebx+21], eax
.attr_retry:
        mov     edx, [ebp+viewer_data.hPlugin]
        test    edx, edx
        jz      .attr_native
        push    ebp
        push    dword [ebx+16]
        push    eax
        push    [ebp+viewer_data.hFile]
        call    [edx+PluginInfo.getattr]
        pop     ebp
        jmp     .attr_common
.attr_native:
        push    70
        pop     eax
        int     40h
.attr_common:
        test    eax, eax
        jz      @f
        lea     ebx, [ebp+viewer_data.filename]
        push    ebx
        push    aCannotReadFile
        call    get_error_msg
        push    eax
        mov     eax, esp
        push    RetryOrCancelBtn
        push    2
        push    eax
        push    3
        call    SayErr
        add     esp, 3*4
        mov     ebx, attrinfo
        test    eax, eax
        jz      .attr_retry
        pop     eax
        jmp     delete_active_screen
@@:
        mov     eax, dword [attrinfo.attr+32]
        mov     dword [ebp+viewer_data.filesize], eax
        mov     eax, dword [attrinfo.attr+36]
        mov     dword [ebp+viewer_data.filesize+4], eax
        mov     ebx, readinfo
        xor     eax, eax
        mov     dword [ebx+readinfo.first-readinfo], eax
        mov     dword [ebx+readinfo.first+4-readinfo], eax
        mov     dword [ebp+viewer_data.buf_start], eax
        mov     dword [ebp+viewer_data.buf_start+4], eax
        mov     dword [ebp+viewer_data.cur_pos], eax
        mov     dword [ebp+viewer_data.cur_pos+4], eax
        mov     [ebx+readinfo.size-readinfo], 16384
        lea     eax, [ebp+viewer_data.buf]
        mov     [readinfo.data], eax
        mov     [ebp+viewer_data.buf_pos], eax
        pop     dword [readinfo.name]
        mov     eax, [ebp+viewer_data.hPlugin]
        test    eax, eax
        jz      .retry
        push    ebx ebp
        push    O_READ
        push    dword [readinfo.name]
        push    [ebp+viewer_data.hFile]
        call    [eax+PluginInfo.open]
        pop     ebp ebx
        mov     [ebp+viewer_data.hWorkFile], eax
        test    eax, eax
        jnz     .retry
..openerr_in_screen:
        push    ContinueBtn
        push    1
        push    aCannotOpenFile_ptr
        push    1
        call    SayErr
        jmp     delete_active_screen
.retry:
        mov     eax, [ebp+viewer_data.hPlugin]
        test    eax, eax
        jz      .read_native
        push    ebp
        push    16384
        push    [ebx+readinfo.data-readinfo]
        push    [ebp+viewer_data.hWorkFile]
        call    [eax+PluginInfo.read]
        pop     ebp
        cmp     eax, -1
        jz      .readok         ; let's hope that plugin says error itself
        mov     [ebp+viewer_data.buf_size], eax
        mov     ebx, eax
        jmp     .readok
.read_native:
        push    70
        pop     eax
        int     40h
        mov     [ebp+viewer_data.buf_size], ebx
        test    eax, eax
        jz      .readok
        cmp     eax, 6
        jz      .readok
.readerr:
        lea     ebx, [ebp+viewer_data.filename]
        push    ebx
        push    aCannotReadFile
        call    get_error_msg
        push    eax
        mov     eax, esp
        push    RetryOrCancelBtn
        push    2
        push    eax
        push    3
        call    SayErr
        add     esp, 3*4
        mov     ebx, readinfo
        test    eax, eax
        jz      .attr_retry
        jmp     delete_active_screen
.readok:
        cmp     ebx, 2
        jb      .nounicode
        cmp     word [ebp+viewer_data.buf], 0xFEFF
        jz      @f
        cmp     word [ebp+viewer_data.buf], 0xFFFE
        jnz     .nounicode
        or      byte [ebp+viewer_data.flags], 4
@@:
        mov     [ebp+viewer_data.encoding], encodings.unicode
.nounicode:
viewer_OnRedraw:
        or      [cursor_x], -1
        or      [cursor_y], -1
        call    viewer_set_keybar
        call    viewer_draw_text
        ret
 
viewer_get_next_char:
        pusha
        cmp     [ebp+viewer_data.encoding], encodings.unicode
        jnz     @f
        cmp     [bForHex], 0
        jnz     @f
        cmp     dword [ebp+viewer_data.buf_start], 0
        jnz     @f
        cmp     dword [ebp+viewer_data.buf_start+4], 0
        jnz     @f
        lea     eax, [ebp+viewer_data.buf]
        cmp     eax, [ebp+viewer_data.buf_pos]
        jnz     @f
        cmp     word [eax], 0xFFFE
        jz      .skip
        cmp     word [eax], 0xFEFF
        jnz     @f
.skip:
        add     [ebp+viewer_data.buf_pos], 2
@@:
        mov     eax, [ebp+viewer_data.buf_pos]
        lea     ecx, [ebp+viewer_data.buf]
        add     ecx, [ebp+viewer_data.buf_size]
        cmp     eax, ecx
        jb      .buffered
        mov     al, ' '
        sub     ecx, ebp
        cmp     ecx, viewer_data.buf + 16384
        jb      .err
        mov     eax, dword [ebp+viewer_data.buf_start]
        add     eax, 8192
        mov     dword [ebp+viewer_data.buf_start], eax
        mov     edx, dword [ebp+viewer_data.buf_start+4]
        adc     edx, 0
        mov     dword [ebp+viewer_data.buf_start+4], edx
        add     eax, 16384-8192
        adc     edx, 0
        mov     dword [readinfo.first], eax
        mov     dword [readinfo.first+4], edx
        mov     dword [readinfo.size], 8192
        lea     edi, [ebp+viewer_data.buf]
        lea     esi, [edi+8192]
        mov     ecx, (16384-8192)/4
        rep     movsd
        mov     [readinfo.data], edi
        lea     eax, [ebp+viewer_data.filename]
        mov     [readinfo.name], eax
.readretry:
        mov     ebx, readinfo
        mov     eax, [ebp+viewer_data.hPlugin]
        test    eax, eax
        jz      .native
        push    ecx ebp
        push    8192
        push    [ebx+readinfo.data-readinfo]
        push    [ebp+viewer_data.hWorkFile]
        call    [eax+PluginInfo.read]
        pop     ebp ecx
        mov     ebx, eax
        cmp     eax, -1
        jnz     .readok
        xor     ebx, ebx
        jmp     .readok
.native:
        push    70
        pop     eax
        int     40h
        test    eax, eax
        jz      .readok
        cmp     eax, 6
        jz      .readok
.readerr:
        call    ask_retry_ignore
        jz      .readretry
.readok:
        sub     [ebp+viewer_data.buf_pos], 8192
        add     ebx, 16384-8192
        mov     [ebp+viewer_data.buf_size], ebx
        mov     eax, [ebp+viewer_data.buf_pos]
        cmp     ecx, 16384-8192
        jnz     .buffered
.err:
        stc
        popa
        ret
.buffered:
        cmp     [ebp+viewer_data.encoding], encodings.unicode
        jz      .unicode
        mov     al, [eax]
.done:
        mov     [esp+28], al
        inc     [ebp+viewer_data.buf_pos]
        clc
        popa
        ret
 
.unicode:
        inc     [ebp+viewer_data.buf_pos]
        cmp     [bForHex], 0
        jnz     @f
        call    read_unicode_char
        jmp     .done
@@:
        mov     ax, [eax]
        mov     [esp+29], ah
        jmp     .done
 
viewer_get_prev_char:
        pusha
        lea     ecx, [ebp+viewer_data.buf]
        cmp     [ebp+viewer_data.buf_pos], ecx
        ja      .buffered
        mov     eax, dword [ebp+viewer_data.buf_start]
        mov     edx, dword [ebp+viewer_data.buf_start+4]
        test    eax, eax
        jnz     @f
        test    edx, edx
        jnz     @f
        stc
        jmp     .ret
@@:
        sub     eax, 8192
        sbb     edx, 0
        jnc     @f
        xor     eax, eax
        xor     edx, edx
@@:
        call    viewer_seek
        add     [ebp+viewer_data.buf_pos], 8192
.buffered:
        mov     eax, [ebp+viewer_data.buf_pos]
        dec     eax
        cmp     [ebp+viewer_data.encoding], encodings.unicode
        jz      .unicode
        mov     [ebp+viewer_data.buf_pos], eax
        mov     al, [eax]
        mov     [esp+28], al
.done:
        clc
.ret:
        popa
        ret
 
.unicode:
        dec     eax
        mov     [ebp+viewer_data.buf_pos], eax
        call    read_unicode_char
        jmp     .done
 
read_unicode_char:
        mov     ax, [eax]
uni2ansi_char:
        test    [ebp+viewer_data.flags], 4
        jz      @f
        xchg    al, ah
@@:
        cmp     ax, 0x80
        jb      .ret
        cmp     ax, 0x401
        jz      .yo1
        cmp     ax, 0x451
        jz      .yo2
        cmp     ax, 0x410
        jb      .unk
        cmp     ax, 0x440
        jb      .rus1
        cmp     ax, 0x450
        jb      .rus2
.unk:
        mov     al, ' '
.ret:
        ret
.yo1:
        mov     al, 'ð'
        ret
.yo2:
        mov     al, 'ñ'
        ret
.rus1:
; 0x410-0x43F -> 0x80-0xAF
        add     al, 0x70
        ret
.rus2:
; 0x440-0x44F -> 0xE0-0xEF
        add     al, 0xA0
        ret
 
fld_uint64:
        fild    qword [eax]
        test    byte [eax+7], 80h
        jz      .ret
        fadd    [@f]
.ret:
        ret
@@      dq      18446744073709551616.0 ;0x10000000000000000
 
viewer_draw_text:
        call    viewer_seek_to_current
        xor     eax, eax
        xor     edx, edx
        call    get_console_ptr
        mov     ah, [view_status_color]
 
 
        mov     ecx, [cur_width]
        sub     ecx, 44
        cmp     ecx, 20
        jae     @f
        mov     cl, 20
 
 
 
 
 
 
 
 
 
 
 
 
 
@@:
 
        call    viewedit_draw_filename
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
        add     ecx, 11
        rep     stosw
        movzx   esi, [ebp+viewer_data.encoding]
        lea     esi, [encodings.names+esi*8]
        push    edi esi
        dec     edi
        dec     edi
        std
        add     esi, 8
@@:
        dec     esi
        cmp     byte [esi], ' '
        jz      @b
@@:
        lodsb
        stosw
        cmp     esi, [esp]
        jae     @b
        cld
        pop     esi edi
        mov     al, ' '
        mov     cl, 13
        rep     stosw
        std
        push    edi
        mov     edx, dword [ebp+viewer_data.filesize+4]
        mov     eax, dword [ebp+viewer_data.filesize]
        mov     cl, 10
@@:
        push    eax
        mov     eax, edx
        xor     edx, edx
        div     ecx
        xchg    eax, [esp]
        div     ecx
        xchg    eax, edx
        add     al, '0'
        mov     ah, [view_status_color]
        stosw
        xchg    eax, edx
        pop     edx
        test    eax, eax
        jnz     @b
        test    edx, edx
        jnz     @b
        mov     al, ' '
        mov     ah, [view_status_color]
        stosw
        cld
        pop     edi
        inc     edi
        inc     edi
        mov     al, ' '
        mov     cl, 5
        rep     stosw
if lang eq ru
        mov     al, ''
        stosw
        mov     al, '®'
        stosw
        mov     al, '«'
        stosw
else
        mov     al, 'C'
        stosw
        mov     al, 'o'
        stosw
        mov     al, 'l'
        stosw
end if
        mov     al, ' '
        stosw
        push    edi
        mov     eax, dword [ebp+viewer_data.col]
        mov     edx, dword [ebp+viewer_data.col+4]
        test    edx, edx
        jnz     .col_big
        cmp     eax, 100000
        jae     .col_big
        mov     cl, 10
        push    -'0'
@@:
        div     ecx
        push    edx
        xor     edx, edx
        test    eax, eax
        jnz     @b
@@:
        pop     eax
        add     eax, '0'
        jz      .col_done
        mov     ah, [view_status_color]
        stosw
        jmp     @b
.col_big:
        push    eax
        mov     al, '.'
        mov     ah, [view_status_color]
        stosw
        stosw
        stosw
        xor     eax, eax
        xchg    eax, edx
        mov     cl, 100
        div     ecx
        pop     eax
        div     ecx
        mov     cl, 10
        xor     eax, eax
        xchg    eax, edx
        div     ecx
        add     al, '0'
        mov     ah, [view_status_color]
        stosw
        mov     al, dl
        add     al, '0'
        stosw
.col_done:
        pop     ecx
        add     ecx, 10*2
        sub     ecx, edi
        shr     ecx, 1
        mov     al, ' '
        mov     ah, [view_status_color]
        rep     stosw
        finit
        fldcw   [fpu_cw]
        mov     [tmp], 100
        lea     eax, [ebp+viewer_data.filesize]
        cmp     dword [eax], 0
        jnz     @f
        cmp     dword [eax+4], 0
        jz      .size_zero
@@:
        call    fld_uint64
        lea     eax, [ebp+viewer_data.cur_pos]
        call    fld_uint64
        fdivrp
        fimul   [_100d]
        fistp   [tmp]
.size_zero:
        mov     byte [edi-2], '%'
        sub     edi, 4
        mov     eax, [tmp]
        mov     cl, 10
@@:
        xor     edx, edx
        div     ecx
        xchg    eax, edx
        add     al, '0'
        mov     [edi], al
        sub     edi, 2
        xchg    eax, edx
        test    eax, eax
        jnz     @b
        xor     eax, eax
        push    1
        pop     edx
        call    get_console_ptr
        test    [ebp+viewer_data.flags], 1
        jnz     .DrawHex
        push    2
        pop     edx
        xor     ecx, ecx
        mov     dword [scrpos], ecx
        mov     dword [scrpos+4], ecx
        mov     dword [viewer_right_side], ecx
        mov     dword [viewer_right_side+4], ecx
.1:
        call    viewer_get_next_char
        jc      .done
.2:
        cmp     al, 0xD
        jz      .newline
        cmp     al, 0xA
        jz      .newline
        cmp     ecx, [cur_width]
        jb      .no_newline
        test    [ebp+viewer_data.flags], 2
        jnz     .no_newline
.newline:
        push    eax
        mov     ecx, dword [scrpos]
        mov     eax, dword [scrpos+4]
        sub     ecx, dword [ebp+viewer_data.col]
        sbb     eax, dword [ebp+viewer_data.col+4]
        ja      .line_filled
        jb      .line_full
        cmp     ecx, [cur_width]
        ja      .line_filled
        jmp     @f
.line_full:
        xor     ecx, ecx
@@:
        test    ecx, ecx
        jnz     @f
        mov     eax, dword [scrpos]
        or      eax, dword [scrpos+4]
        jz      @f
        inc     ecx
@@:
        sub     ecx, [cur_width]
        neg     ecx
        mov     al, ' '
        mov     ah, [view_normal_color]
        rep     stosw
.line_filled:
        mov     eax, dword [scrpos]
        sub     eax, dword [viewer_right_side]
        mov     eax, dword [scrpos+4]
        sbb     eax, dword [viewer_right_side+4]
        jb      @f
        mov     eax, dword [scrpos]
        mov     dword [viewer_right_side], eax
        mov     eax, dword [scrpos+4]
        mov     dword [viewer_right_side+4], eax
@@:
        xor     ecx, ecx
        mov     dword [scrpos], ecx
        mov     dword [scrpos+4], ecx
        inc     edx
        pop     eax
        cmp     edx, [cur_height]
        jae     .done
.no_newline:
        cmp     al, 0xD
        jz      .3
        cmp     al, 0xA
        jz      .3
.4:
        test    al, al
        jns     @f
        movzx   esi, [ebp+viewer_data.encoding]
        cmp     esi, encodings.unicode
        jz      @f
        shl     esi, 7
        movzx   eax, al
        mov     al, [encodings.tables-80h+esi+eax]
@@:
        cmp     al, 9
        jz      .tab
        call    .write_char
        inc     ecx
        jns     .1
        push    edx
        mov     eax, ecx
        xor     edx, edx
        div     [viewer_tabsize]
        mov     ecx, edx
        pop     edx
        jmp     .1
.3:
        mov     bl, al
        call    viewer_get_next_char
        jc      .done
        xor     bl, al
        cmp     bl, 0xA xor 0xD
        jz      .1
        jmp     .2
.tab:
        push    edx
        push    ecx
        mov     eax, ecx
        mov     ecx, [viewer_tabsize]
        xor     edx, edx
        div     ecx
        pop     eax
        sub     ecx, edx
        add     eax, ecx
        test    [ebp+viewer_data.flags], 2
        jnz     @f
        cmp     eax, [cur_width]
        jbe     @f
        sub     eax, [cur_width]
        sub     ecx, eax
        mov     eax, [cur_width]
@@:
        push    eax
        mov     al, ' '
@@:
        call    .write_char
        loop    @b
        pop     ecx
        pop     edx
        jmp     .1
.done:
        setc    [ebp+viewer_data.bEofReached]
.done2:
        inc     edx
        cmp     edx, [cur_height]
        jnc     @f
        mov     eax, dword [ebp+viewer_data.cur_pos]
        or      eax, dword [ebp+viewer_data.cur_pos+4]
        jz      @f
        call    viewer_seek_to_current
        call    viewer_prev_newline
        jmp     viewer_draw_text
@@:
        push    edi
        xor     eax, eax
        mov     edx, [cur_height]
        dec     edx
        call    get_console_ptr
        mov     ecx, edi
        pop     edi
        sub     ecx, edi
        shr     ecx, 1
        mov     al, ' '
        mov     ah, [view_normal_color]
        rep     stosw
        cmp     [ebp+viewer_data.bEofReached], 0
        jz      @f
        xor     edx, edx
        mov     eax, [cur_width]
        sub     eax, 4
        call    get_console_ptr
        mov     ah, [view_status_color]
        mov     al, '1'
        stosw
        mov     al, '0'
        stosw
        stosw
@@:
        call    draw_image
        ret
.DrawHex:
        xor     esi, esi
        mov     [ebp+viewer_data.bEofReached], 0
.line:
        mov     al, ' '
        mov     ah, [view_normal_color]
        push    edi
        mov     ecx, [cur_width]
        rep     stosw
        mov     ebx, edi
        pop     edi
        mov     [bForHex], 1
        call    viewer_get_next_char
        mov     [bForHex], 0
        jc      .hexdone
        push    eax
        push    edi
        add     edi, 36*2
        mov     al, 0xB3
        mov     ah, [view_normal_color]
        call    .safechar
        pop     edi
        mov     eax, dword [ebp+viewer_data.cur_pos]
        mov     edx, dword [ebp+viewer_data.cur_pos+4]
        push    esi
        shl     esi, 4
        add     eax, esi
        adc     edx, 0
        pop     esi
        push    eax
        mov     al, dl
        shr     eax, 4
        and     al, 0xF
        call    .hex_digit
        mov     al, dl
        and     al, 0xF
        call    .hex_digit
        pop     eax
        push    8
        pop     ecx
        add     edi, 7*2
        std
@@:
        push    eax
        and     al, 0xF
        call    .hex_digit
        pop     eax
        shr     eax, 4
        loop    @b
        cld
        add     edi, 9*2
        mov     al, ':'
        mov     ah, [view_normal_color]
        stosw
        mov     al, ' '
        stosw
        xor     ecx, ecx
        pop     eax
        jmp     @f
.hexchar:
        mov     [bForHex], 1
        call    viewer_get_next_char
        mov     [bForHex], 0
        jc      .hexdone
@@:
        cmp     [ebp+viewer_data.encoding], encodings.unicode
        jz      .hexchar_unicode
        push    eax
        shr     al, 4
        call    .hex_digit
        pop     eax
        push    eax
        and     al, 0xF
        call    .hex_digit
        mov     al, ' '
        call    .safechar
        pop     eax
        push    edi
        add     edi, 48*2
        push    ecx
        shl     ecx, 2
        sub     edi, ecx
        pop     ecx
        cmp     ecx, 8
        jb      @f
        sub     edi, 4
@@:
        test    al, al
        jns     @f
        movzx   edx, [ebp+viewer_data.encoding]
        shl     edx, 7
        movzx   eax, al
        mov     al, [encodings.tables+eax+edx-80h]
        mov     ah, [view_normal_color]
@@:
        call    .safechar
        pop     edi
        inc     ecx
        cmp     ecx, 8
        jnz     @f
        mov     al, 0xB3
        call    .safechar
        mov     al, ' '
        call    .safechar
@@:
        cmp     ecx, 16
        jnz     .hexchar
        jmp     .hexchar_nextline
.hexchar_unicode:
        push    eax
        shr     eax, 12
        call    .hex_digit
        pop     eax
        push    eax
        shr     eax, 8
        and     al, 0xF
        call    .hex_digit
        pop     eax
        push    eax
        shr     al, 4
        call    .hex_digit
        pop     eax
        push    eax
        and     al, 0xF
        call    .hex_digit
        mov     al, ' '
        mov     ah, [view_normal_color]
        call    .safechar
        pop     eax
        push    edi
        add     edi, 38*2
        push    ecx
        shl     ecx, 3
        sub     edi, ecx
        pop     ecx
        cmp     ecx, 4
        jb      @f
        sub     edi, 4
@@:
        call    uni2ansi_char
        mov     ah, [view_normal_color]
        call    .safechar
        pop     edi
        inc     ecx
        cmp     ecx, 4
        jnz     @f
        mov     al, 0xB3
        call    .safechar
        mov     al, ' '
        call    .safechar
@@:
        cmp     ecx, 8
        jnz     .hexchar
.hexchar_nextline:
        mov     edi, ebx
        add     esi, 3
        mov     edx, esi
        cmp     esi, [cur_height]
        jae     .done2
        dec     esi
        dec     esi
        jmp     .line
.hexdone:
        mov     [ebp+viewer_data.bEofReached], 1
        mov     edi, ebx
        lea     edx, [esi+2]
        jmp     .done2
 
.hex_digit:
        push    eax
        cmp     al, 10
        sbb     al, 69h
        das
        mov     ah, [view_normal_color]
        call    .safechar
        pop     eax
        ret
.safechar:
        cmp     edi, ebx
        jae     @f
        stosw
@@:
        ret
.write_char:
        push    ecx eax
        mov     ecx, dword [scrpos]
        mov     eax, dword [scrpos+4]
        sub     ecx, dword [ebp+viewer_data.col]
        sbb     eax, dword [ebp+viewer_data.col+4]
        jb      .left
        ja      .skip
        test    ecx, ecx
        jnz     @f
        mov     eax, dword [scrpos]
        or      eax, dword [scrpos+4]
        jnz     .skip
@@:
        cmp     ecx, [cur_width]
        ja      .skip
        jb      .do
        mov     al, '>'
        mov     [edi-2], al
        mov     al, [view_arrows_color]
        mov     [edi-1], al
        jmp     .skip
.left:
        mov     eax, dword [scrpos]
        or      eax, dword [scrpos+4]
        jnz     .skip
        mov     al, '<'
        mov     ah, [view_arrows_color]
        stosw
        jmp     .skip
.do:
        mov     al, [esp]
        mov     ah, [view_normal_color]
        stosw
.skip:
        pop     eax ecx
        add     dword [scrpos], 1
        adc     dword [scrpos+4], 0
        ret
 
viewedit_draw_filename:
        lea     esi, [ebp+viewer_data.filename]
        xor     edx, edx
        cmp     [ebp+viewer_data.hPlugin], edx
        mov     dl, 3
        jz      .5
        mov     dl, 1
.5:
        lodsb
        cmp     al, '/'
        jnz     @f
        dec     edx
        jz      .6
@@:
        stosw
        loop    .5
.6:
        dec     ecx
        stosw
        push    esi
@@:
        inc     esi
        cmp     byte [esi-1], 0
        jnz     @b
        sub     esi, [esp]
        dec     esi
        cmp     ecx, esi
        jae     .7
        mov     al, '.'
        stosw
        stosw
        stosw
        sub     ecx, 3
        sub     esi, ecx
        add     [esp], esi
.7:
        pop     esi
@@:
        lodsb
        test    al, al
        jz      @f
        dec     ecx
        stosw
        jmp     @b
@@:
        mov     al, ' '
        ret
 
viewer_seek_to_current:
        mov     eax, dword [ebp+viewer_data.cur_pos]
        mov     edx, dword [ebp+viewer_data.cur_pos+4]
viewer_seek:
        push    eax edx
        sub     eax, dword [ebp+viewer_data.buf_start]
        sbb     edx, dword [ebp+viewer_data.buf_start+4]
        jb      .prev
        ja      .next
        cmp     eax, 16384
        jae     .next
        lea     eax, [ebp+viewer_data.buf+eax]
        mov     [ebp+viewer_data.buf_pos], eax
        pop     edx eax
        ret
.prev:
        inc     edx
        jnz     .read_full
        and     eax, not 511
        cmp     eax, -16384
        jbe     .read_full
        lea     edi, [ebp+viewer_data.buf+16384-4]
        lea     esi, [edi+eax]
        lea     ecx, [eax+16384]
        push    ecx
        shr     ecx, 2
        std
        rep     movsd
        cld
        pop     ecx
        add     dword [ebp+viewer_data.buf_start], eax
        adc     dword [ebp+viewer_data.buf_start+4], -1
        neg     eax
        cmp     dword [ebp+viewer_data.buf_size], ecx
        jb      .doread
        mov     dword [ebp+viewer_data.buf_size], ecx
        jmp     .doread
.read_full:
        pop     edx eax
        push    eax edx
        and     eax, not 511
        sub     eax, 8192-512
        sbb     edx, 0
        jnc     @f
        xor     eax, eax
        xor     edx, edx
@@:
        mov     dword [ebp+viewer_data.buf_start], eax
        mov     dword [ebp+viewer_data.buf_start+4], edx
        and     dword [ebp+viewer_data.buf_size], 0
        mov     eax, 16384
.doread:
        mov     ebx, readinfo
        push    dword [ebp+viewer_data.buf_start]
        pop     dword [ebx+4]
        push    dword [ebp+viewer_data.buf_start+4]
        pop     dword [ebx+8]
        mov     [ebx+12], eax
        lea     eax, [ebp+viewer_data.buf]
        mov     [ebx+16], eax
        lea     eax, [ebp+viewer_data.filename]
        mov     [ebx+21], eax
        call    .q
        cmp     ebx, [readinfo.size]
        jnz     @f
        add     ebx, [ebp+viewer_data.buf_size]
@@:
.ret:
        mov     [ebp+viewer_data.buf_size], ebx
        pop     edx eax
        sub     eax, dword [ebp+viewer_data.buf_start]
        lea     eax, [ebp+eax+viewer_data.buf]
        mov     [ebp+viewer_data.buf_pos], eax
        ret
.next:
        or      eax, 511
        sub     eax, 16384-1
        sbb     edx, 0
        jnz     .read_full
        cmp     eax, 16384
        jae     .read_full
        cmp     [ebp+viewer_data.buf_size], 16384
        jb      .read_full
        lea     edi, [ebp+viewer_data.buf]
        lea     esi, [edi+eax]
        mov     ecx, 16384
        sub     ecx, eax
        shr     ecx, 2
        rep     movsd
        add     dword [ebp+viewer_data.buf_start], eax
        adc     dword [ebp+viewer_data.buf_start+4], 0
        mov     ebx, readinfo
        mov     [ebx+16], edi
        sub     edi, ebp
        sub     edi, viewer_data.buf
        mov     edx, dword [ebp+viewer_data.buf_start]
        add     edx, edi
        mov     [ebx+4], edx
        mov     edx, dword [ebp+viewer_data.buf_start+4]
        adc     edx, 0
        mov     [ebx+8], edx
        mov     [ebx+12], eax
        lea     eax, [ebp+viewer_data.filename]
        mov     [ebx+21], eax
        call    .q
        sub     ebx, [readinfo.size]
        add     ebx, 16384
        jmp     .ret
 
.q:
        mov     ebx, readinfo
        mov     eax, [ebp+viewer_data.hPlugin]
        test    eax, eax
        jz      .native
        push    ebp
        push    dword [ebx+12]
        push    dword [ebx+16]
        push    [ebp+viewer_data.hWorkFile]
        push    eax
        push    dword [ebx+8]
        push    dword [ebx+4]
        push    [ebp+viewer_data.hWorkFile]
        call    [eax+PluginInfo.setpos]
        pop     eax
        call    [eax+PluginInfo.read]
        pop     ebp
        mov     ebx, eax
        cmp     eax, -1
        jnz     @f
        xor     ebx, ebx
@@:
        ret
.native:
        push    70
        pop     eax
        int     40h
        test    eax, eax
        jz      .readok
        cmp     eax, 6
        jz      .readok
.readerr:
        call    ask_retry_ignore
        jz      .q
.readok:
        ret
 
ask_retry_ignore:
        push    esi
        lea     esi, [ebp+viewer_data.filename]
        push    esi
        push    aCannotReadFile
        call    get_error_msg
        push    eax
        mov     eax, esp
        push    RetryOrIgnoreBtn
        push    2
        push    eax
        push    3
        call    SayErr
        add     esp, 3*4
        pop     esi
        test    eax, eax
        ret
 
viewer_set_curpos:
        mov     eax, [ebp+viewer_data.buf_pos]
        sub     eax, ebp
        sub     eax, viewer_data.buf
        xor     edx, edx
        add     eax, dword [ebp+viewer_data.buf_start]
        adc     edx, dword [ebp+viewer_data.buf_start+4]
        mov     dword [ebp+viewer_data.cur_pos], eax
        mov     dword [ebp+viewer_data.cur_pos+4], edx
        ret
 
viewer_next_newline:
        test    [ebp+viewer_data.flags], 1
        jz      .nohex
        push    8
        pop     ecx
        cmp     [ebp+viewer_data.encoding], encodings.unicode
        jz      @f
        add     ecx, ecx
@@:
        call    viewer_get_next_char
        jc      @f
        loop    @b
        call    viewer_set_curpos
        clc
@@:     ret
.nohex:
        xor     ecx, ecx
@@:
        call    viewer_get_next_char
        jc      .ret
        cmp     al, 0xD
        jz      .1
        cmp     al, 0xA
        jz      .1
        cmp     al, 9
        jz      .tab
        inc     ecx
.next:
        test    [ebp+viewer_data.flags], 2
        jnz     @b
        cmp     ecx, [cur_width]
        jbe     @b
        call    viewer_get_prev_char
        jmp     .2
.tab:
        push    ecx
        mov     eax, ecx
        mov     ecx, [viewer_tabsize]
        xor     edx, edx
        div     ecx
        sub     ecx, edx
        add     [esp], ecx
        pop     ecx
        jmp     .next
.1:
        mov     cl, al
        call    viewer_get_next_char
        jc      .ret
        xor     cl, al
        cmp     cl, 0xD xor 0xA
        jz      .2
        dec     [ebp+viewer_data.buf_pos]
        cmp     [ebp+viewer_data.encoding], encodings.unicode
        jnz     .2
        dec     [ebp+viewer_data.buf_pos]
.2:
        clc
.ret:
        pushf
        call    viewer_set_curpos
        popf
        ret
 
viewer_prev_newline:
        test    [ebp+viewer_data.flags], 1
        jz      .nohex
        push    8
        pop     ecx
        cmp     [ebp+viewer_data.encoding], encodings.unicode
        jz      @f
        add     ecx, ecx
@@:
        call    viewer_get_prev_char
        jc      @f
        loop    @b
@@:     call    viewer_set_curpos
        ret
.nohex:
        mov     eax, 8192
        push    eax
        cdq
        div     [cur_width]
        pop     eax
        sub     eax, edx
        mov     edx, eax
        call    viewer_get_prev_char
        jc      .0
        dec     edx
        cmp     al, 0xD
        jz      .2
        cmp     al, 0xA
        jnz     .3
.2:
        mov     cl, al
        call    viewer_get_prev_char
        jc      .0
        dec     edx
        xor     cl, al
        cmp     cl, 0xD xor 0xA
        jnz     .3
@@:
        call    viewer_get_prev_char
        jc      .0
        dec     edx
        jz      .0
.3:
        cmp     al, 0xD
        jz      .1
        cmp     al, 0xA
        jnz     @b
.1:
        call    viewer_get_next_char
.0:
        push    dword [ebp+viewer_data.cur_pos+4]
        push    dword [ebp+viewer_data.cur_pos]
        call    viewer_set_curpos
@@:
        push    dword [ebp+viewer_data.cur_pos+4]
        push    dword [ebp+viewer_data.cur_pos]
        call    viewer_next_newline
        jc      .ret3
        mov     eax, dword [ebp+viewer_data.cur_pos]
        mov     edx, dword [ebp+viewer_data.cur_pos+4]
        sub     eax, [esp+8]
        sbb     edx, [esp+12]
        jae     .ret3
        pop     eax
        pop     eax
        jmp     @b
.ret3:
        pop     dword [ebp+viewer_data.cur_pos]
        pop     dword [ebp+viewer_data.cur_pos+4]
.ret:
        pop     eax
        pop     eax
        jmp     viewer_seek_to_current
 
viewer_set_keybar:
        mov     eax, keybar_viewer
if lang eq ru
        test    [ebp+viewer_data.flags], 1
        jnz     .hex
        mov     dword [eax+(4-1)*6], '®¤ '
        mov     word [eax+(4-1)*6+4], '  '
        jmp     @f
.hex:
        mov     dword [eax+(4-1)*6], '¥ªá'
        mov     word [eax+(4-1)*6+4], 'â '
@@:
        test    [ebp+viewer_data.flags], 2
        jnz     .unwrap
        mov     dword [eax+6], ' §¢'
        mov     word [eax+6+4], '¥à'
        jmp     @f
.unwrap:
        mov     dword [eax+6], '¢¥à'
        mov     word [eax+6+4], '­ '
@@:
else
        test    [ebp+viewer_data.flags], 1
        jnz     .hex
        mov     dword [eax+(4-1)*6], 'Hex '
;        mov     word [eax+(4-1)*6+4], '  '
        jmp     @f
.hex:
        mov     dword [eax+(4-1)*6], 'Text'
;        mov     word [eax+(4-1)*6+4], '  '
@@:
        test    [ebp+viewer_data.flags], 2
        jnz     .unwrap
        mov     dword [eax+6], 'Unwr'
        mov     word [eax+6+4], 'ap'
        jmp     @f
.unwrap:
        mov     dword [eax+6], 'Wrap'
        mov     word [eax+6+4], '  '
@@:
end if
        movzx   esi, [ebp+viewer_data.encoding]
        dec     esi
        jz      @f
        push    1
        pop     esi
@@:
        lea     esi, [encodings.names+esi*8]
        lea     edi, [eax+keybar_cp-keybar_viewer]
        movsd
        movsw
        jmp     draw_keybar
 
 
 
 
 
 
viewer_OnExit:
        mov     edx, [ebp+viewer_data.hPlugin]
        test    edx, edx
        jz      @f
        and     [ebp+viewer_data.hPlugin], 0
        push    edx ebp
        push    [ebp+viewer_data.hWorkFile]
        call    [edx+PluginInfo.close]
        pop     ebp edx
        mov     ebx, [ebp+viewer_data.hFile]
        call    close_handle_if_unused
@@:
        ret
 
viewer_IsHandleUsed:
editor_IsHandleUsed:
        cmp     edx, [ebp+viewer_data.hPlugin]
        jnz     @f
        cmp     ebx, [ebp+viewer_data.hFile]
@@:
        ret
 
viewer_OnKey:
        mov     esi, viewer_ctrlkeys
        jmp     process_ctrl_keys
.exit:
        call    viewer_OnExit
        jmp     delete_active_screen
.down:
        cmp     [ebp+viewer_data.bEofReached], 0
        jnz     .ret
        call    viewer_seek_to_current
        call    viewer_next_newline
        jc      .ret
        call    viewer_draw_text
        ret
.pgdn:
        cmp     [ebp+viewer_data.bEofReached], 0
        jnz     .ret
        call    viewer_seek_to_current
        mov     ebx, [cur_height]
        sub     ebx, 3
@@:
        call    viewer_next_newline
        jc      .ret
        dec     ebx
        jnz     @b
        call    viewer_draw_text
        ret
.up:
        call    viewer_seek_to_current
        call    viewer_prev_newline
        call    viewer_draw_text
        ret
.pgup:
        call    viewer_seek_to_current
        mov     ebx, [cur_height]
        sub     ebx, 3
@@:
        call    viewer_prev_newline
        dec     ebx
        jnz     @b
.done_redraw:
        call    viewer_draw_text
.ret:
        ret
.f8:
        movzx   esi, [ebp+viewer_data.encoding]
        dec     [ebp+viewer_data.encoding]
        jz      .done_redraw_keybar
        mov     [ebp+viewer_data.encoding], 1
        jmp     .done_redraw_keybar
.f2:
        xor     [ebp+viewer_data.flags], 2
.done_redraw_keybar:
        call    viewer_set_keybar
        jmp     .done_redraw
.f4:
        xor     [ebp+viewer_data.flags], 1
        pushf
        call    viewer_set_keybar
        popf
        jnz     .tohex
        push    1
        pop     eax
        cmp     [ebp+viewer_data.encoding], encodings.unicode
        jnz     @f
        add     eax, eax
@@:
        add     dword [ebp+viewer_data.cur_pos], eax
        adc     dword [ebp+viewer_data.cur_pos+4], 0
        call    viewer_seek_to_current
        call    viewer_prev_newline
        jmp     .done_redraw
.tohex:
        and     byte [ebp+viewer_data.cur_pos], 0xF0
        jmp     .done_redraw
.home:
        xor     eax, eax
        mov     dword [ebp+viewer_data.cur_pos], eax
        mov     dword [ebp+viewer_data.cur_pos+4], eax
        mov     dword [ebp+viewer_data.col], eax
        mov     dword [ebp+viewer_data.col+4], eax
        jmp     .done_redraw
.end:
        mov     eax, dword [ebp+viewer_data.filesize]
        mov     edx, dword [ebp+viewer_data.filesize+4]
        and     al, 0xF0
        mov     dword [ebp+viewer_data.cur_pos], eax
        mov     dword [ebp+viewer_data.cur_pos+4], edx
        and     dword [ebp+viewer_data.col], 0
        and     dword [ebp+viewer_data.col+4], 0
        jmp     .done_redraw
.right:
        add     dword [ebp+viewer_data.col], 1
        adc     dword [ebp+viewer_data.col+4], 0
        jnc     .done_redraw
        sub     dword [ebp+viewer_data.col], 1
        sbb     dword [ebp+viewer_data.col+4], 0
        ret
.left:
        sub     dword [ebp+viewer_data.col], 1
        sbb     dword [ebp+viewer_data.col+4], 0
        jnc     .done_redraw
        add     dword [ebp+viewer_data.col], 1
        adc     dword [ebp+viewer_data.col+4], 0
        ret
.ctrl_left:
        test    [ebp+viewer_data.flags], 1
        jnz     .ctrl_left_hex
        sub     dword [ebp+viewer_data.col], 20
        sbb     dword [ebp+viewer_data.col+4], 0
        jnc     .done_redraw
.ctrl_shift_left:
        and     dword [ebp+viewer_data.col], 0
        and     dword [ebp+viewer_data.col+4], 0
        jmp     .done_redraw
.ctrl_left_hex:
        call    viewer_seek_to_current
        call    viewer_get_prev_char
        jc      @f
        call    viewer_set_curpos
        jmp     .done_redraw
.ctrl_right:
        test    [ebp+viewer_data.flags], 1
        jnz     .ctrl_right_hex
        add     dword [ebp+viewer_data.col], 20
        adc     dword [ebp+viewer_data.col+4], 0
        jnc     .done_redraw
        sub     dword [ebp+viewer_data.col], 20
        sbb     dword [ebp+viewer_data.col+4], 0
@@:     ret
.ctrl_right_hex:
        call    viewer_seek_to_current
        call    viewer_get_next_char
        call    viewer_set_curpos
        jmp     .done_redraw
.ctrl_shift_right:
        test    [ebp+viewer_data.flags], 1
        jnz     @b
        mov     eax, dword [viewer_right_side]
        mov     edx, dword [viewer_right_side+4]
        sub     eax, [cur_width]
        sbb     edx, 0
        jnc     @f
        xor     eax, eax
        xor     edx, edx
@@:
        mov     dword [ebp+viewer_data.col], eax
        mov     dword [ebp+viewer_data.col+4], edx
        jmp     .done_redraw
.shift_f8:
        mov     ecx, encodings.menu.1
        mov     al, [ebp+viewer_data.encoding]
@@:
        cmp     byte [ecx-1], al
        jz      @f
        mov     ecx, [ecx]
        jmp     @b
@@:
        push    1
        push    aTables
        push    ecx
        call    menu
        cmp     eax, -1
        jz      .ret
        mov     al, [eax-1]
        mov     [ebp+viewer_data.encoding], al
        cmp     al, encodings.unicode
        jnz     .done_redraw_keybar
        add     dword [ebp+viewer_data.cur_pos], 1
        adc     dword [ebp+viewer_data.cur_pos+4], 0
        and     dword [ebp+viewer_data.cur_pos], not 1
        jmp     .done_redraw_keybar
 
viewer_getname:
if lang eq ru
        mov     eax, 'à®á'
        stosd
        mov     eax, '¬®âà'
        stosd
        mov     eax, '    '
        stosd
        stosb
else
        mov     eax, 'View'
        stosd
        mov     eax, '    '
        stosd
        stosd
        stosb
end if
        jmp     viewedit_getname
editor_getname:
if lang eq ru
        mov     eax, '¥¤ '
        stosd
        mov     eax, 'ªâ®à'
        stosd
        mov     eax, '    '
        stosd
        stosb
else
        mov     eax, 'Edit'
        stosd
        mov     eax, '    '
        stosd
        stosd
        stosb
end if
viewedit_getname:
        sub     ecx, 13
        cmp     [ebp+viewer_data.hPlugin], 0
        jz      .native
        lea     esi, [ebp+viewer_data.hostname]
        push    ecx edi
        shr     ecx, 1
@@:
        lodsb
        test    al, al
        jz      @f
        stosb
        loop    @b
@@:
        sub     edi, [esp]
        sub     [esp+4], edi
        add     [esp], edi
        pop     edi ecx
        lea     esi, [ebp+viewer_data.filename]
        jmp     .main
.native:
        lea     esi, [ebp+viewer_data.filename]
        push    3
        pop     edx
@@:
        lodsb
        stosb
        dec     ecx
        test    al, al
        jz      .ret
        cmp     al, '/'
        jnz     @b
        dec     edx
        jnz     @b
.main:
        push    esi
@@:
        lodsb
        test    al, al
        jnz     @b
        sub     esi, [esp]
        dec     esi
        cmp     esi, ecx
        jbe     @f
        mov     al, '.'
        stosb
        stosb
        stosb
        sub     ecx, 3
        sub     esi, ecx
        add     [esp], esi
@@:
        pop     esi
@@:
        lodsb
        stosb
        test    al, al
        jnz     @b
.ret:
        ret
>

Rev 589	Rev 814
1	virtual at 0	1	virtual at 0
2	viewer_data:	2	viewer_data:
-		3	.hPlugin dd ?
-		4	.hFile dd ?
3	.buf_start dq ?	5	.buf_start dq ?
4	.cur_pos dq ?	6	.cur_pos dq ?
5	.filesize dq ?	7	.filesize dq ?
6	.buf_pos dd ?	8	.buf_pos dd ?
7	.buf_size dd ?	9	.buf_size dd ?
8	.col dq ?	10	.col dq ?
9	.hPlugin dd ?	-
10	.hFile dd ?	-
11	.hWorkFile dd ?	11	.hWorkFile dd ?
12	.encoding db ?	12	.encoding db ?
13	.bEofReached db ?	-
14	.flags db ? ; & 1: hex mode	13	.flags db ? ; & 1: hex mode
15	; & 2: unwrap	14	; & 2: unwrap
16	; & 4: big-endian unicode	15	; & 4: big-endian unicode
-		16	.bEofReached db ?
17	rb 1	17	rb 1
-		18	align 200h
18	.filename rb 1024	19	.filename rb 1024
19	.hostname rb 1024	20	.hostname rb 1024
20	.buf rb 16384	21	.buf rb 16384
21	.size = $	22	.size = $
22	end virtual	23	end virtual
23		24
24	view_file:	25	view_file:
25	mov eax, [ebp + panel1_files - panel1_data]	26	mov eax, [ebp + panel1_files - panel1_data]
26	mov ecx, [eax+ecx*4]	27	mov ecx, [eax+ecx*4]
27	test byte [ecx], 10h	28	test byte [ecx], 10h
28	jz .file	29	jz .file
29	ret	30	ret
30	.file:	31	.file:
31	lea esi, [ebp + panel1_dir - panel1_data]	32	lea esi, [ebp + panel1_dir - panel1_data]
32	push ecx	33	push ecx
33	mov ecx, viewer_data.size	34	mov ecx, viewer_data.size
34	mov edx, viewer_vtable	35	mov edx, viewer_vtable
35	call new_screen	36	call new_screen
36	pop ecx	37	pop ecx
37	test eax, eax	38	test eax, eax
38	jnz @f	39	jnz @f
39	ret	40	ret
40	@@:	41	@@:
41	mov eax, dword [esi+panel1_hPlugin-panel1_dir]	42	mov eax, dword [esi+panel1_hPlugin-panel1_dir]
42	mov [ebp+viewer_data.hPlugin], eax	43	mov [ebp+viewer_data.hPlugin], eax
43	test eax, eax	44	test eax, eax
44	jz .nocopyhostname	45	jz .nocopyhostname
45	lea edi, [ebp+viewer_data.hostname]	46	lea edi, [ebp+viewer_data.hostname]
46	push esi	47	push esi
47	mov eax, dword [esi+panel1_parents-panel1_dir]	48	mov eax, dword [esi+panel1_parents-panel1_dir]
48	mov esi, dword [esi+panel1_parents_sz-panel1_dir]	49	mov esi, dword [esi+panel1_parents_sz-panel1_dir]
49	add esi, eax	50	add esi, eax
50	@@:	51	@@:
51	dec esi	52	dec esi
52	cmp byte [esi-1], 0	53	cmp byte [esi-1], 0
53	jz @f	54	jz @f
54	cmp byte [esi-1], '/'	55	cmp byte [esi-1], '/'
55	jnz @b	56	jnz @b
56	@@:	57	@@:
57	lodsb	58	lodsb
58	stosb	59	stosb
59	test al, al	60	test al, al
60	jnz @b	61	jnz @b
61	pop esi	62	pop esi
62	.nocopyhostname:	63	.nocopyhostname:
63	mov eax, dword [esi+panel1_hFile-panel1_dir]	64	mov eax, dword [esi+panel1_hFile-panel1_dir]
64	mov [ebp+viewer_data.hFile], eax	65	mov [ebp+viewer_data.hFile], eax
65	mov [ebp+viewer_data.encoding], encodings.cp866	66	mov [ebp+viewer_data.encoding], encodings.cp866
66	mov [ebp+viewer_data.flags], 0	67	mov [ebp+viewer_data.flags], 0
67	and dword [ebp+viewer_data.col], 0	68	and dword [ebp+viewer_data.col], 0
68	and dword [ebp+viewer_data.col+4], 0	69	and dword [ebp+viewer_data.col+4], 0
69	lea edi, [ebp+viewer_data.filename]	70	lea edi, [ebp+viewer_data.filename]
70	push edi	71	push edi
71	@@:	72	@@:
72	lodsb	73	lodsb
73	test al, al	74	test al, al
74	jz @f	75	jz @f
75	stosb	76	stosb
76	jmp @b	77	jmp @b
77	@@:	78	@@:
78	lea esi, [ecx+40]	79	lea esi, [ecx+40]
79	cmp byte [edi-1], '/'	80	cmp byte [edi-1], '/'
80	jz @f	81	jz @f
81	mov al, '/'	82	mov al, '/'
82	stosb	83	stosb
83	@@:	84	@@:
84	lodsb	85	lodsb
85	stosb	86	stosb
86	test al, al	87	test al, al
87	jnz @b	88	jnz @b
88	pop eax	89	pop eax
89	push eax	90	push eax
90	mov ebx, attrinfo	91	mov ebx, attrinfo
91	mov [ebx+21], eax	92	mov [ebx+21], eax
92	.attr_retry:	93	.attr_retry:
93	mov edx, [ebp+viewer_data.hPlugin]	94	mov edx, [ebp+viewer_data.hPlugin]
94	test edx, edx	95	test edx, edx
95	jz .attr_native	96	jz .attr_native
96	push ebp	97	push ebp
97	push dword [ebx+16]	98	push dword [ebx+16]
98	push eax	99	push eax
99	push [ebp+viewer_data.hFile]	100	push [ebp+viewer_data.hFile]
100	call [edx+PluginInfo.getattr]	101	call [edx+PluginInfo.getattr]
101	pop ebp	102	pop ebp
102	jmp .attr_common	103	jmp .attr_common
103	.attr_native:	104	.attr_native:
104	push 70	105	push 70
105	pop eax	106	pop eax
106	int 40h	107	int 40h
107	.attr_common:	108	.attr_common:
108	test eax, eax	109	test eax, eax
109	jz @f	110	jz @f
110	lea ebx, [ebp+viewer_data.filename]	111	lea ebx, [ebp+viewer_data.filename]
111	push ebx	112	push ebx
112	push aCannotReadFile	113	push aCannotReadFile
113	call get_error_msg	114	call get_error_msg
114	push eax	115	push eax
115	mov eax, esp	116	mov eax, esp
116	push RetryOrCancelBtn	117	push RetryOrCancelBtn
117	push 2	118	push 2
118	push eax	119	push eax
119	push 3	120	push 3
120	call SayErr	121	call SayErr
121	add esp, 3*4	122	add esp, 3*4
122	mov ebx, attrinfo	123	mov ebx, attrinfo
123	test eax, eax	124	test eax, eax
124	jz .attr_retry	125	jz .attr_retry
125	pop eax	126	pop eax
126	jmp delete_active_screen	127	jmp delete_active_screen
127	@@:	128	@@:
128	mov eax, dword [attrinfo.attr+32]	129	mov eax, dword [attrinfo.attr+32]
129	mov dword [ebp+viewer_data.filesize], eax	130	mov dword [ebp+viewer_data.filesize], eax
130	mov eax, dword [attrinfo.attr+36]	131	mov eax, dword [attrinfo.attr+36]
131	mov dword [ebp+viewer_data.filesize+4], eax	132	mov dword [ebp+viewer_data.filesize+4], eax
132	mov ebx, readinfo	133	mov ebx, readinfo
133	xor eax, eax	134	xor eax, eax
134	mov dword [ebx+readinfo.first-readinfo], eax	135	mov dword [ebx+readinfo.first-readinfo], eax
135	mov dword [ebx+readinfo.first+4-readinfo], eax	136	mov dword [ebx+readinfo.first+4-readinfo], eax
136	mov dword [ebp+viewer_data.buf_start], eax	137	mov dword [ebp+viewer_data.buf_start], eax
137	mov dword [ebp+viewer_data.buf_start+4], eax	138	mov dword [ebp+viewer_data.buf_start+4], eax
138	mov dword [ebp+viewer_data.cur_pos], eax	139	mov dword [ebp+viewer_data.cur_pos], eax
139	mov dword [ebp+viewer_data.cur_pos+4], eax	140	mov dword [ebp+viewer_data.cur_pos+4], eax
140	mov [ebx+readinfo.size-readinfo], 16384	141	mov [ebx+readinfo.size-readinfo], 16384
141	lea eax, [ebp+viewer_data.buf]	142	lea eax, [ebp+viewer_data.buf]
142	mov [readinfo.data], eax	143	mov [readinfo.data], eax
143	mov [ebp+viewer_data.buf_pos], eax	144	mov [ebp+viewer_data.buf_pos], eax
144	pop dword [readinfo.name]	145	pop dword [readinfo.name]
145	mov eax, [ebp+viewer_data.hPlugin]	146	mov eax, [ebp+viewer_data.hPlugin]
146	test eax, eax	147	test eax, eax
147	jz .retry	148	jz .retry
148	push ebx ebp	149	push ebx ebp
149	push O_READ	150	push O_READ
150	push dword [readinfo.name]	151	push dword [readinfo.name]
151	push [ebp+viewer_data.hFile]	152	push [ebp+viewer_data.hFile]
152	call [eax+PluginInfo.open]	153	call [eax+PluginInfo.open]
153	pop ebp ebx	154	pop ebp ebx
154	mov [ebp+viewer_data.hWorkFile], eax	155	mov [ebp+viewer_data.hWorkFile], eax
155	test eax, eax	156	test eax, eax
156	jnz .retry	157	jnz .retry
-		158	..openerr_in_screen:
157	push ContinueBtn	159	push ContinueBtn
158	push 1	160	push 1
159	push aCannotOpenFile_ptr	161	push aCannotOpenFile_ptr
160	push 1	162	push 1
161	call SayErr	163	call SayErr
162	jmp delete_active_screen	164	jmp delete_active_screen
163	.retry:	165	.retry:
164	mov eax, [ebp+viewer_data.hPlugin]	166	mov eax, [ebp+viewer_data.hPlugin]
165	test eax, eax	167	test eax, eax
166	jz .read_native	168	jz .read_native
167	push ebp	169	push ebp
168	push 16384	170	push 16384
169	push [ebx+readinfo.data-readinfo]	171	push [ebx+readinfo.data-readinfo]
170	push [ebp+viewer_data.hWorkFile]	172	push [ebp+viewer_data.hWorkFile]
171	call [eax+PluginInfo.read]	173	call [eax+PluginInfo.read]
172	pop ebp	174	pop ebp
173	cmp eax, -1	175	cmp eax, -1
174	jz .readok ; let's hope that plugin says error itself	176	jz .readok ; let's hope that plugin says error itself
175	mov [ebp+viewer_data.buf_size], eax	177	mov [ebp+viewer_data.buf_size], eax
176	mov ebx, eax	178	mov ebx, eax
177	jmp .readok	179	jmp .readok
178	.read_native:	180	.read_native:
179	push 70	181	push 70
180	pop eax	182	pop eax
181	int 40h	183	int 40h
182	mov [ebp+viewer_data.buf_size], ebx	184	mov [ebp+viewer_data.buf_size], ebx
183	test eax, eax	185	test eax, eax
184	jz .readok	186	jz .readok
185	cmp eax, 6	187	cmp eax, 6
186	jz .readok	188	jz .readok
187	.readerr:	189	.readerr:
188	lea ebx, [ebp+viewer_data.filename]	190	lea ebx, [ebp+viewer_data.filename]
189	push ebx	191	push ebx
190	push aCannotReadFile	192	push aCannotReadFile
191	call get_error_msg	193	call get_error_msg
192	push eax	194	push eax
193	mov eax, esp	195	mov eax, esp
194	push RetryOrCancelBtn	196	push RetryOrCancelBtn
195	push 2	197	push 2
196	push eax	198	push eax
197	push 3	199	push 3
198	call SayErr	200	call SayErr
199	add esp, 3*4	201	add esp, 3*4
200	mov ebx, readinfo	202	mov ebx, readinfo
201	test eax, eax	203	test eax, eax
202	jz .attr_retry	204	jz .attr_retry
203	jmp delete_active_screen	205	jmp delete_active_screen
204	.readok:	206	.readok:
205	cmp ebx, 2	207	cmp ebx, 2
206	jb .nounicode	208	jb .nounicode
207	cmp word [ebp+viewer_data.buf], 0xFEFF	209	cmp word [ebp+viewer_data.buf], 0xFEFF
208	jz @f	210	jz @f
209	cmp word [ebp+viewer_data.buf], 0xFFFE	211	cmp word [ebp+viewer_data.buf], 0xFFFE
210	jnz .nounicode	212	jnz .nounicode
211	or byte [ebp+viewer_data.flags], 4	213	or byte [ebp+viewer_data.flags], 4
212	@@:	214	@@:
213	mov [ebp+viewer_data.encoding], encodings.unicode	215	mov [ebp+viewer_data.encoding], encodings.unicode
214	.nounicode:	216	.nounicode:
-		217	viewer_OnRedraw:
-		218	or [cursor_x], -1
-		219	or [cursor_y], -1
215	call viewer_set_keybar	220	call viewer_set_keybar
216	call viewer_draw_text	221	call viewer_draw_text
217	ret	222	ret
218		223
219	viewer_get_next_char:	224	viewer_get_next_char:
220	pusha	225	pusha
221	cmp [ebp+viewer_data.encoding], encodings.unicode	226	cmp [ebp+viewer_data.encoding], encodings.unicode
222	jnz @f	227	jnz @f
223	cmp [bForHex], 0	228	cmp [bForHex], 0
224	jnz @f	229	jnz @f
225	cmp dword [ebp+viewer_data.buf_start], 0	230	cmp dword [ebp+viewer_data.buf_start], 0
226	jnz @f	231	jnz @f
227	cmp dword [ebp+viewer_data.buf_start+4], 0	232	cmp dword [ebp+viewer_data.buf_start+4], 0
228	jnz @f	233	jnz @f
229	lea eax, [ebp+viewer_data.buf]	234	lea eax, [ebp+viewer_data.buf]
230	cmp eax, [ebp+viewer_data.buf_pos]	235	cmp eax, [ebp+viewer_data.buf_pos]
231	jnz @f	236	jnz @f
232	cmp word [eax], 0xFFFE	237	cmp word [eax], 0xFFFE
233	jz .skip	238	jz .skip
234	cmp word [eax], 0xFEFF	239	cmp word [eax], 0xFEFF
235	jnz @f	240	jnz @f
236	.skip:	241	.skip:
237	add [ebp+viewer_data.buf_pos], 2	242	add [ebp+viewer_data.buf_pos], 2
238	@@:	243	@@:
239	mov eax, [ebp+viewer_data.buf_pos]	244	mov eax, [ebp+viewer_data.buf_pos]
240	lea ecx, [ebp+viewer_data.buf]	245	lea ecx, [ebp+viewer_data.buf]
241	add ecx, [ebp+viewer_data.buf_size]	246	add ecx, [ebp+viewer_data.buf_size]
242	cmp eax, ecx	247	cmp eax, ecx
243	jb .buffered	248	jb .buffered
244	mov al, ' '	249	mov al, ' '
245	sub ecx, ebp	250	sub ecx, ebp
246	cmp ecx, viewer_data.buf + 16384	251	cmp ecx, viewer_data.buf + 16384
247	jb .err	252	jb .err
248	mov eax, dword [ebp+viewer_data.buf_start]	253	mov eax, dword [ebp+viewer_data.buf_start]
249	add eax, 8192	254	add eax, 8192
250	mov dword [ebp+viewer_data.buf_start], eax	255	mov dword [ebp+viewer_data.buf_start], eax
251	mov edx, dword [ebp+viewer_data.buf_start+4]	256	mov edx, dword [ebp+viewer_data.buf_start+4]
252	adc edx, 0	257	adc edx, 0
253	mov dword [ebp+viewer_data.buf_start+4], edx	258	mov dword [ebp+viewer_data.buf_start+4], edx
254	add eax, 16384-8192	259	add eax, 16384-8192
255	adc edx, 0	260	adc edx, 0
256	mov dword [readinfo.first], eax	261	mov dword [readinfo.first], eax
257	mov dword [readinfo.first+4], edx	262	mov dword [readinfo.first+4], edx
258	mov dword [readinfo.size], 8192	263	mov dword [readinfo.size], 8192
259	lea edi, [ebp+viewer_data.buf]	264	lea edi, [ebp+viewer_data.buf]
260	lea esi, [edi+8192]	265	lea esi, [edi+8192]
261	mov ecx, (16384-8192)/4	266	mov ecx, (16384-8192)/4
262	rep movsd	267	rep movsd
263	mov [readinfo.data], edi	268	mov [readinfo.data], edi
264	lea eax, [ebp+viewer_data.filename]	269	lea eax, [ebp+viewer_data.filename]
265	mov [readinfo.name], eax	270	mov [readinfo.name], eax
266	.readretry:	271	.readretry:
267	mov ebx, readinfo	272	mov ebx, readinfo
268	mov eax, [ebp+viewer_data.hPlugin]	273	mov eax, [ebp+viewer_data.hPlugin]
269	test eax, eax	274	test eax, eax
270	jz .native	275	jz .native
271	push ecx ebp	276	push ecx ebp
272	push 8192	277	push 8192
273	push [ebx+readinfo.data-readinfo]	278	push [ebx+readinfo.data-readinfo]
274	push [ebp+viewer_data.hWorkFile]	279	push [ebp+viewer_data.hWorkFile]
275	call [eax+PluginInfo.read]	280	call [eax+PluginInfo.read]
276	pop ebp ecx	281	pop ebp ecx
277	mov ebx, eax	282	mov ebx, eax
278	cmp eax, -1	283	cmp eax, -1
279	jnz .readok	284	jnz .readok
280	xor ebx, ebx	285	xor ebx, ebx
281	jmp .readok	286	jmp .readok
282	.native:	287	.native:
283	push 70	288	push 70
284	pop eax	289	pop eax
285	int 40h	290	int 40h
286	test eax, eax	291	test eax, eax
287	jz .readok	292	jz .readok
288	cmp eax, 6	293	cmp eax, 6
289	jz .readok	294	jz .readok
290	.readerr:	295	.readerr:
291	call ask_retry_ignore	296	call ask_retry_ignore
292	jz .readretry	297	jz .readretry
293	.readok:	298	.readok:
294	sub [ebp+viewer_data.buf_pos], 8192	299	sub [ebp+viewer_data.buf_pos], 8192
295	add ebx, 16384-8192	300	add ebx, 16384-8192
296	mov [ebp+viewer_data.buf_size], ebx	301	mov [ebp+viewer_data.buf_size], ebx
297	mov eax, [ebp+viewer_data.buf_pos]	302	mov eax, [ebp+viewer_data.buf_pos]
298	cmp ecx, 16384-8192	303	cmp ecx, 16384-8192
299	jnz .buffered	304	jnz .buffered
300	.err:	305	.err:
301	stc	306	stc
302	popa	307	popa
303	ret	308	ret
304	.buffered:	309	.buffered:
305	cmp [ebp+viewer_data.encoding], encodings.unicode	310	cmp [ebp+viewer_data.encoding], encodings.unicode
306	jz .unicode	311	jz .unicode
307	mov al, [eax]	312	mov al, [eax]
308	.done:	313	.done:
309	mov [esp+28], al	314	mov [esp+28], al
310	inc [ebp+viewer_data.buf_pos]	315	inc [ebp+viewer_data.buf_pos]
311	clc	316	clc
312	popa	317	popa
313	ret	318	ret
314		319
315	.unicode:	320	.unicode:
316	inc [ebp+viewer_data.buf_pos]	321	inc [ebp+viewer_data.buf_pos]
317	cmp [bForHex], 0	322	cmp [bForHex], 0
318	jnz @f	323	jnz @f
319	call read_unicode_char	324	call read_unicode_char
320	jmp .done	325	jmp .done
321	@@:	326	@@:
322	mov ax, [eax]	327	mov ax, [eax]
323	mov [esp+29], ah	328	mov [esp+29], ah
324	jmp .done	329	jmp .done
325		330
326	viewer_get_prev_char:	331	viewer_get_prev_char:
327	pusha	332	pusha
328	lea ecx, [ebp+viewer_data.buf]	333	lea ecx, [ebp+viewer_data.buf]
329	cmp [ebp+viewer_data.buf_pos], ecx	334	cmp [ebp+viewer_data.buf_pos], ecx
330	ja .buffered	335	ja .buffered
331	mov eax, dword [ebp+viewer_data.buf_start]	336	mov eax, dword [ebp+viewer_data.buf_start]
332	mov edx, dword [ebp+viewer_data.buf_start+4]	337	mov edx, dword [ebp+viewer_data.buf_start+4]
333	test eax, eax	338	test eax, eax
334	jnz @f	339	jnz @f
335	test edx, edx	340	test edx, edx
336	jnz @f	341	jnz @f
337	stc	342	stc
338	jmp .ret	343	jmp .ret
339	@@:	344	@@:
340	sub eax, 8192	345	sub eax, 8192
341	sbb edx, 0	346	sbb edx, 0
342	jnc @f	347	jnc @f
343	xor eax, eax	348	xor eax, eax
344	xor edx, edx	349	xor edx, edx
345	@@:	350	@@:
346	call viewer_seek	351	call viewer_seek
347	add [ebp+viewer_data.buf_pos], 8192	352	add [ebp+viewer_data.buf_pos], 8192
348	.buffered:	353	.buffered:
349	mov eax, [ebp+viewer_data.buf_pos]	354	mov eax, [ebp+viewer_data.buf_pos]
350	dec eax	355	dec eax
351	cmp [ebp+viewer_data.encoding], encodings.unicode	356	cmp [ebp+viewer_data.encoding], encodings.unicode
352	jz .unicode	357	jz .unicode
353	mov [ebp+viewer_data.buf_pos], eax	358	mov [ebp+viewer_data.buf_pos], eax
354	mov al, [eax]	359	mov al, [eax]
355	mov [esp+28], al	360	mov [esp+28], al
356	.done:	361	.done:
357	clc	362	clc
358	.ret:	363	.ret:
359	popa	364	popa
360	ret	365	ret
361		366
362	.unicode:	367	.unicode:
363	dec eax	368	dec eax
364	mov [ebp+viewer_data.buf_pos], eax	369	mov [ebp+viewer_data.buf_pos], eax
365	call read_unicode_char	370	call read_unicode_char
366	jmp .done	371	jmp .done
367		372
368	read_unicode_char:	373	read_unicode_char:
369	mov ax, [eax]	374	mov ax, [eax]
370	uni2ansi_char:	375	uni2ansi_char:
371	test [ebp+viewer_data.flags], 4	376	test [ebp+viewer_data.flags], 4
372	jz @f	377	jz @f
373	xchg al, ah	378	xchg al, ah
374	@@:	379	@@:
375	cmp ax, 0x80	380	cmp ax, 0x80
376	jb .ret	381	jb .ret
377	cmp ax, 0x401	382	cmp ax, 0x401
378	jz .yo1	383	jz .yo1
379	cmp ax, 0x451	384	cmp ax, 0x451
380	jz .yo2	385	jz .yo2
381	cmp ax, 0x410	386	cmp ax, 0x410
382	jb .unk	387	jb .unk
383	cmp ax, 0x440	388	cmp ax, 0x440
384	jb .rus1	389	jb .rus1
385	cmp ax, 0x450	390	cmp ax, 0x450
386	jb .rus2	391	jb .rus2
387	.unk:	392	.unk:
388	mov al, ' '	393	mov al, ' '
389	.ret:	394	.ret:
390	ret	395	ret
391	.yo1:	396	.yo1:
392	mov al, 'ð'	397	mov al, 'ð'
393	ret	398	ret
394	.yo2:	399	.yo2:
395	mov al, 'ñ'	400	mov al, 'ñ'
396	ret	401	ret
397	.rus1:	402	.rus1:
398	; 0x410-0x43F -> 0x80-0xAF	403	; 0x410-0x43F -> 0x80-0xAF
399	add al, 0x70	404	add al, 0x70
400	ret	405	ret
401	.rus2:	406	.rus2:
402	; 0x440-0x44F -> 0xE0-0xEF	407	; 0x440-0x44F -> 0xE0-0xEF
403	add al, 0xA0	408	add al, 0xA0
404	ret	409	ret
405		410
406	fld_uint64:	411	fld_uint64:
407	fild qword [eax]	412	fild qword [eax]
408	test byte [eax+7], 80h	413	test byte [eax+7], 80h
409	jz .ret	414	jz .ret
410	fadd [@f]	415	fadd [@f]
411	.ret:	416	.ret:
412	ret	417	ret
413	@@ dq 18446744073709551616.0 ;0x10000000000000000	418	@@ dq 18446744073709551616.0 ;0x10000000000000000
414		419
415	viewer_draw_text:	420	viewer_draw_text:
416	call viewer_seek_to_current	421	call viewer_seek_to_current
417	xor eax, eax	422	xor eax, eax
418	xor edx, edx	423	xor edx, edx
419	call get_console_ptr	424	call get_console_ptr
420	mov ah, [view_status_color]	425	mov ah, [view_status_color]
421	lea esi, [ebp+viewer_data.filename]	-
422	mov dl, 3	-
423	mov ecx, [cur_width]	426	mov ecx, [cur_width]
424	sub ecx, 44	427	sub ecx, 44
425	cmp ecx, 20	428	cmp ecx, 20
426	jae .5	429	jae @f
427	mov cl, 20	430	mov cl, 20
428	.5:	-
429	lodsb	-
430	cmp al, '/'	-
431	jnz @f	-
432	dec edx	-
433	jz .6	-
434	@@:	-
435	stosw	-
436	loop .5	-
437	.6:	-
438	dec ecx	-
439	stosw	-
440	push esi	-
441	@@:	431	@@:
442	inc esi	-
443	cmp byte [esi-1], 0	432	call viewedit_draw_filename
444	jnz @b	-
445	sub esi, [esp]	-
446	dec esi	-
447	cmp ecx, esi	-
448	jae .7	-
449	mov al, '.'	-
450	stosw	-
451	stosw	-
452	stosw	-
453	sub ecx, 3	-
454	sub esi, ecx	-
455	add [esp], esi	-
456	.7:	-
457	pop esi	-
458	@@:	-
459	lodsb	-
460	test al, al	-
461	jz @f	-
462	dec ecx	-
463	stosw	-
464	jmp @b	-
465	@@:	-
466	mov al, ' '	-
467	add ecx, 8	433	add ecx, 11
468	rep stosw	434	rep stosw
469	movzx esi, [ebp+viewer_data.encoding]	435	movzx esi, [ebp+viewer_data.encoding]
470	lea esi, [encodings.names+esi*8]	436	lea esi, [encodings.names+esi*8]
-		437	push edi esi
-		438	dec edi
-		439	dec edi
-		440	std
471	mov cl, 8	441	add esi, 8
-		442	@@:
-		443	dec esi
-		444	cmp byte [esi], ' '
-		445	jz @b
472	@@:	446	@@:
473	lodsb	447	lodsb
474	stosw	448	stosw
-		449	cmp esi, [esp]
475	loop @b	450	jae @b
-		451	cld
-		452	pop esi edi
476	mov al, ' '	453	mov al, ' '
477	mov cl, 8	454	mov cl, 13
478	rep stosw	455	rep stosw
479	std	456	std
480	push edi	457	push edi
481	mov edx, dword [ebp+viewer_data.filesize+4]	458	mov edx, dword [ebp+viewer_data.filesize+4]

Subversion Repositories Kolibri OS

(root)/programs/fs/kfar/trunk/viewer.inc – Rev 589 → 814