infer_clone/infer/src/biabduction/JoinState.ml

(*
 * Copyright (c) 2016-present, Facebook, Inc.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 *)

open! IStd

(** Object representing the status of the join operation *)

type mode = Pre | Post [@@deriving compare]

let equal_mode = [%compare.equal: mode]

(** set to true when we are doing join of footprints *)
let footprint = ref false

let get_footprint () = !footprint

let set_footprint b = footprint := b
move Dom.JoinState to its own file Summary:public Will be needed later to avoid circular dependencies between dom.ml and upcoming numericalDomain.ml. Reviewed By: jberdine Differential Revision: D3126697 fb-gh-sync-id: 678d49f fbshipit-source-id: 678d49f 9 years ago			`(*`
Change license to MIT Summary: Change the license of the source code from BSD + PATENTS to MIT. Change `checkCopyright` to reflect the new license and learn some new file types. Generated with: ``` git grep BSD \| xargs -n 1 ./scripts/checkCopyright -i ``` Reviewed By: jeremydubreil, mbouaziz, jberdine Differential Revision: D8071249 fbshipit-source-id: 97ca23a 7 years ago			`* Copyright (c) 2016-present, Facebook, Inc.`
move Dom.JoinState to its own file Summary:public Will be needed later to avoid circular dependencies between dom.ml and upcoming numericalDomain.ml. Reviewed By: jberdine Differential Revision: D3126697 fb-gh-sync-id: 678d49f fbshipit-source-id: 678d49f 9 years ago			`*`
Change license to MIT Summary: Change the license of the source code from BSD + PATENTS to MIT. Change `checkCopyright` to reflect the new license and learn some new file types. Generated with: ``` git grep BSD \| xargs -n 1 ./scripts/checkCopyright -i ``` Reviewed By: jeremydubreil, mbouaziz, jberdine Differential Revision: D8071249 fbshipit-source-id: 97ca23a 7 years ago			`* This source code is licensed under the MIT license found in the`
			`* LICENSE file in the root directory of this source tree.`
move Dom.JoinState to its own file Summary:public Will be needed later to avoid circular dependencies between dom.ml and upcoming numericalDomain.ml. Reviewed By: jberdine Differential Revision: D3126697 fb-gh-sync-id: 678d49f fbshipit-source-id: 678d49f 9 years ago			`*)`

Divide Utils into Utils, Pp, and IStd Summary: Utils contains definitions intended to be in the global namespace for all of the infer code-base, as well as pretty-printing functions, and assorted utility functions mostly for dealing with files and processes. This diff changes the module opened into the global namespace to IStd (Std conflict with extlib), and moves the pretty-printing definitions from Utils to Pp. Reviewed By: jvillard Differential Revision: D4232457 fbshipit-source-id: 1e070e0 8 years ago			`open! IStd`
Remove -open(Utils) compile flag hack Summary:public Eliminate the use of the -open Utils command line option passed to the compiler in favor of `open! Utils` in each source file. While slightly convenient, this option causes more headaches than it is worth with other tools e.g. merlin. Reviewed By: jvillard Differential Revision: D3168193 fb-gh-sync-id: 4285ef6 fbshipit-source-id: 4285ef6 9 years ago
move Dom.JoinState to its own file Summary:public Will be needed later to avoid circular dependencies between dom.ml and upcoming numericalDomain.ml. Reviewed By: jberdine Differential Revision: D3126697 fb-gh-sync-id: 678d49f fbshipit-source-id: 678d49f 9 years ago			`(** Object representing the status of the join operation *)`

Convert Reason to OCaml, and auto-format OCaml Summary: Conversion and reformat of infer source using ocamlformat auto-formatting tool. Current status: - Because Reason does not handle docstrings, the output of the conversion is not 'Warning 50'-clean, meaning that there are docstrings with ambiguous placement. I'll need to manually fix them just before landing. Reviewed By: jvillard Differential Revision: D5225546 fbshipit-source-id: 3bd2786 8 years ago			`type mode = Pre \| Post [@@deriving compare]`
[BetterEngineering] Remove remaining uses of polymorphic equality Summary: Remove the remaining uses of polymorphic equality `=`. In case of basic types, this is replaced by String.equal or Int.equal. In case of `= []`, this is replaced by `List.is_empty`. In case of `= None`, this is replaced by `is_none`. In case of a datatype definition such as `type a = A \| B`, a `compare_a` function is defined by adding `type a = A \| B [@deriving compare]` and a `equal_a` function is defined as `let equal_a = [%compare.equal : a]`. In case of comparison with a polymorphic variant `= `Yes`, the equality defined in `PVariant.(=)` is used. Typically, `open! Pvariant` is added at the beginning of the file to cover all the uses. Reviewed By: jberdine Differential Revision: D4456129 fbshipit-source-id: f31c433 8 years ago
[ocamlformat] upgrade to ocamlformat 0.7 Reviewed By: mbouaziz Differential Revision: D9496601 fbshipit-source-id: 83c6fd241 7 years ago			`let equal_mode = [%compare.equal: mode]`
move Dom.JoinState to its own file Summary:public Will be needed later to avoid circular dependencies between dom.ml and upcoming numericalDomain.ml. Reviewed By: jberdine Differential Revision: D3126697 fb-gh-sync-id: 678d49f fbshipit-source-id: 678d49f 9 years ago
			`(** set to true when we are doing join of footprints *)`
			`let footprint = ref false`

			`let get_footprint () = !footprint`

			`let set_footprint b = footprint := b`