diff options
author | Khaled Hosny <khaledhosny@eglug.org> | 2012-05-06 10:04:12 +0000 |
---|---|---|
committer | Khaled Hosny <khaledhosny@eglug.org> | 2012-05-06 10:04:12 +0000 |
commit | 3c6cdccdf8a900337b27e6c4099aeea5dbc86dcb (patch) | |
tree | 991c14d902840adda89a24ffd601d5565ad9bfa0 /Build/source/texk/web2c/xetexdir/xetex.ch | |
parent | 8d0b4468c07b64f83f7ccc240ec9ee2fd6766fc0 (diff) |
Use makecpool instead of XeTeX specific pool2c.pl.
git-svn-id: svn://tug.org/texlive/trunk@26228 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/xetexdir/xetex.ch')
-rw-r--r-- | Build/source/texk/web2c/xetexdir/xetex.ch | 97 |
1 files changed, 0 insertions, 97 deletions
diff --git a/Build/source/texk/web2c/xetexdir/xetex.ch b/Build/source/texk/web2c/xetexdir/xetex.ch index d90c3fd5a5b..1e82951c242 100644 --- a/Build/source/texk/web2c/xetexdir/xetex.ch +++ b/Build/source/texk/web2c/xetexdir/xetex.ch @@ -526,22 +526,6 @@ else begin @z @x -@!init function get_strings_started:boolean; {initializes the string pool, - but returns |false| if something goes wrong} -label done,exit; -var k,@!l:0..255; {small indices or counters} -@!m,@!n:text_char; {characters input from |pool_file|} -@!g:str_number; {garbage} -@!a:integer; {accumulator for check sum} -@!c:boolean; {check sum has been checked} -begin pool_ptr:=0; str_ptr:=0; str_start[0]:=0; -@y -@!init function get_strings_started:boolean; {initializes the string pool, - but returns |false| if something goes wrong} -begin pool_ptr:=0; str_ptr:=0; -@z - -@x @ @d app_lc_hex(#)==l:=#; if l<10 then append_char(l+"0")@+else append_char(l-10+"a") @y @@ -577,87 +561,6 @@ end @z @x -@ When the \.{WEB} system program called \.{TANGLE} processes the \.{TEX.WEB} -description that you are now reading, it outputs the \PASCAL\ program -\.{TEX.PAS} and also a string pool file called \.{TEX.POOL}. The \.{INITEX} -@.WEB@>@.INITEX@> -program reads the latter file, where each string appears as a two-digit decimal -length followed by the string itself, and the information is recorded in -\TeX's string memory. - -@<Glob...@>= -@!init @!pool_file:alpha_file; {the string-pool file output by \.{TANGLE}} -tini - -@ @d bad_pool(#)==begin wake_up_terminal; write_ln(term_out,#); - a_close(pool_file); get_strings_started:=false; return; - end -@<Read the other strings...@>= -name_length := strlen (pool_name); -name_of_file := xmalloc_array (ASCII_code, name_length + 1); -strcpy (stringcast(name_of_file+1), pool_name); {copy the string} -if a_open_in (pool_file, kpse_texpool_format) then - begin c:=false; - repeat @<Read one string, but return |false| if the - string memory space is getting too tight for comfort@>; - until c; - a_close(pool_file); get_strings_started:=true; - end -else bad_pool('! I can''t read ', pool_name, '; bad path?') -@.I can't read TEX.POOL@> - -@ @<Read one string...@>= -begin if eof(pool_file) then bad_pool('! ', pool_name, ' has no check sum.'); -@.TEX.POOL has no check sum@> -read(pool_file,m); read(pool_file,n); {read two digits of string length} -if m='*' then @<Check the pool check sum@> -else begin if (xord[m]<"0")or(xord[m]>"9")or@| - (xord[n]<"0")or(xord[n]>"9") then - bad_pool('! ', pool_name, ' line doesn''t begin with two digits.'); -@.TEX.POOL line doesn't...@> - l:=xord[m]*10+xord[n]-"0"*11; {compute the length} - if pool_ptr+l+string_vacancies>pool_size then - bad_pool('! You have to increase POOLSIZE.'); -@.You have to increase POOLSIZE@> - for k:=1 to l do - begin if eoln(pool_file) then m:=' '@+else read(pool_file,m); - append_char(xord[m]); - end; - read_ln(pool_file); g:=make_string; - end; -end - -@ The \.{WEB} operation \.{@@\$} denotes the value that should be at the -end of this \.{TEX.POOL} file; any other value means that the wrong pool -file has been loaded. -@^check sum@> - -@<Check the pool check sum@>= -begin a:=0; k:=1; -loop@+ begin if (xord[n]<"0")or(xord[n]>"9") then - bad_pool('! ', pool_name, ' check sum doesn''t have nine digits.'); -@.TEX.POOL check sum...@> - a:=10*a+xord[n]-"0"; - if k=9 then goto done; - incr(k); read(pool_file,n); - end; -done: if a<>@$ then - bad_pool('! ', pool_name, ' doesn''t match; tangle me again (or fix the path).'); -@.TEX.POOL doesn't match@> -c:=true; -end -@y -@ @d bad_pool(#)==begin wake_up_terminal; write_ln(term_out,#); - get_strings_started:=false; return; - end -@<Read the other strings...@>= -if init_pool(pool_size-string_vacancies) = 0 then begin - bad_pool('! You have to increase POOLSIZE.'); -end else - get_strings_started := true; -@z - -@x @* \[5] On-line and off-line printing. @y @* \[5] On-line and off-line printing. |