#!/bin/bash
|
#!/bin/bash
|
# restart using a Tcl shell \
|
# restart using a Tcl shell \
|
exec sh -c 'for tclshell in tclsh tclsh83 cygtclsh80 ; do \
|
exec sh -c 'for tclshell in tclsh tclsh83 cygtclsh80 ; do \
|
( echo | $tclshell ) 2> /dev/null && exec $tclshell "`( cygpath -w \"$0\" ) 2> /dev/null || echo $0`" "$@" ; \
|
( echo | $tclshell ) 2> /dev/null && exec $tclshell "`( cygpath -w \"$0\" ) 2> /dev/null || echo $0`" "$@" ; \
|
done ; \
|
done ; \
|
echo "fixhtml.tcl: cannot find Tcl shell" ; exit 1' "$0" "$@"
|
echo "fixhtml.tcl: cannot find Tcl shell" ; exit 1' "$0" "$@"
|
|
|
#===============================================================================
|
#===============================================================================
|
#
|
#
|
# fixhtml.tcl
|
# fixhtml.tcl
|
#
|
#
|
# Patch HTML files generated from DocBook sources.
|
# Patch HTML files generated from DocBook sources.
|
#
|
#
|
#===============================================================================
|
#===============================================================================
|
#####ECOSGPLCOPYRIGHTBEGIN####
|
#####ECOSGPLCOPYRIGHTBEGIN####
|
## -------------------------------------------
|
## -------------------------------------------
|
## This file is part of eCos, the Embedded Configurable Operating System.
|
## This file is part of eCos, the Embedded Configurable Operating System.
|
## Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
|
## Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
|
##
|
##
|
## eCos is free software; you can redistribute it and/or modify it under
|
## eCos is free software; you can redistribute it and/or modify it under
|
## the terms of the GNU General Public License as published by the Free
|
## the terms of the GNU General Public License as published by the Free
|
## Software Foundation; either version 2 or (at your option) any later version.
|
## Software Foundation; either version 2 or (at your option) any later version.
|
##
|
##
|
## eCos is distributed in the hope that it will be useful, but WITHOUT ANY
|
## eCos is distributed in the hope that it will be useful, but WITHOUT ANY
|
## WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
## WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
## for more details.
|
## for more details.
|
##
|
##
|
## You should have received a copy of the GNU General Public License along
|
## You should have received a copy of the GNU General Public License along
|
## with eCos; if not, write to the Free Software Foundation, Inc.,
|
## with eCos; if not, write to the Free Software Foundation, Inc.,
|
## 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
|
## 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
|
##
|
##
|
## As a special exception, if other files instantiate templates or use macros
|
## As a special exception, if other files instantiate templates or use macros
|
## or inline functions from this file, or you compile this file and link it
|
## or inline functions from this file, or you compile this file and link it
|
## with other works to produce a work based on this file, this file does not
|
## with other works to produce a work based on this file, this file does not
|
## by itself cause the resulting work to be covered by the GNU General Public
|
## by itself cause the resulting work to be covered by the GNU General Public
|
## License. However the source code for this file must still be made available
|
## License. However the source code for this file must still be made available
|
## in accordance with section (3) of the GNU General Public License.
|
## in accordance with section (3) of the GNU General Public License.
|
##
|
##
|
## This exception does not invalidate any other reasons why a work based on
|
## This exception does not invalidate any other reasons why a work based on
|
## this file might be covered by the GNU General Public License.
|
## this file might be covered by the GNU General Public License.
|
##
|
##
|
## Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
|
## Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
|
## at http://sources.redhat.com/ecos/ecos-license/
|
## at http://sources.redhat.com/ecos/ecos-license/
|
## -------------------------------------------
|
## -------------------------------------------
|
#####ECOSGPLCOPYRIGHTEND####
|
#####ECOSGPLCOPYRIGHTEND####
|
#===============================================================================
|
#===============================================================================
|
######DESCRIPTIONBEGIN####
|
######DESCRIPTIONBEGIN####
|
#
|
#
|
# Author(s): bartv
|
# Author(s): bartv
|
# Contributors: bartv
|
# Contributors: bartv
|
# Date: 2000-03-14
|
# Date: 2000-03-14
|
# Purpose: HTML files generated from DocBook sources using the nwalsh
|
# Purpose: HTML files generated from DocBook sources using the nwalsh
|
# stylesheets have a number of problems. Most importantly,
|
# stylesheets have a number of problems. Most importantly,
|
# Netscape 4.x does not understand all of the character entities
|
# Netscape 4.x does not understand all of the character entities
|
# defined by HTML 4.0x
|
# defined by HTML 4.0x
|
#
|
#
|
#####DESCRIPTIONEND####
|
#####DESCRIPTIONEND####
|
#===============================================================================
|
#===============================================================================
|
#
|
#
|
|
|
# Find out the current year for the copyright message. Ideally
|
# Find out the current year for the copyright message. Ideally
|
# this would be a range extracted from the sources, but that is
|
# this would be a range extracted from the sources, but that is
|
# a little bit tricky.
|
# a little bit tricky.
|
|
|
set year [clock format [clock seconds] -format "%Y"]
|
set year [clock format [clock seconds] -format "%Y"]
|
|
|
set copyright_banner \
|
set copyright_banner \
|
"<!-- Copyright (C) $year Red Hat, Inc. -->
|
"<!-- Copyright (C) $year Red Hat, Inc. -->
|
<!-- This material may be distributed only subject to the terms -->
|
<!-- This material may be distributed only subject to the terms -->
|
<!-- and conditions set forth in the Open Publication License, v1.0 -->
|
<!-- and conditions set forth in the Open Publication License, v1.0 -->
|
<!-- or later (the latest version is presently available at -->
|
<!-- or later (the latest version is presently available at -->
|
<!-- http://www.opencontent.org/openpub/). -->
|
<!-- http://www.opencontent.org/openpub/). -->
|
<!-- Distribution of the work or derivative of the work in any -->
|
<!-- Distribution of the work or derivative of the work in any -->
|
<!-- standard (paper) book form is prohibited unless prior -->
|
<!-- standard (paper) book form is prohibited unless prior -->
|
<!-- permission is obtained from the copyright holder. -->"
|
<!-- permission is obtained from the copyright holder. -->"
|
|
|
set files [glob *.html]
|
set files [glob *.html]
|
foreach file $files {
|
foreach file $files {
|
set status [catch {
|
set status [catch {
|
|
|
set fd [open $file "r"]
|
set fd [open $file "r"]
|
set data [read $fd]
|
set data [read $fd]
|
close $fd
|
close $fd
|
|
|
# If there is already a (C) message on the first line, skip this file.
|
# If there is already a (C) message on the first line, skip this file.
|
if {[regexp {[^\n]*Copyright (C) [0-9]* Red Hat.*} $data] == 0} {
|
if {[regexp {[^\n]*Copyright (C) [0-9]* Red Hat.*} $data] == 0} {
|
|
|
# The DSSSL has the annoying habit of splitting tags over several lines.
|
# The DSSSL has the annoying habit of splitting tags over several lines.
|
# This should sort things out.
|
# This should sort things out.
|
# REMOVED by jifl: doing this can add newlines in tags like
|
# REMOVED by jifl: doing this can add newlines in tags like
|
# <literallayout>, <screen>, and/or <programlisting>
|
# <literallayout>, <screen>, and/or <programlisting>
|
# regsub -all "\n>" $data ">\n" data
|
# regsub -all "\n>" $data ">\n" data
|
|
|
# Add a copyright banner
|
# Add a copyright banner
|
set data "[set copyright_banner]\n[set data]"
|
set data "[set copyright_banner]\n[set data]"
|
|
|
# Look for a smarttags meta. If absent, insert one. There should
|
# Look for a smarttags meta. If absent, insert one. There should
|
# already be one meta present identifying the stylesheet, so
|
# already be one meta present identifying the stylesheet, so
|
# that identifies a sensible location for inserting another meta.
|
# that identifies a sensible location for inserting another meta.
|
if {[regexp {MSSmartTagsPreventParsing} $data] == 0} {
|
if {[regexp {MSSmartTagsPreventParsing} $data] == 0} {
|
regsub -nocase {<META} $data "<meta name=\"MSSmartTagsPreventParsing\" content=\"TRUE\">\n<META" data
|
regsub -nocase {<META} $data "<meta name=\"MSSmartTagsPreventParsing\" content=\"TRUE\">\n<META" data
|
}
|
}
|
|
|
# Take care of some character entities that Netscape does not understand
|
# Take care of some character entities that Netscape does not understand
|
regsub -all "&mgr;" $data "\\BC;" data
|
regsub -all "&mgr;" $data "\\BC;" data
|
regsub -all "—" $data "\\—" data
|
regsub -all "—" $data "\\—" data
|
regsub -all "–" $data "\\–" data
|
regsub -all "–" $data "\\–" data
|
regsub -all "…" $data "\\…" data
|
regsub -all "…" $data "\\…" data
|
regsub -all "“" $data "\\“" data
|
regsub -all "“" $data "\\“" data
|
regsub -all "”" $data "\\”" data
|
regsub -all "”" $data "\\”" data
|
regsub -all "[" $data "\\[" data
|
regsub -all "[" $data "\\[" data
|
regsub -all "]" $data "\\]" data
|
regsub -all "]" $data "\\]" data
|
regsub -all "{" $data "\\{" data
|
regsub -all "{" $data "\\{" data
|
regsub -all "}" $data "\\}" data
|
regsub -all "}" $data "\\}" data
|
regsub -all "‘" $data "\\‘" data
|
regsub -all "‘" $data "\\‘" data
|
regsub -all "’" $data "\\’" data
|
regsub -all "’" $data "\\’" data
|
regsub -all "™" $data "\\™" data
|
regsub -all "™" $data "\\™" data
|
regsub -all "*" $data "\\*" data
|
regsub -all "*" $data "\\*" data
|
regsub -all "_" $data "\\_" data
|
regsub -all "_" $data "\\_" data
|
regsub -all "/" $data "\\/" data
|
regsub -all "/" $data "\\/" data
|
regsub -all "=" $data "\\=" data
|
regsub -all "=" $data "\\=" data
|
regsub -all "#" $data "\\#" data
|
regsub -all "#" $data "\\#" data
|
regsub -all "+" $data "\\+" data
|
regsub -all "+" $data "\\+" data
|
regsub -all "%" $data "\\%" data
|
regsub -all "%" $data "\\%" data
|
regsub -all "$" $data "\\$" data
|
regsub -all "$" $data "\\$" data
|
regsub -all "│" $data "\\│" data
|
regsub -all "│" $data "\\│" data
|
regsub -all "\" $data "\\\" data
|
regsub -all "\" $data "\\\" data
|
regsub -all "█" $data "\\█" data
|
regsub -all "█" $data "\\█" data
|
regsub -all "▮" $data "\\▮" data
|
regsub -all "▮" $data "\\▮" data
|
|
|
# Now write the data back to the file. Do not bother to
|
# Now write the data back to the file. Do not bother to
|
# keep an old version lying around, the html files can be
|
# keep an old version lying around, the html files can be
|
# regenerated easily enough.
|
# regenerated easily enough.
|
set fd [open $file "w"]
|
set fd [open $file "w"]
|
puts -nonewline $fd $data
|
puts -nonewline $fd $data
|
close $fd
|
close $fd
|
}
|
}
|
} result]
|
} result]
|
|
|
if {0 != $status} {
|
if {0 != $status} {
|
puts "Error while processing file $file\n $result"
|
puts "Error while processing file $file\n $result"
|
exit 1
|
exit 1
|
}
|
}
|
}
|
}
|
|
|
|
|
