[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

web/unhilight.cd

+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