anil.recoil.org
+450
-1
bin/mlgpx_cli.ml
+450
-1
bin/mlgpx_cli.ml
···+Format.kfprintf (fun fmt -> Format.pp_print_newline fmt (); Format.pp_print_flush fmt ()) Format.err_formatter fmt+Format.kfprintf (fun fmt -> Format.pp_print_newline fmt (); Format.pp_print_flush fmt ()) Format.err_formatter fmt+Format.kfprintf (fun fmt -> Format.pp_print_newline fmt (); Format.pp_print_flush fmt ()) Format.std_formatter fmt+let total_points = List.fold_left (fun acc seg -> acc + Track.Segment.point_count seg) 0 track_segments in+Fmt.pf Format.std_formatter "%a\n" (success_style Fmt.string) "Conversion completed successfully!";+Printf.printf " Description: %s\n" (Option.value (Metadata.description meta) ~default:"<none>");+Fmt.pf Format.std_formatter " Start: %a\n" (info_style Fmt.string) (Ptime.to_rfc3339 start_time);+Fmt.pf Format.std_formatter " Stop: %a\n" (info_style Fmt.string) (Ptime.to_rfc3339 stop_time);+let waypoints_with_time = List.filter (fun wpt -> Waypoint.time wpt <> None) (Doc.waypoints gpx) in+let waypoints_with_elevation = List.filter (fun wpt -> Waypoint.elevation wpt <> None) (Doc.waypoints gpx) in
-5
examples/dune
-5
examples/dune
-117
examples/effects_example.ml
-117
examples/effects_example.ml
···
···
+9
-12
examples/simple_gpx.ml
+9
-12
examples/simple_gpx.ml
···-Printf.printf "✓ Created waypoint: %s\n" (Option.value (Waypoint.get_name wpt) ~default:"<unnamed>");-let metadata = Metadata.with_description metadata "Demonstration of mlgpx library capabilities" in······
···+Printf.printf "✓ Created waypoint: %s\n" (Option.value (Waypoint.name wpt) ~default:"<unnamed>");+let metadata = { metadata with name = Some "Example GPX File"; desc = Some "Demonstration of mlgpx library capabilities" } in+let track = { track with cmt = Some "Sample GPS track"; desc = Some "Demonstrates track creation" } in······
+2
-2
lib/gpx/coordinate.ml
+2
-2
lib/gpx/coordinate.ml
+8
-8
lib/gpx/coordinate.mli
+8
-8
lib/gpx/coordinate.mli
············
············
+1
-1
lib/gpx/dune
+1
-1
lib/gpx/dune
+8
-8
lib/gpx/extension.ml
+8
-8
lib/gpx/extension.ml
·········
·········
+8
-8
lib/gpx/extension.mli
+8
-8
lib/gpx/extension.mli
···-val make : namespace:string option -> name:string -> attributes:(string * string) list -> content:content -> unit -> tval make_text : name:string -> ?namespace:string -> ?attributes:(string * string) list -> string -> t······
···+val make : ?namespace:string -> name:string -> attributes:(string * string) list -> content:content -> unit -> tval make_text : name:string -> ?namespace:string -> ?attributes:(string * string) list -> string -> t······
+6
-6
lib/gpx/gpx.ml
+6
-6
lib/gpx/gpx.ml
·········
·········
+443
-54
lib/gpx/gpx.mli
+443
-54
lib/gpx/gpx.mli
···
···+files, strings, or other input sources using the {{:https://erratique.ch/software/xmlm}Xmlm} library.+level : [`Error | `Warning]; (** [`Error] for specification violations, [`Warning] for best practice issues *)+location : string option; (** Optional location context (e.g., "waypoint 1", "track segment 2") *)
+17
-23
lib/gpx/gpx_doc.ml
lib/gpx/doc.ml
+17
-23
lib/gpx/gpx_doc.ml
lib/gpx/doc.ml
············
············
+9
-15
lib/gpx/gpx_doc.mli
lib/gpx/doc.mli
+9
-15
lib/gpx/gpx_doc.mli
lib/gpx/doc.mli
······
······
+11
-11
lib/gpx/link.ml
+11
-11
lib/gpx/link.ml
·········
·········
+12
-11
lib/gpx/link.mli
+12
-11
lib/gpx/link.mli
·········
·········
+20
-31
lib/gpx/metadata.ml
+20
-31
lib/gpx/metadata.ml
······
······
+16
-25
lib/gpx/metadata.mli
+16
-25
lib/gpx/metadata.mli
···val make_from_floats : minlat:float -> minlon:float -> maxlat:float -> maxlon:float -> (t, string) result-val get_bounds : t -> (Coordinate.latitude * Coordinate.longitude * Coordinate.latitude * Coordinate.longitude)···
···val make_from_floats : minlat:float -> minlon:float -> maxlat:float -> maxlon:float -> (t, string) result+val bounds : t -> (Coordinate.latitude * Coordinate.longitude * Coordinate.latitude * Coordinate.longitude)···
+9
-9
lib/gpx/parser.ml
+9
-9
lib/gpx/parser.ml
············
············
+2
-2
lib/gpx/parser.mli
+2
-2
lib/gpx/parser.mli
···
+12
-17
lib/gpx/route.ml
+12
-17
lib/gpx/route.ml
·········
·········
+13
-19
lib/gpx/route.mli
+13
-19
lib/gpx/route.mli
············
············
+13
-18
lib/gpx/track.ml
+13
-18
lib/gpx/track.ml
···············
···············
+13
-19
lib/gpx/track.mli
+13
-19
lib/gpx/track.mli
···············
···············
+23
-23
lib/gpx/validate.ml
+23
-23
lib/gpx/validate.ml
····································
····································
+4
-4
lib/gpx/validate.mli
+4
-4
lib/gpx/validate.mli
···
···
+39
-53
lib/gpx/waypoint.ml
+39
-53
lib/gpx/waypoint.ml
···
···
+40
-52
lib/gpx/waypoint.mli
+40
-52
lib/gpx/waypoint.mli
···val make_from_floats : lat:float -> lon:float -> ?name:string -> ?desc:string -> unit -> (t, string) result
···val make_from_floats : lat:float -> lon:float -> ?name:string -> ?desc:string -> unit -> (t, string) result
+11
-11
lib/gpx/writer.ml
+11
-11
lib/gpx/writer.ml
······
······
+2
-2
lib/gpx/writer.mli
+2
-2
lib/gpx/writer.mli
···
···
+12
-13
lib/gpx_eio/gpx_eio.ml
+12
-13
lib/gpx_eio/gpx_eio.ml
·········
·········
+1
-1
lib/gpx_eio/gpx_eio.mli
+1
-1
lib/gpx_eio/gpx_eio.mli
+12
-13
lib/gpx_unix/gpx_unix.ml
+12
-13
lib/gpx_unix/gpx_unix.ml
·········
·········
+1
-1
lib/gpx_unix/gpx_unix.mli
+1
-1
lib/gpx_unix/gpx_unix.mli
+34
-34
test/test_corpus.ml
+34
-34
test/test_corpus.ml
···························
···························
+15
-15
test/test_corpus_unix_eio.ml
+15
-15
test/test_corpus_unix_eio.ml
············-check string "Creators match" (Gpx.Gpx_doc.get_creator gpx_unix) (Gpx.Gpx_doc.get_creator gpx_eio);-(List.length (Gpx.Gpx_doc.get_waypoints gpx_unix)) (List.length (Gpx.Gpx_doc.get_waypoints gpx_eio));-(List.length (Gpx.Gpx_doc.get_routes gpx_unix)) (List.length (Gpx.Gpx_doc.get_routes gpx_eio));···
···············
+11
-12
test/test_gpx.ml
+11
-12
test/test_gpx.ml
············
············