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

Original author: cvscast
Date: 2002-12-02 16:59:09+00:00

driver/webiface.ml

@@ -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;