#***********************************************
# name server::get_index
# returns an index name for index element
# **********************************************
proc dict::get_index {element}  {
 return [$element I_INDEX]
}

# *******************************************************
# name dict::mk_index
# returns index for index element
# *******************************************************
proc dict::mk_index {c args} {
      upvar #0 $c data
      set r_index [$data(source)::get_index $c]
      set index_l [get_idx $r_index]
      return [list_table $index_l [lindex [indexClass::prefix] 0] index dict]
}

# *******************************************************
# name dict::mk_field
# returns field for index element
# *******************************************************
proc dict::mk_field_indel {c args} {
      upvar #0 $c data
     return [$data(source)::mk_field $c]
}

# ************************************
proc indexelClass::prefix {} {
 return {ibr identifier identifier}
}

#*********************************************
# name server::is_descend
# checks if the element of index is descending
# returns current truevalue of falsevalue
#*********************************************
proc dict::is_descend {ind_el} {
 if {[$ind_el DESCENDING]==[truevalue]} {
   return [truevalue]
 } else {
  return [falsevalue]
 }
}

