Subversion Repositories or1k

#!/bin/bash

# restart using a Tcl shell \

    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`" "$@" ; \

        done ; \

        echo "fixhtml.tcl: cannot find Tcl shell" ; exit 1' "$0" "$@"

#===============================================================================

#

#    fixhtml.tcl

#

#    Patch HTML files generated from DocBook sources.

#

#===============================================================================

#####ECOSGPLCOPYRIGHTBEGIN####

## -------------------------------------------

## This file is part of eCos, the Embedded Configurable Operating System.

## Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.

##

## 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

## 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

## WARRANTY; without even the implied warranty of MERCHANTABILITY or

## FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

## for more details.

##

## You should have received a copy of the GNU General Public License along

## with eCos; if not, write to the Free Software Foundation, Inc.,

## 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.

##

## 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

## 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

## License. However the source code for this file must still be made available

## 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 file might be covered by the GNU General Public License.

##

## Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.

## at http://sources.redhat.com/ecos/ecos-license/

## -------------------------------------------

#####ECOSGPLCOPYRIGHTEND####

#===============================================================================

######DESCRIPTIONBEGIN####

#

# Author(s):    bartv

# Contributors: bartv

# Date:         2000-03-14

# Purpose:      HTML files generated from DocBook sources using the nwalsh

#               stylesheets have a number of problems. Most importantly,

#               Netscape 4.x does not understand all of the character entities

#               defined by HTML 4.0x

#

#####DESCRIPTIONEND####

#===============================================================================

#

# Find out the current year for the copyright message. Ideally

# this would be a range extracted from the sources, but that is

# a little bit tricky.

set year [clock format [clock seconds] -format "%Y"]

set copyright_banner \

"<!-- Copyright (C) $year Red Hat, Inc.                                -->

<!-- This material may be distributed only subject to the terms      -->

<!-- and conditions set forth in the Open Publication License, v1.0  -->

<!-- or later (the latest version is presently available at          -->

<!-- http://www.opencontent.org/openpub/).                           -->

<!-- Distribution of the work or derivative of the work in any       -->

<!-- standard (paper) book form is prohibited unless prior           -->

<!-- permission is obtained from the copyright holder.               -->"

set files [glob *.html]

foreach file $files {

    set status [catch {

        set fd [open $file "r"]

        set data [read $fd]

        close $fd

        # 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} {

            # The DSSSL has the annoying habit of splitting tags over several lines.

            # This should sort things out.

            # REMOVED by jifl: doing this can add newlines in tags like

            # <literallayout>, <screen>, and/or <programlisting>

            # regsub -all "\n>" $data ">\n" data

            # Add a copyright banner

            set data "[set copyright_banner]\n[set data]"

            # Look for a smarttags meta. If absent, insert one. There should

            # already be one meta present identifying the stylesheet, so

            # that identifies a sensible location for inserting another meta.

            if {[regexp {MSSmartTagsPreventParsing} $data] == 0} {

                regsub -nocase {<META} $data "<meta name=\"MSSmartTagsPreventParsing\" content=\"TRUE\">\n<META" data

            }

            # Take care of some character entities that Netscape does not understand

            regsub -all "&mgr;"    $data "\\&#03BC;" 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

            # keep an old version lying around, the html files can be

            # regenerated easily enough.

            set fd [open $file "w"]

            puts -nonewline $fd $data

            close $fd

        }

    } result]

    if {0 != $status} {

        puts "Error while processing file $file\n    $result"

        exit 1

    }

}