lisp/progmodes/elisp-mode.el (elisp--eval-last-sexp): Document argument.
[emacs.git] / src / w32font.h
blob0ad01254be9d74e009ef630f9e01e28b4c0abc47
1 /* Shared GDI and Uniscribe Font backend declarations for the Windows API.
2 Copyright (C) 2007-2015 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
19 #ifndef EMACS_W32FONT_H
20 #define EMACS_W32FONT_H
22 #include "font.h"
24 /* Bit 17 of ntmFlags in NEWTEXTMETRIC is set for PostScript OpenType fonts,
25 bit 18 for TrueType OpenType fonts, bit 20 for Type1 fonts. */
26 #ifndef NTM_PS_OPENTYPE
27 #define NTM_PS_OPENTYPE 0x00020000
28 #endif
29 #ifndef NTM_TT_OPENTYPE
30 #define NTM_TT_OPENTYPE 0x00040000
31 #endif
32 #ifndef NTM_TYPE1
33 #define NTM_TYPE1 0x00100000
34 #endif
36 #define NTMFLAGS_OPENTYPE (NTM_PS_OPENTYPE | NTM_TT_OPENTYPE)
38 struct w32_metric_cache
40 short lbearing, rbearing, width;
41 unsigned char status;
44 #define W32METRIC_NO_ATTEMPT 0
45 #define W32METRIC_SUCCESS 1
46 #define W32METRIC_FAIL 2
48 /* The actual structure for a w32 font, that can be cast to struct font.
49 The Uniscribe backend extends this. */
50 struct w32font_info
52 struct font font;
53 TEXTMETRICW metrics;
54 unsigned int glyph_idx;
55 struct w32_metric_cache **cached_metrics;
56 int n_cache_blocks;
57 HFONT hfont;
60 /* Macros for getting OS specific information from a font struct. */
61 #define FONT_HANDLE(f) (((struct w32font_info *)(f))->hfont)
62 #define FONT_TEXTMETRIC(f) (((struct w32font_info *)(f))->metrics)
64 #define CACHE_BLOCKSIZE 128
66 Lisp_Object w32font_get_cache (struct frame *fe);
67 Lisp_Object w32font_list_internal (struct frame *f,
68 Lisp_Object font_spec,
69 bool opentype_only);
70 Lisp_Object w32font_match_internal (struct frame *f,
71 Lisp_Object font_spec,
72 bool opentype_only);
73 int w32font_open_internal (struct frame *f, Lisp_Object font_entity,
74 int pixel_size, Lisp_Object font_object);
75 void w32font_close (struct font *font);
76 int w32font_has_char (Lisp_Object entity, int c);
77 void w32font_text_extents (struct font *font, unsigned *code, int nglyphs,
78 struct font_metrics *metrics);
79 int w32font_draw (struct glyph_string *s, int from, int to,
80 int x, int y, bool with_background);
83 int uniscribe_check_otf (LOGFONT *font, Lisp_Object otf_spec);
85 Lisp_Object intern_font_name (char *);
87 extern void syms_of_w32font (void);
88 extern void globals_of_w32font (void);
90 #endif