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/omegafonts/out_routines.c | |
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/omegafonts/out_routines.c')
-rw-r--r-- | Build/source/texk/web2c/omegafonts/out_routines.c | 372 |
1 files changed, 0 insertions, 372 deletions
diff --git a/Build/source/texk/web2c/omegafonts/out_routines.c b/Build/source/texk/web2c/omegafonts/out_routines.c deleted file mode 100644 index 186e4d357bf..00000000000 --- a/Build/source/texk/web2c/omegafonts/out_routines.c +++ /dev/null @@ -1,372 +0,0 @@ -/* out_routines.c: Low-level routines for outputting OPL and OVP files. - -This file is part of Omega, -which is based on the web2c distribution of TeX, - -Copyright 1994--2018 John Plaice and Yannis Haralambous - -Omega is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2 of the License, or -(at your option) any later version. - -Omega is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with Omega; if not, write to the Free Software Foundation, Inc., -59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. - -*/ - -#include "cpascal.h" -#include "list_routines.h" -#include "manifests.h" -#include "omfonts.h" -#include "out_routines.h" -#include "error_routines.h" -#include "header_routines.h" -#include "char_routines.h" - -/* Character measures */ - -const_string character_measures[] = - { "CHARWD", "CHARHT", "CHARDP", "CHARIC", - "SECWD", "SECHT", "SECDP", "SECIC", - "PRIMTOPAXIS", "PRIMTOPAXISBIS", "PRIMBOTAXIS", "PRIMBOTAXISBIS", - "PRIMMIDHOR", "PRIMMIDVERT", "PRIMBASESLANT", NULL, - "SECTOPAXIS", "SECTOPAXISBIS", "SECBOTAXIS", "SECBOTAXISBIS", - "SECMIDHOR", "SECMIDVERT", "SECBASESLANT", NULL}; - -void -out_character_measure(unsigned measure) -{ - if ((measure < C_MIN) || (measure > C_MAX) || - (character_measures[measure]==NULL)) { - internal_error_1("out_character_measure (measure=%d)", measure); - } - out(character_measures[measure]); -} - -/* Extensible pieces */ - -const_string extensible_pieces[] = - { "TOP", "MID", "BOT", "REP", NULL }; - -void -out_extensible_piece(unsigned piece) -{ - if ((piece < E_MIN) || (piece > E_MAX)) { - internal_error_1("out_extensible_piece (piece=%d)", piece); - } - out(extensible_pieces[piece]); -} - -/* Ligature commands */ - -const_string ligature_commands[] = - { "LIG", "LIG/", "/LIG", "/LIG/", NULL, - "LIG/>", "/LIG>", "/LIG/>", NULL, NULL, - NULL, "/LIG/>>", NULL }; - -void -out_ligature_command(unsigned command) -{ - if ((command < L_MIN) || (command > L_MAX) || - (ligature_commands[command]==NULL)) { - internal_error_1("out_ligature_command (command=%d)", command); - } - out(ligature_commands[command]); -} - -/* Xerox faces */ - -const_string xerox_faces[] = - { "MRR", "MIR", "BRR", "BIR", "LRR", "LIR", - "MRC", "MIC", "BRC", "BIC", "LRC", "LIC", - "MRE", "MIE", "BRE", "BIE", "LRE", "LIE", NULL }; - -void -print_xerox_face(int face) -{ - if ((face < F_MIN) || (face > F_MAX)) { - internal_error_1("print_xerox_face (face=%d)", face); - } - out("F "); out(xerox_faces[face]); -} - -/* Named parameters */ - -const_string named_parameters[] = - { NULL, "SLANT", "SPACE", "STRETCH", "SHRINK", "XHEIGHT", - "QUAD", "EXTRASPACE", NULL }; - -void -out_named_parameter(unsigned parameter) -{ - if ((parameter < P_MIN) || (parameter > P_MAX)) { - internal_error_1("out_named_parameter (parameter = %d)", parameter); - } - out(named_parameters[parameter]); -} - -/* Named math symbol parameters */ - -const_string named_mathsy_parameters[] = - { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, - "NUM1", "NUM2", "NUM3", "DENOM1", - "DENOM2", "SUP1", "SUP2", "SUP3", "SUB1", "SUB2", - "SUPDROP", "SUBDROP", "DELIM1", "DELIM2", "AXISHEIGHT", NULL }; - -void -out_named_mathsy_parameter(unsigned parameter) -{ - if ((parameter < P_MATHSY_MIN) || (parameter > P_MATHSY_MAX) || - (named_mathsy_parameters[parameter]==NULL)) { - internal_error_1("out_named_mathsy_parameter (parameter=%d)",parameter); - } - out(named_mathsy_parameters[parameter]); -} - -/* Named math extension parameters */ - -const_string named_mathex_parameters[] = - { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, - "DEFAULTRULETHICKNESS", "BIGOPSPACING1", - "BIGOPSPACING2", "BIGOPSPACING3", - "BIGOPSPACING4", "BIGOPSPACING5", NULL }; - -void -out_named_mathex_parameter(unsigned parameter) -{ - if ((parameter < P_MATHEX_MIN) || (parameter > P_MATHEX_MAX) || - (named_mathex_parameters[parameter]==NULL)) { - internal_error_1("out_named_mathex_parameter (parameter=%d)",parameter); - } - out(named_mathex_parameters[parameter]); -} - -/* Typesetting directions */ - -const_string type_directions[] = - { "FONTDIR", "NATURALFONTDIR", NULL }; - -const_string actual_directions[] = - { "TL", "LT", "TR", "RT", "LB", "BL", "BR", "RB", NULL }; - -void -out_type_direction(unsigned direction) -{ - if ((direction < DIR_MIN) || (direction > DIR_MAX)) { - internal_error_1("out_type_direction (direction=%d)", direction); - } - out(type_directions[direction/8]); out(" "); - out(actual_directions[direction%8]); -} - -/* Kinds of accents */ - -const_string accent_kinds[] = - { NULL, "TOPACCENT", "MIDACCENT", "BOTACCENT", NULL }; - -void -out_accent_kind(unsigned kind) -{ - if ((kind < ACC_TOP) || (kind > ACC_BOT)) { - internal_error_1("out_accent_kind (kind=%d)", kind); - } - out(accent_kinds[kind]); -} - -/* Move directions */ - -const_string move_directions[] = - { "MOVERIGHT", "MOVELEFT", "MOVEUP", "MOVEDOWN", NULL }; - -void -out_move_direction(unsigned direction) -{ - if ((direction < M_MIN) || (direction > M_MAX)) { - internal_error_1("out_move_direction (direction=%d)", direction); - } - out(move_directions[direction]); -} - -/* Rule measures */ - -const_string rule_measures[] = - { "RULEWD", "RULEHT", "RULEDP", NULL }; - -void -out_rule_measure(unsigned measure) -{ - if ((measure < RULE_MIN) || (measure > RULE_MAX)) { - internal_error_1("out_rule_measure (measure=%d)", measure); - } - out(rule_measures[measure]); -} - -/* Glue shrink or stretch */ - -const_string glue_shrink_stretch[] = - { "GLUESHRINK", "GLUESTRETCH", NULL }; - -void -out_shrink_stretch(unsigned shrink_stretch) -{ - if ((shrink_stretch < GLUE_MIN) || (shrink_stretch > GLUE_MAX)) { - internal_error_1("out_shrink_stretch (shrink_stretch=%d)", - shrink_stretch); - } - out(glue_shrink_stretch[shrink_stretch]); -} - -/* Glue orders */ - -const_string glue_orders[] = - { "UNIT", "FI", "FIL", "FILL", "FILLL", NULL }; - -void -out_glue_order(unsigned order) -{ - if ((order < O_MIN) || (order > O_MAX)) { - internal_error_1("out_glue_order (order=%d)", order); - } - out(glue_orders[order]); -} - -/* Glue kinds */ - -const_string glue_kinds[] = - { "NORMAL", "ALEADERS", "CLEADERS", "ALEADERS", "XLEADERS", NULL }; - -void -out_glue_kind(unsigned kind) -{ - if ((kind < K_MIN) || (kind > K_MAX)) { - internal_error_1("out_glue_kind (kind=%d)", kind); - } - out(glue_kinds[kind]); -} - -unsigned parenthesis_level=0; -unsigned digits[12]; - -/* Basic routines used by everyone */ - -void -out_ln(void) -{ - unsigned i; - out("\n"); - for (i = 0; i < parenthesis_level; i++) out(" "); -} - -void -left(void) -{ - parenthesis_level++; out("("); -} - -void -right(void) -{ - if (parenthesis_level==0) internal_error_0("right"); - parenthesis_level--; out(")"); out_ln(); -} - -void -out_char(unsigned val) -{ - if (char_format==CHAR_CODE_NUM) out_num(val); - else if (font_type!=FT_VANILLA) out_num(val); - else if (((val>='0') && (val<='9')) || - ((val>='A') && (val<='Z')) || - ((val>='a') && (val<='z'))) - fprintf(file_output, "C %c", val); - else out_num(val); -} - -void -out_num(unsigned val) -{ - if (num_format==NUM_CODE_OCTAL) out_int(val, 8); - else out_int(val, 16); -} - -static void out_digits(unsigned); - -void -out_int(unsigned val, unsigned base) -{ - register unsigned j=0, acc=val; - if (val < 0) internal_error_1("out_int (val=%d)", val); - if (base==16) out("H "); - else if (base==10) out("D "); - else if (base==8) out("O "); - else internal_error_1("out_int (base=%d)", base); - do { - digits[j] = acc % base; - j++; - acc = acc / base; - } while (acc > 0); -/* - if ((base==16) && (ec>=0x100)) { - while (j<4) { digits[j] = 0; j++; } - } -*/ - out_digits(j); -} - -void -out_fix(fix fval) -{ - register int a = (fval & 0xfff00000) >> 20, f = fval & 0xfffff, j=0; - register int delta; - - out("R "); - if (a>0x7ff) { - out("-"); a = 0x1000 - a; - if (f>0) { - f = 0x100000 - f; a--; - } - } - do { - digits[j] = a % 10; - j++; - a = a / 10; - } while (a > 0); - out_digits(j); - out("."); - f = 10*f + 5; delta = 10; - do { - if (delta>0x100000) f = f + 0x80000 - (delta / 2); - fprintf(file_output, "%c", (f / 0x100000) + '0'); - f = 10 * (f % 0x100000); delta = delta*10; - } while (f>delta); -} - -void -out_hex(unsigned char c) -{ - fprintf(file_output, "%02X", c); -} - -static void -out_digits(unsigned counter) -{ - register unsigned j=counter, c; - while (j>0) { - c = digits[--j]; - if (c<10) fprintf(file_output, "%c", c+'0'); - else fprintf(file_output, "%c", c+'A'-10); - } -} - -void -out(const_string sval) -{ - fprintf(file_output, "%s", sval); -} |