(* Version *)

let japan = ref false

let i18n () = 
  if !japan then "JAPAN" 
  else "ISO8859"

(* User-Agent field *)
let http = "MMM/0.40"

(* dialog uses an gigantic font ! *)
let about = function
  "ISO8859" ->
"MMM Version 0.40
Written by Françis Rouaix
Contributions by Jun P. Furuse and Jacques Garrigue
© Copyright INRIA

Projet Cristal
INRIA Rocquencourt
Domaine de Voluceau
78153 Le Chesnay Cedex
France

Francois.Rouaix@inria.fr
http://pauillac.inria.fr/~rouaix/
"
| "JAPAN" ->
      "¤â¡Á Version 0.40
ºî¼Ô : Franc,ois Rouaix
ÆüËÜ¸ì²½¼Ô : ¸ÅÀ¥ ½ß
´óÍ¿ : ²íÍø²ì ¼æ¶ê
(c) Copyright INRIA

Projet Cristal
INRIA Rocquencourt
Domaine de Voluceau
78153 Le Chesnay Cedex
France

Francois.Rouaix@inria.fr
http://pauillac.inria.fr/~rouaix/

Jun.Furuse@inria.fr
http://pauillac.inria.fr/~furuse/
http://www.kaba.or.jp/~furuse/
"

let home = function 
    "ISO8859" -> "http://pauillac.inria.fr/~rouaix/mmm/"
  | "JAPAN" -> "http://wwwfun.kurims.kyoto-u.ac.jp/jmmm/"

(* MUST BE NORMALIZED *)
let initurl = function
    "ISO8859" -> "http://pauillac.inria.fr/~rouaix/mmm/about.html"
  | "JAPAN" -> "http://wwwfun.kurims.kyoto-u.ac.jp/jmmm/about.html"

let html = function
    "ISO8859" ->
"<HTML><HEAD><TITLE>MMM 0.40</TITLE></HEAD>
<BODY>
<H1> The MMM navigator Version 0.40</H1>
<H2> Written by François Rouaix </H2>
<H2> Contributions by Jun P. Furuse and Jacques Garrigue</H2>
<H2> © Copyright INRIA </H2>

<H3> Using Objective Caml © Copyright INRIA </H3>
<H3> And Tcl7.5p1/Tk4.1p1 (John Ousterhout and al.) © Copyright The Regents of the University of California and Sun Microsystems, Inc </H3>
<BLOCKQUOTE>
Please note that the software is a product currently being developed.
INRIA shall not be responsible in any way concerning conformity, and in
particular shall not be liable should the software not comply with the
requirements of the user, INRIA not being obliged to repair any
possible direct or indirect damage.
</BLOCKQUOTE>
<P>
The MMM home page is 
<A HREF=\"http://pauillac.inria.fr/~rouaix/mmm/\">here</A>,
and there is also some
<A HREF=\"http://pauillac.inria.fr/~rouaix/mmm/doc.html\">documentation</A>
and
<A HREF=\"http://pauillac.inria.fr/~rouaix/mmm/releases.html\">release notes</A>.
<BR>
Join the author by clicking
<A HREF=\"mailto:Francois.Rouaix@inria.fr\">here.</A>
<P>
<BLOCKQUOTE>
This document is included in your browser. Click on <TT>Reload</TT> to
get an updated copy.
</BLOCKQUOTE>
</BODY>
</HTML>
"
| "JAPAN" ->
"<HTML><HEAD><TITLE>MMM 0.40</TITLE></HEAD>
<BODY>
<H1> ¥Ê¥Ó¥²¡¼¥¿ ¤â¡Á Version 0.40</H1>
<H2> ºî¼Ô ¡§ Fran&ccedil;ois Rouaix </H2>
<H2> ÆüËÜ¸ì²½¼Ô ¡§ ¸ÅÀ¥ ½ß </H2>
<H2> ´óÍ¿ ¡§ ²íÍø²ì ¼æ¶ê </H2>
<H2> &copy; Copyright INRIA (Ê©¹ñ¹ñÎ©¾ðÊó¼«Æ°²½¸¦µæ½ê) </H2>

<H3> »ÈÍÑ¥½¥Õ¥È¥¦¥§¥¢ </H3>
<H3> Objective Caml &copy; Copyright INRIA </H3>
<H3> Tcl7.5p1/Tk4.1p1 (John Ousterhout and al.) &copy; Copyright The Regents of the University of California and Sun Microsystems, Inc </H3>
<BLOCKQUOTE>
¤³¤Î¥½¥Õ¥È¥¦¥§¥¢¤Ï¸½ºß³«È¯Ãæ¤Î¤â¤Î¤Ç¤¹¡£
¤³¤Î¥½¥Õ¥È¥¦¥§¥¢¤Ë´Ø¤·¤ÆINRIA ¤Ï¤¤¤«¤Ê¤ë·Á¼°¤ÎÀÕÇ¤¤âÉé¤¤¤Þ¤»¤ó¡£
ÆÃ¤Ë¡¢¤³¤Î¥½¥Õ¥È¥¦¥§¥¢¤ò¥æ¡¼¥¶¡¼¤ÎÉ¬Í×¤ËÊ»¤»¤ëµÁÌ³¡¢
¤Þ¤¿»ÈÍÑ¤·¤ÆÀ¸¤¸¤¿¤¤¤«¤Ê¤ëÄ¾ÀÜÅª¤Þ¤¿¤Ï´ÖÀÜÅªÈï³²¤ÎÀÕÇ¤¤âÉé¤¤¤«¤Í¤Þ¤¹¡£
</BLOCKQUOTE>
<P>
¤â¡Á¤Î¥Û¡¼¥à¥Ú¡¼¥¸¤Ï
<A HREF=\"http://wwwfun.kurims.kyoto-u.ac.jp/jmmm/\">¤³¤³</A>¡¢
¤½¤·¤Æ<A HREF=\"http://wwwfun.kurims.kyoto-u.ac.jp/jmmm/0.40/doc.html\">Ê¸½ñ</A>
¤µ¤é¤Ë<A HREF=\"http://wwwfun.kurims.kyoto-u.ac.jp/jmmm/releases.html\">
¥ê¥ê¡¼¥¹¥Î¡¼¥È</A>¤¬¤¢¤ê¤Þ¤¹¡£
¤â¡Á¤Î±Ñ¸ì¤Ç½ñ¤«¤ì¤¿¥ª¥ê¥¸¥Ê¥ë¤Î¥Û¡¼¥à¥Ú¡¼¥¸¤Ï
<A HREF=\"http://pauillac.inria.fr/~rouaix/mmm/\">¤³¤³</A>¤Ç¤¹¡£
<BR>
¶½Ì£¤¬¤¢¤ëÊý¤Ï
<A HREF=\"mailto:Jun.Furuse@inria.fr\">¤³¤³</A>
¤ò²¡¤·¤Æ³«È¯¤Ë»²²Ã¤·¤Æ²¼¤µ¤¤¡£
<P>
<BLOCKQUOTE>
¤³¤ÎÊ¸½ñ¤Ï¥Ö¥é¥¦¥¶¤ËÆâÂ¢¤µ¤ì¤Æ¤¤¤Þ¤¹¡£<TT>ºÆÆÉ</TT> ¤ò²¡¤·¤Æ°ìÈÖ¿·¤·¤¤Êª¤ò¼èÆÀ¤·¤Æ²¼¤µ¤¤¡£
</BLOCKQUOTE>
</BODY>
</HTML>
"
