gencache.pl

#!/usr/bin/perl

# Configurable parameters...
$associativity = 4;
$cache_rows = 256;

$maxent = $associativity-1;

open(GEN, '>', "gen/cache.c") or die;

print GEN "#define CACHE_ROWS $cache_rows\n";
print GEN "#define ASSOCIATIVITY $associativity\n";
print GEN "\n";

print GEN "struct cache_entry {\n";
print GEN "\tint32_t ucs;\n";
print GEN "\tconst struct unicode_character_data *ucd;\n";
print GEN "};\n\n";

print GEN "struct cache_row {\n";
print GEN "#ifdef HAVE_PTHREAD_H\n";
print GEN "\tpthread_mutex_t mutex;\n";
print GEN "#endif\n";
print GEN "\tstruct cache_entry e[$associativity];\n";
print GEN "};\n\n";

print GEN "static struct cache_row libucd_cache[$cache_rows] = {\n";

for ( $i = 0 ; $i < $cache_rows ; $i++ ) {
    print GEN "\t{\n";
    print GEN "#ifdef HAVE_PTHREAD_H\n";
    print GEN "\t\tPTHREAD_MUTEX_INITIALIZER,\n";
    print GEN "#endif\n";
    print GEN "\t\t{\n";
    for ( $j = 0 ; $j < $associativity ; $j++ ) {
	print GEN "\t\t\t{ -1, 0 },\n";
    }
    print GEN "\t\t},\n";
    print GEN "\t},\n";
}
print GEN "};\n\n";

print GEN "#define RETURN_ENTRY(u,r) \\\n";
print GEN "\tlock_cache(r); \\\n";

for ( $i = 0 ; $i < $associativity ; $i++ ) {
    print GEN "\tif ( u == r->e[$i].ucs ) { \\\n";
    print GEN "\t\tconst struct unicode_character_data *ucd = r->e[$i].ucd; \\\n";
    if ( $i > 0 ) {
	for ( $j = $i ; $j > 0 ; $j-- ) {
	    $jm1 = $j-1;
	    print GEN "\t\tr->e[$j] = r->e[$jm1]; \\\n";
	}
	print GEN "\t\tr->e[0].ucs = u; r->e[0].ucd = ucd; \\\n";
    }
    print GEN "\t\tucd = unicode_character_get(ucd); \\\n";
    print GEN "\t\tunlock_cache(r); \\\n";
    print GEN "\t\treturn ucd; \\\n";
    print GEN "\t} \\\n";
}

print GEN "\tunlock_cache(r); \\\n";
print GEN "\tif ( (ucd = _libucd_character_data_raw(u)) ) { \\\n";
print GEN "\t\tconst struct unicode_character_data *olducd; \\\n";
print GEN "\t\tlock_cache(r); \\\n";
print GEN "\t\tolducd = r->e[$maxent].ucd; \\\n";
for ( $j = $maxent ; $j > 0 ; $j-- ) {
    $jm1 = $j-1;
    print GEN "\t\tr->e[$j] = r->e[$jm1]; \\\n";
}
print GEN "\t\tr->e[0].ucs = u; r->e[0].ucd = ucd; \\\n";
print GEN "\t\tunlock_cache(r); \\\n";
print GEN "\t\tif (olducd) \\\n";
print GEN "\t\t\tunicode_character_put(olducd); \\\n";
print GEN "\t} \\\n";
print GEN "\treturn ucd; \\\n";
print GEN "\n";

close(GEN);