Pointer to Array

//! library blah
globals
    private integer array unit_id
    private integer array unit_id2
endglobals

function weei takes nothing returns nothing
    // initialize unit_id2...
    // then...
    set unit_id=unit_id2
endfunction

//! endlibrary

globals
    integer Hi = 0
    integer array Bye = 0
endglobals

function Hi takes nothing returns nothing
    local integer Hi = 0
    local integer array Bye = 0
endfunction

globals
    integer array SomeInteger = 0
endglobals

function SomeFunction takes nothing returns nothing
    local integer SomeOtherInteger = SomeInteger[10] //[10] is the array index
endfunction

integer array Bye = 0
integer array SomeInteger = 0

// Using vJASS through JASSHelper with Grimoire.
//! library RandomHeroes

globals
    private integer count
    private integer start
    private boolean team
    private constant boolean NAGA=false
    private constant boolean HUMAN=true
endglobals

function RandomHero takes nothing returns nothing

    local integer uid
    if(team==NAGA) then
        set uid=udg_HeroId_Naga[1+ModuloInteger(count+start, 4)]
    else
        set uid=udg_HeroId_Human[1+ModuloInteger(count+start, 4)]
    endif

    call CreateUnit(GetEnumPlayer(),uid,GetPlayerStartLocationX(GetEnumPlayer()),GetPlayerStartLocationY(GetEnumPlayer()),0.0)
    set count=count+1
endfunction

function RandomlyAssignHeroes takes force f, boolean t returns nothing
    set count=0
    set start=GetRandomInt(1,4)
    set team=t
    call ForForce(f,function RandomHero)
endfunction

function RandomHeroes takes nothing returns nothing
    call RandomlyAssignHeroes(udg_Players_Naga,NAGA)
    call RandomlyAssignHeroes(udg_Players_Human,HUMAN)
endfunction

//! endlibrary

struct pair
    integer value
    pair next

    static method cons takes integer value, pair next returns pair
            local pair p = pair.create()
        set p.value = value
        set p.next = next
        return p
    endmethod

    method copy takes nothing returns pair
        if this.next == 0 then
            return pair.cons(this.value,0)
        else
            return pair.cons(this.value,this.next.copy())
        endif
    endmethod

    //remove recursion
    static method Destroy takes pair p returns nothing
        local pair next = p.next
        call pair.destroy(p)
        if p.next != 0 then
            call pair.Destroy(next)
        endif
    endmethod
endstruct

struct list
    pair l
    static method Create takes nothing returns list
        local list s = list.create()
        set s.l = 0
        return s
    endmethod
    method push takes integer value returns nothing
        set this.l = pair.cons(value,this.l)
    endmethod
    method pop takes nothing returns nothing
        if this.l != 0 then
            set this.l = this.l.next
        endif
    endmethod
    method peek takes nothing returns integer
        return this.l.value
    endmethod
    method isempty takes nothing returns boolean
        return this.l == 0
    endmethod
    method shuffle takes nothing returns nothing
        local pair array lst
        local integer n = 0
        local pair p = this.l
        local integer i = 0
        local integer swapwith
        loop
            exitwhen p == 0
            set lst[n] = p
            set n = n + 1
            set p = p.next
        endloop

        loop
            exitwhen i >= n
            set swapwith = GetRandomInt(i,n-1)
            //swap ith with n-1th
            //need to include i so that every element can end up in every position
            set p = lst[swapwith]
            set lst[swapwith] = lst[i]
            set lst[i] = p
            set i = i + 1
        endloop

        set i = 0
        loop
            exitwhen i >= n-1
            set lst[i].next = lst[i+1]
            set i = i + 1
        endloop
        set lst[i].next = 0
        set this.l = lst[0]
    endmethod
    //fine for acyclic
    method copy takes nothing returns list
        return this.l.copy()
    endmethod

    static method Destroy takes list l returns nothing
        call pair.Destroy(l.l)
        call list.destroy(l)
    endmethod
endstruct

globals
    list nagaheroes
    list humanheroes

    list heroes_enum
endglobals

function inithero takes nothing returns nothing
    set nagaheroes = list.Create()
    call nagaheroes.push('hfoo')
    call nagaheroes.push('hfoo')

    set humanheroes = list.Create()
    call humanheroes.push('hfoo')
endfunction

function RandomlyAssignHeroes_cb takes nothing returns nothing
    if heroes_enum.isempty() then
        call BJDebugMsg("Not enough heroes for players!")
        //break enum?  probably need a var, don't bother
    endif
    call CreateUnit(GetEnumPlayer(),heroes_enum.peek(),0.,0.,0.)
    call heroes_enum.pop()
endfunction

//list heroes is passed humanheroes or nagaheroes
function RandomlyAssignHeroes takes force f, list heroes returns nothing
    set heroes_enum = heroes.copy()    //you don't need to copy if you don't use the lists again
    call heroes_enum.shuffle()
    call ForForce(f,function RandomlyAssignHeroes_cb)
    call list.Destroy(heroes_enum)
endfunction