small script based on Jules Beans's suggestion to help people who want to

add mathed support for new symbols

git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@2581 a592a061-630c-0410-9148-cb99ea01b6c8

diff --git a/src/mathed/texify b/src/mathed/texify
new file mode 100755 (executable)
index 0000000..c4dad63
--- /dev/null
+++ b/src/mathed/texify
@@ -0,0 +1,60 @@
+#!/usr/bin/tclsh
+
+# Script built on an idea of Jules Bean to extract "what TeX would do" from
+# a given macro.
+#
+# Call it with  texify '\macro' [...] to get a line per item giving ascent,
+# descent, width and the primitives that TeX would use to typeset the item
+
+# Original script:
+#\batchmode
+#\def\entails{$1}
+#\edef\temp{\entails}
+#\message{\string\meaning\temp}
+#\setbox5=\box{$\entails$}
+#\showbox5
+#\bye
+
+set filebase texifytmp
+set hboxexp {^\\hbox.([0-9.]+)\+([0-9.]+).x([0-9.]+)}
+set fontexp {^\.+\\ten([a-z]+) (.*)$}
+
+foreach item $::argv {
+       set font    unknown
+       set char    {}
+       set value   0
+       set ascent  0
+       set descent 0
+       set widht   0
+
+       set f [open $filebase.tex w 0600]
+       puts $f "\\nonstopmode"
+       puts $f "\\setbox5=\\hbox\{\$$item\$\}"
+       puts $f "\\showbox5"
+       puts $f ""
+       puts $f "\\end"
+       close $f
+
+       if {[catch {exec tex $filebase.tex} err]} {
+               #puts "Error: '$err'"
+       }
+
+       set f [open $filebase.log r]
+       while {![eof $f]} {
+               gets $f line
+               regexp $hboxexp $line dummy ascent descent width
+               regexp $fontexp $line dummy font char
+       }
+       close $f
+
+       if {![string equal $font "unknown"]} {
+               if {[string equal -length 2 $char {^^}]} {
+                       scan $char "%c%c%c" dummy1 dummy2 value
+                       set value [expr {$value - 64}]
+               } else {
+                       scan $char "%c" value
+               }
+       }
+
+       puts [list $ascent $descent $width $font $value $char]
+}