Module: _array      Library: Clipper 5.3


This module contains the following functions and procedures:

function ACLONE( Arg1 )
function AFILL( Arg1, Arg2, Arg3, Arg4 )

Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally 
performed based on the contents of STD.CH and other .CH files
 
#include "common.ch"
#include "inkey.ch"

//---------------------------------------------------[top]-
//  ACLONE( Arg1 )
//
function ACLONE( Arg1 )

   local Local1, Local2, Local3
   if ( !( ISARRAY( Arg1 ) ) )
      return Nil
   endif
   Local3 := Len(Arg1)
   Local1 := array(Local3)
   for Local2 := 1 to Local3
      if ( ISARRAY( Arg1[ Local2 ] ) )
         Local1[ Local2 ] := aclone(Arg1[ Local2 ])
      else
         Local1[ Local2 ] := Arg1[ Local2 ]
      endif
   next
   return Local1

//---------------------------------------------------[top]-
//  AFILL( Arg1, Arg2, Arg3, Arg4 )
//
function AFILL( Arg1, Arg2, Arg3, Arg4 )

   aeval(Arg1, { |_1, _2| Arg1[ _2 ] := Arg2 }, Arg3, Arg4)
   return Arg1

//---EOF


Use your Browser's BACK button to return to Function Listings