2017-07-21 07:43:36 -07:00
|
|
|
(**************************************************************************)
|
|
|
|
|
(* *)
|
|
|
|
|
(* OCaml *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Sebastien Hinderer, projet Gallium, INRIA Paris *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Copyright 2016 Institut National de Recherche en Informatique et *)
|
|
|
|
|
(* en Automatique. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* All rights reserved. This file is distributed under the terms of *)
|
|
|
|
|
(* the GNU Lesser General Public License version 2.1, with the *)
|
|
|
|
|
(* special exception on linking described in the file LICENSE. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
|
|
(* Abstract Syntax Tree for the Tests Specification Language *)
|
|
|
|
|
|
|
|
|
|
type 'a located = {
|
|
|
|
|
node : 'a;
|
|
|
|
|
loc : Location.t
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
type environment_statement =
|
2018-03-18 01:05:14 -07:00
|
|
|
| Assignment of bool * string located * string located (* variable = value *)
|
2017-12-02 14:53:16 -08:00
|
|
|
| Append of string located * string located (* variable += value *)
|
Fixing typos in various files (#2246)
Note: Typos found with https://github.com/codespell-project/codespell
Here is the (semi-manual) command used to get (and correct) the typos:
$ codespell -i 3 -w --skip=".png,.gif,./ocaml/boot,./ocaml/.git,./ocaml/manual/styles,./ocaml/manual/manual/htmlman" -L minimise,instal,contructor,"o'caml",cristal,pres,clos,cmo,uint,iff,te,objext,nto,nd,mut,upto,larg,exten,leage,mthod,delte,tim,atleast,langage,hten,iwth,mke,contant,succint,methids,eles,valu,clas,modul,que,classe,missings,froms,defaut,correspondance,differents,configury,reachs,cas,approche,normale,dur,millon,amin,oje,transfert
2019-02-13 05:04:56 -08:00
|
|
|
| Include of string located (* include named environment *)
|
2017-07-21 07:43:36 -07:00
|
|
|
|
|
|
|
|
type tsl_item =
|
|
|
|
|
| Environment_statement of environment_statement located
|
|
|
|
|
| Test of
|
|
|
|
|
int (* test depth *) *
|
|
|
|
|
string located (* test name *) *
|
|
|
|
|
string located list (* environment modifiers *)
|
|
|
|
|
|
|
|
|
|
type tsl_block = tsl_item list
|
|
|
|
|
|
|
|
|
|
val make_identifier : ?loc:Location.t -> string -> string located
|
|
|
|
|
val make_string : ?loc:Location.t -> string -> string located
|
|
|
|
|
val make_environment_statement :
|
|
|
|
|
?loc:Location.t -> environment_statement -> environment_statement located
|
