Up

module Path

: sig

Path: Module for Substitutions within S-expressions

Types
#
type el =
# | Pos of int
(*Pos n denotes nth element in a tuple*)
# | Match of string * int
(*Match (tag, n) denotes nth argument of sum matching tag*)
# | Rec of string
(*Rec name denotes the record field having name*)

Type of substitution elements

#
type t = el list

Type of substitution paths

High-level functions
#
val parse : string -> t

parse str

Returns a substitution path represented by string str.
Syntax:
"." -> separates path elements; must be present at start of string.
"[4]" -> specifies the 4th element in a tuple.
"some_tag[4]" -> tries to match some_tag, then denotes its 4th argument.
"name" -> denotes record field having name
Example from test code:
".t.x.B1" -> choose record field with name t, then subfield x. Match this value against B, and denote its first argument.
Raises Failure if the path is syntactically invalid.
#
val get : ?path:t -> ?str:string -> Sexp.t -> Sexp.t

get ?path ?str sexp if path is provided, use it as path. Otherwise, if str is provided, parse it as a path. If neither is provided, assume an empty path.

Returns the sub-expression from S-expression sexp denoted by the path.
Raises Failure if path is syntactically invalid or if the path structure clashes with the structure of the data.
#
val replace : ?path:t -> ?str:string -> Sexp.t -> subst:Sexp.t -> Sexp.t

replace ?path ?str sexp ~subst like get, but does not extract a sub-expression but substitutes it with subst.

Returns resulting S-expression.
Raises Failure if path is syntactically invalid or if the path structure clashes with the structure of the data.
#
val replace_no_path : str:string -> Sexp.t -> subst:Sexp.t -> Sexp.t

replace_no_path ~str sexp ~subst like replace, but does not take optional arguments. str must be specified.

Raises Failure if path is syntactically invalid or if the path structure clashes with the structure of the data.
#
val subst_path : Sexp.t -> t -> (Sexp.t -> Sexp.t) * Sexp.t

subst_path sexp path

Returns the tuple (subst, sub), where subst is a function that returns an S-expression in which the subexpression denoted by path in sexp has been substituted by its argument. sub is the denoted subexpression. Note that subst sub = sexp.
Raises Failure if path is syntactically invalid or if the path structure clashes with the structure of the data.
Low-level functions
#
val extract_pos : int -> Sexp.t -> (Sexp.t option -> Sexp.t) * Sexp.t

extract_pos n sexp

Returns the tuple (subst, sub), where subst is a function that returns an S-expression in which the subexpression denoted at position n in sexp, which must be a list, has been substituted by value if the optional argument is Some value, or removes the denoted subexpression if the optional argument is None. sub is the denoted subexpression. Note that subst (Some sub) = sexp.
Raises Failure if the position cannot be resolved within the given S-expression.
#
val extract_match : string -> int -> Sexp.t -> (Sexp.t option -> Sexp.t) * Sexp.t

extract_match tag n sexp

Returns the tuple (subst, sub), where subst is a function that returns an S-expression in which the subexpression denoted by matching tag and taking its nth argument in sexp has been substituted by value if the argument is Some value, or removes the denoted subexpression if the optional argument is None. sub is the denoted subexpression. Note that subst (Some sub) = sexp.
Raises Failure if the S-expression does not represent a sum tag.
#
val extract_rec : string -> Sexp.t -> (Sexp.t -> Sexp.t) * Sexp.t

extract_rec name sexp

Returns the tuple (subst, sub), where subst is a function that returns an S-expression in which the subexpression denoted by matching field name name in sexp has been substituted by its argument. sub is the denoted subexpression. Note that subst (Some sub) = sexp.
Raises Failure if the S-expression does not represent a record.
end