let create t filename charset =
      (* Processing of the file *)
      let chn =
        open_in_bin filename
      in
      let header = 
        input_mo_header chn
      in
      let informations = 
        input_mo_informations t.GettextTypes.failsafe chn header
      in
      close_in chn;
      {
        dummy             = Dummy.create t filename charset;
        filename          = filename;
        charset           = charset;
        failsafe          = t.GettextTypes.failsafe;
        fun_plural_forms  = informations.GettextTypes.fun_plural_forms;
        number_of_strings = Int32.to_int header.GettextTypes.number_of_strings;
      }