'From Squeak3.2alpha of 14 October 2001 [latest update: #4441] on 22 October 2001 at 2:07:03 pm'!
"Change Set:		scampIgnoreScripts
Date:			22 October 2001
Author:			Lex Spoon

A suggestion of Mike Reuger to simply ignore any HTML that appears inside a <script> tag.  There shouldn't be anything there, but if there is, it's not likely to be pretty."!

HtmlEntity subclass: #HtmlScript
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Network-HTML Parser Entities'!

!HtmlScript commentStamp: 'ls 10/22/2001 13:54' prior: 0!
A script entity.  In Squeak, this is ignored.!


!HtmlScript methodsFor: 'formatting' stamp: 'ls 10/22/2001 14:05'!
addToFormatter: formatter
	"do nothing"
! !

!HtmlScript methodsFor: 'testing' stamp: 'ls 10/22/2001 14:02'!
mayContain: anEntity
	"really, proper HTML should use a comment.  Thus, any HTML we see is bogus.  Accept it, and hope for the best"
	^true! !

!HtmlScript methodsFor: 'testing' stamp: 'ls 10/22/2001 14:03'!
tagName
	^'script'! !


!HtmlTag class methodsFor: 'parser support' stamp: 'ls 10/22/2001 13:59'!
entityClasses
	"a Dictionary mapping tag names into the correct entity class"
	"EntityClasses _ nil"

	EntityClasses isNil ifFalse: [ ^EntityClasses ].

	EntityClasses _ Dictionary new.

	#( 
		frameset	HtmlFrame
		frame	HtmlFrame

		title		HtmlTitle
		style	HtmlStyle
		meta	HtmlMeta

		p		HtmlParagraph
		form	HtmlForm
		blockquote	HtmlBlockQuote

		input	HtmlInput
		textarea	HtmlTextArea
		select	HtmlSelect
		optgroup	HtmlOptionGroup
		option		HtmlOption

		img		HtmlImage
		embed	HtmlEmbedded
		noembed	HtmlNoEmbed
		a		HtmlAnchor
		br		HtmlBreak

		map	HtmlMap
		area	HtmlArea

		li		HtmlListItem
		dd		HtmlDefinitionDefinition
		dt		HtmlDefinitionTerm

		ol		HtmlOrderedList
		ul		HtmlUnorderedList
		dl		HtmlDefinitionList

		h1		HtmlHeader
		h2		HtmlHeader
		h3		HtmlHeader
		h4		HtmlHeader
		h5		HtmlHeader
		h6		HtmlHeader

		hr		HtmlHorizontalRule

		strong	HtmlBoldEntity
		b		HtmlBoldEntity

		em		HtmlItalicsEntity
		i		HtmlItalicsEntity
		dfn 	HtmlItalicsEntity

		u		HtmlUnderlineEntity 

		tt		HtmlFixedWidthEntity
		kbd		HtmlFixedWidthEntity		

		strike	HtmlStrikeEntity

		big		HtmlBiggerFontEntity
		small	HtmlSmallerFontEntity

		sub		HtmlSubscript
		sup		HtmlSuperscript

		font	HtmlFontEntity

		pre		HtmlPreformattedRegion
 
		table	HtmlTable
		tr		HtmlTableRow
		td		HtmlTableDataItem 
		th		HtmlTableHeader

		script	HtmlScript
		) pairsDo: [ 
			:tagName :className |
			EntityClasses at: tagName asString put: (Smalltalk at: className) ].

	^EntityClasses ! !

"Postscript: Re-initialize the mapping from tags -> entity classes"


HtmlTag initialize.!