Commit | Line | Data |
302d38aa |
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 * |
d0369dd1 |
17 | __strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1) |
302d38aa |
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 |
c6c619a9 |
28 | |
29 | PREINIT: |
30 | char *buf = NULL; |
31 | |
302d38aa |
32 | CODE: |
c6c619a9 |
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); |
c46a0ec2 |
35 | RETVAL = buf; |
c6c619a9 |
36 | |
37 | OUTPUT: |
38 | RETVAL |
39 | |
40 | CLEANUP: |
41 | if (buf) { |
42 | Safefree(buf); |
43 | } |