ocaml/ocamldoc/remove_DEBUG

21 lines
990 B
Plaintext
Raw Normal View History

#!/bin/sh
#(***********************************************************************)
#(* OCamldoc *)
#(* *)
#(* Damien Doligez, projet Moscova, INRIA Rocquencourt *)
#(* *)
#(* Copyright 2003 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. *)
#(* *)
#(***********************************************************************)
# usage: remove_DEBUG <file>
# remove from <file> every line that contains the string "DEBUG",
# respecting the cpp # line annotation conventions
echo "# 1 \"$1\""
LC_ALL=C sed -e '/DEBUG/c\
(* DEBUG statement removed *)' "$1"