diff options
author | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
---|---|---|
committer | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
commit | c6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch) | |
tree | 1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/web2c/alephdir/comsrcspec.ch | |
parent | 07ee7222e389b0777456b427a55c22d0e6ffd267 (diff) |
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/alephdir/comsrcspec.ch')
-rw-r--r-- | Build/source/texk/web2c/alephdir/comsrcspec.ch | 349 |
1 files changed, 0 insertions, 349 deletions
diff --git a/Build/source/texk/web2c/alephdir/comsrcspec.ch b/Build/source/texk/web2c/alephdir/comsrcspec.ch deleted file mode 100644 index 41ec7007f47..00000000000 --- a/Build/source/texk/web2c/alephdir/comsrcspec.ch +++ /dev/null @@ -1,349 +0,0 @@ -@x -@!dvi_buf_size:integer; {size of the output buffer; must be a multiple of 8} -@!quoted_filename:boolean; {current filename is quoted} -@y -@!dvi_buf_size:integer; {size of the output buffer; must be a multiple of 8} -@!quoted_filename:boolean; {current filename is quoted} -@!special_loc:pointer; -@!special_token:halfword; - -@!parse_first_line_p:cinttype; {parse the first line for options} -@!file_line_error_style_p:cinttype; {format messages as file:line:error} -@!halt_on_error_p:boolean; {allow only on error.} - -@!src_specials_p : boolean; -@!insert_src_special_auto : boolean; -@!insert_src_special_every_par : boolean; -@!insert_src_special_every_parend : boolean; -@!insert_src_special_every_cr : boolean; -@!insert_src_special_every_math : boolean; -@!insert_src_special_every_hbox : boolean; -@!insert_src_special_every_vbox : boolean; -@!insert_src_special_every_display : boolean; -@z - -@x -wterm(eTeX_banner); -wterm(version_string); -if format_ident=0 then wterm_ln(' (preloaded format=',dump_name,')') -else begin slow_print(format_ident); print_ln; - end; -@y -if src_specials_p or file_line_error_style_p or parse_first_line_p then - wterm(banner_k) -else - wterm(eTeX_banner); -wterm(version_string); -if format_ident=0 then wterm_ln(' (preloaded format=',dump_name,')') -else begin slow_print(format_ident); print_ln; - end; -if shellenabledp then begin - wterm(' '); - if restrictedshell then begin - wterm('restricted '); - end; - wterm_ln('\write18 enabled.'); -end; -if src_specials_p then begin - wterm_ln(' Source specials enabled.') -end; -@z - -@x - print_nl("! "); print(#); -@y - if file_line_error_style_p then print_file_line - else print_nl("! "); - print(#); -@z - -@x -print_char("."); show_context; -@y -print_char("."); show_context; -if (halt_on_error_p) then begin - history:=fatal_error_stop; jump_out; -end; -@z - -@x -@!in_open : 0..max_in_open; {the number of lines in the buffer, less one} -@!open_parens : 0..max_in_open; {the number of open text files} -@!input_file : ^alpha_file; -@!input_file_mode : ^halfword; -@!input_file_translation : ^halfword; -@!line : integer; {current line number in the current source file} -@!line_stack : ^integer; -@y -@!in_open : 0..max_in_open; {the number of lines in the buffer, less one} -@!open_parens : 0..max_in_open; {the number of open text files} -@!input_file : ^alpha_file; -@!input_file_mode : ^halfword; -@!input_file_translation : ^halfword; -@!line : integer; {current line number in the current source file} -@!line_stack : ^integer; -@!source_filename_stack : ^str_number; -@!full_source_filename_stack : ^str_number; -@z - -@x -begin wlog(eTeX_banner); -wlog(version_string); -@y -begin if src_specials_p or file_line_error_style_p or parse_first_line_p -then - wlog(banner_k) -else - wlog(eTeX_banner); -wlog(version_string); -if shellenabledp then begin - wlog_cr; - wlog(' '); - if restrictedshell then begin - wlog('restricted '); - end; - wlog('\write18 enabled.') - end; -if src_specials_p then begin - wlog_cr; - wlog(' Source specials enabled.') -end; -if file_line_error_style_p then begin - wlog_cr; - wlog(' file:line:error style messages enabled.') -end; -if parse_first_line_p then begin - wlog_cr; - wlog(' %&-line parsing enabled.'); -end; -@z - -%% ** 537 ****************************************************************** - -@x -done: name:=a_make_name_string(cur_file); -if name=str_ptr-1 then {we can try to conserve string pool space now} - begin temp_str:=search_string(name); - if temp_str>0 then - begin name:=temp_str; flush_string; - end; - end; -@y -done: name:=a_make_name_string(cur_file); -source_filename_stack[in_open]:=name; -full_source_filename_stack[in_open]:=make_full_name_string; -if name=str_ptr-1 then {we can try to conserve string pool space now} - begin temp_str:=search_string(name); - if temp_str>0 then - begin name:=temp_str; flush_string; - end; - end; -@z - -%%@x -%%if term_offset+length(name)>max_print_line-2 then print_ln -%%else if (term_offset>0)or(file_offset>0) then print_char(" "); -%%print_char("("); incr(open_parens); slow_print(name); update_terminal; -%%@y -%%if term_offset+length(full_source_filename_stack[in_open])>max_print_line-2 then print_ln -%%else if (term_offset>0)or(file_offset>0) then print_char(" "); -%%print_char("("); incr(open_parens); slow_print(full_source_filename_stack[in_open]); update_terminal; -%%@z - -%% ** 774 ****************************************************************** - - @x -if every_cr<>null then begin_token_list(every_cr,every_cr_text); - @y -if (insert_src_special_every_cr and head<>tail) then insert_src_special; -if every_cr<>null then begin_token_list(every_cr,every_cr_text); - @z - -%% ** 799 ****************************************************************** - - @x -if every_cr<>null then begin_token_list(every_cr,every_cr_text); - @y -if (insert_src_special_every_cr) then insert_src_special; -if every_cr<>null then begin_token_list(every_cr,every_cr_text); - @z - -%% ** 1034 ****************************************************************** - -@x -@<Append character |cur_chr|...@>= -adjust_space_factor;@/ -@y -@<Append character |cur_chr|...@>= -if ((head=tail) and (mode>0)) then begin - if (insert_src_special_auto) then append_src_special; -end; -adjust_space_factor;@/ -@z - -%% ** 1083 ****************************************************************** - - @x - if every_vbox<>null then begin_token_list(every_vbox,every_vbox_text); - @y - if (insert_src_special_every_vbox) then insert_src_special; - if every_vbox<>null then begin_token_list(every_vbox,every_vbox_text); - @z - - @x - if every_hbox<>null then begin_token_list(every_hbox,every_hbox_text); - @y - if (insert_src_special_every_hbox) then insert_src_special; - if every_hbox<>null then begin_token_list(every_hbox,every_hbox_text); - @z - -%% ** 1091 ****************************************************************** -% Disabled, prevents merge with web2c's tex.ch. - @x - if indented then begin - p:=new_null_box; box_dir(p):=par_direction; - width(p):=par_indent;@+ - tail_append(p); - end; - @y - if indented then begin - p:=new_null_box; box_dir(p):=par_direction; - width(p):=par_indent;@+ - tail_append(p); - if (insert_src_special_every_par) then insert_src_special;@+ - end; - @z - -%% insert source special at par because this is disabled above -@x -if indented then begin - p:=new_null_box; box_dir(p):=par_direction; - width(p):=par_indent;@+ - tail_append(p); - end; -@y -if indented then begin - p:=new_null_box; box_dir(p):=par_direction; - width(p):=par_indent;@+ - tail_append(p); - if (insert_src_special_every_par) then insert_src_special;@+ - end; -@z - -%% ** 1096 ****************************************************************** - - @x fixme: etex conflict - else line_break(widow_penalty); - @y - else begin - if (insert_src_special_every_parend) then insert_src_special; - line_break(widow_penalty); - end; - @z - -%% ** 1139 ****************************************************************** - -@x -if every_math<>null then begin_token_list(every_math,every_math_text); -@y -if (insert_src_special_every_math) then insert_src_special; -if every_math<>null then begin_token_list(every_math,every_math_text); -@z - -%% ** 1145 ****************************************************************** - - @x -if every_display<>null then begin_token_list(every_display,every_display_text); - @y -if (insert_src_special_every_display) then append_src_special; -if every_display<>null then begin_token_list(every_display,every_display_text); - @z - -%% ** 1167 ****************************************************************** - -@x - if every_vbox<>null then begin_token_list(every_vbox,every_vbox_text); -@y - if (insert_src_special_every_vbox) then insert_src_special; - if every_vbox<>null then begin_token_list(every_vbox,every_vbox_text); -@z - -%% ** 1313 ****************************************************************** - -@x -dump_int(par_loc); dump_int(write_loc);@/ -@y -dump_int(par_loc); dump_int(write_loc); dump_int(special_loc);@/ -@z - -%% ** 1314 ****************************************************************** - -@x -undump(hash_base)(frozen_control_sequence)(write_loc);@/ -@y -undump(hash_base)(frozen_control_sequence)(write_loc);@/ -undump(hash_base)(frozen_control_sequence)(special_loc); -special_token:=cs_token_flag+special_loc;@/ -@z - -@x - line_stack:=xmalloc_array (integer, max_in_open); -@y - line_stack:=xmalloc_array (integer, max_in_open); - source_filename_stack:=xmalloc_array (str_number, max_in_open); - full_source_filename_stack:=xmalloc_array (str_number, max_in_open); -@z - -%% ** 1344 ****************************************************************** - -@x -primitive("special",extension,special_node);@/ -@y -primitive("special",extension,special_node);@/ -special_loc:=cur_val; special_token:=cs_token_flag+special_loc;@/ -@z - -%% ** 1379 ****************************************************************** - -@x -@* \[55] Index. -@y - -@ @<Declare action procedures for use by |main_control|@>= - -procedure insert_src_special; -var toklist, p, q : pointer; -begin - if (source_filename_stack[in_open] > 0 and is_new_source (source_filename_stack[in_open], line)) then begin - toklist := get_avail; - p := toklist; - info(p) := special_token; - link(p) := get_avail; p := link(p); - info(p) := left_brace_token+"{"; - q := str_toks (make_src_special (source_filename_stack[in_open], line)); - link(p) := link(temp_head); - p := q; - link(p) := get_avail; p := link(p); - info(p) := right_brace_token+"}"; - ins_list (toklist); - remember_source_info (source_filename_stack[in_open], line); - end; -end; - -procedure append_src_special; -var q : pointer; -begin - if (source_filename_stack[in_open] > 0 and is_new_source (source_filename_stack[in_open], line)) then begin - new_whatsit (special_node, write_node_size); - write_stream(tail) := null; - def_ref := get_avail; - token_ref_count(def_ref) := null; - q := str_toks (make_src_special (source_filename_stack[in_open], line)); - link(def_ref) := link(temp_head); - write_tokens(tail) := def_ref; - remember_source_info (source_filename_stack[in_open], line); - end; -end; - -@* \[55] Index. -@z |