2 * Copyright (c) 2011, JANET(UK)
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
16 * 3. Neither the name of JANET(UK) nor the names of its contributors
17 * may be used to endorse or promote products derived from this software
18 * without specific prior written permission.
20 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
21 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
24 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 * Portions Copyright 2003-2010 Massachusetts Institute of Technology.
34 * All Rights Reserved.
36 * Export of this software from the United States of America may
37 * require a specific license from the United States Government.
38 * It is the responsibility of any person or organization contemplating
39 * export to obtain such a license before exporting.
41 * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
42 * distribute this software and its documentation for any purpose and
43 * without fee is hereby granted, provided that the above copyright
44 * notice appear in all copies and that both that copyright notice and
45 * this permission notice appear in supporting documentation, and that
46 * the name of M.I.T. not be used in advertising or publicity pertaining
47 * to distribution of the software without specific, written prior
48 * permission. Furthermore if you modify this software you must label
49 * your software as modified software and not distribute it in such a
50 * fashion that it might be confused with the original M.I.T. software.
51 * M.I.T. makes no representations about the suitability of
52 * this software for any purpose. It is provided "as is" without express
53 * or implied warranty.
64 #include <sys/param.h>
75 #define MIN(_a,_b) ((_a)<(_b)?(_a):(_b))
80 makeStringBuffer(OM_uint32 *minor,
85 bufferToString(OM_uint32 *minor,
86 const gss_buffer_t buffer,
90 duplicateBuffer(OM_uint32 *minor,
91 const gss_buffer_t src,
95 bufferEqual(const gss_buffer_t b1, const gss_buffer_t b2)
97 return (b1->length == b2->length &&
98 memcmp(b1->value, b2->value, b2->length) == 0);
102 bufferEqualString(const gss_buffer_t b1, const char *s)
106 b2.length = strlen(s);
107 b2.value = (char *)s;
109 return bufferEqual(b1, &b2);
114 gssEapSign(krb5_context context,
117 #ifdef HAVE_HEIMDAL_VERSION
122 krb5_keyusage sign_usage,
123 gss_iov_buffer_desc *iov,
127 gssEapVerify(krb5_context context,
130 #ifdef HAVE_HEIMDAL_VERSION
135 krb5_keyusage sign_usage,
136 gss_iov_buffer_desc *iov,
142 gssEapEncodeGssChannelBindings(OM_uint32 *minor,
143 gss_channel_bindings_t chanBindings,
144 gss_buffer_t encodedBindings);
148 #define EAP_EXPORT_CONTEXT_V1 1
150 enum gss_eap_token_type {
151 TOK_TYPE_NONE = 0x0000, /* no token */
152 TOK_TYPE_MIC = 0x0404, /* RFC 4121 MIC token */
153 TOK_TYPE_WRAP = 0x0504, /* RFC 4121 wrap token */
154 TOK_TYPE_EXPORT_NAME = 0x0401, /* RFC 2743 exported name */
155 TOK_TYPE_EXPORT_NAME_COMPOSITE = 0x0402, /* exported composite name */
156 TOK_TYPE_DELETE_CONTEXT = 0x0405, /* RFC 2743 delete context */
157 TOK_TYPE_INITIATOR_CONTEXT = 0x0601, /* initiator-sent context token */
158 TOK_TYPE_ACCEPTOR_CONTEXT = 0x0602, /* acceptor-sent context token */
161 /* inner token types and flags */
162 #define ITOK_TYPE_NONE 0x00000000
163 #define ITOK_TYPE_CONTEXT_ERR 0x00000001 /* critical */
164 #define ITOK_TYPE_ACCEPTOR_NAME_REQ 0x00000002 /* TBD */
165 #define ITOK_TYPE_ACCEPTOR_NAME_RESP 0x00000003 /* TBD */
166 #define ITOK_TYPE_EAP_RESP 0x00000004 /* critical, required, if not reauth */
167 #define ITOK_TYPE_EAP_REQ 0x00000005 /* critical, required, if not reauth */
168 #define ITOK_TYPE_GSS_CHANNEL_BINDINGS 0x00000006 /* critical, required, if not reauth */
169 #define ITOK_TYPE_REAUTH_CREDS 0x00000007 /* optional */
170 #define ITOK_TYPE_REAUTH_REQ 0x00000008 /* optional */
171 #define ITOK_TYPE_REAUTH_RESP 0x00000009 /* optional */
172 #define ITOK_TYPE_VERSION_INFO 0x0000000A /* optional */
173 #define ITOK_TYPE_VENDOR_INFO 0x0000000B /* optional */
175 #define ITOK_FLAG_CRITICAL 0x80000000 /* critical, wire flag */
176 #define ITOK_FLAG_VERIFIED 0x40000000 /* verified, API flag */
178 #define ITOK_TYPE_MASK (~(ITOK_FLAG_CRITICAL | ITOK_FLAG_VERIFIED))
180 OM_uint32 gssEapAllocContext(OM_uint32 *minor, gss_ctx_id_t *pCtx);
181 OM_uint32 gssEapReleaseContext(OM_uint32 *minor, gss_ctx_id_t *pCtx);
184 gssEapMakeToken(OM_uint32 *minor,
186 const gss_buffer_t innerToken,
187 enum gss_eap_token_type tokenType,
188 gss_buffer_t outputToken);
191 gssEapVerifyToken(OM_uint32 *minor,
193 const gss_buffer_t inputToken,
194 enum gss_eap_token_type *tokenType,
195 gss_buffer_t innerInputToken);
198 gssEapContextTime(OM_uint32 *minor,
199 gss_ctx_id_t context_handle,
200 OM_uint32 *time_rec);
203 gssEapDisplayName(OM_uint32 *minor,
205 gss_buffer_t output_name_buffer,
206 gss_OID *output_name_type);
209 OM_uint32 gssEapAllocCred(OM_uint32 *minor, gss_cred_id_t *pCred);
210 OM_uint32 gssEapReleaseCred(OM_uint32 *minor, gss_cred_id_t *pCred);
213 gssEapAcquireCred(OM_uint32 *minor,
214 const gss_name_t desiredName,
215 const gss_buffer_t password,
217 const gss_OID_set desiredMechs,
219 gss_cred_id_t *pCred,
220 gss_OID_set *pActualMechs,
223 int gssEapCredAvailable(gss_cred_id_t cred, gss_OID mech);
227 gssEapEncrypt(krb5_context context, int dce_style, size_t ec,
229 #ifdef HAVE_HEIMDAL_VERSION
235 gss_iov_buffer_desc *iov, int iov_count);
238 gssEapDecrypt(krb5_context context, int dce_style, size_t ec,
240 #ifdef HAVE_HEIMDAL_VERSION
246 gss_iov_buffer_desc *iov, int iov_count);
249 gssEapMapCryptoFlag(OM_uint32 type);
252 gssEapLocateIov(gss_iov_buffer_desc *iov,
257 gssEapIovMessageLength(gss_iov_buffer_desc *iov,
260 size_t *assoc_data_length);
263 gssEapReleaseIov(gss_iov_buffer_desc *iov, int iov_count);
266 gssEapIsIntegrityOnly(gss_iov_buffer_desc *iov, int iov_count);
269 gssEapAllocIov(gss_iov_buffer_t iov, size_t size);
272 gssEapDeriveRfc3961Key(OM_uint32 *minor,
273 const unsigned char *key,
275 krb5_enctype enctype,
276 krb5_keyblock *pKey);
279 #ifdef HAVE_HEIMDAL_VERSION
281 #define KRB_TIME_FOREVER ((time_t)~0L)
283 #define KRB_KEY_TYPE(key) ((key)->keytype)
284 #define KRB_KEY_DATA(key) ((key)->keyvalue.data)
285 #define KRB_KEY_LENGTH(key) ((key)->keyvalue.length)
287 #define KRB_PRINC_LENGTH(princ) ((princ)->name.name_string.len)
288 #define KRB_PRINC_TYPE(princ) ((princ)->name.name_type)
289 #define KRB_PRINC_NAME(princ) ((princ)->name.name_string.val)
290 #define KRB_PRINC_REALM(princ) ((princ)->realm)
292 #define KRB_KT_ENT_KEYBLOCK(e) (&(e)->keyblock)
293 #define KRB_KT_ENT_FREE(c, e) krb5_kt_free_entry((c), (e))
295 #define KRB_CRYPTO_CONTEXT(ctx) (krbCrypto)
299 #define KRB_TIME_FOREVER KRB5_INT32_MAX
301 #define KRB_KEY_TYPE(key) ((key)->enctype)
302 #define KRB_KEY_DATA(key) ((key)->contents)
303 #define KRB_KEY_LENGTH(key) ((key)->length)
305 #define KRB_PRINC_LENGTH(princ) (krb5_princ_size(NULL, (princ)))
306 #define KRB_PRINC_TYPE(princ) (krb5_princ_type(NULL, (princ)))
307 #define KRB_PRINC_NAME(princ) (krb5_princ_name(NULL, (princ)))
308 #define KRB_PRINC_REALM(princ) (krb5_princ_realm(NULL, (princ)))
310 #define KRB_KT_ENT_KEYBLOCK(e) (&(e)->key)
311 #define KRB_KT_ENT_FREE(c, e) krb5_free_keytab_entry_contents((c), (e))
313 #define KRB_CRYPTO_CONTEXT(ctx) (&(ctx)->rfc3961Key)
315 #endif /* HAVE_HEIMDAL_VERSION */
317 #define KRB_KEY_INIT(key) do { \
318 KRB_KEY_TYPE(key) = ENCTYPE_NULL; \
319 KRB_KEY_DATA(key) = NULL; \
320 KRB_KEY_LENGTH(key) = 0; \
323 #define GSSEAP_KRB_INIT(ctx) do { \
324 OM_uint32 tmpMajor; \
326 tmpMajor = gssEapKerberosInit(minor, ctx); \
327 if (GSS_ERROR(tmpMajor)) { \
333 gssEapKerberosInit(OM_uint32 *minor, krb5_context *context);
336 rfc3961ChecksumTypeForKey(OM_uint32 *minor,
338 krb5_cksumtype *cksumtype);
341 krbAnonymousPrincipal(void);
344 krbCryptoLength(krb5_context krbContext,
345 #ifdef HAVE_HEIMDAL_VERSION
346 krb5_crypto krbCrypto,
354 krbPaddingLength(krb5_context krbContext,
355 #ifdef HAVE_HEIMDAL_VERSION
356 krb5_crypto krbCrypto,
364 krbBlockSize(krb5_context krbContext,
365 #ifdef HAVE_HEIMDAL_VERSION
366 krb5_crypto krbCrypto,
373 krbEnctypeToString(krb5_context krbContext,
374 krb5_enctype enctype,
376 gss_buffer_t string);
379 krbMakeAuthDataKdcIssued(krb5_context context,
380 const krb5_keyblock *key,
381 krb5_const_principal issuer,
382 #ifdef HAVE_HEIMDAL_VERSION
383 const AuthorizationData *authdata,
384 AuthorizationData *adKdcIssued
386 krb5_authdata *const *authdata,
387 krb5_authdata ***adKdcIssued
392 krbMakeCred(krb5_context context,
393 krb5_auth_context authcontext,
399 gssEapExportLucidSecContext(OM_uint32 *minor,
401 const gss_OID desiredObject,
402 gss_buffer_set_t *data_set);
405 extern gss_OID GSS_EAP_MECHANISM;
408 gssEapInternalizeOid(const gss_OID oid,
409 gss_OID *const pInternalizedOid);
412 gssEapReleaseOid(OM_uint32 *minor, gss_OID *oid);
415 gssEapDefaultMech(OM_uint32 *minor,
419 gssEapIndicateMechs(OM_uint32 *minor,
423 gssEapEnctypeToOid(OM_uint32 *minor,
424 krb5_enctype enctype,
428 gssEapOidToEnctype(OM_uint32 *minor,
430 krb5_enctype *enctype);
433 gssEapIsMechanismOid(const gss_OID oid);
436 gssEapIsConcreteMechanismOid(const gss_OID oid);
439 gssEapValidateMechs(OM_uint32 *minor,
440 const gss_OID_set mechs);
443 gssEapOidToSaslName(const gss_OID oid);
446 gssEapSaslNameToOid(const gss_buffer_t name);
449 #define EXPORT_NAME_FLAG_OID 0x1
450 #define EXPORT_NAME_FLAG_COMPOSITE 0x2
452 OM_uint32 gssEapAllocName(OM_uint32 *minor, gss_name_t *pName);
453 OM_uint32 gssEapReleaseName(OM_uint32 *minor, gss_name_t *pName);
454 OM_uint32 gssEapExportName(OM_uint32 *minor,
455 const gss_name_t name,
456 gss_buffer_t exportedName);
457 OM_uint32 gssEapExportNameInternal(OM_uint32 *minor,
458 const gss_name_t name,
459 gss_buffer_t exportedName,
461 OM_uint32 gssEapImportName(OM_uint32 *minor,
462 const gss_buffer_t input_name_buffer,
463 gss_OID input_name_type,
464 gss_name_t *output_name);
465 OM_uint32 gssEapImportNameInternal(OM_uint32 *minor,
466 const gss_buffer_t input_name_buffer,
467 gss_name_t *output_name,
470 gssEapDuplicateName(OM_uint32 *minor,
471 const gss_name_t input_name,
472 gss_name_t *dest_name);
476 composeOid(OM_uint32 *minor_status,
483 decomposeOid(OM_uint32 *minor_status,
490 duplicateOid(OM_uint32 *minor_status,
491 const gss_OID_desc * const oid,
495 duplicateOidSet(OM_uint32 *minor,
496 const gss_OID_set src,
500 oidEqual(const gss_OID_desc *o1, const gss_OID_desc *o2)
502 if (o1 == GSS_C_NO_OID)
503 return (o2 == GSS_C_NO_OID);
504 else if (o2 == GSS_C_NO_OID)
505 return (o1 == GSS_C_NO_OID);
507 return (o1->length == o2->length &&
508 memcmp(o1->elements, o2->elements, o1->length) == 0);
511 /* util_ordering.c */
513 sequenceInternalize(OM_uint32 *minor,
519 sequenceExternalize(OM_uint32 *minor,
525 sequenceSize(void *vqueue);
528 sequenceFree(OM_uint32 *minor, void **vqueue);
531 sequenceCheck(OM_uint32 *minor, void **vqueue, uint64_t seqnum);
534 sequenceInit(OM_uint32 *minor, void **vqueue, uint64_t seqnum,
535 int do_replay, int do_sequence, int wide_nums);
539 GSSEAP_STATE_INITIAL = 0x01, /* initial state */
540 GSSEAP_STATE_AUTHENTICATE = 0x02, /* exchange EAP messages */
541 GSSEAP_STATE_INITIATOR_EXTS = 0x04, /* initiator extensions */
542 GSSEAP_STATE_ACCEPTOR_EXTS = 0x08, /* acceptor extensions */
543 GSSEAP_STATE_REAUTHENTICATE = 0x10, /* GSS reauthentication messages */
544 GSSEAP_STATE_ESTABLISHED = 0x20, /* context established */
545 GSSEAP_STATE_ALL = 0x3F
548 #define GSSEAP_STATE_NEXT(s) ((s) << 1)
550 #define GSSEAP_SM_STATE(ctx) ((ctx)->state)
553 void gssEapSmTransition(gss_ctx_id_t ctx, enum gss_eap_state state);
554 #define GSSEAP_SM_TRANSITION(ctx, state) gssEapSmTransition((ctx), (state))
556 #define GSSEAP_SM_TRANSITION(ctx, newstate) do { (ctx)->state = (newstate); } while (0)
559 #define GSSEAP_SM_TRANSITION_NEXT(ctx) GSSEAP_SM_TRANSITION((ctx), GSSEAP_STATE_NEXT(GSSEAP_SM_STATE((ctx))))
561 /* state machine entry */
563 OM_uint32 inputTokenType;
564 OM_uint32 outputTokenType;
565 enum gss_eap_state validStates;
567 OM_uint32 (*processToken)(OM_uint32 *,
574 gss_channel_bindings_t,
580 /* state machine flags, set by handler */
581 #define SM_FLAG_FORCE_SEND_TOKEN 0x00000001 /* send token even if no inner tokens */
582 #define SM_FLAG_OUTPUT_TOKEN_CRITICAL 0x00000002 /* output token is critical */
584 /* state machine flags, set by state machine */
585 #define SM_FLAG_INPUT_TOKEN_CRITICAL 0x10000000 /* input token was critical */
587 #define SM_ITOK_FLAG_REQUIRED 0x00000001 /* received tokens must be present */
590 gssEapSmStep(OM_uint32 *minor,
597 gss_channel_bindings_t chanBindings,
598 gss_buffer_t inputToken,
599 gss_buffer_t outputToken,
600 struct gss_eap_sm *sm,
604 gssEapSmTransition(gss_ctx_id_t ctx, enum gss_eap_state state);
608 gssEapEncodeInnerTokens(OM_uint32 *minor,
609 gss_buffer_set_t extensions,
611 gss_buffer_t buffer);
613 gssEapDecodeInnerTokens(OM_uint32 *minor,
614 const gss_buffer_t buffer,
615 gss_buffer_set_t *pExtensions,
619 tokenSize(const gss_OID_desc *mech, size_t body_size);
622 makeTokenHeader(const gss_OID_desc *mech,
625 enum gss_eap_token_type tok_type);
628 verifyTokenHeader(OM_uint32 *minor,
631 unsigned char **buf_in,
633 enum gss_eap_token_type *ret_tok_type);
637 #define GSSEAP_CALLOC calloc
638 #define GSSEAP_MALLOC malloc
639 #define GSSEAP_FREE free
640 #define GSSEAP_REALLOC realloc
642 #define GSSEAP_NOT_IMPLEMENTED do { \
643 assert(0 && "not implemented"); \
645 return GSS_S_FAILURE; \
650 #define GSSEAP_MUTEX pthread_mutex_t
651 #define GSSEAP_MUTEX_INITIALIZER PTHREAD_MUTEX_INITIALIZER
653 #define GSSEAP_MUTEX_INIT(m) pthread_mutex_init((m), NULL)
654 #define GSSEAP_MUTEX_DESTROY(m) pthread_mutex_destroy((m))
655 #define GSSEAP_MUTEX_LOCK(m) pthread_mutex_lock((m))
656 #define GSSEAP_MUTEX_UNLOCK(m) pthread_mutex_unlock((m))
658 #define GSSEAP_THREAD_KEY pthread_key_t
659 #define GSSEAP_KEY_CREATE(k, d) pthread_key_create((k), (d))
660 #define GSSEAP_GETSPECIFIC(k) pthread_getspecific((k))
661 #define GSSEAP_SETSPECIFIC(k, d) pthread_setspecific((k), (d))
663 #define GSSEAP_THREAD_ONCE pthread_once_t
664 #define GSSEAP_ONCE(o, i) pthread_once((o), (i))
665 #define GSSEAP_ONCE_INITIALIZER PTHREAD_ONCE_INIT
667 /* Helper functions */
669 store_uint16_be(uint16_t val, void *vp)
671 unsigned char *p = (unsigned char *)vp;
673 p[0] = (val >> 8) & 0xff;
674 p[1] = (val ) & 0xff;
677 static inline uint16_t
678 load_uint16_be(const void *cvp)
680 const unsigned char *p = (const unsigned char *)cvp;
682 return (p[1] | (p[0] << 8));
686 store_uint32_be(uint32_t val, void *vp)
688 unsigned char *p = (unsigned char *)vp;
690 p[0] = (val >> 24) & 0xff;
691 p[1] = (val >> 16) & 0xff;
692 p[2] = (val >> 8) & 0xff;
693 p[3] = (val ) & 0xff;
696 static inline uint32_t
697 load_uint32_be(const void *cvp)
699 const unsigned char *p = (const unsigned char *)cvp;
701 return (p[3] | (p[2] << 8)
702 | ((uint32_t) p[1] << 16)
703 | ((uint32_t) p[0] << 24));
707 store_uint64_be(uint64_t val, void *vp)
709 unsigned char *p = (unsigned char *)vp;
711 p[0] = (unsigned char)((val >> 56) & 0xff);
712 p[1] = (unsigned char)((val >> 48) & 0xff);
713 p[2] = (unsigned char)((val >> 40) & 0xff);
714 p[3] = (unsigned char)((val >> 32) & 0xff);
715 p[4] = (unsigned char)((val >> 24) & 0xff);
716 p[5] = (unsigned char)((val >> 16) & 0xff);
717 p[6] = (unsigned char)((val >> 8) & 0xff);
718 p[7] = (unsigned char)((val ) & 0xff);
721 static inline uint64_t
722 load_uint64_be(const void *cvp)
724 const unsigned char *p = (const unsigned char *)cvp;
726 return ((uint64_t)load_uint32_be(p) << 32) | load_uint32_be(p + 4);
729 static inline unsigned char *
730 store_buffer(gss_buffer_t buffer, void *vp, int wide_nums)
732 unsigned char *p = (unsigned char *)vp;
735 store_uint64_be(buffer->length, p);
738 store_uint32_be(buffer->length, p);
742 if (buffer->value != NULL) {
743 memcpy(p, buffer->value, buffer->length);
750 static inline unsigned char *
751 load_buffer(const void *cvp, size_t length, gss_buffer_t buffer)
754 buffer->value = GSSEAP_MALLOC(length);
755 if (buffer->value == NULL)
757 buffer->length = length;
758 memcpy(buffer->value, cvp, length);
759 return (unsigned char *)cvp + length;
762 static inline unsigned char *
763 store_oid(gss_OID oid, void *vp)
767 if (oid != GSS_C_NO_OID) {
768 buf.length = oid->length;
769 buf.value = oid->elements;
775 return store_buffer(&buf, vp, FALSE);
779 krbDataToGssBuffer(krb5_data *data, gss_buffer_t buffer)
781 buffer->value = (void *)data->data;
782 buffer->length = data->length;
786 krbPrincComponentToGssBuffer(krb5_principal krbPrinc,
787 int index, gss_buffer_t buffer)
789 #ifdef HAVE_HEIMDAL_VERSION
790 buffer->value = (void *)KRB_PRINC_NAME(krbPrinc)[index];
791 buffer->length = strlen((char *)buffer->value);
793 buffer->value = (void *)krb5_princ_component(NULL, krbPrinc, index)->data;
794 buffer->length = krb5_princ_component(NULL, krbPrinc, index)->length;
795 #endif /* HAVE_HEIMDAL_VERSION */
799 krbPrincRealmToGssBuffer(krb5_principal krbPrinc, gss_buffer_t buffer)
801 #ifdef HAVE_HEIMDAL_VERSION
802 buffer->value = (void *)KRB_PRINC_REALM(krbPrinc);
803 buffer->length = strlen((char *)buffer->value);
805 krbDataToGssBuffer(KRB_PRINC_REALM(krbPrinc), buffer);
810 gssBufferToKrbData(gss_buffer_t buffer, krb5_data *data)
812 data->data = (char *)buffer->value;
813 data->length = buffer->length;
820 #include "util_attr.h"
821 #ifdef GSSEAP_ENABLE_REAUTH
822 #include "util_reauth.h"
825 #endif /* _UTIL_H_ */