src/HOL/TPTP/mash_export.ML
changeset 75612 03ae0ba2aa9e
parent 75044 38e24aeeedb8
child 75616 986506233812
equal deleted inserted replaced
75606:0f7cb6cd08fe 75612:03ae0ba2aa9e
   314            (mash_weight, (mash_suggs, []))]
   314            (mash_weight, (mash_suggs, []))]
   315         val mesh_suggs = mesh_facts I (op =) max_suggs mess
   315         val mesh_suggs = mesh_facts I (op =) max_suggs mess
   316         val mesh_line = encode_str name ^ ": " ^ encode_strs mesh_suggs ^ "\n"
   316         val mesh_line = encode_str name ^ ": " ^ encode_strs mesh_suggs ^ "\n"
   317       in File.append mesh_path mesh_line end
   317       in File.append mesh_path mesh_line end
   318 
   318 
   319     val mash_lines = Path.explode mash_file_name |> File.read_lines
   319     val mash_lines = Path.explode mash_file_name |> Bytes.read |> Bytes.trim_split_lines
   320     val mepo_lines = Path.explode mepo_file_name |> File.read_lines
   320     val mepo_lines = Path.explode mepo_file_name |> Bytes.read |> Bytes.trim_split_lines
   321   in
   321   in
   322     if length mash_lines = length mepo_lines then List.app do_fact (mash_lines ~~ mepo_lines)
   322     if length mash_lines = length mepo_lines then List.app do_fact (mash_lines ~~ mepo_lines)
   323     else warning "Skipped: MaSh file missing or out of sync with MePo file"
   323     else warning "Skipped: MaSh file missing or out of sync with MePo file"
   324   end
   324   end
   325 
   325