The only pdftex 1.50 info I know about is from here: http://tug.org/svn/pdftex/branches/qstex/README.qstex which are actually some changes over 1.50, but it's all I've got. Doing a diff against the qstex branch pdftex.web from the "stable" (which I really must move back to trunk) branch, I see stuff relating to pdf layers and not much else in terms of primitives. Martin or Thanh, maybe you can elucidate a bit? -k --- stable/source/src/texk/web2c/pdftexdir/pdftex.web 2018-04-22 17:47:12.314859000 +0200 +++ qstex/source/src/texk/web2c/pdftexdir/pdftex.web 2010-10-11 16:27:54.737983000 +0200 @@ -1,2 +1,3 @@ -% Copyright 1996-2018 Han Th\^e\llap{\raise 0.5ex\hbox{\'{}}} Th\`anh, -% +% Copyright (c) 1996-2008 Han Th\^e\llap{\raise 0.5ex\hbox{\'{}}} Th\`anh, +% Copyright (c) 2008-2009 Martin Schröder, +% $Id: pdftex.web 627 2010-10-11 14:27:54Z oneiros $ @@ -16 +17,2 @@ -% this program. If not, see http://www.gnu.org/licenses/. +% pdfTeX; if not, write to the Free Software Foundation, Inc., 51 Franklin +% Street, Fifth Floor, Boston, MA 02110-1301 USA. @@ -18 +20 @@ -% e-TeX is copyright (C) 1999-2015 by P. Breitenlohner (1994,98 by the NTS +% e-TeX is copyright (C) 1999-2008 by P. Breitenlohner (1994,98 by the NTS @@ -72 +73,0 @@ -% Version 3.14159265 was similar (January 2014). @@ -104 +105 @@ -% Version 2.3 development was started in Feb 2008; released in Apr 2011. +% Version 2.3 development was started in Feb 2008; released in Mon Year. @@ -107,15 +107,0 @@ -% fixed the error messages for improper use of \protected, -% reported by Heiko Oberdiek -% , May 2010. -% some rearrangements to reduce interferences between -% e-TeX and pTeX, in part suggested by Hironori Kitagawa -% , Mar 2011. -% Version 2.4 fixed an uninitialized line number bug, released in May 2012. -% Version 2.5 development was started in Aug 2012; released in Feb 2013. -% better tracing of font definitions, reported by -% Bruno Le Floch , Jul 2012. -% Version 2.6 development was started in Mar 2013; released in ??? 201?. -% enable hyphenation of text between \beginL and \endL or -% between \beginR and \endR, problem reported by -% Vafa Khalighi , Nov 2013. -% better handling of right-to-left text -- to be done. @@ -187 +173 @@ -\let\maybe=\iftrue % print only changed modules +\let\maybe=\iffalse % print only changed modules @@ -302,2 +288,2 @@ -@d eTeX_revision==".6" { \.{\\eTeXrevision} } -@d eTeX_version_string=='-2.6' {current \eTeX\ version} +@d eTeX_revision==".2" { \.{\\eTeXrevision} } +@d eTeX_version_string=='-2.2' {current \eTeX\ version} @@ -305 +291 @@ -@d eTeX_banner=='This is e-TeX, Version 3.14159265',eTeX_version_string +@d eTeX_banner=='This is e-TeX, Version 3.1415926',eTeX_version_string @@ -308,3 +294,3 @@ -@d pdftex_version==140 { \.{\\pdftexversion} } -@d pdftex_revision=="19" { \.{\\pdftexrevision} } -@d pdftex_version_string=='-1.40.19' {current \pdfTeX\ version} +@d pdftex_version==150 { \.{\\pdftexversion} } +@d pdftex_revision=="0" { \.{\\pdftexrevision} } +@d pdftex_version_string=='-1.50.0-alpha-20091006-qs20091006' {current \pdfTeX\ version} @@ -312 +298,4 @@ -@d pdfTeX_banner=='This is pdfTeX, Version 3.14159265',eTeX_version_string,pdftex_version_string +@d pdfeTeX_banner=='This is pdfeTeX, Version 3.1415926',pdftex_version_string,eTeX_version_string + {printed when \pdfeTeX\ starts} +@# +@d pdfTeX_banner=='This is pdfTeX, Version 3.1415926',pdftex_version_string @@ -315 +304 @@ -@d TeX_banner=='This is TeX, Version 3.14159265' {printed when \TeX\ starts} +@d TeX_banner=='This is TeX, Version 3.1415926' {printed when \TeX\ starts} @@ -317 +306 @@ -@d banner==pdfTeX_banner +@d banner==pdfeTeX_banner @@ -319 +308 @@ -@d TEX==PDFTEX {change program name into |PDFTEX|} +@d TEX==ETEX {change program name into |ETEX|} @@ -1394 +1382,0 @@ -@!m,@!n:text_char; {characters input from |pool_file|} @@ -1396,2 +1383,0 @@ -@!a:integer; {accumulator for check sum} -@!c:boolean; {check sum has been checked} @@ -3216,0 +3203 @@ +@; @@ -3393,2 +3380,3 @@ -|fil|, |fill|, or |filll|). The |subtype| field is not used in \TeX. -In \eTeX\ the |subtype| field records the box direction mode |box_lr|. +|fil|, |fill|, or |filll|). The |subtype| field is not used. + +@d synctex_field_size=2 {Declare the {\sl synctex} field size to store the {\sl synctex} information: 2 integers for file tag and line} @@ -3397 +3385 @@ -@d box_node_size=7 {number of words to allocate for a box node} +@d box_node_size=7+synctex_field_size {a |box_node| is a synchronized node} @@ -3482,0 +3471 @@ +@d medium_node_size=small_node_size+synctex_field_size {|math_node|, |kern_node| and |glue_node| are synchronized nodes} @@ -3493 +3482 @@ -@d adjust_pre == subtype {<>0 => pre-adjustment} +@d adjust_pre == subtype {pre-adjustment?} @@ -3615 +3604 @@ -begin p:=get_node(small_node_size); type(p):=math_node; +begin p:=get_node(medium_node_size); type(p):=math_node; {{\sl synctex} watch point: proper size} @@ -3711 +3700 @@ -begin p:=get_node(small_node_size); type(p):=glue_node; subtype(p):=n+1; +begin p:=get_node(medium_node_size); type(p):=glue_node; subtype(p):=n+1; {{\sl synctex} watch point: proper size} @@ -3723 +3712 @@ -begin p:=get_node(small_node_size); type(p):=glue_node; subtype(p):=normal; +begin p:=get_node(medium_node_size); type(p):=glue_node; subtype(p):=normal; {{\sl synctex} watch point: proper size} @@ -3790 +3779 @@ -begin p:=get_node(small_node_size); type(p):=kern_node; +begin p:=get_node(medium_node_size); type(p):=kern_node; {{\sl synctex} whatch point: proper |kern_node| size} @@ -4528 +4517 @@ - free_node(p,box_node_size); goto done; + free_node(p,box_node_size); goto done; @@ -4533,2 +4522,2 @@ - delete_glue_ref(split_top_ptr(p)); - free_node(p,ins_node_size); goto done; + delete_glue_ref(split_top_ptr(p)); + free_node(p,ins_node_size); goto done; @@ -4538 +4527,7 @@ - if leader_ptr(p)<>null then flush_node_list(leader_ptr(p)); + if leader_ptr(p)<>null then flush_node_list(leader_ptr(p)); + free_node(p, medium_node_size); {{\sl synctex} watch point: proper size} + goto done; + end; + kern_node,math_node:begin + free_node(p, medium_node_size); {{\sl synctex} watch point: proper size} + goto done; @@ -4540 +4535 @@ - kern_node,math_node,penalty_node: do_nothing; + penalty_node: do_nothing; @@ -4549 +4544 @@ - flush_node_list(post_break(p)); + flush_node_list(post_break(p)); @@ -4612,0 +4608 @@ + @; @@ -4626 +4622,2 @@ -glue_node: begin r:=get_node(small_node_size); add_glue_ref(glue_ptr(p)); +glue_node: begin r:=get_node(medium_node_size); add_glue_ref(glue_ptr(p)); {{\sl synctex} watch point: proper size} + @; @@ -4629 +4626,6 @@ -kern_node,math_node,penalty_node: begin r:=get_node(small_node_size); +kern_node,math_node: +begin + words:=medium_node_size; {{\sl synctex}: proper size, do not copy the {\sl synctex} information} + r:=get_node(words); +end; +penalty_node: begin r:=get_node(small_node_size); @@ -5179 +5180,0 @@ -@d prim_size=2100 {maximum number of primitives } @@ -5184 +5184,0 @@ -@d prim_eqtb_base=frozen_primitive+1 @@ -5669 +5669 @@ -@d pdf_unique_resname_code = pdftex_first_integer_code + 6 {generate unique names for resouces} +@d pdf_unique_resname_code = pdftex_first_integer_code + 6 {generate unique names for resources} @@ -5684,12 +5684,8 @@ -@d pdf_adjust_interword_glue_code = pdftex_first_integer_code + 21 {adjust interword glue?} -@d pdf_prepend_kern_code = pdftex_first_integer_code + 22 {prepend kern before certain characters?} -@d pdf_append_kern_code = pdftex_first_integer_code + 23 {append kern before certain characters?} -@d pdf_gen_tounicode_code = pdftex_first_integer_code + 24 {generate ToUnicode for fonts?} -@d pdf_draftmode_code = pdftex_first_integer_code + 25 {switch on draftmode if positive} -@d pdf_inclusion_copy_font_code = pdftex_first_integer_code + 26 {generate ToUnicode for fonts?} -@d pdf_suppress_warning_dup_dest_code = pdftex_first_integer_code + 27 {suppress warning about duplicated destinations} -@d pdf_suppress_warning_dup_map_code = pdftex_first_integer_code + 28 {suppress warning about duplicated map lines} -@d pdf_suppress_warning_page_group_code = pdftex_first_integer_code + 29 {suppress warning about multiple pdfs with page group} -@d pdf_info_omit_date_code = pdftex_first_integer_code + 30 {omit generating CreationDate and ModDate} -@d pdf_suppress_ptex_info_code = pdftex_first_integer_code + 31 {suppress /PTEX.* entries in PDF dictionaries} -@d pdf_int_pars=pdftex_first_integer_code + 32 {total number of \pdfTeX's integer parameters} +@d pdf_suppress_ptex_info_code = pdftex_first_integer_code + 21 {suppress /PTEX.* entries in PDF dictionaries} +@d pdf_adjust_interword_glue_code = pdftex_first_integer_code + 22 {adjust interword glue?} +@d pdf_prepend_kern_code = pdftex_first_integer_code + 23 {prepend kern before certain characters?} +@d pdf_append_kern_code = pdftex_first_integer_code + 24 {append kern before certain characters?} +@d pdf_gen_tounicode_code = pdftex_first_integer_code + 25 {generate ToUnicode for fonts?} +@d pdf_draftmode_code = pdftex_first_integer_code + 26 {switch on draftmode if positive} +@d pdf_inclusion_copy_font_code = pdftex_first_integer_code + 27 {generate ToUnicode for fonts?} +@d pdf_int_pars=pdftex_first_integer_code + 28 {total number of \pdfTeX's integer parameters} @@ -5707 +5703,2 @@ -@d eTeX_state_code=etex_int_base+9 {\eTeX\ state variables} +@d suppress_fontnotfound_error_code=etex_int_base+9 {surpress errors for missing fonts} +@d eTeX_state_code=etex_int_base+10 {\eTeX\ state variables} @@ -5710 +5707,4 @@ -@d int_pars=etex_int_pars {total number of integer parameters} +@d synctex_code=etex_int_pars {{\sl synctex}: for the \.{\\synctex} macro} +@d synctex_int_pars=synctex_code+1 {total number of \TeX's integer parameters} +@# +@d int_pars=synctex_int_pars {total number of integer parameters} @@ -5783,0 +5784 @@ +@d pdf_suppress_ptex_info == int_par(pdf_suppress_ptex_info_code) @@ -5801,5 +5802,2 @@ -@d pdf_suppress_warning_dup_dest == int_par(pdf_suppress_warning_dup_dest_code) -@d pdf_suppress_warning_dup_map == int_par(pdf_suppress_warning_dup_map_code) -@d pdf_suppress_warning_page_group == int_par(pdf_suppress_warning_page_group_code) -@d pdf_info_omit_date == int_par(pdf_info_omit_date_code) -@d pdf_suppress_ptex_info == int_par(pdf_suppress_ptex_info_code) +@# +@d synctex == int_par(synctex_code) @@ -5815,0 +5814 @@ +@d suppress_fontnotfound_error==int_par(suppress_fontnotfound_error_code) @@ -5883,0 +5883 @@ +pdf_suppress_ptex_info_code: print_esc("pdfsuppressptexinfo"); @@ -5907,6 +5907,2 @@ -pdf_inclusion_copy_font_code: print_esc("pdfinclusioncopyfonts"); -pdf_suppress_warning_dup_dest_code: print_esc("pdfsuppresswarningdupdest"); -pdf_suppress_warning_dup_map_code: print_esc("pdfsuppresswarningdupmap"); -pdf_suppress_warning_page_group_code:print_esc("pdfsuppresswarningpagegroup"); -pdf_info_omit_date_code:print_esc("pdfinfoomitdate"); -pdf_suppress_ptex_info_code: print_esc("pdfsuppressptexinfo"); +pdf_inclusion_copy_font_code: print_esc("pdfinclusioncopyfonts"); +@/@@/ @@ -6039,0 +6036,2 @@ +primitive("pdfsuppressptexinfo",assign_int,int_base+pdf_suppress_ptex_info_code);@/ +@!@:pdf_suppress_ptex_info__}{\.{\\pdfsuppressptexinfo} primitive@> @@ -6091,13 +6088,0 @@ -primitive("pdfsuppresswarningdupdest",assign_int,int_base+pdf_suppress_warning_dup_dest_code);@/ -@!@:pdf_suppress_warning_dup_dest_}{\.{\\pdfsuppresswarningdupdest} primitive@> - -primitive("pdfsuppresswarningdupmap",assign_int,int_base+pdf_suppress_warning_dup_map_code);@/ -@!@:pdf_suppress_warning_dup_map_}{\.{\\pdfsuppresswarningdupmap} primitive@> - -primitive("pdfsuppresswarningpagegroup",assign_int,int_base+pdf_suppress_warning_page_group_code);@/ -@!@:pdf_suppress_warning_page_group_}{\.{\\pdfsuppresswarningpagegroup} primitive@> -primitive("pdfinfoomitdate",assign_int,int_base+pdf_info_omit_date_code);@/ -@!@:pdf_info_omit_date_}{\.{\\pdfinfoomitdate} primitive@> -primitive("pdfsuppressptexinfo",assign_int,int_base+pdf_suppress_ptex_info_code);@/ -@!@:pdf_suppress_ptex_info_}{\.{\\pdfsuppressptexinfo} primitive@> - @@ -6459,0 +6445 @@ +@d prim_size=2100 {maximum number of primitives } @@ -6463 +6449 @@ -@d prim_text(#) == prim[#].rh {string number for control sequence name, plus one} +@d prim_text(#) == prim[#].rh {string number for control sequence name} @@ -6468,3 +6454,3 @@ -@d prim_eq_level(#)==prim_eq_level_field(eqtb[prim_eqtb_base+#]) {level of definition} -@d prim_eq_type(#)==prim_eq_type_field(eqtb[prim_eqtb_base+#]) {command code for equivalent} -@d prim_equiv(#)==prim_equiv_field(eqtb[prim_eqtb_base+#]) {equivalent value} +@d prim_eq_level(#)==prim_eq_level_field(prim_eqtb[#]) {level of definition} +@d prim_eq_type(#)==prim_eq_type_field(prim_eqtb[#]) {command code for equivalent} +@d prim_equiv(#)==prim_equiv_field(prim_eqtb[#]) {equivalent value} @@ -6472 +6457,0 @@ -@d biggest_char=255 { 65535 in XeTeX } @@ -6476,0 +6462 @@ +@!prim_eqtb:array[0..prim_size] of memory_word; @@ -6481,0 +6468,4 @@ +prim_eq_level(0) := level_zero; +prim_eq_type(0) := undefined_cs; +prim_equiv(0) := null; +for k:=1 to prim_size do prim_eqtb[k]:=prim_eqtb[0]; @@ -6566,4 +6556,5 @@ -if s<=biggest_char then begin - if s<0 then begin p:=undefined_primitive; goto found; end - else p:=(s mod prim_prime)+prim_base; {we start searching here} - end +if s<256 then begin + p := s; + if (p<0) or (prim_eq_level(p)<>level_one) then + p := undefined_primitive; +end @@ -6574,14 +6565,11 @@ - p:=h+prim_base; {we start searching here; note that |0<=h1+biggest_char then { |p| points a multi-letter primitive } - begin if length(prim_text(p)-1)=l then - if str_eq_str(prim_text(p)-1,s) then goto found; - end - else if prim_text(p)=1+s then goto found; { |p| points a single-letter primitive } - if prim_next(p)=0 then - begin if no_new_control_sequence then - p:=undefined_primitive - else @; - goto found; + p:=h+prim_base; {we start searching here; note that |0<=h0 then if length(prim_text(p))=l then + if str_eq_str(prim_text(p),s) then goto found; + if prim_next(p)=0 then + begin if no_new_control_sequence then + p:=undefined_primitive + else @; + goto found; + end; + p:=prim_next(p); @@ -6589 +6576,0 @@ - p:=prim_next(p); @@ -6602 +6589 @@ -prim_text(p):=s+1; +prim_text(p):=s; @@ -6630 +6617 @@ - begin print_esc("csname"); print_esc("endcsname"); print_char(" "); + begin print_esc("csname"); print_esc("endcsname"); @@ -6641,3 +6628 @@ -else begin - if (p>=prim_eqtb_base)and(p=prim_eqtb_base)and(p=cs_token_flag|, $t$ points to an |eqtb| location -|t - cs_token_flag|. - -\textindent{--} If |t; @@ -8891 +8825,0 @@ -@!b:boolean; {keep track of nested csnames} @@ -8976 +8910 @@ - cur_cs := prim_lookup(cur_cs-single_base) + cur_cs := prim_lookup(cur_cs-257) @@ -8996,29 +8929,0 @@ -@ This block deals with unexpandable \.{\\primitive} appearing at a spot where -an integer or an internal values should have been found. It fetches the -next token then resets |cur_cmd|, |cur_cs|, and |cur_tok|, based on the -primitive value of that token. No expansion takes place, because the -next token may be all sorts of things. This could trigger further -expansion creating new errors. - -@= -begin -get_token; -if cur_cs < hash_base then - cur_cs := prim_lookup(cur_cs-single_base) -else - cur_cs := prim_lookup(text(cur_cs)); -if cur_cs<>undefined_primitive then begin - cur_cmd := prim_eq_type(cur_cs); - cur_chr := prim_equiv(cur_cs); - cur_cs := prim_eqtb_base+cur_cs; - cur_tok := cs_token_flag+cur_cs; - end -else begin - cur_cmd := relax; - cur_chr := 0; - cur_tok := cs_token_flag+frozen_relax; - cur_cs := frozen_relax; - end; -goto restart; -end - @@ -9049 +8954 @@ -b := is_in_csname; is_in_csname := true; +is_in_csname := true; @@ -9054 +8959 @@ -is_in_csname := b; +is_in_csname := false; @@ -9559 +9463,0 @@ -@!save_cur_cs:pointer; {to save |cur_cs|} @@ -9561 +9464,0 @@ -save_cur_cs:=cur_cs; @@ -9572 +9474,0 @@ - cur_cs:=save_cur_cs; @@ -9673 +9575 @@ -label exit, restart; +label exit; @@ -9676,2 +9578 @@ -@!q,@!r:pointer; {general purpose indices} -@!tx:pointer; {effective tail node} +@!q:halfword; {general purpose index} @@ -9680 +9581 @@ -begin restart: m:=cur_chr; +begin m:=cur_chr; @@ -9700,2 +9600,0 @@ -ignore_spaces: {trap unexpandable primitives} - if cur_chr=1 then @; @@ -9923,2 +9822 @@ -@ Here is where \.{\\lastpenalty}, \.{\\lastkern}, \.{\\lastskip}, and -\.{\\lastnodetype} are +@ Here is where \.{\\lastpenalty}, \.{\\lastkern}, and \.{\\lastskip} are @@ -9925,0 +9824 @@ +A final \.{\\endM} node is temporarily removed. @@ -9930,15 +9828,0 @@ -The macro |find_effective_tail_eTeX| sets |tx| to the last non-\.{\\endM} -node of the current list. - -@d find_effective_tail_eTeX== -tx:=tail; -if not is_char_node(tx) then - if (type(tx)=math_node)and(subtype(tx)=end_M_code) then - begin r:=head; - repeat q:=r; r:=link(q); - until r=tx; - tx:=q; - end -@# -@d find_effective_tail==find_effective_tail_eTeX - @@ -9971,4 +9855 @@ - if shellenabledp then begin - if restrictedshell then cur_val :=2 - else cur_val := 1; - end + if shell_enabled_p then cur_val := 1 @@ -9983 +9863,0 @@ - find_effective_tail; @@ -9986 +9866 @@ - if (tx=head)or(mode=0) then cur_val:=-1; + if (tail=head)or(mode=0) then cur_val:=-1; @@ -9989 +9869,3 @@ - if not is_char_node(tx)and(mode<>0) then + if not is_char_node(tail)and(mode<>0) then + begin if (type(tail)=math_node)and(subtype(tail)=end_M_code) then + remove_end_M; @@ -9991,10 +9873,14 @@ - int_val: if type(tx)=penalty_node then cur_val:=penalty(tx); - dimen_val: if type(tx)=kern_node then cur_val:=width(tx); - glue_val: if type(tx)=glue_node then - begin cur_val:=glue_ptr(tx); - if subtype(tx)=mu_glue then cur_val_level:=mu_val; - end; - last_node_type_code: if type(tx)<=unset_node then cur_val:=type(tx)+1 - else cur_val:=unset_node+2; - end {there are no other cases} - else if (mode=vmode)and(tx=head) then + int_val: if type(tail)=penalty_node then cur_val:=penalty(tail); + dimen_val: if type(tail)=kern_node then cur_val:=width(tail); + glue_val: if type(tail)=glue_node then + begin cur_val:=glue_ptr(tail); + if subtype(tail)=mu_glue then cur_val_level:=mu_val; + end; + last_node_type_code: + if (type(tail)<>math_node)or(subtype(tail)<>end_M_code) then + if type(tail)<=unset_node then cur_val:=type(tail)+1 + else cur_val:=unset_node+2; + end; {there are no other cases} + if LR_temp<>null then insert_end_M; + end + else if (mode=vmode)and(tail=head) then @@ -10200 +10086 @@ -label done, restart; +label done; @@ -10208 +10093,0 @@ -restart: @@ -10210,2 +10094,0 @@ -else if cur_tok=cs_token_flag+frozen_primitive then - @ @@ -10515 +10398 @@ -The new Cicero follows the new Didot point; $\rm 1\,nc=12\,nd$. +The new Cicero follows the new Didot point; $\rm 1\,nc=12\,nd$. @@ -10778 +10661,9 @@ -@d pdftex_convert_codes = pdftex_first_expand_code + 26 {end of \pdfTeX's command codes} +@d pdf_includelayers_code = pdftex_first_expand_code + 26 {number of layers of the last included pdf} +@d pdf_layername_code = pdftex_first_expand_code + 27 {name of a layer} +@d pdf_layernumber_code = pdftex_first_expand_code + 28 {new object number of a layer} +@d expanded_code = pdftex_first_expand_code + 29 {command code for \.{\\expanded}} +@d pdf_ocg_numbers_code = pdftex_first_expand_code + 30 {number of ocgs of an included pdf} +@d pdf_ocg_name_code = pdftex_first_expand_code + 31 {name of an ocg} +@d pdf_ocg_obj_number_code = pdftex_first_expand_code + 32 {object number an ocg} +@d pdf_ocg_merge_code = pdftex_first_expand_code + 33 {merge ocgs} +@d pdftex_convert_codes = pdftex_first_expand_code + 34 {end of \pdfTeX's command codes} @@ -10818,0 +10710,2 @@ +primitive("expanded",convert,expanded_code);@/ +@!@:expanded_}{\.{\\expanded} primitive@> @@ -10847,0 +10741,14 @@ +primitive("pdfnumberoflayers",convert,pdf_includelayers_code);@/ +@!@:pdf_includelayers_}{\.{\\pdfnumberoflayers} primitive@> +primitive("pdflayername",convert,pdf_layername_code);@/ +@!@:pdf_layername_}{\.{\\pdflayername} primitive@> +primitive("pdflayerobjectnumber",convert,pdf_layernumber_code);@/ +@!@:pdf_layernumber_}{\.{\\pdflayerobjectnumber} primitive@> +primitive("pdfocgsnumber",convert,pdf_ocg_numbers_code);@/ +@!@:pdf_ocg_numbers_}{\.{\\pdfocgsnumber} primitive@> +primitive("pdfocgname",convert,pdf_ocg_name_code);@/ +@!@:pdf_ocg_name_}{\.{\\pdfocgname} primitive@> +primitive("pdfocgobjnumber",convert,pdf_ocg_obj_number_code);@/ +@!@:pdf_ocg_obj_number_}{\.{\\pdfocgobjnumber} primitive@> +primitive("pdfocgmerge",convert,pdf_ocg_merge_code);@/ +@!@:pdf_ocg_merge_}{\.{\\pdfocgmerge} primitive@> @@ -10869,0 +10777 @@ + expanded_code: print_esc("expanded"); @@ -10882,0 +10791,7 @@ + pdf_includelayers_code: print_esc("pdfnumberoflayers"); + pdf_layername_code: print_esc("pdflayername"); + pdf_layernumber_code: print_esc("pdflayerobjectnumber"); + pdf_ocg_numbers_code: print_esc("pdfocgnumbers"); + pdf_ocg_name_code: print_esc("pdfocgname"); + pdf_ocg_obj_number_code: print_esc("pdfocgobjnumber"); + pdf_ocg_merge_code: print_esc("pdfocgmerge"); @@ -10947,3 +10862,2 @@ - scan_register_num; - fetch_box(p); - if (p = null) or (type(p) <> hlist_node) then + scan_int; + if (box(cur_val) = null) or (type(box(cur_val)) <> hlist_node) then @@ -11035,0 +10950,14 @@ +expanded_code: + begin + save_scanner_status := scanner_status; + save_warning_index := warning_index; + save_def_ref := def_ref; + save_cur_string; + scan_pdf_ext_toks; + warning_index := save_warning_index; + scanner_status := save_scanner_status; + ins_list(link(def_ref)); + def_ref := save_def_ref; + restore_cur_string; + return; + end; @@ -11260,0 +11189,85 @@ +pdf_includelayers_code: do_nothing; +pdf_layername_code, pdf_layernumber_code: + begin + scan_int; + if pdf_includelayers<1 then + pdf_error("pdf inclusion", "No layers found, but trying to select layers"); + if cur_val<1 then + begin + print_err("pdf inclusion: Only positive layer numbers allowed"); + error; + end + else + if cur_val > pdf_includelayers then + begin + print_err("pdf inclusion: layer "); + print_int(cur_val); + print(" does not exist (only "); + print_int(pdf_includelayers); + print(")"); + help2("The pdf you tried to include does not have as many layers") + ("as you think. Please specify a smaller number."); + error; + end + else + begin + b := pool_ptr; + case c of + pdf_layername_code: pdflayernamesgetname(cur_val); + pdf_layernumber_code: pdflayerobjectnumbersget(cur_val); + end; + link(garbage) := str_toks(b); + ins_list(link(temp_head)); + end; + return; + end; +pdf_ocg_numbers_code, pdf_ocg_name_code, pdf_ocg_obj_number_code, pdf_ocg_merge_code: begin + scan_int; + pdf_check_obj(obj_type_ximage, cur_val); + if c = pdf_ocg_numbers_code then + cur_val := pdfocgnumbersget(obj_ximage_data(cur_val)) + else begin + i := obj_ximage_data(cur_val); + j := pdfocgnumbersget(i); + scan_int; + if j = 0 then begin + print_err("pdf inclusion: No OCGs found"); + help1("The pdf you tried to include does not have any OCGs"); + error; + end; + if cur_val < 1 then begin + print_err("pdf inclusion: Only positive OCG numbers allowed"); + help1("The OCGs are numbered from one onwards"); + error; + end + else + if cur_val > j then begin + print_err("pdf inclusion: ocg "); + print_int(cur_val); + print(" does not exist (only "); + print_int(j); + print(")"); + help2("The pdf you tried to include does not have as many OCGs") + ("as you think. Please specify a smaller number."); + error; + end + else begin + case c of + pdf_ocg_name_code: begin + b := pool_ptr; + pdfocggetname(i, cur_val - 1); + link(garbage) := str_toks(b); + ins_list(link(temp_head)); + end; + pdf_ocg_obj_number_code: begin + cur_val := pdfocggetobjnumber(i, cur_val - 1); + end; + pdf_ocg_merge_code: begin + j := cur_val - 1; + scan_int; + pdfocgmerge(i, j, cur_val); + end; + end + end + end + end; @@ -11292,5 +11305,3 @@ - p := list_ptr(p); - while (p <> null) and - (cp_skipable(p) or - ((not is_char_node(p)) and (type(p) = glue_node) and (subtype(p) = left_skip_code + 1))) - do + p := list_ptr(box(cur_val)); + if (p <> null) and (not is_char_node(p)) and + (type(p) = glue_node) and (subtype(p) = left_skip_code + 1) then @@ -11306,7 +11317,8 @@ - q := list_ptr(p); - p := prev_rightmost(q, null); - while (p <> null) and - (cp_skipable(p) or - ((not is_char_node(p)) and (type(p) = glue_node) and (subtype(p) = right_skip_code + 1))) - do - p := prev_rightmost(q, p); + q := list_ptr(box(cur_val)); + p := null; + if q <> null then begin + p := prev_rightmost(q, null); + if (p <> null) and (not is_char_node(p)) and + (type(p) = glue_node) and (subtype(p) = right_skip_code + 1) then + p := prev_rightmost(q, p); + end; @@ -11347,0 +11360,3 @@ +pdf_includelayers_code: print_int(pdf_includelayers); +pdf_ocg_numbers_code: print_int(cur_val); +pdf_ocg_obj_number_code: print_int(cur_val); @@ -11794 +11808,0 @@ -@!e:boolean; {keep track of nested csnames} @@ -11858 +11872 @@ - m := prim_lookup(cur_cs-single_base) + m := prim_lookup(cur_cs-257) @@ -12493,0 +12508 @@ +@; @@ -13028 +13043,3 @@ -bad_tfm: @; +bad_tfm: if suppress_fontnotfound_error=0 then begin + @; + end; @@ -13229,29 +13246 @@ -@p function store_scaled_f(sq, z: scaled): scaled; -var a,b,c,d:eight_bits; sw:scaled; -alpha:integer; -beta:1..16; -begin - alpha:=16; - if z>=@'1000000000 then pdf_error("font", "size is too large"); - while z>=@'40000000 do - begin z:=z div 2; alpha:=alpha+alpha; - end; - beta:=256 div alpha; alpha:=alpha*z; - if sq >= 0 then begin - d:=sq mod 256; sq:=sq div 256; {any "mod 256" not really needed, would typecast alone be safe?} - c:=sq mod 256; sq:=sq div 256; - b:=sq mod 256; sq:=sq div 256; - a:=sq mod 256; - end else begin - sq:=(sq+1073741824)+1073741824; {braces for optimizing compiler} - d:=sq mod 256; sq:=sq div 256; - c:=sq mod 256; sq:=sq div 256; - b:=sq mod 256; sq:=sq div 256; - a:=(sq+128) mod 256; - end; - sw:=(((((d*z)div@'400)+(c*z))div@'400)+(b*z))div beta; - if a=0 then store_scaled_f:=sw@+else if a=255 then store_scaled_f:=sw-alpha@+else pdf_error("store_scaled_f", "vf scaling"); -end; - - -@ @= +@= @@ -13269 +13257,0 @@ -if z>=@'1000000000 then pdf_error("font", "size is too large"); @@ -14455,6 +14443,3 @@ -@d reversed=1 {subtype for an |hlist_node| whose hlist has been reversed} -@d dlist=2 {subtype for an |hlist_node| from display math mode} -@d box_lr(#) == (qo(subtype(#))) {direction mode of a box} -@d set_box_lr(#) == subtype(#):=set_box_lr_end -@d set_box_lr_end(#) == qi(#) -@# +@d reversed=min_quarterword+1 {subtype for an |hlist_node| whose hlist + has been reversed} +@d dlist=min_quarterword+2 {subtype for an |hlist_node| from display math mode} @@ -14562,0 +14548 @@ +@; @@ -14564,0 +14551 @@ +@; @@ -14610,4 +14597,13 @@ -glue_node: @; -margin_kern_node, -kern_node:cur_h:=cur_h+width(p); -math_node: @; +glue_node: begin + @ + @; +end; +margin_kern_node:cur_h:=cur_h+width(p); +kern_node: begin + @; + cur_h:=cur_h+width(p); +end; +math_node: begin + @; + @; +end; @@ -14914 +14910,3 @@ -begin if tracing_output>0 then +begin + @ + if tracing_output>0 then @@ -15049,0 +15048 @@ +pdf_suppress_ptex_info := 0; @@ -15058,0 +15058 @@ +pdf_includelayers := 0; @@ -15073,10 +15072,0 @@ -function get_pdf_suppress_warning_dup_map: integer; -begin - get_pdf_suppress_warning_dup_map := pdf_suppress_warning_dup_map; -end; - -function get_pdf_suppress_warning_page_group: integer; -begin - get_pdf_suppress_warning_page_group := pdf_suppress_warning_page_group; -end; - @@ -15303 +15293 @@ -@!pdf_ptr: integer; {pointer to the first unused byte in the PDF buffer or object stream buffer} +@!pdf_ptr: longinteger; {pointer to the first unused byte in the PDF buffer or object stream buffer} @@ -15331,0 +15322,2 @@ +@!pdf_includelayers: integer; +@!page_divert_val: integer; @@ -15350 +15342,3 @@ - +pdf_includelayers := 0; +page_divert_val := 0; +pdf_page_group_val := -1; @@ -15464 +15457,0 @@ - pdf_last_byte := 0; @@ -15489 +15482,2 @@ - pdf_out(pdf_new_line_char); + if pdf_last_byte <> pdf_new_line_char then + pdf_out(pdf_new_line_char); @@ -15787 +15781 @@ - if isscalable(f) then begin + if hasfmentry(f) then begin @@ -15878 +15871,0 @@ -@!pdf_dummy_font: internal_font_number; {font used to insert artificial interword spaces} @@ -15998 +15991 @@ - if not isscalable(b) then + if not hasfmentry(b) then @@ -16009 +16002 @@ - if isscalable(f) then begin + if hasfmentry(f) then begin @@ -16013 +16006 @@ - if isscalable(k) and + if hasfmentry(k) and @@ -16086,16 +16079 @@ -procedure pdf_read_dummy_font; -begin - if pdf_dummy_font = null_font then begin - pdf_dummy_font := read_font_info(null_cs, "dummy-space", "", one_bp); - pdf_mark_char(pdf_dummy_font, 32); - end; -end; - -procedure pdf_insert_interword_space; -{insert an artificial interword space} -begin - pdf_read_dummy_font; - pdf_set_font(pdf_dummy_font); - pdf_print("( )Tj"); -end; - +@ @p @@ -16105,2 +16082,0 @@ - must_end_string: boolean; {must we end the current string?} - must_insert_space: boolean; {must we insert an interword space?} @@ -16141,24 +16117 @@ - - must_insert_space := false; - must_end_string := false; - -@{ print_nl("s_out = "); print_scaled(s_out); @} -@{ print_nl("space(f) = "); print_scaled(space(f)); @} -@{ print_nl("space_shrink(f) = "); print_scaled(space_shrink(f)); @} -@{ print_nl("x_height(f) = "); print_scaled(x_height(f)); @} -@{ print_nl("v = "); print_scaled(v); @} -@{ print_nl("v_out = "); print_scaled(v_out); @} - - if gen_faked_interword_space and - ((abs(v_out) > 2*x_height(f)) or - (s_out > space(f) - space_shrink(f)) or - ((f <> pdf_f) and (v = 0))) then - begin - must_insert_space := true; - end; - - if (f <> pdf_f) or (v <> 0) or (abs(s) >= @'100000) or must_insert_space then begin - must_end_string := true; - end; - - if must_end_string then begin + if (f <> pdf_f) or (v <> 0) or (abs(s) >= @'100000) then begin @@ -16166,4 +16118,0 @@ - if must_insert_space then begin - pdf_insert_interword_space; {this will change |pdf_f|} - pdf_set_font(f); - end; @@ -16174 +16122,0 @@ - @@ -16180 +16127,0 @@ - @@ -16191,15 +16137,0 @@ -procedure pdf_insert_fake_space; -var s: integer; {to save |gen_faked_interword_space|} -begin - s := gen_faked_interword_space; - gen_faked_interword_space := 0; {to prevent inserting another fake space in |pdf_begin_string|} - - pdf_read_dummy_font; - pdf_begin_string(pdf_dummy_font); - pdf_print(" "); - pdf_end_string_nl; - - gen_faked_interword_space := s; -end; - - @@ -16220 +16152 @@ - pdf_set_origin_temp(x, y - (h + 1)/2); + pdf_set_origin_temp(cur_h, cur_v - (h + 1)/2); @@ -16226 +16158 @@ - pdf_set_origin_temp(x + (w + 1)/2, y); + pdf_set_origin_temp(cur_h + (w + 1)/2, cur_v); @@ -16232 +16164 @@ - pdf_set_origin_temp(x, y); + pdf_set_origin_temp(cur_h, cur_v); @@ -16252,13 +16183,0 @@ -{Prints first |len| characters of string |s| (if it's that long). - There must be a better way to print a substring?} -procedure slow_print_substr(@!s,@!max_len:integer); -var j:pool_pointer; {current character code position} -begin if (s>=str_ptr) or (s<256) then print(s) -else begin j:=str_start[s]; - while (j>"); - pdf_print_ln("endobj"); - end; + end else + pdf_print_ln(">> endobj"); @@ -17053 +16960,0 @@ -@!pdf_font_nobuiltin_tounicode: ^boolean; {disable generating ToUnicode for this font?} @@ -17342,3 +17249,3 @@ - if (font_area[k] <> non_existent_path) and - str_eq_str(font_name[k], s) and - (font_size[k] = fs) then + if (font_area[k] <> non_existent_path) and + str_eq_str(font_name[k], s) and + (font_size[k] = fs) then @@ -17353 +17260 @@ - if (font_area[k] <> non_existent_path) and + if (font_area[k] <> non_existent_path) and @@ -17520 +17427 @@ - + @@ -17525 +17432 @@ - + @@ -17602 +17509 @@ - if w >= 0 then + if w > 0 then @@ -17857,2 +17764 @@ -function vf_read_signed(k: integer): integer; -{read |k| bytes as an signed integer from \.{VF} file} +function vf_read(k: integer): integer; {read |k| bytes as an integer from \.{VF} file} @@ -17863 +17769 @@ - if i >= 128 then + if (k = 4) and (i > 127) then @@ -17870,17 +17776 @@ - vf_read_signed := i; -end; - -function vf_read_unsigned(k: integer): integer; -{read |k| bytes as an unsigned integer from \.{VF} file} -var i: integer; -begin - pdfassert((k > 0) and (k <= 4)); - i := vf_byte; - if (k = 4) and (i >= 128) then - bad_vf("number too big"); - decr(k); - while k > 0 do begin - i := i*256 + vf_byte; - decr(k); - end; - vf_read_unsigned := i; + vf_read := i; @@ -17909,2 +17799,2 @@ - fs := store_scaled_f(vf_read_signed(4), font_size[f]); - ds := vf_read_signed(4) div @'20; + fs := sqxfw(vf_read(4), font_size[f]); + ds := vf_read(4) div @'20; @@ -17992 +17882 @@ -if vf_read_signed(4) div @'20 <> font_dsize[f] then begin +if vf_read(4) div @'20 <> font_dsize[f] then begin @@ -18004 +17894 @@ - vf_e_fnts[vf_nf] := vf_read_unsigned(cmd - fnt_def1 + 1); + vf_e_fnts[vf_nf] := vf_read(cmd - fnt_def1 + 1); @@ -18017,2 +17907,2 @@ - packet_length := vf_read_unsigned(4); - cc := vf_read_unsigned(4); + packet_length := vf_read(4); + cc := vf_read(4); @@ -18021 +17911 @@ - tfm_width := store_scaled_f(vf_read_signed(4), font_size[f]); + tfm_width := sqxfw(vf_read(4), font_size[f]); @@ -18028 +17918 @@ - tfm_width := store_scaled_f(vf_read_unsigned(3), font_size[f]); + tfm_width := sqxfw(vf_read(3), font_size[f]); @@ -18034 +17924 @@ -if tfm_width <> char_width(f)(char_info(f)(cc)) then begin +if abs(tfm_width - char_width(f)(char_info(f)(cc))) > 1 then begin @@ -18070 +17960 @@ - k := vf_read_unsigned(cmd - fnt1 + 1); + k := vf_read(cmd - fnt1 + 1); @@ -18103 +17993 @@ - cmd_length := vf_read_unsigned(cmd - xxx1 + 1); + cmd_length := vf_read(cmd - xxx1 + 1); @@ -18203,2 +18093,2 @@ -@p function packet_read_signed(k: integer): integer; -{read |k| bytes as a signed integer from character packet} +@p function packet_read(k: integer): integer; {read |k| bytes as an integer from +character packet} @@ -18209 +18099 @@ - if i >= 128 then + if (k = 4) and (i > 127) then @@ -18216,17 +18106 @@ - packet_read_signed := i; -end; - -function packet_read_unsigned(k: integer): integer; -{read |k| bytes as an unsigned integer from character packet} -var i: integer; -begin - pdfassert((k > 0) and (k <= 4)); - i := packet_byte; - if (k = 4) and (i >= 128) then - bad_vf("number too big"); - decr(k); - while k > 0 do begin - i := i*256 + packet_byte; - decr(k); - end; - packet_read_unsigned := i; + packet_read := i; @@ -18235,4 +18109,14 @@ -function packet_scaled(k: integer; fs: scaled): scaled; -{get |k| bytes from packet as scaled} -begin - packet_scaled := store_scaled_f(packet_read_signed(k), fs); +function packet_scaled(k: integer; fs: scaled): scaled; {get |k| bytes from packet as a +scaled} +var fw: integer; +begin + fw := packet_read(k); + case k of + 1: if fw > 127 then + fw := fw - 256; + 2: if fw > @"8000 then + fw := fw - @"10000; + 3: if fw > @"800000 then + fw := fw - @"1000000; + endcases; + packet_scaled := sqxfw(fw, fs); @@ -18330 +18214 @@ - tmp_int := packet_read_unsigned(cmd - set1 + 1); + tmp_int := packet_read(cmd - set1 + 1); @@ -18334 +18218 @@ - tmp_int := packet_read_unsigned(cmd - put1 + 1); + tmp_int := packet_read(cmd - put1 + 1); @@ -18378 +18262 @@ - tmp_int := packet_read_unsigned(cmd - xxx1 + 1); + tmp_int := packet_read(cmd - xxx1 + 1); @@ -18452 +18336 @@ - othercases confusion("pdfcolorstack") + othercases do_nothing @@ -18493,15 +18377,11 @@ - if pdfsetmatrix(str_start[str_ptr], cur_h, cur_page_height - cur_v) = 1 then begin - str_room(7); - append_char(" "); - append_char("0"); - append_char(" "); - append_char("0"); - append_char(" "); - append_char("c"); - append_char("m"); - s := make_string; - literal(s, set_origin, false); - end - else begin - pdf_error("\pdfsetmatrix", "Unrecognized format."); - end; + pdfsetmatrix(str_start[str_ptr], cur_h, cur_page_height - cur_v); + str_room(7); + append_char(" "); + append_char("0"); + append_char(" "); + append_char("0"); + append_char(" "); + append_char("c"); + append_char("m"); + s := make_string; + literal(s, set_origin, false); @@ -18589,0 +18470 @@ +@; @@ -18592,0 +18474 @@ +@; @@ -18627,4 +18509,13 @@ -glue_node: @<(\pdfTeX) Move right or output leaders@>; -margin_kern_node, -kern_node:cur_h:=cur_h+width(p); -math_node: @; +glue_node: begin + @ + @<(\pdfTeX) Move right or output leaders@>; +end; +margin_kern_node:cur_h:=cur_h+width(p); +kern_node: begin + @; + cur_h:=cur_h+width(p); +end; +math_node: begin + @; + @; +end; @@ -18887,22 +18777,0 @@ -@ |substr_of_str| is used in |pdf_ship_out| and |pdf_print_info|. -@p function substr_of_str(s, t: str_number):boolean; -label continue,exit; -var j, k, kk: pool_pointer; {running indices} -begin - k:=str_start[t]; - while (k < str_start[t+1] - length(s)) do begin - j:=str_start[s]; - kk:=k; - while (j < str_start[s+1]) do begin - if str_pool[j] <> str_pool[kk] then - goto continue; - incr(j); - incr(kk); - end; - substr_of_str:=true; - return; - continue: incr(k); - end; - substr_of_str:=false; -end; - @@ -18916,2 +18784,0 @@ -s: pool_pointer; {index into |str_pool|} -mediabox_given: boolean; @@ -18925 +18792,3 @@ -begin if tracing_output>0 then +begin + @ + if tracing_output>0 then @@ -18974 +18842,0 @@ -pdf_page_group_val := 0; @@ -19186,0 +19055 @@ +pdf_last_pages := pdf_do_page_divert(pdf_last_page, page_divert_val); @@ -19190,12 +19059,4 @@ -mediabox_given:=false; -if pdf_page_attr <> null then begin - s:=tokens_to_string(pdf_page_attr); - mediabox_given:=substr_of_str("/MediaBox", s); - flush_str(s); -end; -if not mediabox_given then begin - pdf_print("/MediaBox [0 0 "); - pdf_print_mag_bp(cur_page_width); pdf_out(" "); - pdf_print_mag_bp(cur_page_height); - pdf_print_ln("]"); -end; +pdf_print("/MediaBox [0 0 "); +pdf_print_mag_bp(cur_page_width); pdf_out(" "); +pdf_print_mag_bp(cur_page_height); +pdf_print_ln("]"); @@ -19204 +19065 @@ -@; +pdf_indirect_ln("Parent", pdf_last_pages); @@ -19208,0 +19070 @@ + pdf_page_group_val := -1; @@ -19213,7 +19074,0 @@ -@ @= -if total_pages mod pages_tree_kids_max = 1 then begin - pdf_create_obj(obj_type_pages, pages_tree_kids_max); - pdf_last_pages := obj_ptr; -end; -pdf_indirect_ln("Parent", pdf_last_pages) - @@ -19274,6 +19129,2 @@ - if not eof(f) then begin {at least one byte available} - while not eof(f) do - pdf_out(getc(f)); - if (not obj_obj_is_stream(n)) and (pdf_ptr > 0) and (pdf_buf[pdf_ptr - 1] <> 10) then - pdf_out(10); - end; + while not eof(f) do + pdf_out(getc(f)); @@ -19313,3 +19163,0 @@ -@ @= -@!saved_pdf_cur_form: integer; - @@ -19325 +19172,0 @@ - saved_pdf_cur_form := pdf_cur_form; @@ -19330 +19176,0 @@ - pdf_cur_form := saved_pdf_cur_form; @@ -19634 +19480,2 @@ -kpse_set_program_enabled (kpse_pk_format, 1, kpse_src_compile); +if not kpse_var_value('MKTEXPK') then + kpse_set_program_enabled (kpse_pk_format, 1, kpse_src_cmdline); @@ -19641,43 +19488,5 @@ -The following procedures sort the table of destination names. -@d get_next_char(#)== - c@&# := str_pool[j@&#]; - incr(j@&#); - if (c@&# = 92) and (j@&# < e@&#) then begin - c@&# := str_pool[j@&#]; - incr(j@&#); - if (c@&# >= 48) and (c@&# <= 55) then begin - c@&# := c@&# - 48; - if (j@&# < e@&#) and (str_pool[j@&#] >= 48) - and (str_pool[j@&#] <= 55) then begin - c@&# := 8 * c@&# + str_pool[j@&#] - 48; - incr(j@&#); - if (j@&# < e@&#) and (str_pool[j@&#] >= 48) - and (str_pool[j@&#] <= 55) - and (c@&# < 32) then begin - c@&# := 8 * c@&# + str_pool[j@&#] - 48; - incr(j@&#); - end; - end; - end else begin - case c@&# of - 98: c@&# := 8; {`\.b': backspace} - 102: c@&# := 12; {`\.f': form feed} - 110: c@&# := 10; {`\.n': line feed} - 114: c@&# := 13; {`\.r': carriage return} - 116: c@&# := 9; {`\.t': horizontal tab} - {nothing to do for `\.{\\}', `\.(', `\.)'} - othercases do_nothing - endcases; - end; - end - -@p function str_less_str(s1, s2: str_number): boolean; {compare two pdf strings} -var j1, j2, e1, e2: pool_pointer; - c1, c2: packed_ASCII_code; -begin - {Minimal requirement: output of \.{\\pdfescapestring} must be supported.} - {This implementation also supports all escape sequences} - {listed in the table `Escape sequences in literal strings'} - {of the pdf specification.} - {End-of-line markers are not detected:} - {The marker is not replaced by `\.{\\n}' or removed if it is escaped.} +The following procedures sort the table of destination names +@p function str_less_str(s1, s2: str_number): boolean; {compare two strings} +var j1, j2: pool_pointer; + l, i: integer; +begin @@ -19686,19 +19495,9 @@ - e1 := j1 + length(s1); - e2 := j2 + length(s2); - while (j1 < e1) and (j2 < e2) do begin - {get next character of first string} - get_next_char(1); - {get next character of second string} - get_next_char(2); - {compare characters} - if c1 < c2 then begin - str_less_str := true; - return; - end - else if c1 > c2 then begin - str_less_str := false; - return; - end; - end; - {compare string lengths} - if (j1 >= e1) and (j2 < e2) then + if length(s1) < length(s2) then + l := length(s1) + else + l := length(s2); + i := 0; + while (i < l) and (str_pool[j1 + i] = str_pool[j2 + i]) do + incr(i); + if ((i < l) and (str_pool[j1 + i] < str_pool[j2 + i])) or + ((i = l) and (length(s1) < length(s2))) then @@ -19708 +19507 @@ -exit: end; +end; @@ -19751,3 +19549,0 @@ - if total_pages mod pages_tree_kids_max <> 0 then - obj_info(pdf_last_pages) := total_pages mod pages_tree_kids_max; - {last pages object may have less than |pages_tree_kids_max| children} @@ -19756 +19551,0 @@ - @; @@ -19759 +19554 @@ - @

