camlspotter avatar camlspotter committed fa3870b

copyright newline fix

Comments (0)

Files changed (44)

 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* escape metacharacters for /bin/sh 
 
    Backslash quoting the following characters
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 val escaped : (char -> bool) -> string -> string
 val escaped_for_shell : string -> string
 val shell : string list -> int
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* module for .ocamlspot file 
 
    build_dir: dirname
 (*                                                                     *)
 (***********************************************************************)
 
-
 module Longident = struct
   include Longident
   include Xlongident
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* Long identifiers with locations *)
 
 type desc =
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* Long identifiers with locations *)
 
 type desc =
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 type t = string
 
 let create name = function
 (*                                                                     *)
 (***********************************************************************)
 
-
 (* 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".
 
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* module names may corride in different source/spot files *)
 
 open Format
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 open Utils
 open Ext
 
 (*                                                                     *)
 (***********************************************************************)
 
-
 open Spot
 
 val get :
 (*                                                                     *)
 (***********************************************************************)
 
-
 (* Annotations 
 
    Annotations are stored in .spot with their locations
 (*                                                                     *)
 (***********************************************************************)
 
-
 (* This module is extended in ocamlspot, therefore it cannot be .mli *)
 
 (* Annotations 
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* Versions and command line options *)
 
 open Format
 (*                                                                     *)
 (***********************************************************************)
 
-
 include Spotconfig_intf.S

spotconfig_intf.ml

 (*                                                                     *)
 (***********************************************************************)
 
-
 open Ext
 
 module type S = sig
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 open Format
 open Utils
 open Ext
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 open Spot
 open Utils
 
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* module names may corride in different source/spot files *)
 
 open Format
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 open Spot
 open Spoteval
 open Cmt_format
     $file= $_;
     open(IN2, "$file");
     $_ = <IN2>;
-    if ( /\(\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*[\*]+\)/ ||
-	 /\/\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*[\*]+\//
+    if ( /\(\*{10}\**\)/ ||
+	 /\/\*{10}\**\//
 	){
 	# 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");
-	}
+	print STDERR "\n";
+	open(COPY, "tools/COPY");
 	if( $file =~ /\.c$/ ){  
 	    while(<COPY>){ 
 		s/[\(\)]/\//g;
 	}
 	close COPY;
 	while(<IN2>){
-	    if ( /\(\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*[\*]+\)/ ||
-		 /\/\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*[\*]+\//
+	    if ( /\(\*{10}\**\)/ ||
+		 /\/\*{10}\**\//
 		){
 		last;
 	    }
 	}
+
+	while(<IN2>){
+	    if ( ! /^\s*[\r\n]+$/ ){ last; }
+	}
+	print OUT "\n";
+	print OUT "$_";
+
 	while(<IN2>){ print OUT $_; }
 	close IN2;
 	close OUT;
 	}
 	close COPY;
 	print OUT $org;
+
+	while(<IN2>){
+	    if ( ! /^\s*[\r\n]+$/ ){ last; }
+	}
+	print OUT "\n";
+	print OUT "$_";
+
 	while(<IN2>){ print OUT $_; }
 	close IN2;
 	close OUT;
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 module type OrderedType = sig
   type t
   val compare : t -> t 
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 module type OrderedType = sig
   type t
   val compare : t -> t 
 (*                                                                     *)
 (***********************************************************************)
 
-
 open Asttypes
 open Types
 open Typedtree
 (*                                                                     *)
 (***********************************************************************)
 
-
 open Typedtree
 
 class fold : object ('self)
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 open Utils
 
 let ident id = Ident.create_persistent (Ident.name id)
 (*                                                                     *)
 (***********************************************************************)
 
-
 open Types
 
 val type_expr : type_expr -> type_expr
 (*                                                                     *)
 (***********************************************************************)
 
-
 open Misc
 open Asttypes
 open Types
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* expansion(?) of expr/pattern by type *)
 
 open Asttypes
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* expansion of expr/pattern by type *)
 
 open Types
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 open Format
 
 module List = struct
 (*                                                                     *)
 (***********************************************************************)
 
-
 module List : sig
   include module type of List
   val find_map_opt : ('a -> 'b option) -> 'a list -> 'b option
 (*                                                                     *)
 (***********************************************************************)
 
-
 (* extend the original module *)
 open Ident
 
 (*                                                                     *)
 (***********************************************************************)
 
-
 open Ident
 
 val name : t -> Name.t
 (*                                                                     *)
 (***********************************************************************)
 
-
 open Longident
 
 let rec to_string = function
 (*                                                                     *)
 (***********************************************************************)
 
-
 open Longident
 
 val to_string : t -> string
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* $Id: main.ml 10444 2010-05-20 14:06:29Z doligez $ *)
 
 open Config
 (*                                                                     *)
 (***********************************************************************)
 
-
 val main : string array -> unit
 (*                                                                     *)
 (***********************************************************************)
 
-
 (* extend the original module *)
 open Path
 module Ident = struct
 (*                                                                     *)
 (***********************************************************************)
 
-
 open Path
 
 val name : t -> Name.t
 (*                                                                     *)
 (***********************************************************************)
 
-
-
   open Printtyp
 
   let make_type ppf f ?(with_pos=false) ty =
 (*                                                                     *)
 (***********************************************************************)
 
-
 open Format
 
 val type_expr :
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* Set with binary custom search *)
 
 module type OrderedType = Set.OrderedType
 (*                                                                     *)
 (***********************************************************************)
 
-
-
 (* Set with binary custom search *)
 
 module type OrderedType = Set.OrderedType
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.