libgd 2.2.3

git-svn-id: svn://tug.org/texlive/trunk@42778 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 50 insertions, 50 deletions

diff --git a/Build/source/libs/gd/libgd-src/src/entities.tcl b/Build/source/libs/gd/libgd-src/src/entities.tcl
index 29f87dbc977..1f7c9e7e4af 100644
--- a/Build/source/libs/gd/libgd-src/src/entities.tcl
+++ b/Build/source/libs/gd/libgd-src/src/entities.tcl
@@ -1,50 +1,50 @@
-#!/usr/bin/tclsh

-

-# get names for html-4.0 characters from:

-#          http://www.w3.org/TR/REC-html40/sgml/entities.html

-set f [open entities.html r]

-set entity_name_length_max 0

-set nr_of_entities 0

-while {! [eof $f]} {

-        set rec [gets $f]

-        if {[scan $rec {<!ENTITY %s CDATA "&#%d;"; --} name val] == 2} {

-                set entity($name) $val

-		set entity_name_length [string length $name]

-		if {$entity_name_length > $entity_name_length_max} {

-			set entity_name_length_max $entity_name_length

-		}

-		incr nr_of_entities

-        }

-}

-close $f

-

-set f [open entities.h w]

-puts $f "/*"

-puts $f " * Generated file - do not edit directly."

-puts $f " *"

-puts $f " * This file was generated from:"

-puts $f " *       http://www.w3.org/TR/REC-html40/sgml/entities.html"

-puts $f " * by means of the script:"

-puts $f " *       entities.tcl"

-puts $f " */"

-puts $f ""

-puts $f "#ifdef __cplusplus"

-puts $f "extern \"C\" {"

-puts $f "#endif"

-puts $f ""

-puts $f "static struct entities_s {"

-puts $f "	char	*name;"

-puts $f "	int	value;"

-puts $f "} entities\[\] = {"

-foreach name [lsort [array names entity]] {

-        puts $f "	{\"$name\", $entity($name)},"

-}

-puts $f "};"

-puts $f ""

-puts $f "#define ENTITY_NAME_LENGTH_MAX $entity_name_length_max"

-puts $f "#define NR_OF_ENTITIES $nr_of_entities"

-puts $f ""

-puts $f "#ifdef __cplusplus"

-puts $f "}"

-puts $f "#endif"

-close $f

+#!/usr/bin/tclsh
+
+# get names for html-4.0 characters from:
+#          http://www.w3.org/TR/REC-html40/sgml/entities.html
+set f [open entities.html r]
+set entity_name_length_max 0
+set nr_of_entities 0
+while {! [eof $f]} {
+        set rec [gets $f]
+        if {[scan $rec {<!ENTITY %s CDATA "&#%d;"; --} name val] == 2} {
+                set entity($name) $val
+		set entity_name_length [string length $name]
+		if {$entity_name_length > $entity_name_length_max} {
+			set entity_name_length_max $entity_name_length
+		}
+		incr nr_of_entities
+        }
+}
+close $f
+
+set f [open entities.h w]
+puts $f "/*"
+puts $f " * Generated file - do not edit directly."
+puts $f " *"
+puts $f " * This file was generated from:"
+puts $f " *       http://www.w3.org/TR/REC-html40/sgml/entities.html"
+puts $f " * by means of the script:"
+puts $f " *       entities.tcl"
+puts $f " */"
+puts $f ""
+puts $f "#ifdef __cplusplus"
+puts $f "extern \"C\" {"
+puts $f "#endif"
+puts $f ""
+puts $f "static struct entities_s {"
+puts $f "	char	*name;"
+puts $f "	int	value;"
+puts $f "} entities\[\] = {"
+foreach name [lsort [array names entity]] {
+        puts $f "	{\"$name\", $entity($name)},"
+}
+puts $f "};"
+puts $f ""
+puts $f "#define ENTITY_NAME_LENGTH_MAX $entity_name_length_max"
+puts $f "#define NR_OF_ENTITIES $nr_of_entities"
+puts $f ""
+puts $f "#ifdef __cplusplus"
+puts $f "}"
+puts $f "#endif"
+close $f