Design Scripting Documentation


	Dynamic Queue


	Inputs:

the number of elements to allocate


	Outputs:

a brand new fresh dynamic array

Implementation

01  function array_queue( array_object, object )
02    if( isarray( array_object ) ) then
03      result = array_allocate( array_length( array_object ) + 1 )
04      for index = lbound( array_object ) to ubound( array_object )
05        element = array_object( index )
06        if( isobject( element ) ) then
07          set result( index ) = element
08        else
09          result( index ) = element
10        end if
11      next
12      if( isobject( object ) ) then
13        set result( ubound( result ) ) = object
14      else
15        result( ubound( result ) ) = object
16      end if
17      array_queue = result
18    else
19      array_queue = vbnull
20    end if
21  end function

The Design Scripting Library, including its sources, online documentation and graphics, are licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 2.5 License.

Online Documentation generated by { vbdoclib } version 1.0
Color-Coding generated by { vbcc } version 2.0
Page timestamp: { Feb. 2, 2006 }