New RTL extension for XeTeX

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

3 files changed, 116 insertions, 2 deletions

diff --git a/Build/source/texk/web2c/synctexdir/ChangeLog b/Build/source/texk/web2c/synctexdir/ChangeLog
index c169e25fcda..3094db84802 100644
--- a/Build/source/texk/web2c/synctexdir/ChangeLog
+++ b/Build/source/texk/web2c/synctexdir/ChangeLog
@@ -1,3 +1,9 @@
+2014-07-22  Khaled Hosny  <khaledhosny@eglug.org>
+
+	* am/synctex.am: Don't apply synctex-e-mem.ch0 to XeTeX, and replace
+	synctex-e-rec.ch0 with synctex-xe-rec.ch0, after TeX--XeT removal.
+	* synctex-xe-rec.ch0: New file (adapted from synctex-e-rec.ch0).
+
 2014-01-14  Sebastian Ramacher  <sramacher@debian.org>
 
 	* synctex_main.c: Bug fix (segfault).
diff --git a/Build/source/texk/web2c/synctexdir/am/synctex.am b/Build/source/texk/web2c/synctexdir/am/synctex.am
index 4a853f5e532..9df0b2ae30e 100644
--- a/Build/source/texk/web2c/synctexdir/am/synctex.am
+++ b/Build/source/texk/web2c/synctexdir/am/synctex.am
@@ -321,10 +321,9 @@ xetex_CPPFLAGS += -I$(srcdir)/synctexdir
 xetex_ch_synctex = \
 	synctexdir/synctex-xe-def.ch0 \
 	synctexdir/synctex-mem.ch0 \
-	synctexdir/synctex-e-mem.ch0 \
 	synctexdir/synctex-e-mem.ch1 \
 	synctexdir/synctex-rec.ch0 \
-	synctexdir/synctex-e-rec.ch0
+	synctexdir/synctex-xe-rec.ch0
 
 xetex_post_ch_synctex = \
 	synctexdir/synctex-xe-rec.ch3
diff --git a/Build/source/texk/web2c/synctexdir/synctex-xe-rec.ch0 b/Build/source/texk/web2c/synctexdir/synctex-xe-rec.ch0
new file mode 100644
index 00000000000..9cdc845d0ca
--- /dev/null
+++ b/Build/source/texk/web2c/synctexdir/synctex-xe-rec.ch0
@@ -0,0 +1,109 @@
+Copyright (c) 2008-2011 jerome DOT laurens AT u-bourgogne DOT fr
+
+This file is part of the SyncTeX package.
+
+Latest Revision: Wed Jul  1 11:17:29 UTC 2009
+
+License:
+--------
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation
+files (the "Software"), to deal in the Software without
+restriction, including without limitation the rights to use,
+copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following
+conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE
+
+Except as contained in this notice, the name of the copyright holder  
+shall not be used in advertising or otherwise to promote the sale,  
+use or other dealings in this Software without prior written  
+authorization from the copyright holder.
+
+Acknowledgments:
+----------------
+The author received useful remarks from the pdfTeX developers, especially Hahn The Thanh,
+and significant help from XeTeX developer Jonathan Kew
+
+Nota Bene:
+----------
+If you include or use a significant part of the synctex package into a software,
+I would appreciate to be listed as contributor and see "SyncTeX" highlighted.
+
+Version 1
+Thu Jun 19 09:39:21 UTC 2008
+
+Notice:
+-------
+Description forthcoming
+
+@x srcdir/etex.ch l.536
+@/@<Cases for |print_param|@>@/
+othercases print("[unknown integer parameter!]")
+@y
+@/@<synctex case for |print_param|@>@/
+@/@<Cases for |print_param|@>@/
+othercases print("[unknown integer parameter!]")
+@z
+
+@x etex.ch l.1568
+kern_node,math_node:cur_h:=cur_h+width(p);
+@y
+kern_node: begin
+  @<Record |kern_node| {\sl Sync\TeX} information@>;
+  cur_h:=cur_h+width(p);
+end;
+math_node: begin
+  @<Record |math_node| {\sl Sync\TeX} information@>;
+  cur_h:=cur_h+width(p);
+end;
+@z
+
+@x etex.ch l.4459
+  name:=19; print("( "); incr(open_parens); update_terminal;
+  end
+else name:=18
+@y
+  name:=19; print("( "); incr(open_parens); update_terminal;
+  end
+else begin
+    name:=18;
+    @<Prepare pseudo file {\sl Sync\TeX} information@>;
+end
+@z
+
+@x synctex-mem.ch0 l.236
+@ @<Put each...@>=
+primitive("synctex",assign_int,int_base+synctex_code);@/
+@!@:synctex_}{\.{\\synctex} primitive@>
+@y
+@ @<Put each...@>=
+primitive("synctex",assign_int,int_base+synctex_code);@/
+@!@:synctex_}{\.{\\synctex} primitive@>
+
+@ @<synctex case for |print_param|@>=
+synctex_code:    print_esc("synctex");
+@z
+
+@x synctex-rec.ch0 l.267
+@ @<Prepare terminal input {\sl Sync\TeX} information@>=
+synctex_tag:=0;
+@y
+@ @<Prepare terminal input {\sl Sync\TeX} information@>=
+synctex_tag:=0;
+
+@ @<Prepare pseudo file {\sl Sync\TeX} information@>=
+synctex_tag:=0;
+@z