Page 16 of 21 FirstFirst ... 61415161718 ... LastLast
Results 151 to 160 of 203

Thread: thinBASIC 1.9.16.X

  1. #151
    thinBasic MVPs
    Join Date
    Oct 2012
    Location
    Germany
    Age
    55
    Posts
    1,555
    Rep Power
    174
    I have an Error- but i have no time to locate the cause. My girlfriend is annoying me to play something...

    I loaded the above posted AVL-Tree-example into thinICE- then let it run (f5)
    after ending your sample and thereafter try ending thinICE by pressing esc-key i get message of undeclared variable in tControl_Codefield.InputKeyboard line 2471
    (bResult) which is a static and declared for sure few lines above (2467)
    Last edited by ReneMiner; 05-02-2016 at 01:41.
    I think there are missing some Forum-sections as beta-testing and support

  2. #152
    Thank You Eros for adding open recent files/open from recent paths. this makes life easier

  3. #153
    thinBasic MVPs
    Join Date
    Oct 2012
    Location
    Germany
    Age
    55
    Posts
    1,555
    Rep Power
    174
    I've found a solution for the above described "bug", it's caused by order.

    Will need a few hours to check all my scriptunits and apply the rule i've found.

    Local Static variables inside functions must be very first within the function.

    This is valid syntax:

    1
    2
    3
    4
    5
    6
    7
    ' CORRECT :)
     
    Function f()
      Static bStatic As Boolean    ' static first!
       
      If <condition> Then Exit Function
    End Function

    this is not valid - illegal - bad - do not do this:


    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    ' WRONG ! WRONG ! WRONG ! :(
     
    Function f()
      If <condition> Then Exit Function
     
    ' never exit a function before local statics are declared!
       
      Static bStatic As Boolean
     
    End Function
     
    ' WRONG ! WRONG ! WRONG ! :(

    +++

    to thinBasic-Helpfile,
    concerning AVL-tree.

    the below listed functions have a wrong parameter-name (pHash instead of pTree) in parameters table:
    Tree_Clone
    Tree_Exists
    Tree_Get
    Tree_Validate
    Last edited by ReneMiner; 06-02-2016 at 14:20.
    I think there are missing some Forum-sections as beta-testing and support

  4. #154
    thinBasic author ErosOlmi's Avatar
    Join Date
    Sep 2004
    Location
    Milan - Italy
    Age
    57
    Posts
    8,818
    Rep Power
    10
    Thanks René for founding that.

    In thinBasic local variables are allocated when they are encountered.
    If function exits before encountering a variable declaration, that variable is not declared.

    There are some internal optimizations that can be influenced by the above behave like:


    • when a script function is executed the very first time, thinBasic keep track of the allocated variable and function parameters.
      From the second execution it optimize local function stack using the counter variable, counted during first execution.
      If not all variables were encountered during first execution, something weird can happen (usually a GPF)
    • static variables are allocated not in function execution stack (that is local to the execution and destroyed when function execution ends) but inside internal function data structure (one for each script function) and never destroyed. This because static variables must retain their value across function executions. If a static variable is not visible the very first time a function is executed, a GPF can occurs.


    I will see if I can optimize something on this aspect.

    Ciao
    Eros
    www.thinbasic.com | www.thinbasic.com/community/ | help.thinbasic.com
    Windows 10 Pro for Workstations 64bit - 32 GB - Intel(R) Xeon(R) W-10855M CPU @ 2.80GHz - NVIDIA Quadro RTX 3000

  5. #155
    thinBasic MVPs
    Join Date
    Oct 2012
    Location
    Germany
    Age
    55
    Posts
    1,555
    Rep Power
    174
    I know it's very nice to have the ability to declare variables on-the-fly.
    From the other view it would be easier to handle for thinCore if all variables are listed on top of the function.
    Many programming-languages have this condition mandatory and i would not mind if i had to if it helps to stabilize execution.
    In fact i will try to follow that rule in future.


    What do these:

    Function_GetBodyCode
    Function_GetSourceCode


    ???

    PS. see my post above again for some minor "help-file-repairs"
    Last edited by ReneMiner; 06-02-2016 at 13:54.
    I think there are missing some Forum-sections as beta-testing and support

  6. #156
    thinBasic author ErosOlmi's Avatar
    Join Date
    Sep 2004
    Location
    Milan - Italy
    Age
    57
    Posts
    8,818
    Rep Power
    10
    Quote Originally Posted by ReneMiner View Post
    What do these:
    Function_GetBodyCode
    Function_GetSourceCode
    Experiments for future ideas.
    Both require a function name as string parameter.
    One return full function code, the other just the inner part.


    Quote Originally Posted by ReneMiner View Post
    PS. see my post above again for some minor "help-file-repairs"
    Thanks, fixed for the next release.
    www.thinbasic.com | www.thinbasic.com/community/ | help.thinbasic.com
    Windows 10 Pro for Workstations 64bit - 32 GB - Intel(R) Xeon(R) W-10855M CPU @ 2.80GHz - NVIDIA Quadro RTX 3000

  7. #157
    thinBasic MVPs
    Join Date
    Oct 2012
    Location
    Germany
    Age
    55
    Posts
    1,555
    Rep Power
    174
    Very nice.
    I tried a simple as:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    '#FILENAME "Function_GetCode.tBasic"
     
    ' --------------------------------------------------------------------
    Function TBMain()
    ' --------------------------------------------------------------------
      
      MsgBox 0,  Function_GetBodyCode( "TBMain" ),
        %MB_OK, "Function_GetBodyCode(""TBMain""):"
       
      MsgBox 0,  Function_GetSourceCode( "TBMain" ),
        %MB_OK, "Function_GetSourceCode(""TBMain""):"
       
      
    End Function
    and i made an executeable bundle of it.
    Still works and has the same output even if not a thinBasic-file any more...
    I think there are missing some Forum-sections as beta-testing and support

  8. #158
    thinBasic MVPs
    Join Date
    Oct 2012
    Location
    Germany
    Age
    55
    Posts
    1,555
    Rep Power
    174
    2 * Hash-tables:


    1.
    If i want to use a hash-table to store data its likely the case that my data-elements (mostly udts or arrays) may have more data noded to it.

    Lets say, i store my control-udts of every window in a seperate hash table and want to destroy some data and i need a list of all keys to call _Destroy() on the stored udt-data (for example to free noded multiline-text)

    I wish for a function that does this:
    1
    2
    String myList()
    Long numKeys = Hash_ListKeys pHash Into myList
    2.
    My keys shall hold some information about the data so i already know from the key what it is and if to proceed it

    alike:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    ' create hash-table:
    Dword pControls = Hash_New(500, %Hash_String2String)
    '...
     
    ' create a control:
    Dim lButton As tControl_Button
    ' assume i use some enumerating-functions here to store Type and Name ;)
     
    lButton.pType  = Heap_AllocByStr("tControl_Button")
    lButton.pName = Heap_AllocByStr("myButton")
    lButton.Index   = 1
    '... some more settings here but this serves...
     
    ' this be the header of my basetype
    ' its 2 Dwords, 1 Long = 12 Bytes
     
    ' and i want that information to be my key:
    String myKey  = Memory_Get(Varptr(lButton), 12)
     
    Hash_Set( pControls, myKey, lButton )
    but what about the nulls that a hash-String-key must not contain?

    Were it possible to have a "Byte"-key, probably with a fixed same lenght for all keys of this hash-table?
    1
    Dword pControls = Hash_New(500, %Hash_Byte2String, 12)
    - or would i have to convert my key into a size-formatted Hex$?
    Last edited by ReneMiner; 09-02-2016 at 09:55.
    I think there are missing some Forum-sections as beta-testing and support

  9. #159
    thinBasic author ErosOlmi's Avatar
    Join Date
    Sep 2004
    Location
    Milan - Italy
    Age
    57
    Posts
    8,818
    Rep Power
    10
    Regarding point number 1:
    • yes, I already thought about something similar
    • thinCore already use something like that
    • should not be that complex to develop


    Regarding point number 2:
    • quite complex at the moment to have nulls inside keys
    • HEX conversion is something you can do but would slow down operations because done at script level
    • maybe I can get HEX idea and use inside compiled code
    • let me think a bit about that
    www.thinbasic.com | www.thinbasic.com/community/ | help.thinbasic.com
    Windows 10 Pro for Workstations 64bit - 32 GB - Intel(R) Xeon(R) W-10855M CPU @ 2.80GHz - NVIDIA Quadro RTX 3000

  10. #160
    thinBasic MVPs
    Join Date
    Oct 2012
    Location
    Germany
    Age
    55
    Posts
    1,555
    Rep Power
    174
    As PeekHex$ | Memory_HexGet & PokeHex | Memory_HexSet ?
    (Peek could be optimized by creating sResult in correct size once instead of to compose it
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    ' #Filename "ConvertHex.tBasic"
    Uses "console"
     
    ' --------------------------------------------------------------------
    Function TBMain()
    ' --------------------------------------------------------------------
       
      String data = MKDWD$(123, 456) & MKL$(789)
      
      Local dw1 As DWord At StrPtr(data)
      Local dw2 As DWord At StrPtr(data) + 4
      Local l   As Long  At StrPtr(data) + 8
       
      PrintL dw1, dw2, l
       
      Long nBytes = StrPtrLen(StrPtr(data))
       
      String sKey = PeekHex$(StrPtr(data), nBytes)
      
       
      PrintL "key: " & sKey
      
      ' overwrite data with 0:
      Memory_Set(StrPtr(data), Repeat$(nBytes, MKBYT$(0)))
       
      PrintL "data empty now:", data
      PrintL dw1, dw2, l
       
      ' poke the key into data-space
       
      PokeHex$(StrPtr(data), sKey)
       
      PrintL dw1, dw2, l
       
      Printl $Crlf & "key to end"
      WaitKey 
       
    End Function
     
    ' --------------------------------------------------------------------- 
    Function PeekHex$(ByVal pData    As DWord, _
                      ByVal numBytes As Long   _
                       ) As String
    ' ---------------------------------------------------------------------
      ' convert a sequence of bytes into Hex$
      ' returns hex-expression
       
      Local b As Byte At pData
      Local sResult As String
       
      Do
        sResult &= Hex$(b, 2)
        SetAt(b, GetAt(b)+1)
        numBytes -= 1
      Loop While numBytes
       
      Function = sResult
       
    End Function                  
     
    ' ---------------------------------------------------------------------
    Function PokeHex$(ByVal pData As DWord, _
                      ByVal sData As String _
                      ) As String
    ' ---------------------------------------------------------------------
      ' convert a Hex$ into bytes and poke it to given pointer
      ' sData must not contain Hex-prefix as "&H" nor "0x"
      ' returns converted memory
       
      Local B(2) As Byte At StrPtr(sData)
      Local num  As Byte At pData
       
      While GetAt(b) < StrPtr(sData) + StrPtrLen(StrPtr(sData))
        num = Val("&H" & Chr$(b(1), b(2))) 
        SetAt(b, GetAt(b) + 2)
        SetAt(num, GetAt(num) + 1)
      Wend
      Function = Memory_Get(pData, StrPtrLen(StrPtr(sData))/2)
       
    End Function
    Last edited by ReneMiner; 09-02-2016 at 15:22.
    I think there are missing some Forum-sections as beta-testing and support

Page 16 of 21 FirstFirst ... 61415161718 ... LastLast

Members who have read this thread: 0

There are no members to list at the moment.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •