blob: d7f5b1895397cfc38424c46c1ac7eb262170ad91 [file] [log] [blame]
Darryl Greendb2b8db2018-06-15 13:06:04 +01001/**
2 * \file psa_crypto_storage.h
3 *
4 * \brief PSA cryptography module: Mbed TLS key storage
5 */
6/*
Bence Szépkúti1e148272020-08-07 13:07:28 +02007 * Copyright The Mbed TLS Contributors
Dave Rodgman16799db2023-11-02 19:47:20 +00008 * SPDX-License-Identifier: Apache-2.0 OR GPL-2.0-or-later
Darryl Greendb2b8db2018-06-15 13:06:04 +01009 */
10
11#ifndef PSA_CRYPTO_STORAGE_H
12#define PSA_CRYPTO_STORAGE_H
13
14#ifdef __cplusplus
15extern "C" {
16#endif
17
Darryl Greendb2b8db2018-06-15 13:06:04 +010018#include "psa/crypto.h"
Gilles Peskinefc762652019-07-22 19:30:34 +020019#include "psa/crypto_se_driver.h"
20
Darryl Greendb2b8db2018-06-15 13:06:04 +010021#include <stdint.h>
Gilles Peskinec8336cb2019-07-22 19:26:12 +020022#include <string.h>
Darryl Greendb2b8db2018-06-15 13:06:04 +010023
Gilles Peskinec744d992019-07-30 17:26:54 +020024/* Limit the maximum key size in storage. This should have no effect
25 * since the key size is limited in memory. */
Gilles Peskine449bd832023-01-11 14:50:10 +010026#define PSA_CRYPTO_MAX_STORAGE_SIZE (PSA_BITS_TO_BYTES(PSA_MAX_KEY_BITS))
Gilles Peskinec744d992019-07-30 17:26:54 +020027/* Sanity check: a file size must fit in 32 bits. Allow a generous
28 * 64kB of metadata. */
29#if PSA_CRYPTO_MAX_STORAGE_SIZE > 0xffff0000
Antonio de Angelis1ee4d122023-08-16 12:26:37 +010030#error "PSA_CRYPTO_MAX_STORAGE_SIZE > 0xffff0000"
Gilles Peskinec744d992019-07-30 17:26:54 +020031#endif
Darryl Greendb2b8db2018-06-15 13:06:04 +010032
Gilles Peskine48868122018-12-10 17:30:29 +010033/** The maximum permitted persistent slot number.
34 *
35 * In Mbed Crypto 0.1.0b:
36 * - Using the file backend, all key ids are ok except 0.
37 * - Using the ITS backend, all key ids are ok except 0xFFFFFF52
38 * (#PSA_CRYPTO_ITS_RANDOM_SEED_UID) for which the file contains the
39 * device's random seed (if this feature is enabled).
Steven Cooreman863470a2021-02-15 14:03:19 +010040 * - Only key ids from 1 to #MBEDTLS_PSA_KEY_SLOT_COUNT are actually used.
Gilles Peskine48868122018-12-10 17:30:29 +010041 *
42 * Since we need to preserve the random seed, avoid using that key slot.
43 * Reserve a whole range of key slots just in case something else comes up.
44 *
45 * This limitation will probably become moot when we implement client
46 * separation for key storage.
47 */
Gilles Peskinef9666592019-05-06 18:56:30 +020048#define PSA_MAX_PERSISTENT_KEY_IDENTIFIER PSA_KEY_ID_VENDOR_MAX
Gilles Peskine48868122018-12-10 17:30:29 +010049
Darryl Greendb2b8db2018-06-15 13:06:04 +010050/**
Gilles Peskine5e80d912019-02-24 17:10:18 +010051 * \brief Checks if persistent data is stored for the given key slot number
52 *
53 * This function checks if any key data or metadata exists for the key slot in
54 * the persistent storage.
55 *
56 * \param key Persistent identifier to check.
57 *
58 * \retval 0
59 * No persistent data present for slot number
60 * \retval 1
61 * Persistent data present for slot number
62 */
Gilles Peskine449bd832023-01-11 14:50:10 +010063int psa_is_key_present_in_storage(const mbedtls_svc_key_id_t key);
Gilles Peskine5e80d912019-02-24 17:10:18 +010064
65/**
Darryl Greendb2b8db2018-06-15 13:06:04 +010066 * \brief Format key data and metadata and save to a location for given key
67 * slot.
68 *
69 * This function formats the key data and metadata and saves it to a
70 * persistent storage backend. The storage location corresponding to the
71 * key slot must be empty, otherwise this function will fail. This function
Steven Cooreman40120f62020-10-29 11:42:22 +010072 * should be called after loading the key into an internal slot to ensure the
Darryl Greendb2b8db2018-06-15 13:06:04 +010073 * persistent key is not saved into a storage location corresponding to an
Steven Cooreman40120f62020-10-29 11:42:22 +010074 * already occupied non-persistent key, as well as ensuring the key data is
75 * validated.
Darryl Greendb2b8db2018-06-15 13:06:04 +010076 *
Steven Cooremand80e8a42021-01-26 12:45:39 +010077 * Note: This function will only succeed for key buffers which are not
78 * empty. If passed a NULL pointer or zero-length, the function will fail
79 * with #PSA_ERROR_INVALID_ARGUMENT.
Darryl Greendb2b8db2018-06-15 13:06:04 +010080 *
Gilles Peskine4ed0e6f2019-07-30 20:22:33 +020081 * \param[in] attr The attributes of the key to save.
Gilles Peskinebfd322f2019-07-23 11:58:03 +020082 * The key identifier field in the attributes
83 * determines the key's location.
84 * \param[in] data Buffer containing the key data.
85 * \param data_length The number of bytes that make up the key data.
Darryl Greendb2b8db2018-06-15 13:06:04 +010086 *
Gilles Peskineed733552023-02-14 19:21:09 +010087 * \retval #PSA_SUCCESS \emptydescription
88 * \retval #PSA_ERROR_INVALID_ARGUMENT \emptydescription
89 * \retval #PSA_ERROR_INSUFFICIENT_MEMORY \emptydescription
90 * \retval #PSA_ERROR_INSUFFICIENT_STORAGE \emptydescription
91 * \retval #PSA_ERROR_STORAGE_FAILURE \emptydescription
92 * \retval #PSA_ERROR_ALREADY_EXISTS \emptydescription
93 * \retval #PSA_ERROR_DATA_INVALID \emptydescription
94 * \retval #PSA_ERROR_DATA_CORRUPT \emptydescription
Darryl Greendb2b8db2018-06-15 13:06:04 +010095 */
Gilles Peskine7fad3ef2024-02-28 01:08:27 +010096psa_status_t psa_save_persistent_key(const psa_key_attributes_t *attr,
Gilles Peskine449bd832023-01-11 14:50:10 +010097 const uint8_t *data,
98 const size_t data_length);
Darryl Greendb2b8db2018-06-15 13:06:04 +010099
100/**
101 * \brief Parses key data and metadata and load persistent key for given
102 * key slot number.
103 *
104 * This function reads from a storage backend, parses the key data and
105 * metadata and writes them to the appropriate output parameters.
106 *
107 * Note: This function allocates a buffer and returns a pointer to it through
Steven Cooreman7dadf142021-01-28 19:46:52 +0100108 * the data parameter. On successful return, the pointer is guaranteed to be
109 * valid and the buffer contains at least one byte of data.
Steven Cooremand80e8a42021-01-26 12:45:39 +0100110 * psa_free_persistent_key_data() must be called on the data buffer
111 * afterwards to zeroize and free this buffer.
Darryl Greendb2b8db2018-06-15 13:06:04 +0100112 *
Gilles Peskine4ed0e6f2019-07-30 20:22:33 +0200113 * \param[in,out] attr On input, the key identifier field identifies
Gilles Peskinebfd322f2019-07-23 11:58:03 +0200114 * the key to load. Other fields are ignored.
115 * On success, the attribute structure contains
116 * the key metadata that was loaded from storage.
Darryl Greendb2b8db2018-06-15 13:06:04 +0100117 * \param[out] data Pointer to an allocated key data buffer on return.
118 * \param[out] data_length The number of bytes that make up the key data.
119 *
Gilles Peskineed733552023-02-14 19:21:09 +0100120 * \retval #PSA_SUCCESS \emptydescription
121 * \retval #PSA_ERROR_INSUFFICIENT_MEMORY \emptydescription
122 * \retval #PSA_ERROR_DATA_INVALID \emptydescription
123 * \retval #PSA_ERROR_DATA_CORRUPT \emptydescription
124 * \retval #PSA_ERROR_DOES_NOT_EXIST \emptydescription
Darryl Greendb2b8db2018-06-15 13:06:04 +0100125 */
Gilles Peskine7fad3ef2024-02-28 01:08:27 +0100126psa_status_t psa_load_persistent_key(psa_key_attributes_t *attr,
Gilles Peskine449bd832023-01-11 14:50:10 +0100127 uint8_t **data,
128 size_t *data_length);
Darryl Greendb2b8db2018-06-15 13:06:04 +0100129
130/**
131 * \brief Remove persistent data for the given key slot number.
132 *
Gilles Peskine8d4919b2018-12-03 16:48:09 +0100133 * \param key Persistent identifier of the key to remove
Darryl Greendb2b8db2018-06-15 13:06:04 +0100134 * from persistent storage.
135 *
Ronald Cron96783552020-10-19 12:06:30 +0200136 * \retval #PSA_SUCCESS
Gilles Peskine8d4919b2018-12-03 16:48:09 +0100137 * The key was successfully removed,
138 * or the key did not exist.
Gilles Peskineed733552023-02-14 19:21:09 +0100139 * \retval #PSA_ERROR_DATA_INVALID \emptydescription
Darryl Greendb2b8db2018-06-15 13:06:04 +0100140 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100141psa_status_t psa_destroy_persistent_key(const mbedtls_svc_key_id_t key);
Darryl Greendb2b8db2018-06-15 13:06:04 +0100142
143/**
Gilles Peskine8d4919b2018-12-03 16:48:09 +0100144 * \brief Free the temporary buffer allocated by psa_load_persistent_key().
Darryl Greendb2b8db2018-06-15 13:06:04 +0100145 *
146 * This function must be called at some point after psa_load_persistent_key()
147 * to zeroize and free the memory allocated to the buffer in that function.
148 *
149 * \param key_data Buffer for the key data.
150 * \param key_data_length Size of the key data buffer.
151 *
152 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100153void psa_free_persistent_key_data(uint8_t *key_data, size_t key_data_length);
Darryl Greendb2b8db2018-06-15 13:06:04 +0100154
155/**
156 * \brief Formats key data and metadata for persistent storage
157 *
Gilles Peskinebfd322f2019-07-23 11:58:03 +0200158 * \param[in] data Buffer containing the key data.
Darryl Greendb2b8db2018-06-15 13:06:04 +0100159 * \param data_length Length of the key data buffer.
Gilles Peskine4ed0e6f2019-07-30 20:22:33 +0200160 * \param[in] attr The core attributes of the key.
Darryl Greendb2b8db2018-06-15 13:06:04 +0100161 * \param[out] storage_data Output buffer for the formatted data.
162 *
163 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100164void psa_format_key_data_for_storage(const uint8_t *data,
165 const size_t data_length,
Gilles Peskine7fad3ef2024-02-28 01:08:27 +0100166 const psa_key_attributes_t *attr,
Gilles Peskine449bd832023-01-11 14:50:10 +0100167 uint8_t *storage_data);
Darryl Greendb2b8db2018-06-15 13:06:04 +0100168
169/**
170 * \brief Parses persistent storage data into key data and metadata
171 *
172 * \param[in] storage_data Buffer for the storage data.
173 * \param storage_data_length Length of the storage data buffer
174 * \param[out] key_data On output, pointer to a newly allocated buffer
175 * containing the key data. This must be freed
176 * using psa_free_persistent_key_data()
177 * \param[out] key_data_length Length of the key data buffer
Gilles Peskine4ed0e6f2019-07-30 20:22:33 +0200178 * \param[out] attr On success, the attribute structure is filled
Gilles Peskinebfd322f2019-07-23 11:58:03 +0200179 * with the loaded key metadata.
Darryl Greendb2b8db2018-06-15 13:06:04 +0100180 *
Gilles Peskineed733552023-02-14 19:21:09 +0100181 * \retval #PSA_SUCCESS \emptydescription
182 * \retval #PSA_ERROR_INSUFFICIENT_MEMORY \emptydescription
183 * \retval #PSA_ERROR_DATA_INVALID \emptydescription
Darryl Greendb2b8db2018-06-15 13:06:04 +0100184 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100185psa_status_t psa_parse_key_data_from_storage(const uint8_t *storage_data,
186 size_t storage_data_length,
187 uint8_t **key_data,
188 size_t *key_data_length,
Gilles Peskine7fad3ef2024-02-28 01:08:27 +0100189 psa_key_attributes_t *attr);
Darryl Greendb2b8db2018-06-15 13:06:04 +0100190
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200191#if defined(MBEDTLS_PSA_CRYPTO_SE_C)
192/** This symbol is defined if transaction support is required. */
Tom Cosgrovec43c3aa2023-08-31 17:06:58 +0100193#define PSA_CRYPTO_STORAGE_HAS_TRANSACTIONS 1
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200194#endif
195
196#if defined(PSA_CRYPTO_STORAGE_HAS_TRANSACTIONS)
197
198/** The type of transaction that is in progress.
199 */
200/* This is an integer type rather than an enum for two reasons: to support
201 * unknown values when loading a transaction file, and to ensure that the
202 * type has a known size.
203 */
204typedef uint16_t psa_crypto_transaction_type_t;
205
206/** No transaction is in progress.
Gilles Peskine2ea06fd2019-07-25 17:53:16 +0200207 *
208 * This has the value 0, so zero-initialization sets a transaction's type to
209 * this value.
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200210 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100211#define PSA_CRYPTO_TRANSACTION_NONE ((psa_crypto_transaction_type_t) 0x0000)
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200212
Gilles Peskinefc762652019-07-22 19:30:34 +0200213/** A key creation transaction.
214 *
215 * This is only used for keys in an external cryptoprocessor (secure element).
216 * Keys in RAM or in internal storage are created atomically in storage
217 * (simple file creation), so they do not need a transaction mechanism.
218 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100219#define PSA_CRYPTO_TRANSACTION_CREATE_KEY ((psa_crypto_transaction_type_t) 0x0001)
Gilles Peskinefc762652019-07-22 19:30:34 +0200220
221/** A key destruction transaction.
222 *
223 * This is only used for keys in an external cryptoprocessor (secure element).
224 * Keys in RAM or in internal storage are destroyed atomically in storage
225 * (simple file deletion), so they do not need a transaction mechanism.
226 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100227#define PSA_CRYPTO_TRANSACTION_DESTROY_KEY ((psa_crypto_transaction_type_t) 0x0002)
Gilles Peskinefc762652019-07-22 19:30:34 +0200228
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200229/** Transaction data.
230 *
231 * This type is designed to be serialized by writing the memory representation
232 * and reading it back on the same device.
233 *
Ryan0b14d142024-03-05 13:55:33 +0000234 * \note The transaction mechanism is not thread-safe. There can only be one
235 * single active transaction at a time.
236 * The transaction object is #psa_crypto_transaction.
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200237 *
238 * \note If an API call starts a transaction, it must complete this transaction
239 * before returning to the application.
240 *
241 * The lifetime of a transaction is the following (note that only one
242 * transaction may be active at a time):
243 *
244 * -# Call psa_crypto_prepare_transaction() to initialize the transaction
245 * object in memory and declare the type of transaction that is starting.
246 * -# Fill in the type-specific fields of #psa_crypto_transaction.
247 * -# Call psa_crypto_save_transaction() to start the transaction. This
248 * saves the transaction data to internal storage.
Gilles Peskine2ea06fd2019-07-25 17:53:16 +0200249 * -# Perform the work of the transaction by modifying files, contacting
250 * external entities, or whatever needs doing. Note that the transaction
251 * may be interrupted by a power failure, so you need to have a way
252 * recover from interruptions either by undoing what has been done
253 * so far or by resuming where you left off.
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200254 * -# If there are intermediate stages in the transaction, update
255 * the fields of #psa_crypto_transaction and call
256 * psa_crypto_save_transaction() again when each stage is reached.
Gilles Peskine2ea06fd2019-07-25 17:53:16 +0200257 * -# When the transaction is over, call psa_crypto_stop_transaction() to
258 * remove the transaction data in storage and in memory.
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200259 *
260 * If the system crashes while a transaction is in progress, psa_crypto_init()
261 * calls psa_crypto_load_transaction() and takes care of completing or
Gilles Peskine2ea06fd2019-07-25 17:53:16 +0200262 * rewinding the transaction. This is done in psa_crypto_recover_transaction()
263 * in psa_crypto.c. If you add a new type of transaction, be
264 * sure to add code for it in psa_crypto_recover_transaction().
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200265 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100266typedef union {
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200267 /* Each element of this union must have the following properties
268 * to facilitate serialization and deserialization:
269 *
270 * - The element is a struct.
271 * - The first field of the struct is `psa_crypto_transaction_type_t type`.
272 * - Elements of the struct are arranged such a way that there is
273 * no padding.
274 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100275 struct psa_crypto_transaction_unknown_s {
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200276 psa_crypto_transaction_type_t type;
Gilles Peskinefc762652019-07-22 19:30:34 +0200277 uint16_t unused1;
278 uint32_t unused2;
279 uint64_t unused3;
280 uint64_t unused4;
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200281 } unknown;
Gilles Peskinefc762652019-07-22 19:30:34 +0200282 /* ::type is #PSA_CRYPTO_TRANSACTION_CREATE_KEY or
283 * #PSA_CRYPTO_TRANSACTION_DESTROY_KEY. */
Gilles Peskine449bd832023-01-11 14:50:10 +0100284 struct psa_crypto_transaction_key_s {
Gilles Peskinefc762652019-07-22 19:30:34 +0200285 psa_crypto_transaction_type_t type;
286 uint16_t unused1;
287 psa_key_lifetime_t lifetime;
288 psa_key_slot_number_t slot;
Ronald Cron71016a92020-08-28 19:01:50 +0200289 mbedtls_svc_key_id_t id;
Gilles Peskinefc762652019-07-22 19:30:34 +0200290 } key;
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200291} psa_crypto_transaction_t;
292
293/** The single active transaction.
294 */
295extern psa_crypto_transaction_t psa_crypto_transaction;
296
297/** Prepare for a transaction.
298 *
299 * There must not be an ongoing transaction.
300 *
301 * \param type The type of transaction to start.
302 */
303static inline void psa_crypto_prepare_transaction(
Gilles Peskine449bd832023-01-11 14:50:10 +0100304 psa_crypto_transaction_type_t type)
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200305{
306 psa_crypto_transaction.unknown.type = type;
307}
308
309/** Save the transaction data to storage.
310 *
311 * You may call this function multiple times during a transaction to
312 * atomically update the transaction state.
313 *
Gilles Peskineed733552023-02-14 19:21:09 +0100314 * \retval #PSA_SUCCESS \emptydescription
315 * \retval #PSA_ERROR_DATA_CORRUPT \emptydescription
316 * \retval #PSA_ERROR_INSUFFICIENT_STORAGE \emptydescription
317 * \retval #PSA_ERROR_STORAGE_FAILURE \emptydescription
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200318 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100319psa_status_t psa_crypto_save_transaction(void);
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200320
321/** Load the transaction data from storage, if any.
322 *
323 * This function is meant to be called from psa_crypto_init() to recover
324 * in case a transaction was interrupted by a system crash.
325 *
326 * \retval #PSA_SUCCESS
327 * The data about the ongoing transaction has been loaded to
328 * #psa_crypto_transaction.
329 * \retval #PSA_ERROR_DOES_NOT_EXIST
330 * There is no ongoing transaction.
Gilles Peskineed733552023-02-14 19:21:09 +0100331 * \retval #PSA_ERROR_STORAGE_FAILURE \emptydescription
332 * \retval #PSA_ERROR_DATA_INVALID \emptydescription
333 * \retval #PSA_ERROR_DATA_CORRUPT \emptydescription
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200334 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100335psa_status_t psa_crypto_load_transaction(void);
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200336
337/** Indicate that the current transaction is finished.
338 *
Gilles Peskine2ea06fd2019-07-25 17:53:16 +0200339 * Call this function at the very end of transaction processing.
340 * This function does not "commit" or "abort" the transaction: the storage
341 * subsystem has no concept of "commit" and "abort", just saving and
342 * removing the transaction information in storage.
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200343 *
344 * This function erases the transaction data in storage (if any) and
345 * resets the transaction data in memory.
346 *
347 * \retval #PSA_SUCCESS
348 * There was transaction data in storage.
349 * \retval #PSA_ERROR_DOES_NOT_EXIST
350 * There was no transaction data in storage.
351 * \retval #PSA_ERROR_STORAGE_FAILURE
352 * It was impossible to determine whether there was transaction data
353 * in storage, or the transaction data could not be erased.
354 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100355psa_status_t psa_crypto_stop_transaction(void);
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200356
357/** The ITS file identifier for the transaction data.
358 *
359 * 0xffffffNN = special file; 0x74 = 't' for transaction.
360 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100361#define PSA_CRYPTO_ITS_TRANSACTION_UID ((psa_key_id_t) 0xffffff74)
Gilles Peskinec8336cb2019-07-22 19:26:12 +0200362
363#endif /* PSA_CRYPTO_STORAGE_HAS_TRANSACTIONS */
364
Gilles Peskinee3dbdd82019-02-25 11:04:06 +0100365#if defined(MBEDTLS_PSA_INJECT_ENTROPY)
366/** Backend side of mbedtls_psa_inject_entropy().
367 *
368 * This function stores the supplied data into the entropy seed file.
369 *
370 * \retval #PSA_SUCCESS
371 * Success
Gilles Peskineed733552023-02-14 19:21:09 +0100372 * \retval #PSA_ERROR_STORAGE_FAILURE \emptydescription
373 * \retval #PSA_ERROR_INSUFFICIENT_STORAGE \emptydescription
Gilles Peskinee3dbdd82019-02-25 11:04:06 +0100374 * \retval #PSA_ERROR_NOT_PERMITTED
375 * The entropy seed file already exists.
376 */
Gilles Peskine449bd832023-01-11 14:50:10 +0100377psa_status_t mbedtls_psa_storage_inject_entropy(const unsigned char *seed,
378 size_t seed_size);
Gilles Peskinee3dbdd82019-02-25 11:04:06 +0100379#endif /* MBEDTLS_PSA_INJECT_ENTROPY */
380
Darryl Greendb2b8db2018-06-15 13:06:04 +0100381#ifdef __cplusplus
382}
383#endif
384
385#endif /* PSA_CRYPTO_STORAGE_H */