Subversion Repositories Kolibri OS

; Copyright (c) 2009, 

; All rights reserved.

;

; Redistribution and use in source and binary forms, with or without

; modification, are permitted provided that the following conditions are met:

;       * Redistributions of source code must retain the above copyright

;       notice, this list of conditions and the following disclaimer.

;       * Redistributions in binary form must reproduce the above copyright

;       notice, this list of conditions and the following disclaimer in the

;       documentation and/or other materials provided with the distribution.

;       * Neither the name of the  nor the

;       names of its contributors may be used to endorse or promote products

;       derived from this software without specific prior written permission.

;

; THIS SOFTWARE IS PROVIDED BY Alexey Teplov nickname  ''AS IS'' AND ANY

; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

; DISCLAIMED. IN NO EVENT SHALL  BE LIABLE FOR ANY

; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;

; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND

; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

;*****************************************************************************

;;;;;;;;;;;;;;;;;;

format MS COFF

public EXPORTS

section '.flat' code readable align 16

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;Get info about

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

include '../../../../macros.inc'

align 4

initialization_font:

; esp+0 = dd back

; çàïîëíÿåì ìàññèâ - ñòðóêòó äëÿ ïîëó÷åíèÿ êîë-âà ôàéëîâ

pushad

        xor     eax,eax

        inc     eax

        mov     [number_function],eax

;structure is completed

        mov     eax,70

        mov     ebx,dword struct_f_info

        mcall

;IF ERROR FT then exit

        test    eax,eax

        jnz     .exit

;IF ERROR folder is not found then exit

        test    ebx,ebx

        mov     eax,ebx

        jnz     .exit

;Get quantity files

        mov     eax,[buffer_32.quantity_files]

        imul    eax,304

        add     eax,32          ; ??

        push    eax         ;save eax â eax ðàçìåð íóæíîé íàì ïàìÿòè â áàéòàõ

;init memory

        mov     eax,68

        mov     ebx,11

        mcall

        test    eax,eax

        jz     .exit

        inc     ebx     ;âûäåëèòü áëîê â ecx áàéò

        pop     ecx

        mov     eax,68

        mcall

        mov     dword [fulder_array_point],eax  ;save point for memory's fulder

;â eax óêàçàòåëü íà áëîê

        mov     [buffer_read_d],eax             ;point to new array

        mov     eax,[buffer_32.quantity_files]

        mov     [read_block],eax

;get in buffer info of files and sub dir current dir

        mov     eax,70

        mov     ebx,dword struct_f_info

        mcall

;ïîëó÷èëè èíôîðìàöèþ î ôàéëàõ.

        mov     ebp, dword [buffer_read_d] ;point to structure

        mov     ecx, dword [ebp+4]         ;êîë-âî áëîêîâ ÁÄÂÊ

        mov     dword [save_ecx],ecx

        add     ebp, 32 ;ñìåùàåìñÿ äî ÁÄÂÊ

        mov     dword [save_ebp],ebp

        cld     ;óñòàíîâêà ôëàãà íàïðàâëåíèÿ

align 4

.start_loop:

        push    ecx

        lea     edi,[ebp+0x28] ;â edi óêàçàòåëü íà íà÷àëî èìåíè.

        xor     eax,eax

        mov     ecx,263

        repne    scasb   ;íàéäåì êîíåö ñòðîêè

;;;;;;;;;;;;;;;;;;;;;;;

        sub     edi,5   ;.ksf,0

        lea     esi,[name_font]

        mov     eax,dword[edi]

        or      eax,0x20202000  ; ñäåëàåì ðàñøèðåíèå ñòðî÷íûìè áóêâàìè.

        cmp     eax,dword[esi]

        jnz     @f

;;;;;;;; óðà ýòî íàø ôàéë ò.å. íàø øðèôò ìû íàøëè íóæíûé ôàéëèê ))

;òåïåðü íóæíî òî÷íî óáåäèòüñÿ ÷òî ýòî íàø è òîëüêî íàø ôàéëèê

;çàãðóçèì çàãîëîâîê ôàéëà è óçíàåì åãî ðàçìåð ãëèôà.

        call    alloc_mem       ; âûäåëèì îçó ñâîèõ ïåðåìåííûõ

