--- /dev/null
+/*
+ * lib/krb5/krb/init_ctx.c
+ *
+ * Copyright 1994 by the Massachusetts Institute of Technology.
+ * All Rights Reserved.
+ *
+ * Export of this software from the United States of America may
+ * require a specific license from the United States Government.
+ * It is the responsibility of any person or organization contemplating
+ * export to obtain such a license before exporting.
+ *
+ * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
+ * distribute this software and its documentation for any purpose and
+ * without fee is hereby granted, provided that the above copyright
+ * notice appear in all copies and that both that copyright notice and
+ * this permission notice appear in supporting documentation, and that
+ * the name of M.I.T. not be used in advertising or publicity pertaining
+ * to distribution of the software without specific, written prior
+ * permission. M.I.T. makes no representations about the suitability of
+ * this software for any purpose. It is provided "as is" without express
+ * or implied warranty.
+ *
+ * krb5_init_contex()
+ */
+
+#include <krb5/krb5.h>
+#include <krb5/los-proto.h>
+#include <krb5/ext-proto.h>
+
+krb5_error_code
+krb5_init_context(context)
+ krb5_context **context;
+{
+ krb5_context *ctx;
+ krb5_error_code retval;
+
+ *context = 0;
+
+ ctx = malloc(sizeof(struct _krb5_context));
+ if (!ctx)
+ return ENOMEM;
+ memset(ctx, 0, sizeof(struct _krb5_context));
+ ctx->magic = KV5M_CONTEXT;
+
+ retval = krb5_os_init_context(ctx);
+ if (retval)
+ goto cleanup;
+
+ *context = ctx;
+ return 0;
+
+cleanup:
+ krb5_free_context(ctx);
+ return retval;
+}
+
+void
+krb5_free_context(ctx)
+ krb5_context *ctx;
+{
+ krb5_os_free_context(ctx);
+ ctx->magic = 0;
+ free(ctx);
+}