; + pdf_last_pages := output_pages_tree; @@ -19763,0 +19559,2 @@ + write_properties; + write_ocgs; @@ -19833,21 +19629,0 @@ -@ @= -k := head_tab[obj_type_page]; -l := 0; -repeat - i := obj_link(k); - obj_link(k) := l; - l := k; - k := i; -until k = 0; -head_tab[obj_type_page] := l; -k := head_tab[obj_type_pages]; -pages_tail := k; -l := 0; -repeat - i := obj_link(k); - obj_link(k) := l; - l := k; - k := i; -until k = 0; -head_tab[obj_type_pages] := l - @@ -19887,67 +19663,5 @@ -@ We will generate in each single step the parents of all Pages/Page objects in -the previous level. These new generated Pages object will create a new level of -the Pages tree. We will repeat this until we have only one Pages object. This -one will be the Root object. - -@

= -a := sys_obj_ptr + 1; {all Pages objects whose children are not Page objects - should have index greater than |a|} -l := head_tab[obj_type_pages]; {|l| is the index of current Pages object - which is being output} -k := head_tab[obj_type_page]; {|k| is the index of current child of |l|} -b := 0; -repeat - i := 0; {counter of Pages object in current level} - c := 0; {first Pages object in previous level} - if obj_link(l) = 0 then - is_root := true {only Pages object; total pages is - not greater than |pages_tree_kids_max|} - else - is_root := false; - repeat - if not is_root then begin - if i mod pages_tree_kids_max = 0 then begin {create a new Pages object - for next level} - pdf_last_pages := pdf_new_objnum; - if c = 0 then - c := pdf_last_pages; - obj_link(pages_tail) := pdf_last_pages; - pages_tail := pdf_last_pages; - obj_link(pdf_last_pages) := 0; - obj_info(pdf_last_pages) := obj_info(l); - end - else - obj_info(pdf_last_pages) := obj_info(pdf_last_pages) + - obj_info(l); - end; - @

