Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /smlnj-lib/trunk/HTML4/html4-entities.sml
ViewVC logotype

View of /smlnj-lib/trunk/HTML4/html4-entities.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3983 - (download) (annotate)
Wed Dec 10 20:54:40 2014 UTC (4 years, 7 months ago) by jhr
File size: 709 byte(s)
  adding Entities support
(* html4-entities.sml
 *
 * COPYRIGHT (c) 2014 The Fellowship of SML/NJ (http://www.smlnj.org)
 * All rights reserved.
 *)

structure HTML4Entities =
  struct

    val nbsp = HTML4.ENTITY(Atom.atom "nbsp")
    val lt = HTML4.ENTITY(Atom.atom "lt")
    val gt = HTML4.ENTITY(Atom.atom "gt")
    val amp = HTML4.ENTITY(Atom.atom "amp")
    val quot = HTML4.ENTITY(Atom.atom "quot")
    val cent = HTML4.ENTITY(Atom.atom "cent")
    val pound = HTML4.ENTITY(Atom.atom "pound")
    val yen = HTML4.ENTITY(Atom.atom "yen")
    val euro = HTML4.ENTITY(Atom.atom "euro")
    val copy = HTML4.ENTITY(Atom.atom "copy")
    val reg = HTML4.ENTITY(Atom.atom "reg")

(* TODO: add the full set of HTML entities *)

  end


root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0