; ñåé÷àñ íàì íóæíî ñôîðìèðîâàòü èìÿ ôàéëà ñ ïîëíûì ïóòåì

        mov     eax,dword [alloc_memory_point]

        lea     edi,dword [eax+4]

        lea     esi,[name_fulder]

        mov     ecx,name_fuld_end

        rep     movsb   ;ïåðåíîñèì ïóòü

        mov     al,'/'

        stosb

        lea     esi,[ebp+0x28] ;â esi óêàçàòåëü íà íà÷àëî èìåíè.

align 4

.loop_b:

        lodsb

        stosb

        test    al,al

        jnz     .loop_b

;        mov     edi,name_of_file ; [ebp+0x28] ;â edi óêàçàòåëü íà íà÷àëî èìåíè.

;get in buffer info above own file

        xor     eax,eax

        mov     dword [number_function],eax

        mov     dword [index_start_block],eax   ;ïîçèöèÿ â ôàéëå äëÿ ÷òåíèÿ äàííûõ

        mov     dword [flags_],eax              ;ñòàðøàÿ ïîçèöèÿ äëÿ ÷òåíèÿ äàííûõ

        mov     dword [read_block],8            ;ñêîëüêî áàéò ÷èòàòü íàì íóæíî 8 áàéò

        mov     dword [buffer_read_d],file_buffer ; óêàçàòåëü íà áóôåð êóäà áóäóò çàïèñàíû äàííûå

        mov     eax,dword [alloc_memory_point]

        lea     edi,dword [eax+4]

        mov     dword [offset_to_string],edi

        mov     eax,70

        mov     ebx,dword struct_f_info

        mcall

;;;;;;;;;;;;;;;; ïðîâåðèì ôîðìàò çàãîëîâêà

        mov     eax,ebx

        mov     eax,dword [file_buffer]

        mov     ebx,dword [type_fnt]

        cmp     eax,ebx

        jnz     @f

;;;;;;; îòëè÷íî ñåé÷àñ ïðîâåðèëè ÷òî çàãîëîâîê èìåííî òîò êîòîðûé íàì íóæåí

; ñåé÷àñ íóæíî ïåðåðàñïðåäåëèòü áëîêè ò.å. ïî ìåðå íàõîæäåíèÿ áóäåì ïåðåíîñèòü áëîêè

; â íà÷àëî áóôåðà

        mov     dword [save_point_nt],ebp

        pop     ecx

        xor     eax,eax

        jmp     .exit

align 4

@@:     pop     ecx

        add     ebp,304

        dec     ecx

        jnz     .start_loop

;        loop    .start_loop

        or     eax,-1

;;;;;;;; ïðîøëèñü - âñå èíòåðåñóùþùèå øðèôòû ïåðåìåñòèëè â íà÷àëî áëîêà.

align 4

.exit:  mov     dword [esp+28],eax

popad

ret

align 4

get_font:

; ïîèñê â ìàññèâå øðèôòà ïðè ñîâïàäåíèè ócëîâèé çàãðóçêà øðèôòà

; esp+4 = dd width font shl 16 +hight font

; esp+0 = dd back

;pop     eax

;        pop     dword [font_x_y]

;push    eax

pushad

        mov     eax,dword [esp+32+4]

        mov     dword [font_x_y],eax

        xor     eax,eax

        mov     dword [number_function],eax

        mov     dword [index_start_block],eax   ;ïîçèöèÿ â ôàéëå äëÿ ÷òåíèÿ äàííûõ

        mov     dword [flags_],eax              ;ñòàðøàÿ ïîçèöèÿ äëÿ ÷òåíèÿ äàííûõ

        mov     dword [read_block],8            ;ñêîëüêî áàéò ÷èòàòü íàì íóæíî 8 áàéò

        mov     dword [buffer_read_d],file_buffer ; óêàçàòåëü íà áóôåð êóäà áóäóò çàïèñàíû äàííûå

        mov     eax,dword [alloc_memory_point]

        lea     edi,dword [eax+4]

        mov     dword [offset_to_string],edi

        mov     eax,70

        mov     ebx,dword struct_f_info

        mcall

