Commits

camlspotter committed d0e75b7

copyright fix

  • Participants
  • Parent commits 10f74d6
  • Branches dev

Comments (0)

Files changed (47)

-#########################################################################
-#                                                                       #
-#                             OCamlSpotter                              #
-#                                                                       #
-#                              Jun FURUSE                               #
-#                                                                       #
-#     Copyright 2008 Jun Furuse. All rights reserved.                   #
-#     This file is distributed under the terms of the GNU Library       #
-#     General Public License, with the special exception on linking     #
-#     described in file LICENSE.                                        #
-#                                                                       #
-#########################################################################
+#######################################################################
+#                                                                     #
+#                            OCamlSpotter                             #
+#                                                                     #
+#                             Jun FURUSE                              #
+#                                                                     #
+#   Copyright 2008-2012 Jun Furuse. All rights reserved.              #
+#   This file is distributed under the terms of the GNU Library       #
+#   General Public License, with the special exception on linking     #
+#   described in file LICENSE.                                        #
+#                                                                     #
+#######################################################################
+
 
 OCAMLDIR=$(PREFIX)/lib/ocaml/
 include $(OCAMLDIR)/Makefile.config
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009, 2010 Jun Furuse. All rights reserved.       *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* escape metacharacters for /bin/sh 
 
    Backslash quoting the following characters
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009, 2010 Jun Furuse. All rights reserved.       *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 val escaped : (char -> bool) -> string -> string
 val escaped_for_shell : string -> string
 val shell : string list -> int

copyhead.txt

-(***********************************************************************)
-(*                                                                     *)
-(*                            OCamlSpotter                             *)
-(*                                                                     *)
-(*                             Jun FURUSE                              *)
-(*                                                                     *)
-(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
-(*   This file is distributed under the terms of the GNU Library       *)
-(*   General Public License, with the special exception on linking     *)
-(*   described in file LICENSE.                                        *)
-(*                                                                     *)
-(***********************************************************************)
-
 (***********************************************************************)
 (*                                                                     *)
-(*                            ocamlspotter                             *)
+(*                            OCamlSpotter                             *)
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* module for .ocamlspot file 
 
    build_dir: dirname
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 module Longident = struct
   include Longident
   include Xlongident
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009, 2010 Jun Furuse. All rights reserved.       *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* Long identifiers with locations *)
 
 type desc =
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009, 2010 Jun Furuse. All rights reserved.       *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* Long identifiers with locations *)
 
 type desc =
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009, 2010 Jun Furuse. All rights reserved.       *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 type t = string
 
 let create name = function
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 (* Name is an identifier name with its stamp number. For example, 
    an ident of name "string" with a stamp 3 has the name "string__3".
 
 (***********************************************************************)
 (*                                                                     *)
-(*                            ocamlspotter                             *)
+(*                            OCamlSpotter                             *)
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* module names may corride in different source/spot files *)
 
 open Format
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009, 2010 Jun Furuse. All rights reserved.       *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 open Utils
 open Ext
 
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 open Spot
 
 val get :
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 (* Annotations 
 
    Annotations are stored in .spot with their locations
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 (* This module is extended in ocamlspot, therefore it cannot be .mli *)
 
 (* Annotations 
 (***********************************************************************)
 (*                                                                     *)
-(*                            ocamlspotter                             *)
+(*                            OCamlSpotter                             *)
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* Versions and command line options *)
 
 open Format
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 include Spotconfig_intf.S

spotconfig_intf.ml

+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 open Ext
 
 module type S = sig
 (***********************************************************************)
 (*                                                                     *)
-(*                            ocamlspotter                             *)
+(*                            OCamlSpotter                             *)
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 open Format
 open Utils
 open Ext
 (***********************************************************************)
 (*                                                                     *)
-(*                            ocamlspotter                             *)
+(*                            OCamlSpotter                             *)
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 open Spot
 open Utils
 
 (***********************************************************************)
 (*                                                                     *)
-(*                            ocamlspotter                             *)
+(*                            OCamlSpotter                             *)
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* module names may corride in different source/spot files *)
 
 open Format
 (***********************************************************************)
 (*                                                                     *)
