682321d1be
I mean, I like AnyEvent, but this can be done with core modules as well (albeit somewhat more verbose and error-prone...)
28 lines
576 B
Text
28 lines
576 B
Text
#include "EXTERN.h"
|
|
#include "perl.h"
|
|
#include "XSUB.h"
|
|
|
|
struct StringWrap {
|
|
char *buf;
|
|
unsigned long long len, cap;
|
|
};
|
|
|
|
struct StringWrap grotty2html_wrap(const char *, unsigned long long);
|
|
void grotty2html_free(struct StringWrap);
|
|
|
|
|
|
MODULE = ManUtils PACKAGE = ManUtils
|
|
|
|
SV *
|
|
html(str)
|
|
SV *str
|
|
CODE:
|
|
STRLEN len;
|
|
char *inbuf = SvPV(str, len);
|
|
struct StringWrap buf = grotty2html_wrap(inbuf, len);
|
|
SV *dest = buf.len ? newSVpv(buf.buf, buf.len) : newSVpv("", 0);
|
|
grotty2html_free(buf);
|
|
SvUTF8_on(dest);
|
|
RETVAL = dest;
|
|
OUTPUT:
|
|
RETVAL
|