"Fossies" - the Fresh Open Source Software Archive

Member "hevea-2.35/fmt_map.mll" (16 Jan 2021, 257 Bytes) of package /linux/www/hevea-2.35.tar.gz:

As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. 
    1 {
    2 open Printf
    3 } 
    4 
    5 rule line = parse
    6 | ('#' [^'\n']* '\n' | '\n')
    7   {line lexbuf }
    8 | [^'#''\n']+ as txt ('#' [^'\n']*) ? '\n'
    9   { printf "%s\n" txt ; line lexbuf }
   10 | eof { () }
   11 
   12 {
   13 let main () = line (Lexing.from_channel stdin)
   14 
   15 let _ = main () ; exit 0
   16 
   17 } 
   18