mbarbin / super-master-mind / 217

coverage: 50.206% (-38.1%) from 88.313%
217

Pull #45

github

web-flow 
Merge 235b668da into 3d48eb3d9
Pull Request #45: Dune pkg ci migration

610 of 1215 relevant lines covered (50.21%)

597078.5 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

16.67
/src/stdlib/source_code_position.ml
1 
(*********************************************************************************)
2 
(*  super-master-mind: A solver for the super master mind game                   *)
3 
(*  SPDX-FileCopyrightText: 2021-2025 Mathieu Barbin <mathieu.barbin@gmail.com>  *)
4 
(*  SPDX-License-Identifier: MIT                                                 *)
5 
(*********************************************************************************)
6 









7



module Dyn = Dyn0










8












9



type t = Lexing.position =










10



  { pos_fname : string










11



  ; pos_lnum : int










12



  ; pos_bol : int










13



  ; pos_cnum : int










14



  }










15












16



let to_dyn { pos_fname; pos_lnum; pos_bol; pos_cnum } =










17



  Dyn.record




×







18



    [ "pos_fname", Dyn.string pos_fname




×







19



    ; "pos_lnum", Dyn.int pos_lnum




×







20



    ; "pos_bol", Dyn.int pos_bol




×







21



    ; "pos_cnum", Dyn.int pos_cnum




×







22



    ]










23



;;










24












25



let of_pos (file, lnum, cnum, _enum) =










26



  { pos_fname = file; pos_lnum = lnum; pos_bol = 0; pos_cnum = cnum }




22✔





27



;;
























    

  • 

    •