mpint.c (touint): Compare unsigned with unsigned, not unsigned long.

[u/mdw/catacomb] / cc.h

/* -*-c-*-
 *
 * $Id$
 *
 * Catcrypt common stuff
 *
 * (c) 2004 Straylight/Edgeware
 */

/*----- Licensing notice --------------------------------------------------*
 *
 * This file is part of Catacomb.
 *
 * Catacomb is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Library General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * Catacomb 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 Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with Catacomb; if not, write to the Free
 * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 * MA 02111-1307, USA.
 */

#ifndef CATACOMB_CC_H
#define CATACOMB_CC_H

#ifdef __cplusplus
  extern "C" {
#endif

/*----- Header files ------------------------------------------------------*/

#if _FILE_OFFSET_BITS != 64
#  error "Must set _FILE_OFFSET_BITS to 64."
#endif

#include <stdio.h>
#include <string.h>
#include <time.h>

#include <mLib/dstr.h>

#include "key.h"
#include "gcipher.h"
#include "ghash.h"
#include "gmac.h"

/*----- Cryptographic object tables ---------------------------------------*/

/* --- Key encapsulation --- */

typedef struct kem {
  const struct kemops *ops;
  key_packdef *kp;
  void *kd;
  const gchash *h;
  const gccipher *c, *cx;
  const gcmac *m;
} kem;

typedef struct kemops {
  const key_fetchdef *kf;               /* Key fetching structure */
  size_t kdsz;                          /* Size of the key-data structure */
  kem *(*init)(key */*k*/, void */*kd*/);
  int (*doit)(kem */*k*/, dstr */*d*/, ghash */*h*/);
  const char *(*check)(kem */*k*/);
  void (*destroy)(kem */*k*/);
} kemops;

struct kemtab {
  const char *name;
  const kemops *encops;
  const kemops *decops;
};

extern const struct kemtab kemtab[];

/* --- @getkem@ --- *
 *
 * Arguments:   @key *k@ = the key to load
 *              @const char *app@ = application name
 *              @int wantpriv@ = nonzero if we want to decrypt
 *
 * Returns:     A key-encapsulating thing.
 *
 * Use:         Loads a key.
 */

extern kem *getkem(key */*k*/, const char */*app*/, int /*wantpriv*/);

/* --- @setupkem@ --- *
 *
 * Arguments:   @kem *k@ = key-encapsulation thing
 *              @dstr *d@ = key-encapsulation data
 *              @gcipher **cx@ = key-expansion function (for IVs)
 *              @gcipher **c@ = where to put initialized encryption scheme
 *              @gmac **m@ = where to put initialized MAC
 *
 * Returns:     Zero for success, nonzero on faliure.
 *
 * Use:         Initializes all the various symmetric things from a KEM.
 */

extern int setupkem(kem */*k*/, dstr */*d*/,
                    gcipher **/*cx*/, gcipher **/*c*/, gmac **/*m*/);

/* --- @freekem@ --- *
 *
 * Arguments:   @kem *k@ = key-encapsulation thing
 *
 * Returns:     ---
 *
 * Use:         Frees up a key-encapsulation thing.
 */

extern void freekem(kem */*k*/);

/* --- Signing --- */

typedef struct sig {
  const struct sigops *ops;
  key_packdef *kp;
  void *kd;
  const gchash *ch;
  ghash *h;
} sig;

typedef struct sigops {
  const key_fetchdef *kf;               /* Key fetching structure */
  size_t kdsz;                          /* Size of the key-data structure */
  sig *(*init)(key */*k*/, void */*kd*/, const gchash */*hc*/);
  int (*doit)(sig */*s*/, dstr */*d*/);
  const char *(*check)(sig */*s*/);
  void (*destroy)(sig */*s*/);
} sigops;

struct sigtab {
  const char *name;
  const sigops *signops;
  const sigops *verifyops;
  const gchash *ch;
};

extern const struct sigtab sigtab[];

/* --- @getsig@ --- *
 *
 * Arguments:   @key *k@ = the key to load
 *              @const char *app@ = application name
 *              @int wantpriv@ = nonzero if we want to sign
 *
 * Returns:     A signature-making thing.
 *
 * Use:         Loads a key and starts hashing.
 */

extern sig *getsig(key */*k*/, const char */*app*/, int /*wantpriv*/);

/* --- @freesig@ --- *
 *
 * Arguments:   @sig *s@ = signature-making thing
 *
 * Returns:     ---
 *
 * Use:         Frees up a signature-making thing
 */

extern void freesig(sig */*s*/);

/*----- File encodings ----------------------------------------------------*/

/* --- Data encoding --- */

typedef struct enc {
  const struct encops *ops;
  FILE *fp;
} enc;

typedef struct encops {
  const char *name;
  const char *rmode, *wmode;
  int nraw, ncook;
  enc *(*initenc)(FILE */*fp*/, const char */*msg*/);
  enc *(*initdec)(FILE */*fp*/,
                  int (*/*func*/)(const char *, void *), void */*p*/);
  int (*read)(enc */*e*/, void */*p*/, size_t /*sz*/);
  int (*write)(enc */*e*/, const void */*p*/, size_t /*sz*/);
  int (*encdone)(enc */*e*/);
  int (*decdone)(enc */*e*/);
  void (*destroy)(enc */*e*/);
} encops;

extern const encops enctab[];

/* --- @getenc@ --- *
 *
 * Arguments:   @const char *enc@ = name of wanted encoding
 *
 * Returns:     Pointer to encoder operations.
 *
 * Use:         Finds a named encoder or decoder.
 */

extern const encops *getenc(const char */*enc*/);

/* --- @checkbdry@ --- *
 *
 * Arguments:   @const char *b@ = boundary string found
 *              @void *p@ = boundary string wanted
 *
 * Returns:     Nonzero if the boundary string is the one we wanted.
 *
 * Use:         Pass as @func@ to @initdec@ if you just want a simple life.
 */

extern int checkbdry(const char */*b*/, void */*p*/);

/* --- @initenc@ --- *
 *
 * Arguments:   @const encops *eo@ = operations (from @getenc@)
 *              @FILE *fp@ = file handle to attach
 *              @const char *msg@ = banner message
 *
 * Returns:     The encoder object.
 *
 * Use:         Initializes an encoder.
 */

extern enc *initenc(const encops */*eo*/, FILE */*fp*/, const char */*msg*/);

/* --- @initdec@ --- *
 *
 * Arguments:   @const encops *eo@ = operations (from @getenc@)
 *              @FILE *fp@ = file handle to attach
 *              @int (*func)(const char *, void *)@ = banner check function
 *              @void *p@ = argument for @func@
 *
 * Returns:     The encoder object.
 *
 * Use:         Initializes an encoder.
 */

extern enc *initdec(const encops */*eo*/, FILE */*fp*/,
                    int (*/*func*/)(const char *, void *), void */*p*/);

/* --- @freeenc@ --- *
 *
 * Arguments:   @enc *e@ = encoder object
 *
 * Returns:     ---
 *
 * Use:         Frees an encoder object.
 */

extern void freeenc(enc */*e*/);

/* --- @cmd_encode@, @cmd_decode@ --- */

#define CMD_ENCODE {                                                    \
  "encode", cmd_encode,                                                 \
    "encode [-p] [-f FORMAT] [-b LABEL] [-o OUTPUT] [FILE]",            \
    "\
Options:\n\
\n\
-f, --format=FORMAT     Encode to FORMAT.\n\
-b, --boundary=LABEL    PEM boundary is LABEL.\n\
-o, --output=FILE       Write output to FILE.\n\
-p, --progress          Show progress on large files.\n\
" }

