diff options
Diffstat (limited to 'ocamldoc/odoc_text_lexer.mll')
| -rw-r--r-- | ocamldoc/odoc_text_lexer.mll | 114 |
1 files changed, 57 insertions, 57 deletions
diff --git a/ocamldoc/odoc_text_lexer.mll b/ocamldoc/odoc_text_lexer.mll index b253ee57e..aaaff1057 100644 --- a/ocamldoc/odoc_text_lexer.mll +++ b/ocamldoc/odoc_text_lexer.mll @@ -186,7 +186,7 @@ rule main = parse { print_DEBUG "end"; incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or + if !verb_mode || !target_mode || !code_pre_mode || (!open_brackets >= 1) then Char (Lexing.lexeme lexbuf) else @@ -200,8 +200,8 @@ rule main = parse { print_DEBUG "begin_title"; incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else let s = Lexing.lexeme lexbuf in @@ -229,8 +229,8 @@ rule main = parse | begin_bold { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else BOLD @@ -238,8 +238,8 @@ rule main = parse | begin_italic { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else ITALIC @@ -247,8 +247,8 @@ rule main = parse | begin_link { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else LINK @@ -256,8 +256,8 @@ rule main = parse | begin_emp { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else EMP @@ -265,8 +265,8 @@ rule main = parse | begin_superscript { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else SUPERSCRIPT @@ -274,8 +274,8 @@ rule main = parse | begin_subscript { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else SUBSCRIPT @@ -283,8 +283,8 @@ rule main = parse | begin_center { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else CENTER @@ -292,8 +292,8 @@ rule main = parse | begin_left { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else LEFT @@ -301,8 +301,8 @@ rule main = parse | begin_right { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode - or (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode + || (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else RIGHT @@ -311,8 +311,8 @@ rule main = parse { print_DEBUG "LIST"; incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else LIST @@ -320,8 +320,8 @@ rule main = parse | begin_enum { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else ENUM @@ -330,8 +330,8 @@ rule main = parse { print_DEBUG "ITEM"; incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else ITEM @@ -339,8 +339,8 @@ rule main = parse | begin_target { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else ( @@ -357,8 +357,8 @@ rule main = parse | begin_latex { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else ( @@ -369,7 +369,7 @@ rule main = parse | end_target { incr_cpts lexbuf ; - if !verb_mode or (!open_brackets >= 1) or !code_pre_mode or + if !verb_mode || (!open_brackets >= 1) || !code_pre_mode || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else @@ -387,7 +387,7 @@ rule main = parse | begin_code { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else if !open_brackets <= 0 then @@ -404,7 +404,7 @@ rule main = parse | end_code { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else if !open_brackets > 1 then @@ -428,7 +428,7 @@ rule main = parse | begin_code_pre { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else ( @@ -439,7 +439,7 @@ rule main = parse | end_code_pre { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !ele_ref_mode then + if !verb_mode || !target_mode || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else if !open_brackets >= 1 then @@ -480,7 +480,7 @@ rule main = parse | begin_ele_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -498,7 +498,7 @@ rule main = parse | begin_val_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -515,7 +515,7 @@ rule main = parse | begin_typ_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -532,7 +532,7 @@ rule main = parse | begin_exc_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -549,7 +549,7 @@ rule main = parse | begin_mod_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -566,7 +566,7 @@ rule main = parse | begin_modt_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -583,7 +583,7 @@ rule main = parse | begin_cla_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -600,7 +600,7 @@ rule main = parse | begin_clt_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -617,7 +617,7 @@ rule main = parse | begin_att_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -634,7 +634,7 @@ rule main = parse | begin_met_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -651,7 +651,7 @@ rule main = parse | begin_sec_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -667,7 +667,7 @@ rule main = parse | begin_recf_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -683,7 +683,7 @@ rule main = parse | begin_const_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -699,7 +699,7 @@ rule main = parse | begin_mod_list_ref { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -716,7 +716,7 @@ rule main = parse | index_list { incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or !open_brackets >= 1 then + if !verb_mode || !target_mode || !code_pre_mode || !open_brackets >= 1 then Char (Lexing.lexeme lexbuf) else if not !ele_ref_mode then @@ -728,7 +728,7 @@ rule main = parse | begin_verb { incr_cpts lexbuf ; - if !target_mode or (!open_brackets >= 1) or !code_pre_mode or !ele_ref_mode then + if !target_mode || (!open_brackets >= 1) || !code_pre_mode || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else ( @@ -739,7 +739,7 @@ rule main = parse | end_verb { incr_cpts lexbuf ; - if !target_mode or (!open_brackets >= 1) or !code_pre_mode or !ele_ref_mode then + if !target_mode || (!open_brackets >= 1) || !code_pre_mode || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else ( @@ -797,7 +797,7 @@ rule main = parse END_SHORTCUT_LIST ) else - if !target_mode or (!open_brackets >= 1) or !code_pre_mode or !ele_ref_mode or !verb_mode then + if !target_mode || (!open_brackets >= 1) || !code_pre_mode || !ele_ref_mode || !verb_mode then Char (Lexing.lexeme lexbuf) else BLANK_LINE @@ -809,8 +809,8 @@ rule main = parse { print_DEBUG "begin_custom"; incr_cpts lexbuf ; - if !verb_mode or !target_mode or !code_pre_mode or - (!open_brackets >= 1) or !ele_ref_mode then + if !verb_mode || !target_mode || !code_pre_mode || + (!open_brackets >= 1) || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else let s = Lexing.lexeme lexbuf in @@ -823,7 +823,7 @@ rule main = parse | "{" { incr_cpts lexbuf ; - if !target_mode or (!open_brackets >= 1) or !code_pre_mode or !ele_ref_mode then + if !target_mode || (!open_brackets >= 1) || !code_pre_mode || !ele_ref_mode then Char (Lexing.lexeme lexbuf) else LBRACE |