From 101a91cc441deceaed2caabfec819e5dac24370a Mon Sep 17 00:00:00 2001
From: "Ryan C. Gordon" <icculus@icculus.org>
Date: Mon, 25 Mar 2024 15:05:18 -0400
Subject: [PATCH] makecasefoldhashtable.pl: Report size of case-folding
 hashtable.

---
 extras/makecasefoldhashtable.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/extras/makecasefoldhashtable.pl b/extras/makecasefoldhashtable.pl
index 4e0cd301..015681c6 100755
--- a/extras/makecasefoldhashtable.pl
+++ b/extras/makecasefoldhashtable.pl
@@ -8,6 +8,8 @@
 my $HASHBUCKETS2_16 = 16;
 my $HASHBUCKETS3_16 = 4;
 
+my $mem_used = 0;
+
 print <<__EOF__;
 /*
  * This file is part of PhysicsFS (https://icculus.org/physfs/)
@@ -143,18 +145,22 @@
             my $hashed = (($hexxed ^ ($hexxed >> 8)) & ($HASHBUCKETS1_32-1));
             #print("// hexxed '$hexxed'  hashed1 '$hashed'\n");
             $foldPairs1_32[$hashed] .= "    { 0x$code, 0x$map1 },\n";
+            $mem_used += 8;
         } elsif (not defined($map2)) {
             my $hashed = (($hexxed ^ ($hexxed >> 8)) & ($HASHBUCKETS1_16-1));
             #print("// hexxed '$hexxed'  hashed1 '$hashed'\n");
             $foldPairs1_16[$hashed] .= "    { 0x$code, 0x$map1 },\n";
+            $mem_used += 4;
         } elsif (not defined($map3)) {
             my $hashed = (($hexxed ^ ($hexxed >> 8)) & ($HASHBUCKETS2_16-1));
             #print("// hexxed '$hexxed'  hashed2 '$hashed'\n");
             $foldPairs2_16[$hashed] .= "    { 0x$code, 0x$map1, 0x$map2 },\n";
+            $mem_used += 6;
         } else {
             my $hashed = (($hexxed ^ ($hexxed >> 8)) & ($HASHBUCKETS3_16-1));
             #print("// hexxed '$hexxed'  hashed3 '$hashed'\n");
             $foldPairs3_16[$hashed] .= "    { 0x$code, 0x$map1, 0x$map2, 0x$map3 },\n";
+            $mem_used += 8;
         }
     }
 }
@@ -212,6 +218,7 @@
         my $sym = "case_fold1_16_${num}";
         print("    { $sym, __PHYSFS_ARRAYLEN($sym) },\n");
     }
+    $mem_used += 12;
 }
 print("};\n\n");
 
@@ -228,6 +235,7 @@
         my $sym = "case_fold1_32_${num}";
         print("    { $sym, __PHYSFS_ARRAYLEN($sym) },\n");
     }
+    $mem_used += 12;
 }
 print("};\n\n");
 
@@ -244,6 +252,7 @@
         my $sym = "case_fold2_16_${num}";
         print("    { $sym, __PHYSFS_ARRAYLEN($sym) },\n");
     }
+    $mem_used += 12;
 }
 print("};\n\n");
 
@@ -259,6 +268,7 @@
         my $sym = "case_fold3_16_${num}";
         print("    { $sym, __PHYSFS_ARRAYLEN($sym) },\n");
     }
+    $mem_used += 12;
 }
 print("};\n\n");
 
@@ -270,6 +280,8 @@
 
 __EOF__
 
+print STDERR "Memory required for case-folding hashtable: $mem_used bytes\n";
+
 exit 0;
 
 # end of makecashfoldhashtable.pl ...