Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

add a few missing copyright headers

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13485 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
commit a3f9e656682c7fee1cb3a9ff61626ea2b3840d41 1 parent e2eacb0
Damien Doligez authored

Showing 39 changed files with 468 additions and 0 deletions. Show diff stats Hide diff stats

  1. +12 0 testsuite/tests/exotic-syntax/exotic.ml
  2. +12 0 testsuite/tests/lib-dynlink-bytecode/main.ml
  3. +12 0 testsuite/tests/lib-dynlink-bytecode/plug1.ml
  4. +12 0 testsuite/tests/lib-dynlink-bytecode/plug2.ml
  5. +12 0 testsuite/tests/lib-dynlink-bytecode/registry.ml
  6. +12 0 testsuite/tests/lib-dynlink-bytecode/stub1.c
  7. +12 0 testsuite/tests/lib-dynlink-bytecode/stub2.c
  8. +12 0 testsuite/tests/lib-dynlink-csharp/entry.c
  9. +12 0 testsuite/tests/lib-dynlink-csharp/main.ml
  10. +12 0 testsuite/tests/lib-dynlink-csharp/plugin.ml
  11. +12 0 testsuite/tests/lib-dynlink-native/a.ml
  12. +12 0 testsuite/tests/lib-dynlink-native/api.ml
  13. +12 0 testsuite/tests/lib-dynlink-native/b.ml
  14. +12 0 testsuite/tests/lib-dynlink-native/bug.ml
  15. +12 0 testsuite/tests/lib-dynlink-native/c.ml
  16. +12 0 testsuite/tests/lib-dynlink-native/factorial.c
  17. +12 0 testsuite/tests/lib-dynlink-native/main.ml
  18. +12 0 testsuite/tests/lib-dynlink-native/pack_client.ml
  19. +12 0 testsuite/tests/lib-dynlink-native/packed1.ml
  20. +12 0 testsuite/tests/lib-dynlink-native/packed1_client.ml
  21. +12 0 testsuite/tests/lib-dynlink-native/plugin.ml
  22. +12 0 testsuite/tests/lib-dynlink-native/plugin.mli
  23. +12 0 testsuite/tests/lib-dynlink-native/plugin2.ml
  24. +12 0 testsuite/tests/lib-dynlink-native/plugin4.ml
  25. +12 0 testsuite/tests/lib-dynlink-native/plugin_ext.ml
  26. +12 0 testsuite/tests/lib-dynlink-native/plugin_high_arity.ml
  27. +12 0 testsuite/tests/lib-dynlink-native/plugin_ref.ml
  28. +12 0 testsuite/tests/lib-dynlink-native/plugin_simple.ml
  29. +12 0 testsuite/tests/lib-dynlink-native/plugin_thread.ml
  30. +12 0 testsuite/tests/lib-dynlink-native/sub/api.ml
  31. +12 0 testsuite/tests/lib-dynlink-native/sub/api.mli
  32. +12 0 testsuite/tests/lib-dynlink-native/sub/plugin.ml
  33. +12 0 testsuite/tests/lib-dynlink-native/sub/plugin3.ml
  34. +12 0 testsuite/tests/regression/camlp4-class-type-plus/camlp4_class_type_plus_ok.ml
  35. +12 0 testsuite/tests/regression/pr5080-notes/pr5080_notes_ok.ml
  36. +12 0 testsuite/tests/regression/pr5233/pr5233.ml
  37. +12 0 testsuite/tests/regression/pr5757/pr5757.ml
  38. +12 0 testsuite/tests/runtime-errors/stackoverflow.ml
  39. +12 0 testsuite/tests/runtime-errors/syserror.ml
12 testsuite/tests/exotic-syntax/exotic.ml
... ... @@ -1,3 +1,15 @@
  1 +(***********************************************************************)
  2 +(* *)
  3 +(* OCaml *)
  4 +(* *)
  5 +(* Damien Doligez, projet Gallium, INRIA Rocquencourt *)
  6 +(* *)
  7 +(* Copyright 2013 Institut National de Recherche en Informatique et *)
  8 +(* en Automatique. All rights reserved. This file is distributed *)
  9 +(* under the terms of the Q Public License version 1.0. *)
  10 +(* *)
  11 +(***********************************************************************)
  12 +
1 13 (* Exotic OCaml syntax constructs found in the manual that are not *)
2 14 (* used in the source of the OCaml distribution (even in the tests). *)
3 15
12 testsuite/tests/lib-dynlink-bytecode/main.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-bytecode/plug1.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-bytecode/plug2.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-bytecode/registry.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-bytecode/stub1.c
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-bytecode/stub2.c
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-csharp/entry.c
... ... @@ -1,3 +1,15 @@
  1 +/***********************************************************************/
  2 +/* */
  3 +/* OCaml */
  4 +/* */
  5 +/* Alain Frisch, LexiFi */
  6 +/* */
  7 +/* Copyright 2007 Institut National de Recherche en Informatique et */
  8 +/* en Automatique. All rights reserved. This file is distributed */
  9 +/* under the terms of the Q Public License version 1.0. */
  10 +/* */
  11 +/***********************************************************************/
  12 +
