kolibrios/programs/other/calcplus/calcplus.asm

    VERSION equ "0.4<EFBFBD>"

    use32
    org     0
    db	    'MENUET01'
    dd	    1, main, dataend, memory, stacktop, 0, 0

    include "../../proc32.inc"
    include "../../macros.inc"
    include "../../dll.inc"
    include "../../develop/libraries/box_lib/trunk/box_lib.mac"
;    include "../../debug.inc"
    include "parser.inc"

 ;===============================

    sz_cont db "?#"
    sz_head db "Calc+ [v", VERSION, "]", 0
;    buttons db "789456123()%^-+/*0"
    edb1    edit_box 184, 8, 12, 0, 0, 0, 0, 0, 500, \
		     exp, group, ed_always_focus + ed_focus, 0, 0

 imports:
    library gui, "box_lib.obj"
    import  gui, editbox.draw,	"edit_box",	\
		 editbox.key,	"edit_box_key", \
		 editbox.mouse, "edit_box_mouse"

 ;===============================

 main:
    mov     [ans.buffer], dword "= 0"
    mov     [ans.size], 3 * 6 + 9

    mcall   40, 100111b
    mcall   48, 3, scn, 192


    m2m     [edb1.color],	       [scn.gui_face]
    m2m     [edb1.shift_color],        [scn.gui_select]
    m2m     [edb1.focus_border_color], [scn.gui_face]
    m2m     [edb1.text_color],	       [scn.gui_text]

    mcall   68, 11
    stdcall dll.Load, imports

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

 update:
    mcall   23, 5

    cmp     eax, EV_REDRAW
    je	    ev_redraw
    cmp     eax, EV_KEY
    je	    ev_key
    cmp     eax, EV_BUTTON
    je	    ev_button
    cmp     eax, EV_MOUSE
    je	    ev_mouse

    dec     [timer]
    cmp     [timer], 0
    je	    calc

    jmp     update

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

 ev_redraw:
    mov     edx, [scn.win_body]
    or	    edx, 0x34 shl 24
    mcall   0, <100, 236 + 100>, <100, 164 - 102>, , , sz_head

    mcall   8, <275, 12>, <-17, 12>, 2 + 1 shl 30
    sub     ebx, 12 shl 16
    inc     edx
    mcall

    mcall   4, <279, -14>, [scn.win_title], sz_cont, 1
    add     ebx, 1 shl 16
    mcall

    sub     ebx, 13 shl 16
    inc     edx
    mcall

    call    draw_textbox

;    mov     [but_id], 0x0000000A
;    mov     [txt_id], buttons
;    mov     [txt_x], 16
;    mov     [but_w], 38
;    stdcall draw_button,   4,  42
;    stdcall draw_button,  46,  42
;    stdcall draw_button,  88,  42
;    stdcall draw_button,   4,  66
;    stdcall draw_button,  46,  66
;    stdcall draw_button,  88,  66
;    stdcall draw_button,   4,  90
;    stdcall draw_button,  46,  90
;    stdcall draw_button,  88,  90
;    stdcall draw_button,  88, 114
;
;    stdcall draw_button, 144,  42
;    stdcall draw_button, 186,  42
;    stdcall draw_button, 144,  66
;    stdcall draw_button, 186,  66
;    stdcall draw_button, 144,  90
;    stdcall draw_button, 186,  90
;    stdcall draw_button, 144, 114
;    stdcall draw_button, 186, 114

;    mov     [txt_x], 37
;    mov     [but_w], 80
;    stdcall draw_button,   4, 114

    jmp     update

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

 ev_key:
    mov     [timer], 10

    mcall   2
    cmp     ah, 27
    je	    exit
    cmp     ah, 13
    je	    calc
    invoke  editbox.key, edb1
    jmp     update

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

 ev_button:
    mov     [timer], 10

    mcall   17

    cmp     ah, 1
    je	    exit

    cmp     ah, 19
    jne     .not_del
 .del:
    cmp     [edb1.pos], 0
    je	    update
    mov     eax, exp
    add     eax, [edb1.pos]
    dec     eax
    mov     ebx, exp
    add     ebx, [edb1.size]
    inc     ebx
  @@:
    cmp     eax, ebx
    je	    @f
    mov     cl, [eax + 1]
    mov     [eax], cl
    inc     eax
    jmp     @b
  @@:
    dec     [edb1.pos]
    dec     [edb1.size]
    m2m     [edb1.shift], [edb1.pos]
    jmp     .redraw
 .not_del:

