--- test/html.dtd	1994/04/30 03:17:56	1.11
+++ test/html.dtd	1994/06/03 20:02:52	1.14
@@ -1,12 +1,29 @@
 <!--	html.dtd
 
         Document Type Definition for the HyperText Markup Language
-        as used by the World Wide Web application (HTML DTD).
+        as used by the World Wide Web (HTML DTD).
 
-	$Id: html.dtd,v 1.11 1994/04/30 03:17:56 connolly Exp $
+	$Id: html.dtd,v 1.14 1994/06/03 20:02:52 connolly Exp $
 
+	Author: Daniel W. Connolly <connolly@hal.com>
+	See Also: http://www.hal.com/%7Econnolly/html-spec/HTML.html
+		  http://info.cern.ch/hypertext/WWW/MarkUp2/MarkUp.html
 -->
 
+<!ENTITY HTML.Version
+	"-//W3O//DTD WWW HTML 2.0//EN"
+	-- public identifier for "current pracitice" version             -- 
+
+        -- Typical usage:
+
+            <!DOCTYPE HTML PUBLIC "-//W3O//DTD WWW HTML 2.0//EN">
+	    <html>
+	    ...
+	    </html>
+	--
+	>
+
+
 <!-- Feature Test Entities -->
 
 <!-- To use these, write your document like:
@@ -24,19 +41,22 @@
 	sgmls -s doctype.sgml foo.html
  -->
 
-<!ENTITY % HTML.Minimal  "IGNORE">
+<!ENTITY % HTML.Level0  "IGNORE">
 <!ENTITY % HTML.Obsolete "IGNORE">
 <!ENTITY % HTML.Prescriptive "IGNORE">
 