1 13 #include <caml/memory.h>
2 14 #include <caml/alloc.h>
3 15 #include <caml/mlvalues.h>
12 testsuite/tests/lib-dynlink-csharp/main.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-csharp/plugin.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/a.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/api.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/b.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/bug.ml
... ... @@ -1,2 +1,14 @@
12 testsuite/tests/lib-dynlink-native/c.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/factorial.c
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/main.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/pack_client.ml
... ... @@ -1,2 +1,14 @@
12 testsuite/tests/lib-dynlink-native/packed1.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/packed1_client.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/plugin.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/plugin.mli
... ... @@ -1 +1,13 @@
12 testsuite/tests/lib-dynlink-native/plugin2.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/plugin4.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/plugin_ext.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/plugin_high_arity.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/plugin_ref.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/plugin_simple.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/plugin_thread.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/sub/api.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/sub/api.mli
... ... @@ -1 +1,13 @@
12 testsuite/tests/lib-dynlink-native/sub/plugin.ml
... ... @@ -1,3 +1,15 @@
12 testsuite/tests/lib-dynlink-native/sub/plugin3.ml
... ... @@ -1,2 +1,14 @@
12 testsuite/tests/regression/camlp4-class-type-plus/camlp4_class_type_plus_ok.ml
... ... @@ -1,3 +1,15 @@
  1 +(***********************************************************************)
  2 +(* *)
  3 +(* OCaml *)
  4 +(* *)
  5 +(* Damien Doligez, projet Gallium, INRIA Rocquencourt *)
  6 +(* *)
  7 +(* Copyright 2011 Institut National de Recherche en Informatique et *)
  8 +(* en Automatique. All rights reserved. This file is distributed *)
  9 +(* under the terms of the Q Public License version 1.0. *)
  10 +(* *)
  11 +(***********************************************************************)
  12 +
1 13 type t;;
2 14 type xdr_value;;
3 15
12 testsuite/tests/regression/pr5080-notes/pr5080_notes_ok.ml
... ... @@ -1,3 +1,15 @@
  1 +(***********************************************************************)
  2 +(* *)
  3 +(* OCaml *)
  4 +(* *)
  5 +(* Damien Doligez, projet Gallium, INRIA Rocquencourt *)
  6 +(* *)
  7 +(* Copyright 2011 Institut National de Recherche en Informatique et *)
  8 +(* en Automatique. All rights reserved. This file is distributed *)
  9 +(* under the terms of the Q Public License version 1.0. *)
  10 +(* *)
  11 +(***********************************************************************)
  12 +
1 13 let marshal_int f =
2 14 match [] with
3 15 | _ :: `INT n :: _ -> f n
12 testsuite/tests/regression/pr5233/pr5233.ml
... ... @@ -1,3 +1,15 @@
  1 +(***********************************************************************)
  2 +(* *)
  3 +(* OCaml *)
  4 +(* *)
  5 +(* Damien Doligez, projet Gallium, INRIA Rocquencourt *)
  6 +(* *)
  7 +(* Copyright 2012 Institut National de Recherche en Informatique et *)
  8 +(* en Automatique. All rights reserved. This file is distributed *)
  9 +(* under the terms of the Q Public License version 1.0. *)
  10 +(* *)
  11 +(***********************************************************************)
  12 +
1 13 open Printf;;
2 14
3 15 (* PR#5233: Create a dangling pointer and use it to access random parts
12 testsuite/tests/regression/pr5757/pr5757.ml
... ... @@ -1,3 +1,15 @@
  1 +(***********************************************************************)
  2 +(* *)
  3 +(* OCaml *)
  4 +(* *)
  5 +(* Damien Doligez, projet Gallium, INRIA Rocquencourt *)
  6 +(* *)
  7 +(* Copyright 2012 Institut National de Recherche en Informatique et *)
  8 +(* en Automatique. All rights reserved. This file is distributed *)
  9 +(* under the terms of the Q Public License version 1.0. *)
  10 +(* *)
  11 +(***********************************************************************)
  12 +
1 13 Random.init 3;;
2 14 for i = 0 to 100_000 do
3 15 ignore (String.create (Random.int 1_000_000))
12 testsuite/tests/runtime-errors/stackoverflow.ml
... ... @@ -1,3 +1,15 @@
  1 +(***********************************************************************)
  2 +(* *)
  3 +(* OCaml *)
  4 +(* *)
  5 +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
  6 +(* *)
  7 +(* Copyright 2001 Institut National de Recherche en Informatique et *)
  8 +(* en Automatique. All rights reserved. This file is distributed *)
  9 +(* under the terms of the Q Public License version 1.0. *)
  10 +(* *)
  11 +(***********************************************************************)
  12 +
1 13 let rec f x =
2 14 if not (x = 0 || x = 10000 || x = 20000)
3 15 then 1 + f (x + 1)
12 testsuite/tests/runtime-errors/syserror.ml
... ... @@ -1 +1,13 @@
  1 +(***********************************************************************)
  2 +(* *)
  3 +(* OCaml *)
  4 +(* *)
  5 +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
  6 +(* *)
  7 +(* Copyright 1996 Institut National de Recherche en Informatique et *)
  8 +(* en Automatique. All rights reserved. This file is distributed *)
  9 +(* under the terms of the Q Public License version 1.0. *)
  10 +(* *)
  11 +(***********************************************************************)
  12 +
1 13 let channel = open_out "titi:/toto"

0 comments on commit a3f9e65

Please sign in to comment.
Something went wrong with that request. Please try again.