Безопасное выделение hashtable

local hashtable ht = HT_create() // для получения hashtable из буфера
call HT_destroy(ht) // для отправки hashtable в буфер

library HT
    globals
        private hashtable array ht
        private boolean array allocated
        private integer max = -1
    endglobals
    
    public function create takes nothing returns hashtable
        local integer i = 0
        loop
        exitwhen i > max
            if not allocated[i] then
                set allocated[i] = true
                return ht[i]
            endif
        set i = i+1
        endloop
        set max = max+1
        set ht[max] = InitHashtable()
        set allocated[max] = true
        return ht[max]
    endfunction
    
    public function destroy takes hashtable h returns nothing
    local integer i = 0
    if h != null then
        loop
        exitwhen i > max
            if ht[i] == h then
                set allocated[i] = false
                return
            endif
        set i = i+1
        endloop
    endif
    endfunction
    
endlibrary