workbench/libs/uuid/uuid_parse.c

   1 /*
   2     Copyright © 2007-2018, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/symbolsets.h>
   7 #include <aros/debug.h>
   8 #include <aros/libcall.h>
   9 #include <proto/exec.h>
  10
  11 #include <stdio.h>
  12 #include <stdlib.h>
  13 #include <ctype.h>
  14
  15 #include "uuid_private.h"
  16 #include LC_LIBDEFS_FILE
  17
  18 static char value(char chr)
  19 {
  20     if (isdigit(chr))
  21         chr -= '0';
  22     else
  23         chr -= isupper(chr) ? 'A' - 10 : 'a' - 10;
  24     return chr;
  25 }
  26
  27 AROS_LH2(int, UUID_Parse,
  28          AROS_LHA(const char *, in, A0),
  29          AROS_LHA(uuid_t *, uuid, A1),
  30          struct uuid_base *, UUIDBase, 7, UUID)
  31 {
  32     AROS_LIBFUNC_INIT
  33
  34     int i;
  35     uuid_t tmp = {0, 0, 0, 0, 0, {0, 0, 0, 0, 0, 0}};
  36
  37     D(bug("[UUID] UUID_Parse(%s, %p)\n", in, uuid));
  38
  39     if (strlen(in) == UUID_STRLEN)
  40     {
  41         for (i=0; i < 8; i++, in++)
  42         {
  43             if (isxdigit(*in))
  44             {
  45                 tmp.time_low = (tmp.time_low  << 4) | value(*in);
  46             }
  47             else return 0;
  48         }
  49
  50         if (*in++ != '-')
  51             return 0;
  52
  53         for (i=0; i < 4; i++, in++)
  54         {
  55             if (isxdigit(*in))
  56             {
  57                 tmp.time_mid = (tmp.time_mid << 4) | value(*in);
  58             }
  59             else return 0;
  60         }
  61
  62         if (*in++ != '-')
  63             return 0;
  64
  65         for (i=0; i < 4; i++, in++)
  66         {
  67             if (isxdigit(*in))
  68             {
  69                 tmp.time_hi_and_version =
  70                     (tmp.time_hi_and_version << 4) | value(*in);
  71             }
  72             else return 0;
  73         }
  74
  75         if (*in++ != '-')
  76             return 0;
  77
  78         if (!(isxdigit(in[0]) && isxdigit(in[1])))
  79             return 0;
  80
  81         tmp.clock_seq_hi_and_reserved = (value(in[0]) << 4) | value(in[1]);
  82
  83         if (!(isxdigit(in[2]) && isxdigit(in[3])))
  84             return 0;
  85
  86         tmp.clock_seq_low = (value(in[2]) << 4) | value(in[3]);
  87         in +=4;
  88
  89         if (*in++ != '-')
  90             return 0;
  91
  92         for (i=0; i < 6; i++, in+=2)
  93         {
  94             if (!(isxdigit(in[0]) && isxdigit(in[1])))
  95                 return 0;
  96
  97             tmp.node[i] = (value(in[0]) << 4) | value(in[1]);
  98         }
  99
 100         *uuid = tmp;
 101         return 1;
 102     }
 103
 104     return 0;
 105
 106     AROS_LIBFUNC_EXIT
 107 }
 108
 109 AROS_LH2(void, UUID_Unparse,
 110          AROS_LHA(const uuid_t *, uuid, A0),
 111          AROS_LHA(char *, out, A1),
 112          struct uuid_base *, UUIDBase, 8, UUID)
 113 {
 114     AROS_LIBFUNC_INIT
 115
 116     snprintf(out, UUID_STRLEN + 1,
 117             "%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x",
 118             (unsigned int)uuid->time_low,
 119             uuid->time_mid,
 120             uuid->time_hi_and_version,
 121             uuid->clock_seq_hi_and_reserved,
 122             uuid->clock_seq_low,
 123             uuid->node[0],uuid->node[1],uuid->node[2],
 124             uuid->node[3],uuid->node[4],uuid->node[5]);
 125
 126     AROS_LIBFUNC_EXIT
 127 }