-<![ %HTML.Minimal [
+<![ %HTML.Level0 [
 	<!ENTITY % HTML.linkRelationships "IGNORE">
 	<!ENTITY % HTML.linkMethods "IGNORE">
 	<!ENTITY % HTML.linkRedundantInfo "IGNORE">
 	<!ENTITY % HTML.forms "IGNORE">
-	<!-- @@ nested lists -->
-	<!-- @@ phrases -->
-	<!-- @@ headers inside A -->
-	<!-- @@ nested phrases, fonts -->
+	<!ENTITY % HTML.phrase "IGNORE">
+	<!ENTITY % HTML.NEXTID "IGNORE">
+	<!-- @# Are the following required for conformance? -->
+	<!-- @# nested lists -->
+	<!-- @# IMG -->
+	<!-- @# headers inside A -->
+	<!-- @# nested phrases, fonts -->
 	]]>
 	
 <![ %HTML.Obsolete [
@@ -46,34 +66,28 @@
 	]]>
 
 <![ %HTML.Prescriptive [
+	<!--
+	This feature test entity prescribes that certain
+	idioms detract from the structural integrity of an
+	HTML document, and are therefore disallowed.
+	-->
 	<!ENTITY % HTML.font-phrase "IGNORE">
 	<!ENTITY % HTML.anchorNameCDATA "IGNORE">
 	<!ENTITY % HTML.PLAINTEXT "IGNORE">
-	<!ENTITY HTML.Version
-	"-//connolly hal.com//DTD WWW HTML
-		 $Date 1994/04/19 17:24:06 $ Prescriptive//EN">
+	<!ENTITY % HTML.bodyBlockOnly "INCLUDE">
 	]]>
 
-<!ENTITY HTML.Version
-	"-//connolly hal.com//DTD WWW HTML $Date 1994/04/19 17:24:06 $//EN"
-	-- public identifier for "default" version                       -- 
-	-- actually, take the $'s out to get the real public identifer,  --
-	-- since $ is illegal in public identifier. When DTD stabilizes, --
-	-- we'll need to stop using RCS keywords to version the pub id   --
-	>
-
-<!ENTITY % HTML.GO "IGNORE"
-	-- The GO element used in ORA GNN. What is this??? -->
-
-<!ENTITY % HTML.aEndOmissable "IGNORE"
-	-- infer </A> tags, as in ORA GNN stuff -->
+<!ENTITY % HTML.phrase "INCLUDE"
+	-- phrase markup, ala TeXinfo: TT, EM, etc.
+	-->
 
-<!ENTITY % HTML.isindexAtEnd "IGNORE"
-	-- allow ISINDEX after HEAD and BODY, as in ORA GNN stuff -->
+<!ENTITY % HTML.bodyBlockOnly "IGNORE"
+	-- only allow block elements in the BODY element
+	This means all paragraphs need to start with a <P> tag.
+	-->
 
 <!ENTITY % HTML.pSeparator "IGNORE"
 	-- use P element as paragraph separator, rather	that container.
-	This means not all paragraphs need to start with a <P> tag.
 	-->
 
 <!ENTITY % HTML.linkRelationships "INCLUDE"
@@ -123,6 +137,17 @@
 	CITE, VAR, etc. inside PRE
 	-->
 
+<!ENTITY % HTML.KEY "IGNORE"
+	-- There was once a KEY element, for keyboard keys, menu items,
+	buttons, etc. but it's not supported or widely documented
+	-->
+
+<!ENTITY % HTML.U "IGNORE"
+	-- There was also a U element, but since it clashes with
+	the common pracitce of underlining hypertext links, it is
+	not widely supported
+	-->
+
 <!ENTITY % HTML.litCDATA "IGNORE"
 	-- treat XMP, LISTING as CDATA, as per linemodeWWW
 	-->
@@ -148,10 +173,11 @@
 	Note that CDATA attributes are limited by the LITLEN
 	capacity (1024 in the current version of html.decl),
 	so that URIs in HTML have a bounded length.
+
         -->
 
 <!ENTITY % Content-Type "CDATA"
-	-- meaning a MIME content type, as per RFC1341 or any of its updates.
+	-- meaning a MIME content type, as per RFC1521
 	-->
 
 <![ %HTML.anchorNameCDATA [ <!ENTITY % anchor-name "CDATA"> ]]>
@@ -194,10 +220,8 @@
 
 <![ %HTML.PLAINTEXT [ <!ENTITY % obsolete-plaintext ", PLAINTEXT?"> ]]>
 <!ENTITY % obsolete-plaintext "">
-<![ %HTML.isindexAtEnd [ <!ENTITY % end-isindex ", ISINDEX?"> ]]>
-<!ENTITY % end-isindex "">
 
-<!ENTITY % html-content "HEAD, BODY %obsolete-plaintext; %end-isindex">
+<!ENTITY % html-content "HEAD, BODY %obsolete-plaintext;">
 <!ELEMENT HTML O O  (%html-content)>
 
 <![ %HTML.NEXTID [  <!ENTITY % head-content "TITLE? & ISINDEX? & LINK* & BASE?
@@ -231,12 +255,25 @@
 <!ELEMENT BASE - O EMPTY    -- Reference context for URIs -->
 <!ATTLIST BASE
 
-        HREF %URI; #IMPLIED
+        HREF %URI; #REQUIRED
 
         >
 
-<!ENTITY % font "TT | B | I | U ">
-<!ENTITY % phrase "EM | STRONG | CODE | SAMP | KBD | KEY | VAR | DFN | CITE">
+<![ %HTML.KEY [
+	<!ENTITY % key-emph "| KEY">
+	]]>
+<!ENTITY % key-emph "">
+
+<![ %HTML.U [
+	<!ENTITY % u-font "| U">
+	]]>
+<!ENTITY % u-font "">
+
+<![ %HTML.phrase [
+<!ENTITY % font "TT | B | I %u-font">
+<!ENTITY % phrase "EM | STRONG | CODE | SAMP | KBD | VAR | DFN | CITE
+	 | STRIKE %key-emph">
+
 
 <![ %HTML.font-phrase [
 	<!ENTITY % obsolete-font "| %font">
@@ -251,14 +288,12 @@
 
 <!ENTITY % inline "%phrase %obsolete-font">
 <!ENTITY % pre-inline "%font %obsolete-phrase %obsolete-p">
+]]>
 
-<![ %HTML.GO [
-	<!ELEMENT GO - O EMPTY>
-	<!ENTITY % go-text "| GO">
-	]]>
-<!ENTITY % go-text "">
+<!ENTITY % inline "">
+<!ENTITY % pre-inline "">
 
-<!ENTITY % text "#PCDATA | IMG | %inline | BR %go-text %obsolete-p">
+<!ENTITY % text "#PCDATA | IMG | %inline | BR %obsolete-p">
 
 <!ENTITY % htext "A | %text"    -- Plus links, no structure -->
 
@@ -266,7 +301,9 @@
 <!ENTITY % font-content "#PCDATA">
 <!ELEMENT (%font;) - - (%font-content;)>
 
+<![ %HTML.phrase [
 <!ELEMENT (%phrase;) - - (%htext)+>
+]]>
 
 <!ENTITY % pre "PRE | XMP | LISTING">
 
@@ -285,14 +322,16 @@
 		%block-form %block-p">
 
 
-<!ENTITY % body-content "%heading | %block | %htext">
-<!ELEMENT BODY O O  (%body-content)*>
+<![ %HTML.bodyBlockOnly [
+	<!ENTITY % current-htext "">
+	]]>
+<!ENTITY % current-htext "| %htext">
 
+<!ENTITY % body-content "%heading | %block %current-htext">
+<!ELEMENT BODY O O  (%body-content)*>
 
-<![ %HTML.aEndOmissable [ <!ENTITY % a-end "O"> ]]>
-<!ENTITY % a-end "-">
 
-<!ELEMENT A     - %a-end (%heading|%block|%text)+ -(A)
+<!ELEMENT A     - - (%heading|%block|%text)+ -(A)
 	-- @# Technically, this allows silliness like:
 		<H2><A>xyz<H1>h1</H1></A></H2>
 	The right way to do anchors outside of %htext is more like:
@@ -347,24 +386,18 @@
 %ISOlat1;
 
 <!ENTITY #DEFAULT SDATA "&#38;unkown;" --display the markup-->
-<!ENTITY amp "&#38;"     -- ampersand -->
-<!ENTITY gt "&#62;"      -- greater than -->
-<!ENTITY lt "&#60;"      -- less than -->
-<!ENTITY quot "&#34;"      -- less than -->
+<!ENTITY amp CDATA "&#38;"     -- ampersand -->
+<!ENTITY gt CDATA "&#62;"      -- greater than -->
+<!ENTITY lt CDATA "&#60;"      -- less than -->
+<!ENTITY quot CDATA "&#34;"    -- double quote -->
+
+<!-- Processing Entities -->
+
 <!ENTITY nbsp "<? nonbreaking-space>">
 <!-- @# should add entites for processing instructions
 	for line break, centering, etc. -->
 
 
-<![ %HTML.litCDATA [ <!ENTITY % lit-content "CDATA"> ]]>
-<!ENTITY % lit-content "RCDATA">
-<!ELEMENT (%literal) - -  %lit-content>
-
-<![ %HTML.PLAINTEXT [
-<!ELEMENT PLAINTEXT - O EMPTY>
-]]>
-
-
 <!-- Forms  -->
 <![ %HTML.forms [
 
@@ -412,3 +445,12 @@
 	>
 ]]>
 
+<!-- Obsolete Elements  -->
+
+<![ %HTML.litCDATA [ <!ENTITY % lit-content "CDATA"> ]]>
+<!ENTITY % lit-content "RCDATA">
+<!ELEMENT (%literal) - -  %lit-content>
+
+<![ %HTML.PLAINTEXT [
+<!ELEMENT PLAINTEXT - O EMPTY>
+]]>