#define CMD_DECODE {                                                    \
  "decode", cmd_decode,                                                 \
    "decode [-p] [-f FORMAT] [-b LABEL] [-o OUTPUT] [FILE]",            \
    "\
Options:\n\
\n\
-f, --format=FORMAT     Decode from FORMAT.\n\
-b, --boundary=LABEL    PEM boundary is LABEL.\n\
-o, --output=FILE       Write output to FILE.\n\
-p, --progress          Show progress on large files.\n\
" }

extern int cmd_encode(int /*argc*/, char */*argv*/[]);
extern int cmd_decode(int /*argc*/, char */*argv*/[]);

/*----- Hash encoding functions -------------------------------------------*/

/* --- Table --- */

#define ENCODINGS(_)                                                    \
  _(HEX, hex)                                                           \
  _(BASE64, base64)                                                     \
  _(BASE32, base32)

enum {
#define ENUM(tag, name) ENC_##tag,
  ENCODINGS(ENUM)
#undef ENUM
  ENC_LIMIT
};

typedef struct encodeops {
  const char *name;
  void (*put)(const octet *, size_t, FILE *);
  size_t (*get)(const char *, octet *, size_t, char **);
} encodeops;

extern const encodeops encodingtab[];

/* --- @getencoding@ --- *
 *
 * Arguments:   @const char *ename@ = encoding name
 *
 * Returns:     Pointer to encoding table entry, or null.
 *
 * Use:         Finds an encoding entry given its name.
 */

