A blog engine written and proven in Coq.
This is a demo blog engine where a user can login (no passwords), add, edit or delete posts. The code is written mostly in Coq, compiled to OCaml and linked to the CoHTTP library to handle the HTTP protocol.
The aim of this project is to demonstrate that applications with I/Os can be written and specified naturally using the (new) concept of symbolic simulations in Coq.
Add the Coq repositories with OPAM:
opam repo add coq-released https://coq.inria.fr/opam/released
Install the dependencies:
opam install --jobs=4 coq:list-string coq:error-handlers coq:function-ninjas coq:moment opam install --jobs=4 lwt cohttp
Download the CSS:
curl -L https://github.com/clarus/coq-red-css/releases/download/coq-blog.1.0.2/style.min.css >extraction/static/style.min.css
./configure.sh && make cd extraction/ make
Run on localhost:8008:
A Dockerfile is provided to run ChickBlog in an isolated environment using Docker:
docker build --tag=chick-blog . docker run -ti -p 8008:8008 chick-blog
The blog is defined in
Main.v as the function:
Definition server (path : Path.t) (cookies : Cookies.t) : C.t Response.t.
It handles an HTTP request and generate an answer using system calls to the file system. The type
C.t A represents a computation doing I/O operations:
Inductive t (A : Type) : Type := | Ret : forall (x : A), t A | Call : forall (command : Command.t), (Command.answer command -> t A) -> t A.
A computation can either:
- return a pure value of type
- call an external command and wait for its result
The purity of Coq ensures that each request is answered exactly once in finite time. We specify the behavior of the server in
A scenario is a set of runs of the server. A type-checking scenario shows that the server behaves as expected in a certain use case. For example, we check that when we create, edit and view a post we get the same result as what we entered. You can think of a scenario as a unit test with universally quantified variables.
Here is a simple check of the execution of the index page:
(** The index page when the list of posts is available. *) Definition index_ok (cookies : Cookies.t) (post_headers : list Post.Header.t) : Run.t (Main.server Path.Index cookies). (* The handler asks the list of available posts. We return `post_headers`. *) apply (Call (Command.ListPosts _ ) (Some post_headers)). (* The handler terminates without other system calls. *) apply (Ret (Response.Index (Cookies.is_logged cookies) post_headers)). Defined.
post_headers, we execute the server handler on the page
Request.Path.Index. The handler does exactly one system call, to which we answer
Some post_headers, playing the role of the system. The final response of the server is then
Response.Public.Index post_headers. Note that we do not need to execute
index_ok on every instances of
post_headers: since the type-system of Coq is supposed sound, it is enough to type-check
We check that, for any runs of a program, an unauthenticated user cannot access private pages (like edit) or modify the file system with system calls.