1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 /*
3 * This file is part of the LibreOffice project.
4 *
5 * This Source Code Form is subject to the terms of the Mozilla Public
6 * License, v. 2.0. If a copy of the MPL was not distributed with this
7 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 *
9 * This file incorporates work covered by the following license notice:
10 *
11 * Licensed to the Apache Software Foundation (ASF) under one or more
12 * contributor license agreements. See the NOTICE file distributed
13 * with this work for additional information regarding copyright
14 * ownership. The ASF licenses this file to you under the Apache
15 * License, Version 2.0 (the "License"); you may not use this file
16 * except in compliance with the License. You may obtain a copy of
17 * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 */
19
20 #include <string.h>
21 #include <stdlib.h>
22
23 #include <osl/mutex.hxx>
24 #include <rtl/random.h>
25 #include <rtl/uuid.h>
26 #include <rtl/digest.h>
27
28 #define SWAP_INT32_TO_NETWORK(x)\
29 { sal_uInt32 y = x;\
30 sal_uInt8 *p = reinterpret_cast<sal_uInt8 *>(&(x)); \
31 p[0] = static_cast<sal_uInt8>( ( y >> 24 ) & 0xff );\
32 p[1] = static_cast<sal_uInt8>( ( y >> 16 ) & 0xff );\
33 p[2] = static_cast<sal_uInt8>( ( y >> 8 ) & 0xff );\
34 p[3] = static_cast<sal_uInt8>( ( y ) & 0xff);\
35 }
36 #define SWAP_INT16_TO_NETWORK(x)\
37 { sal_uInt16 y = x;\
38 sal_uInt8 *p = reinterpret_cast<sal_uInt8 *>(&(x)); \
39 p[0] = static_cast<sal_uInt8>( ( y >> 8 ) & 0xff );\
40 p[1] = static_cast<sal_uInt8>( ( y ) & 0xff);\
41 }
42
43 #define SWAP_NETWORK_TO_INT16(x)\
44 { sal_uInt16 y = x;\
45 sal_uInt8 *p = reinterpret_cast<sal_uInt8 *>(&(y));\
46 x = ( ( (static_cast<sal_uInt16>(p[0])) & 0xff) << 8 ) |\
47 ( ( static_cast<sal_uInt16>(p[1])) & 0xff);\
48 }
49 #define SWAP_NETWORK_TO_INT32(x)\
50 { sal_uInt32 y = x;\
51 sal_uInt8 *p = reinterpret_cast<sal_uInt8 *>(&(y)); \
52 x = ( ( (static_cast<sal_uInt32>(p[0])) & 0xff) << 24 ) |\
53 ( ( (static_cast<sal_uInt32>(p[1])) & 0xff) << 16 ) |\
54 ( ( (static_cast<sal_uInt32>(p[2])) & 0xff) << 8 ) |\
55 ( ( static_cast<sal_uInt32>(p[3])) & 0xff);\
56 }
57
58 namespace {
59
60 struct UUID
61 {
62 sal_uInt32 time_low;
63 sal_uInt16 time_mid;
64 sal_uInt16 time_hi_and_version;
65 sal_uInt8 clock_seq_hi_and_reserved;
66 sal_uInt8 clock_seq_low;
67 sal_uInt8 node[6];
68 };
69
70 }
71
write_v3(sal_uInt8 * pUuid)72 static void write_v3( sal_uInt8 *pUuid )
73 {
74 UUID uuid;
75 // copy to avoid alignment problems
76 memcpy(&uuid, pUuid, 16);
77
78 SWAP_NETWORK_TO_INT32(uuid.time_low);
79 SWAP_NETWORK_TO_INT16(uuid.time_mid);
80 SWAP_NETWORK_TO_INT16(uuid.time_hi_and_version);
81
82 /* put in the variant and version bits */
83 uuid.time_hi_and_version &= 0x0FFF;
84 uuid.time_hi_and_version |= (3 << 12);
85 uuid.clock_seq_hi_and_reserved &= 0x3F;
86 uuid.clock_seq_hi_and_reserved |= 0x80;
87
88 SWAP_INT32_TO_NETWORK(uuid.time_low);
89 SWAP_INT16_TO_NETWORK(uuid.time_mid);
90 SWAP_INT16_TO_NETWORK(uuid.time_hi_and_version);
91
92 memcpy(pUuid, &uuid, 16);
93 }
94
rtl_createUuid(sal_uInt8 * pTargetUUID,SAL_UNUSED_PARAMETER const sal_uInt8 *,SAL_UNUSED_PARAMETER sal_Bool)95 extern "C" void SAL_CALL rtl_createUuid(sal_uInt8 *pTargetUUID ,
96 SAL_UNUSED_PARAMETER const sal_uInt8 *,
97 SAL_UNUSED_PARAMETER sal_Bool)
98 {
99 {
100 static rtlRandomPool pool = []() {
101 rtlRandomPool aPool = rtl_random_createPool();
102 if (!aPool)
103 {
104 abort();
105 // only possible way to signal failure here (rtl_createUuid
106 // being part of a fixed C API)
107 }
108 return aPool;
109 }();
110
111 osl::MutexGuard g(osl::Mutex::getGlobalMutex());
112 if (rtl_random_getBytes(pool, pTargetUUID, 16) != rtl_Random_E_None)
113 {
114 abort();
115 // only possible way to signal failure here (rtl_createUuid
116 // being part of a fixed C API)
117 }
118 }
119 // See ITU-T Recommendation X.667:
120 pTargetUUID[6] &= 0x0F;
121 pTargetUUID[6] |= 0x40;
122 pTargetUUID[8] &= 0x3F;
123 pTargetUUID[8] |= 0x80;
124 }
125
rtl_createNamedUuid(sal_uInt8 * pTargetUUID,const sal_uInt8 * pNameSpaceUUID,const rtl_String * pName)126 extern "C" void SAL_CALL rtl_createNamedUuid(sal_uInt8 *pTargetUUID,
127 const sal_uInt8 *pNameSpaceUUID,
128 const rtl_String *pName )
129 {
130 rtlDigest digest = rtl_digest_createMD5();
131
132 rtl_digest_updateMD5(digest, pNameSpaceUUID, 16);
133 rtl_digest_updateMD5(digest, pName->buffer, pName->length);
134
135 rtl_digest_getMD5(digest, pTargetUUID, 16);
136 rtl_digest_destroyMD5(digest);
137
138 write_v3(pTargetUUID);
139 }
140
rtl_compareUuid(const sal_uInt8 * pUUID1,const sal_uInt8 * pUUID2)141 extern "C" sal_Int32 SAL_CALL rtl_compareUuid(const sal_uInt8 *pUUID1, const sal_uInt8 *pUUID2)
142 {
143 int i;
144 UUID u1;
145 UUID u2;
146 memcpy(&u1, pUUID1, 16 );
147 memcpy(&u2, pUUID2, 16 );
148
149 SWAP_NETWORK_TO_INT32(u1.time_low);
150 SWAP_NETWORK_TO_INT16(u1.time_mid);
151 SWAP_NETWORK_TO_INT16(u1.time_hi_and_version);
152
153 SWAP_NETWORK_TO_INT32(u2.time_low);
154 SWAP_NETWORK_TO_INT16(u2.time_mid);
155 SWAP_NETWORK_TO_INT16(u2.time_hi_and_version);
156
157 #define CHECK(f1, f2) if (f1 != f2) return f1 < f2 ? -1 : 1;
158 CHECK(u1.time_low, u2.time_low);
159 CHECK(u1.time_mid, u2.time_mid);
160 CHECK(u1.time_hi_and_version, u2.time_hi_and_version);
161 CHECK(u1.clock_seq_hi_and_reserved, u2.clock_seq_hi_and_reserved);
162 CHECK(u1.clock_seq_low, u2.clock_seq_low);
163 for (i = 0; i < 6; i++)
164 {
165 if (u1.node[i] < u2.node[i])
166 return -1;
167 if (u1.node[i] > u2.node[i])
168 return 1;
169 }
170 return 0;
171 }
172
173 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
174