#!/bin/env -S ocaml #load "myawk.cma" open Myawk open Strings (* From $OCAMLDIST/stdlib/remove_module_aliases.awk BEGIN { in_aliases=0 } NR == 1 { printf ("# 1 \"%s\"\n", FILENAME) } /^\(\*MODULE_ALIASES\*\)\r?$/ { in_aliases=1 } !in_aliases { print } *) let filename = Sys.argv.(1) let in_aliases = ref false let () = Printf.printf "# 1 \"%s\"\n" filename let () = for_each_line ~fname:filename @@ fun l -> if is_prefix "(*MODULE_ALIASES*)" l <> None then in_aliases := true; if not !in_aliases then print_endline l