FreeBasic IDE-poseidonFB(Update 2024.03.03)

User projects written in or related to FreeBASIC.
Post Reply
UEZ
Posts: 972
Joined: May 05, 2017 19:59
Location: Germany

Re: FreeBasic IDE-poseidonFB(Update 2022.07.03)

Post by UEZ »

Hi Kuan Hsu,

folding (contracting) for this function doesn't work properly.

Code: Select all

Private Function lzfx_decompress(Byval ibuf As Ubyte Ptr , Byval ilen As UInteger , Byval obuf As Ubyte Ptr , Byref olen As UInteger) As Long
    Dim As Ubyte Ptr ip = ibuf
    Dim As Ubyte Ptr in_end = ip + ilen
    Dim As Ubyte Ptr op = obuf
    Dim As Ubyte Ptr out_end = op + olen
    Dim As UInteger remain_len = 0
    Dim As Long rc

    If(olen = 0) Then Return LZFX_EARGS
    If(ibuf = NULL) Then
        If(ilen <> 0) Then Return LZFX_EARGS
        olen = 0
        Return 0
    End If
    If(obuf = NULL)Then
        If(olen <> 0) Then Return LZFX_EARGS
        Return lzfx_getsize(ibuf, ilen, olen)
    End If
    #Macro my_guess()   'used by lzfx_decompress (better than Gosub)
		rc = lzfx_getsize(ip, ilen - (ip-ibuf), remain_len)
		If rc>=0 Then olen = remain_len + (op - obuf)
		Return rc
	#Endmacro
    Do
        Dim As UInteger ctrl = *ip
        ip+=1
        /' Format 000LLLLL: a literal Byte String follows, of length L+1 '/
        If(ctrl < (1 Shl 5)) Then
            ctrl+=1
            If(op + ctrl > out_end) Then
               ip -=1      /' Rewind To control Byte '/
               my_guess()
            End If
            If(ip + ctrl > in_end) Then Return LZFX_ECORRUPT
            Do
               *op= *ip : op+=1 : ip+=1
               ctrl -= 1
            Loop While(ctrl <> 0)
            /'  Format 	#1 [LLLooooo oooooooo]: backref of length L+1+2
                            ^^^^^ ^^^^^^^^
                            A      B
                        #2 [111ooooo LLLLLLLL oooooooo] backref of length L+7+2
                            ^^^^^          ^^^^^^^^
                            A               B
               In both cases the location of the backref Is computed from the
               remaining part of the Data As follows:
                  location = op - A*256 - B - 1
            '/
        Else
            Dim As UInteger len1 = (ctrl Shr 5)
            Dim As Ubyte Ptr ref = op - ((ctrl And &h1f) Shl 8) -1
            If(len1=7) Then
               len1 += *ip
               ip+=1    /' i.e. Format #2 '/
            End If
            len1 += 2    /' Len Is Now #octets '/
            If(op + len1 > out_end)Then
               ip -= Iif(len1 >= 9, 2 , 1)   /' Rewind To control Byte '/
               my_guess()
            End If
            If(ip >= in_end) Then Return LZFX_ECORRUPT
            ref -=  *ip  : ip += 1
            If(ref < obuf) Then Return LZFX_ECORRUPT
            Do
               *op = *ref : op+= 1 : ref+=1
               len1 -=1
            Loop While (len1 <> 0 )
        End If
    Loop While (ip < in_end)
    olen = op - obuf
    Return 0
End Function
Any change to fix it?
Kuan Hsu
Posts: 586
Joined: Sep 16, 2007 15:12
Location: Taiwan

Re: FreeBasic IDE-poseidonFB(Update 2022.07.03)

Post by Kuan Hsu »

UEZ wrote: Jul 26, 2022 13:46 Hi Kuan Hsu,

folding (contracting) for this function doesn't work properly.
Any change to fix it?
Line #15 and #57, after right-paren, add a Space before Then
It needs modify LexBasic.cxx in scintilla sources, I'll check it :D
Kuan Hsu
Posts: 586
Joined: Sep 16, 2007 15:12
Location: Taiwan

