globals

    integer CSTR  = 0
    integer CREAL = 0
    hashtable HASH = InitHashtable()

endglobals

function S2Ifix takes string S returns integer
    local integer I = LoadInteger(HASH,0x100,StringHash(S))
    
    if I == 0 then
        set CSTR = CSTR + 1
        call SaveInteger(HASH,0x100,StringHash(S),CSTR)
        call SaveStr(HASH,0x101,CSTR,S)
        return CSTR
    endif
        return I

endfunction

function I2Sfix takes integer I returns string
    local string S = LoadStr(HASH,0x101,I)
    
    if S == "" or S == null then
        return "DoNothing"
    endif
        return LoadStr(HASH,0x101,I)
endfunction

function R2I_REM takes real R returns integer
    local integer I = LoadInteger(HASH,0x90,R2I(R*100))
    
    if I == 0 then
        set CREAL = CREAL + 1
        call SaveInteger(HASH,0x90,R2I(R*100),CREAL)
        call SaveReal(HASH,0x91,CREAL,R)
        return CREAL
    endif
        return I

endfunction

function I2R_REM takes integer I returns real
    local real R = LoadReal(HASH,0x91,I)
    
    if R == 0.0 then
        return 0.0
    endif
        return LoadReal(HASH,0x91,I)
endfunction