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