#include "ft.h"
#include "FTreg.h"
#include "FieldType.h"
#include "df.h"
#include "assert.h"
#include "end.h"
#include "al.h"
/*--------------------------------------------------*/
void ft_Init()
{	  
  char *ftn;

  FieldTypeNames_GR=Darray_create();
  AlFTreg_get_all_field_types(FieldTypeNames_GR);
  if (Darray_len(FieldTypeNames_GR)<1)
    Al_fatal_error("ruleeditor: No Field Types available.\n");
  ftn=df_Get(DEFAULT_FT_NAME);
  if (AlFTreg_exists_string(ftn)==Bool_FALSE)
    ftn=Darray_get(FieldTypeNames_GR,(unsigned)0);
  DefaultFT_GR=AlFTreg_string_to_obj(ftn);

}