diff options
Diffstat (limited to 'stm/workerLoop.ml')
-rw-r--r-- | stm/workerLoop.ml | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/stm/workerLoop.ml b/stm/workerLoop.ml new file mode 100644 index 000000000..50b42512c --- /dev/null +++ b/stm/workerLoop.ml @@ -0,0 +1,19 @@ +(************************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016 *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(************************************************************************) + +let rec parse = function + | "--xml_format=Ppcmds" :: rest -> parse rest + | x :: rest -> x :: parse rest + | [] -> [] + +let loop init args = + let args = parse args in + Flags.make_silent true; + init (); + CoqworkmgrApi.init !Flags.async_proofs_worker_priority; + args |