The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

ANDY / Win32API-GUID-0.2 / GUID.xs 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

              
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <objbase.h>
#include <string.h>
MODULE = Win32API::GUID         PACKAGE = Win32API::GUID                
char*
CreateGuid()
        CODE:
                GUID guid;
                char buffer[13];
                char ret[37];
                int c;
                CoCreateGuid (&guid);
                sprintf (buffer, "%04X", (int) ((guid.Data1 & 0xFFFF0000) >> 16));
                strcpy (ret, buffer);
                sprintf (buffer, "%04X", (int) (guid.Data1 & 0xFFFF));      
                strcat (strcat (ret, buffer), "-");
                sprintf (buffer, "%04X", (int) guid.Data2);
                strcat (strcat (ret, buffer), "-");
                sprintf (buffer, "%04X", (int) guid.Data3);
                strcat (strcat (ret, buffer), "-");             
                 
                for (c = 0; c != 2; c++){
                        sprintf (buffer, "%02X", (int) guid.Data4[c]);
                        strcat (ret, buffer);
                }
                strcat (ret, "-"); 
                for (c = 2; c != 8; c++){
                        sprintf (buffer, "%02X", (int) guid.Data4[c]);
                        strcat (ret, buffer);
                }
                RETVAL = ret;
        OUTPUT:
                RETVAL