extern const encodeops *getencoding(const char */*ename*/);

/*----- File hashing ------------------------------------------------------*/

/* --- @gethash@ --- *
 *
 * Arguments:   @const char *name@ = pointer to name string
 *
 * Returns:     Pointer to appropriate hash class.
 *
 * Use:         Chooses a hash function by name.
 */

extern const gchash *gethash(const char */*name*/);

/* --- @fhash@ --- *
 *
 * Arguments:   @const gchash *gch@ = pointer to hash function to use
 *              @unsigned f@ = flags to set
 *              @const char *file@ = file name to be hashed (null for stdin)
 *              @void *buf@ = pointer to hash output buffer
 *
 * Returns:     Zero if it worked, nonzero on error.
 *
 * Use:         Hashes a file.
 */

#define FHF_BINARY 256u
#define FHF_PROGRESS 512u

#define FHF_MASK 384u

extern int fhash(const gchash */*gch*/, unsigned /*f*/,
                 const char */*file*/, void */*buf*/);

/* --- @hfparse@ --- *
 *
 * Arguments:   @hfpctx *hfp@ = pointer to the context structure
 *
 * Returns:     A code indicating what happened.
 *
 * Use:         Parses a line from the input file.
 */

enum {                                  /* Meaning and members set */
  HF_FILE,                              /* File hash: @dline@ and @hbuf@ */
  HF_ENC,                               /* Encoding: @ee@ */
  HF_HASH,                              /* Hash function: @gch@ */
  HF_ESC,                               /* Name escape: @f@ */
  HF_EOF,                               /* End of file */
  HF_BAD                                /* Unrecognized line */
};

typedef struct hfpctx {
  unsigned f;                           /* Flags to read */
#define HFF_ESCAPE 1u                   /*   File names are escaped */
  FILE *fp;                             /* Input file to read */
  dstr *dline;                          /* Line contents, corrupted */
  const gchash *gch;                    /* Hash function to use */
  const encodeops *ee;                  /* Encoding to apply to hashes */
  dstr *dfile;                          /* File name for @HF_FILE@ lines */
  octet *hbuf;                          /* Output buffer for hash data */
} hfpctx;

extern int hfparse(hfpctx */*hfp*/);

/*----- String I/O --------------------------------------------------------*/

#define GSF_RAW 4096u
#define GSF_FILE 0u
#define GSF_STRING 8192u

#define GSF_MASK 61440u

/* --- @getstring@ --- *
 *
 * Arguments:   @void *in@ = input source
 *              @dstr *d@ = destination string
 *              @unsigned f@ = input flags
 *
 * Returns:     Zero if OK, nonzero on end-of-file.
 *
 * Use:         Reads a filename (or something similar) from a stream.
 */

extern int getstring(void */*in*/, dstr */*d*/, unsigned /*f*/);

/* --- @putstring@ --- *
 *
 * Arguments:   @FILE *fp@ = stream to write on
 *              @const char *p@ = pointer to text
 *              @unsigned f@ = output flags
 *
 * Returns:     ---
 *
 * Use:         Emits a string to a stream.
 */

extern void putstring(FILE */*fp*/, const char */*p*/, unsigned /*f*/);

/*----- Lists of things ---------------------------------------------------*/

/* --- @LIST(STRING, FP, END-TEST, NAME-EXPR)@ --- *
 *
 * Produce list of things.  Requires @i@ and @w@ variables in scope.
 * END-TEST and NAME-EXPR are in terms of @i@.
 */

#define LIST(what, fp, end, name) do {                                  \
  fputs(what ":\n  ", fp);                                              \
  w = 2;                                                                \
  for (i = 0; end; i++) {                                               \
    if (w == 2)                                                         \
      w += strlen(name);                                                \
    else {                                                              \
      if (strlen(name) + w > 76) {                                      \
        fputs("\n  ", fp);                                              \
        w = 2 + strlen(name);                                           \
      } else {                                                          \
        fputc(' ', fp);                                                 \
        w += strlen(name) + 1;                                          \
      }                                                                 \
    }                                                                   \
    fputs(name, fp);                                                    \
  }                                                                     \
  fputc('\n', fp);                                                      \
} while (0)

