Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit 7032e45c authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Remove a few horrible hardwired constants in [lexer.mll].

parent 99cdfe4d
......@@ -143,12 +143,17 @@ let position pos
(i : string option) (x : string option)
=
let none _ = () in
let where, ofslpar (* offset of the opening parenthesis, if there is one *) =
let ofslpar = (* offset of the opening parenthesis, if there is one *)
1 + (* for the initial "$" *)
String.length where +
3 (* for "pos" or "ofs" *)
in
let where =
match where with
| "symbolstart" -> WhereSymbolStart, 15
| "start" -> WhereStart, 9
| "end" -> WhereEnd, 7
| _ -> assert false
| "symbolstart" -> WhereSymbolStart
| "start" -> WhereStart
| "end" -> WhereEnd
| _ -> assert false
in
let () =
match where, i, x with
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment