Xdgmime/Xdgmime.xs

   1 #define PERL_NO_GET_CONTEXT
   2 #include "EXTERN.h"
   3 #include "perl.h"
   4 #include "XSUB.h"
   5
   6 #include "ppport.h"
   7
   8 #include <xdgmime.h>
   9
  10 #include "const-c.inc"
  11
  12 MODULE = Xdgmime                PACKAGE = Xdgmime
  13
  14 INCLUDE: const-xs.inc
  15
  16 void
  17 xdg_mime_dump()
  18
  19 int
  20 xdg_mime_get_max_buffer_extents()
  21
  22 const char *
  23 xdg_mime_get_mime_type_for_data(data, len)
  24         const char * data
  25         unsigned long   len
  26         CODE:
  27                 int result_prio;
  28                 RETVAL = xdg_mime_get_mime_type_for_data (data, len, &result_prio);
  29         OUTPUT:
  30             RETVAL
  31
  32 const char *
  33 xdg_mime_get_mime_type_for_file(file_name)
  34         const char *    file_name
  35         CODE:
  36                 RETVAL = xdg_mime_get_mime_type_for_file (file_name, NULL);
  37         OUTPUT:
  38             RETVAL
  39
  40 const char *
  41 xdg_mime_get_mime_type_from_file_name(file_name)
  42         const char *    file_name
  43         OUTPUT:
  44             RETVAL
  45
  46 int
  47 xdg_mime_is_valid_mime_type(mime_type)
  48         const char *    mime_type
  49
  50 int
  51 xdg_mime_media_type_equal(mime_a, mime_b)
  52         const char *    mime_a
  53         const char *    mime_b
  54
  55 int
  56 xdg_mime_mime_type_equal(mime_a, mime_b)
  57         const char *    mime_a
  58         const char *    mime_b
  59
  60 int
  61 xdg_mime_mime_type_subclass(mime_a, mime_b)
  62         const char *    mime_a
  63         const char *    mime_b
  64
  65 void
  66 xdg_mime_shutdown()
  67
  68 SV *
  69 xdg_mime_list_mime_parents (mime_type)
  70         const char *    mime_type
  71     INIT:
  72         AV * results;
  73         char **parents;
  74         char **p;
  75         results = (AV *)sv_2mortal((SV *)newAV());
  76     CODE:
  77         parents = xdg_mime_list_mime_parents (mime_type);
  78         for (p = parents; p && *p; p++) {
  79               av_push(results, newSVpv(*p, 0));
  80         }
  81         free (parents);
  82         RETVAL = newRV((SV *)results);
  83     OUTPUT:
  84         RETVAL