20 lines
511 B
Plaintext
20 lines
511 B
Plaintext
#define PERL_NO_GET_CONTEXT
|
|
#include "EXTERN.h"
|
|
#include "perl.h"
|
|
#include "XSUB.h"
|
|
|
|
#include <stdio.h>
|
|
#include <fontconfig/fontconfig.h>
|
|
|
|
void
|
|
japachar_fontconfig__set_current_c(SV *self, char *font_dir) {
|
|
FcConfig *config = FcConfigGetCurrent();
|
|
FcConfigAppFontAddDir(config, font_dir);
|
|
FcConfigBuildFonts(config);
|
|
FcConfigSetCurrent(config);
|
|
}
|
|
|
|
MODULE = JapaChar PACKAGE = JapaChar::Fontconfig PREFIX = japachar_fontconfig_
|
|
|
|
void japachar_fontconfig__set_current_c(SV *self, char *font_dir)
|