Commit c1ae0ce1 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-06-17 15:57:39 by cvscast] Add unhilight.cd tool -- Alain

Original author: cvscast
Date: 2003-06-17 15:57:39+00:00
parent 88876142
let highlight (Latin1 -> Latin1)
| [ '{{' h ::(Char *?) '}}' ; rest ] ->
[ !h ; highlight rest ]
| [ '%%' h ::(Char *?) '%%' ; rest ] ->
[ !h ; highlight rest ]
| [ c; rest ] -> [ c; highlight rest ]
| [] -> []
;;
match argv with
| [ f ] -> print (highlight (load_file f))
| _ -> raise "Specify an input file !"
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment