/*Support routines for the Crypt unit

  Copyright (C) 2000-2006 Frank Heckenbach <frank@pascal.gnu.de>

  This file is free software; as a special exception the author
  gives unlimited permission to copy and/or distribute it, with or
  without modifications, as long as this notice is preserved.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY, to the extent permitted by law; without
  even the implied warranty of MERCHANTABILITY or FITNESS FOR A
  PARTICULAR PURPOSE. */

/* Solaris, e.g., needs this for crypt() */
#define __EXTENSIONS__

/* Linux/glibc, e.g., needs this for crypt() */
#define _GNU_SOURCE

#include <unistd.h>
#include <pwd.h>

#define GLOBAL(decl) decl; decl

GLOBAL (char *_c_crypt (char *Key, char *Salt))
{
  return crypt (Key, Salt);
}

GLOBAL (char *_c_getpass (char *Prompt))
{
  return getpass (Prompt);
}