+ ! First store the current top of the stack for later reference, to
+ ! move the desired position infront of it.
+ ! Only put the top into the given table, if it is a valid reference,
+ ! and the top is not the table itself.
+ if ( (thandle > 0) .and. (thandle < indpos) ) then
Now put it into the table
+ ! into the table
call flu_setField(L, thandle, trim(key))
! No key given, try to put the value by position
- ! First store the current top of the stack for later reference, to
- ! move the desired position infront of it.
! First put the index, where to write the value into the table, on the
call flu_pushInteger(L, pos)
! Now move this position infront of the actual argument, which was
- ! at the top previously.
+ ! at the top previously.
call flu_insert(L, indpos)
- ! Get the two entries from the stack into the table.
+ ! Use the two entries from the stack to put the value at the given
+ ! position into the table.
call flu_setTable(L, thandle)
end subroutine aot_table_set_top