This repository is a mirror!

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

        cmp     [hCCPrefix], 0
        jne     .prefixok

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

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

        stdcall StrLen, [hCCPrefix]

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
begin
        push    ecx edx
        stdcall GetEditorFile, [.editor]
        stdcall SearchForLabelPrefix, [eax+TOpenFile.hFileName], [.caretY]
        pop     edx ecx
        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 SearchForLabelPrefix, .editor, .caretY
proc SearchForLabelPrefix, .hFilename, .line
begin
        push    edx esi

        stdcall GetEditorFile, [.editor]
        stdcall SearchFileInGlobalIndex, [eax+TOpenFile.hFileName]
        stdcall SearchFileInGlobalIndex, [.hFilename]
        jc      .not_found

        mov     esi, eax        ; pointer to TArray of strinigs for needed file.
        mov     edx, [.caretY]
        mov     edx, [.line]
        dec     edx

        cmp     edx, [esi+TArray.count]
        jb      .lineok

        mov     edx, [esi+TArray.count]
        dec     edx