diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2015-01-14 10:59:36 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2015-01-14 10:59:36 +0000 |
commit | aa7bbf0e9b00afeeab12fb092b62976cf24fb439 (patch) | |
tree | c18d4ee9d969c2fca65036c7d9194d0961df61a3 /Build/source/libs/gd/libgd-2.1.1/src/entities.tcl | |
parent | 51f86fe156c11e441cc74238dc38b99f9576d1a9 (diff) |
libgd 2.1.1
git-svn-id: svn://tug.org/texlive/trunk@36054 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/libs/gd/libgd-2.1.1/src/entities.tcl')
-rw-r--r-- | Build/source/libs/gd/libgd-2.1.1/src/entities.tcl | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/Build/source/libs/gd/libgd-2.1.1/src/entities.tcl b/Build/source/libs/gd/libgd-2.1.1/src/entities.tcl new file mode 100644 index 00000000000..1f7c9e7e4af --- /dev/null +++ b/Build/source/libs/gd/libgd-2.1.1/src/entities.tcl @@ -0,0 +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 |