all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
blob dd2f0935d4388b8fba1ac05966b9bf2a6517f836 2336 bytes (raw)
name: lib-src/make-fingerprint.c 	 # note: path name is non-authoritative(*)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
 
/* Hash inputs and generate C file with the digest.

Copyright (C) 1985-1986, 1992-1994, 1997, 1999-2016 Free Software
Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs 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 3 of the License, or (at
your option) any later version.

GNU Emacs 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 GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */


/* The arguments given to this program are all the object files that
 go into building GNU Emacs.  There is no special search logic to find
 the files.  */

#include <config.h>

#include <stdarg.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sysstdio.h>
#include <sha256.h>

#ifdef WINDOWSNT
/* Defined to be sys_fopen in ms-w32.h, but only #ifdef emacs, so this
   is really just insurance.  */
#undef fopen
#include <direct.h>
#endif /* WINDOWSNT */

int
main (int argc, char **argv)
{
  struct sha256_ctx ctx;
  sha256_init_ctx (&ctx);

  for (int i = 1; i < argc; ++i)
    {
      FILE *f = fopen (argv[i], "r" FOPEN_BINARY);
      if (!f)
        {
          fprintf (stderr, "%s: Error: could not open %s\n",
                   argv[0], argv[i]);
          return 1;
        }

      char buf[128*1024];
      do
        {
          size_t chunksz = fread (buf, 1, sizeof (buf), f);
          if (ferror (f))
            {
              fprintf (stderr, "%s: Error: could not read %s\n",
                       argv[0], argv[i]);
              return 1;
            }
          sha256_process_bytes (buf, chunksz, &ctx);
        } while (!feof (f));
      fclose (f);
    }

  uint8_t digest[32];
  sha256_finish_ctx (&ctx, digest);
  printf ("#include \"fingerprint.h\"\n");
  printf ("\n");
  printf ("const uint8_t fingerprint[32] = { ");
  for (int i = 0; i < 32; ++i)
    printf ("%s0x%02X", i ? ", " : "", digest[i]);
  printf (" };\n");

  return EXIT_SUCCESS;
}

/* make-fingerprint.c ends here */

debug log:

solving dd2f093 ...
found dd2f093 in https://git.savannah.gnu.org/cgit/emacs.git

(*) Git path names are given by the tree(s) the blob belongs to.
    Blobs themselves have no identifier aside from the hash of its contents.^

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.