Skip to main content

Browse the archive

https://github.com/mit-plv/fiat-crypto
12 July 2022, 18:24:35 UTC
Revision bf19fee118183f281dbf3841ec5562b6366f75f4 authored by jadep on 17 August 2020, 08:52:08 UTC, committed by jadephilipoom on 19 August 2020, 11:50:31 UTC 
change Instances to Definitions
1 parent 9d50fde
Raw File
Tip revision: bf19fee118183f281dbf3841ec5562b6366f75f4 authored by jadep on 17 August 2020, 08:52:08 UTC
change Instances to Definitions
Tip revision: bf19fee
.dir-locals.el 
((coq-mode . ((eval . (let* ((project-root (locate-dominating-file buffer-file-name "_CoqProject"))
                             (coqprime-folder (expand-file-name "coqprime/src" project-root))
                             (rewriter-folder (expand-file-name "rewriter/src" project-root))
                             (rupicola-folder (expand-file-name "rupicola/src" project-root))
                             (bedrock2-folder (expand-file-name "rupicola/bedrock2/bedrock2/src" project-root))
                             (coqutil-folder (expand-file-name "rupicola/bedrock2/deps/coqutil/src" project-root))
                             (coq-path (lambda () (split-string (or (getenv "COQPATH") "") path-separator t))))
                        (unless (member coqutil-folder (funcall coq-path))
                          (setenv "COQPATH" (mapconcat #'identity (cons coqutil-folder (funcall coq-path)) path-separator)))
                        (unless (member rewriter-folder (funcall coq-path))
                          (setenv "COQPATH" (mapconcat #'identity (cons rewriter-folder (funcall coq-path)) path-separator)))
                        (unless (member rupicola-folder (funcall coq-path))
                          (setenv "COQPATH" (mapconcat #'identity (cons rupicola-folder (funcall coq-path)) path-separator)))
                        (unless (member bedrock2-folder (funcall coq-path))
                          (setenv "COQPATH" (mapconcat #'identity (cons bedrock2-folder (funcall coq-path)) path-separator)))
                        (unless (member coqprime-folder (funcall coq-path))
                          (setenv "COQPATH" (mapconcat #'identity (cons coqprime-folder (funcall coq-path)) path-separator))))))))
back to top