#define STDLISTS(LI)                                                    \
  LI("Hash functions", hash,                                            \
     ghashtab[i], ghashtab[i]->name)                                    \
  LI("Encryption schemes", enc,                                         \
     gciphertab[i], gciphertab[i]->name)                                \
  LI("Message authentication schemes", mac,                             \
     gmactab[i], gmactab[i]->name)                                      \
  LI("Elliptic curves", ec,                                             \
     ectab[i].name, ectab[i].name)                                      \
  LI("Diffie-Hellman groups", dh,                                       \
     ptab[i].name, ptab[i].name)

#define LIDECL(text, tag, test, name)                                   \
  static void show_##tag(void);

#define LIDEF(text, tag, test, name)                                    \
  static void show_##tag(void)                                          \
  {                                                                     \
    unsigned i, w;                                                      \
    LIST(text, stdout, test, name);                                     \
  }

#define LIENT(text, tag, test, name)                                    \
  { #tag, show_##tag },

struct listent {
  const char *name;
  void (*list)(void);
};

#define MAKELISTTAB(listtab, LISTS)                                     \
  LISTS(LIDECL)                                                         \
  static const struct listent listtab[] = {                             \
    LISTS(LIENT)                                                        \
    { 0, 0 }                                                            \
  };                                                                    \
  LISTS(LIDEF)

extern int displaylists(const struct listent */*listtab*/,
                        char *const /*argv*/[]);

/*----- Progress indicators -----------------------------------------------*/

typedef struct fprogress {
  const char *bp;
  off_t o, sz, olast;
  time_t start, last;
  char name[24];
} fprogress;

/* --- @fprogress_init@ --- *
 *
 * Arguments:   @fprogress *f@ = progress context to be initialized
 *              @const char *name@ = file name string to show
 *              @FILE *fp@ = file we're reading from
 *
 * Returns:     Zero on success, nonzero if the file's state is now broken.
 *
 * Use:         Initializes a progress context.  Nothing is actually
 *              displayed yet.
 */

extern int fprogress_init(fprogress */*f*/,
                          const char */*name*/, FILE */*fp*/);

/* --- @fprogress_update@ --- *
 *
 * Arguments:   @fprogress *f@ = progress context
 *              @size_t n@ = how much progress has been made
 *
 * Returns:     ---
 *
 * Use:         Maybe updates the display to show that some progress has been
 *              made.
 */

extern void fprogress_update(fprogress */*f*/, size_t /*n*/);

/* --- @fprogress_clear@ --- *
 *
 * Arguments:   @fprogress *f@ = progress context
 *
 * Returns:     ---
 *
 * Use:         Clears the progress display from the screen.
 */

extern void fprogress_clear(fprogress */*f*/);

/* --- @fprogress_done@ --- *
 *
 * Arguments:   @fprogress *f@ = progress context
 *
 * Returns:     ---
 *
 * Use:         Clear up the progress context and removes any display.
 */

extern void fprogress_done(fprogress */*f*/);

/*----- Subcommand dispatch -----------------------------------------------*/

typedef struct cmd {
  const char *name;
  int (*cmd)(int /*argc*/, char */*argv*/[]);
  const char *usage;
  const char *help;
} cmd;

extern void version(FILE */*fp*/);
extern void help_global(FILE */*fp*/);

/* --- @findcmd@ --- *
 *
 * Arguments:   @const cmd *cmds@ = pointer to command table
 *              @const char *name@ = a command name
 *
 * Returns:     Pointer to the command structure.
 *
 * Use:         Looks up a command by name.  If the command isn't found, an
 *              error is reported and the program is terminated.
 */

const cmd *findcmd(const cmd */*cmds*/, const char */*name*/);

/* --- @sc_help@ --- *
 *
 * Arguments:   @const cmd *cmds@ = pointer to command table
 *              @FILE *fp@ = output file handle
 *              @char *const *argv@ = remaining arguments
 *
 * Returns:     ---
 *
 * Use:         Prints a help message, maybe with help about subcommands.
 */

extern void sc_help(const cmd */*cmds*/, FILE */*fp*/,
                    char *const */*argv*/);

/*----- That's all, folks -------------------------------------------------*/

#ifdef __cplusplus
  }
#endif

#endif