(***********************************************************************) (* *) (* HEVEA *) (* *) (* Luc Maranget, projet PARA, INRIA Rocquencourt *) (* *) (* Copyright 1998 Institut National de Recherche en Informatique et *) (* Automatique. Distributed only by permission. *) (* *) (***********************************************************************) let header = "$Id: version.ml,v 1.156 2006-10-16 08:57:17 maranget Exp $" let real_version = "1.09" let release_date = "2006-10-13" let version = try let _ = String.index real_version '+' in real_version^" of "^release_date with | Not_found -> real_version