Smalltalk › Cincom › VisualWorks

[vwnc] Dealing with external DTD's in XML parser

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

7 messages Options

cdavidshaffer

[vwnc] Dealing with external DTD's in XML parser

Sorry if this is a stupid question...read the docs, they are no help.
In VW7.6 I'm parsing XHTML documents that begin with:

<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

The VW parser goes out and fetches the DTD each time I parse a
document. That's no good so I tried using a PluggableEntityResolver as so:

parser entityResolver: (XML.PluggableEntityResolver withBlock:
[:publicID :systemID |
systemID = 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'
ifTrue: [parser xhtml1StrictDtd readStream]
ifFalse: [...similar code for HTMLlat1 and other references
in above DTD...]])

where parser xhtml1StringDtd returns the aforementioned DTD as a
string. This results in a walkback pasted below. My ifFalse: block
never runs (the parser doesn't ask my resolver to resolve those
entities...it bugs out before that). I am using this wrong? or is this
a bug? How do people parse XML docs with DTD (passe, I know) without
hitting the network? BTW, I can't strip the DTD because I need the
entities to be resolved properly.

David

Unhandled exception: Message not understood: #resolvePath:
ByteString(Object)>>doesNotUnderstand:
Seaside.XMLDOMParser(XML.XMLParser)>>systemLiteral
Seaside.XMLDOMParser(XML.XMLParser)>>externalID:
Seaside.XMLDOMParser(XML.XMLParser)>>peDef:
Seaside.XMLDOMParser(XML.XMLParser)>>entityDecl
Seaside.XMLDOMParser(XML.XMLParser)>>markUpDecl
Seaside.XMLDOMParser(XML.XMLParser)>>dtdEntry
Seaside.XMLDOMParser(XML.XMLParser)>>dtdFile:
Seaside.XMLDOMParser(XML.XMLParser)>>docTypeDecl
Seaside.XMLDOMParser(XML.XMLParser)>>prolog
optimized [] in XML.XMLParser>>scanDocument
BlockClosure>>ensure:
Seaside.XMLDOMParser(XML.XMLParser)>>scanDocument
SeasidePlatformSupport class>>parseSeasideDocumentFrom:
Seaside.STSeasideResponseParser class>>parseDocumentFrom:
Seaside.STSeasideResponseParser class>>parseDocumentFromResponse:
Seaside.STBrowserSimulator>>issueRequestUntilNotMoved:
Seaside.STBrowserSimulator>>establishSession
Seaside.STWebAppTester(Seaside.STRemoteAppTester)>>establishSession
Seaside.STAnchorDemoTest(Seaside.STTestCase)>>establishSession
Seaside.STAnchorDemoTest>>testAnchor
Seaside.STAnchorDemoTest(TestCase)>>performTest
optimized [] in TestCase>>runCase
BlockClosure>>ensure:
BlockClosure>>sunitEnsure:
Seaside.STAnchorDemoTest(TestCase)>>runCase
optimized [] in Seaside.STTestCase>>debug
BlockClosure>>ensure:
Seaside.STAnchorDemoTest(Seaside.STTestCase)>>debug
optimized [] in [] in [] in Refactory.Browser.SUnitStatusBar>>debugTests
Set>>do:
optimized [] in [] in Refactory.Browser.SUnitStatusBar>>debugTests
BlockClosure>>on:do:
optimized [] in Refactory.Browser.SUnitStatusBar>>debugTests
BlockClosure>>ifCurtailed:
Refactory.Browser.SUnitStatusBar>>debugTests
optimized [] in Refactory.Browser.SUnitStatusBar>>actionDriver:
PluggableAdaptor>>setValue:
PluggableAdaptor(ValueModel)>>value:
WinXPTriggerButtonController(TriggerButtonController)>>pressAction
TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:
TriggerButtonTracker>>finishSelectionFor:
TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:
RedButtonReleasedEvent>>dispatchTo:
TriggerButtonTracker(SelectionTracker)>>handleEvent:
EventDispatcher>>dispatch:to:
EventDispatcher>>dispatchEvent:
RedButtonReleasedEvent(Event)>>dispatch
RedButtonReleasedEvent(Event)>>dispatchForWindowManager:
optimized [] in WindowManager>>safelyDispatchForWindowManager:
BlockClosure>>on:do:
WindowManager>>safelyDispatchForWindowManager:
WindowManager>>processNextEvent
optimized [] in [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in Process class>>forBlock:priority:

----------------------------------------------------------------------
ByteString(Object)>>doesNotUnderstand:
Receiver:
a ByteString
Arguments:
aMessage = a Message with selector: #resolvePath: and arguments:
#('xhtml-lat1.ent')
Temporaries:
excpt = a MessageNotUnderstood
resumeValue = nil
Context PC = 25

----------------------------------------------------------------------
Seaside.XMLDOMParser(XML.XMLParser)>>systemLiteral
Receiver:
a Seaside.XMLDOMParser
Instance Variables:
sourceStack = a XML.StreamWrapper
hereChar = $> "16r003E"
hereCharNumBytes = 1
lastSource = a XML.StreamWrapper
currentSource = a XML.StreamWrapper
dtd = a XML.DocumentType
unresolvedIDREFs = a Set[0]
definedIDs = a Set[0]
latestID = nil
sax = a XML.SAXDispatcher
elementStack = an OrderedCollection[0]
validating = false
flags = 65548
eol = Core.Character cr
buffer = a WriteStream
nameBuffer = a WriteStream
Temporaries:
lit = 'xhtml-lat1.ent'
Context PC = 33

----------------------------------------------------------------------
Seaside.XMLDOMParser(XML.XMLParser)>>externalID:
Receiver:
a Seaside.XMLDOMParser
Instance Variables:
sourceStack = a XML.StreamWrapper
hereChar = $> "16r003E"
hereCharNumBytes = 1
lastSource = a XML.StreamWrapper
currentSource = a XML.StreamWrapper
dtd = a XML.DocumentType
unresolvedIDREFs = a Set[0]
definedIDs = a Set[0]
latestID = nil
sax = a XML.SAXDispatcher
elementStack = an OrderedCollection[0]
validating = false
flags = 65548
eol = Core.Character cr
buffer = a WriteStream
nameBuffer = a WriteStream
Arguments:
usage = #entity
Temporaries:
lit2 = nil
lit1 = '-//W3C//ENTITIES Latin 1 for XHTML//EN'
forceSpace = BlockClosure [] in XML.XMLParser>>externalID:
skipSpace = BlockClosure [] in XML.XMLParser>>externalID:
Context PC = 80

----------------------------------------------------------------------
Seaside.XMLDOMParser(XML.XMLParser)>>peDef:
Receiver:
a Seaside.XMLDOMParser
Instance Variables:
sourceStack = a XML.StreamWrapper
hereChar = $> "16r003E"
hereCharNumBytes = 1
lastSource = a XML.StreamWrapper
currentSource = a XML.StreamWrapper
dtd = a XML.DocumentType
unresolvedIDREFs = a Set[0]
definedIDs = a Set[0]
latestID = nil
sax = a XML.SAXDispatcher
elementStack = an OrderedCollection[0]
validating = false
flags = 65548
eol = Core.Character cr
buffer = a WriteStream
nameBuffer = a WriteStream
Arguments:
name = 'HTMLlat1'
Temporaries:
val = nil
Context PC = 14

----------------------------------------------------------------------
Seaside.XMLDOMParser(XML.XMLParser)>>entityDecl
Receiver:
a Seaside.XMLDOMParser
Instance Variables:
sourceStack = a XML.StreamWrapper
hereChar = $> "16r003E"
hereCharNumBytes = 1
lastSource = a XML.StreamWrapper
currentSource = a XML.StreamWrapper
dtd = a XML.DocumentType
unresolvedIDREFs = a Set[0]
definedIDs = a Set[0]
latestID = nil
sax = a XML.SAXDispatcher
elementStack = an OrderedCollection[0]
validating = false
flags = 65548
eol = Core.Character cr
buffer = a WriteStream
nameBuffer = a WriteStream
Temporaries:
nm = 'HTMLlat1'
def = nil
str = a XML.StreamWrapper
Context PC = 37

----------------------------------------------------------------------
Seaside.XMLDOMParser(XML.XMLParser)>>markUpDecl
Receiver:
a Seaside.XMLDOMParser
Instance Variables:
sourceStack = a XML.StreamWrapper
hereChar = $> "16r003E"
hereCharNumBytes = 1
lastSource = a XML.StreamWrapper
currentSource = a XML.StreamWrapper
dtd = a XML.DocumentType
unresolvedIDREFs = a Set[0]
definedIDs = a Set[0]
latestID = nil
sax = a XML.SAXDispatcher
elementStack = an OrderedCollection[0]
validating = false
flags = 65548
eol = Core.Character cr
buffer = a WriteStream
nameBuffer = a WriteStream
Context PC = 14

----------------------------------------------------------------------
Seaside.XMLDOMParser(XML.XMLParser)>>dtdEntry
Receiver:
a Seaside.XMLDOMParser
Instance Variables:
sourceStack = a XML.StreamWrapper
hereChar = $> "16r003E"
hereCharNumBytes = 1
lastSource = a XML.StreamWrapper
currentSource = a XML.StreamWrapper
dtd = a XML.DocumentType
unresolvedIDREFs = a Set[0]
definedIDs = a Set[0]
latestID = nil
sax = a XML.SAXDispatcher
elementStack = an OrderedCollection[0]
validating = false
flags = 65548
eol = Core.Character cr
buffer = a WriteStream
nameBuffer = a WriteStream
Context PC = 12

----------------------------------------------------------------------
Seaside.XMLDOMParser(XML.XMLParser)>>dtdFile:
Receiver:
a Seaside.XMLDOMParser
Instance Variables:
sourceStack = a XML.StreamWrapper
hereChar = $> "16r003E"
hereCharNumBytes = 1
lastSource = a XML.StreamWrapper
currentSource = a XML.StreamWrapper
dtd = a XML.DocumentType
unresolvedIDREFs = a Set[0]
definedIDs = a Set[0]
latestID = nil
sax = a XML.SAXDispatcher
elementStack = an OrderedCollection[0]
validating = false
flags = 65548
eol = Core.Character cr
buffer = a WriteStream
nameBuffer = a WriteStream
Arguments:
uriList = an Array[2]
Temporaries:
str = a XML.StreamWrapper
input = a XML.InputSource
Context PC = 77

----------------------------------------------------------------------
Seaside.XMLDOMParser(XML.XMLParser)>>docTypeDecl
Receiver:
a Seaside.XMLDOMParser
Instance Variables:
sourceStack = a XML.StreamWrapper
hereChar = $> "16r003E"
hereCharNumBytes = 1
lastSource = a XML.StreamWrapper
currentSource = a XML.StreamWrapper
dtd = a XML.DocumentType
unresolvedIDREFs = a Set[0]
definedIDs = a Set[0]
latestID = nil
sax = a XML.SAXDispatcher
elementStack = an OrderedCollection[0]
validating = false
flags = 65548
eol = Core.Character cr
buffer = a WriteStream
nameBuffer = a WriteStream
Temporaries:
nm = {html}
id = an Array[2]
Context PC = 90

----------------------------------------------------------------------
Seaside.XMLDOMParser(XML.XMLParser)>>prolog
Receiver:
a Seaside.XMLDOMParser
Instance Variables:
sourceStack = a XML.StreamWrapper
hereChar = $> "16r003E"
hereCharNumBytes = 1
lastSource = a XML.StreamWrapper
currentSource = a XML.StreamWrapper
dtd = a XML.DocumentType
unresolvedIDREFs = a Set[0]
definedIDs = a Set[0]
latestID = nil
sax = a XML.SAXDispatcher
elementStack = an OrderedCollection[0]
validating = false
flags = 65548
eol = Core.Character cr
buffer = a WriteStream
nameBuffer = a WriteStream
Context PC = 19

----------------------------------------------------------------------
optimized [] in XML.XMLParser>>scanDocument
Receiver:
an UndefinedObject
Temporaries:
.super = a Seaside.XMLDOMParser
Context PC = 9

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in XML.XMLParser>>scanDocument
outerContext = nil
copiedValues = a Seaside.XMLDOMParser
Arguments:
aBlock = BlockClosure [] in XML.XMLParser>>scanDocument
Temporaries:
result = nil
Context PC = 4

----------------------------------------------------------------------
Seaside.XMLDOMParser(XML.XMLParser)>>scanDocument
Receiver:
a Seaside.XMLDOMParser
Instance Variables:
sourceStack = a XML.StreamWrapper
hereChar = $> "16r003E"
hereCharNumBytes = 1
lastSource = a XML.StreamWrapper
currentSource = a XML.StreamWrapper
dtd = a XML.DocumentType
unresolvedIDREFs = a Set[0]
definedIDs = a Set[0]
latestID = nil
sax = a XML.SAXDispatcher
elementStack = an OrderedCollection[0]
validating = false
flags = 65548
eol = Core.Character cr
buffer = a WriteStream
nameBuffer = a WriteStream
Context PC = 11

----------------------------------------------------------------------
SeasidePlatformSupport class>>parseSeasideDocumentFrom:
Receiver:
a SeasidePlatformSupport class
Instance Variables:
superclass = Object
methodDict = a MethodDictionary[0]
format = 20480
subclasses = nil
instanceVariables = nil
organization =
name = #SeasidePlatformSupport
classPool = a NameSpaceOfClass[3]
environment = nil
defaultDispatcherName = 'seaside'
Arguments:
aStream = an EncodedStream on a ReadWriteStream with an
UTF8StreamEncoder
Temporaries:
parser = a Seaside.XMLDOMParser
handler = a Seaside.STSeasideResponseParser
Context PC = 29

----------------------------------------------------------------------
Seaside.STSeasideResponseParser class>>parseDocumentFrom:
Receiver:
a Seaside.STSeasideResponseParser class
Instance Variables:
superclass = SAXHandler
methodDict = a MethodDictionary[22]
format = 16390
subclasses = nil
instanceVariables = an Array[4]
organization = ('content' #characters: #endElement:
#ignorableWhitespace: #inputComponentFor: #radioComponentFor:
#startAnchor: #startDocument #startElement:attributeList:
#startElement:namespaceURI:namespace:attributeList: #startForm:
#startGenericElement:attributeList: #startInput: #startOption:
#startSelect: #startTextArea:)
('stack' #addEntity: #pop #push: #stack #top)
('accessing' #response #response:)

name = #STSeasideResponseParser
classPool = a NameSpaceOfClass[0]
environment = a NameSpace[420]
Arguments:
aStream = an EncodedStream on a ReadWriteStream with an
UTF8StreamEncoder
Context PC = 4

----------------------------------------------------------------------
Seaside.STSeasideResponseParser class>>parseDocumentFromResponse:
Receiver:
a Seaside.STSeasideResponseParser class
Instance Variables:
superclass = SAXHandler
methodDict = a MethodDictionary[22]
format = 16390
subclasses = nil
instanceVariables = an Array[4]
organization = ('content' #characters: #endElement:
#ignorableWhitespace: #inputComponentFor: #radioComponentFor:
#startAnchor: #startDocument #startElement:attributeList:
#startElement:namespaceURI:namespace:attributeList: #startForm:
#startGenericElement:attributeList: #startInput: #startOption:
#startSelect: #startTextArea:)
('stack' #addEntity: #pop #push: #stack #top)
('accessing' #response #response:)

name = #STSeasideResponseParser
classPool = a NameSpaceOfClass[0]
environment = a NameSpace[420]
Arguments:
aResponse = a Seaside.HttpResponse
Context PC = 20

----------------------------------------------------------------------
Seaside.STBrowserSimulator>>issueRequestUntilNotMoved:
Receiver:
a Seaside.STBrowserSimulator
Instance Variables:
history = nil
cookies = a Dictionary[0]
baseUrl =
http://localhost:7777/seaside/activeTests/STAnchorDemo_testAnchor
agentString = nil
httpClient = nil
agent = nil
Arguments:
anHttpRequest = a Seaside.HttpRequest
Temporaries:
response = a Seaside.HttpResponse
req = a Seaside.HttpRequest
newUrl = 'http://localhost:7777/seaside...TsUQRrtJkJVoGgIF&_k=AUSMvomO'
doc = nil
Context PC = 32

----------------------------------------------------------------------
Seaside.STBrowserSimulator>>establishSession
Receiver:
a Seaside.STBrowserSimulator
Instance Variables:
history = nil
cookies = a Dictionary[0]
baseUrl =
http://localhost:7777/seaside/activeTests/STAnchorDemo_testAnchor
agentString = nil
httpClient = nil
agent = nil
Temporaries:
req = a Seaside.HttpRequest
Context PC = 12

----------------------------------------------------------------------
Seaside.STWebAppTester(Seaside.STRemoteAppTester)>>establishSession
Receiver:
a Seaside.STWebAppTester
Instance Variables:
browser = a Seaside.STBrowserSimulator
debugging = true
rootUrl = 'http://localhost:7777/seaside...ests/STAnchorDemo_testAnchor'
app = a Seaside.STTesterApplication named: 'STAnchorDemo_testAnchor'
pseudomain = a Seaside.STTestingPseudomain
handler = a Seaside.STTestErrorHandler
runnerTask = a Seaside.STRunnerTask
sessionPostCreationBlock = nil
Context PC = 6

----------------------------------------------------------------------
Seaside.STAnchorDemoTest(Seaside.STTestCase)>>establishSession
Receiver:
a Seaside.STAnchorDemoTest
Instance Variables:
testSelector = #testAnchor
tester = a Seaside.STWebAppTester
debugging = true
Context PC = 3

----------------------------------------------------------------------
Seaside.STAnchorDemoTest>>testAnchor
Receiver:
a Seaside.STAnchorDemoTest
Instance Variables:
testSelector = #testAnchor
tester = a Seaside.STWebAppTester
debugging = true
Context PC = 8

----------------------------------------------------------------------
Seaside.STAnchorDemoTest(TestCase)>>performTest
Receiver:
a Seaside.STAnchorDemoTest
Instance Variables:
testSelector = #testAnchor
tester = a Seaside.STWebAppTester
debugging = true
Context PC = 6

----------------------------------------------------------------------
optimized [] in TestCase>>runCase
Receiver:
an UndefinedObject
Temporaries:
.super = Seaside.STAnchorDemoTest>>#testAnchor
Context PC = 9

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in TestCase>>runCase
outerContext = nil
copiedValues = Seaside.STAnchorDemoTest>>#testAnchor
Arguments:
aBlock = BlockClosure [] in TestCase>>runCase
Temporaries:
result = nil
Context PC = 4

----------------------------------------------------------------------
BlockClosure>>sunitEnsure:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in TestCase>>runCase
outerContext = nil
copiedValues = Seaside.STAnchorDemoTest>>#testAnchor
Arguments:
aBlock = BlockClosure [] in TestCase>>runCase
Context PC = 5

----------------------------------------------------------------------
Seaside.STAnchorDemoTest(TestCase)>>runCase
Receiver:
a Seaside.STAnchorDemoTest
Instance Variables:
testSelector = #testAnchor
tester = a Seaside.STWebAppTester
debugging = true
Context PC = 11

----------------------------------------------------------------------
optimized [] in Seaside.STTestCase>>debug
Receiver:
an UndefinedObject
Temporaries:
.super = Seaside.STAnchorDemoTest>>#testAnchor
Context PC = 13

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in Seaside.STTestCase>>debug
outerContext = nil
copiedValues = Seaside.STAnchorDemoTest>>#testAnchor
Arguments:
aBlock = BlockClosure [] in Seaside.STTestCase>>debug
Temporaries:
result = nil
Context PC = 4

----------------------------------------------------------------------
Seaside.STAnchorDemoTest(Seaside.STTestCase)>>debug
Receiver:
a Seaside.STAnchorDemoTest
Instance Variables:
testSelector = #testAnchor
tester = nil
debugging = nil
Context PC = 18

----------------------------------------------------------------------
optimized [] in [] in [] in Refactory.Browser.SUnitStatusBar>>debugTests
Receiver:
an UndefinedObject
Arguments:
each = Seaside.STAnchorDemoTest>>#testAnchor
Temporaries:
.super = a Refactory.Browser.SUnitStatusBar
Context PC = 5

----------------------------------------------------------------------
Set>>do:
Receiver:
a Set
Instance Variables:
tally = 1
Arguments:
aBlock = BlockClosure [] in [] in [] in
Refactory.Browser.SUnitStatusBar>>debugTests
Temporaries:
index = 2
elem = Seaside.STAnchorDemoTest>>#testAnchor
Context PC = 31

----------------------------------------------------------------------
optimized [] in [] in Refactory.Browser.SUnitStatusBar>>debugTests
Receiver:
an UndefinedObject
Temporaries:
.super = a Refactory.Browser.SUnitStatusBar
Context PC = 12

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in [] in
Refactory.Browser.SUnitStatusBar>>debugTests
outerContext = nil
copiedValues = a Refactory.Browser.SUnitStatusBar
Arguments:
anExceptionSelector = an ExceptionSet[2]
handlerBlock = BlockClosure [] in [] in
Refactory.Browser.SUnitStatusBar>>debugTests
Context PC = 18

----------------------------------------------------------------------
optimized [] in Refactory.Browser.SUnitStatusBar>>debugTests
Receiver:
an UndefinedObject
Temporaries:
.super = a Refactory.Browser.SUnitStatusBar
failed = true
Context PC = 18

----------------------------------------------------------------------
BlockClosure>>ifCurtailed:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in
Refactory.Browser.SUnitStatusBar>>debugTests
outerContext = nil
copiedValues = an Array[2]
Arguments:
terminationBlock = BlockClosure [] in
Refactory.Browser.SUnitStatusBar>>debugTests
Context PC = 4

----------------------------------------------------------------------
Refactory.Browser.SUnitStatusBar>>debugTests
Receiver:
a Refactory.Browser.SUnitStatusBar
Instance Variables:
container = a StatusPanel
eventHandlers = nil
properties = a Dictionary[4]
components = an OrderedCollection[6]
preferredBounds = 0@0 corner: 0@0
layoutAlgorithm = BlockClosure [] in Panel>>partFramingBlock:
testCount = 1
defects = nil
codeModel = STAnchorDemoTest
Temporaries:
failed = true
Context PC = 41

----------------------------------------------------------------------
optimized [] in Refactory.Browser.SUnitStatusBar>>actionDriver:
Receiver:
an UndefinedObject
Arguments:
m = a ValueHolder on: false
v = true
Temporaries:
.super = a Refactory.Browser.SUnitStatusBar
.anActionSelector = #debugTests
Context PC = 7

----------------------------------------------------------------------
PluggableAdaptor>>setValue:
Receiver:
a PluggableAdaptor
Instance Variables:
dependents = a WinXPActionButtonView
model = a ValueHolder on: false
getBlock = BlockClosure [] in
Refactory.Browser.SUnitStatusBar>>actionDriver:
putBlock = BlockClosure [] in
Refactory.Browser.SUnitStatusBar>>actionDriver:
updateBlock = BlockClosure [] in
Refactory.Browser.SUnitStatusBar>>actionDriver:
Arguments:
newValue = true
Context PC = 6

----------------------------------------------------------------------
PluggableAdaptor(ValueModel)>>value:
Receiver:
a PluggableAdaptor
Instance Variables:
dependents = a WinXPActionButtonView
model = a ValueHolder on: false
getBlock = BlockClosure [] in
Refactory.Browser.SUnitStatusBar>>actionDriver:
putBlock = BlockClosure [] in
Refactory.Browser.SUnitStatusBar>>actionDriver:
updateBlock = BlockClosure [] in
Refactory.Browser.SUnitStatusBar>>actionDriver:
Arguments:
newValue = true
Context PC = 5

----------------------------------------------------------------------
WinXPTriggerButtonController(TriggerButtonController)>>pressAction
Receiver:
a WinXPTriggerButtonController
Instance Variables:
model = a PluggableAdaptor
view = a WinXPActionButtonView
sensor = a TranslatingSensor
keyboardProcessor = nil
keyboardHook = nil
dispatcher = nil
Context PC = 17

----------------------------------------------------------------------
TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:
Receiver:
a TriggerButtonTracker
Instance Variables:
controller = a WinXPTriggerButtonController
inside = true
Arguments:
aPoint = 53@10
Context PC = 8

----------------------------------------------------------------------
TriggerButtonTracker>>finishSelectionFor:
Receiver:
a TriggerButtonTracker
Instance Variables:
controller = a WinXPTriggerButtonController
inside = true
Arguments:
aPoint = 53@10
Context PC = 11

----------------------------------------------------------------------
TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:
Receiver:
a TriggerButtonTracker
Instance Variables:
controller = a WinXPTriggerButtonController
inside = true
Arguments:
aMouseButtonEvent = a RedButtonReleasedEvent
Context PC = 13

----------------------------------------------------------------------
RedButtonReleasedEvent>>dispatchTo:
Receiver:
a RedButtonReleasedEvent
Instance Variables:
time = 1215893189
initiator = an EventDispatcher
window = an ApplicationWindow 44040235
state = 0
x = 1030
y = 647
gx = 1069
gy = 869
buttonNumber = 1
Arguments:
anObject = a TriggerButtonTracker
Context PC = 4

----------------------------------------------------------------------
TriggerButtonTracker(SelectionTracker)>>handleEvent:
Receiver:
a TriggerButtonTracker
Instance Variables:
controller = a WinXPTriggerButtonController
inside = true
Arguments:
anEvent = a RedButtonReleasedEvent
Context PC = 4

----------------------------------------------------------------------
EventDispatcher>>dispatch:to:
Receiver:
an EventDispatcher
Instance Variables:
windowController = an ApplicationStandardSystemController
currentMouseConsumer = nil
grabbingMouse = false
keyboardProcessor = a KeyboardProcessor
lastControlObject = a
Refactory.CodeHighlighter.HighlightingTextEditorController
trapList = nil
state = nil
repairDamageWhenDebugging = true
flushQueueAfterError = true
distributeEventsWhenDebugging = true
dragDropInProgress = false
dragDropTracker = nil
dispatchUnknownEvents = false
Arguments:
event = a RedButtonReleasedEvent
object = a TriggerButtonTracker
Temporaries:
tmp = nil
Context PC = 10

----------------------------------------------------------------------
EventDispatcher>>dispatchEvent:
Receiver:
an EventDispatcher
Instance Variables:
windowController = an ApplicationStandardSystemController
currentMouseConsumer = nil
grabbingMouse = false
keyboardProcessor = a KeyboardProcessor
lastControlObject = a
Refactory.CodeHighlighter.HighlightingTextEditorController
trapList = nil
state = nil
repairDamageWhenDebugging = true
flushQueueAfterError = true
distributeEventsWhenDebugging = true
dragDropInProgress = false
dragDropTracker = nil
dispatchUnknownEvents = false
Arguments:
event = a RedButtonReleasedEvent
Temporaries:
objectWantingControl = nil
targetKeyboardProcessor = nil
Context PC = 60

----------------------------------------------------------------------
RedButtonReleasedEvent(Event)>>dispatch
Receiver:
a RedButtonReleasedEvent
Instance Variables:
time = 1215893189
initiator = an EventDispatcher
window = an ApplicationWindow 44040235
state = 0
x = 1030
y = 647
gx = 1069
gy = 869
buttonNumber = 1
Context PC = 16

----------------------------------------------------------------------
RedButtonReleasedEvent(Event)>>dispatchForWindowManager:
Receiver:
a RedButtonReleasedEvent
Instance Variables:
time = 1215893189
initiator = an EventDispatcher
window = an ApplicationWindow 44040235
state = 0
x = 1030
y = 647
gx = 1069
gy = 869
buttonNumber = 1
Arguments:
aWinMgr = a WindowManager
Context PC = 4

----------------------------------------------------------------------
optimized [] in WindowManager>>safelyDispatchForWindowManager:
Receiver:
an UndefinedObject
Temporaries:
.event = a RedButtonReleasedEvent
.super = a WindowManager
Context PC = 6

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in
WindowManager>>safelyDispatchForWindowManager:
outerContext = nil
copiedValues = an Array[2]
Arguments:
anExceptionSelector = BadControllerError
handlerBlock = BlockClosure [] in
WindowManager>>safelyDispatchForWindowManager:
Context PC = 18

----------------------------------------------------------------------
WindowManager>>safelyDispatchForWindowManager:
Receiver:
a WindowManager
Instance Variables:
windows = an OrderedCollection[1]
activeController = nil
interruptLock = false
outstandingMetaOrDamage = false
openInProgress = false
eventQueue = an EventQueue
baseProcess = a Process in Semaphore>>wait
dontFilterEvents = false
Arguments:
event = a RedButtonReleasedEvent
Context PC = 13

----------------------------------------------------------------------
WindowManager>>processNextEvent
Receiver:
a WindowManager
Instance Variables:
windows = an OrderedCollection[1]
activeController = nil
interruptLock = false
outstandingMetaOrDamage = false
openInProgress = false
eventQueue = an EventQueue
baseProcess = a Process in Semaphore>>wait
dontFilterEvents = false
Temporaries:
event = a RedButtonReleasedEvent
Context PC = 9

----------------------------------------------------------------------
optimized [] in [] in WindowManager>>newProcess
Receiver:
an UndefinedObject
Temporaries:
.super = a WindowManager
Context PC = 13

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in [] in WindowManager>>newProcess
outerContext = nil
copiedValues = a WindowManager
Arguments:
anExceptionSelector = TerminateException
handlerBlock = BlockClosure [] in [] in WindowManager>>newProcess
Context PC = 18

----------------------------------------------------------------------
optimized [] in WindowManager>>newProcess
Receiver:
an UndefinedObject
Temporaries:
.super = a WindowManager
Context PC = 15

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in WindowManager>>newProcess
outerContext = nil
copiedValues = a WindowManager
Arguments:
anExceptionSelector = TerminateException
handlerBlock = BlockClosure [] in [] in Process
class>>forBlock:priority:
Context PC = 18

----------------------------------------------------------------------
optimized [] in Process class>>forBlock:priority:
Receiver:
an UndefinedObject
Temporaries:
.aBlock = BlockClosure [] in WindowManager>>newProcess
Context PC = 9

_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

Gregory Bourassa-3

Re: [vwnc] Dealing with external DTD's in XML parser

David,

I looked at the way the VW XML implementation handles DTDs some time
ago. Oddly, they wind up in the parser instance, not in the XML
document model created when you parse a stream. Maybe you could make
some tweaks to how you instantiate the parser and what it does after
getting that first DTD. I didn't go that far with it.

The low-tech way of getting external entity resolution from the DTD,
while avoiding the internet, is to copy the DTD onto your drive and
modify the public/system identifier in the DOCTYPE in your docs.

Regards.

Gregory Bourassa
===========================

C. David Shaffer wrote:

> Sorry if this is a stupid question...read the docs, they are no help.
> In VW7.6 I'm parsing XHTML documents that begin with:
>
> <!DOCTYPE html
> PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
> "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
>
>
> The VW parser goes out and fetches the DTD each time I parse a
> document. That's no good so I tried using a PluggableEntityResolver as so:
>
> parser entityResolver: (XML.PluggableEntityResolver withBlock:
> [:publicID :systemID |
> systemID = 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'
> ifTrue: [parser xhtml1StrictDtd readStream]
> ifFalse: [...similar code for HTMLlat1 and other references
> in above DTD...]])
>
> where parser xhtml1StringDtd returns the aforementioned DTD as a
> string. This results in a walkback pasted below. My ifFalse: block
> never runs (the parser doesn't ask my resolver to resolve those
> entities...it bugs out before that). I am using this wrong? or is this
> a bug? How do people parse XML docs with DTD (passe, I know) without
> hitting the network? BTW, I can't strip the DTD because I need the
> entities to be resolved properly.
>
> David
>
> Unhandled exception: Message not understood: #resolvePath:
> ByteString(Object)>>doesNotUnderstand:
> Seaside.XMLDOMParser(XML.XMLParser)>>systemLiteral
> Seaside.XMLDOMParser(XML.XMLParser)>>externalID:
> Seaside.XMLDOMParser(XML.XMLParser)>>peDef:
> Seaside.XMLDOMParser(XML.XMLParser)>>entityDecl
> Seaside.XMLDOMParser(XML.XMLParser)>>markUpDecl
> Seaside.XMLDOMParser(XML.XMLParser)>>dtdEntry
> Seaside.XMLDOMParser(XML.XMLParser)>>dtdFile:
> Seaside.XMLDOMParser(XML.XMLParser)>>docTypeDecl
> Seaside.XMLDOMParser(XML.XMLParser)>>prolog
> optimized [] in XML.XMLParser>>scanDocument
> BlockClosure>>ensure:
> Seaside.XMLDOMParser(XML.XMLParser)>>scanDocument
> SeasidePlatformSupport class>>parseSeasideDocumentFrom:
> Seaside.STSeasideResponseParser class>>parseDocumentFrom:
> Seaside.STSeasideResponseParser class>>parseDocumentFromResponse:
> Seaside.STBrowserSimulator>>issueRequestUntilNotMoved:
> Seaside.STBrowserSimulator>>establishSession
> Seaside.STWebAppTester(Seaside.STRemoteAppTester)>>establishSession
> Seaside.STAnchorDemoTest(Seaside.STTestCase)>>establishSession
> Seaside.STAnchorDemoTest>>testAnchor
> Seaside.STAnchorDemoTest(TestCase)>>performTest
> optimized [] in TestCase>>runCase
> BlockClosure>>ensure:
> BlockClosure>>sunitEnsure:
> Seaside.STAnchorDemoTest(TestCase)>>runCase
> optimized [] in Seaside.STTestCase>>debug
> BlockClosure>>ensure:
> Seaside.STAnchorDemoTest(Seaside.STTestCase)>>debug
> optimized [] in [] in [] in Refactory.Browser.SUnitStatusBar>>debugTests
> Set>>do:
> optimized [] in [] in Refactory.Browser.SUnitStatusBar>>debugTests
> BlockClosure>>on:do:
> optimized [] in Refactory.Browser.SUnitStatusBar>>debugTests
> BlockClosure>>ifCurtailed:
> Refactory.Browser.SUnitStatusBar>>debugTests
> optimized [] in Refactory.Browser.SUnitStatusBar>>actionDriver:
> PluggableAdaptor>>setValue:
> PluggableAdaptor(ValueModel)>>value:
> WinXPTriggerButtonController(TriggerButtonController)>>pressAction
> TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:
> TriggerButtonTracker>>finishSelectionFor:
> TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:
> RedButtonReleasedEvent>>dispatchTo:
> TriggerButtonTracker(SelectionTracker)>>handleEvent:
> EventDispatcher>>dispatch:to:
> EventDispatcher>>dispatchEvent:
> RedButtonReleasedEvent(Event)>>dispatch
> RedButtonReleasedEvent(Event)>>dispatchForWindowManager:
> optimized [] in WindowManager>>safelyDispatchForWindowManager:
> BlockClosure>>on:do:
> WindowManager>>safelyDispatchForWindowManager:
> WindowManager>>processNextEvent
> optimized [] in [] in WindowManager>>newProcess
> BlockClosure>>on:do:
> optimized [] in WindowManager>>newProcess
> BlockClosure>>on:do:
> optimized [] in Process class>>forBlock:priority:
>
> ----------------------------------------------------------------------
> ByteString(Object)>>doesNotUnderstand:
> Receiver:
> a ByteString
> Arguments:
> aMessage = a Message with selector: #resolvePath: and arguments:
> #('xhtml-lat1.ent')
> Temporaries:
> excpt = a MessageNotUnderstood
> resumeValue = nil
> Context PC = 25
>
> ----------------------------------------------------------------------
> Seaside.XMLDOMParser(XML.XMLParser)>>systemLiteral
> Receiver:
> a Seaside.XMLDOMParser
> Instance Variables:
> sourceStack = a XML.StreamWrapper
> hereChar = $> "16r003E"
> hereCharNumBytes = 1
> lastSource = a XML.StreamWrapper
> currentSource = a XML.StreamWrapper
> dtd = a XML.DocumentType
> unresolvedIDREFs = a Set[0]
> definedIDs = a Set[0]
> latestID = nil
> sax = a XML.SAXDispatcher
> elementStack = an OrderedCollection[0]
> validating = false
> flags = 65548
> eol = Core.Character cr
> buffer = a WriteStream
> nameBuffer = a WriteStream
> Temporaries:
> lit = 'xhtml-lat1.ent'
> Context PC = 33
>
> ----------------------------------------------------------------------
> Seaside.XMLDOMParser(XML.XMLParser)>>externalID:
> Receiver:
> a Seaside.XMLDOMParser
> Instance Variables:
> sourceStack = a XML.StreamWrapper
> hereChar = $> "16r003E"
> hereCharNumBytes = 1
> lastSource = a XML.StreamWrapper
> currentSource = a XML.StreamWrapper
> dtd = a XML.DocumentType
> unresolvedIDREFs = a Set[0]
> definedIDs = a Set[0]
> latestID = nil
> sax = a XML.SAXDispatcher
> elementStack = an OrderedCollection[0]
> validating = false
> flags = 65548
> eol = Core.Character cr
> buffer = a WriteStream
> nameBuffer = a WriteStream
> Arguments:
> usage = #entity
> Temporaries:
> lit2 = nil
> lit1 = '-//W3C//ENTITIES Latin 1 for XHTML//EN'
> forceSpace = BlockClosure [] in XML.XMLParser>>externalID:
> skipSpace = BlockClosure [] in XML.XMLParser>>externalID:
> Context PC = 80
>
> ----------------------------------------------------------------------
> Seaside.XMLDOMParser(XML.XMLParser)>>peDef:
> Receiver:
> a Seaside.XMLDOMParser
> Instance Variables:
> sourceStack = a XML.StreamWrapper
> hereChar = $> "16r003E"
> hereCharNumBytes = 1
> lastSource = a XML.StreamWrapper
> currentSource = a XML.StreamWrapper
> dtd = a XML.DocumentType
> unresolvedIDREFs = a Set[0]
> definedIDs = a Set[0]
> latestID = nil
> sax = a XML.SAXDispatcher
> elementStack = an OrderedCollection[0]
> validating = false
> flags = 65548
> eol = Core.Character cr
> buffer = a WriteStream
> nameBuffer = a WriteStream
> Arguments:
> name = 'HTMLlat1'
> Temporaries:
> val = nil
> Context PC = 14
>
> ----------------------------------------------------------------------
> Seaside.XMLDOMParser(XML.XMLParser)>>entityDecl
> Receiver:
> a Seaside.XMLDOMParser
> Instance Variables:
> sourceStack = a XML.StreamWrapper
> hereChar = $> "16r003E"
> hereCharNumBytes = 1
> lastSource = a XML.StreamWrapper
> currentSource = a XML.StreamWrapper
> dtd = a XML.DocumentType
> unresolvedIDREFs = a Set[0]
> definedIDs = a Set[0]
> latestID = nil
> sax = a XML.SAXDispatcher
> elementStack = an OrderedCollection[0]
> validating = false
> flags = 65548
> eol = Core.Character cr
> buffer = a WriteStream
> nameBuffer = a WriteStream
> Temporaries:
> nm = 'HTMLlat1'
> def = nil
> str = a XML.StreamWrapper
> Context PC = 37
>
> ----------------------------------------------------------------------
> Seaside.XMLDOMParser(XML.XMLParser)>>markUpDecl
> Receiver:
> a Seaside.XMLDOMParser
> Instance Variables:
> sourceStack = a XML.StreamWrapper
> hereChar = $> "16r003E"
> hereCharNumBytes = 1
> lastSource = a XML.StreamWrapper
> currentSource = a XML.StreamWrapper
> dtd = a XML.DocumentType
> unresolvedIDREFs = a Set[0]
> definedIDs = a Set[0]
> latestID = nil
> sax = a XML.SAXDispatcher
> elementStack = an OrderedCollection[0]
> validating = false
> flags = 65548
> eol = Core.Character cr
> buffer = a WriteStream
> nameBuffer = a WriteStream
> Context PC = 14
>
> ----------------------------------------------------------------------
> Seaside.XMLDOMParser(XML.XMLParser)>>dtdEntry
> Receiver:
> a Seaside.XMLDOMParser
> Instance Variables:
> sourceStack = a XML.StreamWrapper
> hereChar = $> "16r003E"
> hereCharNumBytes = 1
> lastSource = a XML.StreamWrapper
> currentSource = a XML.StreamWrapper
> dtd = a XML.DocumentType
> unresolvedIDREFs = a Set[0]
> definedIDs = a Set[0]
> latestID = nil
> sax = a XML.SAXDispatcher
> elementStack = an OrderedCollection[0]
> validating = false
> flags = 65548
> eol = Core.Character cr
> buffer = a WriteStream
> nameBuffer = a WriteStream
> Context PC = 12
>
> ----------------------------------------------------------------------
> Seaside.XMLDOMParser(XML.XMLParser)>>dtdFile:
> Receiver:
> a Seaside.XMLDOMParser
> Instance Variables:
> sourceStack = a XML.StreamWrapper
> hereChar = $> "16r003E"
> hereCharNumBytes = 1
> lastSource = a XML.StreamWrapper
> currentSource = a XML.StreamWrapper
> dtd = a XML.DocumentType
> unresolvedIDREFs = a Set[0]
> definedIDs = a Set[0]
> latestID = nil
> sax = a XML.SAXDispatcher
> elementStack = an OrderedCollection[0]
> validating = false
> flags = 65548
> eol = Core.Character cr
> buffer = a WriteStream
> nameBuffer = a WriteStream
> Arguments:
> uriList = an Array[2]
> Temporaries:
> str = a XML.StreamWrapper
> input = a XML.InputSource
> Context PC = 77
>
> ----------------------------------------------------------------------
> Seaside.XMLDOMParser(XML.XMLParser)>>docTypeDecl
> Receiver:
> a Seaside.XMLDOMParser
> Instance Variables:
> sourceStack = a XML.StreamWrapper
> hereChar = $> "16r003E"
> hereCharNumBytes = 1
> lastSource = a XML.StreamWrapper
> currentSource = a XML.StreamWrapper
> dtd = a XML.DocumentType
> unresolvedIDREFs = a Set[0]
> definedIDs = a Set[0]
> latestID = nil
> sax = a XML.SAXDispatcher
> elementStack = an OrderedCollection[0]
> validating = false
> flags = 65548
> eol = Core.Character cr
> buffer = a WriteStream
> nameBuffer = a WriteStream
> Temporaries:
> nm = {html}
> id = an Array[2]
> Context PC = 90
>
> ----------------------------------------------------------------------
> Seaside.XMLDOMParser(XML.XMLParser)>>prolog
> Receiver:
> a Seaside.XMLDOMParser
> Instance Variables:
> sourceStack = a XML.StreamWrapper
> hereChar = $> "16r003E"
> hereCharNumBytes = 1
> lastSource = a XML.StreamWrapper
> currentSource = a XML.StreamWrapper
> dtd = a XML.DocumentType
> unresolvedIDREFs = a Set[0]
> definedIDs = a Set[0]
> latestID = nil
> sax = a XML.SAXDispatcher
> elementStack = an OrderedCollection[0]
> validating = false
> flags = 65548
> eol = Core.Character cr
> buffer = a WriteStream
> nameBuffer = a WriteStream
> Context PC = 19
>
> ----------------------------------------------------------------------
> optimized [] in XML.XMLParser>>scanDocument
> Receiver:
> an UndefinedObject
> Temporaries:
> .super = a Seaside.XMLDOMParser
> Context PC = 9
>
> ----------------------------------------------------------------------
> BlockClosure>>ensure:
> Receiver:
> a BlockClosure
> Instance Variables:
> method = CompiledBlock [] in XML.XMLParser>>scanDocument
> outerContext = nil
> copiedValues = a Seaside.XMLDOMParser
> Arguments:
> aBlock = BlockClosure [] in XML.XMLParser>>scanDocument
> Temporaries:
> result = nil
> Context PC = 4
>
> ----------------------------------------------------------------------
> Seaside.XMLDOMParser(XML.XMLParser)>>scanDocument
> Receiver:
> a Seaside.XMLDOMParser
> Instance Variables:
> sourceStack = a XML.StreamWrapper
> hereChar = $> "16r003E"
> hereCharNumBytes = 1
> lastSource = a XML.StreamWrapper
> currentSource = a XML.StreamWrapper
> dtd = a XML.DocumentType
> unresolvedIDREFs = a Set[0]
> definedIDs = a Set[0]
> latestID = nil
> sax = a XML.SAXDispatcher
> elementStack = an OrderedCollection[0]
> validating = false
> flags = 65548
> eol = Core.Character cr
> buffer = a WriteStream
> nameBuffer = a WriteStream
> Context PC = 11
>
> ----------------------------------------------------------------------
> SeasidePlatformSupport class>>parseSeasideDocumentFrom:
> Receiver:
> a SeasidePlatformSupport class
> Instance Variables:
> superclass = Object
> methodDict = a MethodDictionary[0]
> format = 20480
> subclasses = nil
> instanceVariables = nil
> organization =
> name = #SeasidePlatformSupport
> classPool = a NameSpaceOfClass[3]
> environment = nil
> defaultDispatcherName = 'seaside'
> Arguments:
> aStream = an EncodedStream on a ReadWriteStream with an
> UTF8StreamEncoder
> Temporaries:
> parser = a Seaside.XMLDOMParser
> handler = a Seaside.STSeasideResponseParser
> Context PC = 29
>
> ----------------------------------------------------------------------
> Seaside.STSeasideResponseParser class>>parseDocumentFrom:
> Receiver:
> a Seaside.STSeasideResponseParser class
> Instance Variables:
> superclass = SAXHandler
> methodDict = a MethodDictionary[22]
> format = 16390
> subclasses = nil
> instanceVariables = an Array[4]
> organization = ('content' #characters: #endElement:
> #ignorableWhitespace: #inputComponentFor: #radioComponentFor:
> #startAnchor: #startDocument #startElement:attributeList:
> #startElement:namespaceURI:namespace:attributeList: #startForm:
> #startGenericElement:attributeList: #startInput: #startOption:
> #startSelect: #startTextArea:)
> ('stack' #addEntity: #pop #push: #stack #top)
> ('accessing' #response #response:)
>
> name = #STSeasideResponseParser
> classPool = a NameSpaceOfClass[0]
> environment = a NameSpace[420]
> Arguments:
> aStream = an EncodedStream on a ReadWriteStream with an
> UTF8StreamEncoder
> Context PC = 4
>
> ----------------------------------------------------------------------
> Seaside.STSeasideResponseParser class>>parseDocumentFromResponse:
> Receiver:
> a Seaside.STSeasideResponseParser class
> Instance Variables:
> superclass = SAXHandler
> methodDict = a MethodDictionary[22]
> format = 16390
> subclasses = nil
> instanceVariables = an Array[4]
> organization = ('content' #characters: #endElement:
> #ignorableWhitespace: #inputComponentFor: #radioComponentFor:
> #startAnchor: #startDocument #startElement:attributeList:
> #startElement:namespaceURI:namespace:attributeList: #startForm:
> #startGenericElement:attributeList: #startInput: #startOption:
> #startSelect: #startTextArea:)
> ('stack' #addEntity: #pop #push: #stack #top)
> ('accessing' #response #response:)
>
> name = #STSeasideResponseParser
> classPool = a NameSpaceOfClass[0]
> environment = a NameSpace[420]
> Arguments:
> aResponse = a Seaside.HttpResponse
> Context PC = 20
>
> ----------------------------------------------------------------------
> Seaside.STBrowserSimulator>>issueRequestUntilNotMoved:
> Receiver:
> a Seaside.STBrowserSimulator
> Instance Variables:
> history = nil
> cookies = a Dictionary[0]
> baseUrl =
> http://localhost:7777/seaside/activeTests/STAnchorDemo_testAnchor
> agentString = nil
> httpClient = nil
> agent = nil
> Arguments:
> anHttpRequest = a Seaside.HttpRequest
> Temporaries:
> response = a Seaside.HttpResponse
> req = a Seaside.HttpRequest
> newUrl = 'http://localhost:7777/seaside...TsUQRrtJkJVoGgIF&_k=AUSMvomO'
> doc = nil
> Context PC = 32
>
> ----------------------------------------------------------------------
> Seaside.STBrowserSimulator>>establishSession
> Receiver:
> a Seaside.STBrowserSimulator
> Instance Variables:
> history = nil
> cookies = a Dictionary[0]
> baseUrl =
> http://localhost:7777/seaside/activeTests/STAnchorDemo_testAnchor
> agentString = nil
> httpClient = nil
> agent = nil
> Temporaries:
> req = a Seaside.HttpRequest
> Context PC = 12
>
> ----------------------------------------------------------------------
> Seaside.STWebAppTester(Seaside.STRemoteAppTester)>>establishSession
> Receiver:
> a Seaside.STWebAppTester
> Instance Variables:
> browser = a Seaside.STBrowserSimulator
> debugging = true
> rootUrl = 'http://localhost:7777/seaside...ests/STAnchorDemo_testAnchor'
> app = a Seaside.STTesterApplication named: 'STAnchorDemo_testAnchor'
> pseudomain = a Seaside.STTestingPseudomain
> handler = a Seaside.STTestErrorHandler
> runnerTask = a Seaside.STRunnerTask
> sessionPostCreationBlock = nil
> Context PC = 6
>
> ----------------------------------------------------------------------
> Seaside.STAnchorDemoTest(Seaside.STTestCase)>>establishSession
> Receiver:
> a Seaside.STAnchorDemoTest
> Instance Variables:
> testSelector = #testAnchor
> tester = a Seaside.STWebAppTester
> debugging = true
> Context PC = 3
>
> ----------------------------------------------------------------------
> Seaside.STAnchorDemoTest>>testAnchor
> Receiver:
> a Seaside.STAnchorDemoTest
> Instance Variables:
> testSelector = #testAnchor
> tester = a Seaside.STWebAppTester
> debugging = true
> Context PC = 8
>
> ----------------------------------------------------------------------
> Seaside.STAnchorDemoTest(TestCase)>>performTest
> Receiver:
> a Seaside.STAnchorDemoTest
> Instance Variables:
> testSelector = #testAnchor
> tester = a Seaside.STWebAppTester
> debugging = true
> Context PC = 6
>
> ----------------------------------------------------------------------
> optimized [] in TestCase>>runCase
> Receiver:
> an UndefinedObject
> Temporaries:
> .super = Seaside.STAnchorDemoTest>>#testAnchor
> Context PC = 9
>
> ----------------------------------------------------------------------
> BlockClosure>>ensure:
> Receiver:
> a BlockClosure
> Instance Variables:
> method = CompiledBlock [] in TestCase>>runCase
> outerContext = nil
> copiedValues = Seaside.STAnchorDemoTest>>#testAnchor
> Arguments:
> aBlock = BlockClosure [] in TestCase>>runCase
> Temporaries:
> result = nil
> Context PC = 4
>
> ----------------------------------------------------------------------
> BlockClosure>>sunitEnsure:
> Receiver:
> a BlockClosure
> Instance Variables:
> method = CompiledBlock [] in TestCase>>runCase
> outerContext = nil
> copiedValues = Seaside.STAnchorDemoTest>>#testAnchor
> Arguments:
> aBlock = BlockClosure [] in TestCase>>runCase
> Context PC = 5
>
> ----------------------------------------------------------------------
> Seaside.STAnchorDemoTest(TestCase)>>runCase
> Receiver:
> a Seaside.STAnchorDemoTest
> Instance Variables:
> testSelector = #testAnchor
> tester = a Seaside.STWebAppTester
> debugging = true
> Context PC = 11
>
> ----------------------------------------------------------------------
> optimized [] in Seaside.STTestCase>>debug
> Receiver:
> an UndefinedObject
> Temporaries:
> .super = Seaside.STAnchorDemoTest>>#testAnchor
> Context PC = 13
>
> ----------------------------------------------------------------------
> BlockClosure>>ensure:
> Receiver:
> a BlockClosure
> Instance Variables:
> method = CompiledBlock [] in Seaside.STTestCase>>debug
> outerContext = nil
> copiedValues = Seaside.STAnchorDemoTest>>#testAnchor
> Arguments:
> aBlock = BlockClosure [] in Seaside.STTestCase>>debug
> Temporaries:
> result = nil
> Context PC = 4
>
> ----------------------------------------------------------------------
> Seaside.STAnchorDemoTest(Seaside.STTestCase)>>debug
> Receiver:
> a Seaside.STAnchorDemoTest
> Instance Variables:
> testSelector = #testAnchor
> tester = nil
> debugging = nil
> Context PC = 18
>
> ----------------------------------------------------------------------
> optimized [] in [] in [] in Refactory.Browser.SUnitStatusBar>>debugTests
> Receiver:
> an UndefinedObject
> Arguments:
> each = Seaside.STAnchorDemoTest>>#testAnchor
> Temporaries:
> .super = a Refactory.Browser.SUnitStatusBar
> Context PC = 5
>
> ----------------------------------------------------------------------
> Set>>do:
> Receiver:
> a Set
> Instance Variables:
> tally = 1
> Arguments:
> aBlock = BlockClosure [] in [] in [] in
> Refactory.Browser.SUnitStatusBar>>debugTests
> Temporaries:
> index = 2
> elem = Seaside.STAnchorDemoTest>>#testAnchor
> Context PC = 31
>
> ----------------------------------------------------------------------
> optimized [] in [] in Refactory.Browser.SUnitStatusBar>>debugTests
> Receiver:
> an UndefinedObject
> Temporaries:
> .super = a Refactory.Browser.SUnitStatusBar
> Context PC = 12
>
> ----------------------------------------------------------------------
> BlockClosure>>on:do:
> Receiver:
> a BlockClosure
> Instance Variables:
> method = CompiledBlock [] in [] in
> Refactory.Browser.SUnitStatusBar>>debugTests
> outerContext = nil
> copiedValues = a Refactory.Browser.SUnitStatusBar
> Arguments:
> anExceptionSelector = an ExceptionSet[2]
> handlerBlock = BlockClosure [] in [] in
> Refactory.Browser.SUnitStatusBar>>debugTests
> Context PC = 18
>
> ----------------------------------------------------------------------
> optimized [] in Refactory.Browser.SUnitStatusBar>>debugTests
> Receiver:
> an UndefinedObject
> Temporaries:
> .super = a Refactory.Browser.SUnitStatusBar
> failed = true
> Context PC = 18
>
> ----------------------------------------------------------------------
> BlockClosure>>ifCurtailed:
> Receiver:
> a BlockClosure
> Instance Variables:
> method = CompiledBlock [] in
> Refactory.Browser.SUnitStatusBar>>debugTests
> outerContext = nil
> copiedValues = an Array[2]
> Arguments:
> terminationBlock = BlockClosure [] in
> Refactory.Browser.SUnitStatusBar>>debugTests
> Context PC = 4
>
> ----------------------------------------------------------------------
> Refactory.Browser.SUnitStatusBar>>debugTests
> Receiver:
> a Refactory.Browser.SUnitStatusBar
> Instance Variables:
> container = a StatusPanel
> eventHandlers = nil
> properties = a Dictionary[4]
> components = an OrderedCollection[6]
> preferredBounds = 0@0 corner: 0@0
> layoutAlgorithm = BlockClosure [] in Panel>>partFramingBlock:
> testCount = 1
> defects = nil
> codeModel = STAnchorDemoTest
> Temporaries:
> failed = true
> Context PC = 41
>
> ----------------------------------------------------------------------
> optimized [] in Refactory.Browser.SUnitStatusBar>>actionDriver:
> Receiver:
> an UndefinedObject
> Arguments:
> m = a ValueHolder on: false
> v = true
> Temporaries:
> .super = a Refactory.Browser.SUnitStatusBar
> .anActionSelector = #debugTests
> Context PC = 7
>
> ----------------------------------------------------------------------
> PluggableAdaptor>>setValue:
> Receiver:
> a PluggableAdaptor
> Instance Variables:
> dependents = a WinXPActionButtonView
> model = a ValueHolder on: false
> getBlock = BlockClosure [] in
> Refactory.Browser.SUnitStatusBar>>actionDriver:
> putBlock = BlockClosure [] in
> Refactory.Browser.SUnitStatusBar>>actionDriver:
> updateBlock = BlockClosure [] in
> Refactory.Browser.SUnitStatusBar>>actionDriver:
> Arguments:
> newValue = true
> Context PC = 6
>
> ----------------------------------------------------------------------
> PluggableAdaptor(ValueModel)>>value:
> Receiver:
> a PluggableAdaptor
> Instance Variables:
> dependents = a WinXPActionButtonView
> model = a ValueHolder on: false
> getBlock = BlockClosure [] in
> Refactory.Browser.SUnitStatusBar>>actionDriver:
> putBlock = BlockClosure [] in
> Refactory.Browser.SUnitStatusBar>>actionDriver:
> updateBlock = BlockClosure [] in
> Refactory.Browser.SUnitStatusBar>>actionDriver:
> Arguments:
> newValue = true
> Context PC = 5
>
> ----------------------------------------------------------------------
> WinXPTriggerButtonController(TriggerButtonController)>>pressAction
> Receiver:
> a WinXPTriggerButtonController
> Instance Variables:
> model = a PluggableAdaptor
> view = a WinXPActionButtonView
> sensor = a TranslatingSensor
> keyboardProcessor = nil
> keyboardHook = nil
> dispatcher = nil
> Context PC = 17
>
> ----------------------------------------------------------------------
> TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:
> Receiver:
> a TriggerButtonTracker
> Instance Variables:
> controller = a WinXPTriggerButtonController
> inside = true
> Arguments:
> aPoint = 53@10
> Context PC = 8
>
> ----------------------------------------------------------------------
> TriggerButtonTracker>>finishSelectionFor:
> Receiver:
> a TriggerButtonTracker
> Instance Variables:
> controller = a WinXPTriggerButtonController
> inside = true
> Arguments:
> aPoint = 53@10
> Context PC = 11
>
> ----------------------------------------------------------------------
> TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:
> Receiver:
> a TriggerButtonTracker
> Instance Variables:
> controller = a WinXPTriggerButtonController
> inside = true
> Arguments:
> aMouseButtonEvent = a RedButtonReleasedEvent
> Context PC = 13
>
> ----------------------------------------------------------------------
> RedButtonReleasedEvent>>dispatchTo:
> Receiver:
> a RedButtonReleasedEvent
> Instance Variables:
> time = 1215893189
> initiator = an EventDispatcher
> window = an ApplicationWindow 44040235
> state = 0
> x = 1030
> y = 647
> gx = 1069
> gy = 869
> buttonNumber = 1
> Arguments:
> anObject = a TriggerButtonTracker
> Context PC = 4
>
> ----------------------------------------------------------------------
> TriggerButtonTracker(SelectionTracker)>>handleEvent:
> Receiver:
> a TriggerButtonTracker
> Instance Variables:
> controller = a WinXPTriggerButtonController
> inside = true
> Arguments:
> anEvent = a RedButtonReleasedEvent
> Context PC = 4
>
> ----------------------------------------------------------------------
> EventDispatcher>>dispatch:to:
> Receiver:
> an EventDispatcher
> Instance Variables:
> windowController = an ApplicationStandardSystemController
> currentMouseConsumer = nil
> grabbingMouse = false
> keyboardProcessor = a KeyboardProcessor
> lastControlObject = a
> Refactory.CodeHighlighter.HighlightingTextEditorController
> trapList = nil
> state = nil
> repairDamageWhenDebugging = true
> flushQueueAfterError = true
> distributeEventsWhenDebugging = true
> dragDropInProgress = false
> dragDropTracker = nil
> dispatchUnknownEvents = false
> Arguments:
> event = a RedButtonReleasedEvent
> object = a TriggerButtonTracker
> Temporaries:
> tmp = nil
> Context PC = 10
>
> ----------------------------------------------------------------------
> EventDispatcher>>dispatchEvent:
> Receiver:
> an EventDispatcher
> Instance Variables:
> windowController = an ApplicationStandardSystemController
> currentMouseConsumer = nil
> grabbingMouse = false
> keyboardProcessor = a KeyboardProcessor
> lastControlObject = a
> Refactory.CodeHighlighter.HighlightingTextEditorController
> trapList = nil
> state = nil
> repairDamageWhenDebugging = true
> flushQueueAfterError = true
> distributeEventsWhenDebugging = true
> dragDropInProgress = false
> dragDropTracker = nil
> dispatchUnknownEvents = false
> Arguments:
> event = a RedButtonReleasedEvent
> Temporaries:
> objectWantingControl = nil
> targetKeyboardProcessor = nil
> Context PC = 60
>
> ----------------------------------------------------------------------
> RedButtonReleasedEvent(Event)>>dispatch
> Receiver:
> a RedButtonReleasedEvent
> Instance Variables:
> time = 1215893189
> initiator = an EventDispatcher
> window = an ApplicationWindow 44040235
> state = 0
> x = 1030
> y = 647
> gx = 1069
> gy = 869
> buttonNumber = 1
> Context PC = 16
>
> ----------------------------------------------------------------------
> RedButtonReleasedEvent(Event)>>dispatchForWindowManager:
> Receiver:
> a RedButtonReleasedEvent
> Instance Variables:
> time = 1215893189
> initiator = an EventDispatcher
> window = an ApplicationWindow 44040235
> state = 0
> x = 1030
> y = 647
> gx = 1069
> gy = 869
> buttonNumber = 1
> Arguments:
> aWinMgr = a WindowManager
> Context PC = 4
>
> ----------------------------------------------------------------------
> optimized [] in WindowManager>>safelyDispatchForWindowManager:
> Receiver:
> an UndefinedObject
> Temporaries:
> .event = a RedButtonReleasedEvent
> .super = a WindowManager
> Context PC = 6
>
> ----------------------------------------------------------------------
> BlockClosure>>on:do:
> Receiver:
> a BlockClosure
> Instance Variables:
> method = CompiledBlock [] in
> WindowManager>>safelyDispatchForWindowManager:
> outerContext = nil
> copiedValues = an Array[2]
> Arguments:
> anExceptionSelector = BadControllerError
> handlerBlock = BlockClosure [] in
> WindowManager>>safelyDispatchForWindowManager:
> Context PC = 18
>
> ----------------------------------------------------------------------
> WindowManager>>safelyDispatchForWindowManager:
> Receiver:
> a WindowManager
> Instance Variables:
> windows = an OrderedCollection[1]
> activeController = nil
> interruptLock = false
> outstandingMetaOrDamage = false
> openInProgress = false
> eventQueue = an EventQueue
> baseProcess = a Process in Semaphore>>wait
> dontFilterEvents = false
> Arguments:
> event = a RedButtonReleasedEvent
> Context PC = 13
>
> ----------------------------------------------------------------------
> WindowManager>>processNextEvent
> Receiver:
> a WindowManager
> Instance Variables:
> windows = an OrderedCollection[1]
> activeController = nil
> interruptLock = false
> outstandingMetaOrDamage = false
> openInProgress = false
> eventQueue = an EventQueue
> baseProcess = a Process in Semaphore>>wait
> dontFilterEvents = false
> Temporaries:
> event = a RedButtonReleasedEvent
> Context PC = 9
>
> ----------------------------------------------------------------------
> optimized [] in [] in WindowManager>>newProcess
> Receiver:
> an UndefinedObject
> Temporaries:
> .super = a WindowManager
> Context PC = 13
>
> ----------------------------------------------------------------------
> BlockClosure>>on:do:
> Receiver:
> a BlockClosure
> Instance Variables:
> method = CompiledBlock [] in [] in WindowManager>>newProcess
> outerContext = nil
> copiedValues = a WindowManager
> Arguments:
> anExceptionSelector = TerminateException
> handlerBlock = BlockClosure [] in [] in WindowManager>>newProcess
> Context PC = 18
>
> ----------------------------------------------------------------------
> optimized [] in WindowManager>>newProcess
> Receiver:
> an UndefinedObject
> Temporaries:
> .super = a WindowManager
> Context PC = 15
>
> ----------------------------------------------------------------------
> BlockClosure>>on:do:
> Receiver:
> a BlockClosure
> Instance Variables:
> method = CompiledBlock [] in WindowManager>>newProcess
> outerContext = nil
> copiedValues = a WindowManager
> Arguments:
> anExceptionSelector = TerminateException
> handlerBlock = BlockClosure [] in [] in Process
> class>>forBlock:priority:
> Context PC = 18
>
> ----------------------------------------------------------------------
> optimized [] in Process class>>forBlock:priority:
> Receiver:
> an UndefinedObject
> Temporaries:
> .aBlock = BlockClosure [] in WindowManager>>newProcess
> Context PC = 9
>
> _______________________________________________
> vwnc mailing list
> [hidden email]
> http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
>
>

<p><b><span
style='font-size:9.0pt;font-family:"Arial","sans-serif";color:#5F5F5F'>Key Technology, Inc. Disclaimer Notice</span></b><span
style='font-size:9.0pt;font-family:"Arial","sans-serif";color:#5F5F5F'> - The
information and attachment(s) contained in this communication are intended for
the addressee only, and may be confidential and/or legally privileged. If you
have received this communication in error, please contact the sender
immediately, and delete this communication from any computer or network system.
Any interception, review, printing, copying, re-transmission, dissemination, or
other use of, or taking of any action upon this information by persons or
entities other than the intended recipient is strictly prohibited by law and
may subject them to criminal or civil liability. Key Technology,  Inc. is
not liable for the improper and/or incomplete transmission of the information
contained in this communication or for any delay in its receipt.</span>
_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

Gregory Bourassa-3

Re: [vwnc] Dealing with external DTD's in XML parser

In reply to this post by cdavidshaffer

David,

I looked a little closer at your example...maybe, instead of changing
the docs, you could modify the parser's value for systemID to look for
the DTD on your drive. That would be instead of trying to get the
parser to parse a string version of the DTD only.

There might still be the timing issue...does it respect the resolver you
gave it before parsing the whole doc?

Gregory Bourassa

C. David Shaffer wrote:

Steffen Märcker

Re: [vwnc] Dealing with external DTD's in XML parser

In reply to this post by cdavidshaffer

I am not sure whether this helps, but I had a similar question some time
ago and got the solution below. In my application this code works well in
terms of using a local DTD:

validateDocumentType: xmlFile
| dtd resolver parser |
dtd := 'cpn.dtd'.
resolver := [:publicID :systemID | publicID = '-//CPN//DTD CPNXML 1.0//EN'
ifTrue: [(ObjectMemory imageDirectory / dtd_1) asFilename readStream]
ifFalse: [self error: 'unsupported document type']].
(parser := XML.XMLParser new) handlers: XML.NullSAXDriver new;
entityResolver: (XML.PluggableEntityResolver withBlock: resolver).
[parser on: xmlFile; scanDocument]
on: XML.InvalidSignal
do:
[:ex |
dtd = 'cpn fixed.dtd'
ifTrue: [ex pass]
ifFalse: [dtd := 'cpn fixed.dtd'].
ex retry].
^true

Steffen

------- Weitergeleitete Nachricht -------
Von: "Michael Lucas-Smith" <[hidden email]>
An: "Steffen Märcker" <[hidden email]>
Kopie: vwnc <[hidden email]>
Betreff: Re: [vwnc] XMLParser - Referent inaccessible
Datum: Sun, 15 Feb 2009 19:25:40 +0100

Hi Steffen,

You'll want to change the entityResolver. There are several, but if you
want to be totally offline and completely ignore the DTD, you can simply
do:

(XMLParser on: '..test.xml' asFilename readStream)
validate: false;
entityResolver: (XML.PluggableEntityResolver withBlock:
[XML.ResolveEmptyResource]);
scanDocument;
root

See the comment on PluggableEntityResolver for more details on what it
can do.

Cheers,
Michael

Steffen Märcker wrote:

> Hi,
>
> I've got XML-files like the one attached. The interesting part is the
> DTD's system identifier, which links to an external DTD file. The
> following code fails with a 'Referent inaccessible' exception if the
> HTTP parcel is loaded, but no internet connection established.
>
> ((XMLParser on: '../test.xml' asFilename readStream)
> validate: false;
> scanDocument)
> root.
>
> Because the XML should not be validated, I do not expect the parser to
> actually trying to access the DTD file. If this is the specified
> behaviour, I wonder which is the best way to make an application work
> offline without modifying the above code which is part of the XML Object
> Marshaling framework?
>
> Have a nice weekend!
> Steffen
> ------------------------------------------------------------------------
>
> _______________________________________________
> vwnc mailing list
> [hidden email]
> http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

cdavidshaffer

[vwnc] Bug in XML parser -- test included (was Re: Dealing with external DTD's in XML parser)

Steffen Märcker wrote:

> I am not sure whether this helps, but I had a similar question some
> time ago and got the solution below. In my application this code works
> well in terms of using a local DTD:
>
> validateDocumentType: xmlFile
> | dtd resolver parser |
> dtd := 'cpn.dtd'.
> resolver := [:publicID :systemID | publicID = '-//CPN//DTD CPNXML
> 1.0//EN'
> ifTrue: [(ObjectMemory imageDirectory / dtd_1)
> asFilename readStream]
> ifFalse: [self error: 'unsupported document type']].
> (parser := XML.XMLParser new) handlers: XML.NullSAXDriver new;
> entityResolver: (XML.PluggableEntityResolver withBlock: resolver).
> [parser on: xmlFile; scanDocument]
> on: XML.InvalidSignal
> do:
> [:ex |
> dtd = 'cpn fixed.dtd'
> ifTrue: [ex pass]
> ifFalse: [dtd := 'cpn fixed.dtd'].
> ex retry].
> ^true

Thanks guys. I don't understand what your error handler is doing but it

doesn't solve my problem. Gregory's idea of rewriting the systemID is
OK, I guess, but I think there's a bug in VW's XML framework that we're
working around here. Attached is a sample which exhibits the bug.

David

<?xml version="1.0"?>

<st-source>
<time-stamp>From VisualWorksÂ® NonCommercial, 7.6 of March 3, 2008 on April 23, 2009 at 5:11:29 pm</time-stamp>

<class>
<name>XMLBroken</name>
<environment>Reg</environment>
<super>XProgramming.SUnit.TestCase</super>
<private>false</private>
<indexed-type>none</indexed-type>
<inst-vars></inst-vars>
<class-inst-vars></class-inst-vars>
<imports></imports>
<category></category>
<attributes>
<package>XMLBroken</package>
</attributes>
</class>

<methods>
<class-id>Reg.XMLBroken</class-id> <category>accessing</category>

<body package="XMLBroken" selector="sampleResponse">sampleResponse
^'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"><head><title>Simple Example</title><meta http-equiv="Content-Type" content="text/html;charset=utf-8; charset=utf-8"/></head><body><h1>This is an example</h1></body>'</body>

<body package="XMLBroken" selector="xhtml1StrictDtd">xhtml1StrictDtd
^'



<!ENTITY % HTMLlat1 PUBLIC
"-//W3C//ENTITIES Latin 1 for XHTML//EN"
"xhtml-lat1.ent">
%HTMLlat1;

<!ENTITY % HTMLsymbol PUBLIC
"-//W3C//ENTITIES Symbols for XHTML//EN"
"xhtml-symbol.ent">
%HTMLsymbol;

<!ENTITY % HTMLspecial PUBLIC
"-//W3C//ENTITIES Special for XHTML//EN"
"xhtml-special.ent">
%HTMLspecial;



<!ENTITY % ContentType "CDATA">


<!ENTITY % ContentTypes "CDATA">


<!ENTITY % Charset "CDATA">


<!ENTITY % Charsets "CDATA">


<!ENTITY % LanguageCode "NMTOKEN">


<!ENTITY % Character "CDATA">


<!ENTITY % Number "CDATA">


<!ENTITY % LinkTypes "CDATA">


<!ENTITY % MediaDesc "CDATA">


<!ENTITY % URI "CDATA">


<!ENTITY % UriList "CDATA">


<!ENTITY % Datetime "CDATA">


<!ENTITY % Script "CDATA">


<!ENTITY % StyleSheet "CDATA">


<!ENTITY % Text "CDATA">


<!ENTITY % Length "CDATA">


<!ENTITY % MultiLength "CDATA">


<!ENTITY % Pixels "CDATA">




<!ENTITY % Shape "(rect|circle|poly|default)">

<!ENTITY % Coords "CDATA">





<!ENTITY % coreattrs
"id ID #IMPLIED
class CDATA #IMPLIED
style %StyleSheet; #IMPLIED
title %Text; #IMPLIED"
>


<!ENTITY % i18n
"lang %LanguageCode; #IMPLIED
xml:lang %LanguageCode; #IMPLIED
dir (ltr|rtl) #IMPLIED"
>


<!ENTITY % events
"onclick %Script; #IMPLIED
ondblclick %Script; #IMPLIED
onmousedown %Script; #IMPLIED
onmouseup %Script; #IMPLIED
onmouseover %Script; #IMPLIED
onmousemove %Script; #IMPLIED
onmouseout %Script; #IMPLIED
onkeypress %Script; #IMPLIED
onkeydown %Script; #IMPLIED
onkeyup %Script; #IMPLIED"
>


<!ENTITY % focus
"accesskey %Character; #IMPLIED
tabindex %Number; #IMPLIED
onfocus %Script; #IMPLIED
onblur %Script; #IMPLIED"
>

<!ENTITY % attrs "%coreattrs; %i18n; %events;">



<!ENTITY % special.pre
"br | span | bdo | map">

<!ENTITY % special
"%special.pre; | object | img ">

<!ENTITY % fontstyle "tt | i | b | big | small ">

<!ENTITY % phrase "em | strong | dfn | code | q |
samp | kbd | var | cite | abbr | acronym | sub | sup ">

<!ENTITY % inline.forms "input | select | textarea | label | button">


<!ENTITY % misc.inline "ins | del | script">


<!ENTITY % misc "noscript | %misc.inline;">

<!ENTITY % inline "a | %special; | %fontstyle; | %phrase; | %inline.forms;">


<!ENTITY % Inline "(#PCDATA | %inline; | %misc.inline;)*">



<!ENTITY % heading "h1|h2|h3|h4|h5|h6">
<!ENTITY % lists "ul | ol | dl">
<!ENTITY % blocktext "pre | hr | blockquote | address">

<!ENTITY % block
"p | %heading; | div | %lists; | %blocktext; | fieldset | table">

<!ENTITY % Block "(%block; | form | %misc;)*">


<!ENTITY % Flow "(#PCDATA | %block; | form | %inline; | %misc;)*">





<!ENTITY % a.content
"(#PCDATA | %special; | %fontstyle; | %phrase; | %inline.forms; | %misc.inline;)*">



<!ENTITY % pre.content
"(#PCDATA | a | %fontstyle; | %phrase; | %special.pre; | %misc.inline;
| %inline.forms;)*">



<!ENTITY % form.content "(%block; | %misc;)*">



<!ENTITY % button.content
"(#PCDATA | p | %heading; | div | %lists; | %blocktext; |
table | %special; | %fontstyle; | %phrase; | %misc;)*">





<!ELEMENT html (head, body)>
<!ATTLIST html
%i18n;
id ID #IMPLIED
xmlns %URI; #FIXED ''http://www.w3.org/1999/xhtml''
>



<!ENTITY % head.misc "(script|style|meta|link|object)*">



<!ELEMENT head (%head.misc;,
((title, %head.misc;, (base, %head.misc;)?) |
(base, %head.misc;, (title, %head.misc;))))>

<!ATTLIST head
%i18n;
id ID #IMPLIED
profile %URI; #IMPLIED
>


<!ELEMENT title (#PCDATA)>
<!ATTLIST title
%i18n;
id ID #IMPLIED
>



<!ELEMENT base EMPTY>
<!ATTLIST base
href %URI; #REQUIRED
id ID #IMPLIED
>


<!ELEMENT meta EMPTY>
<!ATTLIST meta
%i18n;
id ID #IMPLIED
http-equiv CDATA #IMPLIED
name CDATA #IMPLIED
content CDATA #REQUIRED
scheme CDATA #IMPLIED
>



<!ELEMENT link EMPTY>
<!ATTLIST link
%attrs;
charset %Charset; #IMPLIED
href %URI; #IMPLIED
hreflang %LanguageCode; #IMPLIED
type %ContentType; #IMPLIED
rel %LinkTypes; #IMPLIED
rev %LinkTypes; #IMPLIED
media %MediaDesc; #IMPLIED
>


<!ELEMENT style (#PCDATA)>
<!ATTLIST style
%i18n;
id ID #IMPLIED
type %ContentType; #REQUIRED
media %MediaDesc; #IMPLIED
title %Text; #IMPLIED
xml:space (preserve) #FIXED ''preserve''
>


<!ELEMENT script (#PCDATA)>
<!ATTLIST script
id ID #IMPLIED
charset %Charset; #IMPLIED
type %ContentType; #REQUIRED
src %URI; #IMPLIED
defer (defer) #IMPLIED
xml:space (preserve) #FIXED ''preserve''
>



<!ELEMENT noscript %Block;>
<!ATTLIST noscript
%attrs;
>



<!ELEMENT body %Block;>
<!ATTLIST body
%attrs;
onload %Script; #IMPLIED
onunload %Script; #IMPLIED
>

<!ELEMENT div %Flow;> 
<!ATTLIST div
%attrs;
>



<!ELEMENT p %Inline;>
<!ATTLIST p
%attrs;
>





<!ELEMENT h1 %Inline;>
<!ATTLIST h1
%attrs;
>

<!ELEMENT h2 %Inline;>
<!ATTLIST h2
%attrs;
>

<!ELEMENT h3 %Inline;>
<!ATTLIST h3
%attrs;
>

<!ELEMENT h4 %Inline;>
<!ATTLIST h4
%attrs;
>

<!ELEMENT h5 %Inline;>
<!ATTLIST h5
%attrs;
>

<!ELEMENT h6 %Inline;>
<!ATTLIST h6
%attrs;
>





<!ELEMENT ul (li)+>
<!ATTLIST ul
%attrs;
>



<!ELEMENT ol (li)+>
<!ATTLIST ol
%attrs;
>



<!ELEMENT li %Flow;>
<!ATTLIST li
%attrs;
>



<!ELEMENT dl (dt|dd)+>
<!ATTLIST dl
%attrs;
>

<!ELEMENT dt %Inline;>
<!ATTLIST dt
%attrs;
>

<!ELEMENT dd %Flow;>
<!ATTLIST dd
%attrs;
>





<!ELEMENT address %Inline;>
<!ATTLIST address
%attrs;
>



<!ELEMENT hr EMPTY>
<!ATTLIST hr
%attrs;
>





<!ELEMENT pre %pre.content;>
<!ATTLIST pre
%attrs;
xml:space (preserve) #FIXED ''preserve''
>



<!ELEMENT blockquote %Block;>
<!ATTLIST blockquote
%attrs;
cite %URI; #IMPLIED
>




<!ELEMENT ins %Flow;>
<!ATTLIST ins
%attrs;
cite %URI; #IMPLIED
datetime %Datetime; #IMPLIED
>

<!ELEMENT del %Flow;>
<!ATTLIST del
%attrs;
cite %URI; #IMPLIED
datetime %Datetime; #IMPLIED
>





<!ELEMENT a %a.content;>
<!ATTLIST a
%attrs;
%focus;
charset %Charset; #IMPLIED
type %ContentType; #IMPLIED
name NMTOKEN #IMPLIED
href %URI; #IMPLIED
hreflang %LanguageCode; #IMPLIED
rel %LinkTypes; #IMPLIED
rev %LinkTypes; #IMPLIED
shape %Shape; "rect"
coords %Coords; #IMPLIED
>



<!ELEMENT span %Inline;> 
<!ATTLIST span
%attrs;
>

<!ELEMENT bdo %Inline;> 
<!ATTLIST bdo
%coreattrs;
%events;
lang %LanguageCode; #IMPLIED
xml:lang %LanguageCode; #IMPLIED
dir (ltr|rtl) #REQUIRED
>

<!ELEMENT br EMPTY> 
<!ATTLIST br
%coreattrs;
>

<!ELEMENT em %Inline;> 
<!ATTLIST em %attrs;>

<!ELEMENT strong %Inline;> 
<!ATTLIST strong %attrs;>

<!ELEMENT dfn %Inline;> 
<!ATTLIST dfn %attrs;>

<!ELEMENT code %Inline;> 
<!ATTLIST code %attrs;>

<!ELEMENT samp %Inline;> 
<!ATTLIST samp %attrs;>

<!ELEMENT kbd %Inline;> 
<!ATTLIST kbd %attrs;>

<!ELEMENT var %Inline;> 
<!ATTLIST var %attrs;>

<!ELEMENT cite %Inline;> 
<!ATTLIST cite %attrs;>

<!ELEMENT abbr %Inline;> 
<!ATTLIST abbr %attrs;>

<!ELEMENT acronym %Inline;> 
<!ATTLIST acronym %attrs;>

<!ELEMENT q %Inline;> 
<!ATTLIST q
%attrs;
cite %URI; #IMPLIED
>

<!ELEMENT sub %Inline;> 
<!ATTLIST sub %attrs;>

<!ELEMENT sup %Inline;> 
<!ATTLIST sup %attrs;>

<!ELEMENT tt %Inline;> 
<!ATTLIST tt %attrs;>

<!ELEMENT i %Inline;> 
<!ATTLIST i %attrs;>

<!ELEMENT b %Inline;> 
<!ATTLIST b %attrs;>

<!ELEMENT big %Inline;> 
<!ATTLIST big %attrs;>

<!ELEMENT small %Inline;> 
<!ATTLIST small %attrs;>




<!ELEMENT object (#PCDATA | param | %block; | form | %inline; | %misc;)*>
<!ATTLIST object
%attrs;
declare (declare) #IMPLIED
classid %URI; #IMPLIED
codebase %URI; #IMPLIED
data %URI; #IMPLIED
type %ContentType; #IMPLIED
codetype %ContentType; #IMPLIED
archive %UriList; #IMPLIED
standby %Text; #IMPLIED
height %Length; #IMPLIED
width %Length; #IMPLIED
usemap %URI; #IMPLIED
name NMTOKEN #IMPLIED
tabindex %Number; #IMPLIED
>


<!ELEMENT param EMPTY>
<!ATTLIST param
id ID #IMPLIED
name CDATA #IMPLIED
value CDATA #IMPLIED
valuetype (data|ref|object) "data"
type %ContentType; #IMPLIED
>





<!ELEMENT img EMPTY>
<!ATTLIST img
%attrs;
src %URI; #REQUIRED
alt %Text; #REQUIRED
longdesc %URI; #IMPLIED
height %Length; #IMPLIED
width %Length; #IMPLIED
usemap %URI; #IMPLIED
ismap (ismap) #IMPLIED
>







<!ELEMENT map ((%block; | form | %misc;)+ | area+)>
<!ATTLIST map
%i18n;
%events;
id ID #REQUIRED
class CDATA #IMPLIED
style %StyleSheet; #IMPLIED
title %Text; #IMPLIED
name NMTOKEN #IMPLIED
>

<!ELEMENT area EMPTY>
<!ATTLIST area
%attrs;
%focus;
shape %Shape; "rect"
coords %Coords; #IMPLIED
href %URI; #IMPLIED
nohref (nohref) #IMPLIED
alt %Text; #REQUIRED
>


<!ELEMENT form %form.content;> 

<!ATTLIST form
%attrs;
action %URI; #REQUIRED
method (get|post) "get"
enctype %ContentType; "application/x-www-form-urlencoded"
onsubmit %Script; #IMPLIED
onreset %Script; #IMPLIED
accept %ContentTypes; #IMPLIED
accept-charset %Charsets; #IMPLIED
>


<!ELEMENT label %Inline;>
<!ATTLIST label
%attrs;
for IDREF #IMPLIED
accesskey %Character; #IMPLIED
onfocus %Script; #IMPLIED
onblur %Script; #IMPLIED
>

<!ENTITY % InputType
"(text | password | checkbox |
radio | submit | reset |
file | hidden | image | button)"
>



<!ELEMENT input EMPTY> 
<!ATTLIST input
%attrs;
%focus;
type %InputType; "text"
name CDATA #IMPLIED
value CDATA #IMPLIED
checked (checked) #IMPLIED
disabled (disabled) #IMPLIED
readonly (readonly) #IMPLIED
size CDATA #IMPLIED
maxlength %Number; #IMPLIED
src %URI; #IMPLIED
alt CDATA #IMPLIED
usemap %URI; #IMPLIED
onselect %Script; #IMPLIED
onchange %Script; #IMPLIED
accept %ContentTypes; #IMPLIED
>

<!ELEMENT select (optgroup|option)+> 
<!ATTLIST select
%attrs;
name CDATA #IMPLIED
size %Number; #IMPLIED
multiple (multiple) #IMPLIED
disabled (disabled) #IMPLIED
tabindex %Number; #IMPLIED
onfocus %Script; #IMPLIED
onblur %Script; #IMPLIED
onchange %Script; #IMPLIED
>

<!ELEMENT optgroup (option)+> 
<!ATTLIST optgroup
%attrs;
disabled (disabled) #IMPLIED
label %Text; #REQUIRED
>

<!ELEMENT option (#PCDATA)> 
<!ATTLIST option
%attrs;
selected (selected) #IMPLIED
disabled (disabled) #IMPLIED
label %Text; #IMPLIED
value CDATA #IMPLIED
>

<!ELEMENT textarea (#PCDATA)> 
<!ATTLIST textarea
%attrs;
%focus;
name CDATA #IMPLIED
rows %Number; #REQUIRED
cols %Number; #REQUIRED
disabled (disabled) #IMPLIED
readonly (readonly) #IMPLIED
onselect %Script; #IMPLIED
onchange %Script; #IMPLIED
>


<!ELEMENT fieldset (#PCDATA | legend | %block; | form | %inline; | %misc;)*>
<!ATTLIST fieldset
%attrs;
>

<!ELEMENT legend %Inline;> 
<!ATTLIST legend
%attrs;
accesskey %Character; #IMPLIED
>


<!ELEMENT button %button.content;> 
<!ATTLIST button
%attrs;
%focus;
name CDATA #IMPLIED
value CDATA #IMPLIED
type (button|submit|reset) "submit"
disabled (disabled) #IMPLIED
>






<!ENTITY % TFrame "(void|above|below|hsides|lhs|rhs|vsides|box|border)">



<!ENTITY % TRules "(none | groups | rows | cols | all)">


<!ENTITY % cellhalign
"align (left|center|right|justify|char) #IMPLIED
char %Character; #IMPLIED
charoff %Length; #IMPLIED"
>


<!ENTITY % cellvalign
"valign (top|middle|bottom|baseline) #IMPLIED"
>

<!ELEMENT table
(caption?, (col*|colgroup*), thead?, tfoot?, (tbody+|tr+))>
<!ELEMENT caption %Inline;>
<!ELEMENT thead (tr)+>
<!ELEMENT tfoot (tr)+>
<!ELEMENT tbody (tr)+>
<!ELEMENT colgroup (col)*>
<!ELEMENT col EMPTY>
<!ELEMENT tr (th|td)+>
<!ELEMENT th %Flow;>
<!ELEMENT td %Flow;>

<!ATTLIST table
%attrs;
summary %Text; #IMPLIED
width %Length; #IMPLIED
border %Pixels; #IMPLIED
frame %TFrame; #IMPLIED
rules %TRules; #IMPLIED
cellspacing %Length; #IMPLIED
cellpadding %Length; #IMPLIED
>

<!ATTLIST caption
%attrs;
>


<!ATTLIST colgroup
%attrs;
span %Number; "1"
width %MultiLength; #IMPLIED
%cellhalign;
%cellvalign;
>


<!ATTLIST col
%attrs;
span %Number; "1"
width %MultiLength; #IMPLIED
%cellhalign;
%cellvalign;
>


<!ATTLIST thead
%attrs;
%cellhalign;
%cellvalign;
>

<!ATTLIST tfoot
%attrs;
%cellhalign;
%cellvalign;
>

<!ATTLIST tbody
%attrs;
%cellhalign;
%cellvalign;
>

<!ATTLIST tr
%attrs;
%cellhalign;
%cellvalign;
>


<!ENTITY % Scope "(row|col|rowgroup|colgroup)">



<!ATTLIST th
%attrs;
abbr %Text; #IMPLIED
axis CDATA #IMPLIED
headers IDREFS #IMPLIED
scope %Scope; #IMPLIED
rowspan %Number; "1"
colspan %Number; "1"
%cellhalign;
%cellvalign;
>

<!ATTLIST td
%attrs;
abbr %Text; #IMPLIED
axis CDATA #IMPLIED
headers IDREFS #IMPLIED
scope %Scope; #IMPLIED
rowspan %Number; "1"
colspan %Number; "1"
%cellhalign;
%cellvalign;
>
'</body>
</methods>

<methods>
<class-id>Reg.XMLBroken</class-id> <category>running</category>

<body package="XMLBroken" selector="testParse">testParse
| resolver parser |
resolver := [:publicID :systemID | publicID = '-//W3C//DTD XHTML 1.0 Strict//EN'
ifTrue: [self xhtml1StrictDtd readStream]
ifFalse: [XML.ResolveEmptyResource]].
(parser := XML.XMLParser new) handlers: XML.NullSAXDriver new; entityResolver: (XML.PluggableEntityResolver withBlock: resolver).
parser on: self sampleResponse readStream; scanDocument</body>
</methods>

</st-source>

_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

cdavidshaffer

Re: [vwnc] Bug in XML parser -- test included (was Re: Dealing with external DTD's in XML parser)

OK, I've attached a (fixed) version of my test case and a fix for the
bug (missing send of asURI). I don't know if this resolves the problem
altogether but it causes the test to run without error.

David

<?xml version="1.0"?>

<st-source>
<time-stamp>From VisualWorksÂ® NonCommercial, 7.6 of March 3, 2008 on April 23, 2009 at 11:44:06 pm</time-stamp>

<class>
<name>XMLBroken</name>
<environment>Reg</environment>
<super>XProgramming.SUnit.TestCase</super>
<private>false</private>
<indexed-type>none</indexed-type>
<inst-vars></inst-vars>
<class-inst-vars></class-inst-vars>
<imports></imports>
<category></category>
<attributes>
<package>XMLBroken</package>
</attributes>
</class>

<methods>
<class-id>Reg.XMLBroken</class-id> <category>accessing</category>

<body package="XMLBroken" selector="sampleResponse">sampleResponse
^'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"><head><title>Simple Example</title><meta http-equiv="Content-Type" content="text/html;charset=utf-8; charset=utf-8"/></head><body><h1>This is an example</h1></body></html>'</body>

<body package="XMLBroken" selector="xhtml1StrictDtd">xhtml1StrictDtd
^'



<!ENTITY % HTMLlat1 PUBLIC
"-//W3C//ENTITIES Latin 1 for XHTML//EN"
"xhtml-lat1.ent">
%HTMLlat1;

<!ENTITY % HTMLsymbol PUBLIC
"-//W3C//ENTITIES Symbols for XHTML//EN"
"xhtml-symbol.ent">
%HTMLsymbol;

<!ENTITY % HTMLspecial PUBLIC
"-//W3C//ENTITIES Special for XHTML//EN"
"xhtml-special.ent">
%HTMLspecial;



<!ENTITY % ContentType "CDATA">


<!ENTITY % ContentTypes "CDATA">


<!ENTITY % Charset "CDATA">


<!ENTITY % Charsets "CDATA">


<!ENTITY % LanguageCode "NMTOKEN">


<!ENTITY % Character "CDATA">


<!ENTITY % Number "CDATA">


<!ENTITY % LinkTypes "CDATA">


<!ENTITY % MediaDesc "CDATA">


<!ENTITY % URI "CDATA">


<!ENTITY % UriList "CDATA">


<!ENTITY % Datetime "CDATA">


<!ENTITY % Script "CDATA">


<!ENTITY % StyleSheet "CDATA">


<!ENTITY % Text "CDATA">


<!ENTITY % Length "CDATA">


<!ENTITY % MultiLength "CDATA">


<!ENTITY % Pixels "CDATA">




<!ENTITY % Shape "(rect|circle|poly|default)">

<!ENTITY % Coords "CDATA">





<!ENTITY % coreattrs
"id ID #IMPLIED
class CDATA #IMPLIED
style %StyleSheet; #IMPLIED
title %Text; #IMPLIED"
>


<!ENTITY % i18n
"lang %LanguageCode; #IMPLIED
xml:lang %LanguageCode; #IMPLIED
dir (ltr|rtl) #IMPLIED"
>


<!ENTITY % events
"onclick %Script; #IMPLIED
ondblclick %Script; #IMPLIED
onmousedown %Script; #IMPLIED
onmouseup %Script; #IMPLIED
onmouseover %Script; #IMPLIED
onmousemove %Script; #IMPLIED
onmouseout %Script; #IMPLIED
onkeypress %Script; #IMPLIED
onkeydown %Script; #IMPLIED
onkeyup %Script; #IMPLIED"
>


<!ENTITY % focus
"accesskey %Character; #IMPLIED
tabindex %Number; #IMPLIED
onfocus %Script; #IMPLIED
onblur %Script; #IMPLIED"
>

<!ENTITY % attrs "%coreattrs; %i18n; %events;">



<!ENTITY % special.pre
"br | span | bdo | map">

<!ENTITY % special
"%special.pre; | object | img ">

<!ENTITY % fontstyle "tt | i | b | big | small ">

<!ENTITY % phrase "em | strong | dfn | code | q |
samp | kbd | var | cite | abbr | acronym | sub | sup ">

<!ENTITY % inline.forms "input | select | textarea | label | button">


<!ENTITY % misc.inline "ins | del | script">


<!ENTITY % misc "noscript | %misc.inline;">

<!ENTITY % inline "a | %special; | %fontstyle; | %phrase; | %inline.forms;">


<!ENTITY % Inline "(#PCDATA | %inline; | %misc.inline;)*">



<!ENTITY % heading "h1|h2|h3|h4|h5|h6">
<!ENTITY % lists "ul | ol | dl">
<!ENTITY % blocktext "pre | hr | blockquote | address">

<!ENTITY % block
"p | %heading; | div | %lists; | %blocktext; | fieldset | table">

<!ENTITY % Block "(%block; | form | %misc;)*">


<!ENTITY % Flow "(#PCDATA | %block; | form | %inline; | %misc;)*">





<!ENTITY % a.content
"(#PCDATA | %special; | %fontstyle; | %phrase; | %inline.forms; | %misc.inline;)*">



<!ENTITY % pre.content
"(#PCDATA | a | %fontstyle; | %phrase; | %special.pre; | %misc.inline;
| %inline.forms;)*">



<!ENTITY % form.content "(%block; | %misc;)*">



<!ENTITY % button.content
"(#PCDATA | p | %heading; | div | %lists; | %blocktext; |
table | %special; | %fontstyle; | %phrase; | %misc;)*">





<!ELEMENT html (head, body)>
<!ATTLIST html
%i18n;
id ID #IMPLIED
xmlns %URI; #FIXED ''http://www.w3.org/1999/xhtml''
>



<!ENTITY % head.misc "(script|style|meta|link|object)*">



<!ELEMENT head (%head.misc;,
((title, %head.misc;, (base, %head.misc;)?) |
(base, %head.misc;, (title, %head.misc;))))>

<!ATTLIST head
%i18n;
id ID #IMPLIED
profile %URI; #IMPLIED
>


<!ELEMENT title (#PCDATA)>
<!ATTLIST title
%i18n;
id ID #IMPLIED
>



<!ELEMENT base EMPTY>
<!ATTLIST base
href %URI; #REQUIRED
id ID #IMPLIED
>


<!ELEMENT meta EMPTY>
<!ATTLIST meta
%i18n;
id ID #IMPLIED
http-equiv CDATA #IMPLIED
name CDATA #IMPLIED
content CDATA #REQUIRED
scheme CDATA #IMPLIED
>



<!ELEMENT link EMPTY>
<!ATTLIST link
%attrs;
charset %Charset; #IMPLIED
href %URI; #IMPLIED
hreflang %LanguageCode; #IMPLIED
type %ContentType; #IMPLIED
rel %LinkTypes; #IMPLIED
rev %LinkTypes; #IMPLIED
media %MediaDesc; #IMPLIED
>


<!ELEMENT style (#PCDATA)>
<!ATTLIST style
%i18n;
id ID #IMPLIED
type %ContentType; #REQUIRED
media %MediaDesc; #IMPLIED
title %Text; #IMPLIED
xml:space (preserve) #FIXED ''preserve''
>


<!ELEMENT script (#PCDATA)>
<!ATTLIST script
id ID #IMPLIED
charset %Charset; #IMPLIED
type %ContentType; #REQUIRED
src %URI; #IMPLIED
defer (defer) #IMPLIED
xml:space (preserve) #FIXED ''preserve''
>



<!ELEMENT noscript %Block;>
<!ATTLIST noscript
%attrs;
>



<!ELEMENT body %Block;>
<!ATTLIST body
%attrs;
onload %Script; #IMPLIED
onunload %Script; #IMPLIED
>

<!ELEMENT div %Flow;> 
<!ATTLIST div
%attrs;
>



<!ELEMENT p %Inline;>
<!ATTLIST p
%attrs;
>





<!ELEMENT h1 %Inline;>
<!ATTLIST h1
%attrs;
>

<!ELEMENT h2 %Inline;>
<!ATTLIST h2
%attrs;
>

<!ELEMENT h3 %Inline;>
<!ATTLIST h3
%attrs;
>

<!ELEMENT h4 %Inline;>
<!ATTLIST h4
%attrs;
>

<!ELEMENT h5 %Inline;>
<!ATTLIST h5
%attrs;
>

<!ELEMENT h6 %Inline;>
<!ATTLIST h6
%attrs;
>





<!ELEMENT ul (li)+>
<!ATTLIST ul
%attrs;
>



<!ELEMENT ol (li)+>
<!ATTLIST ol
%attrs;
>



<!ELEMENT li %Flow;>
<!ATTLIST li
%attrs;
>



<!ELEMENT dl (dt|dd)+>
<!ATTLIST dl
%attrs;
>

<!ELEMENT dt %Inline;>
<!ATTLIST dt
%attrs;
>

<!ELEMENT dd %Flow;>
<!ATTLIST dd
%attrs;
>





<!ELEMENT address %Inline;>
<!ATTLIST address
%attrs;
>



<!ELEMENT hr EMPTY>
<!ATTLIST hr
%attrs;
>





<!ELEMENT pre %pre.content;>
<!ATTLIST pre
%attrs;
xml:space (preserve) #FIXED ''preserve''
>



<!ELEMENT blockquote %Block;>
<!ATTLIST blockquote
%attrs;
cite %URI; #IMPLIED
>




<!ELEMENT ins %Flow;>
<!ATTLIST ins
%attrs;
cite %URI; #IMPLIED
datetime %Datetime; #IMPLIED
>

<!ELEMENT del %Flow;>
<!ATTLIST del
%attrs;
cite %URI; #IMPLIED
datetime %Datetime; #IMPLIED
>





<!ELEMENT a %a.content;>
<!ATTLIST a
%attrs;
%focus;
charset %Charset; #IMPLIED
type %ContentType; #IMPLIED
name NMTOKEN #IMPLIED
href %URI; #IMPLIED
hreflang %LanguageCode; #IMPLIED
rel %LinkTypes; #IMPLIED
rev %LinkTypes; #IMPLIED
shape %Shape; "rect"
coords %Coords; #IMPLIED
>



<!ELEMENT span %Inline;> 
<!ATTLIST span
%attrs;
>

<!ELEMENT bdo %Inline;> 
<!ATTLIST bdo
%coreattrs;
%events;
lang %LanguageCode; #IMPLIED
xml:lang %LanguageCode; #IMPLIED
dir (ltr|rtl) #REQUIRED
>

<!ELEMENT br EMPTY> 
<!ATTLIST br
%coreattrs;
>

<!ELEMENT em %Inline;> 
<!ATTLIST em %attrs;>

<!ELEMENT strong %Inline;> 
<!ATTLIST strong %attrs;>

<!ELEMENT dfn %Inline;> 
<!ATTLIST dfn %attrs;>

<!ELEMENT code %Inline;> 
<!ATTLIST code %attrs;>

<!ELEMENT samp %Inline;> 
<!ATTLIST samp %attrs;>

<!ELEMENT kbd %Inline;> 
<!ATTLIST kbd %attrs;>

<!ELEMENT var %Inline;> 
<!ATTLIST var %attrs;>

<!ELEMENT cite %Inline;> 
<!ATTLIST cite %attrs;>

<!ELEMENT abbr %Inline;> 
<!ATTLIST abbr %attrs;>

<!ELEMENT acronym %Inline;> 
<!ATTLIST acronym %attrs;>

<!ELEMENT q %Inline;> 
<!ATTLIST q
%attrs;
cite %URI; #IMPLIED
>

<!ELEMENT sub %Inline;> 
<!ATTLIST sub %attrs;>

<!ELEMENT sup %Inline;> 
<!ATTLIST sup %attrs;>

<!ELEMENT tt %Inline;> 
<!ATTLIST tt %attrs;>

<!ELEMENT i %Inline;> 
<!ATTLIST i %attrs;>

<!ELEMENT b %Inline;> 
<!ATTLIST b %attrs;>

<!ELEMENT big %Inline;> 
<!ATTLIST big %attrs;>

<!ELEMENT small %Inline;> 
<!ATTLIST small %attrs;>




<!ELEMENT object (#PCDATA | param | %block; | form | %inline; | %misc;)*>
<!ATTLIST object
%attrs;
declare (declare) #IMPLIED
classid %URI; #IMPLIED
codebase %URI; #IMPLIED
data %URI; #IMPLIED
type %ContentType; #IMPLIED
codetype %ContentType; #IMPLIED
archive %UriList; #IMPLIED
standby %Text; #IMPLIED
height %Length; #IMPLIED
width %Length; #IMPLIED
usemap %URI; #IMPLIED
name NMTOKEN #IMPLIED
tabindex %Number; #IMPLIED
>


<!ELEMENT param EMPTY>
<!ATTLIST param
id ID #IMPLIED
name CDATA #IMPLIED
value CDATA #IMPLIED
valuetype (data|ref|object) "data"
type %ContentType; #IMPLIED
>





<!ELEMENT img EMPTY>
<!ATTLIST img
%attrs;
src %URI; #REQUIRED
alt %Text; #REQUIRED
longdesc %URI; #IMPLIED
height %Length; #IMPLIED
width %Length; #IMPLIED
usemap %URI; #IMPLIED
ismap (ismap) #IMPLIED
>







<!ELEMENT map ((%block; | form | %misc;)+ | area+)>
<!ATTLIST map
%i18n;
%events;
id ID #REQUIRED
class CDATA #IMPLIED
style %StyleSheet; #IMPLIED
title %Text; #IMPLIED
name NMTOKEN #IMPLIED
>

<!ELEMENT area EMPTY>
<!ATTLIST area
%attrs;
%focus;
shape %Shape; "rect"
coords %Coords; #IMPLIED
href %URI; #IMPLIED
nohref (nohref) #IMPLIED
alt %Text; #REQUIRED
>


<!ELEMENT form %form.content;> 

<!ATTLIST form
%attrs;
action %URI; #REQUIRED
method (get|post) "get"
enctype %ContentType; "application/x-www-form-urlencoded"
onsubmit %Script; #IMPLIED
onreset %Script; #IMPLIED
accept %ContentTypes; #IMPLIED
accept-charset %Charsets; #IMPLIED
>


<!ELEMENT label %Inline;>
<!ATTLIST label
%attrs;
for IDREF #IMPLIED
accesskey %Character; #IMPLIED
onfocus %Script; #IMPLIED
onblur %Script; #IMPLIED
>

<!ENTITY % InputType
"(text | password | checkbox |
radio | submit | reset |
file | hidden | image | button)"
>



<!ELEMENT input EMPTY> 
<!ATTLIST input
%attrs;
%focus;
type %InputType; "text"
name CDATA #IMPLIED
value CDATA #IMPLIED
checked (checked) #IMPLIED
disabled (disabled) #IMPLIED
readonly (readonly) #IMPLIED
size CDATA #IMPLIED
maxlength %Number; #IMPLIED
src %URI; #IMPLIED
alt CDATA #IMPLIED
usemap %URI; #IMPLIED
onselect %Script; #IMPLIED
onchange %Script; #IMPLIED
accept %ContentTypes; #IMPLIED
>

<!ELEMENT select (optgroup|option)+> 
<!ATTLIST select
%attrs;
name CDATA #IMPLIED
size %Number; #IMPLIED
multiple (multiple) #IMPLIED
disabled (disabled) #IMPLIED
tabindex %Number; #IMPLIED
onfocus %Script; #IMPLIED
onblur %Script; #IMPLIED
onchange %Script; #IMPLIED
>

<!ELEMENT optgroup (option)+> 
<!ATTLIST optgroup
%attrs;
disabled (disabled) #IMPLIED
label %Text; #REQUIRED
>

<!ELEMENT option (#PCDATA)> 
<!ATTLIST option
%attrs;
selected (selected) #IMPLIED
disabled (disabled) #IMPLIED
label %Text; #IMPLIED
value CDATA #IMPLIED
>

<!ELEMENT textarea (#PCDATA)> 
<!ATTLIST textarea
%attrs;
%focus;
name CDATA #IMPLIED
rows %Number; #REQUIRED
cols %Number; #REQUIRED
disabled (disabled) #IMPLIED
readonly (readonly) #IMPLIED
onselect %Script; #IMPLIED
onchange %Script; #IMPLIED
>


<!ELEMENT fieldset (#PCDATA | legend | %block; | form | %inline; | %misc;)*>
<!ATTLIST fieldset
%attrs;
>

<!ELEMENT legend %Inline;> 
<!ATTLIST legend
%attrs;
accesskey %Character; #IMPLIED
>


<!ELEMENT button %button.content;> 
<!ATTLIST button
%attrs;
%focus;
name CDATA #IMPLIED
value CDATA #IMPLIED
type (button|submit|reset) "submit"
disabled (disabled) #IMPLIED
>






<!ENTITY % TFrame "(void|above|below|hsides|lhs|rhs|vsides|box|border)">



<!ENTITY % TRules "(none | groups | rows | cols | all)">


<!ENTITY % cellhalign
"align (left|center|right|justify|char) #IMPLIED
char %Character; #IMPLIED
charoff %Length; #IMPLIED"
>


<!ENTITY % cellvalign
"valign (top|middle|bottom|baseline) #IMPLIED"
>

<!ELEMENT table
(caption?, (col*|colgroup*), thead?, tfoot?, (tbody+|tr+))>
<!ELEMENT caption %Inline;>
<!ELEMENT thead (tr)+>
<!ELEMENT tfoot (tr)+>
<!ELEMENT tbody (tr)+>
<!ELEMENT colgroup (col)*>
<!ELEMENT col EMPTY>
<!ELEMENT tr (th|td)+>
<!ELEMENT th %Flow;>
<!ELEMENT td %Flow;>

<!ATTLIST table
%attrs;
summary %Text; #IMPLIED
width %Length; #IMPLIED
border %Pixels; #IMPLIED
frame %TFrame; #IMPLIED
rules %TRules; #IMPLIED
cellspacing %Length; #IMPLIED
cellpadding %Length; #IMPLIED
>

<!ATTLIST caption
%attrs;
>


<!ATTLIST colgroup
%attrs;
span %Number; "1"
width %MultiLength; #IMPLIED
%cellhalign;
%cellvalign;
>


<!ATTLIST col
%attrs;
span %Number; "1"
width %MultiLength; #IMPLIED
%cellhalign;
%cellvalign;
>


<!ATTLIST thead
%attrs;
%cellhalign;
%cellvalign;
>

<!ATTLIST tfoot
%attrs;
%cellhalign;
%cellvalign;
>

<!ATTLIST tbody
%attrs;
%cellhalign;
%cellvalign;
>

<!ATTLIST tr
%attrs;
%cellhalign;
%cellvalign;
>


<!ENTITY % Scope "(row|col|rowgroup|colgroup)">



<!ATTLIST th
%attrs;
abbr %Text; #IMPLIED
axis CDATA #IMPLIED
headers IDREFS #IMPLIED
scope %Scope; #IMPLIED
rowspan %Number; "1"
colspan %Number; "1"
%cellhalign;
%cellvalign;
>

<!ATTLIST td
%attrs;
abbr %Text; #IMPLIED
axis CDATA #IMPLIED
headers IDREFS #IMPLIED
scope %Scope; #IMPLIED
rowspan %Number; "1"
colspan %Number; "1"
%cellhalign;
%cellvalign;
>
'</body>
</methods>

<methods>
<class-id>Reg.XMLBroken</class-id> <category>running</category>

<body package="XMLBroken" selector="testParse">testParse
| resolver parser |
resolver := [:publicID :systemID | publicID = '-//W3C//DTD XHTML 1.0 Strict//EN'
ifTrue: [self xhtml1StrictDtd readStream]
ifFalse: [XML.ResolveEmptyResource]].
(parser := XML.XMLParser new) handlers: XML.NullSAXDriver new; entityResolver: (XML.PluggableEntityResolver withBlock: resolver).
parser on: self sampleResponse readStream; scanDocument</body>
</methods>

</st-source>

<?xml version="1.0"?>

<st-source>
<time-stamp>From VisualWorksÂ® NonCommercial, 7.6 of March 3, 2008 on April 23, 2009 at 11:44:35 pm</time-stamp>

<methods>
<class-id>XML.XMLParser</class-id> <category>DTD processing</category>

<body package="XML" selector="systemLiteral">systemLiteral

| lit |
lit := self quotedString.
(lit includes: $#)
ifTrue: [self malformed: #noFragmentsInSystemIDs << #xml >> 'Fragments in System IDs are not supported'].
^lit isEmpty
ifTrue: [lit]
ifFalse: [(self latestURI asURI resolvePath: lit) asString]</body>
</methods>

</st-source>

_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

Aby Mathew

[vwnc] VW - MySQL - locak tables

Doesn't the SQL "lock tables tablename write" work when given from VW to
MySQL..?

It works good from the MySQL prompt but not when sending from within VW.

Anybody know something about this.

Thanks in advance..

Aby

_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc