function LL_ly takes location l returns location
    return GetLocationY(l)
    return null
endfunction

function LL_r2i takes real r returns integer
    return r
    return 0
endfunction

function LL_i2r takes integer i returns real
    return i
    return 0.
endfunction

function LL_h2r takes handle h returns real
    return h
    return 0.
endfunction

function LL_GetLocationY_Loc takes location loc returns location
    set bj_enumDestructableCenter = LL_ly(loc)
    return bj_enumDestructableCenter
endfunction

function LL_NewList takes integer value returns location
    return Location(LL_i2r(value), 0.)
endfunction


function LL_GetListSize takes location list returns integer
    local integer i = 1

    loop
        exitwhen LL_GetLocationY_Loc(list) == null
        set list = LL_GetLocationY_Loc(list)
        set i = i + 1
    endloop
    return i
endfunction

function LL_AddListItemInBackOf takes location list, integer listitem, integer value returns nothing
    local location loc
    local integer i = 0

    loop
        exitwhen listitem == i
        set list = LL_ly(list)
        set i = i + 1
    endloop
    set loc = Location(LL_i2r(value), GetLocationY(list))
    call MoveLocation(list, GetLocationX(list), LL_h2r(loc))
    set loc = null
endfunction

function LL_AddListItemBack takes location list, integer value returns nothing
    call LL_AddListItemInBackOf(list, LL_GetListSize(list) - 1, value)
endfunction


function LL_AddListItemInFrontOf takes location list, integer listitem, integer value returns nothing
    local location loc
    local integer i = 0

    loop
        exitwhen listitem == i
        set list = LL_ly(list)
        if list == null then
            call BJDebugMsg("|cffff0000Error:|r Linked List failure, listitem does not exist in function |cffffcc00LL_AddListItemBefore|r.")
            return
        endif
        set i = i + 1
    endloop
    set loc = Location(GetLocationX(list), GetLocationY(list))
    call MoveLocation(list, LL_i2r(value), LL_h2r(loc))
    set loc = null
endfunction

function LL_AddListItemFront takes location list, integer value returns nothing
    call LL_AddListItemInFrontOf(list, 0, value)
endfunction

function LL_GetListItem takes location list, integer listitem returns integer
    local integer i = 0

    loop
        exitwhen i == listitem
        set list = LL_ly(list)
        if list == null then
            call BJDebugMsg("|cffff0000Error:|r Linked List failure, listitem does not exist in function |cffffcc00LL_GetListItem|r.")
            return -1
        endif
        set i = i + 1
    endloop
    set i = LL_r2i(GetLocationX(list))
    return i
endfunction

function LL_FindListItem takes location list, integer value, integer ignores returns integer
    local integer i = 0
    local integer j

    loop
        set j = LL_r2i(GetLocationX(list))
        if j == value then
            set ignores = ignores - 1
        endif
        exitwhen ignores == -1
        set list = LL_ly(list)
        if list == null then
            return -1
        endif
        set i = i + 1
    endloop
    return i
endfunction

function LL_UpdateListItem takes location list, integer listitem, integer value returns nothing
    local integer i = 0
    loop
        exitwhen i == listitem
        set list = LL_ly(list)
        if list == null then
            call BJDebugMsg("|cffff0000Error:|r Linked List failure, listitem does not exist in function |cffffcc00LL_UpdateListItem|r.")
            return
        endif
        set i = i + 1
    endloop
    call MoveLocation(list, LL_i2r(value), GetLocationY(list))
endfunction

function LL_RemoveListItem takes location list, integer listitem returns nothing
    local integer i = 0
    local location loc

    if listitem == 0 then
        set loc = LL_ly(list)
        if loc != null then
            call MoveLocation(list, GetLocationX(loc), GetLocationY(list))
            set listitem = 1
        endif
        set loc = null
    endif
    loop
        exitwhen i == listitem
        set loc = list
        set list = LL_ly(list)
        if list == null then
            call BJDebugMsg("|cffff0000Error:|r Linked List failure, listitem does not exist in function |cffffcc00LL_RemoveListItem|r.")
            return
        endif
        set i = i + 1
    endloop
    if GetLocationY(loc) > 0. and list != null then
        call MoveLocation(loc, GetLocationX(loc), GetLocationY(list))
    else
        call MoveLocation(loc, GetLocationX(loc), 0)
    endif
    call RemoveLocation(list)
    set loc = null
endfunction

function LL_DestroyList takes location list returns nothing
    local location loc

    loop
        exitwhen GetLocationY(list) == 0.
        set loc = list
        set list = LL_ly(list)
        call RemoveLocation(loc)
        if list == null then
            call BJDebugMsg("|cffff0000Error:|r Linked List critical failure, unable to succesfully destroy list in function |cffffcc00LL_DestroyList|r.")
            return
        endif
    endloop
    call RemoveLocation(list)
    set loc = null
endfunction

function LL_ly takes location l returns location
    return GetLocationY(l)
    return null
endfunction

function LL_r2i takes real r returns integer
    return r
    return 0
endfunction

function LL_i2r takes integer i returns real
    return i
    return 0.
endfunction

function LL_h2r takes handle h returns real
    return h
    return 0.
endfunction