1 files changed, 204 insertions, 0 deletions
diff --git a/lib/docbuilder/src/docb_html_util_iso.erl b/lib/docbuilder/src/docb_html_util_iso.erl
new file mode 100644
index 0000000000..c836805cd2
--- /dev/null
+++ b/lib/docbuilder/src/docb_html_util_iso.erl
@@ -0,0 +1,204 @@
+%% ``The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved via the world wide web at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% The Initial Developer of the Original Code is Ericsson Utvecklings AB.
+%% Portions created by Ericsson are Copyright 1999-2000, Ericsson 
+%% Utvecklings AB. All Rights Reserved.''
+%% 
+%%     $Id$
+%%
+-module(docb_html_util_iso).
+-export([entity_to_html/1]).
+
+%% Encodes ISOtech, ISOnum and ISOgrk3.
+%%
+%% All entities are of the form "[abcdef]". 
+%%
+entity_to_html(Entity) when is_list(Entity), hd(Entity) =/= $[ ->
+    Entity;
+entity_to_html(Entity) ->
+    case (catch enc(Entity)) of
+	{'EXIT', _} ->
+	    Entity;
+	Enc  ->
+	    "<font face=symbol>" ++ Enc ++ "</font>"
+    end.
+
+enc("[Delta ]") -> "&#68;";
+%% enc("[Dot   ]") -> "&#0;";
+%% enc("[DotDot]") -> "&#0;";
+enc("[Gamma ]") -> "&#71;";
+enc("[Lambda]") -> "&#76;";
+enc("[Omega ]") -> "&#87;";
+enc("[Phi   ]") -> "&#70;";
+enc("[Pi    ]") -> "&#80;";
+enc("[Prime ]") -> "&#178;";
+enc("[Psi   ]") -> "&#89;";
+enc("[Sigma ]") -> "&#83;";
+enc("[Theta ]") -> "&#81;";
+enc("[Upsi  ]") -> "&#161;";
+%% enc("[Verbar]") -> "&#0;";
+enc("[Xi    ]") -> "&#88;";
+
+enc("[aleph ]") -> "&#192;";
+enc("[alpha ]") -> "&#97;";
+enc("[amp   ]") -> "&#38;";
+enc("[and   ]") -> "&#217;";
+enc("[ang   ]") -> "&#208;";
+%% enc("[ang90 ]") -> "&#0;";
+%% enc("[angsph]") -> "&#0;";
+%% enc("[angst ]") -> "&#0;";
+enc("[ap    ]") -> "&#187;";
+
+%% enc("[becaus]") -> "&#0;";
+%% enc("[bernou]") -> "&#0;";
+enc("[bepsi ]") -> "&#39;";
+enc("[beta  ]") -> "&#98;";
+enc("[bottom]") -> "&#94;";
+enc("[bull  ]") -> "&#183;";
+
+enc("[cap   ]") -> "&#199;";
+enc("[chi   ]") -> "&#99;";
+enc("[clubs ]") -> "&#167;";
+%% enc("[compfn]") -> "&#0;";
+enc("[cong  ]") -> "&#64;";
+enc("[copy  ]") -> "&#211;";
+%% enc("[conint]") -> "&#0;";
+enc("[cup   ]") -> "&#200;";
+
+enc("[dArr  ]") -> "&#223;";
+enc("[darr  ]") -> "&#175;";
+enc("[deg   ]") -> "&#176;";
+enc("[delta ]") -> "&#100;";
+enc("[diam  ]") -> "&#224;";
+enc("[diams ]") -> "&#168;";
+enc("[divide]") -> "&#184;";
+
+enc("[empty ]") -> "&#198;";
+%% enc("[epsi  ]") -> "&#0;";
+%% enc("[epsis ]") -> "&#0;";
+enc("[epsiv ]") -> "&#101;";
+enc("[equiv ]") -> "&#186;";
+enc("[eta   ]") -> "&#104;";
+enc("[exist ]") -> "&#36;";
+
+enc("[fnof  ]") -> "&#166;";
+enc("[forall]") -> "&#34;";
+
+enc("[gamma ]") -> "&#103;";
+%% enc("[gammad]") -> "&#0;";
+enc("[ge    ]") -> "&#179;";
+enc("[gt    ]") -> "&#62;";
+
+%% enc("[hamilt]") -> "&#0;";
+enc("[hArr  ]") -> "&#219;";
+enc("[harr  ]") -> "&#171;";
+enc("[hearts]") -> "&#169;";
+enc("[horbar]") -> "&#190;";
+
+enc("[iff   ]") -> "&#219;";
+enc("[image ]") -> "&#193;";
+enc("[infin ]") -> "&#165;";
+enc("[int   ]") -> "&#242;";
+enc("[iota  ]") -> "&#105;";
+enc("[isin  ]") -> "&#206;";
+
+enc("[kappa ]") -> "&#107;";
+%%enc("[kappav]") -> "&#0;";
+
+enc("[lArr  ]") -> "&#220;";
+%% enc("[lagran]") -> "&#0;";
+enc("[lambda]") -> "&#108;";
+enc("[lang  ]") -> "&#225;";
+enc("[larr  ]") -> "&#172;";
+enc("[le    ]") -> "&#163;";
+%% enc("[lowast]") -> "&#0;";
+enc("[lowbar]") -> "&#95;";
+enc("[lt    ]") -> "&#60;";
+
+enc("[middot]") -> "&#215;";
+enc("[minus ]") -> "&#45;";
+%% enc("[mnplus]") -> "&#0;";
+enc("[mu    ]") -> "&#109;";
+
+enc("[nabla ]") -> "&#209;";
+enc("[ne    ]") -> "&#185;";
+enc("[ni    ]") -> "&#39;";
+enc("[nsub  ]") -> "&#203;";
+enc("[not   ]") -> "&#216;";
+enc("[notin ]") -> "&#207;";
+enc("[nu    ]") -> "&#110;";
+
+enc("[omega ]") -> "&#119;";
+enc("[or    ]") -> "&#218;";
+%% enc("[order ]") -> "&#0;";
+enc("[oplus ]") -> "&#197;";
+enc("[otimes]") -> "&#196;";
+
+%% enc("[par   ]") -> "&#0;";
+enc("[part  ]") -> "&#182;";
+%% enc("[permil]") -> "&#0;";
+enc("[perp  ]") -> "&#94;";			% bottom
+enc("[phis  ]") -> "&#102;";
+enc("[phiv  ]") -> "&#106;";
+%% enc("[phmmat]") -> "&#0;";
+enc("[pi    ]") -> "&#112;";
+enc("[piv   ]") -> "&#118;";
+enc("[plus  ]") -> "&#43;";
+enc("[plusmn]") -> "&#177;";
+enc("[prime ]") -> "&#162;";
+enc("[prod  ]") -> "&#213;";
+enc("[prop  ]") -> "&#181;";
+enc("[psi   ]") -> "&#121;";
+
+enc("[radic ]") -> "&#214;";
+enc("[rang  ]") -> "&#241;";
+enc("[rArr  ]") -> "&#222;";
+enc("[rarr  ]") -> "&#174;";
+enc("[real  ]") -> "&#194;";
+enc("[reg   ]") -> "&#210;";
+enc("[rho   ]") -> "&#114;";
+%% enc("[rhov  ]") -> "&#0;";
+
+enc("[sigma ]") -> "&#115;";
+enc("[sigmav]") -> "&#86;";
+enc("[sim   ]") -> "&#126;";
+%% enc("[sime  ]") -> "&#0;";
+%% enc("[square]") -> "&#0;";
+enc("[sol   ]") -> "&#164;";
+enc("[spades]") -> "&#170;";
+enc("[sub   ]") -> "&#204;";
+enc("[sube  ]") -> "&#205;";
+enc("[sup   ]") -> "&#201;";
+enc("[supe  ]") -> "&#202;";
+enc("[sum   ]") -> "&#229;";
+
+enc("[tau   ]") -> "&#116;";
+enc("[tdot  ]") -> "&#188;";
+enc("[there4]") -> "&#92;";
+enc("[thetas]") -> "&#113;";
+enc("[thetav]") -> "&#74;";
+enc("[times ]") -> "&#180;";
+%% enc("[tprime]") -> "&#0;";
+enc("[trade ]") -> "&#212;";
+
+enc("[uArr  ]") -> "&#221;";
+enc("[uarr  ]") -> "&#173;";
+enc("[upsi  ]") -> "&#117;";
+
+enc("[verbar]") -> "&#189;";
+
+%% enc("[wedgeq]") -> "&#0;";
+enc("[weierp]") -> "&#195;";
+
+enc("[xi    ]") -> "&#120;";
+
+enc("[zeta  ]") -> "&#122;".