unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
blob 35bb8b98a001aefffa2640d6107d4a2ca160f305 2806 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
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
 
/* Hash inputs and generate C file with the digest.

Copyright (C) 1985-1986, 1992-1994, 1997, 1999-2016, 2018-2019
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>
#include <getopt.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)
{
  int c;
  bool raw = false;
  while (0 <= (c = getopt (argc, argv, "rh")))
    {
      switch (c)
        {
        case 'r':
          raw = true;
          break;
        case 'h':
          printf ("make-fingerprint [-r] FILES...: compute a hash\n");
          return 0;
        default:
          return 1;
        }
    }

  struct sha256_ctx ctx;
  sha256_init_ctx (&ctx);

  for (int i = optind; 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);
    }

  unsigned char digest[32];
  sha256_finish_ctx (&ctx, digest);

  if (raw)
    {
      for (int i = 0; i < 32; ++i)
        printf ("%02X", digest[i]);
    }
  else
    {
      puts ("#include \"fingerprint.h\"\n"
	    "unsigned char const fingerprint[] =\n"
	    "{");
      for (int i = 0; i < 32; ++i)
        printf ("\t0x%02X,\n", digest[i]);
      puts ("};");
    }

  return EXIT_SUCCESS;
}

/* make-fingerprint.c ends here */

debug log:

solving 35bb8b98a0 ...
found 35bb8b98a0 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 public inbox

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

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).