libsystem_asl.tproj/src/asl_util.c

   1 /*
   2  * Copyright (c) 2006-2011 Apple Inc.  All rights reserved.
   3  *
   4  * @APPLE_LICENSE_HEADER_START@
   5  *
   6  * This file contains Original Code and/or Modifications of Original Code
   7  * as defined in and that are subject to the Apple Public Source License
   8  * Version 2.0 (the 'License'). You may not use this file except in
   9  * compliance with the License. Please obtain a copy of the License at
  10  * http://www.opensource.apple.com/apsl/ and read it before using this
  11  * file.
  12  *
  13  * The Original Code and all software distributed under the License are
  14  * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
  15  * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
  16  * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
  17  * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT.  Please see the
  18  * License for the specific language governing rights and limitations
  19  * under the License."
  20  *
  21  * @APPLE_LICENSE_HEADER_END@
  22  */
  23
  24 #include <string.h>
  25 #include <sys/types.h>
  26 #include <sys/socket.h>
  27 #include <sys/un.h>
  28 #include <fcntl.h>
  29 #include <stdint.h>
  30 #include <stdlib.h>
  31 #include <errno.h>
  32 #include <unistd.h>
  33 #include <Block.h>
  34 #include <dispatch/dispatch.h>
  35 #include <os/assumes.h>
  36 #include <xpc/xpc.h>
  37 #include <asl_private.h>
  38
  39 static uint8_t *b64charset = (uint8_t *)"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
  40
  41 static int
  42 asl_is_utf8_char(const unsigned char *p, int *state, int *ctype)
  43 {
  44         switch (*state)
  45         {
  46                 case 0:
  47                 {
  48                         *ctype = 0;
  49
  50                         if (*p >= 0x80)
  51                         {
  52                                 *state = 1;
  53                                 if ((*p >= 0xc2) && (*p <= 0xdf)) *ctype = 1;
  54                                 else if (*p == 0xe0) *ctype = 2;
  55                                 else if ((*p >= 0xe1) && (*p <= 0xef)) *ctype = 3;
  56                                 else if (*p == 0xf0) *ctype = 4;
  57                                 else if ((*p >= 0xf1) && (*p <= 0xf3)) *ctype = 5;
  58                                 else if (*p == 0xf4) *ctype = 6;
  59                                 else return 0;
  60                         }
  61
  62                         break;
  63                 }
  64
  65                 case 1:
  66                 {
  67                         switch (*ctype)
  68                         {
  69                                 case 1:
  70                                 {
  71                                         if ((*p >= 0x80) && (*p <= 0xbf)) *state = 0;
  72                                         else return 0;
  73                                         break;
  74                                 }
  75
  76                                 case 2:
  77                                 {
  78                                         if ((*p >= 0xa0) && (*p <= 0xbf)) *state = 2;
  79                                         else return 0;
  80                                         break;
  81                                 }
  82
  83                                 case 3:
  84                                 {
  85                                         if ((*p >= 0x80) && (*p <= 0xbf)) *state = 2;
  86                                         else return 0;
  87                                         break;
  88                                 }
  89
  90                                 case 4:
  91                                 {
  92                                         if ((*p >= 0x90) && (*p <= 0xbf)) *state = 2;
  93                                         else return 0;
  94                                         break;
  95                                 }
  96
  97                                 case 5:
  98                                 {
  99                                         if ((*p >= 0x80) && (*p <= 0xbf)) *state = 2;
 100                                         else return 0;
 101                                         break;
 102                                 }
 103
 104                                 case 6:
 105                                 {
 106                                         if ((*p >= 0x80) && (*p <= 0x8f)) *state = 2;
 107                                         else return 0;
 108                                         break;
 109                                 }
 110
 111                                 default: return 0;
 112                         }
 113
 114                         break;
 115                 }
 116
 117                 case 2:
 118                 {
 119                         if ((*ctype >= 2) && (*ctype <= 3))
 120                         {
 121                                 if ((*p >= 0x80) && (*p <= 0xbf)) *state = 0;
 122                                 else return 0;
 123                         }
 124                         else if ((*ctype >= 4) && (*ctype <= 6))
 125                         {
 126                                 if ((*p >= 0x80) && (*p <= 0xbf)) *state = 3;
 127                                 else return 0;
 128                         }
 129                         else
 130                         {
 131                                 return 0;
 132                         }
 133
 134                         break;
 135                 }
 136
 137                 case 3:
 138                 {
 139                         if ((*ctype >= 4) && (*ctype <= 6))
 140                         {
 141                                 if ((*p >= 0x80) && (*p <= 0xbf)) *state = 0;
 142                                 else return 0;
 143                         }
 144                         else
 145                         {
 146                                 return 0;
 147                         }
 148
 149                         break;
 150                 }
 151
 152                 default: return 0;
 153         }
 154
 155         return 1;
 156 }
 157
 158 __private_extern__ int
 159 asl_is_utf8(const char *str)
 160 {
 161         const unsigned char *p;
 162         int flag = 1;
 163         int state = 0;
 164         int ctype = 0;
 165
 166         if (str == NULL) return flag;
 167
 168         for (p = (const unsigned char *)str; (*p != '\0') && (flag == 1); p++)
 169         {
 170                 flag = asl_is_utf8_char(p, &state, &ctype);
 171         }
 172
 173         return flag;
 174 }
 175
 176 __private_extern__ uint8_t *
 177 asl_b64_encode(const uint8_t *buf, size_t len)
 178 {
 179         uint8_t *out;
 180         uint8_t b;
 181         size_t i0, i1, i2, j, outlen;
 182
 183         if (buf == NULL) return NULL;
 184         if (len == 0) return NULL;
 185
 186         outlen = ((len + 2) / 3) * 4;
 187         out = (uint8_t *)malloc(outlen + 1);
 188         if (out == NULL)
 189         {
 190                 errno = ENOMEM;
 191                 return NULL;
 192         }
 193
 194         out[outlen] = 0;
 195
 196         i0 = 0;
 197         i1 = 1;
 198         i2 = 2;
 199         j = 0;
 200
 201         while (i2 < len)
 202         {
 203                 b = buf[i0] >> 2;
 204                 out[j++] = b64charset[b];
 205
 206                 b = ((buf[i0] & 0x03) << 4) | (buf[i1] >> 4);
 207                 out[j++] = b64charset[b];
 208
 209                 b = ((buf[i1] & 0x0f) << 2) | ((buf[i2] & 0xc0) >> 6);
 210                 out[j++] = b64charset[b];
 211
 212                 b = buf[i2] & 0x3f;
 213                 out[j++] = b64charset[b];
 214
 215                 i0 += 3;
 216                 i1 = i0 + 1;
 217                 i2 = i1 + 1;
 218         }
 219
 220         if (i0 < len)
 221         {
 222                 b = buf[i0] >> 2;
 223                 out[j++] = b64charset[b];
 224
 225                 b = (buf[i0] & 0x03) << 4;
 226
 227                 if (i1 < len) b |= (buf[i1] >> 4);
 228                 out[j++] = b64charset[b];
 229
 230                 if (i1 >= len)
 231                 {
 232                         out[j++] = '=';
 233                         out[j++] = '=';
 234                         return out;
 235                 }
 236
 237                 b = (buf[i1] & 0x0f) << 2;
 238                 out[j++] = b64charset[b];
 239                 out[j++] = '=';
 240         }
 241
 242         return out;
 243 }
 244
 245 static xpc_connection_t
 246 _create_aslmanager_connection(void)
 247 {
 248         xpc_connection_t connection;
 249
 250         connection = xpc_connection_create_mach_service(ASLMANAGER_SERVICE_NAME, NULL, XPC_CONNECTION_MACH_SERVICE_PRIVILEGED);
 251         xpc_connection_set_event_handler(connection, ^(xpc_object_t xobj) { if (xobj != NULL) {}; });
 252         xpc_connection_resume(connection);
 253
 254         return connection;
 255 }
 256
 257 int
 258 asl_trigger_aslmanager(void)
 259 {
 260         xpc_connection_t connection = _create_aslmanager_connection();
 261         if (connection == NULL) return -1;
 262
 263         xpc_object_t request = xpc_dictionary_create(NULL, NULL, 0);
 264         if (request == NULL) return -1;
 265
 266         xpc_object_t reply = xpc_connection_send_message_with_reply_sync(connection, request);
 267
 268         if (reply != NULL) xpc_release(reply);
 269         xpc_release(request);
 270         xpc_release(connection);
 271         return 0;
 272 }