made tests green
This commit is contained in:
parent
ed3c509484
commit
1a3b730bf5
8 changed files with 56 additions and 53 deletions
|
|
@ -12,7 +12,7 @@ if paramCount() < 1:
|
|||
quit("Usage: htmlrefs filename[.html]")
|
||||
|
||||
var links = 0 # count the number of links
|
||||
var filename = addFileExt(ParamStr(1), "html")
|
||||
var filename = addFileExt(paramStr(1), "html")
|
||||
var s = newFileStream(filename, fmRead)
|
||||
if s == nil: quit("cannot open the file " & filename)
|
||||
var x: XmlParser
|
||||
|
|
@ -43,12 +43,12 @@ block mainLoop:
|
|||
while x.kind == xmlCharData:
|
||||
desc.add(x.charData)
|
||||
x.next()
|
||||
Echo(desc & ": " & link)
|
||||
echo(desc & ": " & link)
|
||||
else:
|
||||
x.next()
|
||||
of xmlEof: break # end of file reached
|
||||
of xmlError:
|
||||
Echo(errorMsg(x))
|
||||
echo(errorMsg(x))
|
||||
x.next()
|
||||
else: x.next() # skip other events
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue