Mercurial > hg > xemacs-beta
annotate src/device-msw.c @ 5818:15b0715c204d
Avoid passing patterns to with charset property to FcNameUnparse.
Prevents crash reported by Raymond Toy.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Sat, 18 Oct 2014 21:20:42 +0900 |
| parents | 56144c8593a8 |
| children | 574f0cded429 |
| rev | line source |
|---|---|
| 428 | 1 /* device functions for mswindows. |
| 2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois. | |
| 3 Copyright (C) 1994, 1995 Free Software Foundation, Inc. | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
4 Copyright (C) 2000, 2001, 2002, 2010 Ben Wing. |
| 428 | 5 |
| 6 This file is part of XEmacs. | |
| 7 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5192
diff
changeset
|
8 XEmacs is free software: you can redistribute it and/or modify it |
| 428 | 9 under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5192
diff
changeset
|
10 Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5192
diff
changeset
|
11 option) any later version. |
| 428 | 12 |
| 13 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5192
diff
changeset
|
19 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */ |
| 428 | 20 |
| 21 /* Synched up with: Not in FSF. */ | |
| 22 | |
| 771 | 23 /* This file Mule-ized 8-11-2000. */ |
| 24 | |
| 428 | 25 /* Authorship: |
| 26 | |
| 27 Original authors: Jamie Zawinski and the FSF | |
| 28 Rewritten by Ben Wing and Chuck Thompson. | |
| 29 Rewritten for mswindows by Jonathan Harris, November 1997 for 21.0. | |
| 510 | 30 Print support added by Kirill Katsnelson, July 2000. |
| 428 | 31 */ |
| 32 | |
| 771 | 33 #define NEED_MSWINDOWS_COMMCTRL |
| 34 #define NEED_MSWINDOWS_OBJBASE /* for CoInitialize */ | |
| 428 | 35 |
| 36 #include <config.h> | |
| 37 #include "lisp.h" | |
| 38 | |
| 872 | 39 #include "device-impl.h" |
| 800 | 40 #include "events.h" |
| 41 #include "faces.h" | |
| 42 #include "frame.h" | |
| 43 | |
| 872 | 44 #include "console-msw-impl.h" |
| 428 | 45 #include "console-stream.h" |
|
5176
8b2f75cecb89
rename objects* (.c, .h and .el files) to fontcolor*
Ben Wing <ben@xemacs.org>
parents:
4982
diff
changeset
|
46 #include "fontcolor-msw.h" |
| 800 | 47 |
| 428 | 48 #include "sysdep.h" |
| 49 | |
| 50 /* win32 DDE management library globals */ | |
| 51 #ifdef HAVE_DRAGNDROP | |
| 52 DWORD mswindows_dde_mlid; | |
| 657 | 53 int mswindows_dde_enable; |
| 428 | 54 HSZ mswindows_dde_service; |
| 55 HSZ mswindows_dde_topic_system; | |
| 903 | 56 HSZ mswindows_dde_topic_eval; |
| 57 HSZ mswindows_dde_item_result; | |
| 428 | 58 HSZ mswindows_dde_item_open; |
| 59 #endif | |
| 60 | |
|
4477
e34711681f30
Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents:
4117
diff
changeset
|
61 Lisp_Object Qmake_device_early_mswindows_entry_point, |
|
e34711681f30
Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents:
4117
diff
changeset
|
62 Qmake_device_late_mswindows_entry_point; |
| 442 | 63 Lisp_Object Qdevmodep; |
| 428 | 64 |
| 510 | 65 static Lisp_Object Q_allow_selection; |
| 66 static Lisp_Object Q_allow_pages; | |
| 67 static Lisp_Object Q_selected_page_button; | |
| 68 static Lisp_Object Qselected_page_button; | |
| 69 | |
| 1204 | 70 static const struct memory_description mswindows_device_data_description_1 [] = { |
| 71 { XD_LISP_OBJECT, offsetof (struct mswindows_device, fontlist) }, | |
| 72 { XD_END } | |
| 73 }; | |
| 74 | |
| 3092 | 75 #ifdef NEW_GC |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
76 DEFINE_DUMPABLE_INTERNAL_LISP_OBJECT ("mswindows-device", mswindows_device, |
|
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
77 0, mswindows_device_data_description_1, |
|
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
78 Lisp_Mswindows_Device); |
| 3092 | 79 #else /* not NEW_GC */ |
| 1204 | 80 extern const struct sized_memory_description mswindows_device_data_description; |
| 81 | |
| 82 const struct sized_memory_description mswindows_device_data_description = { | |
| 83 sizeof (struct mswindows_device), mswindows_device_data_description_1 | |
| 84 }; | |
| 3092 | 85 #endif /* not NEW_GC */ |
| 1204 | 86 |
| 1346 | 87 static const struct memory_description msprinter_device_data_description_1 [] = { |
| 88 { XD_LISP_OBJECT, offsetof (struct msprinter_device, name) }, | |
| 89 { XD_LISP_OBJECT, offsetof (struct msprinter_device, devmode) }, | |
| 90 { XD_LISP_OBJECT, offsetof (struct msprinter_device, fontlist) }, | |
| 91 { XD_END } | |
| 92 }; | |
| 93 | |
| 3092 | 94 #ifdef NEW_GC |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
95 DEFINE_DUMPABLE_INTERNAL_LISP_OBJECT ("msprinter-device", msprinter_device, |
|
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
96 0, msprinter_device_data_description_1, |
|
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
97 Lisp_Msprinter_Device); |
| 3092 | 98 #else /* not NEW_GC */ |
| 1346 | 99 extern const struct sized_memory_description msprinter_device_data_description; |
| 100 | |
| 101 const struct sized_memory_description msprinter_device_data_description = { | |
| 102 sizeof (struct msprinter_device), msprinter_device_data_description_1 | |
| 103 }; | |
| 3092 | 104 #endif /* not NEW_GC */ |
| 1346 | 105 |
| 771 | 106 static Lisp_Object allocate_devmode (DEVMODEW *src_devmode, int do_copy, |
| 107 Lisp_Object src_name, struct device *d); | |
| 428 | 108 |
| 109 /************************************************************************/ | |
| 110 /* helpers */ | |
| 111 /************************************************************************/ | |
| 112 | |
| 113 static Lisp_Object | |
| 440 | 114 build_syscolor_string (int idx) |
| 428 | 115 { |
| 442 | 116 return (idx < 0 ? Qnil : mswindows_color_to_string (GetSysColor (idx))); |
| 428 | 117 } |
| 118 | |
| 119 static Lisp_Object | |
| 120 build_syscolor_cons (int index1, int index2) | |
| 121 { | |
| 122 Lisp_Object color1, color2; | |
| 123 struct gcpro gcpro1; | |
| 124 GCPRO1 (color1); | |
| 125 color1 = build_syscolor_string (index1); | |
| 126 color2 = build_syscolor_string (index2); | |
| 127 RETURN_UNGCPRO (Fcons (color1, color2)); | |
| 128 } | |
| 129 | |
| 130 static Lisp_Object | |
| 131 build_sysmetrics_cons (int index1, int index2) | |
| 132 { | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
133 return Fcons (index1 < 0 ? Qnil : make_fixnum (GetSystemMetrics (index1)), |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
134 index2 < 0 ? Qnil : make_fixnum (GetSystemMetrics (index2))); |
| 428 | 135 } |
| 136 | |
| 440 | 137 static Lisp_Object |
| 138 build_devicecaps_cons (HDC hdc, int index1, int index2) | |
| 139 { | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
140 return Fcons (index1 < 0 ? Qnil : make_fixnum (GetDeviceCaps (hdc, index1)), |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
141 index2 < 0 ? Qnil : make_fixnum (GetDeviceCaps (hdc, index2))); |
| 440 | 142 } |
| 143 | |
| 428 | 144 |
| 145 /************************************************************************/ | |
| 440 | 146 /* display methods */ |
| 428 | 147 /************************************************************************/ |
| 148 | |
| 149 static void | |
| 2286 | 150 mswindows_init_device (struct device *d, Lisp_Object UNUSED (props)) |
| 428 | 151 { |
| 152 HDC hdc; | |
| 771 | 153 WNDCLASSEXW wc; |
| 428 | 154 |
|
4477
e34711681f30
Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents:
4117
diff
changeset
|
155 call0 (Qmake_device_early_mswindows_entry_point); |
|
e34711681f30
Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents:
4117
diff
changeset
|
156 |
| 428 | 157 DEVICE_CLASS (d) = Qcolor; |
| 158 DEVICE_INFD (d) = DEVICE_OUTFD (d) = -1; | |
| 159 init_baud_rate (d); | |
| 160 init_one_device (d); | |
| 161 | |
| 3092 | 162 #ifdef NEW_GC |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
163 d->device_data = XMSWINDOWS_DEVICE (ALLOC_NORMAL_LISP_OBJECT (mswindows_device)); |
| 3092 | 164 #else /* not NEW_GC */ |
| 428 | 165 d->device_data = xnew_and_zero (struct mswindows_device); |
| 3092 | 166 #endif /* not NEW_GC */ |
| 428 | 167 hdc = CreateCompatibleDC (NULL); |
| 771 | 168 assert (hdc != NULL); |
| 169 DEVICE_MSWINDOWS_HCDC (d) = hdc; | |
| 440 | 170 DEVICE_MSWINDOWS_FONTLIST (d) = mswindows_enumerate_fonts (hdc); |
| 442 | 171 DEVICE_MSWINDOWS_UPDATE_TICK (d) = GetTickCount (); |
| 428 | 172 |
| 173 /* Register the main window class */ | |
| 771 | 174 wc.cbSize = sizeof (wc); |
| 428 | 175 wc.style = CS_OWNDC; /* One DC per window */ |
| 176 wc.lpfnWndProc = (WNDPROC) mswindows_wnd_proc; | |
| 177 wc.cbClsExtra = 0; | |
| 178 wc.cbWndExtra = MSWINDOWS_WINDOW_EXTRA_BYTES; | |
| 179 /* This must match whatever is passed to CreateWIndowEx, NULL is ok | |
| 180 for this. */ | |
| 771 | 181 wc.hInstance = NULL; |
| 182 wc.hIcon = qxeLoadIcon (qxeGetModuleHandle (NULL), XETEXT (XEMACS_CLASS)); | |
| 183 wc.hCursor = qxeLoadCursor (NULL, IDC_ARROW); | |
| 428 | 184 /* Background brush is only used during sizing, when XEmacs cannot |
| 185 take over */ | |
| 771 | 186 wc.hbrBackground = (HBRUSH) (COLOR_APPWORKSPACE + 1); |
| 428 | 187 wc.lpszMenuName = NULL; |
| 188 | |
| 771 | 189 wc.lpszClassName = (XELPTSTR) XETEXT (XEMACS_CLASS); |
| 190 wc.hIconSm = (HICON) qxeLoadImage (qxeGetModuleHandle (NULL), | |
| 191 XETEXT (XEMACS_CLASS), | |
| 192 IMAGE_ICON, 16, 16, 0); | |
| 193 qxeRegisterClassEx (&wc); | |
| 428 | 194 |
| 195 #ifdef HAVE_WIDGETS | |
| 196 xzero (wc); | |
| 197 /* Register the main window class */ | |
| 771 | 198 wc.cbSize = sizeof (wc); |
| 428 | 199 wc.lpfnWndProc = (WNDPROC) mswindows_control_wnd_proc; |
| 771 | 200 wc.lpszClassName = (XELPTSTR) XETEXT (XEMACS_CONTROL_CLASS); |
| 428 | 201 wc.hInstance = NULL; |
| 771 | 202 qxeRegisterClassEx (&wc); |
| 428 | 203 #endif |
| 204 | |
| 440 | 205 #if defined (HAVE_TOOLBARS) || defined (HAVE_WIDGETS) |
| 428 | 206 InitCommonControls (); |
| 207 #endif | |
| 208 } | |
| 209 | |
| 657 | 210 #ifdef HAVE_DRAGNDROP |
| 428 | 211 static void |
| 771 | 212 mswindows_init_dde (void) |
| 428 | 213 { |
| 214 /* Initialize DDE management library and our related globals. We execute a | |
| 771 | 215 * dde Open ("file") by simulating a drop, so this depends on dnd support. */ |
| 442 | 216 |
| 428 | 217 mswindows_dde_mlid = 0; |
| 659 | 218 mswindows_dde_enable = 0; |
| 771 | 219 qxeDdeInitialize (&mswindows_dde_mlid, (PFNCALLBACK)mswindows_dde_callback, |
| 903 | 220 APPCMD_FILTERINITS|CBF_FAIL_SELFCONNECTIONS| |
| 221 CBF_FAIL_POKES|CBF_SKIP_ALLNOTIFICATIONS, | |
| 771 | 222 0); |
| 223 | |
| 224 mswindows_dde_service = | |
| 225 qxeDdeCreateStringHandle (mswindows_dde_mlid, | |
| 226 XETEXT (XEMACS_CLASS), | |
| 227 XEUNICODE_P ? CP_WINUNICODE : CP_WINANSI); | |
| 228 /* The following strings we Unicode-ize ourselves: | |
| 229 -- SZDDESYS_TOPIC is system-provided | |
| 903 | 230 -- MSWINDOWS_DDE_TOPIC_EVAL is defined by us |
| 231 -- MSWINDOWS_DDE_ITEM_RESULT is defined by us | |
| 771 | 232 -- MSWINDOWS_DDE_ITEM_OPEN is used in internal-format comparisons |
| 233 */ | |
| 234 mswindows_dde_topic_system = | |
| 235 qxeDdeCreateStringHandle (mswindows_dde_mlid, | |
| 236 XETEXT (SZDDESYS_TOPIC), | |
| 237 XEUNICODE_P ? CP_WINUNICODE : CP_WINANSI); | |
| 903 | 238 mswindows_dde_topic_eval = |
| 239 qxeDdeCreateStringHandle (mswindows_dde_mlid, | |
| 240 XETEXT (MSWINDOWS_DDE_TOPIC_EVAL), | |
| 241 XEUNICODE_P ? CP_WINUNICODE : CP_WINANSI); | |
| 242 mswindows_dde_item_result = | |
| 243 qxeDdeCreateStringHandle (mswindows_dde_mlid, | |
| 244 XETEXT (MSWINDOWS_DDE_ITEM_RESULT), | |
| 245 XEUNICODE_P ? CP_WINUNICODE : CP_WINANSI); | |
| 771 | 246 mswindows_dde_item_open = |
| 247 qxeDdeCreateStringHandle (mswindows_dde_mlid, | |
| 248 XETEXT (MSWINDOWS_DDE_ITEM_OPEN), | |
| 249 XEUNICODE_P ? CP_WINUNICODE : CP_WINANSI); | |
| 428 | 250 DdeNameService (mswindows_dde_mlid, mswindows_dde_service, 0L, DNS_REGISTER); |
| 657 | 251 } |
| 771 | 252 #endif /* HAVE_DRAGNDROP */ |
| 657 | 253 |
| 254 void | |
| 771 | 255 init_mswindows_dde_very_early (void) |
| 657 | 256 { |
| 771 | 257 #if !defined (NO_CYGWIN_COM_SUPPORT) |
| 258 /* Needed by SHBrowseForFolder, so do it always */ | |
| 259 CoInitialize (NULL); | |
| 260 #endif | |
| 261 | |
| 657 | 262 #ifdef HAVE_DRAGNDROP |
| 263 /* Initializing dde when the device is created is too late - the | |
| 264 client will give up waiting. Instead we initialize here and tell | |
| 265 the client we're too busy until the rest of initialization has | |
| 266 happened. */ | |
| 771 | 267 mswindows_init_dde (); |
| 657 | 268 #endif |
| 269 } | |
| 270 | |
| 271 static void | |
|
4477
e34711681f30
Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents:
4117
diff
changeset
|
272 mswindows_finish_init_device (struct device *d, |
| 2286 | 273 Lisp_Object UNUSED (props)) |
| 657 | 274 { |
| 275 #ifdef HAVE_DRAGNDROP | |
| 276 /* Tell pending clients we are ready. */ | |
| 277 mswindows_dde_enable = 1; | |
| 428 | 278 #endif |
|
4477
e34711681f30
Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents:
4117
diff
changeset
|
279 call1 (Qmake_device_late_mswindows_entry_point, wrap_device(d)); |
| 428 | 280 } |
| 281 | |
| 282 static void | |
| 283 mswindows_delete_device (struct device *d) | |
| 284 { | |
| 285 #ifdef HAVE_DRAGNDROP | |
| 442 | 286 DdeNameService (mswindows_dde_mlid, 0L, 0L, DNS_UNREGISTER); |
| 903 | 287 DdeFreeStringHandle (mswindows_dde_mlid, mswindows_dde_item_result); |
| 442 | 288 DdeFreeStringHandle (mswindows_dde_mlid, mswindows_dde_item_open); |
| 289 DdeFreeStringHandle (mswindows_dde_mlid, mswindows_dde_topic_system); | |
| 903 | 290 DdeFreeStringHandle (mswindows_dde_mlid, mswindows_dde_topic_eval); |
| 442 | 291 DdeFreeStringHandle (mswindows_dde_mlid, mswindows_dde_service); |
| 428 | 292 DdeUninitialize (mswindows_dde_mlid); |
| 442 | 293 |
| 771 | 294 # if !defined (NO_CYGWIN_COM_SUPPORT) |
| 442 | 295 CoUninitialize (); |
| 296 # endif | |
| 428 | 297 #endif |
| 298 | |
| 771 | 299 DeleteDC (DEVICE_MSWINDOWS_HCDC (d)); |
| 4117 | 300 #ifndef NEW_GC |
|
4976
16112448d484
Rename xfree(FOO, TYPE) -> xfree(FOO)
Ben Wing <ben@xemacs.org>
parents:
4962
diff
changeset
|
301 xfree (d->device_data); |
| 3092 | 302 #endif /* not NEW_GC */ |
| 442 | 303 } |
| 304 | |
| 305 void | |
| 306 mswindows_get_workspace_coords (RECT *rc) | |
| 307 { | |
| 771 | 308 qxeSystemParametersInfo (SPI_GETWORKAREA, 0, rc, 0); |
| 428 | 309 } |
| 310 | |
| 440 | 311 static void |
| 312 mswindows_mark_device (struct device *d) | |
| 313 { | |
| 314 mark_object (DEVICE_MSWINDOWS_FONTLIST (d)); | |
| 315 } | |
| 316 | |
| 428 | 317 static Lisp_Object |
| 318 mswindows_device_system_metrics (struct device *d, | |
| 319 enum device_metrics m) | |
| 320 { | |
| 442 | 321 const HDC hdc = DEVICE_MSWINDOWS_HCDC(d); |
| 322 | |
| 428 | 323 switch (m) |
| 324 { | |
| 325 case DM_size_device: | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
326 return Fcons (make_fixnum (GetDeviceCaps (hdc, HORZRES)), |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
327 make_fixnum (GetDeviceCaps (hdc, VERTRES))); |
| 428 | 328 break; |
| 440 | 329 case DM_device_dpi: |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
330 return Fcons (make_fixnum (GetDeviceCaps (hdc, LOGPIXELSX)), |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
331 make_fixnum (GetDeviceCaps (hdc, LOGPIXELSY))); |
| 440 | 332 break; |
| 428 | 333 case DM_size_device_mm: |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
334 return Fcons (make_fixnum (GetDeviceCaps (hdc, HORZSIZE)), |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
335 make_fixnum (GetDeviceCaps (hdc, VERTSIZE))); |
| 428 | 336 break; |
| 337 case DM_num_bit_planes: | |
| 338 /* this is what X means by bitplanes therefore we ought to be | |
| 339 consistent. num planes is always 1 under mswindows and | |
| 340 therefore useless */ | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
341 return make_fixnum (GetDeviceCaps (hdc, BITSPIXEL)); |
| 428 | 342 break; |
| 343 case DM_num_color_cells: | |
| 442 | 344 /* #### SIZEPALETTE only valid if RC_PALETTE bit set in RASTERCAPS, |
| 345 what should we return for a non-palette-based device? */ | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
346 return make_fixnum (GetDeviceCaps (hdc, SIZEPALETTE)); |
| 428 | 347 break; |
| 348 | |
| 349 /*** Colors ***/ | |
| 442 | 350 #define FROB(met, fore, back) \ |
| 428 | 351 case DM_##met: \ |
| 442 | 352 return build_syscolor_cons (fore, back); |
| 353 | |
| 354 FROB (color_default, COLOR_WINDOWTEXT, COLOR_WINDOW); | |
| 355 FROB (color_select, COLOR_HIGHLIGHTTEXT, COLOR_HIGHLIGHT); | |
| 356 FROB (color_balloon, COLOR_INFOTEXT, COLOR_INFOBK); | |
| 357 FROB (color_3d_face, COLOR_BTNTEXT, COLOR_BTNFACE); | |
| 358 FROB (color_3d_light, COLOR_3DHILIGHT, COLOR_3DLIGHT); | |
| 359 FROB (color_3d_dark, COLOR_3DDKSHADOW, COLOR_3DSHADOW); | |
| 360 FROB (color_menu, COLOR_MENUTEXT, COLOR_MENU); | |
| 361 FROB (color_menu_highlight, COLOR_HIGHLIGHTTEXT, COLOR_HIGHLIGHT); | |
| 362 FROB (color_menu_button, COLOR_MENUTEXT, COLOR_MENU); | |
| 363 FROB (color_menu_disabled, COLOR_GRAYTEXT, COLOR_MENU); | |
| 364 FROB (color_toolbar, COLOR_BTNTEXT, COLOR_BTNFACE); | |
| 365 FROB (color_scrollbar, COLOR_CAPTIONTEXT, COLOR_SCROLLBAR); | |
| 428 | 366 FROB (color_desktop, -1, COLOR_DESKTOP); |
| 367 FROB (color_workspace, -1, COLOR_APPWORKSPACE); | |
| 368 #undef FROB | |
| 369 | |
| 370 /*** Sizes ***/ | |
| 371 #define FROB(met, index1, index2) \ | |
| 372 case DM_##met: \ | |
| 373 return build_sysmetrics_cons (index1, index2); | |
| 374 | |
| 375 FROB (size_cursor, SM_CXCURSOR, SM_CYCURSOR); | |
| 376 FROB (size_scrollbar, SM_CXVSCROLL, SM_CYHSCROLL); | |
| 377 FROB (size_menu, -1, SM_CYMENU); | |
| 378 FROB (size_icon, SM_CXICON, SM_CYICON); | |
| 379 FROB (size_icon_small, SM_CXSMICON, SM_CYSMICON); | |
| 380 #undef FROB | |
| 381 | |
| 382 case DM_size_workspace: | |
| 383 { | |
| 384 RECT rc; | |
| 442 | 385 mswindows_get_workspace_coords (&rc); |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
386 return Fcons (make_fixnum (rc.right - rc.left), |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
387 make_fixnum (rc.bottom - rc.top)); |
| 428 | 388 } |
| 442 | 389 |
| 390 case DM_offset_workspace: | |
| 391 { | |
| 392 RECT rc; | |
| 393 mswindows_get_workspace_coords (&rc); | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
394 return Fcons (make_fixnum (rc.left), make_fixnum (rc.top)); |
| 442 | 395 } |
| 396 | |
| 428 | 397 /* |
| 398 case DM_size_toolbar: | |
| 399 case DM_size_toolbar_button: | |
| 400 case DM_size_toolbar_border: | |
| 401 */ | |
| 402 | |
| 403 /*** Features ***/ | |
| 404 #define FROB(met, index) \ | |
| 405 case DM_##met: \ | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
406 return make_fixnum (GetSystemMetrics (index)); |
| 428 | 407 |
| 408 FROB (mouse_buttons, SM_CMOUSEBUTTONS); | |
| 409 FROB (swap_buttons, SM_SWAPBUTTON); | |
| 410 FROB (show_sounds, SM_SHOWSOUNDS); | |
| 411 FROB (slow_device, SM_SLOWMACHINE); | |
| 412 FROB (security, SM_SECURE); | |
| 413 #undef FROB | |
| 414 | |
| 415 } | |
| 416 | |
| 417 /* Do not know such property */ | |
| 418 return Qunbound; | |
| 419 } | |
| 420 | |
| 421 | |
| 422 /************************************************************************/ | |
| 442 | 423 /* printer helpers */ |
| 440 | 424 /************************************************************************/ |
| 425 | |
| 426 static void | |
| 427 signal_open_printer_error (struct device *d) | |
| 428 { | |
| 442 | 429 invalid_operation ("Failed to open printer", DEVICE_CONNECTION (d)); |
| 430 } | |
| 431 | |
| 432 | |
| 433 /* Helper function */ | |
| 434 static int | |
| 771 | 435 msprinter_init_device_internal (struct device *d, Lisp_Object printer_name) |
| 442 | 436 { |
| 771 | 437 Extbyte *printer_ext; |
| 438 HDC hdc; | |
| 442 | 439 |
| 771 | 440 DEVICE_MSPRINTER_NAME (d) = printer_name; |
| 441 | |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4962
diff
changeset
|
442 printer_ext = LISP_STRING_TO_TSTR (printer_name); |
| 771 | 443 |
| 444 if (!qxeOpenPrinter (printer_ext, &DEVICE_MSPRINTER_HPRINTER (d), NULL)) | |
| 442 | 445 { |
| 446 DEVICE_MSPRINTER_HPRINTER (d) = NULL; | |
| 447 return 0; | |
| 448 } | |
| 449 | |
| 771 | 450 DEVICE_MSPRINTER_HDC (d) = qxeCreateDC (XETEXT ("WINSPOOL"), printer_ext, |
| 451 NULL, NULL); | |
| 442 | 452 if (DEVICE_MSPRINTER_HDC (d) == NULL) |
| 453 return 0; | |
| 454 | |
| 771 | 455 hdc = CreateCompatibleDC (DEVICE_MSPRINTER_HDC (d)); |
| 456 DEVICE_MSPRINTER_HCDC (d) = hdc; | |
| 457 DEVICE_MSPRINTER_FONTLIST (d) = mswindows_enumerate_fonts (hdc); | |
| 442 | 458 |
| 459 DEVICE_CLASS (d) = (GetDeviceCaps (DEVICE_MSPRINTER_HDC (d), BITSPIXEL) | |
| 460 * GetDeviceCaps (DEVICE_MSPRINTER_HDC (d), PLANES) | |
| 461 > 1) ? Qcolor : Qmono; | |
| 462 return 1; | |
| 440 | 463 } |
| 464 | |
| 465 static void | |
| 442 | 466 msprinter_delete_device_internal (struct device *d) |
| 467 { | |
| 468 if (DEVICE_MSPRINTER_HPRINTER (d)) | |
| 469 ClosePrinter (DEVICE_MSPRINTER_HPRINTER (d)); | |
| 470 if (DEVICE_MSPRINTER_HDC (d)) | |
| 471 DeleteDC (DEVICE_MSPRINTER_HDC (d)); | |
| 472 if (DEVICE_MSPRINTER_HCDC (d)) | |
| 473 DeleteDC (DEVICE_MSPRINTER_HCDC (d)); | |
| 474 | |
| 475 DEVICE_MSPRINTER_FONTLIST (d) = Qnil; | |
| 476 } | |
| 477 | |
| 478 static int | |
| 771 | 479 msprinter_reinit_device (struct device *d, Lisp_Object devname) |
| 442 | 480 { |
| 481 msprinter_delete_device_internal (d); | |
| 482 return msprinter_init_device_internal (d, devname); | |
| 483 } | |
| 484 | |
| 485 Lisp_Object | |
| 486 msprinter_default_printer (void) | |
| 487 { | |
| 488 Extbyte name[666]; | |
| 867 | 489 Ibyte *nameint; |
| 442 | 490 |
| 771 | 491 if (qxeGetProfileString (XETEXT ("windows"), XETEXT ("device"), NULL, name, |
| 492 sizeof (name) / XETCHAR_SIZE) <= 0) | |
| 442 | 493 return Qnil; |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4962
diff
changeset
|
494 nameint = TSTR_TO_ITEXT (name); |
| 442 | 495 |
| 771 | 496 if (nameint[0] == '\0') |
| 442 | 497 return Qnil; |
| 498 | |
| 771 | 499 /* this is destructive, but that's ok because the string is either in |
| 851 | 500 name[] or ALLOCA ()ed */ |
| 771 | 501 qxestrtok (nameint, ","); |
| 502 | |
|
4953
304aebb79cd3
function renamings to track names of char typedefs
Ben Wing <ben@xemacs.org>
parents:
4952
diff
changeset
|
503 return build_istring (nameint); |
| 442 | 504 } |
| 505 | |
| 506 | |
| 507 /************************************************************************/ | |
| 508 /* printer methods */ | |
| 509 /************************************************************************/ | |
| 510 | |
| 511 static void | |
| 2286 | 512 msprinter_init_device (struct device *d, Lisp_Object UNUSED (props)) |
| 440 | 513 { |
| 771 | 514 DEVMODEW *pdm; |
| 647 | 515 LONG dm_size; |
| 771 | 516 Extbyte *printer_name; |
| 440 | 517 |
| 3092 | 518 #ifdef NEW_GC |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
519 d->device_data = XMSPRINTER_DEVICE (ALLOC_NORMAL_LISP_OBJECT (msprinter_device)); |
| 3092 | 520 #else /* not NEW_GC */ |
| 440 | 521 d->device_data = xnew_and_zero (struct msprinter_device); |
| 3092 | 522 #endif /* not NEW_GC */ |
| 440 | 523 |
| 442 | 524 DEVICE_INFD (d) = DEVICE_OUTFD (d) = -1; |
| 771 | 525 DEVICE_MSPRINTER_DEVMODE (d) = Qnil; |
| 526 DEVICE_MSPRINTER_NAME (d) = Qnil; | |
| 440 | 527 |
| 2367 | 528 #if 0 /* #### deleted in new ikeyama ws */ |
| 771 | 529 /* We do not use printer font list as we do with the display |
| 530 device. Rather, we allow GDI to pick the closest match to the | |
| 440 | 531 display font. */ |
| 532 DEVICE_MSPRINTER_FONTLIST (d) = Qnil; | |
| 771 | 533 #endif /* 0 */ |
| 440 | 534 |
| 442 | 535 CHECK_STRING (DEVICE_CONNECTION (d)); |
| 536 | |
| 771 | 537 if (!msprinter_init_device_internal (d, DEVICE_CONNECTION (d))) |
| 442 | 538 signal_open_printer_error (d); |
| 539 | |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4962
diff
changeset
|
540 printer_name = LISP_STRING_TO_TSTR (DEVICE_CONNECTION (d)); |
| 442 | 541 /* Determine DEVMODE size and store the default DEVMODE */ |
| 771 | 542 dm_size = qxeDocumentProperties (NULL, DEVICE_MSPRINTER_HPRINTER (d), |
| 543 printer_name, NULL, NULL, 0); | |
| 442 | 544 if (dm_size <= 0) |
| 545 signal_open_printer_error (d); | |
| 546 | |
| 771 | 547 pdm = (DEVMODEW *) xmalloc (dm_size); |
| 548 if (qxeDocumentProperties (NULL, DEVICE_MSPRINTER_HPRINTER(d), | |
| 549 printer_name, pdm, | |
| 550 NULL, DM_OUT_BUFFER) < 0) | |
| 552 | 551 signal_open_printer_error (d); |
| 442 | 552 |
| 553 assert (DEVMODE_SIZE (pdm) <= dm_size); | |
| 554 | |
| 771 | 555 DEVICE_MSPRINTER_DEVMODE (d) = |
| 556 allocate_devmode (pdm, 0, DEVICE_CONNECTION (d), d); | |
| 442 | 557 } |
| 558 | |
| 559 static void | |
| 560 msprinter_delete_device (struct device *d) | |
| 561 { | |
| 562 if (d->device_data) | |
| 563 { | |
| 564 msprinter_delete_device_internal (d); | |
| 565 | |
| 566 /* Disassociate the selected devmode with the device */ | |
| 567 if (!NILP (DEVICE_MSPRINTER_DEVMODE (d))) | |
| 568 { | |
| 569 XDEVMODE (DEVICE_MSPRINTER_DEVMODE (d))->device = Qnil; | |
| 570 DEVICE_MSPRINTER_DEVMODE (d) = Qnil; | |
| 571 } | |
| 572 | |
| 4117 | 573 #ifndef NEW_GC |
|
4976
16112448d484
Rename xfree(FOO, TYPE) -> xfree(FOO)
Ben Wing <ben@xemacs.org>
parents:
4962
diff
changeset
|
574 xfree (d->device_data); |
|
5169
6c6d78781d59
cleanup of code related to xfree(), better KKCC backtrace capabilities, document XD_INLINE_LISP_OBJECT_BLOCK_PTR, fix some memory leaks, other code cleanup
Ben Wing <ben@xemacs.org>
parents:
5146
diff
changeset
|
575 d->device_data = 0; |
| 3092 | 576 #endif /* not NEW_GC */ |
| 442 | 577 } |
| 440 | 578 } |
| 579 | |
| 580 static Lisp_Object | |
| 581 msprinter_device_system_metrics (struct device *d, | |
| 582 enum device_metrics m) | |
| 583 { | |
| 584 switch (m) | |
| 585 { | |
| 586 /* Device sizes - pixel and mm */ | |
| 587 #define FROB(met, index1, index2) \ | |
| 588 case DM_##met: \ | |
| 589 return build_devicecaps_cons \ | |
| 771 | 590 (DEVICE_MSPRINTER_HDC (d), index1, index2); |
| 440 | 591 |
| 592 FROB (size_device, PHYSICALWIDTH, PHYSICALHEIGHT); | |
| 593 FROB (size_device_mm, HORZSIZE, VERTSIZE); | |
| 594 FROB (size_workspace, HORZRES, VERTRES); | |
| 595 FROB (offset_workspace, PHYSICALOFFSETX, PHYSICALOFFSETY); | |
| 596 FROB (device_dpi, LOGPIXELSX, LOGPIXELSY); | |
| 597 #undef FROB | |
| 598 | |
| 599 case DM_num_bit_planes: | |
| 600 /* this is what X means by bitplanes therefore we ought to be | |
| 601 consistent. num planes is always 1 under mswindows and | |
| 602 therefore useless */ | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
603 return make_fixnum (GetDeviceCaps (DEVICE_MSPRINTER_HDC (d), BITSPIXEL)); |
| 440 | 604 |
| 442 | 605 case DM_num_color_cells: /* Printers are non-palette devices */ |
| 440 | 606 case DM_slow_device: /* Animation would be a really bad idea */ |
| 607 case DM_security: /* Not provided by windows */ | |
| 608 return Qzero; | |
| 609 } | |
| 610 | |
| 611 /* Do not know such property */ | |
| 612 return Qunbound; | |
| 613 } | |
| 614 | |
| 615 static void | |
| 616 msprinter_mark_device (struct device *d) | |
| 617 { | |
| 618 mark_object (DEVICE_MSPRINTER_FONTLIST (d)); | |
| 442 | 619 mark_object (DEVICE_MSPRINTER_DEVMODE (d)); |
| 771 | 620 mark_object (DEVICE_MSPRINTER_NAME (d)); |
| 440 | 621 } |
| 622 | |
| 623 | |
| 624 /************************************************************************/ | |
| 442 | 625 /* printer Lisp subroutines */ |
| 440 | 626 /************************************************************************/ |
| 627 | |
| 442 | 628 static void |
| 629 global_free_2_maybe (HGLOBAL hg1, HGLOBAL hg2) | |
| 630 { | |
| 631 if (hg1 != NULL) | |
| 632 GlobalFree (hg1); | |
| 633 if (hg2 != NULL) | |
| 634 GlobalFree (hg2); | |
| 635 } | |
| 636 | |
| 637 static HGLOBAL | |
| 638 devmode_to_hglobal (Lisp_Devmode *ldm) | |
| 639 { | |
| 640 HGLOBAL hg = GlobalAlloc (GHND, XDEVMODE_SIZE (ldm)); | |
| 641 memcpy (GlobalLock (hg), ldm->devmode, XDEVMODE_SIZE (ldm)); | |
| 642 GlobalUnlock (hg); | |
| 643 return hg; | |
| 644 } | |
| 645 | |
| 646 /* Returns 0 if the printer has been deleted due to a fatal I/O error, | |
| 647 1 otherwise. */ | |
| 648 static int | |
| 771 | 649 sync_printer_with_devmode (struct device* d, DEVMODEW* devmode_in, |
| 650 DEVMODEW* devmode_out, Lisp_Object devname) | |
| 440 | 651 { |
| 442 | 652 /* Change connection if the device changed */ |
| 771 | 653 if (!NILP (devname) |
|
4906
6ef8256a020a
implement equalp in C, fix case-folding, add equal() method for keymaps
Ben Wing <ben@xemacs.org>
parents:
4846
diff
changeset
|
654 && lisp_strcasecmp_i18n (devname, DEVICE_MSPRINTER_NAME (d)) != 0) |
| 442 | 655 { |
| 771 | 656 Lisp_Object new_connection = devname; |
| 442 | 657 |
| 658 DEVICE_CONNECTION (d) = Qnil; | |
| 659 if (!NILP (Ffind_device (new_connection, Qmsprinter))) | |
| 660 { | |
| 661 /* We are in trouble - second msprinter for the same device. | |
| 662 Nothing wrong on the Windows side, just forge a unique | |
| 663 connection name. Use the memory address of d as a unique | |
| 664 suffix. */ | |
| 867 | 665 Ibyte new_connext[20]; |
| 771 | 666 |
|
5146
88bd4f3ef8e4
make lrecord UID's have a separate UID space for each object, resurrect debug SOE code in extents.c
Ben Wing <ben@xemacs.org>
parents:
5142
diff
changeset
|
667 qxesprintf (new_connext, ":%X", LISP_OBJECT_UID (wrap_device (d))); |
|
4953
304aebb79cd3
function renamings to track names of char typedefs
Ben Wing <ben@xemacs.org>
parents:
4952
diff
changeset
|
668 new_connection = concat2 (devname, build_istring (new_connext)); |
| 442 | 669 } |
| 670 DEVICE_CONNECTION (d) = new_connection; | |
| 671 | |
| 672 /* Reinitialize printer. The device can pop off in process */ | |
| 673 if (!msprinter_reinit_device (d, devname)) | |
| 674 { | |
| 675 /* Kaboom! */ | |
| 676 delete_device_internal (d, 1, 0, 1); | |
| 677 return 0; | |
| 678 } | |
| 679 } | |
| 771 | 680 { |
| 681 Extbyte *nameext; | |
| 442 | 682 |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4962
diff
changeset
|
683 nameext = LISP_STRING_TO_TSTR (DEVICE_MSPRINTER_NAME (d)); |
| 771 | 684 |
| 685 /* Apply the new devmode to the printer */ | |
| 686 qxeDocumentProperties (NULL, DEVICE_MSPRINTER_HPRINTER (d), | |
| 687 nameext, devmode_out, devmode_in, | |
| 688 DM_IN_BUFFER | DM_OUT_BUFFER); | |
| 440 | 689 |
| 771 | 690 /* #### ResetDC fails sometimes, Bill only knows why. |
| 691 The solution below looks more like a workaround to me, | |
| 692 although it might be fine. --kkm */ | |
| 693 if (qxeResetDC (DEVICE_MSPRINTER_HDC (d), devmode_out) == NULL) | |
| 694 { | |
| 695 DeleteDC (DEVICE_MSPRINTER_HDC (d)); | |
| 696 DEVICE_MSPRINTER_HDC (d) = | |
| 697 qxeCreateDC (XETEXT ("WINSPOOL"), nameext, NULL, | |
| 698 devmode_out); | |
| 699 } | |
| 700 } | |
| 701 | |
| 442 | 702 return 1; |
| 703 } | |
| 704 | |
| 705 static void | |
| 706 handle_devmode_changes (Lisp_Devmode *ldm, HGLOBAL hDevNames, HGLOBAL hDevMode) | |
| 707 { | |
| 771 | 708 DEVNAMES *devnames = (DEVNAMES *) GlobalLock (hDevNames); |
| 709 Extbyte *new_name = | |
| 710 devnames ? | |
| 711 (Extbyte *) devnames + XETCHAR_SIZE * devnames->wDeviceOffset : NULL; | |
| 712 DEVMODEW *devmode = (DEVMODEW *) GlobalLock (hDevMode); | |
| 442 | 713 |
| 714 /* Size and name may have changed */ | |
| 771 | 715 ldm->devmode = (DEVMODEW *) xrealloc (ldm->devmode, DEVMODE_SIZE (devmode)); |
| 442 | 716 if (new_name) |
| 771 | 717 ldm->printer_name = build_tstr_string (new_name); |
| 440 | 718 |
| 442 | 719 if (!NILP (ldm->device)) |
| 720 { | |
| 721 /* Apply the new devmode to the printer and get a compete one back */ | |
| 722 struct device *d = XDEVICE (ldm->device); | |
| 771 | 723 if (!sync_printer_with_devmode (d, devmode, ldm->devmode, |
| 724 new_name ? ldm->printer_name : Qnil)) | |
| 442 | 725 { |
| 726 global_free_2_maybe (hDevNames, hDevMode); | |
| 771 | 727 signal_error |
| 728 (Qio_error, | |
| 729 "Printer device initialization I/O error, device deleted", | |
| 730 ldm->device); | |
| 442 | 731 } |
| 732 } | |
| 733 else | |
| 734 { | |
| 735 /* Just copy the devmode structure */ | |
| 736 memcpy (ldm->devmode, devmode, DEVMODE_SIZE (devmode)); | |
| 737 } | |
| 738 } | |
| 440 | 739 |
| 442 | 740 static void |
| 741 ensure_not_printing (struct device *d) | |
| 742 { | |
| 743 if (!NILP (DEVICE_FRAME_LIST (d))) | |
| 744 { | |
| 793 | 745 Lisp_Object device = wrap_device (d); |
| 746 | |
| 442 | 747 invalid_operation ("Cannot change settings while print job is active", |
| 748 device); | |
| 749 } | |
| 750 } | |
| 751 | |
| 752 static Lisp_Devmode * | |
| 753 decode_devmode (Lisp_Object dev) | |
| 754 { | |
| 755 if (DEVMODEP (dev)) | |
| 756 return XDEVMODE (dev); | |
| 757 else | |
| 758 { | |
| 759 ensure_not_printing (XDEVICE (dev)); | |
| 760 return XDEVMODE (DEVICE_MSPRINTER_DEVMODE (XDEVICE (dev))); | |
| 761 } | |
| 440 | 762 } |
| 763 | |
| 764 /* | |
| 442 | 765 * DEV can be either a printer or devmode |
| 440 | 766 */ |
| 442 | 767 static Lisp_Object |
| 510 | 768 print_dialog_worker (Lisp_Object dev, DWORD flags) |
| 442 | 769 { |
| 770 Lisp_Devmode *ldm = decode_devmode (dev); | |
| 771 | 771 PRINTDLGW pd; |
| 442 | 772 |
| 773 memset (&pd, 0, sizeof (pd)); | |
| 774 pd.lStructSize = sizeof (pd); | |
| 775 pd.hwndOwner = mswindows_get_selected_frame_hwnd (); | |
| 776 pd.hDevMode = devmode_to_hglobal (ldm); | |
| 510 | 777 pd.Flags = flags | PD_USEDEVMODECOPIESANDCOLLATE; |
| 442 | 778 pd.nMinPage = 0; |
| 779 pd.nMaxPage = 0xFFFF; | |
| 780 | |
| 771 | 781 if (!qxePrintDlg (&pd)) |
| 442 | 782 { |
| 783 global_free_2_maybe (pd.hDevNames, pd.hDevMode); | |
| 784 return Qnil; | |
| 785 } | |
| 786 | |
| 787 handle_devmode_changes (ldm, pd.hDevNames, pd.hDevMode); | |
| 788 | |
| 789 /* Finally, build the resulting plist */ | |
| 790 { | |
| 791 Lisp_Object result = Qnil; | |
| 792 struct gcpro gcpro1; | |
| 793 GCPRO1 (result); | |
| 794 | |
| 795 /* Do consing in reverse order. | |
| 796 Number of copies */ | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
797 result = Fcons (Qcopies, Fcons (make_fixnum (pd.nCopies), result)); |
| 442 | 798 |
| 799 /* Page range */ | |
| 510 | 800 if (pd.Flags & PD_PAGENUMS) |
| 442 | 801 { |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
802 result = Fcons (Qto_page, Fcons (make_fixnum (pd.nToPage), result)); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
803 result = Fcons (Qfrom_page, Fcons (make_fixnum (pd.nFromPage), result)); |
| 510 | 804 result = Fcons (Qselected_page_button, Fcons (Qpages, result)); |
| 442 | 805 } |
| 510 | 806 else if (pd.Flags & PD_SELECTION) |
| 807 result = Fcons (Qselected_page_button, Fcons (Qselection, result)); | |
| 808 else | |
| 809 result = Fcons (Qselected_page_button, Fcons (Qall, result)); | |
| 442 | 810 |
| 811 /* Device name */ | |
| 771 | 812 result = Fcons (Qname, Fcons (ldm->printer_name, result)); |
| 442 | 813 UNGCPRO; |
| 814 | |
| 815 global_free_2_maybe (pd.hDevNames, pd.hDevMode); | |
| 816 return result; | |
| 817 } | |
| 818 } | |
| 819 | |
| 820 Lisp_Object | |
| 2286 | 821 mswindows_handle_print_dialog_box (struct frame *UNUSED (f), Lisp_Object keys) |
| 442 | 822 { |
| 823 Lisp_Object device = Qunbound, settings = Qunbound; | |
| 510 | 824 DWORD flags = PD_NOSELECTION; |
| 442 | 825 |
| 826 { | |
| 827 EXTERNAL_PROPERTY_LIST_LOOP_3 (key, value, keys) | |
| 828 { | |
| 829 if (EQ (key, Q_device)) | |
| 830 { | |
| 831 device = wrap_device (decode_device (value)); | |
| 832 CHECK_MSPRINTER_DEVICE (device); | |
| 833 } | |
| 834 else if (EQ (key, Q_printer_settings)) | |
| 835 { | |
| 836 CHECK_DEVMODE (value); | |
| 837 settings = value; | |
| 838 } | |
| 510 | 839 else if (EQ (key, Q_allow_pages)) |
| 840 { | |
| 841 if (NILP (value)) | |
| 842 flags |= PD_NOPAGENUMS; | |
| 843 } | |
| 844 else if (EQ (key, Q_allow_selection)) | |
| 442 | 845 { |
| 510 | 846 if (!NILP (value)) |
| 847 flags &= ~PD_NOSELECTION; | |
| 442 | 848 } |
| 510 | 849 else if (EQ (key, Q_selected_page_button)) |
| 442 | 850 { |
| 510 | 851 if (EQ (value, Qselection)) |
| 852 flags |= PD_SELECTION; | |
| 853 else if (EQ (value, Qpages)) | |
| 854 flags |= PD_PAGENUMS; | |
| 855 else if (!EQ (value, Qall)) | |
| 563 | 856 invalid_constant ("for :selected-page-button", value); |
| 442 | 857 } |
| 858 else | |
| 563 | 859 invalid_constant ("Unrecognized print-dialog keyword", key); |
| 442 | 860 } |
| 861 } | |
| 862 | |
| 863 if ((UNBOUNDP (device) && UNBOUNDP (settings)) || | |
| 864 (!UNBOUNDP (device) && !UNBOUNDP (settings))) | |
| 563 | 865 sferror ("Exactly one of :device and :printer-settings must be given", |
| 442 | 866 keys); |
| 867 | |
| 510 | 868 return print_dialog_worker (!UNBOUNDP (device) ? device : settings, flags); |
| 442 | 869 } |
| 870 | |
| 506 | 871 int |
| 872 mswindows_get_default_margin (Lisp_Object prop) | |
| 873 { | |
| 874 if (EQ (prop, Qleft_margin)) return 1440; | |
| 875 if (EQ (prop, Qright_margin)) return 1440; | |
| 876 if (EQ (prop, Qtop_margin)) return 720; | |
| 877 if (EQ (prop, Qbottom_margin)) return 720; | |
| 2500 | 878 ABORT (); |
| 506 | 879 return 0; |
| 880 } | |
| 881 | |
| 442 | 882 static int |
| 798 | 883 plist_get_margin (Lisp_Object plist, Lisp_Object prop, int mm_p) |
| 442 | 884 { |
| 506 | 885 Lisp_Object val = |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
886 Fplist_get (plist, prop, make_fixnum (mswindows_get_default_margin (prop))); |
|
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
887 if (!FIXNUMP (val)) |
| 442 | 888 invalid_argument ("Margin value must be an integer", val); |
| 889 | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
890 return MulDiv (XFIXNUM (val), mm_p ? 254 : 100, 144); |
| 442 | 891 } |
| 892 | |
| 893 static Lisp_Object | |
| 894 plist_set_margin (Lisp_Object plist, Lisp_Object prop, int margin, int mm_p) | |
| 895 { | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
896 Lisp_Object val = make_fixnum (MulDiv (margin, 144, mm_p ? 254 : 100)); |
| 442 | 897 return Fcons (prop, Fcons (val, plist)); |
| 898 } | |
| 899 | |
| 900 Lisp_Object | |
| 2286 | 901 mswindows_handle_page_setup_dialog_box (struct frame *UNUSED (f), |
| 902 Lisp_Object keys) | |
| 442 | 903 { |
| 904 Lisp_Object device = Qunbound, settings = Qunbound; | |
| 905 Lisp_Object plist = Qnil; | |
| 906 | |
| 907 { | |
| 908 EXTERNAL_PROPERTY_LIST_LOOP_3 (key, value, keys) | |
| 909 { | |
| 910 if (EQ (key, Q_device)) | |
| 911 { | |
| 912 device = wrap_device (decode_device (value)); | |
| 913 CHECK_MSPRINTER_DEVICE (device); | |
| 914 } | |
| 915 else if (EQ (key, Q_printer_settings)) | |
| 916 { | |
| 917 CHECK_DEVMODE (value); | |
| 918 settings = value; | |
| 919 } | |
| 920 else if (EQ (key, Q_properties)) | |
| 921 { | |
| 922 CHECK_LIST (value); | |
| 923 plist = value; | |
| 924 } | |
| 925 else | |
| 563 | 926 invalid_constant ("Unrecognized page-setup dialog keyword", key); |
| 442 | 927 } |
| 928 } | |
| 929 | |
| 930 if ((UNBOUNDP (device) && UNBOUNDP (settings)) || | |
| 931 (!UNBOUNDP (device) && !UNBOUNDP (settings))) | |
| 563 | 932 sferror ("Exactly one of :device and :printer-settings must be given", |
| 800 | 933 keys); |
| 442 | 934 |
| 935 if (UNBOUNDP (device)) | |
| 936 device = settings; | |
| 937 | |
| 938 { | |
| 939 Lisp_Devmode *ldm = decode_devmode (device); | |
| 771 | 940 PAGESETUPDLGW pd; |
| 853 | 941 Extbyte measure[2 * MAX_XETCHAR_SIZE]; |
| 850 | 942 int data; |
| 798 | 943 |
| 850 | 944 qxeGetLocaleInfo (LOCALE_USER_DEFAULT, LOCALE_IMEASURE, |
| 853 | 945 measure, sizeof (measure) / XETCHAR_SIZE); |
| 2421 | 946 data = qxetcscmp (measure, XETEXT ("0")); |
| 442 | 947 |
| 948 memset (&pd, 0, sizeof (pd)); | |
| 949 pd.lStructSize = sizeof (pd); | |
| 950 pd.hwndOwner = mswindows_get_selected_frame_hwnd (); | |
| 951 pd.Flags = PSD_MARGINS; | |
| 798 | 952 pd.rtMargin.left = plist_get_margin (plist, Qleft_margin, !data); |
| 953 pd.rtMargin.top = plist_get_margin (plist, Qtop_margin, !data); | |
| 954 pd.rtMargin.right = plist_get_margin (plist, Qright_margin, !data); | |
| 955 pd.rtMargin.bottom = plist_get_margin (plist, Qbottom_margin, !data); | |
| 442 | 956 pd.hDevMode = devmode_to_hglobal (ldm); |
| 957 | |
| 771 | 958 if (!qxePageSetupDlg (&pd)) |
| 442 | 959 { |
| 960 global_free_2_maybe (pd.hDevNames, pd.hDevMode); | |
| 961 return Qnil; | |
| 962 } | |
| 963 | |
| 964 if (pd.hDevMode) | |
| 965 handle_devmode_changes (ldm, pd.hDevNames, pd.hDevMode); | |
| 966 | |
| 967 /* Finally, build the resulting plist */ | |
| 968 { | |
| 969 Lisp_Object result = Qnil; | |
| 970 int mm_p = pd.Flags & PSD_INHUNDREDTHSOFMILLIMETERS; | |
| 971 result = plist_set_margin (result, Qbottom_margin, pd.rtMargin.bottom, | |
| 972 mm_p); | |
| 973 result = plist_set_margin (result, Qright_margin, pd.rtMargin.right, | |
| 974 mm_p); | |
| 975 result = plist_set_margin (result, Qtop_margin, pd.rtMargin.top, mm_p); | |
| 976 result = plist_set_margin (result, Qleft_margin, pd.rtMargin.left, mm_p); | |
| 977 return result; | |
| 978 } | |
| 979 } | |
| 980 } | |
| 981 | |
| 982 DEFUN ("msprinter-get-settings", Fmsprinter_get_settings, 1, 1, 0, /* | |
| 983 Return the settings object currently used by DEVICE. | |
| 984 The object returned is not a copy, but rather a pointer to the | |
| 985 original one. Use `msprinter-settings-copy' to create a copy of it. | |
| 986 */ | |
| 987 (device)) | |
| 988 { | |
| 989 struct device *d = decode_device (device); | |
| 793 | 990 device = wrap_device (d); |
| 442 | 991 CHECK_MSPRINTER_DEVICE (device); |
| 992 return DEVICE_MSPRINTER_DEVMODE (d); | |
| 993 } | |
| 994 | |
| 995 DEFUN ("msprinter-select-settings", Fmsprinter_select_settings, 2, 2, 0, /* | |
| 996 Select SETTINGS object into a DEVICE. | |
| 997 The settings from the settings object are immediately applied to the | |
| 998 printer, possibly changing even the target printer itself, and all | |
| 999 future changes are applied synchronously to the printer device and the | |
| 1000 selected printer object, until a different settings object is selected | |
| 1001 into the same printer. | |
| 1002 | |
| 1003 A settings object can be selected to no more than one printer at a time. | |
| 1004 | |
| 1005 If the supplied settings object is not specialized, it is specialized | |
| 1006 for the printer immediately upon selection. The object can be | |
| 1007 despecialized after it is unselected by calling the function | |
| 1008 `msprinter-settings-despecialize'. | |
| 1009 | |
| 1010 Return value is the previously selected settings object. | |
| 1011 */ | |
| 1012 (device, settings)) | |
| 440 | 1013 { |
| 442 | 1014 Lisp_Devmode *ldm; |
| 1015 struct device *d = decode_device (device); | |
| 1016 | |
| 1017 struct gcpro gcpro1; | |
| 1018 GCPRO1 (settings); | |
| 1019 | |
| 793 | 1020 device = wrap_device (d); |
| 442 | 1021 CHECK_MSPRINTER_DEVICE (device); |
| 1022 CHECK_DEVMODE (settings); | |
| 1023 ldm = XDEVMODE (settings); | |
| 1024 | |
| 1025 if (!NILP (ldm->device)) | |
| 1026 invalid_operation ("The object is currently selected into a device", | |
| 1027 settings); | |
| 1028 | |
| 1029 /* If the object being selected is de-specialized, then its | |
| 1030 size is perhaps not enough to receive the new devmode. We can ask | |
| 1031 for printer's devmode size here, because despecialized settings | |
| 1032 cannot force switching to a different printer, as they supply no | |
| 1033 printer name at all. */ | |
| 771 | 1034 if (NILP (ldm->printer_name)) |
| 442 | 1035 { |
| 771 | 1036 Extbyte *nameext; |
| 1037 LONG dm_size; | |
| 1038 | |
|
4981
4aebb0131297
Cleanups/renaming of EXTERNAL_TO_C_STRING and friends
Ben Wing <ben@xemacs.org>
parents:
4962
diff
changeset
|
1039 nameext = LISP_STRING_TO_TSTR (DEVICE_MSPRINTER_NAME (d)); |
| 771 | 1040 dm_size = qxeDocumentProperties (NULL, DEVICE_MSPRINTER_HPRINTER (d), |
| 1041 nameext, NULL, NULL, 0); | |
| 442 | 1042 if (dm_size <= 0) |
| 563 | 1043 signal_error (Qio_error, |
| 1044 "Unable to specialize settings, printer error", | |
| 1045 device); | |
| 442 | 1046 |
| 1047 assert (XDEVMODE_SIZE (ldm) <= dm_size); | |
| 771 | 1048 ldm->devmode = (DEVMODEW *) xrealloc (ldm->devmode, dm_size); |
| 442 | 1049 } |
| 1050 | |
| 1051 /* If we bail out on signal here, no damage is done, except that | |
| 1052 the storage for the DEVMODE structure might be reallocated to | |
| 1053 hold a larger one - not a big deal */ | |
| 1054 if (!sync_printer_with_devmode (d, ldm->devmode, ldm->devmode, | |
| 1055 ldm->printer_name)) | |
| 563 | 1056 signal_error (Qio_error, |
| 1057 "Printer device initialization I/O error, device deleted", | |
| 771 | 1058 device); |
| 442 | 1059 |
| 771 | 1060 if (NILP (ldm->printer_name )) |
| 1061 ldm->printer_name = DEVICE_MSPRINTER_NAME (d); | |
| 442 | 1062 |
| 1063 { | |
| 1064 Lisp_Object old_mode = DEVICE_MSPRINTER_DEVMODE (d); | |
| 1065 ldm->device = device; | |
| 1066 XDEVMODE (old_mode)->device = Qnil; | |
| 1067 DEVICE_MSPRINTER_DEVMODE (d) = settings; | |
| 1068 UNGCPRO; | |
| 1069 return old_mode; | |
| 1070 } | |
| 1071 } | |
| 1072 | |
| 1073 DEFUN ("msprinter-apply-settings", Fmsprinter_apply_settings, 2, 2, 0, /* | |
| 3025 | 1074 Apply settings from a SETTINGS object to a `msprinter' DEVICE. |
| 442 | 1075 The settings from the settings object are immediately applied to the |
| 1076 printer, possibly changing even the target printer itself. The SETTING | |
| 1077 object is not modified, unlike `msprinter-select-settings', and the | |
| 1078 supplied object is not changed. The changes are immediately recorded | |
| 1079 into the settings object which is currently selected into the printer | |
| 1080 device. | |
| 1081 | |
| 1082 Return value is the currently selected settings object. | |
| 1083 */ | |
| 1084 (device, settings)) | |
| 1085 { | |
| 1086 Lisp_Devmode *ldm_current, *ldm_new; | |
| 1087 struct device *d = decode_device (device); | |
| 1088 | |
| 1089 struct gcpro gcpro1; | |
| 1090 GCPRO1 (settings); | |
| 1091 | |
| 793 | 1092 device = wrap_device (d); |
| 442 | 1093 CHECK_MSPRINTER_DEVICE (device); |
| 1094 CHECK_DEVMODE (settings); | |
| 1095 ldm_new = XDEVMODE (settings); | |
| 1096 ldm_current = XDEVMODE (DEVICE_MSPRINTER_DEVMODE (d)); | |
| 1097 | |
| 1098 /* If the supplied devmode is not specialized, then the current | |
| 1099 devmode size will always be sufficient, as the printer does | |
| 1100 not change. If it is specialized, we must reallocate the current | |
| 1101 devmode storage to match with the supplied one, as it has the right | |
| 1102 size for the new printer, if it is going to change. The correct | |
| 1103 way is to use the largest of the two though, to keep the old | |
| 1104 contents unchanged in case of preliminary exit. | |
| 1105 */ | |
| 771 | 1106 if (!NILP (ldm_new->printer_name)) |
| 442 | 1107 ldm_current->devmode = |
| 771 | 1108 (DEVMODEW*) xrealloc (ldm_current->devmode, |
| 442 | 1109 max (XDEVMODE_SIZE (ldm_new), |
| 1110 XDEVMODE_SIZE (ldm_current))); | |
| 1111 | |
| 1112 if (!sync_printer_with_devmode (d, ldm_new->devmode, | |
| 1113 ldm_current->devmode, | |
| 1114 ldm_new->printer_name)) | |
| 771 | 1115 signal_error |
| 1116 (Qio_error, | |
| 1117 "Printer device initialization I/O error, device deleted", device); | |
| 1118 | |
| 1119 if (!NILP (ldm_new->printer_name)) | |
| 1120 ldm_current->printer_name = ldm_new->printer_name; | |
| 442 | 1121 |
| 446 | 1122 UNGCPRO; |
| 442 | 1123 return DEVICE_MSPRINTER_DEVMODE (d); |
| 1124 } | |
| 1125 | |
| 1126 /************************************************************************/ | |
| 1127 /* devmode */ | |
| 1128 /************************************************************************/ | |
| 1129 | |
| 1204 | 1130 static const struct memory_description devmode_description[] = { |
| 934 | 1131 { XD_LISP_OBJECT, offsetof (struct Lisp_Devmode, printer_name) }, |
| 964 | 1132 { XD_LISP_OBJECT, offsetof (struct Lisp_Devmode, device) }, |
| 934 | 1133 { XD_END } |
| 1134 }; | |
| 1135 | |
| 771 | 1136 static Lisp_Object |
| 1137 mark_devmode (Lisp_Object obj) | |
| 1138 { | |
| 1139 Lisp_Devmode *data = XDEVMODE (obj); | |
| 1140 mark_object (data->printer_name); | |
| 1141 return data->device; | |
| 1142 } | |
| 1143 | |
| 442 | 1144 static void |
| 1145 print_devmode (Lisp_Object obj, Lisp_Object printcharfun, | |
| 2286 | 1146 int UNUSED (escapeflag)) |
| 442 | 1147 { |
| 1148 Lisp_Devmode *dm = XDEVMODE (obj); | |
| 1149 if (print_readably) | |
|
5142
f965e31a35f0
reduce lcrecord headers to 2 words, rename printing_unreadable_object
Ben Wing <ben@xemacs.org>
parents:
5127
diff
changeset
|
1150 printing_unreadable_lisp_object (obj, 0); |
|
4952
19a72041c5ed
Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents:
4846
diff
changeset
|
1151 write_ascstring (printcharfun, "#<msprinter-settings"); |
| 771 | 1152 if (!NILP (dm->printer_name)) |
| 800 | 1153 write_fmt_string_lisp (printcharfun, " for %S", 1, dm->printer_name); |
| 442 | 1154 if (!NILP (dm->device)) |
| 800 | 1155 write_fmt_string_lisp (printcharfun, " (currently on %s)", 1, dm->device); |
|
5146
88bd4f3ef8e4
make lrecord UID's have a separate UID space for each object, resurrect debug SOE code in extents.c
Ben Wing <ben@xemacs.org>
parents:
5142
diff
changeset
|
1156 write_fmt_string (printcharfun, " 0x%x>", LISP_OBJECT_UID (obj)); |
| 442 | 1157 } |
| 1158 | |
| 1159 static void | |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
1160 finalize_devmode (Lisp_Object obj) |
| 442 | 1161 { |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
1162 Lisp_Devmode *dm = XDEVMODE (obj); |
| 442 | 1163 |
| 1164 assert (NILP (dm->device)); | |
| 1165 } | |
| 1166 | |
| 1167 static int | |
|
4906
6ef8256a020a
implement equalp in C, fix case-folding, add equal() method for keymaps
Ben Wing <ben@xemacs.org>
parents:
4846
diff
changeset
|
1168 equal_devmode (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth), |
|
6ef8256a020a
implement equalp in C, fix case-folding, add equal() method for keymaps
Ben Wing <ben@xemacs.org>
parents:
4846
diff
changeset
|
1169 int UNUSED (foldcase)) |
| 442 | 1170 { |
| 1171 Lisp_Devmode *dm1 = XDEVMODE (obj1); | |
| 1172 Lisp_Devmode *dm2 = XDEVMODE (obj2); | |
| 440 | 1173 |
| 442 | 1174 if ((dm1->devmode != NULL) != (dm1->devmode != NULL)) |
| 1175 return 0; | |
| 1176 if (dm1->devmode == NULL) | |
| 1177 return 1; | |
| 1178 if (memcmp (dm1->devmode, dm2->devmode, XDEVMODE_SIZE (dm1)) != 0) | |
| 1179 return 0; | |
| 771 | 1180 if (NILP (dm1->printer_name) || NILP (dm2->printer_name)) |
| 442 | 1181 return 1; |
|
4906
6ef8256a020a
implement equalp in C, fix case-folding, add equal() method for keymaps
Ben Wing <ben@xemacs.org>
parents:
4846
diff
changeset
|
1182 return lisp_strcasecmp_i18n (dm1->printer_name, dm2->printer_name) == 0; |
| 442 | 1183 } |
| 1184 | |
| 665 | 1185 static Hashcode |
|
5192
635f4b506855
Call internal_hash() with its new arg, Win32-specific code, fixing build
Aidan Kehoe <kehoea@parhasard.net>
parents:
5178
diff
changeset
|
1186 hash_devmode (Lisp_Object obj, int depth, Boolint UNUSED (equalp)) |
| 442 | 1187 { |
| 1188 Lisp_Devmode *dm = XDEVMODE (obj); | |
| 1189 | |
| 1190 return HASH3 (XDEVMODE_SIZE (dm), | |
| 1191 dm->devmode ? memory_hash (dm->devmode, XDEVMODE_SIZE (dm)) | |
| 1192 : 0, | |
|
5192
635f4b506855
Call internal_hash() with its new arg, Win32-specific code, fixing build
Aidan Kehoe <kehoea@parhasard.net>
parents:
5178
diff
changeset
|
1193 internal_hash (dm->printer_name, depth + 1, 0)); |
| 442 | 1194 } |
| 1195 | |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
1196 DEFINE_NODUMP_LISP_OBJECT ("msprinter-settings", devmode, |
|
5124
623d57b7fbe8
separate regular and disksave finalization, print method fixes.
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
1197 mark_devmode, print_devmode, |
|
623d57b7fbe8
separate regular and disksave finalization, print method fixes.
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
1198 finalize_devmode, |
|
623d57b7fbe8
separate regular and disksave finalization, print method fixes.
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
1199 equal_devmode, hash_devmode, |
|
623d57b7fbe8
separate regular and disksave finalization, print method fixes.
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
1200 devmode_description, |
|
623d57b7fbe8
separate regular and disksave finalization, print method fixes.
Ben Wing <ben@xemacs.org>
parents:
5120
diff
changeset
|
1201 Lisp_Devmode); |
| 934 | 1202 |
| 442 | 1203 static Lisp_Object |
| 771 | 1204 allocate_devmode (DEVMODEW* src_devmode, int do_copy, |
| 1205 Lisp_Object src_name, struct device *d) | |
| 442 | 1206 { |
|
5127
a9c41067dd88
more cleanups, terminology clarification, lots of doc work
Ben Wing <ben@xemacs.org>
parents:
5125
diff
changeset
|
1207 Lisp_Object obj = ALLOC_NORMAL_LISP_OBJECT (devmode); |
|
5117
3742ea8250b5
Checking in final CVS version of workspace 'ben-lisp-object'
Ben Wing <ben@xemacs.org>
parents:
3025
diff
changeset
|
1208 Lisp_Devmode *dm = XDEVMODE (obj); |
| 442 | 1209 |
| 1210 if (d) | |
| 793 | 1211 dm->device = wrap_device (d); |
| 442 | 1212 else |
| 1213 dm->device = Qnil; | |
| 1214 | |
| 771 | 1215 dm->printer_name = src_name; |
| 442 | 1216 |
| 1217 if (src_devmode != NULL && do_copy) | |
| 1218 { | |
| 771 | 1219 dm->devmode = (DEVMODEW*) xmalloc (DEVMODE_SIZE (src_devmode)); |
| 442 | 1220 memcpy (dm->devmode, src_devmode, DEVMODE_SIZE (src_devmode)); |
| 1221 } | |
| 1222 else | |
| 1223 { | |
| 1224 dm->devmode = src_devmode; | |
| 1225 } | |
| 1226 | |
|
5117
3742ea8250b5
Checking in final CVS version of workspace 'ben-lisp-object'
Ben Wing <ben@xemacs.org>
parents:
3025
diff
changeset
|
1227 return obj; |
| 442 | 1228 } |
| 1229 | |
| 1230 DEFUN ("msprinter-settings-copy", Fmsprinter_settings_copy, 1, 1, 0, /* | |
| 1231 Create and returns an exact copy of a printer settings object. | |
| 1232 */ | |
| 1233 (settings)) | |
| 1234 { | |
| 1235 Lisp_Devmode *dm; | |
| 1236 | |
| 1237 CHECK_DEVMODE (settings); | |
| 1238 dm = XDEVMODE (settings); | |
| 1239 | |
| 1240 return allocate_devmode (dm->devmode, 1, dm->printer_name, NULL); | |
| 1241 } | |
| 1242 | |
| 1243 DEFUN ("msprinter-settings-despecialize", Fmsprinter_settings_despecialize, 1, 1, 0, /* | |
| 1244 Erase printer-specific settings from a printer settings object. | |
| 1245 */ | |
| 1246 (settings)) | |
| 1247 { | |
| 1248 Lisp_Devmode *ldm; | |
| 771 | 1249 DEVMODEW *dm; |
| 442 | 1250 |
| 1251 CHECK_DEVMODE (settings); | |
| 1252 ldm = XDEVMODE (settings); | |
| 1253 | |
| 1254 if (!NILP (ldm->device)) | |
| 1255 invalid_operation ("The object is currently selected into a device", | |
| 1256 settings); | |
| 1257 | |
| 1258 dm = ldm->devmode; | |
| 1259 | |
| 1260 /* #### TODO. Either remove references to device specific bins, | |
| 1261 paper sizes etc, or signal an error of they are present. */ | |
| 440 | 1262 |
| 442 | 1263 dm->dmDriverExtra = 0; |
| 1264 dm->dmDeviceName[0] = '\0'; | |
| 1265 | |
| 771 | 1266 ldm->printer_name = Qnil; |
| 442 | 1267 |
| 1268 return Qnil; | |
| 1269 } | |
| 1270 | |
| 1271 DEFUN ("mswindows-get-default-printer", Fmswindows_get_default_printer, 0, 0, 0, /* | |
| 1272 Return name of the default printer, as string, on nil if there is no default. | |
| 1273 */ | |
| 1274 ()) | |
| 1275 { | |
| 1276 return msprinter_default_printer (); | |
| 1277 } | |
| 1278 | |
| 1279 static void | |
| 1280 signal_enum_printer_error (void) | |
| 1281 { | |
|
5581
56144c8593a8
Mechanically change INT to FIXNUM in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5468
diff
changeset
|
1282 invalid_operation ("Error enumerating printers", make_fixnum (GetLastError ())); |
| 442 | 1283 } |
| 1284 | |
| 1285 DEFUN ("mswindows-printer-list", Fmswindows_printer_list, 0, 0, 0, /* | |
| 1286 Return a list of string names of installed printers. | |
| 1287 If there is a default printer, it is returned as the first element of | |
| 1288 the list. If there is no default printer, the first element of the | |
| 1289 list will be nil. The rest of elements are guaranteed to have string | |
| 1290 values. Return value is nil if there are no printers installed. | |
| 1291 */ | |
| 1292 ()) | |
| 1293 { | |
| 1294 int have_nt, ok; | |
| 1295 BYTE *data_buf, dummy_byte; | |
| 665 | 1296 Bytecount enum_entry_size; |
| 442 | 1297 DWORD enum_flags, enum_level, bytes_needed, num_printers; |
| 1298 struct gcpro gcpro1, gcpro2; | |
| 1299 Lisp_Object result = Qnil, def_printer = Qnil; | |
| 1300 | |
| 1301 /* Determine OS flavor, to use the fastest enumeration method available */ | |
| 771 | 1302 have_nt = !mswindows_windows9x_p; |
| 442 | 1303 enum_flags = PRINTER_ENUM_LOCAL | (have_nt ? PRINTER_ENUM_CONNECTIONS : 0); |
| 1304 enum_level = have_nt ? 4 : 5; | |
| 771 | 1305 enum_entry_size = (have_nt ? sizeof (PRINTER_INFO_4) : |
| 1306 sizeof (PRINTER_INFO_5)); | |
| 442 | 1307 |
| 1308 /* Allocate memory for printer enum structure */ | |
| 771 | 1309 ok = qxeEnumPrinters (enum_flags, NULL, enum_level, &dummy_byte, 1, |
| 1310 &bytes_needed, &num_printers); | |
| 442 | 1311 if (ok) |
| 1312 /* No printers, if just 1 byte is enough */ | |
| 1313 return Qnil; | |
| 1314 | |
| 1315 if (GetLastError () != ERROR_INSUFFICIENT_BUFFER) | |
| 1316 signal_enum_printer_error (); | |
| 1317 | |
| 2367 | 1318 data_buf = alloca_array (BYTE, bytes_needed); |
| 771 | 1319 ok = qxeEnumPrinters (enum_flags, NULL, enum_level, data_buf, bytes_needed, |
| 1320 &bytes_needed, &num_printers); | |
| 442 | 1321 if (!ok) |
| 1322 signal_enum_printer_error (); | |
| 1323 | |
| 1324 if (num_printers == 0) | |
| 1325 /* Strange but... */ | |
| 1326 return Qnil; | |
| 1327 | |
| 1328 GCPRO2 (result, def_printer); | |
| 1329 | |
|
5338
8608eadee6ba
Move #'delq, #'delete to Lisp, adding support for sequences.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5192
diff
changeset
|
1330 def_printer = msprinter_default_printer (); |
|
8608eadee6ba
Move #'delq, #'delete to Lisp, adding support for sequences.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5192
diff
changeset
|
1331 |
| 442 | 1332 while (num_printers--) |
| 1333 { | |
| 771 | 1334 Extbyte *printer_name; |
|
5338
8608eadee6ba
Move #'delq, #'delete to Lisp, adding support for sequences.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5192
diff
changeset
|
1335 Lisp_Object printer_name_lisp; |
| 442 | 1336 if (have_nt) |
| 1337 { | |
| 771 | 1338 PRINTER_INFO_4 *info = (PRINTER_INFO_4 *) data_buf; |
| 1339 printer_name = (Extbyte *) info->pPrinterName; | |
| 442 | 1340 } |
| 1341 else | |
| 1342 { | |
| 771 | 1343 PRINTER_INFO_5 *info = (PRINTER_INFO_5 *) data_buf; |
| 1344 printer_name = (Extbyte *) info->pPrinterName; | |
| 442 | 1345 } |
| 1346 data_buf += enum_entry_size; | |
|
5338
8608eadee6ba
Move #'delq, #'delete to Lisp, adding support for sequences.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5192
diff
changeset
|
1347 |
|
8608eadee6ba
Move #'delq, #'delete to Lisp, adding support for sequences.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5192
diff
changeset
|
1348 printer_name_lisp = build_tstr_string (printer_name); |
|
8608eadee6ba
Move #'delq, #'delete to Lisp, adding support for sequences.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5192
diff
changeset
|
1349 if (0 != qxestrcasecmp (XSTRING_DATA (def_printer), |
|
8608eadee6ba
Move #'delq, #'delete to Lisp, adding support for sequences.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5192
diff
changeset
|
1350 XSTRING_DATA (printer_name_lisp))) |
|
8608eadee6ba
Move #'delq, #'delete to Lisp, adding support for sequences.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5192
diff
changeset
|
1351 { |
|
8608eadee6ba
Move #'delq, #'delete to Lisp, adding support for sequences.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5192
diff
changeset
|
1352 result = Fcons (printer_name_lisp, result); |
|
8608eadee6ba
Move #'delq, #'delete to Lisp, adding support for sequences.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5192
diff
changeset
|
1353 } |
| 442 | 1354 } |
| 1355 | |
| 1356 result = Fcons (def_printer, result); | |
| 1357 | |
| 1358 RETURN_UNGCPRO (result); | |
| 440 | 1359 } |
| 1360 | |
| 1361 | |
| 1362 /************************************************************************/ | |
| 428 | 1363 /* initialization */ |
| 1364 /************************************************************************/ | |
| 1365 | |
| 1366 void | |
| 1367 syms_of_device_mswindows (void) | |
| 1368 { | |
|
5117
3742ea8250b5
Checking in final CVS version of workspace 'ben-lisp-object'
Ben Wing <ben@xemacs.org>
parents:
3025
diff
changeset
|
1369 INIT_LISP_OBJECT (devmode); |
| 442 | 1370 |
| 3092 | 1371 #ifdef NEW_GC |
|
5118
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
1372 INIT_LISP_OBJECT (mswindows_device); |
|
e0db3c197671
merge up to latest default branch, doesn't compile yet
Ben Wing <ben@xemacs.org>
diff
changeset
|
1373 INIT_LISP_OBJECT (msprinter_device); |
| 3092 | 1374 #endif /* NEW_GC */ |
| 1375 | |
| 442 | 1376 DEFSUBR (Fmsprinter_get_settings); |
| 1377 DEFSUBR (Fmsprinter_select_settings); | |
| 1378 DEFSUBR (Fmsprinter_apply_settings); | |
| 1379 DEFSUBR (Fmsprinter_settings_copy); | |
| 1380 DEFSUBR (Fmsprinter_settings_despecialize); | |
| 1381 DEFSUBR (Fmswindows_get_default_printer); | |
| 1382 DEFSUBR (Fmswindows_printer_list); | |
| 1383 | |
| 510 | 1384 DEFKEYWORD (Q_allow_selection); |
| 1385 DEFKEYWORD (Q_allow_pages); | |
| 1386 DEFKEYWORD (Q_selected_page_button); | |
| 1387 DEFSYMBOL (Qselected_page_button); | |
| 1388 | |
|
4477
e34711681f30
Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents:
4117
diff
changeset
|
1389 DEFSYMBOL (Qmake_device_early_mswindows_entry_point); |
|
e34711681f30
Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents:
4117
diff
changeset
|
1390 DEFSYMBOL ( Qmake_device_late_mswindows_entry_point); |
| 428 | 1391 } |
| 1392 | |
| 1393 void | |
| 1394 console_type_create_device_mswindows (void) | |
| 1395 { | |
| 1396 CONSOLE_HAS_METHOD (mswindows, init_device); | |
| 1397 CONSOLE_HAS_METHOD (mswindows, finish_init_device); | |
| 440 | 1398 CONSOLE_HAS_METHOD (mswindows, mark_device); |
| 428 | 1399 CONSOLE_HAS_METHOD (mswindows, delete_device); |
| 1400 CONSOLE_HAS_METHOD (mswindows, device_system_metrics); | |
| 545 | 1401 CONSOLE_IMPLEMENTATION_FLAGS (mswindows, XDEVIMPF_PIXEL_GEOMETRY); |
| 440 | 1402 |
| 1403 CONSOLE_HAS_METHOD (msprinter, init_device); | |
| 1404 CONSOLE_HAS_METHOD (msprinter, mark_device); | |
| 1405 CONSOLE_HAS_METHOD (msprinter, delete_device); | |
| 1406 CONSOLE_HAS_METHOD (msprinter, device_system_metrics); | |
| 545 | 1407 CONSOLE_IMPLEMENTATION_FLAGS (msprinter, (XDEVIMPF_PIXEL_GEOMETRY |
| 1408 | XDEVIMPF_IS_A_PRINTER | |
| 1409 | XDEVIMPF_NO_AUTO_REDISPLAY | |
| 1410 | XDEVIMPF_DONT_PREEMPT_REDISPLAY | |
| 1411 | XDEVIMPF_FRAMELESS_OK)); | |
| 428 | 1412 } |
| 1413 | |
| 440 | 1414 |
| 428 | 1415 void |
| 1416 vars_of_device_mswindows (void) | |
| 1417 { | |
| 1418 } |