1 files changed, 167 insertions, 0 deletions
diff --git a/scripts/context/ruby/base/mp.rb b/scripts/context/ruby/base/mp.rb
new file mode 100644
index 000000000..d168bde1d
--- /dev/null
+++ b/scripts/context/ruby/base/mp.rb
@@ -0,0 +1,167 @@
+# module    : base/mp
+# copyright : PRAGMA Advanced Document Engineering
+# version   : 2005-2006
+# author    : Hans Hagen
+#
+# project   : ConTeXt / eXaMpLe
+# concept   : Hans Hagen
+# info      : j.hagen@xs4all.nl
+# www       : www.pragma-ade.com
+
+module MPTools
+
+    @@definitions, @@start, @@stop, @@before, @@after = Hash.new, Hash.new, Hash.new, Hash.new, Hash.new
+
+
+    @@definitions['plain'] = <<EOT
+\\gdef\\mpxshipout{\\shipout\\hbox\\bgroup
+  \\setbox0=\\hbox\\bgroup}
+
+\\gdef\\stopmpxshipout{\\egroup  \\dimen0=\\ht0 \\advance\\dimen0\\dp0
+  \\dimen1=\\ht0 \\dimen2=\\dp0
+  \\setbox0=\\hbox\\bgroup
+    \\box0
+    \\ifnum\\dimen0>0 \\vrule width1sp height\\dimen1 depth\\dimen2
+    \\else \\vrule width1sp height1sp depth0sp\\relax
+    \\fi\\egroup
+  \\ht0=0pt \\dp0=0pt \\box0 \\egroup}
+EOT
+
+    @@start ['plain'] = ""
+    @@before['plain'] = "\\mpxshipout"
+    @@after ['plain'] = "\\stopmpxshipout"
+    @@stop  ['plain'] = "\\end{document}"
+
+    @@definitions['context'] = <<EOT
+\\ifx\\startMPXpage\\undefined
+
+  \\ifx\\loadallfontmapfiles\\undefined \\let\\loadallfontmapfiles\\relax \\fi
+
+  \\gdef\\startMPXpage
+    {\\shipout\\hbox
+     \\bgroup
+     \\setbox0=\\hbox
+     \\bgroup}
+
+  \\gdef\\stopMPXpage
+    {\\egroup
+     \\dimen0=\\ht0
+     \\advance\\dimen0\\dp0
+     \\dimen1=\\ht0
+     \\dimen2=\\dp0
+     \\setbox0=\\hbox\\bgroup
+       \\box0
+       \\ifnum\\dimen0>0
+         \\vrule width 1sp height \\dimen1 depth \\dimen2
+       \\else
+         \\vrule width 1sp height 1sp depth 0sp \\relax
+       \\fi
+    \\egroup
+    \\ht0=0pt
+    \\dp0=0pt
+    \\loadallfontmapfiles
+    \\box0
+    \\egroup}
+
+\\fi
+
+\\ifx\\starttext\\undefined
+
+  \\let\\starttext\\relax
+  \\def\\stoptext{\\end{document}}
+
+\\fi
+EOT
+
+    @@start ['context'] = "\\starttext"
+    @@before['context'] = "\\startMPXpage"
+    @@after ['context'] = "\\stopMPXpage"
+    @@stop  ['context'] = "\\stoptext"
+
+    # todo: \usemodule[m-mpx ] and test fo defined
+
+    def MPTools::mptotex(from,to=nil,method='plain')
+        begin
+            if from && data = IO.read(from) then
+                f = if to then File.open(to,'w') else $stdout end
+                f.puts("% file: #{from}")
+                f.puts("")
+                f.puts(@@definitions[method])
+                unless @@start[method].empty? then
+                    f.puts("")
+                    f.puts(@@start[method])
+                end
+                data.gsub!(/([^\\])%.*?$/mo) do
+                    $1
+                end
+                data.scan(/(verbatim|b)tex\s*(.*?)\s*etex/mo) do
+                    tag, text = $1, $2
+                    f.puts("")
+                    if tag == 'b' then
+                        f.puts(@@before[method])
+                        f.puts("#{text}%")
+                        f.puts(@@after [method])
+                    else
+                        f.puts("#{text}")
+                    end
+                    f.puts("")
+                end
+                f.puts("")
+                f.puts(@@stop[method])
+                f.close
+            else
+                return false
+            end
+        rescue
+            File.delete(to) rescue false
+            return false
+        else
+            return true
+        end
+    end
+
+    @@splitMPlines = false
+
+    def MPTools::splitmplines(str)
+        if @@splitMPlines then
+            btex, verbatimtex, strings, result = Array.new, Array.new, Array.new, str.dup
+            # protect texts
+            result.gsub!(/btex\s*(.*?)\s*etex/) do
+                btex << $1
+                "btex(#{btex.length-1})"
+            end
+            result.gsub!(/verbatimtex\s*(.*?)\s*etex/) do
+                verbatimtex << $1
+                "verbatimtex(#{verbatimtex.length-1})"
+            end
+            result.gsub!(/\"(.*?)\"/) do
+                strings << $1
+                "\"#{strings.length-1}\""
+            end
+            result.gsub!(/\;/) do
+                ";\n"
+            end
+            result.gsub!(/(.{80,})(\-\-\-|\-\-|\.\.\.|\.\.)/) do
+                "#{$1}#{$2}\n"
+            end
+            result.gsub!(/\n[\s\n]+/moi) do
+                "\n"
+            end
+            result.gsub!(/btex\((\d+)\)/) do
+                "btex #{btex[$1.to_i]} etex"
+            end
+            result.gsub!(/verbatimtex\((\d+)\)/) do
+                "verbatimtex #{verbatimtex[$1.to_i]} etex"
+            end
+            result.gsub!(/\"(\d+)\"/) do
+                "\"#{strings[$1.to_i]}\""
+            end
+            # return result # let's catch xetex bug
+            return result.gsub(/\^\^(M|J)/o, "\n")
+        else
+            # return str # let's catch xetex bug
+            return str.gsub(/\^\^(M|J)/o, "\n")
+        end
+    end
+
+end