syndicate-lang
/
hop-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Rename in ML code.

This commit is contained in:
Tony Garnock-Jones 2012-05-01 17:36:38 -04:00
parent 477ba1eef5
commit c059bcbfa4
39 changed files with 158 additions and 158 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -1,4 +1,4 @@
APP=ocamlmsg APP=hop_server
TEMPLATES=$(wildcard web/bootstrap/templates/*.xml) TEMPLATES=$(wildcard web/bootstrap/templates/*.xml)
HTML=$(subst web/bootstrap/templates/,web/,$(subst .xml,.html,$(TEMPLATES))) HTML=$(subst web/bootstrap/templates/,web/,$(subst .xml,.html,$(TEMPLATES)))

16
amqp_codegen.py
View File

@ -1,38 +1,38 @@
## Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. ## Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>.
## ##
## This file is part of Ocamlmsg. ## This file is part of Hop.
## ##
## Ocamlmsg is free software: you can redistribute it and/or modify it ## 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 ## 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 ## Free Software Foundation, either version 3 of the License, or (at your
## option) any later version. ## option) any later version.
## ##
## Ocamlmsg is distributed in the hope that it will be useful, but ## Hop is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of ## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details. ## General Public License for more details.
## ##
## You should have received a copy of the GNU General Public License ## You should have received a copy of the GNU General Public License
## along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. ## along with Hop. If not, see <http://www.gnu.org/licenses/>.
## ##
from __future__ import with_statement from __future__ import with_statement
copyright_stmt = '''(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) copyright_stmt = '''(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
''' '''
import sys import sys

8
amqp_relay.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Unix open Unix
open Printf open Printf

8
amqp_wireformat.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Sexp open Sexp

10
app_info.ml
View File

@ -1,21 +1,21 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
let product = "ocamlmsg" let product = "hop"
let version = "ALPHA" let version = "ALPHA"
let copyright = "Copyright (C) 2012 Tony Garnock-Jones." let copyright = "Copyright (C) 2012 Tony Garnock-Jones."
let homepage = "the GNU General Public License (version 3 or later)" (* TODO: real homepage *) let homepage = "the GNU General Public License (version 3 or later)" (* TODO: real homepage *)

8
codegen.py
View File

@ -1,19 +1,19 @@
## Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. ## Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>.
## ##
## This file is part of Ocamlmsg. ## This file is part of Hop.
## ##
## Ocamlmsg is free software: you can redistribute it and/or modify it ## 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 ## 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 ## Free Software Foundation, either version 3 of the License, or (at your
## option) any later version. ## option) any later version.
## ##
## Ocamlmsg is distributed in the hope that it will be useful, but ## Hop is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of ## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details. ## General Public License for more details.
## ##
## You should have received a copy of the GNU General Public License ## You should have received a copy of the GNU General Public License
## along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. ## along with Hop. If not, see <http://www.gnu.org/licenses/>.
## ##
from __future__ import with_statement from __future__ import with_statement

8
config.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Hof open Hof

8
connections.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Unix open Unix
open Printf open Printf

8
datastructures.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
module StringSet = Set.Make(String) module StringSet = Set.Make(String)
module StringMap = Map.Make(String) module StringMap = Map.Make(String)

8
directnode.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Sexp open Sexp
open Datastructures open Datastructures

8
factory.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Printf open Printf
open Sexp open Sexp

8
fanoutnode.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Sexp open Sexp
open Datastructures open Datastructures

8
fqueue.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
(* Functional queue. *) (* Functional queue. *)

8
hof.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
(* Higher-order function utilities, based on the interfaces in Ocaml (* Higher-order function utilities, based on the interfaces in Ocaml
Batteries. *) Batteries. *)

8
ocamlmsg.ml → hop_server.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
let hook_log () = let hook_log () =
let old_hook = !Log.hook in let old_hook = !Log.hook in

8
html.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
type html_content = type html_content =
| Tag of string * (string * string) list * html_content list * bool | Tag of string * (string * string) list * html_content list * bool

8
httpd.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Unix open Unix

8
httpd_date.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Unix open Unix

8
httpd_file.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
let visible_path_component s = let visible_path_component s =
match s with match s with

8
ibuffer.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
type t = { type t = {
mutable pos: int; mutable pos: int;

8
json.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
type t = type t =
| Num of float | Num of float

8
log.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Sexp open Sexp

8
meta.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Sexp open Sexp

8
net.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Unix open Unix

8
node.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Printf open Printf
open Datastructures open Datastructures

8
queuenode.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Sexp open Sexp
open Status open Status

8
relay.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Unix open Unix
open Printf open Printf

8
server_control.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Datastructures open Datastructures

8
sexp.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
(* SPKI SEXP *) (* SPKI SEXP *)

8
speedtest.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Sexp open Sexp

8
squeue.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
(* Shared queue *) (* Shared queue *)

8
status.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
type ('success, 'failure) t = type ('success, 'failure) t =
| Ok of 'success | Ok of 'success

8
stringstream.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
type t = Stream of (unit -> (string * bool * t) option) type t = Stream of (unit -> (string * bool * t) option)

8
subscription.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Datastructures open Datastructures

8
test_fqueue.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
#use "fqueue.ml" #use "fqueue.ml"

8
ui_main.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Html open Html
open Hof open Hof

8
ui_relay.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Hof open Hof

8
util.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
open Sexp open Sexp
open Printf open Printf

8
uuid.ml
View File

@ -1,19 +1,19 @@
(* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *) (* Copyright 2012 Tony Garnock-Jones <tonygarnockjones@gmail.com>. *)
(* This file is part of Ocamlmsg. *) (* This file is part of Hop. *)
(* Ocamlmsg is free software: you can redistribute it and/or modify it *) (* 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 *) (* 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 *) (* Free Software Foundation, either version 3 of the License, or (at your *)
(* option) any later version. *) (* option) any later version. *)
(* Ocamlmsg is distributed in the hope that it will be useful, but *) (* Hop is distributed in the hope that it will be useful, but *)
(* WITHOUT ANY WARRANTY; without even the implied warranty of *) (* WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *) (* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *)
(* General Public License for more details. *) (* General Public License for more details. *)
(* You should have received a copy of the GNU General Public License *) (* You should have received a copy of the GNU General Public License *)
(* along with Ocamlmsg. If not, see <http://www.gnu.org/licenses/>. *) (* along with Hop. If not, see <http://www.gnu.org/licenses/>. *)
type t = string type t = string