(* Copyright 2012 Tony Garnock-Jones . *) (* This file is part of Hop. *) (* Hop is free software: you can redistribute it and/or modify it *) (* under the terms of the GNU General Public License as published by the *) (* Free Software Foundation, either version 3 of the License, or (at your *) (* option) any later version. *) (* Hop is distributed in the hope that it will be useful, but *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* General Public License for more details. *) (* You should have received a copy of the GNU General Public License *) (* along with Hop. If not, see . *) let product = (Bytes.of_string "hop") let version = (Bytes.of_string "ALPHA") let copyright = (Bytes.of_string "Copyright (C) 2012 Tony Garnock-Jones.") let homepage = (Bytes.of_string "the GNU General Public License (version 3 or later)") (* TODO: real homepage *) let licence_blurb = (Bytes.of_string ("This program comes with ABSOLUTELY NO WARRANTY. This is free software,\n"^ "and you are welcome to redistribute it under certain conditions.\n"^ "See "^(Bytes.to_string homepage)^" for details."))