git.chise.org Git - chise/xemacs-chise.git.1/blob - src/objects.h

   1 /* Generic object functions.
   2    Copyright (C) 1995 Board of Trustees, University of Illinois.
   3    Copyright (C) 1995, 1996 Ben Wing.
   4
   5 This file is part of XEmacs.
   6
   7 XEmacs is free software; you can redistribute it and/or modify it
   8 under the terms of the GNU General Public License as published by the
   9 Free Software Foundation; either version 2, or (at your option) any
  10 later version.
  11
  12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with XEmacs; see the file COPYING.  If not, write to
  19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  20 Boston, MA 02111-1307, USA.  */
  21
  22 /* Synched up with: Not in FSF. */
  23
  24 #ifndef _XEMACS_OBJECTS_H_
  25 #define _XEMACS_OBJECTS_H_
  26
  27 #include "specifier.h"
  28
  29 void finalose (void *ptr);
  30
  31 /*****************************************************************************
  32  *                        Color Specifier Object                             *
  33  *****************************************************************************/
  34
  35 struct color_specifier
  36 {
  37   Lisp_Object face;             /* face this is attached to, or nil */
  38   Lisp_Object face_property;    /* property of that face */
  39 };
  40
  41 #define COLOR_SPECIFIER_DATA(g) (SPECIFIER_TYPE_DATA (g, color))
  42 #define COLOR_SPECIFIER_FACE(g) (COLOR_SPECIFIER_DATA (g)->face)
  43 #define COLOR_SPECIFIER_FACE_PROPERTY(g) \
  44   (COLOR_SPECIFIER_DATA (g)->face_property)
  45
  46 DECLARE_SPECIFIER_TYPE (color);
  47 #define XCOLOR_SPECIFIER(x) XSPECIFIER_TYPE (x, color)
  48 #define XSETCOLOR_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, color)
  49 #define COLOR_SPECIFIERP(x) SPECIFIER_TYPEP (x, color)
  50 #define CHECK_COLOR_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, color)
  51 #define CONCHECK_COLOR_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, color)
  52
  53 void set_color_attached_to (Lisp_Object obj, Lisp_Object face,
  54                             Lisp_Object property);
  55
  56 /*****************************************************************************
  57  *                         Font Specifier Object                             *
  58  *****************************************************************************/
  59
  60 struct font_specifier
  61 {
  62   Lisp_Object face;             /* face this is attached to, or nil */
  63   Lisp_Object face_property;    /* property of that face */
  64 };
  65
  66 #define FONT_SPECIFIER_DATA(g) (SPECIFIER_TYPE_DATA (g, font))
  67 #define FONT_SPECIFIER_FACE(g) (FONT_SPECIFIER_DATA (g)->face)
  68 #define FONT_SPECIFIER_FACE_PROPERTY(g) \
  69   (FONT_SPECIFIER_DATA (g)->face_property)
  70
  71 DECLARE_SPECIFIER_TYPE (font);
  72 #define XFONT_SPECIFIER(x) XSPECIFIER_TYPE (x, font)
  73 #define XSETFONT_SPECIFIER(x, p) XSETSPECIFIER_TYPE (x, p, font)
  74 #define FONT_SPECIFIERP(x) SPECIFIER_TYPEP (x, font)
  75 #define CHECK_FONT_SPECIFIER(x) CHECK_SPECIFIER_TYPE (x, font)
  76 #define CONCHECK_FONT_SPECIFIER(x) CONCHECK_SPECIFIER_TYPE (x, font)
  77
  78 void set_font_attached_to (Lisp_Object obj, Lisp_Object face,
  79                            Lisp_Object property);
  80
  81 /*****************************************************************************
  82  *                       Face Boolean Specifier Object                       *
  83  *****************************************************************************/
  84
  85 struct face_boolean_specifier
  86 {
  87   Lisp_Object face;             /* face this is attached to, or nil */
  88   Lisp_Object face_property;    /* property of that face */
  89 };
  90
  91 #define FACE_BOOLEAN_SPECIFIER_DATA(g) (SPECIFIER_TYPE_DATA (g, face_boolean))
  92 #define FACE_BOOLEAN_SPECIFIER_FACE(g) (FACE_BOOLEAN_SPECIFIER_DATA (g)->face)
  93 #define FACE_BOOLEAN_SPECIFIER_FACE_PROPERTY(g) \
  94   (FACE_BOOLEAN_SPECIFIER_DATA (g)->face_property)
  95
  96 DECLARE_SPECIFIER_TYPE (face_boolean);
  97 extern Lisp_Object Qface_boolean;
  98 #define XFACE_BOOLEAN_SPECIFIER(x) XSPECIFIER_TYPE (x, face_boolean)
  99 #define XSETFACE_BOOLEAN_SPECIFIER(x, p) \
 100   XSETSPECIFIER_TYPE (x, p, face_boolean)
 101 #define FACE_BOOLEAN_SPECIFIERP(x) SPECIFIER_TYPEP (x, face_boolean)
 102 #define CHECK_FACE_BOOLEAN_SPECIFIER(x) \
 103   CHECK_SPECIFIER_TYPE (x, face_boolean)
 104 #define CONCHECK_FACE_BOOLEAN_SPECIFIER(x) \
 105   CONCHECK_SPECIFIER_TYPE (x, face_boolean)
 106
 107 void set_face_boolean_attached_to (Lisp_Object obj, Lisp_Object face,
 108                                    Lisp_Object property);
 109
 110 /****************************************************************************
 111  *                           Color Instance Object                          *
 112  ****************************************************************************/
 113
 114 DECLARE_LRECORD (color_instance, struct Lisp_Color_Instance);
 115 #define XCOLOR_INSTANCE(x) \
 116   XRECORD (x, color_instance, struct Lisp_Color_Instance)
 117 #define XSETCOLOR_INSTANCE(x, p) XSETRECORD (x, p, color_instance)
 118 #define COLOR_INSTANCEP(x) RECORDP (x, color_instance)
 119 #define GC_COLOR_INSTANCEP(x) GC_RECORDP (x, color_instance)
 120 #define CHECK_COLOR_INSTANCE(x) CHECK_RECORD (x, color_instance)
 121 #define CONCHECK_COLOR_INSTANCE(x) CONCHECK_RECORD (x, color_instance)
 122
 123 EXFUN (Fmake_color_instance, 3);
 124
 125 extern Lisp_Object Vthe_null_color_instance;
 126
 127 struct Lisp_Color_Instance
 128 {
 129   struct lcrecord_header header;
 130   Lisp_Object name;
 131   Lisp_Object device;
 132
 133   /* console-type-specific data */
 134   void *data;
 135 };
 136
 137 #define COLOR_INSTANCE_NAME(c)   ((c)->name)
 138 #define COLOR_INSTANCE_DEVICE(c) ((c)->device)
 139
 140 /****************************************************************************
 141  *                            Font Instance Object                          *
 142  ****************************************************************************/
 143
 144 DECLARE_LRECORD (font_instance, struct Lisp_Font_Instance);
 145 #define XFONT_INSTANCE(x) XRECORD (x, font_instance, struct Lisp_Font_Instance)
 146 #define XSETFONT_INSTANCE(x, p) XSETRECORD (x, p, font_instance)
 147 #define FONT_INSTANCEP(x) RECORDP (x, font_instance)
 148 #define GC_FONT_INSTANCEP(x) GC_RECORDP (x, font_instance)
 149 #define CHECK_FONT_INSTANCE(x) CHECK_RECORD (x, font_instance)
 150 #define CONCHECK_FONT_INSTANCE(x) CONCHECK_RECORD (x, font_instance)
 151
 152 #ifdef MULE
 153 int font_spec_matches_charset (struct device *d, Lisp_Object charset,
 154                                CONST Bufbyte *nonreloc,
 155                                Lisp_Object reloc, Bytecount offset,
 156                                Bytecount length);
 157 #endif
 158
 159 EXFUN (Fmake_font_instance, 3);
 160 EXFUN (Ffont_instance_name, 1);
 161 EXFUN (Ffont_instance_p, 1);
 162 EXFUN (Ffont_instance_truename, 1);
 163
 164 extern Lisp_Object Vthe_null_font_instance;
 165
 166 struct Lisp_Font_Instance
 167 {
 168   struct lcrecord_header header;
 169   Lisp_Object name;
 170   Lisp_Object device;
 171
 172   unsigned short ascent;        /* extracted from `font', or made up */
 173   unsigned short descent;
 174   unsigned short width;
 175   unsigned short height;
 176   int proportional_p;
 177
 178   /* console-type-specific data */
 179   void *data;
 180 };
 181
 182 #define FONT_INSTANCE_NAME(f)    ((f)->name)
 183 #define FONT_INSTANCE_DEVICE(f)  ((f)->device)
 184 #define FONT_INSTANCE_ASCENT(f)  ((f)->ascent)
 185 #define FONT_INSTANCE_DESCENT(f) ((f)->descent)
 186 #define FONT_INSTANCE_WIDTH(f)   ((f)->width)
 187 #define FONT_INSTANCE_HEIGHT(f)  ((f)->height)
 188
 189 #endif /* _XEMACS_OBJECTS_H_ */