summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegafonts/ligkern_routines.c
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2014-08-05 10:18:03 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2014-08-05 10:18:03 +0000
commit97fa7b3630528845d9934ad227bc9f3a0c9d1d98 (patch)
tree82a86de86632aef5b567b8ce105f1cee57acc7d0 /Build/source/texk/web2c/omegafonts/ligkern_routines.c
parent146eef7b47aee302d588dcdf461ebec5870a6846 (diff)
omfonts: General cleanup: Drop unused code. Declare functions as static
git-svn-id: svn://tug.org/texlive/trunk@34847 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegafonts/ligkern_routines.c')
-rw-r--r--Build/source/texk/web2c/omegafonts/ligkern_routines.c33
1 files changed, 11 insertions, 22 deletions
diff --git a/Build/source/texk/web2c/omegafonts/ligkern_routines.c b/Build/source/texk/web2c/omegafonts/ligkern_routines.c
index 6291b9cfb76..b2e73a5a765 100644
--- a/Build/source/texk/web2c/omegafonts/ligkern_routines.c
+++ b/Build/source/texk/web2c/omegafonts/ligkern_routines.c
@@ -118,6 +118,8 @@ set_ligature_command(unsigned lig, unsigned c, unsigned val)
}
+static int set_new_kern(fix);
+
void
set_kerning_command(unsigned c, fix fval)
{
@@ -166,7 +168,7 @@ set_c_penglue_command(unsigned new_class, unsigned pen_index, unsigned glue_inde
fatal_error_0("CPENGLUE not currently supported");
}
-int
+static int
set_new_kern(fix fval)
{
unsigned index;
@@ -210,23 +212,6 @@ build_kern_table(void)
}
void
-print_kerns(void)
-{
- unsigned i;
-
- if (nk>0) {
- left(); out("COMMENT"); out_ln();
- for (i=0; i<nk; i++) {
- left(); out("KERN_ENTRY");
- out(" "); out_int(i,10);
- out(" "); out_fix(kern_table[i]);
- right();
- }
- right();
- }
-}
-
-void
print_ligkern_table(void)
{
unsigned i;
@@ -275,7 +260,9 @@ hash_list hash_table[PRIME];
unsigned x_lig_cycle;
unsigned y_lig_cycle = CHAR_BOUNDARY;
-int
+static int l_eval(unsigned, unsigned);
+
+static int
l_f(hash_list h, unsigned x, unsigned y)
{
switch(h->new_class) {
@@ -312,7 +299,9 @@ l_f(hash_list h, unsigned x, unsigned y)
return (h->lig_z);
}
-int
+static hash_list l_hash_lookup(unsigned, unsigned);
+
+static int
l_eval(unsigned x, unsigned y)
{
hash_list h;
@@ -325,7 +314,7 @@ l_eval(unsigned x, unsigned y)
queue hash_entries;
-int
+static int
l_hash_input(unsigned p, unsigned c)
{
@@ -386,7 +375,7 @@ l_hash_input(unsigned p, unsigned c)
return TRUE;
}
-hash_list
+static hash_list
l_hash_lookup(unsigned x, unsigned y)
{
unsigned key = (x & 0x7fff)*(y & 0x7fff) % PRIME;