[p5sagit/p5-mst-13.2.git] / ext / Time / Piece / Piece.xs

#ifdef __cplusplus
#extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <time.h>
#ifdef __cplusplus
}
#endif

MODULE = Time::Piece         PACKAGE = Time::Piece

PROTOTYPES: ENABLE

char *
__strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
	char *		fmt
	int		sec
	int		min
	int		hour
	int		mday
	int		mon
	int		year
	int		wday
	int		yday
	int		isdst

    PREINIT:
    char *buf = NULL;

    CODE:
    #XXX: an sv_strftime() that can make use of the TARG would faster
    buf = my_strftime(fmt, sec, min, hour, mday, mon, year, wday, yday, isdst);
    RETVAL = buf;

    OUTPUT:
    RETVAL

    CLEANUP:
    if (buf) {
        Safefree(buf);
    }
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
c6c619a9	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	}