##
## SDD VALUE OBJECTS
##
## Table cell access.
##


#
# sdd_get_table_outercell()
#
# Purpose: This gets the outer cell node for a particular cell of an SDD table.
#          The outer cell is the SDD object which fills the whole cell in the table.
#
# Parameters: tbl: the table
#             row, column: the cell row and column
#             returns the outer cell node
#

subroutine(sdd_get_table_outercell(node tbl, int row, int column), (

   string cell_node_name = "outercell_" . row . '_' . column;
   node tblitems = tbl{"items"};
   node contents = @tblitems{"contents"};
   node contentsitems = contents{"items"};
   node outercell = @contentsitems{cell_node_name};
   outercell;

)); # sdd_get_table_outercell()



#
# sdd_get_table_innercell()
#
# Purpose: This gets the inner cell node for a particular cell of an SDD table.
#          The inner cell is the SDD object which contains the content of the cell.
#
# Parameters: tbl: the table
#             row, column: the cell row and column
#             returns the inner cell node
#

subroutine(sdd_get_table_innercell(node tbl, int row, int column), (

   node outercell = sdd_get_table_outercell(tbl, row, column);
   string cell_node_name = "innercell_" . row . '_' . column;
   node items = outercell{"items"};
   node innercell = @items{cell_node_name};
   innercell;

)); # sdd_get_table_innercell()



#
# sdd_get_table_cell_contents()
#
# Purpose: This gets the cell contents node for a particular cell of an SDD table.
#
# Parameters: tbl: the table
#             row, column: the cell row and column
#             returns the cell contents node
#

subroutine(sdd_get_table_cell_contents(node tbl, int row, int column), (

   node innercell = sdd_get_table_innercell(tbl, row, column);
   node items = innercell{"items"};
   node cell_contents = @items[0];
   cell_contents;

)); # sdd_get_table_innercell()