Re: FreeBasic IDE-poseidonFB(Update 2022.07.03)

Post by Kuan Hsu »

UEZ wrote: Jul 26, 2022 13:46 Hi Kuan Hsu,

folding (contracting) for this function doesn't work properly.
Any change to fix it?
Please test this one: https://www.mediafire.com/file/mdvn76s6 ... la.7z/file
UEZ
Posts: 972
Joined: May 05, 2017 19:59
Location: Germany

Re: FreeBasic IDE-poseidonFB(Update 2022.07.03)

Post by UEZ »

Kuan Hsu wrote: Jul 28, 2022 12:45
UEZ wrote: Jul 26, 2022 13:46 Hi Kuan Hsu,

folding (contracting) for this function doesn't work properly.
Any change to fix it?
Please test this one: https://www.mediafire.com/file/mdvn76s6 ... la.7z/file
Looks good for this function. :)

Thx.
demosthenesk
Posts: 237
Joined: Jul 15, 2021 7:23
Location: Greece
Contact:

Re: FreeBasic IDE-poseidonFB(Update 2022.07.03)

Post by demosthenesk »

Debug is not working in Ubuntu Mate 20.04 AppImage and in Windows 11.

1) viewtopic.php?t=31851
I use Ubuntu Mate 20.04 and poseidonFB AppImage V0.499

*) i choose Debug->Build with debug
*) Debug->Run debug

The IDE freezes.

2) i use Windows 11 and poseidonFB V0.499

*) i choose Debug->Build with debug
*) Debug->Run debug

i get the gdb console but i cant input commands like break, list, print or i canot quit gdb with q
demosthenesk
Posts: 237
Joined: Jul 15, 2021 7:23
Location: Greece
Contact:

Re: FreeBasic IDE-poseidonFB(Update 2022.07.03)

Post by demosthenesk »

i have opened some issues on poseidon project but no response...
Is KuanHsu well ?
I wish all be well... :roll:
Kuan Hsu
Posts: 586
Joined: Sep 16, 2007 15:12
Location: Taiwan

Re: FreeBasic IDE-poseidonFB(Update 2022.07.03)

Post by Kuan Hsu »

demosthenesk wrote: Sep 22, 2022 18:59 i have opened some issues on poseidon project but no response...
Is KuanHsu well ?
I wish all be well... :roll:
I got the covid-19 but I'm fine now.
I use Ubuntu Mate 20.04 and poseidonFB AppImage V0.499
poseidonFB can't get the Appimage version message then crash, if I use non-AppImage version on linux( Linux mint ), every thing is fine that I still don't know why?
i use Windows 11 and poseidonFB V0.499
Try:
*) i choose Debug->Build with debug
*) Debug->Run debug
*) Set the breakpoints( Right-click the margin or Ctrl + Left-click the margin )
*) Press 'Run / Continue' button
demosthenesk
Posts: 237
Joined: Jul 15, 2021 7:23
Location: Greece
Contact:

Re: FreeBasic IDE-poseidonFB(Update 2022.07.03)

Post by demosthenesk »

Kuan Hsu wrote: Oct 13, 2022 7:51
demosthenesk wrote: Sep 22, 2022 18:59 i have opened some issues on poseidon project but no response...
Is KuanHsu well ?
I wish all be well... :roll:
I got the covid-19 but I'm fine now.
Kuan Hsu get well my friend !!!
VANYA
Posts: 1834
Joined: Oct 24, 2010 15:16
Location: Ярославль
Contact:

Re: FreeBasic IDE-poseidonFB(Update 2022.11.01)

Post by VANYA »

Hi Kuan Hsu!

How is your health?
I have a question: did you post the latest version of the modified Scintilla?
I compiled libiup_scintilla.so from source codes with your changes from the link: https://bitbucket.org/KuanHsu/poseidonf ... intilla.7z
But the behavior is different when the default parameter is set in the function when the code is collapsed:

Code: Select all

function aa(i as Long , j as Long=100)
In this option, the collapse marker is not displayed with my built library. But your built library works correctly
Kuan Hsu
Posts: 586
Joined: Sep 16, 2007 15:12
Location: Taiwan

Re: FreeBasic IDE-poseidonFB(Update 2022.11.01)

Post by Kuan Hsu »

VANYA wrote: Jan 11, 2023 11:53 Hi Kuan Hsu!

How is your health?
I have a question: did you post the latest version of the modified Scintilla?
I compiled libiup_scintilla.so from source codes with your changes from the link: https://bitbucket.org/KuanHsu/poseidonf ... intilla.7z
But the behavior is different when the default parameter is set in the function when the code is collapsed:

Code: Select all

function aa(i as Long , j as Long=100)
In this option, the collapse marker is not displayed with my built library. But your built library works correctly
I feel tired easily after recovery, but it may be a problem of age, haha~

Yes, It need be updated, I'll do it later

DONE
VANYA
Posts: 1834
Joined: Oct 24, 2010 15:16
Location: Ярославль
Contact:

Re: FreeBasic IDE-poseidonFB(Update 2022.11.01)

Post by VANYA »

Kuan Hsu wrote: Jan 12, 2023 6:44 DONE
Thank you!
UEZ
Posts: 972
Joined: May 05, 2017 19:59
Location: Germany

Re: FreeBasic IDE-poseidonFB(Update 2023.07.20)

Post by UEZ »

Since some releases the CHM FB help file no longer opened with F1 when the cursor is on a keyword.
How can I set F1 again to open the corresponding text in the helpfile?

Thank you for all your efforts on this IDE project :!:
Kuan Hsu
Posts: 586
Joined: Sep 16, 2007 15:12
Location: Taiwan

Re: FreeBasic IDE-poseidonFB(Update 2023.07.20)

Post by Kuan Hsu »

UEZ wrote: Jul 21, 2023 20:18 Since some releases the CHM FB help file no longer opened with F1 when the cursor is on a keyword.
How can I set F1 again to open the corresponding text in the helpfile?

Thank you for all your efforts on this IDE project :!:
Indeed at rev508 x64 version, use F1 for chm help will crash the poseidon, because the 64 bits pointer......, but the rev509 should be OK( I tested on Win7 and Win10 )
Use FB CHM:
(1) Set up the chm path, Menu -> Manual -> create the name and Path and save it
(2) Options -> Preference -> Editor -> Search Help Manual is ON


poseidonFB use HtmlHelp win32 function in hhctrl.ocx, If lacks the ocx, poseidonFB will call the hh command to open and send keyword to chm, if the HtmlHelp not init, the hook function in darkmode may be crash the poseidonFB, at rev509, I should be solved the problem....

Please test and tell me the result, thanks~
UEZ
Posts: 972
Joined: May 05, 2017 19:59
Location: Germany

Re: FreeBasic IDE-poseidonFB(Update 2023.07.20)

Post by UEZ »

Nope, doesn't work although path and Search Help Manual is set.

I'm on Win11 22H2 x64 and using now the x64 version of Poseidon but it doesn't work also with x86 version.
Kuan Hsu
Posts: 586
Joined: Sep 16, 2007 15:12
Location: Taiwan

Re: FreeBasic IDE-poseidonFB(Update 2023.07.20)

Post by Kuan Hsu »

UEZ wrote: Jul 22, 2023 11:32 Nope, doesn't work although path and Search Help Manual is set.

I'm on Win11 22H2 x64 and using now the x64 version of Poseidon but it doesn't work also with x86 version.
I'm sorry I haven't Win11 to test, only win7 and 10 :(
If you have the free time, please test poseidonFB rev.504 and VisualFBEditor, both are use hhctrl.ocx to load the chm, test they are work or not, thanks~
Post Reply