X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/b35f288d478ef137a4d9e8e5a6a5f368a86b01f5..d8c2fa787973fc6d0d8c3693b97ddbba622ca41f:/src/w32font.h diff --git a/src/w32font.h b/src/w32font.h index 60ac62d6e0..45c0689719 100644 --- a/src/w32font.h +++ b/src/w32font.h @@ -1,5 +1,5 @@ /* Shared GDI and Uniscribe Font backend declarations for the W32 API. - Copyright (C) 2007, 2008 Free Software Foundation, Inc. + Copyright (C) 2007-2011 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -49,37 +49,39 @@ struct w32_metric_cache struct w32font_info { struct font font; - TEXTMETRIC metrics; + TEXTMETRICW metrics; unsigned int glyph_idx; struct w32_metric_cache **cached_metrics; int n_cache_blocks; - W32FontStruct *compat_w32_font; + HFONT hfont; }; -#define FONT_COMPAT(f) (((struct w32font_info *) (f))->compat_w32_font) +/* Macros for getting OS specific information from a font struct. */ +#define FONT_HANDLE(f) (((struct w32font_info *)(f))->hfont) +#define FONT_TEXTMETRIC(f) (((struct w32font_info *)(f))->metrics) #define CACHE_BLOCKSIZE 128 -Lisp_Object w32font_get_cache P_ ((FRAME_PTR fe)); -Lisp_Object w32font_list_internal P_ ((Lisp_Object frame, - Lisp_Object font_spec, - int opentype_only)); -Lisp_Object w32font_match_internal P_ ((Lisp_Object frame, - Lisp_Object font_spec, - int opentype_only)); -int w32font_open_internal P_ ((FRAME_PTR f, Lisp_Object font_entity, - int pixel_size, Lisp_Object font_object)); -void w32font_close P_ ((FRAME_PTR f, struct font *font)); -int w32font_has_char P_ ((Lisp_Object entity, int c)); -int w32font_text_extents P_ ((struct font *font, unsigned *code, int nglyphs, - struct font_metrics *metrics)); -int w32font_draw P_ ((struct glyph_string *s, int from, int to, - int x, int y, int with_background)); - - -int uniscribe_check_otf P_ ((LOGFONT *font, Lisp_Object otf_spec)); +Lisp_Object w32font_get_cache (FRAME_PTR fe); +Lisp_Object w32font_list_internal (Lisp_Object frame, + Lisp_Object font_spec, + int opentype_only); +Lisp_Object w32font_match_internal (Lisp_Object frame, + Lisp_Object font_spec, + int opentype_only); +int w32font_open_internal (FRAME_PTR f, Lisp_Object font_entity, + int pixel_size, Lisp_Object font_object); +void w32font_close (FRAME_PTR f, struct font *font); +int w32font_has_char (Lisp_Object entity, int c); +int w32font_text_extents (struct font *font, unsigned *code, int nglyphs, + struct font_metrics *metrics); +int w32font_draw (struct glyph_string *s, int from, int to, + int x, int y, int with_background); + + +int uniscribe_check_otf (LOGFONT *font, Lisp_Object otf_spec); + +Lisp_Object intern_font_name (char *); #endif -/* arch-tag: ef9d9675-a2a5-4d01-9526-815e9a3da7cb - (do not change this comment) */