diff options
author | Paul Steckler <steck@stecksoft.com> | 2017-09-05 17:19:07 -0400 |
---|---|---|
committer | Paul Steckler <steck@stecksoft.com> | 2017-09-05 17:19:07 -0400 |
commit | 03cccc325821b6fff42d2e0a91dd9ce8ec7c3fea (patch) | |
tree | 41a91da4c5d77c48ac806c8b7b01a0036833d62e | |
parent | df6ae3d59af8f880a0411217b8e6f0dae0b92133 (diff) |
read flags from project file for Compile Buffer
-rw-r--r-- | CHANGES | 5 | ||||
-rw-r--r-- | ide/coqide.ml | 2 |
2 files changed, 7 insertions, 0 deletions
@@ -13,6 +13,11 @@ Tactics profiling, and "Set NativeCompute Profile Filename" customizes the profile filename. +Tools + +- In CoqIDE, the "Compile Buffer" command takes account of flags in + _CoqProject or other project file. + Changes from 8.6.1 to 8.7+beta ============================== diff --git a/ide/coqide.ml b/ide/coqide.ml index 7b65c9fec..6b24740b3 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -439,7 +439,9 @@ let compile sn = match sn.fileops#filename with |None -> flash_info "Active buffer has no name" |Some f -> + let (_,args) = make_coqtop_args fn in let cmd = cmd_coqc#get ^ " -I " ^ (Filename.quote (Filename.dirname f)) + ^ (List.fold_left (fun accum arg -> accum ^ " " ^ arg) "" args) ^ " " ^ (Filename.quote f) ^ " 2>&1" in let buf = Buffer.create 1024 in |