summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/synctex/synctex-e-mem.ch0
diff options
context:
space:
mode:
authorJonathan Kew <jfkthame@googlemail.com>2008-04-25 14:48:35 +0000
committerJonathan Kew <jfkthame@googlemail.com>2008-04-25 14:48:35 +0000
commit12ed7b16e1915c6d5c3453f1bce9b4802de10882 (patch)
tree073ce924de3ed0c18b7656f8009d41dfa961fb85 /Build/source/texk/web2c/synctex/synctex-e-mem.ch0
parent6ad0c2572b39216cefd820842002f54e65f96ce7 (diff)
XeTeX update (from svn r.655), incl new SyncTeX
git-svn-id: svn://tug.org/texlive/trunk@7643 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/synctex/synctex-e-mem.ch0')
-rw-r--r--Build/source/texk/web2c/synctex/synctex-e-mem.ch0164
1 files changed, 164 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/synctex/synctex-e-mem.ch0 b/Build/source/texk/web2c/synctex/synctex-e-mem.ch0
new file mode 100644
index 00000000000..d36577c7bfb
--- /dev/null
+++ b/Build/source/texk/web2c/synctex/synctex-e-mem.ch0
@@ -0,0 +1,164 @@
+Copyright (c) 2008 jerome DOT laurens AT u-bourgogne DOT fr
+
+This file is part of the SyncTeX package.
+
+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.
+
+Notice:
+-------
+This file contains TeX changes for core synctex support.
+It is missing some implementation details that are deferred to either
+sync-pdftex.ch or sync-xetex.ch
+synctex.ch is based on tex.web after the eTeX changes have been applied.
+So it might not apply as is to pdftex.web due to some typographical changes.
+In the building process, one may have to apply some suitable tex.ch0 first.
+See pdftexdir for details.
+
+@x etex.ch l.3852
+ begin free_node(LR_temp,small_node_size); p:=head;
+ while link(p)<>tail do p:=link(p);
+ free_node(tail,small_node_size); link(p):=null; tail:=p; goto done;
+ end;
+@y
+ begin free_node(LR_temp,medium_node_size); p:=head;
+ {{\sl SyncTeX}: |LR_temp| is a math node}
+ while link(p)<>tail do p:=link(p);
+ free_node(tail,medium_node_size); link(p):=null; tail:=p; goto done;
+ end;
+@z
+
+@x etex.ch l.3976
+@<Reverse an hlist segment...@>=
+begin save_h:=cur_h; temp_ptr:=link(p); rule_wd:=width(p);
+free_node(p,small_node_size);
+@y
+@<Reverse an hlist segment...@>=
+begin save_h:=cur_h; temp_ptr:=link(p); rule_wd:=width(p);
+free_node(p,medium_node_size); {{\sl Sync\TeX}: p is a |math_node|}
+@z
+
+@x etex.ch l.4036
+if type(p)=kern_node then if (rule_wd=0)or(l=null) then
+ begin free_node(p,small_node_size); p:=l;
+ end;
+@y
+if type(p)=kern_node then if (rule_wd=0)or(l=null) then
+ begin free_node(p,medium_node_size); p:=l;
+ end;
+@z
+
+@x etex.ch l.4088
+@<Finish the reversed...@>=
+begin free_node(p,small_node_size);
+link(t):=q; width(t):=rule_wd; edge_dist(t):=-cur_h-rule_wd; goto done;
+end
+@y
+@<Finish the reversed...@>=
+begin free_node(p,medium_node_size); {{\sl Sync\TeX}: p is a |kern_node|}
+link(t):=q; width(t):=rule_wd; edge_dist(t):=-cur_h-rule_wd; goto done;
+end
+@z
+
+@x etex.ch l.4137
+ kern_node,math_node: begin r:=get_node(small_node_size);
+ words:=small_node_size;
+ end;
+ glue_node: begin r:=get_node(small_node_size); add_glue_ref(glue_ptr(p));
+ glue_ptr(r):=glue_ptr(p); leader_ptr(r):=null;
+ end;
+@y
+ kern_node,math_node: begin
+ words:=medium_node_size; {{\sl Sync\TeX}: proper size for math and kern}
+ r:=get_node(words);
+ end;
+ glue_node: begin r:=get_node(medium_node_size); add_glue_ref(glue_ptr(p));
+ {{\sl Sync\TeX}: proper size for glue}
+ glue_ptr(r):=glue_ptr(p); leader_ptr(r):=null;
+ end;
+@z
+
+@x etex.ch l.4234
+found:width(t):=width(p); link(t):=q; free_node(p,small_node_size);
+done:link(temp_head):=l;
+end;
+
+@ @<Adjust \(t)the LR stack for the |j...@>=
+if end_LR(p) then
+ if info(LR_ptr)<>end_LR_type(p) then
+ begin type(p):=kern_node; incr(LR_problems);
+ end
+ else begin pop_LR;
+ if n>min_halfword then
+ begin decr(n); decr(subtype(p)); {change |after| into |before|}
+ end
+ else begin if m>min_halfword then decr(m)@+else goto found;
+ type(p):=kern_node;
+ end;
+ end
+else begin push_LR(p);
+ if (n>min_halfword)or(LR_dir(p)<>cur_dir) then
+ begin incr(n); incr(subtype(p)); {change |before| into |after|}
+ end
+ else begin type(p):=kern_node; incr(m);
+ end;
+ end
+@y
+found:width(t):=width(p); link(t):=q; free_node(p,small_node_size);
+ {{\sl Sync\TeX}: Unused label, see below}
+done:link(temp_head):=l;
+end;
+
+@ @<Adjust \(t)the LR stack for the |j...@>=
+if end_LR(p) then
+ if info(LR_ptr)<>end_LR_type(p) then
+ begin type(p):=kern_node; incr(LR_problems);
+ {{\sl Sync\TeX} node size watch point: |math_node| size == |kern_node| size}
+ end
+ else begin pop_LR;
+ if n>min_halfword then
+ begin decr(n); decr(subtype(p)); {change |after| into |before|}
+ end
+ else begin if m>min_halfword then decr(m)@+else begin
+ width(t):=width(p); link(t):=q; free_node(p,medium_node_size);
+{{\sl Sync\TeX}: no more "goto found", and proper node size}
+ goto done;
+ end;
+ type(p):=kern_node;
+ {{\sl Sync\TeX} node size watch point: |math_node| size == |kern_node| size}
+ end;
+ end
+else begin push_LR(p);
+ if (n>min_halfword)or(LR_dir(p)<>cur_dir) then
+ begin incr(n); incr(subtype(p)); {change |before| into |after|}
+ end
+ else begin type(p):=kern_node; incr(m);
+ {{\sl Sync\TeX} node size watch point: |math_node| size == |kern_node| size}
+ end;
+ end
+@z