lib/crypt.h: provide list of supported hash algorithms

Author: Daniel Zagaynov

build-aux/scripts/gen-crypt-h

@@ -87,6 +87,22 @@ sub process_hashes_conf {
     return;
 }
 
+sub dump_provided_hashes {
+    my ($hashes_conf, $hashes_enabled) = @_;
+    my %enabled = enabled_set($hashes_enabled);
+    my $hconf   = parse_hashes_conf($hashes_conf);
+
+    my @provided_hashes;
+    while (my ($e, $v) = each %{$hconf->hashes}){
+        if ($enabled{$e}) {
+            push(@provided_hashes, "{\"$e\", \"@{[$v->prefix]}\"}");
+        }
+    }
+    $substs{PROVIDED_HASHES} = join(",\n    ", @provided_hashes);
+
+    return;
+}
+
 sub substitute {
     my ($infile) = @_;
     open my $fh, '<', $infile
@@ -122,6 +138,7 @@ exit 0 if eval {
     my $infile = shift @ARGV;
     process_config_h(shift @ARGV);
     process_hashes_conf(@ARGV) if @ARGV;
+    dump_provided_hashes(@ARGV) if @ARGV;
     substitute($infile);
     close STDOUT or die "write error: $!\n";
     1;

lib/crypt.h.in

@@ -244,6 +244,17 @@ extern const char *crypt_preferred_method (void);
 /* Version number as a string constant.  */
 #define XCRYPT_VERSION_STR "@XCRYPT_VERSION_STR@"
 
+/* List of provided by the current build hash algorithms*/
+struct hash_alg{
+    const char *name;
+    const char *h_prefix;
+};
+
+static struct hash_alg const provided_hash_algorithms[] = {
+    @PROVIDED_HASHES@,
+    {NULL, NULL}
+};
+
 @END_DECLS@
 
 #endif /* crypt.h */