;    cmp     ah, 10
;    jl      update
;    cmp     ah, 50
;    jg      update
;
;    movzx   eax, ah
;    add     eax, buttons
;    sub     eax, 10
;    mov     al, [eax]
;
;    mov     ebx, exp
;    add     ebx, [edb1.size]
;    mov     ecx, exp
;    add     ecx, [edb1.pos]
;  @@:
;    cmp     ebx, ecx
;    je      @f
;    mov     dl, [ebx - 1]
;    mov     [ebx], dl
;    dec     ebx
;    jmp     @b
;  @@:
;
;    mov     [ebx], al
;    inc     [edb1.size]
;    inc     [edb1.pos]

 .redraw:
    call    draw_textbox
    jmp     update

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

 ev_mouse:
    mcall   2

    invoke  editbox.mouse, edb1
    jmp     update

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

 exit:
    mcall   -1

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

 calc:
    stdcall parse
    cmp     [error_n], 0
    jne     .error

    mov     [ans.buffer], word "= "

    stdcall convert_to_str, eax, ans.buffer + 2
    add     eax, 2
    imul    eax, 6
    add     eax, 9
    mov     [ans.size], eax
    jmp     .redraw

 .error:
    cmp     [error_n], 1
    je	    .err_1
    cmp     [error_n], 4
    je	    .err_4

    mov     [ans.buffer +  0], dword "Expe"
    mov     [ans.buffer +  4], dword "cted"
    mov     [ans.buffer +  8], dword " ')'"
    mov     [ans.buffer + 12], byte 0
    mov     [ans.size], 81

    cmp     [error_n], 2
    je	    .redraw
    cmp     [error_n], 3
    je	    .err_3
 .err_1:
    mov     [ans.buffer +  0], dword "Div."
    mov     [ans.buffer +  4], dword " by "
    mov     [ans.buffer +  8], byte  "0"
    mov     [ans.buffer +  9], byte 0
    mov     [ans.size], 63
    jmp     .redraw
 .err_4:
    mov     [ans.buffer +  0], dword "Inpu"
    mov     [ans.buffer +  4], dword "t er"
    mov     [ans.buffer +  8], dword "rror"
    mov     [ans.buffer + 12], byte 0
    mov     [ans.size], 81
    jmp     .redraw
 .err_3:
    mov     [ans.buffer + 10], byte "("
    jmp     .redraw

 .redraw:
    call    draw_textbox
    jmp     update

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

; proc draw_button, x, y
;    mcall   8, <[x], [but_w]>, <[y], 20>, [but_id], [scn.btn_face]
;
;    mcall   1, [x], [y], [scn.win_face]
;    add     ebx, [but_w]
;    mcall
;    add     ecx, 20
;    mcall
;    sub     ebx, [but_w]
;    mcall
;
;    mov     ebx, [x]
;    add     ebx, [txt_x]
;    shl     ebx, 16
;    add     ebx, [y]
;    add     ebx, 7
;    mcall   4, , [scn.win_text], [txt_id], 1
;
;    inc     dword [txt_id]
;    inc     dword [but_id]
;
;    ret
; endp

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

 proc draw_textbox
    mcall   13, <4, 320>, <  8,  23>, [scn.gui_frame]
    mov     edx, [scn.gui_face]
    cmp     [error_n], 0
    je	    @f
    mov     edx, 0xFFAAAA
  @@:
    mcall   13, <  5, 318>, <  9, 21>
    mcall     , <  5, 318>, <  9,  1>, [scn.3d_face]
    mcall     , <  5,	1>, < 10, 20>
    mcall     , <  5, 318>, < 31,  1>, [scn.3d_light]

    mov      ebx, 328
    sub      ebx, [ans.size]
    shl      ebx, 16
    add      ebx, 16
    mov      ecx, [scn.gui_intext]
    or	     ecx, 1 shl 31
    mcall    4, , , ans.buffer

    mcall    1,   4,  8, [scn.win_body]
    mcall     , 323
    mcall     ,    , 30, [scn.3d_light]
    mcall     ,   4

    mov     ebx, 318
    sub     ebx, [ans.size]
    cmp     ebx, 24
    jg	    @f
    mov     ebx, 24
  @@:
    mov     [edb1.width], ebx
    m2m     [edb1.color],	       [scn.gui_face]
    m2m     [edb1.focus_border_color], [scn.gui_face]
    cmp     [error_n],	0
    je	    @f
    mov     [edb1.color],	       0xFFAAAA
    mov     [edb1.focus_border_color], 0xFFAAAA
  @@:
    invoke  editbox.draw, edb1

    ret
 endp

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

 dataend:

 ;===============================

	    rb 2048
 stacktop:

 exp	    rb 512
 exp_pos    rd 1
 exp_lvl    rd 1
 group	    rd 1

 ans.buffer:rb 512
 ans.size   rd 1
 error_n    rd 1

 scn	    sys_colors_new
 timer	    rd 1
 but_id     rd 1
 but_w	    rd 1
 txt_id     rd 1
 txt_x	    rd 1

 memory: