This repository is a mirror!

MAX_CCITEMS = 50


uglobal
  hCCList         dd 0
  hCCPrefix       dd 0
endg

idCCList = 763


proc CreateCCList, .parent
begin
        push    ebx

        invoke  CreateWindowExW, 0, cFormClassName, 0, WS_POPUP,   \
                                0, 0, 300, 120, [.parent], 0, [hInstance], 0
        mov     [hCCList], eax

        invoke  SetPropW, eax, [propOwnerAsmEdit], [.parent]
;        invoke  SetWindowLongA, [hCCList], GWL_HWNDPARENT, [.parent]
        stdcall SubclassWindow, [hCCList], CCParentProc

        invoke  CreateWindowExW, WS_EX_CLIENTEDGE,  cListboxClassName,  0,              \
                WS_CHILD or WS_BORDER or WS_VSCROLL or WS_VISIBLE or LBS_NOINTEGRALHEIGHT or LBS_OWNERDRAWFIXED or LBS_NODATA, \
                0, 0, 300, 120, [hCCList], idCCList, [hInstance], 0
        mov     ebx, eax
        stdcall SubclassWindow, ebx, CCListProc

        stdcall GetDefaultFont, gdfMessage
        invoke  SendMessageW, ebx, WM_SETFONT, eax, TRUE

        invoke  GetWindowLongW, [hCCList], GWL_USERDATA
        mov     ebx, [eax+TArray.count]
        lea     esi, [eax+TArray.array]
        or      eax, -1

.matchloop:
        inc     eax
        cmp     eax, ebx
        je      .notfound1

        mov     ecx, [esi]
        lea     esi, [esi+4]

        mov     ecx, [ecx+TLabel.iName]
        add     ecx, [ptrNames]
        stdcall StringMatchCase, ecx, edi
        jnc     .matchloop

.found:
        invoke  SendMessageW, [hCCList], LB_SETCURSEL, eax, 0
        clc
        return

.notfound1:

        invoke  GetWindowLongW, [hCCList], GWL_USERDATA
        mov     ebx, [eax+TArray.count]
        lea     esi, [eax+TArray.array]
        or      eax, -1

.matchloop2:
        inc     eax
        cmp     eax, ebx
        je      .notfound

        mov     ecx, [esi]
        lea     esi, [esi+4]

        mov     ecx, [ecx+TLabel.iName]
        add     ecx, [ptrNames]
        stdcall StringMatchNoCase, ecx, edi
        jc      .found

        jmp     .matchloop2





.notfound:
        invoke  SendMessageW, [hCCList], LB_SETCURSEL, -1, 0
        stc
        return
endp

  .caret    AECARETXY
  .rect     RECT
;  .workrect RECT
  .word     rw    $100
  .aedit    dd    ?

  .info     MONITORINFO

  .hWord    dd ?

begin
        pushad

        and     [.hWord], 0

        cmp     [hCCList], 0
        je      .finish

        stdcall WaitForCompiler
        jc      .finish

        invoke  GetPropW, [hCCList], [propOwnerAsmEdit]

@@:
        invoke  SetWindowPos, [hCCList], NULL, eax, ecx, 0, 0, SWP_NOSIZE or SWP_NOZORDER or SWP_NOACTIVATE or SWP_NOCOPYBITS

        lea     ebx, [.word]
        invoke  SendMessageW, [.aedit], AEM_GETWORDATCARET, $100, ebx

        stdcall WideCharToUtf8, ebx
        mov     [.hWord], eax

        cmp     word [.word], '.'
        jne     .localok

        cmp     [hCCPrefix], 0
        jne     .prefixok

        stdcall SearchForLabelPrefixInEditor, [.aedit], [.aepos.caretLine]
        mov     [hCCPrefix], eax

.prefixok:
        cmp     [hCCPrefix], 0
        je      .localok

        stdcall StrInsert, [.hWord], [hCCPrefix], 0

; here [.hWord] contains a pointer to the whole name including the parent label.

.localok:

        stdcall ClearCCList

        stdcall SearchTree, [.hWord], ptrLabels


        test    eax, eax
        jz      .destroycc

        mov     esi, [eax]
        test    esi, esi
        jz      .destroycc

        mov     ebx, [esi+TArray.count]
        lea     esi, [esi+TArray.array]

        test    ebx, ebx
        jz      .destroycc

        mov     edi, edx        ; The last word. It points somewhere inside [.hWord], so from this moment to the end of the procedure, this string must not be freed or changed!!!

        invoke  GetWindowLongW, [hCCList], GWL_USERDATA
        mov     edx, eax
        test    edx, edx
        jz      .destroycc




        push    esi ebx

        xor     ecx, ecx

.fill_loop1:


        mov     eax, [esi+TLabel.iName]
        test    eax, eax
        jz      .next1

        add     eax, [ptrNames]

        stdcall StringMatchCase, eax, edi
        jnc     .next1

        stdcall AddArrayItems, edx, 1
        mov     [eax], esi

        inc     ecx
        cmp     ecx, MAX_CCITEMS
        jae     .end_fill_loop1

.next1:
        add     esi, sizeof.TLabel
        dec     ebx
        jnz     .fill_loop1

.end_fill_loop1:

        pop     ebx esi

.fill_loop2:

        mov     eax, [esi+TLabel.iName]
        test    eax, eax
        jz      .next2

        add     eax, [ptrNames]

        stdcall StringMatchCase, eax, edi
        jc      .next2

        stdcall StringMatch, eax, edi
        jnc     .next2

        stdcall AddArrayItems, edx, 1
        mov     [eax], esi

        inc     ecx
        cmp     ecx, 2*MAX_CCITEMS
        jae     .end_fill_loop2

.next2:
        add     esi, sizeof.TLabel
        dec     ebx
        jnz     .fill_loop2

.end_fill_loop2:

        push    ecx
        invoke  SetWindowLongW, [hCCList], GWL_USERDATA, edx
        pop     ecx

        test    ecx, ecx
        jz      .destroycc

        invoke  SendMessageW, [hCCList], LB_SETCOUNT, ecx, 0

        stdcall SelectCCList, edi


        invoke  SetWindowPos, [hCCList], NULL, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_NOZORDER or SWP_SHOWWINDOW or SWP_NOACTIVATE

.finish:
        stdcall StrDel, [.hWord]
        popad
        return

.destroycc:
        invoke  PostMessageW, [hCCList], WM_CLOSE, 0, 0
        jmp     .finish
endp


; If str1 begins with str2 then returns CF=1
; else CF=0
;
; Case insensitive! Two EMPTY strings DOES match!
;
; preserves all registers.

proc StringMatch, .str1, .str2
begin
        push    esi edi eax

        mov     esi, [.str1]
        mov     edi, [.str2]

.loop:
        mov     al, [edi]
        lea     edi, [edi+1]

        test    al,al
        jz      .yesmatch

        mov     ah, [esi]
        lea     esi, [esi+1]

        test    ah,ah
        jz      .notmatch

        or      eax, $2020
        cmp     al,ah
        je      .loop

.notmatch:
        clc
        pop     eax edi esi
        return

.yesmatch:
        stc
        pop     eax edi esi
        return
endp





; If str1 begins with str2 then returns CF=1
; else CF=0
;
; Case sensitive! Two EMPTY strings does NOT match!
;
; preserves all registers.

proc StringMatchCase, .str1, .str2
begin
        push    esi edi eax

        mov     esi, [.str1]
        mov     edi, [.str2]

.loop:
        mov     al, [edi]
        lea     edi, [edi+1]

        test    al,al
        jz      .match

        mov     ah, [esi]
        lea     esi, [esi+1]

        test    ah,ah
        jz      .notmatch

        cmp     al,ah
        je      .loop

.notmatch:
        clc
        pop     eax edi esi
        return

.match:
        cmp     esi, [.str1]
        je      .notmatch

.yesmatch:
        stc
        pop     eax edi esi
        return
endp



; If str1 begins with str2 then returns CF=1
; else CF=0
;
; Case insensitive! Two EMPTY strings does NOT match!
;
; preserves all registers.

proc StringMatchNoCase, .str1, .str2
begin
        push    esi edi eax

        mov     esi, [.str1]
        mov     edi, [.str2]

.loop:

.notmatch:
        clc
        pop     eax edi esi
        return

.match:



        cmp     esi, [.str1]
        je      .notmatch

.yesmatch:
        stc
        pop     eax edi esi
        return
endp









; searches the preprocessed source for the last global label definition before the
; specified line in the file. Returns the name of this label as a string in eax.
; If such label is not found, returns eax=0

proc SearchForLabelPrefixInEditor, .editor, .caretY