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 47765f58 authored by Sylvain Dailler's avatar Sylvain Dailler
Browse files

ide: Querying (print/search) on a proofAttempt = querying on its parent.

parent 778feeab
...@@ -366,6 +366,13 @@ type command = ...@@ -366,6 +366,13 @@ type command =
| QError of string | QError of string
| Other of string * string list | Other of string * string list
let query_on_task cont f id args =
let _,table = Session_itp.get_task cont.Controller_itp.controller_session id in
try Query (f cont table args) with
| Undefined_id s -> QError ("No existing id corresponding to " ^ s)
| Number_of_arguments -> QError "Bad number of arguments"
let interp commands_table cont id s = let interp commands_table cont id s =
let cmd,args = split_args s in let cmd,args = split_args s in
match Stdlib.Hstr.find commands_table cmd with match Stdlib.Hstr.find commands_table cmd with
...@@ -374,11 +381,12 @@ let interp commands_table cont id s = ...@@ -374,11 +381,12 @@ let interp commands_table cont id s =
match f,id with match f,id with
| Qnotask f, _ -> Query (f cont args) | Qnotask f, _ -> Query (f cont args)
| Qtask f, Some (Session_itp.APn id) -> | Qtask f, Some (Session_itp.APn id) ->
let _,table = Session_itp.get_task cont.Controller_itp.controller_session id in query_on_task cont f id args
let s = try Query (f cont table args) with | Qtask f, Some (Session_itp.APa pid) ->
| Undefined_id s -> QError ("No existing id corresponding to " ^ s) let id = Session_itp.get_proof_attempt_parent
| Number_of_arguments -> QError "Bad number of arguments" cont.Controller_itp.controller_session pid
in s in
query_on_task cont f id args
| Qtask _, _ -> QError "please select a goal first" | Qtask _, _ -> QError "please select a goal first"
end end
| exception Not_found -> | exception Not_found ->
......
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