OpenEuphoria

1. profiling

• Posted by "Juergen Luethje" <j.lue at gmx.de> Feb 12, 2005
• 598 views

Hi all,

the 'ex.pro' files can contain much code, that is not used by the
program at all. This can considerably increase the size of the file,
so that finding the lines that are actually of interest often takes
rather long.

I'd appreciate it very much, if 'ex.pro' files would not contain
routines, that are never used by the program.

Rob, what do you think?

Regards,
   Juergen

-- 
Have you read a good program lately?

3. Re: profiling

• Posted by Tone Škoda <tskoda at email.si> Feb 13, 2005
• 538 views

i had just made a ".pro viewer".
i'll post it soon.
to me its very helpful.


Juergen Luethje wrote:
> 
> Hi all,
> 
> the 'ex.pro' files can contain much code, that is not used by the
> program at all. This can considerably increase the size of the file,
> so that finding the lines that are actually of interest often takes
> rather long.
> 
> I'd appreciate it very much, if 'ex.pro' files would not contain
> routines, that are never used by the program.
> 
> Rob, what do you think?
> 
> Regards,
>    Juergen
> 
> -- 
> Have you read a good program lately?
> 
>

5. Re: profiling

• Posted by Tone Škoda <tskoda at email.si> Feb 13, 2005
• 542 views
• Last edited Feb 14, 2005

I've uploaded it to my site along with some other things:

http://www10.brinkster.com/tskoda/euphoria.asp


Brian Broker wrote:
> 
> Tone Škoda wrote:
> > 
> > i had just made a ".pro viewer".
> > i'll post it soon.
> > to me its very helpful.
> 
> Cool!  I thought about doing that once but was waiting for somebody to beat 
> me to it.  ;)
> 
> -- Brian
>

7. Re: profiling

• Posted by Tone Škoda <tskoda at email.si> Feb 15, 2005
• 568 views

Juergen Luethje wrote:

> Also to me it looks very helpful, thank you!
> There is one little thing though. When after clicking at the [next] or
> [previous] button a line is highlighted that is longer than the width of
> the window, the text automatically scrolls to the right. Can I disable
> that automatic scrolling?


Just replace this new procedure with old one ("select line" part changed):

procedure jump (integer index_)
    integer charIndex 
    integer line
    integer startIndex, endIndex
    CurIndex = index_
    --//
    --// jump to line:
    --//=>
        line = Data [index_] [LINE_NUM]
        charIndex = sendMessage (TextEdit, EM_LINEINDEX, line - 1, 0)
        setFocus (TextEdit)
        Void = sendMessage (TextEdit,EM_SETSEL, charIndex, charIndex)
        --//
        --// select line:
        --//=>
            --// edittext_select_line (TextEdit, line)
            startIndex = sendMessage (TextEdit, EM_LINEINDEX, line - 1, 0)
endIndex = startIndex + sendMessage (TextEdit, EM_LINELENGTH,
            startIndex, 0)
            setFocus (TextEdit)
            Void = sendMessage (TextEdit, EM_SETSEL, endIndex, startIndex)
            setFocus (TextEdit)
        edittext_ensure_in_center (TextEdit, line, 0)
        setFocus (TextEdit)
    statusbar_part__settext_and_resize (StatusWin, SB_CUR,
            sprintf ("%d/%d", {index_, length (Data)}))
    statusbar_part__settext_and_resize (StatusWin, SB_PERC,
            sprintf ("%.2f%%", {100 * Data [index_] [LINE_VAL] / Sum}))
    statusbar_part__settext_and_resize (StatusWin, SB_MSG,
            "")
end procedure