Add some missing headers

Author: nberth

src/lsp/cobol_ast/unparse.ml

@@ -1,3 +1,16 @@
+(**************************************************************************)
+(*                                                                        *)
+(*                        SuperBOL OSS Studio                             *)
+(*                                                                        *)
+(*  Copyright (c) 2022-2023 OCamlPro SAS                                  *)
+(*                                                                        *)
+(* All rights reserved.                                                   *)
+(* This source code is licensed under the GNU Affero General Public       *)
+(* License version 3 found in the LICENSE.md file in the root directory   *)
+(* of this source tree.                                                   *)
+(*                                                                        *)
+(**************************************************************************)
+
 module Expression : sig
   type precedence = int
 
@@ -105,4 +118,4 @@ end = struct
     AnyOp op, Fmt.(lhs ++ any " " ++ name ++ sp ++ rhs)
 
   let pp ppf (_, pp) = pp ppf ()
-end
+end

src/lsp/cobol_ast/unparse.mli

@@ -1,3 +1,19 @@
+(**************************************************************************)
+(*                                                                        *)
+(*                        SuperBOL OSS Studio                             *)
+(*                                                                        *)
+(*  Copyright (c) 2022-2023 OCamlPro SAS                                  *)
+(*                                                                        *)
+(* All rights reserved.                                                   *)
+(* This source code is licensed under the GNU Affero General Public       *)
+(* License version 3 found in the LICENSE.md file in the root directory   *)
+(* of this source tree.                                                   *)
+(*                                                                        *)
+(**************************************************************************)
+
+(* NB: This module is not specific to COBOL; it does not really fit within
+   `cobol_ast`. *)
+
 module Expression : sig
   type precedence = int
   (** Operator precedence is represented using integers. Operators with a higher
@@ -38,4 +54,4 @@ module Expression : sig
   val unary : unary_op -> t -> t
 
   val binary : t -> binary_op -> t -> t
-end
+end