The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
global @Point {
	int x;
	int y;
}

global @Rect {
	int left;
	int bottom;
	int right;
	int top;
}

global @Box
{
	int x;
	int y;
	int width;
	int height;
}

global %Font {
	int         height            with undef;
	int         width             with undef;
	int         style             with undef;
	int         pitch             with undef;
	double      direction         with undef;
	string      name              with undef;
	int         size              with undef;
	string      encoding          with undef;
	long        resolution        ;
	string      family            ;
	int         vector            ;
	int         ascent            ;
	int         descent           ;
	int         weight            ;
	int         maximalWidth      ;
	int         internalLeading   ;
	int         externalLeading   ;
	int         xDeviceRes        ;
	int         yDeviceRes        ;
	int         firstChar         ;
	int         lastChar          ;
	int         breakChar         ;
	int         defaultChar       ;
	U8          utf8_flags        ;
}

global @FillPattern U8[8];

global @NPoint {
	double x;
	double y;
}

global %PrinterInfo {
	string name;
	string device;
	Bool   defaultPrinter;
}