master
Nicolás Ojeda Bär 2020-05-24 13:58:35 +02:00 committed by Gabriel Scherer
parent 105ac40bd6
commit b4ba61d73d
3 changed files with 4 additions and 4 deletions

View File

@ -92,7 +92,7 @@ module Sys = struct
match Sys.command command with
| 0 -> ()
| _ as exitcode ->
Printf.eprintf "Sysem command %s failed with status %d\n%!"
Printf.eprintf "System command %s failed with status %d\n%!"
command exitcode;
exit 3

View File

@ -36,7 +36,7 @@ rule token = parse
| "*/" { TSL_END_C_STYLE }
| "(*" blank* "TEST" { TSL_BEGIN_OCAML_STYLE }
| "*)" { TSL_END_OCAML_STYLE }
| "," { COMA }
| "," { COMMA }
| '*'+ { TEST_DEPTH (String.length (Lexing.lexeme lexbuf)) }
| "+=" { PLUSEQUAL }
| "=" { EQUAL }

View File

@ -33,7 +33,7 @@ let mkenvstmt envstmt =
%token TSL_BEGIN_C_STYLE TSL_END_C_STYLE
%token TSL_BEGIN_OCAML_STYLE TSL_END_OCAML_STYLE
%token COMA
%token COMMA
%token <int> TEST_DEPTH
%token EQUAL PLUSEQUAL
/* %token COLON */
@ -67,7 +67,7 @@ with_environment_modifiers:
opt_environment_modifiers:
| { [] }
| opt_environment_modifiers COMA identifier { $3::$1 }
| opt_environment_modifiers COMMA identifier { $3::$1 }
env_item:
| identifier EQUAL string