package lambdapi

  1. Overview
  2. Docs
Proof assistant for the λΠ-calculus modulo rewriting

Install

Dune Dependency

Authors

Maintainers

Sources

lambdapi-2.4.1.tbz
sha256=221dff97ab245c49b7e6480fa2a3a331ab70eb86dd5d521e2c73151029bbb787
sha512=a39961bb7f04f739660a98a52981d4793709619cd21310ca6982ba78af81ef09e01c7517ee3b8b2687b09f7d2614d878c1d69494ca6ab8ef8205d240c216ce8a

doc/src/lambdapi.common/escape.ml.html

Source file escape.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
(** Escaped identifiers ["{|...|}"]. *)

(** [is_escaped s] tells if [s] begins with ["{|"] and ends with ["|}"]
   without overlapping. For efficiency, we just test that it starts with
   ['{']. *)
let is_escaped : string -> bool = fun s -> s <> "" && s.[0] = '{'

(** [unescape s] removes ["{|"] and ["|}"] if [s] is an escaped identifier. *)
let unescape : string -> string = fun s ->
  if is_escaped s then String.(sub s 2 (length s - 4)) else s

(** [p] is assumed to be a regular identifier. If [n] is a regular identifier
   too, then [add_prefix p n] is just [p ^ n]. Otherwise, it is ["{|" ^ p ^
   unescape n ^ "|}"]. *)
let add_prefix : string -> string -> string = fun p n ->
  if is_escaped n then "{|" ^ p ^ unescape n ^ "|}" else p ^ n

(** [s] is assumed to be a regular identifier. If [n] is a regular identifier
   too, then [add_suffix n s] is just [n ^ s]. Otherwise, it is ["{" ^
   unescape n ^ s ^ "|}"]. *)
let add_suffix : string -> string -> string = fun n s ->
  if is_escaped n then "{|" ^ unescape n ^ s ^ "|}"  else n ^ s
OCaml

Innovation. Community. Security.