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

[r2002-12-02 16:56:43 by cvscast] Empty log message

Original author: cvscast
Date: 2002-12-02 16:59:09+00:00
parent 677bed6b
......@@ -147,6 +147,11 @@ let cut p w s =
match s.[i] with
| '\n' -> p '\n'; aux (i + 1) 0
| '\r' -> aux (i + 1) 0
| '<' ->
let rec tag i =
p s.[i];
if (s.[i] = '>') then aux (i + 1) x else tag (i + 1) in
tag i
| c ->
let x = if x = w then (p '\\'; p '\n'; p ':'; 2) else (x + 1) in
p c;
......
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