30 lines
772 B
OCaml
30 lines
772 B
OCaml
(* an 'alias' is an alternate name with minor or no alterations to behavior *)
|
|
|
|
(* exceptions *)
|
|
exception Malformed_source = Exceptions.Malformed_source
|
|
exception Malformed_state = Exceptions.Malformed_state
|
|
|
|
(* logging *)
|
|
let print = print_endline
|
|
let elog = Log.elog
|
|
|
|
(* casts *)
|
|
let str_int = string_of_int
|
|
let chars_str = Text.chars_of_string
|
|
let str_chars = Text.string_of_chars
|
|
let str_char = String.make 1
|
|
let str_dbool = Schema.string_of_default_bool
|
|
|
|
(* control flow & precedence *)
|
|
let ($) = (@@)
|
|
|
|
(* lists *)
|
|
type 'a lists = 'a list list
|
|
let ($:) list element = list @ [element]
|
|
let pick index list = List.nth list index
|
|
let rmap = List.rev_map
|
|
let reverse = List.rev
|
|
let length = List.length
|
|
let ifilter = List.filteri
|
|
let imap = List.mapi
|
|
let map = List.map
|