This is kind of a "I'm tired of thinking about this and not making much
progress for the amount of time I'm putting in question" but here it is:
I'm trying to parse descriptions from HTML meta elements. I can't use Soup
because there isn't a working GemStone port.
I've got it to work with the structure:
<meta name="description" content="my description">
and
<meta name="Description" content="my description">
but I'm running into instances of:
<meta http-equiv="description" content="my description">
and
<meta http-equiv="Description" content="my description">
and am having trouble adapting my parsing code (such as it is).
The parsing code that addresses the first two cases is:
parseHtmlPageForDescription: htmlString
| startParser endParser ppStream descParser result text lower str
doubleQuoteIndex |
lower := 'escription' asParser.
startParser := '<meta name=' asParser , #'any' asParser , #'any' asParser.
endParser := '>' asParser.
ppStream := htmlString readStream asPetitStream.
descParser := ((#'any' asParser starLazy: startParser , lower)
, (#'any' asParser starLazy: endParser)) ==> #'second'.
result := descParser parse: ppStream.
text := (result
inject: (WriteStream on: String new)
into: [ :stream :char |
stream nextPut: char.
stream ])
contents trimBoth.
str := text copyFrom: (text findString: 'content=') + 9 to: text size.
doubleQuoteIndex := 8 - ((str last: 7) indexOf: $").
^ str copyFrom: 1 to: str size - doubleQuoteIndex
I can't figure out how to change the startParser parser to accept the second
idiom. And maybe there's a better approach altogether. Anyway. If anyone has
any ideas on different approaches I'd appreciate learning them.
Thanks for giving it some thought
Paul
