#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "c/common.c"
#include "c/jsonfmt.c"

MODULE = FU   PACKAGE = FU::XS

PROTOTYPES: DISABLE

SV *json_format(val)
    SV *val
  PREINIT:
    SV *r;
    fustr buf = {};
  CODE:
    fujson_fmt(&buf, val);
    r = fustr_sv(&buf);
    SvUTF8_on(r);
    RETVAL = r;
  OUTPUT:
    RETVAL