library HashSystem
//!************ HashSystem ************
//  Name: HashSystem v.1.0.0
//  Author: AiwaDoter
//  Date: 23.05.09 20:40
//!************************************

struct hash extends array
private integer iWord
    private hash prev
    private hash head
    private hash link
 hash data

private hash ids
    private hash si_v 
    private static hash si_f=0
    private static integer si_i=0
    
//! textmacro clear takes THIS
        set $THIS$.data = 0
        set $THIS$.prev = 0
        set $THIS$.head = 0
        set $THIS$.link = 0
        set $THIS$.iWord = 0
        set $THIS$.si_v = hash.si_f
        set hash.si_f = $THIS$   
//! endtextmacro

//! textmacro create takes THIS, PREV, IWORD 
        if( hash.si_f!=0 )then
            set $THIS$ = hash.si_f
            set hash.si_f = $THIS$.si_v
         else
            set hash.si_i = hash.si_i+1
            set $THIS$ = hash.si_i
        endif
        debug if( integer($THIS$)>8190 )then
        debug   call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,1000.,"Unable to allocate id for an object of type: hash")
        debug   return 0
        debug endif
        set $THIS$.si_v= -1
        set $THIS$.iWord= $IWORD$
        set $THIS$.prev= $PREV$
//! endtextmacro

//! textmacro search
        loop
            exitwhen ( this.iWord == iWord )
            if( this == 0 )then
//! endtextmacro
//! textmacro endsearch takes RET 
                set this.head = head
                set head.link = this
                return $RET$
            endif
            set head = this
            set this = this.link
        endloop      
//! endtextmacro

//! textmacro hash takes THIS, I
        local hash $THIS$ =(($I$*0x200)/0x2000000)*(($I$*0x1000000)/0x1000000)
        if( $THIS$<0 )then
            set $THIS$ = -$THIS$
        endif
//! endtextmacro
    
    static method find takes integer val returns hash
        local hash head
        local integer iWord = val/0x10000
        //! runtextmacro hash("this","val")
        if( this.ids == 0 )then
        //! runtextmacro create("this.ids","this","iWord")
        //! runtextmacro create("this.ids.data","this.ids","(val*0x10000)/0x10000")
            return this.ids.data
         else
           set this = this.ids
        //! runtextmacro search()
            //! runtextmacro create("this","head.prev","iWord")
            //! runtextmacro create("this.data","this","(val*0x10000)/0x10000")
        //! runtextmacro endsearch("this.data")
           set this = this.data
           set iWord = (val*0x10000)/0x10000
        //! runtextmacro search()
            //! runtextmacro create("this","head.prev","iWord")
        //! runtextmacro endsearch("this")   
            return this
        endif   
    endmethod
   
    method free takes nothing returns nothing
        if( this != this.prev.data )then
            set this.head.link = this.link
         else
            set this.prev.data = this.link
            if( this.prev.data == 0 )then
                if( this.prev != this.prev.prev.ids )then
                    set this.prev.head.link = this.prev.link
                 else
                    set this.prev.prev.ids = this.prev.link 
                endif
            //! runtextmacro clear("this.prev")
            endif            
        endif
    //! runtextmacro clear("this")
    endmethod

endstruct

endlibrary

local hash h = hash.find(H2I(GetTriggerUnit())) // возвращает хэшь-структуру если такой нет то создает новую по ключу.
set h.data = hash.find('abcd').data
.....
set h.free()