; - incr(i); - l := obj_link(l); - until (l = c); - b := c; - if l = 0 then - goto done; -until false; -done: - -@ @

= -pdf_begin_dict(l, 1); -pdf_print_ln("/Type /Pages"); -pdf_int_entry_ln("Count", obj_info(l)); -if not is_root then - pdf_indirect_ln("Parent", pdf_last_pages); -pdf_print("/Kids ["); -j := 0; -repeat - pdf_print_int(k); - pdf_print(" 0 R "); - k := obj_link(k); - incr(j); -until ((l < a) and (j = obj_info(l))) or - (k = 0) or ((k = b) and (b <> 0)) or - (j = pages_tree_kids_max); -remove_last_space; -pdf_print_ln("]"); -if k = 0 then begin - k := head_tab[obj_type_pages]; - head_tab[obj_type_pages] := 0; +@ @p +procedure print_pdf_pages_attr; +begin + if pdf_pages_attr <> null then + pdf_print_toks_ln(pdf_pages_attr); @@ -19955,3 +19668,0 @@ -if is_root and (pdf_pages_attr <> null) then - pdf_print_toks_ln(pdf_pages_attr); -pdf_end_dict; @@ -20084 +19795,22 @@ -@p procedure pdf_print_info; {print info object} +@p function substr_of_str(s, t: str_number):boolean; +label continue,exit; +var j, k, kk: pool_pointer; {running indices} +begin + k:=str_start[t]; + while (k < str_start[t+1] - length(s)) do begin + j:=str_start[s]; + kk:=k; + while (j < str_start[s+1]) do begin + if str_pool[j] <> str_pool[kk] then + goto continue; + incr(j); + incr(kk); + end; + substr_of_str:=true; + return; + continue: incr(k); + end; + substr_of_str:=false; +end; + +procedure pdf_print_info; {print info object} @@ -20088 +19820 @@ - pdf_new_dict(obj_type_others, 0, 3); {keep Info readable unless explicitly forced} + pdf_new_dict(obj_type_others, 0, 3); {keep Info readable unless explicitely forced} @@ -20114,7 +19846,5 @@ - if pdf_info_omit_date = 0 then begin - if not creationdate_given then begin - @; - end; - if not moddate_given then begin - @; - end; + if not creationdate_given then begin + @; + end; + if not moddate_given then begin + @; @@ -20126 +19856 @@ - pdf_str_entry_ln("PTEX.Fullbanner", pdftex_banner); + pdf_str_entry_ln("PTEX.Fullbanner", pdftex_banner_escaped); @@ -20147,0 +19878 @@ +@!pdftex_banner_escaped: str_number; {the complete banner escaped as a PDF string} @@ -20179,8 +19910 @@ -if ((obj_offset(sys_obj_ptr)/256) > 16777215) then - xref_offset_width := 5 -else if obj_offset(sys_obj_ptr) > 16777215 then - xref_offset_width := 4 -else if obj_offset(sys_obj_ptr) > 65535 then - xref_offset_width := 3 -else - xref_offset_width := 2; +xref_offset_width := calcxrefoffsetwidth(obj_offset(sys_obj_ptr)); @@ -20202,4 +19926 @@ -if pdf_trailer_id_toks <> null then - print_ID_alt(pdf_trailer_id_toks) -else - print_ID(output_file_name); +print_ID(output_file_name); @@ -20238,4 +19959 @@ - if pdf_trailer_id_toks <> null then - print_ID_alt(pdf_trailer_id_toks) - else - print_ID(output_file_name); + print_ID(output_file_name); @@ -20523 +20241 @@ - if not ((font(l) = font(r)) and + if not ((font(l) = font(r)) and @@ -20552 +20270 @@ - if not ((font(l) = font(r)) and + if not ((font(l) = font(r)) and @@ -20724 +20442 @@ - ins_node,mark_node,adjust_node: if (adjust_tail<>null) or (pre_adjust_tail<> null) then + ins_node,mark_node,adjust_node: if adjust_tail<>null then @@ -20852,2 +20569,0 @@ - if # = null then - confusion("pre vadjust"); @@ -20866 +20582 @@ - p := link(p); free_node(link(q), small_node_size); + p := link(p); free_node(link(q), small_node_size); {{\sl synctex} watch point: p is not a synchronized node} @@ -21591 +21307 @@ - print_delimiter(delimiter(p)); + print_delimiter(delimiter(p)) @@ -22080 +21796 @@ - begin free_node(r,small_node_size); link(q):=null; + begin free_node(r,medium_node_size); link(q):=null; {{\sl synctex}: r is a |kern_node|} @@ -22752 +22468 @@ -given that the subscript and superscript aren't both empty. The superscript +given that subscript and superscript aren't both empty. The superscript @@ -23172 +22887,0 @@ -cur_pre_head:=get_avail; @@ -23178 +22892,0 @@ -free_avail(cur_pre_head); @@ -23776 +23490 @@ - if nest[nest_ptr-1].mode_field=mmode then set_box_lr(q)(dlist); {for |ship_out|} + if nest[nest_ptr-1].mode_field=mmode then subtype(q):=dlist; {for |ship_out|} @@ -23795 +23509 @@ -set_box_lr(r)(0); {for |ship_out|} +subtype(r):=min_quarterword; {for |ship_out|} @@ -23927 +23641 @@ -is in use; |prev_graf| is zero unless this paragraph is being continued +are in use; |prev_graf| is zero unless this paragraph is being continued @@ -25313 +25027 @@ -math_node: begin if subtype(cur_p)=L_code) then goto continue @@ -26027 +25738,0 @@ - math_node: if subtype(s)>=L_code then goto done4@+else goto done1; @@ -26280 +25991 @@ - link(cur_q):=p; t:=p; ligature_present:=false; + link(cur_q):=p; t:=p; ligature_present:=false; @@ -26286 +25997,2 @@ - p:=lig_stack; lig_stack:=link(p); free_node(p,small_node_size); + p:=lig_stack; lig_stack:=link(p); + free_node(p,small_node_size); {{\sl synctex} watch point: proper size!} @@ -26293,0 +26006 @@ + mem[t+2].int:=0; {{\sl synctex}: do nothing, it is too late} @@ -27268 +26980,0 @@ -@d discard_or_move = 60 @@ -27270,2 +26981,0 @@ -label discard_or_move; - {adjust top after page break} @@ -27280,7 +26989,0 @@ - if (type(p) = whatsit_node) and - ((subtype(p) = pdf_snapy_node) or - (subtype(p) = pdf_snapy_comp_node)) then - begin - print("snap node being discarded"); - goto discard_or_move; - end; @@ -27290,6 +26992,0 @@ -discard_or_move: - @{ - print("discard_or_move: "); - show_node_list(p); - print_ln; - @} @@ -27787 +27484 @@ -type(page_head):=glue_node; subtype(page_head):=normal; +type(page_head):=glue_node; subtype(page_head):=normal; {{\sl synctex} watch point: box(|page_head|) size >= |glue_node| size} @@ -27929,8 +27626 @@ -whatsit_node: if (page_contents < box_there) and - ((subtype(p) = pdf_snapy_node) or - (subtype(p) = pdf_snapy_comp_node)) then - begin - print("snap node being discarded"); - goto done1; - end - else @ @@ -28624 +28312,0 @@ -@^inner loop@> @@ -28663 +28350,0 @@ -@^inner loop@> @@ -28683 +28370 @@ -free_node(temp_ptr,small_node_size); +free_node(temp_ptr,small_node_size); {{\sl synctex} watch point: proper size!} @@ -28876 +28563 @@ - cur_cs := prim_lookup(cur_cs-single_base) + cur_cs := prim_lookup(cur_cs-257) @@ -28882 +28568,0 @@ - cur_tok := cs_token_flag+prim_eqtb_base+cur_cs; @@ -29293,2 +28979,2 @@ -|vsplit_code|, |vtop_code|, |vtop_code+vmode|, and |vtop_code+hmode|, where -the latter two are used to denote \.{\\vbox} and \.{\\hbox}, respectively. +|vsplit_code|, |vtop_code|, |vtop_code+vmode|, and |vtop_code+hmode|, +where the latter two are used denote \.{\\vbox} and \.{\\hbox}, respectively. @@ -29459,3 +29144,0 @@ -@!r:pointer; {running behind |p|} -@!fm:boolean; {a final \.{\\beginM} \.{\\endM} node pair?} -@!tx:pointer; {effective tail node} @@ -29481,22 +29164 @@ - -@d fetch_effective_tail_eTeX(#)== {extract |tx|, - drop \.{\\beginM} \.{\\endM} pair} -q:=head; p:=null; -repeat r:=p; p:=q; fm:=false; -if not is_char_node(q) then - if type(q)=disc_node then - begin for m:=1 to replace_count(q) do p:=link(p); - if p=tx then #; - end - else if (type(q)=math_node)and(subtype(q)=begin_M_code) then fm:=true; -q:=link(p); -until q=tx; {found |r|$\to$|p|$\to$|q=tx|} -q:=link(tx); link(p):=q; link(tx):=null; -if q=null then if fm then confusion("tail1") -@:this can't happen tail1}{\quad tail1@> - else tail:=p -else if fm then {|r|$\to$|p=begin_M|$\to$|q=end_M|} - begin tail:=r; link(r):=null; flush_node_list(p);@+end -@# -@d check_effective_tail(#)==find_effective_tail_eTeX -@d fetch_effective_tail==fetch_effective_tail_eTeX +A final \.{\\endM} node is temporarily removed. @@ -29514,3 +29176,4 @@ -else begin check_effective_tail(goto done); - if not is_char_node(tx) then - if (type(tx)=hlist_node)or(type(tx)=vlist_node) then +else begin if not is_char_node(tail) then + begin if (type(tail)=math_node)and(subtype(tail)=end_M_code) then + remove_end_M; + if (type(tail)=hlist_node)or(type(tail)=vlist_node) then @@ -29518 +29181,3 @@ - done:end; + if LR_temp<>null then insert_end_M; + end; + end; @@ -29522,3 +29187,11 @@ -begin fetch_effective_tail(goto done); -cur_box:=tx; shift_amount(cur_box):=0; -end +begin q:=head; +repeat p:=q; +if not is_char_node(q) then if type(q)=disc_node then + begin for m:=1 to replace_count(q) do p:=link(p); + if p=tail then goto done; + end; +q:=link(p); +until q=tail; +cur_box:=tail; shift_amount(cur_box):=0; +tail:=p; link(p):=null; +done:end @@ -29818,0 +29492 @@ +A final \.{\\endM} node is temporarily removed. @@ -29824,3 +29497,0 @@ -@!r:pointer; {running behind |p|} -@!fm:boolean; {a final \.{\\beginM} \.{\\endM} node pair?} -@!tx:pointer; {effective tail node} @@ -29831,4 +29502,13 @@ -else begin check_effective_tail(return); - if not is_char_node(tx) then if type(tx)=cur_chr then - begin fetch_effective_tail(return); - flush_node_list(tx); +else begin if not is_char_node(tail) then + begin if (type(tail)=math_node)and(subtype(tail)=end_M_code) then + remove_end_M; + if type(tail)=cur_chr then + begin q:=head; + repeat p:=q; + if not is_char_node(q) then if type(q)=disc_node then + begin for m:=1 to replace_count(q) do p:=link(p); + if p=tail then return; + end; + q:=link(p); + until q=tail; + link(p):=null; flush_node_list(tail); tail:=p; @@ -29835,0 +29516,2 @@ + if LR_temp<>null then insert_end_M; + end; @@ -31008 +30690 @@ - set_box_lr(a)(dlist); + subtype(a):=dlist; @@ -31161 +30843 @@ -set_box_lr(b)(dlist); +subtype(b):=dlist; @@ -31360,2 +31041,0 @@ -if eTeX_ex then help_line[0]:=@| - "I'll pretend you didn't say \long or \outer or \global or \protected."; @@ -31372,8 +31052 @@ - print_esc("outer"); - help1("I'll pretend you didn't say \long or \outer here."); - if eTeX_ex then - begin help_line[0]:=@| - "I'll pretend you didn't say \long or \outer or \protected here."; - print("' or `"); print_esc("protected"); - end; - print("' with `"); + print_esc("outer"); print("' with `"); @@ -31381,0 +31055 @@ + help1("I'll pretend you didn't say \long or \outer here."); @@ -32091 +31765 @@ -common_ending: define(u,set_font,f); eqtb[font_id_base+f]:=eqtb[u]; font_id_text(f):=t; +common_ending: equiv(u):=f; eqtb[font_id_base+f]:=eqtb[u]; font_id_text(f):=t; @@ -32781,0 +32456 @@ +for p:=0 to prim_size do dump_wd(prim_eqtb[p]); @@ -32791,0 +32467 @@ +for p:=0 to prim_size do undump_wd(prim_eqtb[p]); @@ -32939 +32615 @@ -for k:=1 to pdf_mem_ptr-1 do begin +for k:=1 to pdf_mem_ptr-1 do begin @@ -32971 +32647 @@ -undump_int(pdf_mem_size); +undump_int(pdf_mem_size); @@ -32983 +32659 @@ - obj_tab[k].int2 := -1; + obj_tab[k].int2 := -1; @@ -33135,2 +32811 @@ -var a, b, c, i, j, k, l: integer; {all-purpose index} - is_root: boolean; {|pdf_last_pages| is root of Pages tree?} +var a, b, i, j, k, l: integer; {all-purpose index} @@ -33497,17 +33172,11 @@ -@d pdf_trailer_id_code == pdftex_first_extension_code + 24 -@d reset_timer_code == pdftex_first_extension_code + 25 -@d pdf_font_expand_code == pdftex_first_extension_code + 26 -@d set_random_seed_code == pdftex_first_extension_code + 27 -@d pdf_snap_ref_point_node == pdftex_first_extension_code + 28 -@d pdf_snapy_node == pdftex_first_extension_code + 29 -@d pdf_snapy_comp_node == pdftex_first_extension_code + 30 -@d pdf_glyph_to_unicode_code == pdftex_first_extension_code + 31 -@d pdf_colorstack_node == pdftex_first_extension_code + 32 -@d pdf_setmatrix_node == pdftex_first_extension_code + 33 -@d pdf_save_node == pdftex_first_extension_code + 34 -@d pdf_restore_node == pdftex_first_extension_code + 35 -@d pdf_nobuiltin_tounicode_code== pdftex_first_extension_code + 36 -@d pdf_interword_space_on_node == pdftex_first_extension_code + 37 -@d pdf_interword_space_off_node== pdftex_first_extension_code + 38 -@d pdf_fake_space_node == pdftex_first_extension_code + 39 -@d pdftex_last_extension_code == pdftex_first_extension_code + 39 +@d reset_timer_code == pdftex_first_extension_code + 24 +@d pdf_font_expand_code == pdftex_first_extension_code + 25 +@d set_random_seed_code == pdftex_first_extension_code + 26 +@d pdf_glyph_to_unicode_code == pdftex_first_extension_code + 27 +@d pdf_colorstack_node == pdftex_first_extension_code + 28 +@d pdf_setmatrix_node == pdftex_first_extension_code + 29 +@d pdf_page_divert_node == pdftex_first_extension_code + 30 +@d pdf_page_undivert_node == pdftex_first_extension_code + 31 +@d pdf_save_node == pdftex_first_extension_code + 32 +@d pdf_restore_node == pdftex_first_extension_code + 33 +@d pdftex_last_extension_code == pdf_restore_node @@ -33568,6 +33236,0 @@ -primitive("pdfsnaprefpoint",extension,pdf_snap_ref_point_node);@/ -@!@:pdf_snap_ref_point_}{\.{\\pdfsnaprefpoint} primitive@> -primitive("pdfsnapy",extension,pdf_snapy_node);@/ -@!@:pdf_snapy_}{\.{\\pdfsnapy} primitive@> -primitive("pdfsnapycomp",extension,pdf_snapy_comp_node);@/ -@!@:pdf_snapy_comp_}{\.{\\pdfsnapycomp} primitive@> @@ -33590,2 +33252,0 @@ -primitive("pdftrailerid",extension,pdf_trailer_id_code);@/ -@!@:pdf_trailer_id_}{\.{\\pdftrailerid} primitive@> @@ -33600,8 +33261,4 @@ -primitive("pdfnobuiltintounicode",extension,pdf_nobuiltin_tounicode_code);@/ -@!@:pdf_nobuiltin_tounicode_}{\.{\\pdfnobuiltintounicode} primitive@> -primitive("pdfinterwordspaceon",extension,pdf_interword_space_on_node);@/ -@!@:pdf_interword_space_on_}{\.{\\pdfinterwordspaceon} primitive@> -primitive("pdfinterwordspaceoff",extension,pdf_interword_space_off_node);@/ -@!@:pdf_interword_space_off_}{\.{\\pdfinterwordspaceoff} primitive@> -primitive("pdffakespace",extension,pdf_fake_space_node);@/ -@!@:pdf_fake_space_}{\.{\\pdffakespace} primitive@> +primitive("pdfpagedivert",extension,pdf_page_divert_node);@/ +@!@:pdf_page_divert_}{\.{\\pdfpagedivert} primitive@> +primitive("pdfpageundivert",extension,pdf_page_undivert_node);@/ +@!@:pdf_page_undivert_}{\.{\\pdfpageundivert} primitive@> @@ -33646,3 +33302,0 @@ - pdf_snap_ref_point_node: print_esc("pdfsnaprefpoint"); - pdf_snapy_comp_node: print_esc("pdfsnapycomp"); - pdf_snapy_node: print_esc("pdfsnapy"); @@ -33653 +33306,0 @@ - pdf_trailer_id_code: print_esc("pdftrailerid"); @@ -33658 +33310,0 @@ - pdf_nobuiltin_tounicode_code: print_esc("pdfnobuiltintounicode"); @@ -33660,3 +33312,2 @@ - pdf_interword_space_on_node: print_esc("pdfinterwordspaceon"); - pdf_interword_space_off_node: print_esc("pdfinterwordspaceoff"); - pdf_fake_space_node: print_esc("pdffakespace"); + pdf_page_divert_node: print_esc("pdfpagedivert"); + pdf_page_undivert_node: print_esc("pdfpageundivert"); @@ -33707,3 +33357,0 @@ - pdf_snap_ref_point_node: @; - pdf_snapy_comp_node: @; - pdf_snapy_node: @; @@ -33714 +33361,0 @@ - pdf_trailer_id_code: @; @@ -33720,4 +33367,2 @@ - pdf_nobuiltin_tounicode_code: @; - pdf_interword_space_on_node: @; - pdf_interword_space_off_node: @; - pdf_fake_space_node: @; + pdf_page_divert_node: @; + pdf_page_undivert_node: @; @@ -33833 +33477,0 @@ - save_cur_cs: pointer; @@ -33835 +33479 @@ - save_cur_cs:=cur_cs; call_func(scan_toks(false, true)); + call_func(scan_toks(false, true)); @@ -33838 +33482 @@ - cur_cs:=save_cur_cs; call_func(scan_toks(false, true)); + call_func(scan_toks(false, true)); @@ -34086 +33730 @@ - scan_register_num; + scan_int; @@ -34130 +33773,0 @@ - image: integer; @@ -34132,13 +33775,4 @@ - image := obj_ximage_data(n); - if (image_rotate(image) = 90) or (image_rotate(image) = 270) then begin - y := image_width(image); - x := image_height(image); - yr := image_x_res(image); - xr := image_y_res(image); - end else begin - x := image_width(image); - y := image_height(image); - xr := image_x_res(image); - yr := image_y_res(image); - end; - + x := image_width(obj_ximage_data(n)); + y := image_height(obj_ximage_data(n)); + xr := image_x_res(obj_ximage_data(n)); + yr := image_y_res(obj_ximage_data(n)); @@ -34152 +33786 @@ - if is_pdf_image(image) then begin + if is_pdf_image(obj_ximage_data(n)) then begin @@ -34662,2 +34295,0 @@ - if pdf_suppress_warning_dup_dest > 0 then - return; @@ -34800,11 +34431,0 @@ -@!pdf_snapy_refpos: integer; -@!count_do_snapy: integer; - -@ @= -count_do_snapy := 0; - -@ @= -begin - check_pdfoutput("\pdfsnaprefpoint", true); - new_whatsit(pdf_snap_ref_point_node, small_node_size); -end @@ -34828,14 +34448,0 @@ -@ @= -begin - check_pdfoutput("\pdfsnapy", true); - tail_append(new_snap_node(pdf_snapy_node)); -end - -@ @= -begin - check_pdfoutput("\pdfsnapycomp", true); - new_whatsit(pdf_snapy_comp_node, small_node_size); - scan_int; - snapy_comp_ratio(tail) := fix_int(cur_val, 0, 1000); -end - @@ -34911,8 +34517,0 @@ -@ @= -begin - check_pdfoutput("\pdftrailerid", false); - scan_pdf_ext_toks; - if pdf_output > 0 then - pdf_trailer_id_toks := concat_tokens(pdf_trailer_id_toks, def_ref); -end - @@ -35020,11 +34619 @@ -@ @= -begin - check_pdfoutput("\pdfnobuiltintounicode", true); - scan_font_ident; - k := cur_val; - if k = null_font then - pdf_error("font", "invalid font identifier"); - pdf_font_nobuiltin_tounicode[k] := true; -end - -@ @= +@ @= @@ -35032,8 +34621,5 @@ - check_pdfoutput("\pdfinterwordspaceon", true); - new_whatsit(pdf_interword_space_on_node, small_node_size); -end - -@ @= -begin - check_pdfoutput("\pdfinterwordspaceoff", true); - new_whatsit(pdf_interword_space_off_node, small_node_size); + check_pdfoutput("\pdfpagedivert", true); + new_whatsit(pdf_page_divert_node, small_node_size); + pdf_page_divert_data(tail) := 0; + scan_int; + pdf_page_divert_data(tail) := cur_val; @@ -35042 +34628 @@ -@ @= +@ @= @@ -35044,2 +34630,5 @@ - check_pdfoutput("\pdffakespace", true); - new_whatsit(pdf_fake_space_node, small_node_size); + check_pdfoutput("\pdfpageundivert", true); + new_whatsit(pdf_page_undivert_node, small_node_size); + pdf_page_divert_data(tail) := 0; + scan_int; + pdf_page_divert_data(tail) := cur_val; @@ -35260,16 +34849,15 @@ - end - else begin - if pdf_action_file(pdf_link_action(p)) <> null then begin - print(" file"); - print_mark(pdf_action_file(pdf_link_action(p))); - end; - case pdf_action_type(pdf_link_action(p)) of - pdf_action_goto: begin - if pdf_action_named_id(pdf_link_action(p)) > 0 then begin - print(" goto name"); - print_mark(pdf_action_id(pdf_link_action(p))); - end - else begin - print(" goto num"); - print_int(pdf_action_id(pdf_link_action(p))) - end; + return; + end; + if pdf_action_file(pdf_link_action(p)) <> null then begin + print(" file"); + print_mark(pdf_action_file(pdf_link_action(p))); + end; + case pdf_action_type(pdf_link_action(p)) of + pdf_action_goto: begin + if pdf_action_named_id(pdf_link_action(p)) > 0 then begin + print(" goto name"); + print_mark(pdf_action_id(pdf_link_action(p))); + end + else begin + print(" goto num"); + print_int(pdf_action_id(pdf_link_action(p))) @@ -35277,2 +34865,13 @@ - pdf_action_page: begin - print(" page"); + end; + pdf_action_page: begin + print(" page"); + print_int(pdf_action_id(pdf_link_action(p))); + print_mark(pdf_action_page_tokens(pdf_link_action(p))); + end; + pdf_action_thread: begin + if pdf_action_named_id(pdf_link_action(p)) > 0 then begin + print(" thread name"); + print_mark(pdf_action_id(pdf_link_action(p))); + end + else begin + print(" thread num"); @@ -35280,11 +34878,0 @@ - print_mark(pdf_action_page_tokens(pdf_link_action(p))); - end; - pdf_action_thread: begin - if pdf_action_named_id(pdf_link_action(p)) > 0 then begin - print(" thread name"); - print_mark(pdf_action_id(pdf_link_action(p))); - end - else begin - print(" thread num"); - print_int(pdf_action_id(pdf_link_action(p))); - end; @@ -35292,3 +34880,3 @@ - othercases pdf_error("displaying", "unknown action type"); - endcases; - end + end; + othercases pdf_error("displaying", "unknown action type"); + endcases; @@ -35353,16 +34941,8 @@ -pdf_snap_ref_point_node: print_esc("pdfsnaprefpoint"); -pdf_snapy_node: begin - print_esc("pdfsnapy"); - print_char(" "); - print_spec(snap_glue_ptr(p), 0); - print_char(" "); - print_spec(final_skip(p), 0); -end; -pdf_snapy_comp_node: begin - print_esc("pdfsnapycomp"); - print_char(" "); - print_int(snapy_comp_ratio(p)); -end; -pdf_interword_space_on_node: print_esc("pdfinterwordspaceon"); -pdf_interword_space_off_node: print_esc("pdfinterwordspaceoff"); -pdf_fake_space_node: print_esc("pdffakespace"); +pdf_page_divert_node: begin + print_esc("pdfpagedivert "); + print_int(pdf_page_divert_data(p)); +end; +pdf_page_undivert_node: begin + print_esc("pdfpageundivert "); + print_int(pdf_page_divert_data(p)); +end; @@ -35461 +35041 @@ -pdf_snap_ref_point_node: +pdf_page_divert_node: begin @@ -35463,4 +35043 @@ -pdf_snapy_node: begin - add_glue_ref(snap_glue_ptr(p)); - r := get_node(snap_node_size); - words := snap_node_size; + pdf_page_divert_data(r) := pdf_page_divert_data(p); @@ -35468,7 +35045 @@ -pdf_snapy_comp_node: - r := get_node(small_node_size); -pdf_interword_space_on_node: - r := get_node(small_node_size); -pdf_interword_space_off_node: - r := get_node(small_node_size); -pdf_fake_space_node: +pdf_page_undivert_node: begin @@ -35475,0 +35047,2 @@ + pdf_page_divert_data(r) := pdf_page_divert_data(p); +end; @@ -35544,11 +35117 @@ -pdf_snap_ref_point_node: - free_node(p, small_node_size); -pdf_snapy_node: begin - delete_glue_ref(snap_glue_ptr(p)); - free_node(p, snap_node_size); -end; -pdf_snapy_comp_node: - free_node(p, small_node_size); -pdf_interword_space_on_node: - free_node(p, small_node_size); -pdf_interword_space_off_node: +pdf_page_divert_node: @@ -35556 +35119 @@ -pdf_fake_space_node: +pdf_page_undivert_node: @@ -35586 +35149,3 @@ - begin cur_lang:=what_lang(#); l_hyf:=what_lhm(#); r_hyf:=what_rhm(#);@+end + begin cur_lang:=what_lang(#); l_hyf:=what_lhm(#); r_hyf:=what_rhm(#); + set_hyph_index; + end @@ -35596,4 +35161 @@ -if subtype(s)=language_node then - begin cur_lang:=what_lang(s); l_hyf:=what_lhm(s); r_hyf:=what_rhm(s); - set_hyph_index; - end +adv_past(s) @@ -35724,7 +35286,2 @@ -others: begin - if (pdftex_first_extension_code <= subtype(p)) and (subtype(p) <= pdftex_last_extension_code) then - pdf_error("ext4", "pdf node ended up in DVI mode") - else - confusion("ext4") - @:this can't happen ext4}{\quad ext4@> -end; +othercases confusion("ext4") +@:this can't happen ext4}{\quad ext4@> @@ -35877,2 +35433,0 @@ -@!pdf_trailer_id_toks: pointer; {custom Trailer ID} -@!gen_faked_interword_space: boolean; {flag to turn on/off faked interword spaces} @@ -35893,2 +35447,0 @@ -pdf_trailer_id_toks := null; -gen_faked_interword_space := false; @@ -36320 +35872,0 @@ - img_w, img_h: integer; @@ -36323,8 +35874,0 @@ - if (image_rotate(image) = 90) or (image_rotate(image) = 270) then begin - img_h := image_width(image); - img_w := image_height(image); - end else begin - img_w := image_width(image); - img_h := image_height(image); - end; - @@ -36333 +35877 @@ - if pdf_lookup_list(pdf_ximage_list, pdf_ximage_objnum(p)) = null then + if pdf_lookup_list(pdf_ximage_list, pdf_ximage_objnum(p)) = null then @@ -36337,3 +35881,3 @@ - groupref := get_image_group_ref(image); - if (groupref > 0) and (pdf_page_group_val = 0) then - pdf_page_group_val := groupref; + groupref := image_group_ref (image); + if (groupref>0) and (pdf_page_group_val<1) then + pdf_page_group_val := groupref; @@ -36351,10 +35895 @@ - {for pdf images we generate the page group object number here} - groupref := get_image_group_ref(image); {0: no group, -1: to be generated; >0: already written} - if (groupref <> 0) and (pdf_page_group_val = 0) then begin - if groupref = -1 then begin - pdf_page_group_val := pdf_new_objnum; - set_image_group_ref(image, pdf_page_group_val); - end - else { groupref > 0 } - pdf_page_group_val := groupref; - end; + if pdf_page_group_val<1 then pdf_page_group_val := image_group_ref (image); @@ -36362 +35897 @@ - ten_pow[6], img_w), 6); + ten_pow[6], image_width(image)), 6); @@ -36365 +35900 @@ - ten_pow[6], img_h), 6); + ten_pow[6], image_height(image)), 6); @@ -36369 +35904 @@ - img_w)); + image_width(image))); @@ -36373 +35908 @@ - img_h)); + image_height(image))); @@ -36382,0 +35918 @@ + @@ -36397,5 +35932,0 @@ - if subtype(p) = pdf_snapy_node then - last_pos := pdf_snapy_refpos + - snap_unit * ((cur_pos - pdf_snapy_refpos) div snap_unit) - else - pdf_error("snapping", "invalid parameter value for gap_amount"); @@ -36473,53 +36003,0 @@ -procedure do_snapy_comp(p, b: pointer); {do snapping compensation in vertical -direction; searchs for the next snap node and do the compensation if found} -var q: pointer; - tmp_v, g, g2: scaled; -begin - if not (not is_char_node(p) and - (type(p) = whatsit_node) and - (subtype(p) = pdf_snapy_comp_node)) - then - pdf_error("snapping", "invalid parameter value for do_snapy_comp"); - q := p; - while (q <> null) do begin - if not is_char_node(q) and - (type(q) = whatsit_node) and - (subtype(q) = pdf_snapy_node) - then begin - tmp_v := get_vpos(p, q, b); {get the position of |q|} - g := gap_amount(q, tmp_v); {get the gap to the grid} - g2 := round_xn_over_d(g, snapy_comp_ratio(p), 1000); {adjustment for |p|} - @{ - print_nl("do_snapy_comp: tmp_v = "); print_scaled(tmp_v); - print_nl("do_snapy_comp: cur_v = "); print_scaled(cur_v); - print_nl("do_snapy_comp: g = "); print_scaled(g); - print_nl("do_snapy_comp: g2 = "); print_scaled(g2); - @} - cur_v := cur_v + g2; - final_skip(q) := g - g2; {adjustment for |q|} - if final_skip(q) = 0 then - final_skip(q) := 1; {use |1sp| as the magic value to record - that |final_skip| has been set here} - return; - end; - q := link(q); - end; -end; - -procedure do_snapy(p: pointer); -begin - incr(count_do_snapy); - @{ - print_nl("do_snapy: count = "); print_int(count_do_snapy); - print_nl("do_snapy: cur_v = "); print_scaled(cur_v); - print_nl("do_snapy: final skip = "); print_scaled(final_skip(p)); - @} - if final_skip(p) <> 0 then - cur_v := cur_v + final_skip(p) - else - cur_v := cur_v + gap_amount(p, cur_v); - @{ - print_nl("do_snapy: cur_v after snap = "); print_scaled(cur_v); - @} -end; - @@ -36563 +36041 @@ - @

; + @

; @@ -36581,12 +36059,6 @@ -pdf_snap_ref_point_node: - @; -pdf_snapy_comp_node: - do_snapy_comp(p, this_box); -pdf_snapy_node: - do_snapy(p); -pdf_interword_space_on_node: - gen_faked_interword_space := true; -pdf_interword_space_off_node: - gen_faked_interword_space := false; -pdf_fake_space_node: - pdf_insert_fake_space; +pdf_page_divert_node: + if is_shipping_page then + page_divert_val := pdf_page_divert_data(p); +pdf_page_undivert_node: + if is_shipping_page then + pdf_do_page_undivert(pdf_page_divert_data(p), page_divert_val); @@ -36608,7 +36080 @@ -@ @= -begin - pdf_snapx_refpos := cur_h; - pdf_snapy_refpos := cur_v; -end - -@ @

= +@ @

= @@ -36645 +36111 @@ - @

; + @

; @@ -36664,10 +36130,6 @@ -pdf_snap_ref_point_node: - @; -pdf_snapy_comp_node, -pdf_snapy_node: do_nothing; {snapy nodes do nothing in hlist} -pdf_interword_space_on_node: - gen_faked_interword_space := true; -pdf_interword_space_off_node: - gen_faked_interword_space := false; -pdf_fake_space_node: - pdf_insert_fake_space; +pdf_page_divert_node: + if is_shipping_page then + page_divert_val := pdf_page_divert_data(p); +pdf_page_undivert_node: + if is_shipping_page then + pdf_do_page_undivert(pdf_page_divert_data(p), page_divert_val); @@ -36677 +36139 @@ -@ @

= +@ @

= @@ -36810,0 +36273,2 @@ +primitive("suppressfontnotfounderror",assign_int,int_base+suppress_fontnotfound_error_code);@/ +@!@:suppress_fontnotfound_error_codes_}{\.{\\suppressfontnotfounderror} primitive@> @@ -36826,0 +36291 @@ +suppress_fontnotfound_error_code:print_esc("suppressfontnotfounderror"); @@ -37331 +36796 @@ - begin type(p):=kern_node; width(p):=rule_wd; + begin type(p):=kern_node; width(p):=rule_wd; {{\sl synctex} watch point: |glue_node| size == |kern_node| size} @@ -37349 +36814 @@ -explicitly by the |ship_out| routine and is written to a normal \.{DVI} +explicitely by the |ship_out| routine and is written to a normal \.{DVI} @@ -37418 +36883 @@ -if (type(p)=hlist_node)and(box_lr(p)=dlist) then print(", display") +if (type(p)=hlist_node)and(subtype(p)=dlist) then print(", display") @@ -37438,0 +36904 @@ +@!LR_temp:pointer; {holds a temporarily removed \.{\\endM} node} @@ -37444 +36910 @@ -LR_ptr:=null; LR_problems:=0; cur_dir:=left_to_right; +LR_temp:=null; LR_ptr:=null; LR_problems:=0; cur_dir:=left_to_right; @@ -37483,0 +36950,31 @@ +@ Special \.{\\beginM} and \.{\\endM} nodes are inserted in cases where +math nodes are discarded during line breaking or end up in different +lines. When the current lists ends with an \.{\\endM} node that node is +temporarily removed and later reinserted when the last node is to be +inspected or removed. A final \.{\\endM} preceded by a |char_node| will +not be removed. + +@= +procedure remove_end_M; +var @!p:pointer; {runs through the current list} +begin p:=head; +while link(p)<>tail do p:=link(p); +if not is_char_node(p) then + begin LR_temp:=tail; link(p):=null; tail:=p; + end; +end; + +@ @= +procedure insert_end_M; +label done; +var @!p:pointer; {runs through the current list} +begin if not is_char_node(tail) then + if (type(tail)=math_node)and(subtype(tail)=begin_M_code) then + begin free_node(LR_temp,small_node_size); p:=head; + while link(p)<>tail do p:=link(p); + free_node(tail,medium_node_size); link(p):=null; tail:=p; goto done; {{\sl synctex}: proper size for |math_node|} + end; +link(tail):=LR_temp; tail:=LR_temp; +done: LR_temp:=null; +end; + @@ -37490 +36987 @@ - else begin incr(LR_problems); type(p):=kern_node; subtype(p):=explicit; + else begin incr(LR_problems); type(p):=kern_node; subtype(p):=explicit; {{\sl synctex} watch point: |math_node| size == |kern_node| size} @@ -37519 +37016 @@ - if box_lr(this_box)=dlist then + if subtype(this_box)=dlist then @@ -37523,2 +37020,2 @@ - else set_box_lr(this_box)(0); - if (cur_dir=right_to_left)and(box_lr(this_box)<>reversed) then + else subtype(this_box):=min_quarterword; + if (cur_dir=right_to_left)and(subtype(this_box)<>reversed) then @@ -37531 +37028 @@ - if box_lr(this_box)=dlist then cur_dir:=right_to_left; + if subtype(this_box)=dlist then cur_dir:=right_to_left; @@ -37556 +37053 @@ -type(p):=kern_node; +type(p):=kern_node; {{\sl synctex} watch point: |math_node| size == |kern_node| size} @@ -37590 +37087,3 @@ -begin save_h:=cur_h; temp_ptr:=p; p:=new_kern(0); link(prev_p):=p; +begin save_h:=cur_h; temp_ptr:=p; p:=new_kern(0); +mem[p+2].int:=0; {{\sl synctex}: do nothing, it's too late} +link(prev_p):=p; @@ -37592 +37091 @@ -cur_h:=save_h; set_box_lr(this_box)(reversed); +cur_h:=save_h; subtype(this_box):=reversed; @@ -37602 +37101 @@ -free_node(p,small_node_size); +free_node(p,medium_node_size); {{\sl synctex}: p is a |math_node|} @@ -37661 +37160 @@ - begin free_node(p,small_node_size); p:=l; + begin free_node(p,medium_node_size); p:=l; {{\sl synctex} hook: proper size for |kern_node|} @@ -37688 +37187 @@ - begin type(p):=kern_node; incr(LR_problems); + begin type(p):=kern_node; incr(LR_problems); {{\sl synctex} watch point: |math_node| size == |kern_node| size} @@ -37694 +37193 @@ - else begin type(p):=kern_node; + else begin type(p):=kern_node; {{\sl synctex} watch point: |math_node| size == |kern_node| size} @@ -37703 +37202 @@ - else begin type(p):=kern_node; incr(m); + else begin type(p):=kern_node; incr(m); {{\sl synctex} watch point: |math_node| size == |kern_node| size} @@ -37713 +37212 @@ -begin free_node(p,small_node_size); +begin free_node(p,medium_node_size); {{\sl synctex}: p is a |kern_node|} @@ -37752,0 +37252 @@ + @; @@ -37761,2 +37261,3 @@ - kern_node,math_node: begin r:=get_node(small_node_size); - words:=small_node_size; + kern_node,math_node: begin + words:=medium_node_size; {{\sl synctex}: proper size for math and kern} + r:=get_node(words); @@ -37764 +37265,2 @@ - glue_node: begin r:=get_node(small_node_size); add_glue_ref(glue_ptr(p)); + glue_node: begin r:=get_node(medium_node_size); add_glue_ref(glue_ptr(p)); {{\sl synctex}: proper size for glue} + @; @@ -37853,0 +37356 @@ + begin @@ -37854,0 +37358 @@ + end; @@ -37858 +37362 @@ -found:width(t):=width(p); link(t):=q; free_node(p,small_node_size); +found:width(t):=width(p); link(t):=q; free_node(p,small_node_size); {{\sl synctex}: Unused label, see below} @@ -37865 +37369 @@ - begin type(p):=kern_node; incr(LR_problems); + begin type(p):=kern_node; incr(LR_problems); {{\sl synctex} watch point: |math_node| size == |kern_node| size} @@ -37871,2 +37375,5 @@ - else begin if m>min_halfword then decr(m)@+else goto found; - type(p):=kern_node; + 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 synctex}: no more "goto found", proper size} + goto done; + end; + type(p):=kern_node; {{\sl synctex} watch point: |math_node| size == |kern_node| size} @@ -37879 +37386 @@ - else begin type(p):=kern_node; incr(m); + else begin type(p):=kern_node; incr(m); {{\sl synctex} watch point: |math_node| size == |kern_node| size} @@ -37943 +37450 @@ -if box_lr(p)=dlist then q:=p {display or equation number} +if subtype(p)=dlist then q:=p {display or equation number} @@ -38085,2 +37592,2 @@ - else if (term_offset>0)or(file_offset>0) then print_char(" "); - name:=19; print("( "); incr(open_parens); update_terminal; + else if (term_offset>0)or(file_offset>0) then print_char(" "); + name:=19; print("( "); incr(open_parens); update_terminal; @@ -38088 +37595,4 @@ -else name:=18 +else begin + name:=18; + @; +end @@ -38223 +37732,0 @@ - e := is_in_csname; is_in_csname := true; @@ -38231 +37739,0 @@ - is_in_csname := e; @@ -38570 +38078 @@ -@ Here we declare two trivial procedures in order to avoid mutually +@ Here we declare to trivial procedures in order to avoid mutually @@ -39839,0 +39348,187 @@ + +@* \[53b] The {\sl synchronize texnology}. +This section is devoted to the {\sl synchronize texnology} - or simply {\sl +synctex} - used to synchronize between input and output. This section explains +how synchronization basics are implemented. Before we enter into more +technical details, let us recall in a few words what is synchronization. + +\TeX\ typesetting system clearly separates the input and the output material, +and synchronization will provide a new link between both that can help text +editors and viewers to work together. More precisely, forwards synchronization +is the ability, given a location in the input source file, to find what is the +corresponding place in the output. Backwards synchronization just performs the +opposite: given a location in the output, retrieve the corresponding material +in the input source file. + +For better code management and maintainance, we adopt a naming convention. +Throughout this program, code related to the {\sl synchronize texnology} is +tagged with the {\sl synctex} key word. Any code extract where {\sl synctex} +plays its part, either explicitly or implicitly, (should) contain the string +{\sl synctex}. This naming convention also holds for external files. +Moreover, all the code related to {\sl synctex} is gathered in this section, +except the definitions. + +Synchronization is achieved with the help of an auxiliary file named `\.{{\sl +jobname}.synctex}' ({\sl jobname} is the contents of the \.{\\jobname} macro), +where a {\sl synctex} controller implemented in the external |synctex.c| file +will store geometrical information. This {\sl synctex} controller will take +care of every technical details concerning the {\sl synctex} file, we will only +focus on the messages the controller will receive from the \TeX\ program. + +The most accurate synchronization information should allow to map any character +of the input source file to the corresponding location in the output, if +relevant. Ideally, the synchronization information of the input material +consists of the file name, the line and column numbers of every character. The +synchronization information in the output is simply the page number and either +point coordinates, or box dimensions and position. The problem is that the +mapping between these informations is only known at ship out time, which means +that we must keep track of the input synchronization information until the +pages ship out. + +As \TeX\ only knows about file names and line numbers, but forgets the column +numbers, we only consider a restricted input synchronization information called +{\sl synctex information}. It consists of a unique file name identifier, the +{\sl synctex file tag}, and the line number. + +Keeping track of such information, should be different whether characters or +nodes are involved. Actually, only certain nodes are involved in {\sl +synctex}, we call them {\sl synchronized nodes}. Synchronized nodes store the +{\sl synctex} information in their last two words: the first one contains a +{\sl synctex file tag} uniquely identifying the input file, and the second one +contains the current line number, as returned by the \.{\\inputlineno} +primitive. The |synctex_field_size| macro contains the necessary size to store +the {\sl synctex} information. + +When declaring the size of a new node, it is recommanded to use the following +convention: if the node is synchronized, use a definition similar to +|my_synchronized_node_size|={\sl xxx}+|synctex_field_size|. +Moreover, one should expect that the {\sl synctex} information is always stored +in the last two words of a synchronized node. + +@ By default, every node with a sufficiently big size is initialized at +creation time in the |get_node| routine with the current {\sl synctex} +information, whether or not the node is synchronized. One purpose is to set +this information very early in order to minimize code dependencies, including +forthcoming extensions. Another purpose is to avoid the assumption that every +node type has a dedicated getter, where initialization should take place. +Actually, it appears that some nodes are created using directly the |get_node| +routine and not the dedicated constructor. And finally, initializing the node +at only one place is less error prone. + +@ @= +if s>=synctex_field_size+small_node_size then +begin + mem[r+s-synctex_field_size].int := synctex_tag; + mem[r+s-synctex_field_size+1].int := line; +end; + +@ Instead of storing the input file name, it is better to store just an +identifier. Each time \TeX\ opens a new file, it notifies the {\sl synctex} +controller with a |synctex_start_input| message. This controller will create a +new {\sl synctex} file tag and will update the current input state record +accordingly. If the input comes from the terminal or a pseudo file, the +|synctex_tag| is set to 0. It results in automatically disabling +synchronization for material input from the terminal or pseudo files. + +@ @= +synctex_start_input; {Give control to the {\sl synctex} controller} + +@ @= +synctex_tag:=0; + +@ @= +synctex_tag:=0; + +@ Synchronized nodes are boxes, math, kern and glue nodes. +Other nodes should be synchronized too, in particular math noads. +\TeX\ assumes that math, kern and glue nodes have the same size, this is why +both are synchronized. +{\sl In fine}, only horizontal lists are really used in {\sl synctex}, but all +box nodes are considered the same with respect to synchronization, because a +box node type is allowed to change at execution time. + +The next sections are the various messages sent to the {\sl synctex} +controller. The argument is either the box or the node currently shipped out. + +@ @= +synctex_hlist(this_box); + +@ @= +synctex_tsilh(this_box); + +@ @= +synctex_glue(p); + +@ @= +synctex_kern(p); + +@ @= +synctex_math(p); + +@ @= +synctex_sheet(pdf_output); + +@ When making a copy of a synchronized node, we might also have to duplicate +the {\sl synctex} information by copying the two last words. This is the case +for a |box_node| and for a |glue_node|, but not for a |math_node| nor a +|kern_node|. These last two nodes always keep the {\sl synctex} information +they received at creation time. + +@ @= +mem[r+box_node_size-synctex_field_size].int:=mem[p+box_node_size-synctex_field_size].int; +mem[r+box_node_size-synctex_field_size+1].int:=mem[p+box_node_size-synctex_field_size+1].int; + +@ @= +mem[r+medium_node_size-synctex_field_size].int:=mem[p+medium_node_size-synctex_field_size].int; +mem[r+medium_node_size-synctex_field_size+1].int:=mem[p+medium_node_size-synctex_field_size+1].int; + +@ Enabling synchronization should be performed from the command line, +|synctexoption| is used for that purpose. This global integer variable is +declared here but it is not used here. This is just a placeholder where the +command line controller will put the {\sl {\sl synctex}} related options, and +the {\sl synctex} controller will read them. + +@ @= +@!synctexoption:integer; + +@ A convenient primitive is provided: +\.{\\synctex=1} in the input source file enables synchronization whereas +\.{\\synctex=0} disables it. +Its memory address is |synctex_code|. + +@ @= +primitive("synctex",assign_int,int_base+synctex_code);@/ +@!@:synctex_}{\.{\\synctex} primitive@> + +@ @= +synctex_code: print_esc("synctex"); + +@ In order to give the {\sl synctex} controller read and write access to the +contents of the \.{\\synctex} primitive, we declare |synctexoffset|, such that +|mem[synctexoffset]| and \.{\\synctex} correpond to the same memory storage. +|synctexoffset| is initialized to the correct value when quite everything is +initialized. + +@ @= +@!synctexoffset:integer; {holds the true value of |synctex_code|} + +@ @= +synctexoffset:=int_base+synctex_code; + +@ {\sl Nota Bene:} +The {\sl synctex} code is very close to the memory model. +It is not connected to any other part of the code, except for memory +management. It is possible to neutralize the {\sl synctex} code rather simply. +The first step is to define a null |synctex_field_size|. +The second step is to comment out the code in ``Initialize bigger nodes...'' +and every ``Copy ... {\sl synctex} information''. +The last step will be to comment out the |synctex_tag_field| related code in +the definition of |synctex_tag| and the various ``Prepare ... {\sl synctex} +information'' +Then all the remaining code should be just harmless. +The resulting program would behave exactly the same as if absolutely no {\sl +synctex} related code was there, including memory management. +Of course, all this assumes that {\sl synctex} is turned off from the command +line. +@^synctex@> +@^synchronization@>