Mercurial > hg > xemacs-beta

comparison src/file-coding.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents facf3239ba30
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
364 364
365 const struct sized_memory_description coding_system_empty_extra_description = { 365 const struct sized_memory_description coding_system_empty_extra_description = {
366 0, coding_system_empty_extra_description_1 366 0, coding_system_empty_extra_description_1
367 }; 367 };
368 368
369 DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("coding-system", coding_system, 369 DEFINE_SIZABLE_LISP_OBJECT ("coding-system", coding_system,
370 1, /*dumpable-flag*/ 370 mark_coding_system,
371 mark_coding_system, 371 print_coding_system,
372 print_coding_system, 372 finalize_coding_system,
373 finalize_coding_system, 373 0, 0, coding_system_description,
374 0, 0, coding_system_description, 374 sizeof_coding_system,
375 sizeof_coding_system, 375 Lisp_Coding_System);
376 Lisp_Coding_System);
377 376
378 /************************************************************************/ 377 /************************************************************************/
379 /* Creating coding systems */ 378 /* Creating coding systems */
380 /************************************************************************/ 379 /************************************************************************/
381 380
695 allocate_coding_system (struct coding_system_methods *codesys_meths, 694 allocate_coding_system (struct coding_system_methods *codesys_meths,
696 Bytecount data_size, 695 Bytecount data_size,
697 Lisp_Object name) 696 Lisp_Object name)
698 { 697 {
699 Bytecount total_size = offsetof (Lisp_Coding_System, data) + data_size; 698 Bytecount total_size = offsetof (Lisp_Coding_System, data) + data_size;
700 Lisp_Coding_System *codesys = 699 Lisp_Object obj = ALLOC_SIZED_LISP_OBJECT (total_size, coding_system);
701 (Lisp_Coding_System *) BASIC_ALLOC_LCRECORD (total_size, 700 Lisp_Coding_System *codesys = XCODING_SYSTEM (obj);
702 &lrecord_coding_system);
703 701
704 codesys->methods = codesys_meths; 702 codesys->methods = codesys_meths;
705 #define MARKED_SLOT(x) codesys->x = Qnil; 703 #define MARKED_SLOT(x) codesys->x = Qnil;
706 #include "coding-system-slots.h" 704 #include "coding-system-slots.h"
707 705
4356 /************************************************************************/ 4354 /************************************************************************/
4357 4355
4358 void 4356 void
4359 syms_of_file_coding (void) 4357 syms_of_file_coding (void)
4360 { 4358 {
4361 INIT_LRECORD_IMPLEMENTATION (coding_system); 4359 INIT_LISP_OBJECT (coding_system);
4362 4360
4363 DEFSUBR (Fvalid_coding_system_type_p); 4361 DEFSUBR (Fvalid_coding_system_type_p);
4364 DEFSUBR (Fcoding_system_type_list); 4362 DEFSUBR (Fcoding_system_type_list);
4365 DEFSUBR (Fcoding_system_p); 4363 DEFSUBR (Fcoding_system_p);
4366 DEFSUBR (Ffind_coding_system); 4364 DEFSUBR (Ffind_coding_system);