diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-24 15:18:05 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-24 15:18:05 (GMT) |
commit | c7771a763e2451560f1667170fba99a679e1e9eb (patch) | |
tree | f69f8d14663fb1a9942f405ac45b74499c3a48b9 /tools | |
parent | 6c1bdd15d6fabcc595c0fefdb9994800f21cf07d (diff) | |
download | tcl-c7771a763e2451560f1667170fba99a679e1e9eb.zip tcl-c7771a763e2451560f1667170fba99a679e1e9eb.tar.gz tcl-c7771a763e2451560f1667170fba99a679e1e9eb.tar.bz2 |
Enhance html generation, so it can handle the "©" copy-sign as well
Diffstat (limited to 'tools')
-rw-r--r-- | tools/tcltk-man2html-utils.tcl | 2 | ||||
-rwxr-xr-x | tools/tcltk-man2html.tcl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl index 78aa8ec..63e1fb9 100644 --- a/tools/tcltk-man2html-utils.tcl +++ b/tools/tcltk-man2html-utils.tcl @@ -1271,7 +1271,7 @@ proc output-directive {line} { ## proc merge-copyrights {l1 l2} { set merge {} - set re1 {^Copyright +(?:\(c\)|\\\(co|©) +(\w.*?)(?:all rights reserved)?(?:\. )*$} + set re1 {^Copyright +(?:\(c\)|\\\(©|co|©) +(\w.*?)(?:all rights reserved)?(?:\. )*$} set re2 {^(\d+) +(?:by +)?(\w.*)$} ;# date who set re3 {^(\d+)-(\d+) +(?:by +)?(\w.*)$} ;# from to who set re4 {^(\d+), *(\d+) +(?:by +)?(\w.*)$} ;# date1 date2 who diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl index 5f211f3..2b35bd8 100755 --- a/tools/tcltk-man2html.tcl +++ b/tools/tcltk-man2html.tcl @@ -29,7 +29,7 @@ set ::CSSFILE "docs.css" ## Source the utility functions that provide most of the ## implementation of the transformation from nroff to html. ## -source [file join [file dirname [info script]] tcltk-man2html-utils.tcl] +source -encoding utf-8 [file join [file dirname [info script]] tcltk-man2html-utils.tcl] proc getversion {tclh {name {}}} { if {[file exists $tclh]} { |