Does HB_ExecFromArray work with multiple arrays?

[HBQuerier]

Hi,

Can you include several arrays in the place of aParams?  I want to execute a function that uses the Nth item from several arrays.

Like so:

cFuncName( Item_01_s, Item_02_s, Item_03_s )


HB_ExecFromArray( cFuncName, [ Items_01_a, Items_02_a, Items_03_a ] )

[iorp...@gmail.com]

if you use square brackets it is a string, for an array you must use curly brackets.

At https://github.com/harbour/core/blob/e5ab1e3a46176ba8ad436188a295eb6e75c379a4/src/vm/eval.c#L380 you can found all information you need.

[HBQuerier]

Of course I know it's curly brackets.  I was just repeating the format from the documentation.

What you pointed to, is different from the documentation.

Your link says

hb_ExecFromArray( <cFuncName> [, <aParams> ] )

, which seems to imply multiple arrays.

But the documentation (the Harbour doc from Minigui) says

HB_ExecFromArray( cFuncName, [ aParams ] ) --> result

, which seems to imply a single optional array parameter.

So, I guess the answer is to just try it, and see what happens.

Thanks & Regards,

DC

[Seth Hovestol]

I wrote this for this purpose:

//returns array

// map( <xFunc, [,aArg1] [, aArgN])

function aMap(...)

  local aOut := {}

  local aTemp

   local aArgs := hb_aParams()

  local nArgCount := len(aArgs) // func is the first arg so skip it.

   local xFunc := iif(len(aArgs)>0,aArgs[1],nil)

  local nArgInd

  local lObject := hb_isObject(xFunc)

  local nArgStart := iif(lObject,3,2)

  local nResCount := iif(nArgCount>1,len(aArgs[2]),0)

  local nResInd

  local oObj := iif(lObject,xFunc,nil)

  if lObject

     xFunc := aArgs[2]

  endif

  for nResInd:=1 to nResCount

     aTemp := {}

     for nArgInd:=nArgStart to nArgCount

        aAdd(aTemp,aArgs[nArgInd][nResInd])

     next

     if lObject

        aAdd(aOut, HB_ExecFromArray(oObj,xFunc,aTemp))

     else

        aAdd(aOut, HB_ExecFromArray(xFunc,aTemp))

     endif

  next

return aOut

[HBQuerier]

Holy sht.  I was nearly certain, that nobody would understand what I was asking about.

Thanks, Seth.  This is exactly what I needed.  I tested, and it works perfectly.

[Seth Hovestol]

You may also want these, if you're looking for a more functional style:

// returns same type as cInitial calculated from each item

function aReduce(xFunc,aIn,xInitial)

   local nStart := 1

   local nLength := len(aIn)

   local nInd

   if hb_isNil(xInitial) .and. nLength>0

      nStart := 2

      xInitial := aIn[1]

   endif

   for nInd := nStart to nLength

      xInitial := HB_ExecFromArray(xFunc,{xInitial,aIn[nInd]})

   next

return xInitial

function aFilter(xFunc,aIn)

   local aOut := {}

   local nLength := len(aIn)

   local nInd

   

   for nInd := 1 to nLength

      if HB_ExecFromArray(xFunc,{aIn[nInd]})

         aAdd(aOut,aIn[nInd])

      endif

   next

return aOut

[Vlad]

Thanks !!

[HBQuerier]

Whoa.  I missed this one, months ago.  Thanks for taking the time to write and share this.

[HBQuerier]

This has been of enormous value.  Thanks once again for sharing the code.

On Tuesday, July 21, 2020 at 3:27:06 PM UTC-4 shoves...@gmail.com wrote: