Patch title: Release 92 bulk changes
Abstract:
File: /appli/database/interface.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "prototype.pli"


function data_kind t -> k
  arg Type t ; arg DataKind k
  if (t:flags .and. type_flag_field)<>0
    k := data_field
module "/pliant/language/compiler.pli"
module "prototype.pli"


function data_kind t -> k
  arg Type t ; arg DataKind k
  if (t:flags .and. type_flag_field)<>0
    k := data_field
  if (t:flags .and. type_flag_record)<>0
  eif (t:flags .and. type_flag_record)<>0
    k := data_record
  eif t:category="Set"
    k := data_set
  eif (t get_generic_method (the_function '. from string' Un
    k := data_field
  eif t:nb_fields>0
    k := data_record
  else
    k := data_field


export data_interface
    k := data_record
  eif t:category="Set"
    k := data_set
  eif (t get_generic_method (the_function '. from string' Un
    k := data_field
  eif t:nb_fields>0
    k := data_record
  else
    k := data_field


export data_interface