Peter Szilagyi committed f909e32

OMakeroot error support

Comments (0)

Files changed (1)


 (*  Rex                                                                       *)
 (* -------------------------------------------------------------------------- *)
+(* CR pszilagyi: Many of these strike me as being kind of specific.  It might make more
+   sense to develop a stricter convention and force omake to fit into it, kind of the way
+   GNU tools have a kind of uniform error format, even with file and line number. *)
 module Rex = struct
   let reading_omakefiles = Regex.of_string
     (sprintf "(%s|%s)"
     (* Don't use "waiting for project lock" because the line takes a long time
        to end while omake spits out ............. *)
     (* let error10 = "\\*\\*\\* omake: waiting for project lock:" in *)
-    Regex.of_string (sprintf "(%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s)"
+    let error14 = "\\*\\*\\* OMakeroot error:" in
+    Regex.of_string (sprintf "(%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s)"
                        error1 error2 error3 error4 error5 error6
                        error7 error8 error9 error10 error11 error12
-                       error13)
+                       error13 error14)
 (* -------------------------------------------------------------------------- *)