File: fmt_map.mll

package info (click to toggle)
hevea 2.36-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,780 kB
  • sloc: ml: 19,453; sh: 503; makefile: 311; ansic: 132
file content (18 lines) | stat: -rw-r--r-- 257 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
{
open Printf
} 

rule line = parse
| ('#' [^'\n']* '\n' | '\n')
  {line lexbuf }
| [^'#''\n']+ as txt ('#' [^'\n']*) ? '\n'
  { printf "%s\n" txt ; line lexbuf }
| eof { () }

{
let main () = line (Lexing.from_channel stdin)

let _ = main () ; exit 0

}