#include "krb5_locl.h"


krb5_error_code
krb5_cc_resolve(krb5_context context,
		krb5_ccache *id,
		const char *residual)
{
  krb5_ccache p;
  krb5_fcache *f;

  p = ALLOC(1, krb5_ccache_data);
  
  if(!p)
    return ENOMEM;
  
  f = ALLOC(1, krb5_fcache);
  
  if(!f){
    free(p);
    return ENOMEM;
  }
  f->filename = strdup(residual);
  if(!f->filename){
    free(f);
    free(p);
    return ENOMEM;
  }
  
  p->data.data = f;
  p->data.length = sizeof(*f);
  p->type = 1;

  *id = p;
  
  return 0;
}

krb5_error_code
krb5_cc_gen_new(krb5_context context,
		krb5_ccache *id)
{
}

krb5_error_code
krb5_cc_default(krb5_context context,
		krb5_ccache *id)
{
  *id = malloc(sizeof(**id));
  if (*id == NULL)
    return ENOMEM;
  return krb5_cc_resolve (context, id, "/tmp/foo");
}

static krb5_error_code
store_int32(int fd,
	    int32_t value)
{
  value = htonl(value);
  return write(fd, &value, sizeof(value));
}

static krb5_error_code
store_int16(int fd,
	    int16_t value)
{
  value = htons(value);
  return write(fd, &value, sizeof(value));
}

static krb5_error_code
store_int8(int fd,
	   int8_t value)
{
  return write(fd, &value, sizeof(value));
}

static krb5_error_code
store_data(int fd,
	   krb5_data *data)
{
  int ret;
  ret = store_int32(fd, data->length);
  if(ret < 0)
    return ret;
  return write(fd, data->data, data->length);
}

static krb5_error_code
store_principal(int fd,
		krb5_principal p)
{
  int i;
  store_int32(fd, p->type);
  store_int32(fd, p->ncomp);
  store_data(fd, &p->realm);
  for(i = 0; i < p->ncomp; i++)
    store_data(fd, &p->comp[i]);
  return 0;
}

krb5_error_code
krb5_cc_initialize(krb5_context context,
		   krb5_ccache id,
		   krb5_principal primary_principal)
{
  char cc[1024];
  char *p;
  int ret;
  int fd;

  krb5_fcache *f;

  f = (krb5_fcache*)id->data.data;
  
  if(ret = erase_file(f->filename))
    return ret;
  
  fd = open(f->filename, O_RDWR | O_CREAT | O_EXCL, 0600);
  if(fd == -1)
    return errno;
  store_int16(fd, 0x503);
  store_principal(fd, primary_principal);
  close(fd);
  
  return 0;
}

krb5_error_code
erase_file(const char *filename)
{
  int fd;
  off_t pos;

  fd = open(filename, O_RDWR);
  if(fd < 0)
    if(errno == ENOENT)
      return 0;
    else
      return errno;
  pos = lseek(fd, 0, SEEK_END);
  lseek(fd, 0, SEEK_SET);
  for(; pos > 0; pos -= 16)
    write(fd, "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0", 16);
  close(fd);
  unlink(filename);
  return 0;
}

krb5_error_code
krb5_cc_destroy(krb5_context context,
		krb5_ccache id)
{
  krb5_fcache *f;
  int ret;
  f = (krb5_fcache*)id->data.data;

  ret = erase_file(f->filename);
  
  free(f->filename);
  free(f);
  free(id);
  return ret;
}

krb5_error_code
krb5_cc_close(krb5_context context,
	      krb5_ccache id)
{
}

krb5_error_code
krb5_cc_store(krb5_context context,
	      krb5_ccache id,
	      krb5_creds *creds)
{
  
}

krb5_error_code
krb5_cc_retrieve(krb5_context context,
		 krb5_ccache id,
		 krb5_flags whichfields,
		 krb5_creds *mcreds,
		 krb5_creds *creds)
{
}

krb5_error_code
krb5_cc_get_princ(krb5_context context,
		  krb5_ccache id,
		  krb5_principal *principal)
{
}

krb5_error_code
krb5_cc_get_first(krb5_context context,
		  krb5_ccache id,
		  krb5_cc_cursor *cursor)
{
}

krb5_error_code
krb5_cc_get_next(krb5_context context,
		 krb5_ccache id,
		 krb5_creds *creds,
		 krb5_cc_cursor *cursor)
{
}

krb5_error_code
krb5_cc_end_get(krb5_context context,
		krb5_ccache id,
		krb5_cc_cursor *cursor)
{
}

krb5_error_code
krb5_cc_remove_cred(krb5_context context,
		    krb5_ccache id,
		    krb5_flags which,
		    krb5_creds *cred)
{
}

krb5_error_code
krb5_cc_set_flags(krb5_context context,
		  krb5_ccache id,
		  krb5_flags flags)
{
}