/[svn]/web/unhilight.cd
ViewVC logotype

Diff of /web/unhilight.cd

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 523 by abate, Tue Jul 10 17:41:22 2007 UTC revision 524 by abate, Tue Jul 10 17:41:25 2007 UTC
# Line 1  Line 1 
 let highlight (Latin1 -> Latin1)  
  | [ '{{' h ::(Char *?) '}}' ; rest ] ->  
           [ !h ; highlight rest ]  
  | [ '%%' h ::(Char *?) '%%' ; rest ] ->  
           [ !h ; highlight rest ]  
  | [ c; rest ] -> [ c; highlight rest ]  
  | [] -> []  
   
 ;;  
   
1  match argv with  match argv with
2  | [ f ]  -> print (highlight (load_file f))  | [ f ]  -> let [ ('{{' h ::(_ *?) '}}'| h::_)* ] = load_file f in print h
3  | _      -> raise "Specify an input file !"  | _      -> raise "Specify an input file !"
Legend:
Removed from v.523  
changed lines
  Added in v.524
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5