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/extra_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/extra_routines.c')
-rw-r--r-- | Build/source/texk/web2c/omegafonts/extra_routines.c | 482 |
1 files changed, 0 insertions, 482 deletions
diff --git a/Build/source/texk/web2c/omegafonts/extra_routines.c b/Build/source/texk/web2c/omegafonts/extra_routines.c deleted file mode 100644 index 109c8681815..00000000000 --- a/Build/source/texk/web2c/omegafonts/extra_routines.c +++ /dev/null @@ -1,482 +0,0 @@ -/* extra_routines.c: Tables for glues, rules, penalties, etc. - -This file is part of Omega, -which is based on the web2c distribution of TeX, - -Copyright (c) 1994--2001 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 "manifests.h" -#include "list_routines.h" -#include "extra_routines.h" -#include "header_routines.h" -#include "error_routines.h" - -#define MAX_EXTRA_TABLES 16 -#define MAX_TABLE_ENTRIES 256 - -unsigned *ivalue_tables[MAX_EXTRA_TABLES]; -unsigned *penalty_tables[MAX_EXTRA_TABLES]; -fix *fvalue_tables[MAX_EXTRA_TABLES]; -fix *mvalue_tables[MAX_EXTRA_TABLES]; -rule *rule_tables[MAX_EXTRA_TABLES]; -glue *glue_tables[MAX_EXTRA_TABLES]; - -unsigned max_ivalue_entry[MAX_EXTRA_TABLES]; -unsigned max_penalty_entry[MAX_EXTRA_TABLES]; -unsigned max_fvalue_entry[MAX_EXTRA_TABLES]; -unsigned max_mvalue_entry[MAX_EXTRA_TABLES]; -unsigned max_rule_entry[MAX_EXTRA_TABLES]; -unsigned max_glue_entry[MAX_EXTRA_TABLES]; - -unsigned no_ivalue_tables = 0; -unsigned no_penalty_tables = 0; -unsigned no_fvalue_tables = 0; -unsigned no_mvalue_tables = 0; -unsigned no_rule_tables = 0; -unsigned no_glue_tables = 0; - -unsigned *cur_ivalue_table; -unsigned *cur_penalty_table; -fix *cur_mvalue_table; -fix *cur_fvalue_table; -rule *cur_rule_table; -glue *cur_glue_table; - -unsigned cur_ivalue_table_index; -unsigned cur_penalty_table_index; -unsigned cur_mvalue_table_index; -unsigned cur_fvalue_table_index; -unsigned cur_rule_table_index; -unsigned cur_glue_table_index; - -unsigned *cur_ivalue_entry; -unsigned *cur_penalty_entry; -fix *cur_mvalue_entry; -fix *cur_fvalue_entry; -rule *cur_rule_entry; -glue *cur_glue_entry; - -unsigned nki=0; -unsigned nwi=0; -unsigned nkp=0; -unsigned nwp=0; -unsigned nkm=0; -unsigned nwm=0; -unsigned nkf=0; -unsigned nwf=0; -unsigned nkr=0; -unsigned nwr=0; -unsigned nkg=0; -unsigned nwg=0; - -void -compute_ofm_extra_stuff(void) -{ - unsigned i; - - /* discard trailing empty tables */ - for (i=0; i<no_ivalue_tables; i++) - if (max_ivalue_entry[i] > 0) { - nki = i + 1; - nwi += max_ivalue_entry[i]; - } - for (i=0; i<no_penalty_tables; i++) - if (max_penalty_entry[i] > 0) { - nkp = i + 1; - nwp += max_penalty_entry[i]; - } - for (i=0; i<no_mvalue_tables; i++) - if (max_mvalue_entry[i] > 0) { - nkm = i + 1; - nwm += max_mvalue_entry[i]; - } - for (i=0; i<no_fvalue_tables; i++) - if (max_fvalue_entry[i] > 0) { - nkf = i + 1; - nwf += max_fvalue_entry[i]; - } - for (i=0; i<no_rule_tables; i++) - if (max_rule_entry[i] > 0) { - nkr = i + 1; - nwr += 3 * max_rule_entry[i]; - } - for (i=0; i<no_glue_tables; i++) - if (max_glue_entry[i] > 0) { - nkg = i + 1; - nwg += 4 * max_glue_entry[i]; - } - if (ofm_level < OFM_LEVEL1) { - if (no_ivalue_tables > 0) { - warning_2("Ignoring %d words in %d IVALUE tables", nwi, nki); - nki = nwi = 0; - } - if (no_penalty_tables > 0) { - warning_2("Ignoring %d words in %d PENALTY tables", nwp, nkp); - nkp = nwp = 0; - } - if (no_mvalue_tables > 0) { - warning_2("Ignoring %d words in %d MVALUE tables", nwm, nkm); - nkm = nwm = 0; - } - if (no_fvalue_tables > 0) { - warning_2("Ignoring %d words in %d FVALUE tables", nwf, nkf); - nkf = nwf = 0; - } - if (no_rule_tables > 0) { - warning_2("Ignoring %d words in %d RULE tables", nwr, nkr); - nkr = nwr = 0; - } - if (no_glue_tables > 0) { - warning_2("Ignoring %d words in %d GLUE tables", nwg, nkg); - nkg = nwg = 0; - } - } -} - -void -output_ofm_extra_stuff(void) -{ - if (ofm_level >= OFM_LEVEL1) { - if (nki+nkp+nkm+nkf+nkr+nkg > 0) { - fatal_error_0("OFM level 1 not currently supported"); - } - } -} - -#if 0 -/* Not used */ -static void -init_all_tables(void) -{ - unsigned i=0; - - for (i=0; i<MAX_EXTRA_TABLES; i++) { - ivalue_tables[i] = NULL; - penalty_tables[i] = NULL; - fvalue_tables[i] = NULL; - mvalue_tables[i] = NULL; - rule_tables[i] = NULL; - glue_tables[i] = NULL; - } -} -#endif - -void -init_font_ivalue(unsigned tab) -{ - if (tab>=MAX_EXTRA_TABLES) - internal_error_1("init_font_ivalue (tab=%d)", tab); - if (ivalue_tables[tab] != NULL) { - warning_1("IVALUE table (D %d) previously defined; " - "old value ignored", tab); - free(ivalue_tables[tab]); - } - ivalue_tables[tab] = - (unsigned *) xcalloc(MAX_TABLE_ENTRIES, sizeof(unsigned)); - if (tab >= no_ivalue_tables) - no_ivalue_tables = tab + 1; - cur_ivalue_table_index = tab; - cur_ivalue_table = ivalue_tables[tab]; - max_ivalue_entry[tab] = 0; -} - -void -init_font_penalty(unsigned tab) -{ - if (tab>=MAX_EXTRA_TABLES) - internal_error_1("init_font_penalty (tab=%d)", tab); - if (penalty_tables[tab] != NULL) { - warning_1("PENALTY table (D %d) previously defined; " - "old value ignored", tab); - free(penalty_tables[tab]); - } - penalty_tables[tab] = - (unsigned *) xcalloc(MAX_TABLE_ENTRIES, sizeof(unsigned)); - cur_penalty_table_index = tab; - cur_penalty_table = penalty_tables[tab]; - if (tab >= no_penalty_tables) - no_penalty_tables = tab + 1; - max_penalty_entry[tab] = 0; -} - -void -init_font_mvalue(unsigned tab) -{ - if (tab>=MAX_EXTRA_TABLES) - internal_error_1("init_font_mvalue (tab=%d)", tab); - if (mvalue_tables[tab] != NULL) { - warning_1("MVALUE table (D %d) previously defined; " - "old value ignored", tab); - free(mvalue_tables[tab]); - } - mvalue_tables[tab] = - (fix *) xcalloc(MAX_TABLE_ENTRIES, sizeof(fix)); - if (tab >= no_mvalue_tables) - no_mvalue_tables = tab + 1; - cur_mvalue_table_index = tab; - cur_mvalue_table = mvalue_tables[tab]; - max_mvalue_entry[tab] = 0; -} - -void -init_font_fvalue(unsigned tab) -{ - if (tab>=MAX_EXTRA_TABLES) - internal_error_1("init_font_fvalue (tab=%d)", tab); - if (fvalue_tables[tab] != NULL) { - warning_1("FVALUE table (D %d) previously defined; " - "old value ignored", tab); - free(fvalue_tables[tab]); - } - fvalue_tables[tab] = - (fix *) xcalloc(MAX_TABLE_ENTRIES, sizeof(fix)); - if (tab >= no_fvalue_tables) - no_fvalue_tables = tab + 1; - cur_fvalue_table_index = tab; - cur_fvalue_table = fvalue_tables[tab]; - max_fvalue_entry[tab] = 0; -} - -void -init_font_rule(unsigned tab) -{ - if (tab>=MAX_EXTRA_TABLES) - internal_error_1("init_font_rule (tab=%d)", tab); - if (rule_tables[tab] != NULL) { - warning_1("RULE table (D %d) previously defined; " - "old value ignored", tab); - free(rule_tables[tab]); - } - rule_tables[tab] = - (rule *) xcalloc(MAX_TABLE_ENTRIES, sizeof(rule)); - if (tab >= no_rule_tables) - no_rule_tables = tab + 1; - cur_rule_table_index = tab; - cur_rule_table = rule_tables[tab]; - max_rule_entry[tab] = 0; -} - -void -init_font_glue(unsigned tab) -{ - if (tab>=MAX_EXTRA_TABLES) - internal_error_1("init_font_glue (tab=%d)", tab); - if (glue_tables[tab] != NULL) { - warning_1("GLUE table (D %d) previously defined; " - "old value ignored", tab); - free(glue_tables[tab]); - } - glue_tables[tab] = - (glue *) xcalloc(MAX_TABLE_ENTRIES, sizeof(glue)); - if (tab >= no_glue_tables) - no_glue_tables = tab + 1; - cur_glue_table_index = tab; - cur_glue_table = glue_tables[tab]; - max_glue_entry[tab] = 0; -} - - -void -init_font_ivalue_entry(unsigned index) -{ - if (index>=MAX_TABLE_ENTRIES) - internal_error_1("init_font_ivalue_entry (index=%d)", index); - cur_ivalue_entry = &cur_ivalue_table[index]; - if (max_ivalue_entry[cur_ivalue_table_index] <= index) - max_ivalue_entry[cur_ivalue_table_index] = index + 1; -} - -void -init_font_penalty_entry(unsigned index) -{ - if (index>=MAX_TABLE_ENTRIES) - internal_error_1("init_font_penalty_entry (index=%d)", index); - cur_penalty_entry = &cur_penalty_table[index]; - if (max_penalty_entry[cur_penalty_table_index] <= index) - max_penalty_entry[cur_penalty_table_index] = index + 1; -} - -void -init_font_mvalue_entry(unsigned index) -{ - if (index>=MAX_TABLE_ENTRIES) - internal_error_1("init_font_mvalue_entry (index=%d)", index); - cur_mvalue_entry = &cur_mvalue_table[index]; - if (max_mvalue_entry[cur_mvalue_table_index] <= index) - max_mvalue_entry[cur_mvalue_table_index] = index + 1; -} - -void -init_font_fvalue_entry(unsigned index) -{ - if (index>=MAX_TABLE_ENTRIES) - internal_error_1("init_font_fvalue_entry (index=%d)", index); - cur_fvalue_entry = &cur_fvalue_table[index]; - if (max_fvalue_entry[cur_fvalue_table_index] <= index) - max_fvalue_entry[cur_fvalue_table_index] = index + 1; -} - -void -init_font_rule_entry(unsigned index) -{ - if (index>=MAX_TABLE_ENTRIES) - internal_error_1("init_font_rule_entry (index=%d)", index); - cur_rule_entry = &cur_rule_table[index]; - if (max_rule_entry[cur_rule_table_index] <= index) - max_rule_entry[cur_rule_table_index] = index + 1; -} - -void -init_font_glue_entry(unsigned index) -{ - if (index>=MAX_TABLE_ENTRIES) - internal_error_1("init_font_glue_entry (index=%d)", index); - cur_glue_entry = &cur_glue_table[index]; - if (max_glue_entry[cur_glue_table_index] <= index) - max_glue_entry[cur_glue_table_index] = index + 1; -} - - -void -set_font_ivalue_definition(unsigned val) -{ - *cur_ivalue_entry = val; -} - -void -set_font_penalty_definition(unsigned val) -{ - *cur_penalty_entry = val; -} - -void -set_font_mvalue_definition(fix fval) -{ - *cur_mvalue_entry = fval; -} - -void -set_font_fvalue_definition(fix fval) -{ - *cur_fvalue_entry = fval; -} - -void -set_font_rule_measure(unsigned measure, fix fval) -{ - switch (measure) { - case RULE_WD: { - cur_rule_entry->rule_wd = fval; break; - } - case RULE_HT: { - cur_rule_entry->rule_ht = fval; break; - } - case RULE_DP: { - cur_rule_entry->rule_dp = fval; break; - } - default: { - internal_error_1("set_font_rule_measure (measure=%d)", measure); - } - } -} - - -void -set_font_glue_width(fix width) -{ - cur_glue_entry->glue_width = width; -} - -void -set_font_glue_shrink_stretch(unsigned shrink_stretch, - fix width, unsigned order) -{ - switch (shrink_stretch) { - case GLUE_SHRINK: { - cur_glue_entry->glue_shrink = width; - cur_glue_entry->glue_shrink_order = order; break; - } - case GLUE_STRETCH: { - cur_glue_entry->glue_stretch = width; - cur_glue_entry->glue_stretch_order = order; break; - } - default: { - internal_error_1("set_font_rule_measure (shrink_stretch=%d)", - shrink_stretch); - } - } -} - -void -set_font_glue_type(unsigned type) -{ - cur_glue_entry->glue_type = type; -} - -void -set_font_glue_character(unsigned c) -{ - cur_glue_entry->glue_arg_type = GLUEARG_CHAR; - cur_glue_entry->glue_arg1 = c; -} - -void -set_font_glue_rule(unsigned rule_table, unsigned rule_index) -{ - cur_glue_entry->glue_arg_type = GLUEARG_RULE; - cur_glue_entry->glue_arg1 = rule_table; - cur_glue_entry->glue_arg2 = rule_index; -} - -void -set_character_ivalue(unsigned table, unsigned index) -{ - fatal_error_0("CHARIVALUE not currently supported"); -} - -void -set_character_penalty(unsigned table, unsigned index) -{ - fatal_error_0("CHARPENALTY not currently supported"); -} - -void -set_character_mvalue(unsigned table, unsigned index) -{ - fatal_error_0("CHARMVALUE not currently supported"); -} - -void -set_character_fvalue(unsigned table, unsigned index) -{ - fatal_error_0("CHARFVALUE not currently supported"); -} - -void -set_character_rule(unsigned table, unsigned index) -{ - fatal_error_0("CHARRULE not currently supported"); -} - -void -set_character_glue(unsigned table, unsigned index) -{ - fatal_error_0("CHARGLUE not currently supported"); -} |