module Cstring:sig..end
"Lit_%04X" id
String Literal
type cst =
| |
C_str of |
(* | String Literal | *) |
| |
W_str of |
(* | Wide String Literal | *) |
module STR:sig..end
val pretty : Format.formatter -> cst -> unit
val cluster : unit -> Definitions.clustermodule LIT:Model.Generator(STR)(sigtypekey =Cstring.csttypedata =int * Lang.F.termval name :stringval hid :(int, unit) Hashtbl.tval lookup :int -> intval export_literal :string -> Lang.F.Fun.t -> string -> unitval compile :Cstring.STR.t -> int * Lang.F.termend)
val str_id : LIT.key -> intval str_val : LIT.key -> Lang.F.termchar of the constantval str_len : cst -> Lang.F.term -> Lang.F.pred
val char_at : LIT.key -> Lang.F.term -> Lang.F.term