font.xs

来自「flash swf file player」· XS 代码 · 共 86 行

/* ====================================================================
 * Copyright (c) 2000-2001 by Soheil Seyfaie. All rights reserved.
 * This program is free software; you can redistribute it and/or modify
 * it under the same terms as Perl itself.
 * ====================================================================
 *
 * $Author: whamann $
 * $Id: Font.xs,v 1.6 2003/11/08 18:24:55 whamann Exp $
 */


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

#include "SWF.h"
#include "perl_swf.h"


MODULE = SWF::Font		PACKAGE = SWF::Font		PREFIX = SWFFont_
PROTOTYPES: ENABLE

SWF::Font
SWFFont_new(package="SWF::Font", filename)
	char *package
	char *filename = NO_INIT
	PREINIT:
	FILE   *f;
	STRLEN len;
	CODE:
	filename = (char *) SvPV(ST(1), len);
	if (strncasecmp(filename+len-4, ".fdb", 4) == 0){
	    if (!(f = fopen(filename, "rb"))) {
		fprintf(stderr, "Unable to open FDB file %s\n", filename);
		XSRETURN_UNDEF;
	    }else{
		RETVAL = loadSWFFontFromFile(f);
		fclose(f);
	    }
	}
	else
	    RETVAL = newSWFBrowserFont(filename);

	ST(0) = sv_newmortal();
        sv_setref_pv(ST(0), package, (void*)RETVAL);

void
destroySWFFont(block)
        SWF::Block      block = (SWF__Block) SvIV((SV*)SvRV(ST(0)));
        ALIAS:
        SWF::Font::DESTROY = 1
        CODE:
        S_DEBUG(2, fprintf(stderr, "FONT DESTROY CALLED\n"));
	destroySWFBlock((SWFBlock)block);

int
SWFFont_getStringWidth(font, string)
	SWF::Font	font
	char *	string
        ALIAS:
        SWF::Font::getWidth = 1

int
SWFFont_getUTF8StringWidth(font, string)
	SWF::Font	font
	char *	string

short
SWFFont_getAscent(font)
	SWF::Font	font

short
SWFFont_getDescent(font)
	SWF::Font	font

short
SWFFont_getLeading(font)
	SWF::Font	font

char *
SWFFont_getShape(font, code)
	SWF::Font font
	int code;
	CLEANUP:
		free(RETVAL);