package goblint

  1. Overview
  2. Docs
Static analysis framework for C

Install

Dune Dependency

Authors

Maintainers

Sources

goblint-2.4.0.tbz
sha256=99b78e6def71534d195eef9084baa26d8334b36084e120aa6afb300c9bf8afa6
sha512=f3162bd95a03c00358a2991f6152fc6169205bfb4c55e2c483e98cc3935673df9656d025b6f1ea0fa5f1bd0aee037d4f483966b0d2907e3fa9bf11a93a3392af

doc/src/goblint.std/gobFpath.ml.html

Source file gobFpath.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
type t = Fpath.t [@@deriving eq, ord, show]

let hash p = Hashtbl.hash (Fpath.to_string p)

let pretty () p = GoblintCil.Pretty.text (Fpath.to_string p)

let to_yojson p = `String (Fpath.to_string p)

let of_yojson = function
  | `String s ->
    Fpath.of_string s
    |> Result.map_error (fun (`Msg m) ->
        "GobFpath.of_yojson: " ^ m
      )
  | _ ->
    Error "GobFpath.of_yojson: not string"

let cwd () =
  Fpath.v (Unix.getcwd ())

let cwd_append p =
  Fpath.append (cwd ()) p (* eta-expanded to get cwd at use time, not define time *)

let rem_find_prefix p1 p2 =
  (* TODO: don't use get? *)
  let prefix = Option.get (Fpath.find_prefix p1 p2) in
  Option.get (Fpath.rem_prefix prefix p2)

OCaml

Innovation. Community. Security.