summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--debugger/debugger_parser.mly70
-rw-r--r--lex/parser.mly42
-rw-r--r--ocamldoc/odoc_parser.mly2
-rw-r--r--ocamldoc/odoc_text_parser.mly2
-rw-r--r--ocamltest/tsl_parser.mly34
-rw-r--r--testsuite/tools/parsecmm.mly44
6 files changed, 97 insertions, 97 deletions
diff --git a/debugger/debugger_parser.mly b/debugger/debugger_parser.mly
index 574c60745f..973b761983 100644
--- a/debugger/debugger_parser.mly
+++ b/debugger/debugger_parser.mly
@@ -1,18 +1,18 @@
-(**************************************************************************)
-(* *)
-(* OCaml *)
-(* *)
-(* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
-(* OCaml port by John Malecki and Xavier Leroy *)
-(* *)
-(* Copyright 1996 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. *)
-(* *)
-(**************************************************************************)
+/**************************************************************************/
+/* */
+/* OCaml */
+/* */
+/* Jerome Vouillon, projet Cristal, INRIA Rocquencourt */
+/* OCaml port by John Malecki and Xavier Leroy */
+/* */
+/* Copyright 1996 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. */
+/* */
+/**************************************************************************/
%{
@@ -29,18 +29,18 @@ open Debugcom
%token <string> UIDENT
%token <string> OPERATOR
%token <int64> INTEGER
-%token STAR (* * *)
-%token MINUS (* - *)
-%token DOT (* . *)
-%token COLON (* : *)
-%token HASH (* # *)
-%token AT (* @ *)
-%token DOLLAR (* $ *)
-%token BANG (* ! *)
-%token LPAREN (* ( *)
-%token RPAREN (* ) *)
-%token LBRACKET (* [ *)
-%token RBRACKET (* ] *)
+%token STAR /* * */
+%token MINUS /* - */
+%token DOT /* . */
+%token COLON /* : */
+%token HASH /* # */
+%token AT /* @ */
+%token DOLLAR /* $ */
+%token BANG /* ! */
+%token LPAREN /* ( */
+%token RPAREN /* ) */
+%token LBRACKET /* [ */
+%token RBRACKET /* ] */
%token EOL
%right DOT
@@ -111,7 +111,7 @@ open Debugcom
%%
-(* Raw arguments *)
+/* Raw arguments */
argument_list_eol :
ARGUMENT argument_list_eol
@@ -123,7 +123,7 @@ argument_eol :
ARGUMENT end_of_line
{ $1 };
-(* Integer *)
+/* Integer */
integer_list_eol :
INTEGER integer_list_eol
@@ -167,7 +167,7 @@ opt_signed_int64_eol :
| opt_int64_eol
{ $1 };
-(* Identifiers and long identifiers *)
+/* Identifiers and long identifiers */
longident :
LIDENT { Lident $1 }
@@ -212,7 +212,7 @@ opt_identifier :
opt_identifier_eol :
opt_identifier end_of_line { $1 };
-(* Expressions *)
+/* Expressions */
expression:
longident { E_ident $1 }
@@ -226,14 +226,14 @@ expression:
| LPAREN expression RPAREN { $2 }
;
-(* Lists of expressions *)
+/* Lists of expressions */
expression_list_eol :
expression expression_list_eol { $1::$2 }
| end_of_line { [] }
;
-(* Arguments for breakpoint *)
+/* Arguments for breakpoint */
break_argument_eol :
end_of_line { BA_none }
@@ -246,7 +246,7 @@ break_argument_eol :
| AT opt_longident HASH integer_eol { BA_pos2 ($2, $4) }
;
-(* Arguments for list *)
+/* Arguments for list */
list_arguments_eol :
opt_longident integer opt_integer_eol
@@ -254,7 +254,7 @@ list_arguments_eol :
| opt_longident_eol
{ ($1, None, None) };
-(* End of line *)
+/* End of line */
end_of_line :
EOL { stop_user_input () }
diff --git a/lex/parser.mly b/lex/parser.mly
index 67a2b1559d..7e9e1f34d2 100644
--- a/lex/parser.mly
+++ b/lex/parser.mly
@@ -1,19 +1,19 @@
-(**************************************************************************)
-(* *)
-(* OCaml *)
-(* *)
-(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
-(* *)
-(* Copyright 1996 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. *)
-(* *)
-(**************************************************************************)
-
-(* The grammar for lexer definitions *)
+/**************************************************************************/
+/* */
+/* OCaml */
+/* */
+/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
+/* */
+/* Copyright 1996 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. */
+/* */
+/**************************************************************************/
+
+/* The grammar for lexer definitions */
%{
open Syntax
@@ -79,25 +79,25 @@ lexer_definition:
header:
Taction
{ $1 }
- | (*epsilon*)
+ | /*epsilon*/
{ { loc_file = ""; start_pos = 0; end_pos = 0; start_line = 1;
start_col = 0 } }
;
named_regexps:
named_regexps Tlet Tident Tequal regexp
{ Hashtbl.add named_regexps $3 $5 }
- | (*epsilon*)
+ | /*epsilon*/
{ () }
;
other_definitions:
other_definitions Tand definition
{ $3::$1 }
- | (*epsilon*)
+ | /*epsilon*/
{ [] }
;
refill_handler:
| Trefill Taction { Some $2 }
- | (*empty*) { None }
+ | /*empty*/ { None }
;
definition:
Tident arguments Tequal Tparse entry
@@ -108,7 +108,7 @@ definition:
arguments:
Tident arguments { $1::$2 }
-| (*epsilon*) { [] }
+| /*epsilon*/ { [] }
;
diff --git a/ocamldoc/odoc_parser.mly b/ocamldoc/odoc_parser.mly
index a5ad13c3ec..da3280bad4 100644
--- a/ocamldoc/odoc_parser.mly
+++ b/ocamldoc/odoc_parser.mly
@@ -1,3 +1,4 @@
+%{
(**************************************************************************)
(* *)
(* OCaml *)
@@ -13,7 +14,6 @@
(* *)
(**************************************************************************)
-%{
open Odoc_comments_global
let uppercase = "[A-Z\192-\214\216-\222]"
diff --git a/ocamldoc/odoc_text_parser.mly b/ocamldoc/odoc_text_parser.mly
index a0bf53599c..2b7b2a6b42 100644
--- a/ocamldoc/odoc_text_parser.mly
+++ b/ocamldoc/odoc_text_parser.mly
@@ -83,7 +83,7 @@ let remove_trailing_blanks s =
%nonassoc below_Char
%nonassoc Char
-(* Start Symbols *)
+/* Start Symbols */
%start main located_element_list
%type <Odoc_types.text> main
%type <(int * int * Odoc_types.text_element) list> located_element_list
diff --git a/ocamltest/tsl_parser.mly b/ocamltest/tsl_parser.mly
index ff747af22c..e6a875a886 100644
--- a/ocamltest/tsl_parser.mly
+++ b/ocamltest/tsl_parser.mly
@@ -1,19 +1,19 @@
-(**************************************************************************)
-(* *)
-(* 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. *)
-(* *)
-(**************************************************************************)
-
-(* Parser for the Tests Specification Language *)
+/**************************************************************************/
+/* */
+/* 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. */
+/* */
+/**************************************************************************/
+
+/* Parser for the Tests Specification Language */
%{
@@ -36,7 +36,7 @@ let mkenvstmt envstmt =
%token COMMA
%token <int> TEST_DEPTH
%token EQUAL PLUSEQUAL
-(* %token COLON *)
+/* %token COLON */
%token INCLUDE SET UNSET WITH
%token <string> IDENTIFIER
%token <string> STRING
diff --git a/testsuite/tools/parsecmm.mly b/testsuite/tools/parsecmm.mly
index 312b335154..d9807e24d5 100644
--- a/testsuite/tools/parsecmm.mly
+++ b/testsuite/tools/parsecmm.mly
@@ -1,19 +1,19 @@
-(**************************************************************************)
-(* *)
-(* OCaml *)
-(* *)
-(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
-(* *)
-(* Copyright 1996 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. *)
-(* *)
-(**************************************************************************)
+/**************************************************************************/
+/* */
+/* OCaml */
+/* */
+/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
+/* */
+/* Copyright 1996 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. */
+/* */
+/**************************************************************************/
-(* A simple parser for C-- *)
+/* A simple parser for C-- */
%{
open Cmm
@@ -188,7 +188,7 @@ fun_name:
| IDENT { $1 }
params:
oneparam params { $1 :: $2 }
- | (**) { [] }
+ | /**/ { [] }
;
oneparam:
IDENT COLON machtype { (bind_ident $1, $3) }
@@ -293,14 +293,14 @@ expr:
;
exprlist:
exprlist expr { $2 :: $1 }
- | (**) { [] }
+ | /**/ { [] }
;
letdef:
oneletdef { [$1] }
| LPAREN letdefmult RPAREN { $2 }
;
letdefmult:
- (**) { [] }
+ /**/ { [] }
| oneletdef letdefmult { $1 :: $2 }
;
oneletdef:
@@ -311,7 +311,7 @@ letmutdef:
| LPAREN letmutdefmult RPAREN { $2 }
;
letmutdefmult:
- (**) { [] }
+ /**/ { [] }
| oneletmutdef letmutdefmult { $1 :: $2 }
;
oneletmutdef:
@@ -389,7 +389,7 @@ sequence:
;
caselist:
onecase sequence caselist { ($1, $2) :: $3 }
- | (**) { [] }
+ | /**/ { [] }
;
onecase:
CASE INTCONST COLON onecase { $2 :: $4 }
@@ -404,7 +404,7 @@ datadecl:
;
datalist:
datalist dataitem { $2 :: $1 }
- | (**) { [] }
+ | /**/ { [] }
;
dataitem:
STRING COLON { Cdefine_symbol $1 }
@@ -432,5 +432,5 @@ catch_handler:
{ find_label $2, $3, $5, debuginfo () }
location:
- (**) { None }
+ /**/ { None }
| LOCATION { Some $1 }
View Lorry Controller Status