-(*                            ocamlspotter                             *)
+(*                            OCamlSpotter                             *)
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 open Spot
 open Spoteval
 open Cmt_format
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+#!/usr/bin/perl
+
+# exec in camlimages directory
+
+open(IN, "find . -name '*.ml' -o -name '*.mli' -o -name '*.ml.in' -o -name '*.mli.in' -o -name '*.c' | grep -v \.hg |");
+
+while(<IN>){
+    chop;
+    $file= $_;
+    open(IN2, "$file");
+    $_ = <IN2>;
+    if ( /\(\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*[\*]+\)/ ||
+	 /\/\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*[\*]+\//
+	){
+	# long comment, should be copyright notice
+	print STDERR "Find a copyright in $file";
+	open(OUT, "> $file.out");
+	if( $file =~ /freetype|examples|xvthumb|ps|bitmap\.ml|\/o[A-Z]/ ){
+	    print STDERR " (JPF only)\n";
+	    open(COPY, "tools/COPY-JPF");
+	} else {
+	    print STDERR "\n";
+	    open(COPY, "tools/COPY");
+	}
+	if( $file =~ /\.c$/ ){  
+	    while(<COPY>){ 
+		s/[\(\)]/\//g;
+		print OUT $_; 
+	    }
+	} else {
+	    while(<COPY>){ print OUT $_; }
+	}
+	close COPY;
+	while(<IN2>){
+	    if ( /\(\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*[\*]+\)/ ||
+		 /\/\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*[\*]+\//
+		){
+		last;
+	    }
+	}
+	while(<IN2>){ print OUT $_; }
+	close IN2;
+	close OUT;
+	`mv $file $file.bak`;
+	`mv $file.out $file`;
+    } else {
+	# we have no copyright notice
+	$org = $_;
+	print STDERR "Newly put a copyright in $file\n";
+	open(OUT, "> $file.out");
+	open(COPY, "tools/COPY");
+	if( $file =~ /\.c$/ ){  
+	    while(<COPY>){ 
+		s/[\(\)]/\//g;
+		print OUT $_; 
+	    }
+	} else {
+	    while(<COPY>){ print OUT $_; }
+	}
+	close COPY;
+	print OUT $org;
+	while(<IN2>){ print OUT $_; }
+	close IN2;
+	close OUT;
+	`mv $file $file.bak`;
+	`mv $file.out $file`;
+    }
+}
+
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 module type OrderedType = sig
   type t
   val compare : t -> t 
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 module type OrderedType = sig
   type t
   val compare : t -> t 
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 open Asttypes
 open Types
 open Typedtree
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 open Typedtree
 
 class fold : object ('self)
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009, 2010 Jun Furuse. All rights reserved.       *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 open Utils
 
 let ident id = Ident.create_persistent (Ident.name id)
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 open Types
 
 val type_expr : type_expr -> type_expr
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 open Misc
 open Asttypes
 open Types
 (***********************************************************************)
 (*                                                                     *)
-(*                            ocamlspotter                             *)
+(*                            OCamlSpotter                             *)
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* expansion(?) of expr/pattern by type *)
 
 open Asttypes
 (***********************************************************************)
 (*                                                                     *)
-(*                            ocamlspotter                             *)
+(*                            OCamlSpotter                             *)
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* expansion of expr/pattern by type *)
 
 open Types
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 open Format
 
 module List = struct
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 module List : sig
   include module type of List
   val find_map_opt : ('a -> 'b option) -> 'a list -> 'b option
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 (* extend the original module *)
 open Ident
 
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 open Ident
 
 val name : t -> Name.t
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 open Longident
 
 let rec to_string = function
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 open Longident
 
 val to_string : t -> string
 (***********************************************************************)
 (*                                                                     *)
-(*                           Objective Caml                            *)
+(*                            OCamlSpotter                             *)
 (*                                                                     *)
-(*            Xavier Leroy, projet Cristal, INRIA Rocquencourt         *)
+(*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*  Copyright 1996 Institut National de Recherche en Informatique et   *)
-(*  en Automatique.  All rights reserved.  This file is distributed    *)
-(*  under the terms of the Q Public License version 1.0.               *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* $Id: main.ml 10444 2010-05-20 14:06:29Z doligez $ *)
 
 open Config
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 val main : string array -> unit
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 (* extend the original module *)
 open Path
 module Ident = struct
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 open Path
 
 val name : t -> Name.t
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 
   open Printtyp
 
+(***********************************************************************)
+(*                                                                     *)
+(*                            OCamlSpotter                             *)
+(*                                                                     *)
+(*                             Jun FURUSE                              *)
+(*                                                                     *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
+(*   This file is distributed under the terms of the GNU Library       *)
+(*   General Public License, with the special exception on linking     *)
+(*   described in file LICENSE.                                        *)
+(*                                                                     *)
+(***********************************************************************)
+
+
 open Format
 
 val type_expr :
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* Set with binary custom search *)
 
 module type OrderedType = Set.OrderedType
 (*                                                                     *)
 (*                             Jun FURUSE                              *)
 (*                                                                     *)
-(*   Copyright 2008, 2009 Jun Furuse. All rights reserved.             *)
+(*   Copyright 2008-2012 Jun Furuse. All rights reserved.              *)
 (*   This file is distributed under the terms of the GNU Library       *)
 (*   General Public License, with the special exception on linking     *)
 (*   described in file LICENSE.                                        *)
 (*                                                                     *)
 (***********************************************************************)
 
+
+
 (* Set with binary custom search *)
 
 module type OrderedType = Set.OrderedType