;;;;;;;;;;;;;;;; ïðîâåðèì ôîðìàò çàãîëîâêà

        mov     eax,ebx

        mov     eax,dword [file_buffer]

        mov     ebx,dword [type_fnt]

        cmp     eax,ebx

        mov     ecx,dword [file_buffer.font_size]

        mov     edx,dword [font_x_y]

        cmp     ecx,edx

        mov     ecx, 4096;dword [ebp+32]     ;ðàçìåð ôàéëà äî 4294967296 áàéò ò.å. 4 Ãá

        mov     dword [read_block],ecx

        mov     eax,68

        mov     ebx,12

        mcall

        mov     dword [font_array_point],eax    ;save point to array

        mov     dword [buffer_read_d],eax

;load font

        mov     ebx,dword struct_f_info

        mov     eax,70

        mcall

        test    eax,eax

        jnz     .exit

        lea     eax,[buffer_read_d]

        mov     eax,dword [eax]

        mov     ebx,dword [eax+8]

        add     eax,ebx

;        add     eax,dword [eax+8]

;        add     eax,dword [buffer_read_d]

        mov     dword [font_array_data],eax

        xor     eax,eax

        jmp     .ok

;here error file system

align 4

.exit:

        or      eax,-1

align 4

.ok:    mov     dword [esp+28],eax       ;âåðíåì îøèáêó

        popad

        ret 4

; ïîèñê âûâîä ñòîðî÷êè ïî ñèìâîëüíî ñôîðèðîâàííîãî øðèôòîì òåêñòà

; esp+12= dd x shl 16 + y x- êîîðäèíàòà ïî Õ, y - êîîðäèíàòà ïî Y

; esp+8 = dd point to color of background and font

; esp+4 = dd point to ASCIIZ

; esp+0 = dd back

align 4

font_draw_on_string:

pushad

        mov     esi,dword [esp+4+32] ;ASCIIZ

        mov     edx,dword [esp+12+32]  ; x shl 16 +y

        mov     ecx,dword [font_x_y]  ;ðàçìåð ãëèôà x shl 16 +y

        mov     edi,dword [esp+8+32]     ;óêàçàòåëü íà ïàëèòðó èç öâåòà è ôîíà

        xor     ebp,ebp         ;ñì 65 ôóíêöèþ ))

        cld

align 4

@@:     ;pushad

        xor     eax,eax

        lodsb

        test    al,al

        jz      .return

        shl     eax,4         ;óìíîæàåì íà 16 ò.ê. ýòî âûñîòà ãëèôà

        mov     ebx,dword [font_array_data]    ; òóò ðàñïîëîãàþòñÿ ãëèôû ñèìâîëîâ

        add     ebx,eax

        push    esi

        mov     esi,1

        mov     eax,65

        mcall

        pop     esi

        add     edx,8 shl 16    ;ñëåäóþùèé ñèìâîë øèðèíà ñèìâîëà = 8 òî÷êàì

        jmp     @b

align 4

.return:

popad

ret 12

align 4

; esp+4 = dd point to color of background and font

show_all_glif:

pushad

        mov     edx,10 shl 16+20 ;dword [esp+12+32]  ; x shl 16 +y

        mov     ecx,128 shl 16 +256;dword [font_x_y]  ;ðàçìåð ãëèôà x shl 16 +y

        mov     edi,dword [esp+4+32]     ;óêàçàòåëü íà ïàëèòðó èç öâåòà è ôîíà

        xor     ebp,ebp         ;ñì 65 ôóíêöèþ ))

align 4

@@:

        mov     ebx,dword [font_array_data]    ; òóò ðàñïîëîãàþòñÿ ãëèôû ñèìâîëîâ

        mov     esi,1

        mov     eax,65

        mcall

popad

ret 4

align 4

free_fulder_info:

;îñâîáîäèòü ïàìÿòü âûäåëåíóþ äëÿ ïîëó÷åíèÿ áëîêîâ ÁÄÂÊ

pushad

        mov     ecx, dword [fulder_array_point]

        mov     eax,68

        mov     ebx,13

        mcall

        test    eax,eax

;        jnz     @f

        mov      dword [esp+28],eax       ;âåðíåì îøèáêó

;align 4

;@@:

popad

        ret

align 4

free_font:

;îñâîáîäèòü ïàìÿòü âûäåëåíóþ äëÿ ïîëó÷åíèÿ áëîêîâ ÁÄÂÊ

