package orsetto
Install
Dune Dependency
Authors
Maintainers
Sources
sha256=585297372d7f6cfb830214e9ef22d6d072a39b2a1591ef90f1ee2bcfe144cad3
md5=6bb6a7ba88bf2c7595a0b332921e60b4
doc/orsetto.ucs/Ucs_scan/Create/Annot/index.html
Module Create.Annot
The annotation system for Unicode encoded texts.
Include the common signature specialized for textual positions.
include Cf_annot.Profile
with type position := Cf_annot.Textual.position
with type symbol := Uchar.t
The type of an input event, comprising a symbol and its position.
type span = private
| Span of {
start : Cf_annot.Textual.position;
limit : Cf_annot.Textual.position;
}
Representation of a span of positions, comprising the pair of a) the position of the first symbol in the span, and b) the position of the symbol immediately following the last symbol in the span. Accordingly, if both the start and limit fields have the same serial number, then the span is empty, comprising no symbols.
A value annotated with its span of text in the input stream.
module Scan_basis :
Cf_scan.Basis
with type Symbol.t = Uchar.t
and type iota = iota
and type position = Cf_annot.Textual.position
and type 'a Form.t = 'a form
A basis module for constructing a
Inclusion of the
f_scan
production form signature.
include Cf_scan.Form with type 'a t := 'a form
val imp : 'a -> 'a form
Scanners use imp value
to create a value form with a distinguished implicit position, i.e. not located in the input stream.
val dn : 'a form -> 'a
Scanners use dn form
to get the value wrapped in form
.
Scanners use mv value form
to make a form containing value
attributed with the same position as form
.
Use map f v
to apply f
to the value enclosed in v
to make the result annotated with the same position as v
.
Use join f a b
to apply f
to the values enclosed in a
and b
to make the result annotated with the span that covers the overlap of the positions of both a
and b
.
Use collect s
to collect all the values enclosed in the forms s
to a single list annotated with the span that overlaps all the positions in s
.
val to_iotas : ?start:Cf_annot.Textual.position -> Uchar.t Seq.t -> iota Seq.t
Use to_iotas s
to lift s
into a sequence of iota values. Use ~start
to provide an explicit starting position.
val emit_form : Format.formatter -> 'a form -> unit
Use emit_form pp vl
to print the span of vl
with pp
in a mostly readable format.