Fossil

Differences From Artifact [257271793f]:

• File test/many-www.tcl — part of check-in [691f188402] at 2012-11-08 20:28:29 on branch trunk — Update the many-www.tcl test script to stage the URLs testing and to run more of them. (user: drh size: 1804)

To Artifact [4f2bfa076d]:

• File test/many-www.tcl — part of check-in [76e8600b94] at 2012-11-08 20:51:35 on branch trunk — Correctly escape ZIP and Tarball filenames for URLs. Limit SHA1 hashs on diff URLs using %S instead of %s. Limit the number of links to follow off of each page in the many-www.tcl test script. (user: drh size: 1847) [more...]

62
63
64
65
66
67
68

69
70


71
72
73
74
75
76
77

  set tm [time {set x [run_query $url]}]
  set ms [lindex $tm 0]
  puts [format {%.3fs} [expr {$ms/1000000.0}]]
  flush stdout
  if {[string length $x]>1000000} {
    set x [string range $x 0 1000000]
  }

  while {[regexp {<[aA] .*?href="(/[a-z].*?)".*?>(.*)$} $x all url tail]} {
    # if {$npending>2*($limit - $i)} break


    set u2 [string map {&lt; < &gt; > &quot; \" &amp; &} $url]
    if {![info exists seen($u2)]} {
      set next($u2) 1
      set seen($u2) 1
    }
    set x $tail
  }

>


>
>

62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80

  set tm [time {set x [run_query $url]}]
  set ms [lindex $tm 0]
  puts [format {%.3fs} [expr {$ms/1000000.0}]]
  flush stdout
  if {[string length $x]>1000000} {
    set x [string range $x 0 1000000]
  }
  set k 0
  while {[regexp {<[aA] .*?href="(/[a-z].*?)".*?>(.*)$} $x all url tail]} {
    # if {$npending>2*($limit - $i)} break
    incr k
    if {$k>100} break
    set u2 [string map {&lt; < &gt; > &quot; \" &amp; &} $url]
    if {![info exists seen($u2)]} {
      set next($u2) 1
      set seen($u2) 1
    }
    set x $tail
  }