pushad

        mov     ecx, dword [font_array_point]

        mov     eax,68

        mov     ebx,13

        mcall

        test    eax,eax

;        jnz     @f

        mov      dword [esp+28],eax       ;âåðíåì îøèáêó

;align 4

;@@:

popad

        ret

align 4

; alloc mem get 4 Kb for own data

alloc_mem:

        pushad

        mov     eax, dword [alloc_memory_point]

        test    eax,eax

        jnz     .mem_allocating

        mov     eax,68

        mov     ebx,12

        mov     ecx,4096

        mcall

        mov     dword [alloc_memory_point],eax  ; ïðè ïåðâîì âõîæäåíèè âûäåëÿåì 4 êá ÎÇÓ è ñîõðàíÿåì óêàçàòåëü

        mov     dword [eax],-1

        popad

        ret

align 4

.mem_allocating:

        mov     ebp, dword [eax]

        mov     eax,ebp

        cmp     eax, -1

        jnz     .mem_allocating

        mov     eax,68

        mov     ebx,12

        mov     ecx,4096

        mcall

        mov     dword [ebp],eax ; ïðè ïåðâîì âõîæäåíèè âûäåëÿåì 4 êá ÎÇÓ è ñîõðàíÿåì óêàçàòåëü

        mov     dword [ebp],-1

        popad

        ret

align 16

EXPORTS:

        dd      sz_initialization_font, initialization_font

        dd      sz_get_font,            get_font

        dd      sz_free_fulder_info,    free_fulder_info

        dd      sz_free_font,           free_font

        dd      sz_font_draw_on_string, font_draw_on_string

        dd      sz_show_all_glif,       show_all_glif

;        dd      szVersion_ch,           0x00000001

;        dd      sz_option_box_draw,     option_box_draw

;        dd      sz_option_box_mouse,    option_box_mouse

        dd      szVersion_fn,           0x00000001

        dd      0,0

sz_initialization_font db 'initialization_font',0

sz_get_font            db 'get_font',0

sz_free_fulder_info    db 'free_fulder_info',0

sz_free_font           db 'free_font',0

sz_font_draw_on_string db 'font_draw_on_string',0

sz_show_all_glif       db 'show_all_glif',0

;sz_check_box_mouse     db 'check_box_mouse',0

;szVersion_ch           db 'version_ch',0

;sz_option_box_draw     db 'option_box_draw',0

;sz_option_box_mouse    db 'option_box_mouse',0

szVersion_fn           db 'version_fn',0

;;;;;;;;;;;

;;Data

;;;;;;;;;;;

align 4

;buffer_font file 'font_8x16.fon' ;øðèôò êîòîðûì áóäåì âûâîäèòü raw ôîðìàò 1bpp

save_ecx        dd      0x0

;buffer_font file 'font01.ksf' ;øðèôò êîòîðûì áóäåì âûâîäèòü raw ôîðìàò 1bpp

alloc_memory_point      dd      0x0     ; point to mem block in RAM 4096-4

;ñòðóêòóðà òàêàÿ â íà÷àëå âûäåëåíîãî áëîêà ðàçìåùàåòñÿ óêàçàòåëü íà äðóãîé âûäåëëíûé áëîê â 4096-4, åñëè ýòî áëîê ïîñëåäíèé, òî dd -1

font_x_y          dd 0x0

fulder_array_point dd 0x0

font_array_point  dd 0x0

font_array_data   dd 0x0        ; ðåàëüíûå äàííûå ò.å. ìàòðèöà øðèôòà

save_ebp          dd 0x0

save_point_nt     dd 0x0

name_fulder       db '/sys/FONTS',0

name_fuld_end=     ($-name_fulder) -1

name_font         db '.ksf',0

type_fnt          db 'kf01'

align 16

struct_f_info:

number_function   dd 0x0

index_start_block dd 0x0

flags_            dd 0x0

read_block        dd 0x0

buffer_read_d     dd buffer_32

free_byte         db 0x0

offset_to_string  dd name_fulder

align 16

file_buffer:

.type_fnt       dd 0x0

.font_size      dd 0x0

align 16

buffer_32:

.head             dd ?

.quantity_block   dd ?

.quantity_files   dd ?

                  rb 20