dimensions example

The following function displays the contents of an array, but only if the array has one or two dimensions:

function displayArray(aArg, nColWidth)

local nElement, nCols, nRows, nCol, nRow

#define DEFAULT_WIDTH 2 

   if argcount() < 2 

      nColWidth = DEFAULT_WIDTH 

   endif 

   do case 

      case aArg.dimensions == 1 

         ? replicate("-", nColWidth * aArg.size) 

         ? 

         for nElement = 1 to aArg.size // Display elements 

            ?? aArg[ nElement ] at nColWidth * ( nElement - 1 ) 

         endfor // in a single line 

      case aArg.dimensions == 2 

         nRows = alen( aArg, 1 ) // Determine # of rows 

         nCols = alen( aArg, 2 ) // Determine # of columns 

         ? replicate("-", nColWidth * nCols) 

         for nRow = 1 to nRows 

            ? // Each row on its own line 

            for nCol = 1 to nCols // Display each row as before 

               ?? aArg[ nRow, nCol ] at nColWidth * ( nCol - 1 ) 

            endfor 

         endfor 

      otherwise 

         msgbox("Error: only 1 or 2 dimensions allowed", "Alert") 

   endcase