ext/Time/Piece/Piece.xs

   1 #ifdef __cplusplus
   2 #extern "C" {
   3 #endif
   4 #include "EXTERN.h"
   5 #include "perl.h"
   6 #include "XSUB.h"
   7 #include <time.h>
   8 #ifdef __cplusplus
   9 }
  10 #endif
  11
  12 MODULE = Time::Piece         PACKAGE = Time::Piece
  13
  14 PROTOTYPES: ENABLE
  15
  16 char *
  17 __strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
  18         char *          fmt
  19         int             sec
  20         int             min
  21         int             hour
  22         int             mday
  23         int             mon
  24         int             year
  25         int             wday
  26         int             yday
  27         int             isdst
  28
  29     PREINIT:
  30     char *buf = NULL;
  31
  32     CODE:
  33     #XXX: an sv_strftime() that can make use of the TARG would faster
  34     buf = my_strftime(fmt, sec, min, hour, mday, mon, year, wday, yday, isdst);
  35     RETVAL = buf;
  36
  37     OUTPUT:
  38     RETVAL
  39
  40     CLEANUP:
  41     if (buf) {
  42         Safefree(buf);
  43     }