Posted to tcl by jdc at Thu Nov 29 19:16:16 GMT 2007view raw

  1. package require Mk4tcl
  2. package require utf8
  3.  
  4. mk::file open db /target/staff/decoster/tmp/wiki-runtime-files/data/wikit.tkd
  5.  
  6. mk::loop i db.pages {
  7. lassign [mk::get $i name page] name page
  8. set point [utf8::findbad $page]
  9. if { $point >= 0 && $point < [string length $page] - 1 } {
  10. puts "bad utf8: $i / $point:\n[string range $page [expr {$point-10}]
  11. [expr {$point+10}]]"
  12. }
  13. }
  14.  
  15. mk::file close db
  16.  
  17. exit