Commit 96d2f586 authored by gerd's avatar gerd

Fix: <c> tag is now HTML-escaped in the right way.


git-svn-id: https://godirepo.camlcity.org/svn/app-presentation/trunk@3 50e5f3cf-a9f2-0310-83d8-d11ec64cb5ab
parent 707b6bc0
......@@ -26,17 +26,14 @@ $(XARCHIVE): $(XOBJECTS)
# general rules:
OPTIONS =
OCAMLC = ocamlc -g $(OPTIONS) $(ROPTIONS)
OCAMLOPT = ocamlopt -p $(OPTIONS) $(ROPTIONS)
OCAMLC = ocamlfind ocamlc -g $(OPTIONS) -package "$(REQUIRES)"
OCAMLOPT = ocamlfind ocamlopt -p $(OPTIONS) -package "$(REQUIRES)"
OCAMLDEP = ocamldep $(OPTIONS)
OCAMLFIND = ocamlfind
depend: *.ml *.mli
$(OCAMLDEP) *.ml *.mli >depend
depend.pkg: Makefile
$(OCAMLFIND) use -p ROPTIONS= $(REQUIRES) >depend.pkg
.SUFFIXES: .cmo .cmi .cmx .ml .mli .mll .mly
.ml.cmx:
......@@ -54,4 +51,3 @@ depend.pkg: Makefile
*.mli:
include depend
include depend.pkg
(* $Id: to_html.ml,v 1.2 2001/04/26 20:47:47 gerd Exp $
(* $Id: to_html.ml,v 1.3 2001/07/14 16:27:07 gerd Exp $
* ----------------------------------------------------------------------
*
*)
......@@ -822,7 +822,7 @@ class c = (* TODO: use layout *)
| '\n' ->
"<br>" ^ preprocess (i+1)
| c ->
escape_html (String.make 1 c ^ preprocess (i+1))
escape_html (String.make 1 c) ^ preprocess (i+1)
else
""
in
......@@ -1048,6 +1048,9 @@ let tag_map =
* History:
*
* $Log: to_html.ml,v $
* Revision 1.3 2001/07/14 16:27:07 gerd
* Fix: <c> tag is now HTML-escaped in the right way.
*
* Revision 1.2 2001/04/26 20:47:47 gerd
* New elements: c, picture, nameref, numref
*
......
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