workbench/libs/uuid/uuid_parse.c

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