mySubscriptions

") (setq contents (buffer-substring (point) (progn - (re-search-forward - "\\| fix PAGE_SIZE -#endif -#undef PAGE_SIZE -#define CPP_PAGE_SIZE (1 << CPP_LOG_PAGE_SIZE) -#define LOG_PAGE_SIZE ((EMACS_INT) CPP_LOG_PAGE_SIZE) -#define PAGE_SIZE ((EMACS_INT) CPP_PAGE_SIZE) -#define PAGE_SIZE_DIV_2 (PAGE_SIZE >> 1) - - -/* NOT USED ANYMORE */ -#ifdef USE_EXPONENTIAL_USED_LIST_GROWTH -/* used heap list logarithms */ -#if USED_LIST_LOWER_THRESHOLD =3D=3D 8 -# define CPP_LOG_USED_LIST_LOWER_THRESHOLD 3 -#endif -#if USED_LIST_LOWER_THRESHOLD =3D=3D 16 -# define CPP_LOG_USED_LIST_LOWER_THRESHOLD 4 -#endif -#if USED_LIST_LOWER_THRESHOLD =3D=3D 32 -# define CPP_LOG_USED_LIST_LOWER_THRESHOLD 5 -#endif -#if USED_LIST_LOWER_THRESHOLD =3D=3D 64 -# define CPP_LOG_USED_LIST_LOWER_THRESHOLD 6 -#endif -#if USED_LIST_LOWER_THRESHOLD =3D=3D 128 -# define CPP_LOG_USED_LIST_LOWER_THRESHOLD 7 -#endif -#if USED_LIST_LOWER_THRESHOLD =3D=3D 256 -# define CPP_LOG_USED_LIST_LOWER_THRESHOLD 8 -#endif -#ifndef CPP_LOG_USED_LIST_LOWER_THRESHOLD ---> fix USED_LIST_LOWER_THRESHOLD -#endif -#define LOG_USED_LIST_LOWER_THRESHOLD CPP_LOG_USED_LIST_LOWER_THRESHOLD -#endif /* USE_EXPONENTIAL_USED_LIST_GROWTH */ = -/* used heap list count */ -#define N_USED_PAGE_LISTS (((USED_LIST_UPPER_THRESHOLD \ - - USED_LIST_MIN_OBJECT_SIZE) \ - / USED_LIST_LIN_STEP) + 1 ) + 1 +=0C +/*--- values depending on PAGE_SIZE ------------------------------------*/ = -/* unmanaged memory list count */ -#define N_UNMANAGED_PAGE_LISTS (((UNMANAGED_LIST_UPPER_THRESHOLD \ - - UNMANAGED_LIST_MIN_OBJECT_SIZE) \ - / UNMANAGED_LIST_LIN_STEP) + 1 ) + 1 - -/* NOT USED ANYMORE */ -#ifdef USE_EXPONENTIAL_USED_LIST_GROWTH -#define N_USED_PAGE_LISTS_LIN (((USED_LIST_LOWER_THRESHOLD \ - - USED_LIST_MIN_OBJECT_SIZE) \ - / USED_LIST_LIN_STEP) + 1 ) -#define N_USED_PAGE_LISTS_EXP \ - (LOG_PAGE_SIZE - LOG_USED_LIST_LOWER_THRESHOLD) - -#define N_USED_PAGE_LISTS \ - (N_USED_PAGE_LISTS_LIN + N_USED_PAGE_LISTS_EXP + 1) -#endif /* USE_EXPONENTIAL_USED_LIST_GROWTH */ +/* initialized in init_mc_allocator () */ +static EMACS_INT log_page_size; +static EMACS_INT page_size_div_2; = -/* free heap list count */ -#define N_FREE_PAGE_LISTS (((FREE_LIST_UPPER_THRESHOLD \ - - FREE_LIST_LOWER_THRESHOLD) \ - / FREE_LIST_LIN_STEP) \ - + FREE_LIST_LOWER_THRESHOLD) +#undef PAGE_SIZE +#define PAGE_SIZE SYS_PAGE_SIZE +#define LOG_PAGE_SIZE log_page_size +#define PAGE_SIZE_DIV_2 page_size_div_2 = = /* Constants for heap address to page header mapping. */ @@ -237,8 +190,7 @@ Boston, MA 02111-1307, USA. */ =0C /*--- structs and typedefs ---------------------------------------------*/ = -/* Links the free lists (mark_bit_free_list, page_header_free_list, - cell free list). */ +/* Links the free lists (mark_bit_free_list and cell free list). */ typedef struct free_link { struct lrecord_header lheader; @@ -246,7 +198,7 @@ typedef struct free_link } free_link; = = -/* Header for pages. They are hold in a doubly linked list. */ +/* Header for pages. They are held in a doubly linked list. */ typedef struct page_header { struct page_header *next; /* next page_header */ @@ -263,7 +215,11 @@ typedef struct page_header mark_bits holds the pointer to this area. Is the number of objects smaller than BITS_PER_EMACS_INT, the mark bits are held in the mark_bit EMACS_INT directly, without an additional indirection. */ - char *mark_bits; /* pointer to mark bits */ + unsigned int black_bit:1; /* objects on page are black */ + unsigned int dirty_bit:1; /* page is dirty */ + unsigned int protection_bit:1; /* page is write protected */ + unsigned int array_bit:1; /* page holds arrays */ + Rawbyte *mark_bits; /* pointer to mark bits */ void *heap_space; /* pointer to heap, where objects are stored */ } page_header; @@ -272,7 +228,6 @@ typedef struct page_header /* Different list types. */ enum list_type_enum { USED_LIST, - UNMANAGED_LIST, FREE_LIST }; = @@ -339,20 +294,19 @@ typedef struct mc_allocator_globals_type = /* Holds all allocated pages, each object size class in its separate lis= t, to guarantee fast allocation on partially filled pages. */ - page_list_header used_heap_pages[N_USED_PAGE_LISTS]; - - /* Holds all unmanaged pages. */ - page_list_header unmanaged_heap_pages[N_UNMANAGED_PAGE_LISTS]; + page_list_header *used_heap_pages; = /* Holds all free pages in the heap. N multiples of PAGE_SIZE are kept on the Nth free list. Contiguos pages are coalesced. */ page_list_header free_heap_pages[N_FREE_PAGE_LISTS]; = /* ptr lookup table */ - level_2_lookup_tree *ptr_lookup_table[LEVEL1_SIZE]; + level_2_lookup_tree **ptr_lookup_table; = +#ifndef BLOCKTYPE_ALLOC_PAGE_HEADER /* page header free list */ free_link *page_header_free_list; +#endif /* not BLOCKTYPE_ALLOC_PAGE_HEADER */ = #ifdef MEMORY_USAGE_STATS EMACS_INT malloced_bytes; @@ -369,9 +323,6 @@ mc_allocator_globals_type mc_allocator_g #define USED_HEAP_PAGES(i) \ ((page_list_header*) &mc_allocator_globals.used_heap_pages[i]) = -#define UNMANAGED_HEAP_PAGES(i) \ - ((page_list_header*) &mc_allocator_globals.unmanaged_heap_pages[i]) - #define FREE_HEAP_PAGES(i) \ ((page_list_header*) &mc_allocator_globals.free_heap_pages[i]) = @@ -398,6 +349,10 @@ mc_allocator_globals_type mc_allocator_g # define PH_CELL_SIZE(ph) PH (ph)->cell_size # define PH_CELLS_ON_PAGE(ph) PH (ph)->cells_on_page # define PH_CELLS_USED(ph) PH (ph)->cells_used +# define PH_BLACK_BIT(ph) PH (ph)->black_bit +# define PH_DIRTY_BIT(ph) PH (ph)->dirty_bit +# define PH_PROTECTION_BIT(ph) PH (ph)->protection_bit +# define PH_ARRAY_BIT(ph) PH (ph)->array_bit # define PH_MARK_BITS(ph) PH (ph)->mark_bits # define PH_HEAP_SPACE(ph) PH (ph)->heap_space #define PH_LIST_TYPE(ph) PLH_LIST_TYPE (PH_PLH (ph)) @@ -412,7 +367,9 @@ mc_allocator_globals_type mc_allocator_g #define HEAP_SECTION(index) mc_allocator_globals.heap_sections[index] #define N_HEAP_SECTIONS mc_allocator_globals.n_heap_sections = +#ifndef BLOCKTYPE_ALLOC_PAGE_HEADER #define PAGE_HEADER_FREE_LIST mc_allocator_globals.page_header_free_list +#endif /* not BLOCKTYPE_ALLOC_PAGE_HEADER */ = #define NEXT_FREE(free_list) ((free_link*) free_list)->next_free #define FREE_LIST(free_list) (free_link*) (free_list) @@ -444,9 +401,13 @@ mc_allocator_globals_type mc_allocator_g #define PH_ON_USED_LIST_P(ph) \ (ph && PH_PLH (ph) && (PLH_LIST_TYPE (PH_PLH (ph)) =3D=3D USED_LIST)) = -#define PH_ON_UNMANAGED_LIST_P(ph) \ - (ph && PH_PLH (ph) && (PLH_LIST_TYPE (PH_PLH (ph)) =3D=3D UNMANAGED_LIST= )) = +/* Number of mark bits: minimum 1, maximum 8. */ +#ifdef NEW_GC +#define N_MARK_BITS 2 +#else /* not NEW_GC */ +#define N_MARK_BITS 1 +#endif /* not NEW_GC */ = = =0C @@ -455,12 +416,6 @@ mc_allocator_globals_type mc_allocator_g /************************************************************************/ = = -/* ###TODO### */ -#if 1 -# define ALLOC_MB_UNMANAGED 1 -#endif - - /*--- misc functions ---------------------------------------------------*/ = /* moved here from alloc.c */ @@ -483,7 +438,7 @@ deadbeef_memory (void *ptr, Bytecount si static void visit_all_used_page_headers (void (*f) (page_header *ph)) { - int i; + EMACS_INT i; for (i =3D 0; i < N_USED_PAGE_LISTS; i++) if (PLH_FIRST (USED_HEAP_PAGES (i))) { @@ -507,7 +462,7 @@ visit_all_used_page_headers (void (*f) ( static void set_lookup_table (void *ptr, page_header *ph) { - int l1_index =3D L1_INDEX (ptr); + EMACS_INT l1_index =3D L1_INDEX (ptr); level_2_lookup_tree *l2 =3D PTR_LOOKUP_TABLE (l1_index); #ifdef USE_HASH_TABLE while ((l2) && (LEVEL2_KEY (l2) !=3D l1_index)) @@ -537,7 +492,7 @@ set_lookup_table (void *ptr, page_header static void unset_lookup_table (void *ptr) { - int l1_index =3D L1_INDEX (ptr); + EMACS_INT l1_index =3D L1_INDEX (ptr); level_2_lookup_tree *l2 =3D PTR_LOOKUP_TABLE (l1_index); #ifdef USE_HASH_TABLE while ((l2) && (LEVEL2_KEY (l2) !=3D l1_index)) @@ -554,7 +509,7 @@ unset_lookup_table (void *ptr) static page_header * get_page_header_internal (void *ptr) { - int l1_index =3D L1_INDEX (ptr); + EMACS_INT l1_index =3D L1_INDEX (ptr); level_2_lookup_tree *l2 =3D PTR_LOOKUP_TABLE (l1_index); #ifdef USE_HASH_TABLE while ((l2) && (LEVEL2_KEY (l2) !=3D l1_index)) @@ -569,7 +524,7 @@ get_page_header_internal (void *ptr) static page_header * get_page_header (void *ptr) { - int l1_index =3D L1_INDEX (ptr); + EMACS_INT l1_index =3D L1_INDEX (ptr); level_2_lookup_tree *l2 =3D PTR_LOOKUP_TABLE (l1_index); assert (l2); #ifdef USE_HASH_TABLE @@ -580,14 +535,14 @@ get_page_header (void *ptr) return LEVEL2 (l2, L2_INDEX (ptr)); } = - /* Returns the mark bit index of a given heap address. */ static EMACS_INT get_mark_bit_index (void *ptr, page_header *ph) { EMACS_INT cell_size =3D PH_CELL_SIZE (ph); if (cell_size) - return (((EMACS_INT) ptr - (EMACS_INT)(PH_HEAP_SPACE (ph))) / cell_siz= e); + return (((EMACS_INT) ptr - (EMACS_INT)(PH_HEAP_SPACE (ph))) / cell_siz= e) = + * N_MARK_BITS; else /* only one object on page */ return 0; } @@ -597,9 +552,9 @@ get_mark_bit_index (void *ptr, page_head static void add_pages_to_lookup_table (page_header *ph, EMACS_INT n_pages) { - char *p =3D (char*) PH_HEAP_SPACE (ph); + Rawbyte *p =3D (Rawbyte *) PH_HEAP_SPACE (ph); EMACS_INT end_of_section =3D (EMACS_INT) p + (PAGE_SIZE * n_pages); - for (p =3D (char*) PH_HEAP_SPACE (ph); + for (p =3D (Rawbyte *) PH_HEAP_SPACE (ph); (EMACS_INT) p < end_of_section; p +=3D PAGE_SIZE) set_lookup_table (p, ph); } @@ -609,7 +564,7 @@ add_pages_to_lookup_table (page_header * static void init_lookup_table (void) { - int i; + EMACS_INT i; for (i =3D 0; i < LEVEL1_SIZE; i++) PTR_LOOKUP_TABLE (i) =3D 0; } @@ -619,35 +574,32 @@ init_lookup_table (void) =0C /*--- mark bits --------------------------------------------------------*/ = -/* Number of mark bits: minimum 1, maximum 8. */ -#define N_MARK_BITS 1 - /*--- bit operations --- */ = /* Allocates a bit array of length bits. */ -static char * +static Rawbyte * alloc_bit_array(size_t bits) { -#ifdef ALLOC_MB_UNMANAGED - size_t size =3D ((bits + CHAR_BIT - 1) / CHAR_BIT) * sizeof(char); + Rawbyte *bit_array; +#ifdef USE_MARK_BITS_FREE_LIST + size_t size =3D ((bits + CHAR_BIT - 1) / CHAR_BIT) * sizeof (Rawbyte); = +#else /* not USE_MARK_BITS_FREE_LIST */ + size_t size =3D = + ALIGN_FOR_TYPE (((bits + CHAR_BIT - 1) / CHAR_BIT) * sizeof (Rawbyte), = + Rawbyte *); +#endif /* not USE_MARK_BITS_FREE_LIST */ if (size < sizeof (free_link)) size =3D sizeof (free_link); - return (char *) mc_alloc_unmanaged (size); -#else /* not ALLOC_MB_UNMANAGED */ - size_t size =3D ((bits + CHAR_BIT - 1) / CHAR_BIT) * sizeof(char); - char *bit_array; - if (size < sizeof (free_link)) size =3D sizeof (free_link); - bit_array =3D (char*) xmalloc_and_zero (size); #ifdef MEMORY_USAGE_STATS MC_MALLOCED_BYTES +=3D malloced_storage_size (0, size, 0); #endif + bit_array =3D (Rawbyte *) xmalloc_and_zero (size); return bit_array; -#endif /* not ALLOC_MB_UNMANAGED */ } = = /* Returns the bit value at pos. */ static EMACS_INT -get_bit (char *bit_array, EMACS_INT pos) +get_bit (Rawbyte *bit_array, EMACS_INT pos) { #if N_MARK_BITS > 1 EMACS_INT result =3D 0; @@ -656,8 +608,8 @@ get_bit (char *bit_array, EMACS_INT pos) bit_array +=3D pos / CHAR_BIT; #if N_MARK_BITS > 1 for (i =3D 0; i < N_MARK_BITS; i++) - result |=3D (*bit_array & (1 << ((pos + i) % CHAR_BIT))); - return result >> pos; + result |=3D ((*bit_array & (1 << ((pos + i) % CHAR_BIT))) !=3D 0) << i; + return result; #else return (*bit_array & (1 << (pos % CHAR_BIT))) !=3D 0; #endif @@ -666,10 +618,9 @@ get_bit (char *bit_array, EMACS_INT pos) = /* Bit_Arrays bit at pos to val. */ static void -set_bit(char *bit_array, EMACS_INT pos, EMACS_INT val) +set_bit (Rawbyte *bit_array, EMACS_INT pos, EMACS_INT val) { #if N_MARK_BITS > 1 - EMACS_INT result =3D 0; EMACS_INT i; #endif bit_array +=3D pos / CHAR_BIT; @@ -689,21 +640,23 @@ set_bit(char *bit_array, EMACS_INT pos, = = = /*--- mark bit functions ---*/ -#define USE_PNTR_MARK_BITS(ph) (PH_CELLS_ON_PAGE (ph) > BITS_PER_EMACS_INT) -#define USE_WORD_MARK_BITS(ph) (PH_CELLS_ON_PAGE (ph) <=3D BITS_PER_EMACS_= INT) +#define USE_PNTR_MARK_BITS(ph) \ + ((PH_CELLS_ON_PAGE (ph) * N_MARK_BITS) > BITS_PER_EMACS_INT) +#define USE_WORD_MARK_BITS(ph) \ + ((PH_CELLS_ON_PAGE (ph) * N_MARK_BITS) <=3D BITS_PER_EMACS_INT) = -#define GET_BIT_WORD(b, p) get_bit ((char*) &b, p) +#define GET_BIT_WORD(b, p) get_bit ((Rawbyte *) &b, p) #define GET_BIT_PNTR(b, p) get_bit (b, p) = -#define SET_BIT_WORD(b, p, v) set_bit ((char*) &b, p, v) +#define SET_BIT_WORD(b, p, v) set_bit ((Rawbyte *) &b, p, v) #define SET_BIT_PNTR(b, p, v) set_bit (b, p, v) = #define ZERO_MARK_BITS_WORD(ph) PH_MARK_BITS (ph) =3D 0 -#define ZERO_MARK_BITS_PNTR(ph) \ -do { \ - memset (PH_MARK_BITS (ph), '\0', \ - (PH_CELLS_ON_PAGE (ph) + CHAR_BIT - 1) \ - / CHAR_BIT * sizeof(char)); \ +#define ZERO_MARK_BITS_PNTR(ph) \ +do { \ + memset (PH_MARK_BITS (ph), '\0', \ + ((PH_CELLS_ON_PAGE (ph) * N_MARK_BITS) \ + + CHAR_BIT - 1) / CHAR_BIT * sizeof (Rawbyte)); \ } while (0) = #define GET_BIT(bit, ph, p) \ @@ -733,17 +686,21 @@ do { \ = /* Allocates mark-bit space either from a free list or from the OS for the given page header. */ -static char * +static Rawbyte * alloc_mark_bits (page_header *ph) { - char *result; + Rawbyte *result; +#ifdef USE_MARK_BITS_FREE_LIST if (PH_MARK_BIT_FREE_LIST (ph) =3D=3D 0) - result =3D (char*) alloc_bit_array (PH_CELLS_ON_PAGE (ph) * N_MARK_BIT= S); + result =3D (Rawbyte *) alloc_bit_array (PH_CELLS_ON_PAGE (ph) * N_MARK= _BITS); else { - result =3D (char*) PH_MARK_BIT_FREE_LIST (ph); + result =3D (Rawbyte *) PH_MARK_BIT_FREE_LIST (ph); PH_MARK_BIT_FREE_LIST (ph) =3D NEXT_FREE (result); } +#else /* not USE_MARK_BITS_FREE_LIST */ + result =3D (Rawbyte *) alloc_bit_array (PH_CELLS_ON_PAGE (ph) * N_MARK_B= ITS); +#endif /* not USE_MARK_BITS_FREE_LIST */ return result; } = @@ -752,15 +709,13 @@ alloc_mark_bits (page_header *ph) static void free_mark_bits (page_header *ph) { -#ifdef ALLOC_MB_UNMANAGED +#ifdef USE_MARK_BITS_FREE_LIST + NEXT_FREE (PH_MARK_BITS (ph)) =3D PH_MARK_BIT_FREE_LIST (ph); + PH_MARK_BIT_FREE_LIST (ph) =3D FREE_LIST (PH_MARK_BITS (ph)); +#else /* not USE_MARK_BITS_FREE_LIST */ if (PH_MARK_BITS (ph)) - mc_free (PH_MARK_BITS (ph)); -#else /* not ALLOC_MB_UNMANAGED */ - if (PH_MARK_BITS (ph)) { - NEXT_FREE (PH_MARK_BITS (ph)) =3D PH_MARK_BIT_FREE_LIST (ph); - PH_MARK_BIT_FREE_LIST (ph) =3D FREE_LIST (PH_MARK_BITS (ph)); - } -#endif /* not ALLOC_MB_UNMANAGED */ + free (PH_MARK_BITS (ph)); +#endif /* not USE_MARK_BITS_FREE_LIST */ } = = @@ -818,6 +773,11 @@ set_mark_bit (void *ptr, EMACS_INT value assert (ph && PH_ON_USED_LIST_P (ph)); if (ph) { +#ifdef NEW_GC + if (value =3D=3D BLACK) + if (!PH_BLACK_BIT (ph)) + PH_BLACK_BIT (ph) =3D 1; +#endif /* NEW_GC */ SET_BIT (ph, get_mark_bit_index (ptr, ph), value); } } @@ -827,11 +787,29 @@ set_mark_bit (void *ptr, EMACS_INT value =0C /*--- page header functions --------------------------------------------*/ = +#ifdef BLOCKTYPE_ALLOC_PAGE_HEADER +#include "blocktype.h" + +struct page_header_blocktype = +{ = + Blocktype_declare (page_header); = +} *the_page_header_blocktype; +#endif /* BLOCKTYPE_ALLOC_PAGE_HEADER */ + /* Allocates a page header either from a free list or from the OS. */ static page_header * alloc_page_header (void) { +#ifdef BLOCKTYPE_ALLOC_PAGE_HEADER page_header *result; +#ifdef MEMORY_USAGE_STATS + MC_MALLOCED_BYTES +=3D malloced_storage_size (0, sizeof (page_header), 0= ); +#endif + result =3D Blocktype_alloc (the_page_header_blocktype); + ZERO_PAGE_HEADER (result); + return result; +#else /* not BLOCKTYPE_ALLOC_PAGE_HEADER */ + page_header *result; if (PAGE_HEADER_FREE_LIST =3D=3D 0) { result =3D = @@ -839,7 +817,6 @@ alloc_page_header (void) #ifdef MEMORY_USAGE_STATS MC_MALLOCED_BYTES +=3D malloced_storage_size (0, sizeof (page_header= ), 0); #endif - } else { @@ -847,6 +824,7 @@ alloc_page_header (void) PAGE_HEADER_FREE_LIST =3D NEXT_FREE (result); } return result; +#endif /* not BLOCKTYPE_ALLOC_PAGE_HEADER */ } = = @@ -854,11 +832,15 @@ alloc_page_header (void) static void free_page_header (page_header *ph) { +#ifdef BLOCKTYPE_ALLOC_PAGE_HEADER + Blocktype_free (the_page_header_blocktype, ph); +#else /* not BLOCKTYPE_ALLOC_PAGE_HEADER */ #if ZERO_MEM ZERO_PAGE_HEADER (ph); #endif NEXT_FREE (ph) =3D PAGE_HEADER_FREE_LIST; PAGE_HEADER_FREE_LIST =3D FREE_LIST (ph); +#endif /* not BLOCKTYPE_ALLOC_PAGE_HEADER */ } = = @@ -940,14 +922,22 @@ static int get_used_list_index (size_t size) { if (size <=3D USED_LIST_MIN_OBJECT_SIZE) - return 0; - if (size <=3D USED_LIST_UPPER_THRESHOLD) - return ((size - USED_LIST_MIN_OBJECT_SIZE - 1) - / USED_LIST_LIN_STEP) + 1; + { + // printf ("size %d -> index %d\n", size, 0); + return 0; + } + if (size <=3D (size_t) USED_LIST_UPPER_THRESHOLD) + { + // printf ("size %d -> index %d\n", size, = + // ((size - USED_LIST_MIN_OBJECT_SIZE - 1) + // / USED_LIST_LIN_STEP) + 1); + return ((size - USED_LIST_MIN_OBJECT_SIZE - 1) + / USED_LIST_LIN_STEP) + 1; + } + // printf ("size %d -> index %d\n", size, N_USED_PAGE_LISTS - 1); return N_USED_PAGE_LISTS - 1; } = - /* Returns the size of the used heap list according to given index. */ static size_t get_used_list_size_value (int used_index) @@ -958,32 +948,8 @@ get_used_list_size_value (int used_index } = = -/* Returns the index of the used heap list according to given size. */ -static int -get_unmanaged_list_index (size_t size) -{ - if (size <=3D UNMANAGED_LIST_MIN_OBJECT_SIZE) - return 0; - if (size <=3D UNMANAGED_LIST_UPPER_THRESHOLD) - return ((size - UNMANAGED_LIST_MIN_OBJECT_SIZE - 1) - / UNMANAGED_LIST_LIN_STEP) + 1; - return N_UNMANAGED_PAGE_LISTS - 1; -} - - -/* Returns the size of the unmanaged heap list according to given index. */ -static size_t -get_unmanaged_list_size_value (int unmanaged_index) -{ - if (unmanaged_index < N_UNMANAGED_PAGE_LISTS - 1) - return (unmanaged_index * UNMANAGED_LIST_LIN_STEP) = - + UNMANAGED_LIST_MIN_OBJECT_SIZE; - return 0; -} - - /* Returns the index of the free heap list according to given size. */ -static int +static EMACS_INT get_free_list_index (EMACS_INT n_pages) { if (n_pages =3D=3D 0) @@ -1000,7 +966,7 @@ get_free_list_index (EMACS_INT n_pages) = /* Returns the size in number of pages of the given free list at index. */ static size_t -get_free_list_size_value (int free_index) +get_free_list_size_value (EMACS_INT free_index) { if (free_index < FREE_LIST_LOWER_THRESHOLD) return free_index + 1; @@ -1038,8 +1004,8 @@ mc_alloced_storage_size (Bytecount claim static EMACS_INT free_heap_section (page_header *ph) { - int i; - int removed =3D 0; + EMACS_INT i; + EMACS_INT removed =3D 0; for (i =3D 0; i < N_HEAP_SECTIONS; i++) if (!removed) { @@ -1220,22 +1186,23 @@ expand_heap (EMACS_INT needed_pages) /*--- used heap functions ----------------------------------------------*/ /* Installs initial free list. */ static void -install_cell_free_list (page_header *ph) +install_cell_free_list (page_header *ph, EMACS_INT elemcount) { - char *p; - int i; + Rawbyte *p; + EMACS_INT i; EMACS_INT cell_size =3D PH_CELL_SIZE (ph); /* write initial free list if cell_size is < PAGE_SIZE */ - p =3D (char *) PH_HEAP_SPACE (ph); + p =3D (Rawbyte *) PH_HEAP_SPACE (ph); for (i =3D 0; i < PH_CELLS_ON_PAGE (ph) - 1; i++) { #ifdef ERROR_CHECK_GC assert (!LRECORD_FREE_P (p)); MARK_LRECORD_AS_FREE (p); #endif - NEXT_FREE (p) =3D FREE_LIST (p + cell_size); + if (elemcount =3D=3D 1) + NEXT_FREE (p) =3D FREE_LIST (p + cell_size); set_lookup_table (p, ph); - p +=3D cell_size; + p +=3D cell_size; } #ifdef ERROR_CHECK_GC assert (!LRECORD_FREE_P (p)); @@ -1263,7 +1230,7 @@ remove_cell_free_list (page_header *ph) /* Installs a new page and hooks it into given page_list_header. */ static page_header * install_page_in_used_list (page_header *ph, page_list_header *plh, = - size_t size, int managed) + size_t size, EMACS_INT elemcount) { /* add to list */ add_page_header_to_plh (ph, plh); @@ -1273,16 +1240,21 @@ install_page_in_used_list (page_header * PH_CELL_SIZE (ph) =3D PLH_SIZE (plh); else PH_CELL_SIZE (ph) =3D size; - PH_CELLS_ON_PAGE (ph) =3D (PAGE_SIZE * PH_N_PAGES (ph)) / PH_CELL_SIZE (= ph); + if (elemcount =3D=3D 1) + PH_CELLS_ON_PAGE (ph) =3D (PAGE_SIZE * PH_N_PAGES (ph)) / PH_CELL_SIZE= (ph); + else + { + PH_CELLS_ON_PAGE (ph) =3D elemcount; + PH_ARRAY_BIT (ph) =3D 1; + } = /* init cell count */ PH_CELLS_USED (ph) =3D 0; = /* install mark bits and initialize cell free list */ - if (managed) - install_mark_bits (ph); + install_mark_bits (ph); = - install_cell_free_list (ph); + install_cell_free_list (ph, elemcount); = #ifdef MEMORY_USAGE_STATS PLH_TOTAL_CELLS (plh) +=3D PH_CELLS_ON_PAGE (ph); @@ -1299,6 +1271,11 @@ remove_page_from_used_list (page_header = { page_list_header *plh =3D PH_PLH (ph); = +#ifdef NEW_GC + if (gc_in_progress && PH_PROTECTION_BIT (ph)) ABORT(); + /* cleanup: remove memory protection, zero page_header bits. */ +#endif /* not NEW_GC */ + #ifdef MEMORY_USAGE_STATS PLH_TOTAL_CELLS (plh) -=3D PH_CELLS_ON_PAGE (ph); PLH_TOTAL_SPACE (plh) -=3D PAGE_SIZE * PH_N_PAGES (ph); @@ -1377,7 +1354,7 @@ static page_header * allocate_page_from_free_list (EMACS_INT needed_pages) { page_header *ph =3D 0; - int i; + EMACS_INT i; for (i =3D get_free_list_index (needed_pages); i < N_FREE_PAGE_LISTS; i+= +) if ((ph =3D find_free_page_first_fit (needed_pages, PLH_FIRST (FREE_HEAP_PAGES (i)))) = !=3D 0) @@ -1396,15 +1373,15 @@ allocate_page_from_free_list (EMACS_INT = = /* Allocates a new page, either from free list or by expanding the heap. */ static page_header * -allocate_new_page (page_list_header *plh, size_t size, int managed) +allocate_new_page (page_list_header *plh, size_t size, EMACS_INT elemcount) { - EMACS_INT needed_pages =3D BYTES_TO_PAGES (size); + EMACS_INT needed_pages =3D BYTES_TO_PAGES (size * elemcount); /* first check free list */ page_header *result =3D allocate_page_from_free_list (needed_pages); if (!result) /* expand heap */ result =3D expand_heap (needed_pages); - install_page_in_used_list (result, plh, size, managed); + install_page_in_used_list (result, plh, size, elemcount); return result; } = @@ -1412,63 +1389,56 @@ allocate_new_page (page_list_header *plh /* Selects the correct size class, tries to allocate a cell of this size from the free list, if this fails, a new page is allocated. */ static void * -mc_alloc_1 (size_t size, int managed) +mc_alloc_1 (size_t size, EMACS_INT elemcount) { page_list_header *plh =3D 0; page_header *ph =3D 0; void *result =3D 0; = - if (managed) - plh =3D USED_HEAP_PAGES (get_used_list_index (size)); - else - plh =3D UNMANAGED_HEAP_PAGES (get_unmanaged_list_index (size)); + plh =3D USED_HEAP_PAGES (get_used_list_index (size)); = if (size =3D=3D 0) return 0; - if (size < PAGE_SIZE_DIV_2) + if ((elemcount =3D=3D 1) && (size < (size_t) PAGE_SIZE_DIV_2)) /* first check any free cells */ ph =3D allocate_cell (plh); if (!ph) /* allocate a new page */ - ph =3D allocate_new_page (plh, size, managed); + ph =3D allocate_new_page (plh, size, elemcount); = /* return first element of free list and remove it from the list */ result =3D (void*) PH_FREE_LIST (ph); PH_FREE_LIST (ph) =3D NEXT_FREE (PH_FREE_LIST (ph)); = - memset (result, '\0', size); - if (managed) - MARK_LRECORD_AS_FREE (result); + memset (result, '\0', (size * elemcount)); + MARK_LRECORD_AS_FREE (result); = /* bump used cells counter */ - PH_CELLS_USED (ph)++; + PH_CELLS_USED (ph) +=3D elemcount; = #ifdef MEMORY_USAGE_STATS - PLH_USED_CELLS (plh)++; - if (managed) - PLH_USED_SPACE (plh) +=3D size; - else - PLH_USED_SPACE (plh) +=3D PLH_SIZE (plh); + PLH_USED_CELLS (plh) +=3D elemcount; + PLH_USED_SPACE (plh) +=3D size * elemcount; #endif = return result; } = +/* Array allocation. */ void * -mc_alloc (size_t size) +mc_alloc_array (size_t size, EMACS_INT elemcount) { - return mc_alloc_1 (size, 1); + return mc_alloc_1 (size, elemcount); } = void * -mc_alloc_unmanaged (size_t size) +mc_alloc (size_t size) { - return mc_alloc_1 (size, 0); + return mc_alloc_1 (size, 1); } = = - =0C /*--- sweep & free & finalize-------------------------------------------*/ = @@ -1512,7 +1482,11 @@ mark_free_list (page_header *ph) free_link *fl =3D PH_FREE_LIST (ph); while (fl) { +#ifdef NEW_GC + SET_BIT (ph, get_mark_bit_index (fl, ph), BLACK); +#else /* not NEW_GC */ SET_BIT (ph, get_mark_bit_index (fl, ph), 1); +#endif /* not NEW_GC */ fl =3D NEXT_FREE (fl); } } @@ -1529,14 +1503,31 @@ finalize_page (page_header *ph) EMACS_INT heap_space_step =3D PH_CELL_SIZE (ph); EMACS_INT mark_bit =3D 0; EMACS_INT mark_bit_max_index =3D PH_CELLS_ON_PAGE (ph); - int bit =3D 0; + unsigned int bit =3D 0; = mark_free_list (ph); = +#ifdef NEW_GC + /* ARRAY_BIT_HACK */ + if (PH_ARRAY_BIT (ph)) + for (mark_bit =3D 0; mark_bit < mark_bit_max_index; mark_bit++) + { + GET_BIT (bit, ph, mark_bit * N_MARK_BITS); + if (bit) + { + return; + } + } +#endif /* NEW_GC */ + for (mark_bit =3D 0; mark_bit < mark_bit_max_index; mark_bit++) { - GET_BIT (bit, ph, mark_bit); - if (!bit) = + GET_BIT (bit, ph, mark_bit * N_MARK_BITS); +#ifdef NEW_GC + if (bit =3D=3D WHITE) = +#else /* not NEW_GC */ + if (bit =3D=3D 0) = +#endif /* not NEW_GC */ { EMACS_INT ptr =3D (heap_space + (heap_space_step * mark_bit)); MC_ALLOC_CALL_FINALIZER ((void *) ptr); @@ -1559,8 +1550,6 @@ finalize_page_for_disksave (page_header = EMACS_INT mark_bit =3D 0; EMACS_INT mark_bit_max_index =3D PH_CELLS_ON_PAGE (ph); = - mark_free_list (ph); - for (mark_bit =3D 0; mark_bit < mark_bit_max_index; mark_bit++) { EMACS_INT ptr =3D (heap_space + (heap_space_step * mark_bit)); @@ -1591,23 +1580,46 @@ mc_finalize_for_disksave (void) static void sweep_page (page_header *ph) { - char *heap_space =3D (char *) PH_HEAP_SPACE (ph); + Rawbyte *heap_space =3D (Rawbyte *) PH_HEAP_SPACE (ph); EMACS_INT heap_space_step =3D PH_CELL_SIZE (ph); EMACS_INT mark_bit =3D 0; EMACS_INT mark_bit_max_index =3D PH_CELLS_ON_PAGE (ph); - int bit =3D 0; + unsigned int bit =3D 0; = mark_free_list (ph); = +#ifdef NEW_GC + /* ARRAY_BIT_HACK */ + if (PH_ARRAY_BIT (ph)) + for (mark_bit =3D 0; mark_bit < mark_bit_max_index; mark_bit++) + { + GET_BIT (bit, ph, mark_bit * N_MARK_BITS); + if (bit) + { + zero_mark_bits (ph); + PH_BLACK_BIT (ph) =3D 0; + return; + } + } +#endif /* NEW_GC */ + for (mark_bit =3D 0; mark_bit < mark_bit_max_index; mark_bit++) { - GET_BIT (bit, ph, mark_bit); - if (!bit) = + GET_BIT (bit, ph, mark_bit * N_MARK_BITS); +#ifdef NEW_GC + if (bit =3D=3D WHITE) = +#else /* not NEW_GC */ + if (bit =3D=3D 0) = +#endif /* not NEW_GC */ { +#ifdef NEW_GC + GC_STAT_FREED; +#endif /* NEW_GC */ remove_cell (heap_space + (heap_space_step * mark_bit), ph); } } zero_mark_bits (ph); + PH_BLACK_BIT (ph) =3D 0; if (PH_CELLS_USED (ph) =3D=3D 0) remove_page_from_used_list (ph); else if (PH_CELLS_USED (ph) < PH_CELLS_ON_PAGE (ph)) @@ -1627,9 +1639,24 @@ mc_sweep (void) void mc_free (void *ptr) { - page_header *ph =3D get_page_header (ptr); - assert (!PH_ON_FREE_LIST_P (ph)); + page_header *ph; + +#ifdef NEW_GC + /* Do not allow manual freeing while a gc is running. Data is going + to be freed next gc cycle. */ + if (write_barrier_enabled || gc_in_progress) + return; +#endif /* NEW_GC */ + + ph =3D get_page_header (ptr); + assert (ph); + assert (PH_PLH (ph)); + assert (PLH_LIST_TYPE (PH_PLH (ph)) !=3D FREE_LIST); = +#ifdef NEW_GC + if (PH_ON_USED_LIST_P (ph)) + SET_BIT (ph, get_mark_bit_index (ptr, ph), WHITE); +#endif /* NEW_GC */ remove_cell (ptr, ph); = if (PH_CELLS_USED (ph) =3D=3D 0) @@ -1642,29 +1669,32 @@ mc_free (void *ptr) /* Changes the size of the cell pointed to by ptr. Returns the new address of the new cell with new size. */ void * -mc_realloc_1 (void *ptr, size_t size, int managed) +mc_realloc_1 (void *ptr, size_t size, int elemcount) { if (ptr) { - if (size) + if (size * elemcount) { - void *result =3D mc_alloc_1 (size, managed); + void *result =3D mc_alloc_1 (size, elemcount); size_t from_size =3D PH_CELL_SIZE (get_page_header (ptr)); - size_t cpy_size =3D size; - if (size > from_size) = + size_t cpy_size =3D size * elemcount; + if (cpy_size > from_size) = cpy_size =3D from_size; memcpy (result, ptr, cpy_size); - mc_free (ptr); +#ifdef ALLOC_TYPE_STATS + inc_lrecord_stats (size, (struct lrecord_header *) result); +#endif /* not ALLOC_TYPE_STATS */ + /* mc_free (ptr); not needed, will be collected next gc */ return result; } else { - mc_free (ptr); + /* mc_free (ptr); not needed, will be collected next gc */ return 0; } } else - return mc_alloc_1 (size, managed); + return mc_alloc_1 (size, elemcount); } = void * @@ -1674,13 +1704,12 @@ mc_realloc (void *ptr, size_t size) } = void * -mc_realloc_unmanaged (void *ptr, size_t size) +mc_realloc_array (void *ptr, size_t size, EMACS_INT elemcount) { - return mc_realloc_1 (ptr, size, 0); + return mc_realloc_1 (ptr, size, elemcount); } = = - =0C /*--- initialization ---------------------------------------------------*/ = @@ -1688,32 +1717,49 @@ mc_realloc_unmanaged (void *ptr, size_t = void init_mc_allocator (void) { - int i; + EMACS_INT i; = - memset (&mc_allocator_globals, '\0', sizeof (mc_allocator_globals_type)); +#ifdef MEMORY_USAGE_STATS + MC_MALLOCED_BYTES =3D 0; +#endif = - for (i =3D 0; i < N_USED_PAGE_LISTS; i++) + /* init of pagesize dependent values */ + switch (SYS_PAGE_SIZE) { - page_list_header *plh =3D USED_HEAP_PAGES (i); - PLH_LIST_TYPE (plh) =3D USED_LIST; - PLH_SIZE (plh) =3D get_used_list_size_value (i); - PLH_FIRST (plh) =3D 0; - PLH_LAST (plh) =3D 0; - PLH_MARK_BIT_FREE_LIST (plh) =3D 0; + case 512: log_page_size =3D 9; break; + case 1024: log_page_size =3D 10; break; + case 2048: log_page_size =3D 11; break; + case 4096: log_page_size =3D 12; break; + case 8192: log_page_size =3D 13; break; + case 16384: log_page_size =3D 14; break; + default: ABORT (); + } + = + page_size_div_2 =3D (EMACS_INT) SYS_PAGE_SIZE >> 1; + = + mc_allocator_globals.used_heap_pages =3D = + (page_list_header *) xmalloc_and_zero ((N_USED_PAGE_LISTS + 1) + * sizeof (page_list_header)); #ifdef MEMORY_USAGE_STATS - PLH_PAGE_COUNT (plh) =3D 0; - PLH_USED_CELLS (plh) =3D 0; - PLH_USED_SPACE (plh) =3D 0; - PLH_TOTAL_CELLS (plh) =3D 0; - PLH_TOTAL_SPACE (plh) =3D 0; + MC_MALLOCED_BYTES +=3D (N_USED_PAGE_LISTS + 1) * sizeof (page_list_heade= r); #endif - } + + mc_allocator_globals.ptr_lookup_table =3D = + (level_2_lookup_tree **) = + xmalloc_and_zero ((LEVEL1_SIZE + 1) * sizeof (level_2_lookup_tree *)); +#ifdef MEMORY_USAGE_STATS + MC_MALLOCED_BYTES +=3D (LEVEL1_SIZE + 1) * sizeof (level_2_lookup_tree *= ); +#endif + = +#ifdef BLOCKTYPE_ALLOC_PAGE_HEADER + the_page_header_blocktype =3D Blocktype_new (struct page_header_blocktyp= e); +#endif /* BLOCKTYPE_ALLOC_PAGE_HEADER */ = - for (i =3D 0; i < N_UNMANAGED_PAGE_LISTS; i++) + for (i =3D 0; i < N_USED_PAGE_LISTS; i++) { - page_list_header *plh =3D UNMANAGED_HEAP_PAGES (i); - PLH_LIST_TYPE (plh) =3D UNMANAGED_LIST; - PLH_SIZE (plh) =3D get_unmanaged_list_size_value (i); + page_list_header *plh =3D USED_HEAP_PAGES (i); + PLH_LIST_TYPE (plh) =3D USED_LIST; + PLH_SIZE (plh) =3D get_used_list_size_value (i); PLH_FIRST (plh) =3D 0; PLH_LAST (plh) =3D 0; PLH_MARK_BIT_FREE_LIST (plh) =3D 0; @@ -1743,10 +1789,12 @@ init_mc_allocator (void) #endif } = +#ifndef BLOCKTYPE_ALLOC_PAGE_HEADER PAGE_HEADER_FREE_LIST =3D 0; +#endif /* not BLOCKTYPE_ALLOC_PAGE_HEADER */ = #ifdef MEMORY_USAGE_STATS - MC_MALLOCED_BYTES =3D sizeof (mc_allocator_globals); + MC_MALLOCED_BYTES +=3D sizeof (mc_allocator_globals); #endif = init_lookup_table (); @@ -1765,12 +1813,11 @@ Returns stats about the mc-alloc memory = { Lisp_Object free_plhs =3D Qnil; Lisp_Object used_plhs =3D Qnil; - Lisp_Object unmanaged_plhs =3D Qnil; Lisp_Object heap_sects =3D Qnil; - int used_size =3D 0; - int real_size =3D 0; + EMACS_INT used_size =3D 0; + EMACS_INT real_size =3D 0; = - int i; + EMACS_INT i; = for (i =3D 0; i < N_FREE_PAGE_LISTS; i++) = if (PLH_PAGE_COUNT (FREE_HEAP_PAGES(i)) > 0) @@ -1779,17 +1826,6 @@ Returns stats about the mc-alloc memory = list1 (make_int (PLH_PAGE_COUNT (FREE_HEAP_PAGES(i)))), free_plhs); = - for (i =3D 0; i < N_UNMANAGED_PAGE_LISTS; i++) = - if (PLH_PAGE_COUNT (UNMANAGED_HEAP_PAGES(i)) > 0) - unmanaged_plhs =3D = - acons (make_int (PLH_SIZE (UNMANAGED_HEAP_PAGES(i))), - list5 (make_int (PLH_PAGE_COUNT (UNMANAGED_HEAP_PAGES(i))), - make_int (PLH_USED_CELLS (UNMANAGED_HEAP_PAGES(i))), - make_int (PLH_USED_SPACE (UNMANAGED_HEAP_PAGES(i))), - make_int (PLH_TOTAL_CELLS (UNMANAGED_HEAP_PAGES(i))), - make_int (PLH_TOTAL_SPACE (UNMANAGED_HEAP_PAGES(i)))), - unmanaged_plhs); - for (i =3D 0; i < N_USED_PAGE_LISTS; i++) = if (PLH_PAGE_COUNT (USED_HEAP_PAGES(i)) > 0) used_plhs =3D = @@ -1813,9 +1849,8 @@ Returns stats about the mc-alloc memory = make_int (real_size)); = return Fcons (make_int (PAGE_SIZE), = - list6 (heap_sects, = + list5 (heap_sects, = Fnreverse (used_plhs), = - Fnreverse (unmanaged_plhs), = Fnreverse (free_plhs), = make_int (sizeof (mc_allocator_globals)), = make_int (MC_MALLOCED_BYTES))); @@ -1829,3 +1864,198 @@ syms_of_mc_alloc (void) DEFSUBR (Fmc_alloc_memory_usage); #endif /* MEMORY_USAGE_STATS */ } + + +#ifdef NEW_GC +/*--- incremental garbage collector ----------------------------------*/ + +/* access dirty bit of page header */ +void +set_dirty_bit (page_header *ph, unsigned int value) +{ + PH_DIRTY_BIT (ph) =3D value; +} + +void +set_dirty_bit_for_address (void *ptr, unsigned int value) +{ + set_dirty_bit (get_page_header (ptr), value); +} + +unsigned int +get_dirty_bit (page_header *ph) +{ + return PH_DIRTY_BIT (ph); +} + +unsigned int +get_dirty_bit_for_address (void *ptr) +{ + return get_dirty_bit (get_page_header (ptr)); +} + + +/* access protection bit of page header */ +void +set_protection_bit (page_header *ph, unsigned int value) +{ + PH_PROTECTION_BIT (ph) =3D value; +} + +void +set_protection_bit_for_address (void *ptr, unsigned int value) +{ + set_protection_bit (get_page_header (ptr), value); +} + +unsigned int +get_protection_bit (page_header *ph) +{ + return PH_PROTECTION_BIT (ph); +} + +unsigned int +get_protection_bit_for_address (void *ptr) +{ + return get_protection_bit (get_page_header (ptr)); +} + + +/* Returns the start of the page of the object pointed to by ptr. */ +void * +get_page_start (void *ptr) +{ + return PH_HEAP_SPACE (get_page_header (ptr)); +} + +/* Make PAGE_SIZE globally available. */ +EMACS_INT +mc_get_page_size () +{ + return PAGE_SIZE; +} + +/* Is the fault at ptr on a protected page? */ +EMACS_INT +fault_on_protected_page (void *ptr) +{ + page_header *ph =3D get_page_header_internal (ptr); + return (ph + && PH_HEAP_SPACE (ph) + && (PH_HEAP_SPACE (ph) <=3D ptr) = + && ((void *) ((EMACS_INT) PH_HEAP_SPACE (ph) = + + PH_N_PAGES (ph) * PAGE_SIZE) > ptr) + && (PH_PROTECTION_BIT (ph) =3D=3D 1)); +} + + +/* Protect the heap page of given page header ph if black objects are + on the page. */ +static void +protect_heap_page (page_header *ph) +{ + if (PH_BLACK_BIT (ph)) + { + void *heap_space =3D PH_HEAP_SPACE (ph); + EMACS_INT heap_space_size =3D PH_N_PAGES (ph) * PAGE_SIZE; + vdb_protect ((void *) heap_space, heap_space_size); + PH_PROTECTION_BIT (ph) =3D 1; + } +} + +/* Protect all heap pages with black objects. */ +void +protect_heap_pages (void) +{ + visit_all_used_page_headers (protect_heap_page); +} + + +/* Remove protection (if there) of heap page of given page header + ph. */ +static void +unprotect_heap_page (page_header *ph) +{ + if (PH_PROTECTION_BIT (ph)) + { + void *heap_space =3D PH_HEAP_SPACE (ph); + EMACS_INT heap_space_size =3D PH_N_PAGES (ph) * PAGE_SIZE; + vdb_unprotect (heap_space, heap_space_size); + PH_PROTECTION_BIT (ph) =3D 0; + } +} + +/* Remove protection for all heap pages which are protected. */ +void +unprotect_heap_pages (void) +{ + visit_all_used_page_headers (unprotect_heap_page); +} + +/* Remove protection and mark page dirty. */ +void +unprotect_page_and_mark_dirty (void *ptr) +{ + page_header *ph =3D get_page_header (ptr); + unprotect_heap_page (ph); + PH_DIRTY_BIT (ph) =3D 1; +} + +/* Repush all objects on dirty pages onto the mark stack. */ +int +repush_all_objects_on_page (void *ptr) +{ + int repushed_objects =3D 0; + page_header *ph =3D get_page_header (ptr); + Rawbyte *heap_space =3D (Rawbyte *) PH_HEAP_SPACE (ph); + EMACS_INT heap_space_step =3D PH_CELL_SIZE (ph); + EMACS_INT mark_bit =3D 0; + EMACS_INT mark_bit_max_index =3D PH_CELLS_ON_PAGE (ph); + unsigned int bit =3D 0; + for (mark_bit =3D 0; mark_bit < mark_bit_max_index; mark_bit++) + { + GET_BIT (bit, ph, mark_bit * N_MARK_BITS); + if (bit =3D=3D BLACK) + { + repushed_objects++; + gc_write_barrier = + (wrap_pointer_1 ((heap_space + (heap_space_step * mark_bit)))); + } + } + PH_BLACK_BIT (ph) =3D 0; + PH_DIRTY_BIT (ph) =3D 0; + return repushed_objects; +} + +/* Mark black if object is currently grey. This first checks, if the + object is really allocated on the mc-heap. If it is, it can be + marked black; if it is not, it cannot be marked. */ +EMACS_INT +maybe_mark_black (void *ptr) +{ + page_header *ph =3D get_page_header_internal (ptr); + unsigned int bit =3D 0; + + if (ph && PH_PLH (ph) && PH_ON_USED_LIST_P (ph)) + { + GET_BIT (bit, ph, get_mark_bit_index (ptr, ph)); + if (bit =3D=3D GREY) + { + if (!PH_BLACK_BIT (ph)) + PH_BLACK_BIT (ph) =3D 1; + SET_BIT (ph, get_mark_bit_index (ptr, ph), BLACK); + } + return 1; + } + return 0; +} + +/* Only for debugging --- not used anywhere in the sources. */ +EMACS_INT +object_on_heap_p (void *ptr) +{ + page_header *ph =3D get_page_header_internal (ptr); + return (ph && PH_ON_USED_LIST_P (ph)); +} + +#endif /* NEW_GC */ 1.3 +98 -32 XEmacs/xemacs/src/mc-alloc.h Index: mc-alloc.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/mc-alloc.h,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- mc-alloc.h 2005/10/14 01:22:01 1.2 +++ mc-alloc.h 2005/11/25 01:42:05 1.3 @@ -23,43 +23,87 @@ Boston, MA 02111-1307, USA. */ #ifndef INCLUDED_mc_alloc_h_ #define INCLUDED_mc_alloc_h_ = - -/* This is moved here from alloc.c. */ -#ifndef MALLOC_OVERHEAD -# ifdef GNU_MALLOC -# define MALLOC_OVERHEAD 0 -# elif defined (rcheck) -# define MALLOC_OVERHEAD 20 -# else -# define MALLOC_OVERHEAD 8 -# endif -#endif /* MALLOC_OVERHEAD */ - /*--- prototypes -------------------------------------------------------*/ = BEGIN_C_DECLS = = = -/* Allocation related functions and macros: */ +/* Internal Allocator Functions: */ = -/* Builds and initializes all needed datastructures of the new allocator. = */ +/* Initialize the allocator. This has to be called prior to + requesting memory. */ void init_mc_allocator (void); = -/* Returns a pointer to a block of memory of given size on the used heap. = */ +/* Allocate a block of memory of given size and return the pointer to + it. */ void *mc_alloc (size_t size); = -/* Frees the object pointed to by pointer. */ +/* Allocate a block of memory as an array with elemcount elements of + given size and return the pointer to it. Arrays contain several + objects that are allocated in one consecutive block of memory with + each element being a fully qualified object---that is, it has a + Lisp object header and a mark bit. Objects like hash tables and + dynamic arrays use this function. */ +void *mc_alloc_array (size_t size, EMACS_INT elemcount); + +/* Free the object pointed to by ptr and make its memory re-usable + again. The memory must have been returned by a previous call to + mc_alloc(). This can be used to free memory explicitly, outside a + garbage collection. */ void mc_free (void *ptr); = -/* Modifies the size of the memory block pointed to by ptr. The - Address of the new block of given size is returned. */ +/* Modify the size of the memory block pointed to by ptr. Return the + address of the new block of given size. The content of the memory + block will be unchanged to the minimum of the old and new sizes: if + the new size is smaller, the overlaying data is cut off; if the new + size is bigger, the newly allocated memory will be uninitialized.*/ void *mc_realloc (void *ptr, size_t size); = = +/* Modify the size of the array pointed to by ptr. Return the address + of the new array block with elemcount elements of given size. The + content of the memory block will be unchanged to the minimum of the + old and new sizes: if the new size is smaller, the overlaying data + is cut off; if the new size is bigger, the newly allocated memory + will be uninitialized.*/ +void *mc_realloc_array (void *ptr, size_t size, EMACS_INT elemcount); = = + /* Garbage collection related functions and macros: */ = +#ifdef NEW_GC +enum mark_bit_colors +{ + WHITE =3D 0, + BLACK =3D 1, + GREY =3D 2 +}; + +/* Set the mark bit of the object pointed to by ptr to value.*/ +void set_mark_bit (void *ptr, EMACS_INT value); + +/* Return the mark bit of the object pointed to by ptr. */ +EMACS_INT get_mark_bit (void *ptr); + +/* mark bit macros */ +/* Returns true if the mark bit of the object pointed to by ptr is set. */ +#define MARKED_P(ptr) (get_mark_bit (ptr) !=3D WHITE) + +/* Marks the object pointed to by ptr (sets the mark bit to 1). */ +#define MARK(ptr) set_mark_bit (ptr, BLACK) + +/* Unmarks the object pointed to by ptr (sets the mark bit to 0). */ +#define UNMARK(ptr) set_mark_bit (ptr, WHITE) + +#define MARK_WHITE(ptr) set_mark_bit (ptr, WHITE) +#define MARK_GREY(ptr) set_mark_bit (ptr, GREY) +#define MARK_BLACK(ptr) set_mark_bit (ptr, BLACK) + +#define MARKED_WHITE_P(ptr) (get_mark_bit (ptr) =3D=3D WHITE) +#define MARKED_GREY_P(ptr) (get_mark_bit (ptr) =3D=3D GREY) +#define MARKED_BLACK_P(ptr) (get_mark_bit (ptr) =3D=3D BLACK) +#else /* not NEW_GC */ /* Set the mark bit of the object pointed to by ptr to value.*/ void set_mark_bit (void *ptr, EMACS_INT value); = @@ -75,8 +119,9 @@ EMACS_INT get_mark_bit (void *ptr); = /* Unmarks the object pointed to by ptr (sets the mark bit to 0). */ #define UNMARK(ptr) set_mark_bit (ptr, 0) +#endif /* not NEW_GC */ = -/* The finalizer of every not marked object is called. The macro +/* The finalizer of every not marked object is called. The macro MC_ALLOC_CALL_FINALIZER has to be defined and call the finalizer of the object. */ void mc_finalize (void); @@ -89,24 +134,12 @@ void mc_sweep (void); /* Portable dumper related functions and macros: */ = /* The finalizer for disksave of every object is called to shrink the - dump image. The macro MC_ALLOC_CALL_FINALIZER_FOR_DISKSAVE has to + dump image. The macro MC_ALLOC_CALL_FINALIZER_FOR_DISKSAVE has to be defined and call the finalizer for disksave of the object. */ void mc_finalize_for_disksave (void); = = = -/* Allocation function for the unmanaged heap: */ - -/* Returns a pointer to a block of memory of given size on the - unmanaged heap. */ -void *mc_alloc_unmanaged (size_t size); - -/* Modifies the size of the memory block pointed to by ptr. The - Address of the new block of given size is returned. */ -void *mc_realloc_unmanaged (void *ptr, size_t size); - - - /* Functions and macros related with allocation statistics: */ = #ifdef MEMORY_USAGE_STATS @@ -115,6 +148,39 @@ void *mc_realloc_unmanaged (void *ptr, s Bytecount mc_alloced_storage_size (Bytecount claimed_size, struct overhead_stats *stats); #endif /* MEMORY_USAGE_STATS */ + + +#ifdef NEW_GC +/* Incremental Garbage Collector / Write Barrier Support: */ + +/* Return the PAGESIZE the allocator uses. Generally equals to the + system's PAGESIZE. */ +EMACS_INT mc_get_page_size (void); + +/* Is the fault at ptr on a protected page? */ +EMACS_INT fault_on_protected_page (void *ptr); + +/* Remove protection (if there) of heap page of given page header + ph. */ +void protect_heap_pages (void); + +/* Remove protection for all heap pages which are protected. */ +void unprotect_heap_pages (void); + +/* Remove protection and mark page dirty. */ +void unprotect_page_and_mark_dirty (void *ptr); + +/* Repush all objects on dirty pages onto the mark stack. Return + number of repushed objects. */ +int repush_all_objects_on_page (void *ptr); + +/* Mark black if object is currently grey. */ +EMACS_INT maybe_mark_black (void *ptr); + +/* Only for debugging---not used anywhere in the sources. */ +EMACS_INT object_on_heap_p (void *ptr); + +#endif /* NEW_GC */ = END_C_DECLS = 1.2 +32 -0 XEmacs/xemacs/src/objects-tty-impl.h Index: objects-tty-impl.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects-tty-impl.h,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- objects-tty-impl.h 2002/06/20 21:18:39 1.1 +++ objects-tty-impl.h 2005/11/25 01:42:05 1.2 @@ -29,9 +29,25 @@ Boston, MA 02111-1307, USA. */ = struct tty_color_instance_data { +#ifdef NEW_GC + struct lrecord_header header; +#endif /* NEW_GC */ Lisp_Object symbol; /* so we don't have to constantly call Fintern() */ }; = +#ifdef NEW_GC +DECLARE_LRECORD (tty_color_instance_data, struct tty_color_instance_data); +#define XTTY_COLOR_INSTANCE_DATA(x) \ + XRECORD (x, tty_color_instance_data, struct tty_color_instance_data) +#define wrap_tty_color_instance_data(p) \ + wrap_record (p, tty_color_instance_data) +#define TTY_COLOR_INSTANCE_DATAP(x) RECORDP (x, tty_color_instance_data) +#define CHECK_TTY_COLOR_INSTANCE_DATA(x) \ + CHECK_RECORD (x, tty_color_instance_data) +#define CONCHECK_TTY_COLOR_INSTANCE_DATA(x) \ + CONCHECK_RECORD (x, tty_color_instance_data) +#endif /* NEW_GC */ + #define TTY_COLOR_INSTANCE_DATA(c) \ ((struct tty_color_instance_data *) (c)->data) = @@ -39,8 +55,24 @@ struct tty_color_instance_data = struct tty_font_instance_data { +#ifdef NEW_GC + struct lrecord_header header; +#endif /* NEW_GC */ Lisp_Object charset; }; + +#ifdef NEW_GC +DECLARE_LRECORD (tty_font_instance_data, struct tty_font_instance_data); +#define XTTY_FONT_INSTANCE_DATA(x) \ + XRECORD (x, tty_font_instance_data, struct tty_font_instance_data) +#define wrap_tty_font_instance_data(p) \ + wrap_record (p, tty_font_instance_data) +#define TTY_FONT_INSTANCE_DATAP(x) RECORDP (x, tty_font_instance_data) +#define CHECK_TTY_FONT_INSTANCE_DATA(x) \ + CHECK_RECORD (x, tty_font_instance_data) +#define CONCHECK_TTY_FONT_INSTANCE_DATA(x) \ + CONCHECK_RECORD (x, tty_font_instance_data) +#endif /* NEW_GC */ = #define TTY_FONT_INSTANCE_DATA(c) \ ((struct tty_font_instance_data *) (c)->data) 1.17 +41 -0 XEmacs/xemacs/src/objects-tty.c Index: objects-tty.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects-tty.c,v retrieving revision 1.16 retrieving revision 1.17 diff -u -p -r1.16 -r1.17 --- objects-tty.c 2005/01/28 02:58:51 1.16 +++ objects-tty.c 2005/11/25 01:42:06 1.17 @@ -42,18 +42,36 @@ static const struct memory_description t { XD_END } }; = +#ifdef NEW_GC +DEFINE_LRECORD_IMPLEMENTATION ("tty-color-instance-data", = + tty_color_instance_data, + 0, /*dumpable-flag*/ + 0, 0, 0, 0, 0, = + tty_color_instance_data_description_1, + struct tty_color_instance_data); +#else /* not NEW_GC */ const struct sized_memory_description tty_color_instance_data_description = =3D { sizeof (struct tty_color_instance_data), tty_color_instance_data_descrip= tion_1 }; +#endif /* not NEW_GC */ = static const struct memory_description tty_font_instance_data_description_= 1 [] =3D { { XD_LISP_OBJECT, offsetof (struct tty_font_instance_data, charset) }, { XD_END } }; = +#ifdef NEW_GC +DEFINE_LRECORD_IMPLEMENTATION ("tty-font-instance-data", = + tty_font_instance_data, + 0, /*dumpable-flag*/ + 0, 0, 0, 0, 0, = + tty_font_instance_data_description_1, + struct tty_font_instance_data); +#else /* not NEW_GC */ const struct sized_memory_description tty_font_instance_data_description = =3D { sizeof (struct tty_font_instance_data), tty_font_instance_data_descripti= on_1 }; +#endif /* not NEW_GC */ = DEFUN ("register-tty-color", Fregister_tty_color, 3, 3, 0, /* Register COLOR as a recognized TTY color. @@ -176,7 +194,12 @@ tty_initialize_color_instance (Lisp_Colo } = /* Don't allocate the data until we're sure that we will succeed. */ +#ifdef NEW_GC + c->data =3D alloc_lrecord_type (struct tty_color_instance_data, + &lrecord_tty_color_instance_data); +#else /* not NEW_GC */ c->data =3D xnew (struct tty_color_instance_data); +#endif /* not NEW_GC */ COLOR_INSTANCE_TTY_SYMBOL (c) =3D name; = return 1; @@ -199,7 +222,11 @@ static void tty_finalize_color_instance (Lisp_Color_Instance *c) { if (c->data) +#ifdef NEW_GC + mc_free (c->data); +#else /* not NEW_GC */ xfree (c->data, void *); +#endif /* not NEW_GC */ } = static int @@ -254,7 +281,12 @@ tty_initialize_font_instance (Lisp_Font_ } = /* Don't allocate the data until we're sure that we will succeed. */ +#ifdef NEW_GC + f->data =3D alloc_lrecord_type (struct tty_font_instance_data, + &lrecord_tty_font_instance_data); +#else /* not NEW_GC */ f->data =3D xnew (struct tty_font_instance_data); +#endif /* not NEW_GC */ FONT_INSTANCE_TTY_CHARSET (f) =3D charset; #ifdef MULE if (CHARSETP (charset)) @@ -287,7 +319,11 @@ static void tty_finalize_font_instance (Lisp_Font_Instance *f) { if (f->data) +#ifdef NEW_GC + mc_free (f->data); +#else /* not NEW_GC */ xfree (f->data, void *); +#endif /* not NEW_GC */ } = static Lisp_Object @@ -363,6 +399,11 @@ tty_find_charset_font (Lisp_Object devic void syms_of_objects_tty (void) { +#ifdef NEW_GC + INIT_LRECORD_IMPLEMENTATION (tty_color_instance_data); + INIT_LRECORD_IMPLEMENTATION (tty_font_instance_data); +#endif /* NEW_GC */ + DEFSUBR (Fregister_tty_color); DEFSUBR (Funregister_tty_color); DEFSUBR (Ffind_tty_color); 1.30 +9 -1 XEmacs/xemacs/src/objects.c Index: objects.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects.c,v retrieving revision 1.29 retrieving revision 1.30 diff -u -p -r1.29 -r1.30 --- objects.c 2005/10/24 10:07:39 1.29 +++ objects.c 2005/11/25 01:42:06 1.30 @@ -63,7 +63,11 @@ Lisp_Object Qcolor_instancep; = static const struct memory_description color_instance_data_description_1 [= ]=3D { #ifdef HAVE_TTY +#ifdef NEW_GC + { XD_LISP_OBJECT, tty_console }, +#else /* not NEW_GC */ { XD_BLOCK_PTR, tty_console, 1, { &tty_color_instance_data_description }= }, +#endif /* not NEW_GC */ #endif { XD_END } }; @@ -272,7 +276,11 @@ static Lisp_Object font_instance_truenam = static const struct memory_description font_instance_data_description_1 []= =3D { #ifdef HAVE_TTY - { XD_BLOCK_PTR, tty_console, 1, { &tty_font_instance_data_description} }, +#ifdef NEW_GC + { XD_LISP_OBJECT, tty_console }, +#else /* not NEW_GC */ + { XD_BLOCK_PTR, tty_console, 1, { &tty_font_instance_data_description } = }, +#endif /* not NEW_GC */ #endif { XD_END } }; 1.59 +15 -3 XEmacs/xemacs/src/print.c Index: print.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/print.c,v retrieving revision 1.58 retrieving revision 1.59 diff -u -p -r1.58 -r1.59 --- print.c 2005/11/22 09:02:43 1.58 +++ print.c 2005/11/25 01:42:06 1.59 @@ -1733,6 +1733,17 @@ print_internal (Lisp_Object obj, Lisp_Ob = if (STRINGP (obj)) { +#ifdef NEW_GC + if (!debug_can_access_memory (XSTRING_DATA (obj), = + XSTRING_LENGTH (obj))) + { + write_fmt_string + (printcharfun, + "#", + lheader, XSTRING_DATA (obj)); + break; + } +#else /* not NEW_GC */ Lisp_String *l =3D (Lisp_String *) lheader; if (!debug_can_access_memory (l->data_, l->size_)) { @@ -1742,6 +1753,7 @@ print_internal (Lisp_Object obj, Lisp_Ob lheader, l->data_); break; } +#endif /* not NEW_GC */ } } = @@ -2219,9 +2231,9 @@ debug_p4 (Lisp_Object obj) debug_out ("#<%s addr=3D0x%lx uid=3D0x%lx>", LHEADER_IMPLEMENTATION (header)->name, (EMACS_INT) header, - LHEADER_IMPLEMENTATION (header)->basic_p ? - ((struct lrecord_header *) header)->uid : - ((struct old_lcrecord_header *) header)->uid); + (EMACS_INT) (LHEADER_IMPLEMENTATION (header)->basic_p ? + ((struct lrecord_header *) header)->uid : + ((struct old_lcrecord_header *) header)->uid)); #endif /* not MC_ALLOC */ } = 1.43 +25 -0 XEmacs/xemacs/src/specifier.c Index: specifier.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/specifier.c,v retrieving revision 1.42 retrieving revision 1.43 diff -u -p -r1.42 -r1.43 --- specifier.c 2005/10/24 10:07:40 1.42 +++ specifier.c 2005/11/25 01:42:06 1.43 @@ -302,7 +302,11 @@ finalize_specifier (void *header, int fo /* don't be snafued by the disksave finalization. */ if (!for_disksave && !GHOST_SPECIFIER_P(sp) && sp->caching) { +#ifdef NEW_GC + mc_free (sp->caching); +#else /* not NEW_GC */ xfree (sp->caching, struct specifier_caching *); +#endif /* not NEW_GC */ sp->caching =3D 0; } } @@ -382,10 +386,19 @@ static const struct memory_description s { XD_END } }; = +#ifdef NEW_GC +DEFINE_LRECORD_IMPLEMENTATION ("specifier-caching", = + specifier_caching, + 1, /*dumpable-flag*/ + 0, 0, 0, 0, 0, = + specifier_caching_description_1, + struct specifier_caching); +#else /* not NEW_GC */ static const struct sized_memory_description specifier_caching_description= =3D { sizeof (struct specifier_caching), specifier_caching_description_1 }; +#endif /* not NEW_GC */ = static const struct sized_memory_description specifier_extra_description_m= ap[] =3D { @@ -403,8 +416,12 @@ const struct memory_description specifie { XD_LISP_OBJECT, offsetof (Lisp_Specifier, frame_specs) }, { XD_LISP_OBJECT, offsetof (Lisp_Specifier, window_specs) }, { XD_LISP_OBJECT, offsetof (Lisp_Specifier, buffer_specs) }, +#ifdef NEW_GC + { XD_LISP_OBJECT, offsetof (Lisp_Specifier, caching) }, +#else /* not NEW_GC */ { XD_BLOCK_PTR, offsetof (Lisp_Specifier, caching), 1, { &specifier_caching_description } }, +#endif /* not NEW_GC */ { XD_LISP_OBJECT, offsetof (Lisp_Specifier, magic_parent) }, { XD_LISP_OBJECT, offsetof (Lisp_Specifier, fallback) }, { XD_BLOCK_ARRAY, offsetof (Lisp_Specifier, data), 1, @@ -2996,7 +3013,12 @@ set_specifier_caching (Lisp_Object speci assert (!GHOST_SPECIFIER_P (sp)); = if (!sp->caching) +#ifdef NEW_GC + sp->caching =3D alloc_lrecord_type (struct specifier_caching, + &lrecord_specifier_caching); +#else /* not NEW_GC */ sp->caching =3D xnew_and_zero (struct specifier_caching); +#endif /* not NEW_GC */ sp->caching->offset_into_struct_window =3D struct_window_offset; sp->caching->value_changed_in_window =3D value_changed_in_window; sp->caching->offset_into_struct_frame =3D struct_frame_offset; @@ -3349,6 +3371,9 @@ void syms_of_specifier (void) { INIT_LRECORD_IMPLEMENTATION (specifier); +#ifdef NEW_GC + INIT_LRECORD_IMPLEMENTATION (specifier_caching); +#endif /* NEW_GC */ = DEFSYMBOL (Qspecifierp); = 1.19 +16 -0 XEmacs/xemacs/src/specifier.h Index: specifier.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/specifier.h,v retrieving revision 1.18 retrieving revision 1.19 diff -u -p -r1.18 -r1.19 --- specifier.h 2005/10/24 10:07:41 1.18 +++ specifier.h 2005/11/25 01:42:06 1.19 @@ -423,6 +423,9 @@ enum spec_add_meth = struct specifier_caching { +#ifdef NEW_GC + struct lrecord_header header; +#endif /* NEW_GC */ int offset_into_struct_window; void (*value_changed_in_window) (Lisp_Object specifier, struct window *w, Lisp_Object oldval); @@ -431,6 +434,19 @@ struct specifier_caching Lisp_Object oldval); int always_recompute; }; + +#ifdef NEW_GC +DECLARE_LRECORD (specifier_caching, struct specifier_caching); +#define XSPECIFIER_CACHING(x) \ + XRECORD (x, specifier_caching, struct specifier_caching) +#define wrap_specifier_caching(p) \ + wrap_record (p, specifier_caching) +#define SPECIFIER_CACHINGP(x) RECORDP (x, specifier_caching) +#define CHECK_SPECIFIER_CACHING(x) \ + CHECK_RECORD (x, specifier_caching) +#define CONCHECK_SPECIFIER_CACHING(x) \ + CONCHECK_RECORD (x, specifier_caching) +#endif /* NEW_GC */ = /* #### get image instances out of domains! */ = 1.25 +21 -0 XEmacs/xemacs/src/syntax.c Index: syntax.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/syntax.c,v retrieving revision 1.24 retrieving revision 1.25 diff -u -p -r1.24 -r1.25 --- syntax.c 2005/10/25 11:16:28 1.24 +++ syntax.c 2005/11/25 01:42:06 1.25 @@ -309,10 +309,19 @@ static const struct memory_description s { XD_END } }; = +#ifdef NEW_GC +DEFINE_LRECORD_IMPLEMENTATION ("syntax-cache", syntax_cache, + 1, /*dumpable-flag*/ + 0, 0, 0, 0, 0, + syntax_cache_description_1, + Lisp_Syntax_Cache); +#else /* not NEW_GC */ + const struct sized_memory_description syntax_cache_description =3D { sizeof (struct syntax_cache), syntax_cache_description_1 }; +#endif /* not NEW_GC */ = void mark_buffer_syntax_cache (struct buffer *buf) @@ -344,7 +353,12 @@ void init_buffer_syntax_cache (struct buffer *buf) { struct syntax_cache *cache; +#ifdef NEW_GC + buf->syntax_cache =3D alloc_lrecord_type (struct syntax_cache, + &lrecord_syntax_cache); +#else /* not NEW_GC */ buf->syntax_cache =3D xnew_and_zero (struct syntax_cache); +#endif /* not NEW_GC */ cache =3D buf->syntax_cache; cache->object =3D wrap_buffer (buf); cache->buffer =3D buf; @@ -359,7 +373,11 @@ init_buffer_syntax_cache (struct buffer = void uninit_buffer_syntax_cache (struct buffer *buf) { +#ifdef NEW_GC + mc_free (buf->syntax_cache); +#else /* not NEW_GC */ xfree (buf->syntax_cache, struct syntax_cache *); +#endif /* not NEW_GC */ buf->syntax_cache =3D 0; } = @@ -2313,6 +2331,9 @@ update_syntax_table (Lisp_Object table) void syms_of_syntax (void) { +#ifdef NEW_GC + INIT_LRECORD_IMPLEMENTATION (syntax_cache); +#endif /* NEW_GC */ DEFSYMBOL (Qsyntax_table_p); DEFSYMBOL (Qsyntax_table); = 1.13 +18 -0 XEmacs/xemacs/src/syntax.h Index: syntax.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/syntax.h,v retrieving revision 1.12 retrieving revision 1.13 diff -u -p -r1.12 -r1.13 --- syntax.h 2003/02/20 08:19:43 1.12 +++ syntax.h 2005/11/25 01:42:07 1.13 @@ -295,6 +295,9 @@ extern int lookup_syntax_properties; faster than if we did the whole calculation from scratch. */ struct syntax_cache { +#ifdef NEW_GC + struct lrecord_header header; +#endif /* NEW_GC */ int use_code; /* Whether to use syntax_code or syntax_table. This is set depending on whether the @@ -332,6 +335,21 @@ struct syntax_cache Charxpos prev_change; /* Position of the previous extent change. */ }; + +#ifdef NEW_GC +typedef struct syntax_cache Lisp_Syntax_Cache; + +DECLARE_LRECORD (syntax_cache, Lisp_Syntax_Cache); + +#define XSYNTAX_CACHE(x) \ + XRECORD (x, syntax_cache, Lisp_Syntax_Cache) +#define wrap_syntax_cache(p) wrap_record (p, syntax_cache) +#define SYNTAX_CACHE_P(x) RECORDP (x, syntax_cache) +#define CHECK_SYNTAX_CACHE(x) CHECK_RECORD (x, syntax_cache) +#define CONCHECK_SYNTAX_CACHE(x) CONCHECK_RECORD (x, syntax_cache) +#endif /* NEW_GC */ + + = extern const struct sized_memory_description syntax_cache_description; = 1.90 +69 -0 XEmacs/xemacs/src/window.c Index: window.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/window.c,v retrieving revision 1.89 retrieving revision 1.90 diff -u -p -r1.89 -r1.90 --- window.c 2005/11/18 12:23:57 1.89 +++ window.c 2005/11/25 01:42:08 1.90 @@ -181,40 +181,80 @@ static const struct memory_description f { XD_END } }; = +#ifdef NEW_GC +DEFINE_LRECORD_IMPLEMENTATION ("face-cachel", face_cachel, + 1, /*dumpable-flag*/ + 0, 0, 0, 0, 0, + face_cachel_description_1, + Lisp_Face_Cachel); +#endif /* NEW_GC */ + static const struct sized_memory_description face_cachel_description =3D { sizeof (face_cachel), face_cachel_description_1 }; = static const struct memory_description face_cachel_dynarr_description_1[] = =3D { +#ifdef NEW_GC + XD_LISP_DYNARR_DESC (face_cachel_dynarr, &face_cachel_description), +#else /* not NEW_GC */ XD_DYNARR_DESC (face_cachel_dynarr, &face_cachel_description), +#endif /* not NEW_GC */ { XD_END } }; = +#ifdef NEW_GC +DEFINE_LRECORD_IMPLEMENTATION ("face-cachel-dynarr", face_cachel_dynarr, + 1, /*dumpable-flag*/ + 0, 0, 0, 0, 0, + face_cachel_dynarr_description_1, + face_cachel_dynarr); +#else /* not NEW_GC */ static const struct sized_memory_description face_cachel_dynarr_descriptio= n =3D { sizeof (face_cachel_dynarr), face_cachel_dynarr_description_1 }; +#endif /* not NEW_GC */ = static const struct memory_description glyph_cachel_description_1[] =3D { { XD_LISP_OBJECT, offsetof (glyph_cachel, glyph) }, { XD_END } }; = +#ifdef NEW_GC +DEFINE_LRECORD_IMPLEMENTATION ("glyph-cachel", glyph_cachel, + 1, /*dumpable-flag*/ + 0, 0, 0, 0, 0, + glyph_cachel_description_1, + Lisp_Glyph_Cachel); +#endif /* NEW_GC */ + static const struct sized_memory_description glyph_cachel_description =3D { sizeof (glyph_cachel), glyph_cachel_description_1 }; = static const struct memory_description glyph_cachel_dynarr_description_1[]= =3D { +#ifdef NEW_GC + XD_LISP_DYNARR_DESC (glyph_cachel_dynarr, &glyph_cachel_description), +#else /* not NEW_GC */ XD_DYNARR_DESC (glyph_cachel_dynarr, &glyph_cachel_description), +#endif /* not NEW_GC */ { XD_END } }; = +#ifdef NEW_GC +DEFINE_LRECORD_IMPLEMENTATION ("glyph-cachel-dynarr", glyph_cachel_dynarr, + 1, /*dumpable-flag*/ + 0, 0, 0, 0, 0, + glyph_cachel_dynarr_description_1, + glyph_cachel_dynarr); +#else /* not NEW_GC */ static const struct sized_memory_description glyph_cachel_dynarr_descripti= on =3D { sizeof (glyph_cachel_dynarr), glyph_cachel_dynarr_description_1 }; +#endif /* not NEW_GC */ = static const struct memory_description line_start_cache_description_1[] = =3D { { XD_END } @@ -241,10 +281,15 @@ static const struct memory_description w { XD_LISP_OBJECT_ARRAY, offsetof (struct window, slot), size }, #include "winslots.h" = +#ifdef NEW_GC + { XD_LISP_OBJECT, offsetof (struct window, face_cachels) }, + { XD_LISP_OBJECT, offsetof (struct window, glyph_cachels) }, +#else /* not NEW_GC */ { XD_BLOCK_PTR, offsetof (struct window, face_cachels), 1, { &face_cachel_dynarr_description } }, { XD_BLOCK_PTR, offsetof (struct window, glyph_cachels), 1, { &glyph_cachel_dynarr_description } }, +#endif /* not NEW_GC */ { XD_BLOCK_PTR, offsetof (struct window, line_start_cache), 1, { &line_start_cache_dynarr_description }, XD_FLAG_NO_KKCC }, { XD_END } @@ -362,8 +407,17 @@ allocate_window (void) INIT_DISP_VARIABLE (last_point, Fmake_marker ()); INIT_DISP_VARIABLE (last_start, Fmake_marker ()); INIT_DISP_VARIABLE (last_facechange, Qzero); +#ifdef NEW_GC + p->face_cachels =3D Dynarr_lisp_new (face_cachel, + &lrecord_face_cachel_dynarr, + &lrecord_face_cachel); + p->glyph_cachels =3D Dynarr_lisp_new (glyph_cachel, + &lrecord_glyph_cachel_dynarr, + &lrecord_glyph_cachel); +#else /* not NEW_GC */ p->face_cachels =3D Dynarr_new (face_cachel); p->glyph_cachels =3D Dynarr_new (glyph_cachel); +#endif /* not NEW_GC */ p->line_start_cache =3D Dynarr_new (line_start_cache); p->subwindow_instance_cache =3D make_image_instance_cache_hash_table (); = @@ -3810,8 +3864,17 @@ make_dummy_parent (Lisp_Object window) /* Don't copy the pointers to the line start cache or the face instances. */ p->line_start_cache =3D Dynarr_new (line_start_cache); +#ifdef NEW_GC + p->face_cachels =3D Dynarr_lisp_new (face_cachel, + &lrecord_face_cachel_dynarr, + &lrecord_face_cachel); + p->glyph_cachels =3D Dynarr_lisp_new (glyph_cachel, + &lrecord_glyph_cachel_dynarr, + &lrecord_glyph_cachel); +#else /* not NEW_GC */ p->face_cachels =3D Dynarr_new (face_cachel); p->glyph_cachels =3D Dynarr_new (glyph_cachel); +#endif /* not NEW_GC */ p->subwindow_instance_cache =3D make_image_instance_cache_hash_table (); = @@ -5384,6 +5447,12 @@ syms_of_window (void) { INIT_LRECORD_IMPLEMENTATION (window); INIT_LRECORD_IMPLEMENTATION (window_mirror); +#ifdef NEW_GC + INIT_LRECORD_IMPLEMENTATION (face_cachel); + INIT_LRECORD_IMPLEMENTATION (face_cachel_dynarr); + INIT_LRECORD_IMPLEMENTATION (glyph_cachel); + INIT_LRECORD_IMPLEMENTATION (glyph_cachel_dynarr); +#endif /* NEW_GC */ = DEFSYMBOL (Qwindowp); DEFSYMBOL (Qwindow_live_p); 1.1 XEmacs/xemacs/src/.dbxrc.in Index: .dbxrc.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ## -*- ksh -*- ## Copyright (C) 1998 Free Software Foundation, Inc. ## This file is part of XEmacs. ## XEmacs is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by the ## Free Software Foundation; either version 2, or (at your option) any ## later version. ## XEmacs is distributed in the hope that it will be useful, but WITHOUT ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License ## for more details. ## You should have received a copy of the GNU General Public License ## along with XEmacs; see the file COPYING. If not, write to ## the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ## Boston, MA 02111-1307, USA. ## Author: Martin Buchholz ## You can use this file to debug XEmacs using Sun WorkShop's dbx. ## Some functions defined here require a running process, but most ## don't. Considerable effort has been expended to this end. ## Since this file is called `.dbxrc', it will be read by dbx ## automatically when dbx is run in the build directory, which is where ## developers usually debug their xemacs. ## See also the comments in .gdbinit. ## See also the question of the XEmacs FAQ, titled ## "How to Debug an XEmacs problem with a debugger". ## gdb sources the ./.gdbinit in _addition_ to ~/.gdbinit. ## But dbx does _not_ source ~/.dbxrc if it found ./.dbxrc. ## So we simulate the gdb algorithm by doing it ourselves here. #define NOT_C_CODE #include "config.h" if test -r $HOME/.dbxrc; then . $HOME/.dbxrc; fi dbxenv language_mode ansic ignore POLL ignore IO #ifdef VDB_POSIX ignore SIGSEGV SIGBUS #endif document lbt << 'end' Usage: lbt Print the current Lisp stack trace. Requires a running xemacs process. end function lbt { call debug_backtrace() } document ldp << 'end' Usage: ldp lisp_object Print a Lisp Object value using the Lisp printer. Requires a running xemacs process. end function ldp { call debug_print ($1); } Lisp_Type_Int=3D-2 ## A bug in dbx prevents string variables from having values beginning with= `-'!! function XEmacsInit { function ToInt { eval "$1=3D\$[(int) \`alloc.c\`$1]"; } ToInt dbg_USE_UNION_TYPE ToInt Lisp_Type_Char ToInt Lisp_Type_Record ToInt dbg_valbits ToInt dbg_gctypebits function ToLong { eval "$1=3D\$[(\`alloc.c\`unsigned long) \`alloc.c\`$1]= "; } ToLong dbg_valmask ToLong dbg_typemask xemacs_initted=3Dyes } function printvar { for i in $*; do eval "echo $i=3D\$$i"; done } document decode_object << 'end' Usage: decode_object lisp_object Extract implementation information from a Lisp Object. Defines variables $val, $type and $imp. end ## Various dbx bugs cause ugliness in following code function decode_object { if test -z "$xemacs_initted"; then XEmacsInit; fi; if test $dbg_USE_UNION_TYPE =3D 1; then ## Repeat after me... dbx sux, dbx sux, dbx sux... ## Allow both `pobj Qnil' and `pobj 0x82746834' to work case $(whatis $1) in *Lisp_Object*) obj=3D"$[(`alloc.c`unsigned long)(($1).i)]";; *) obj=3D"$[(`alloc.c`unsigned long)($1)]";; esac else obj=3D"$[(`alloc.c`unsigned long)($1)]"; fi if test $[(int)($obj & 1)] =3D 1; then ## It's an int val=3D$[(long)(((unsigned long long)$obj) >> 1)] type=3D$Lisp_Type_Int else type=3D$[(int)(((void*)$obj) & $dbg_typemask)] if test $type =3D $Lisp_Type_Char; then val=3D$[(void*)(long)(((unsigned long long)($obj & $dbg_valmask)) >> = $dbg_gctypebits)] else ## It's a record pointer val=3D$[(void*)$obj] if test "$val" =3D "(nil)"; then type=3Dnull_pointer; fi fi fi if test $type =3D $Lisp_Type_Record; then lheader=3D"((struct lrecord_header *) $val)" lrecord_type=3D$[(enum lrecord_type) $lheader->type] imp=3D$[(void*)(`alloc.c`lrecord_implementations_table[$lheader->type])] else lheader=3D"((struct lrecord_header *) -1)" lrecord_type=3D-1 imp=3D"0xdeadbeef" fi ## printvar obj val type imp } function xint { decode_object "$*" print (long) ($val) } document xtype << 'end' Usage: xtype lisp_object Print the Lisp type of a lisp object. end function xtype { decode_object "$*" if test $type =3D $Lisp_Type_Int; then echo "int" elif test $type =3D $Lisp_Type_Char; then echo "char" elif test $type =3D null_pointer; then echo "null_pointer" else echo "record type with name: $[((struct lrecord_implementation *)$imp)-= >name]" fi } function lisp-shadows { run -batch -vanilla -f list-load-path-shadows } function environment-to-run-temacs { unset EMACSLOADPATH export EMACSBOOTSTRAPLOADPATH=3D../lisp/:.. export EMACSBOOTSTRAPMODULEPATH=3D../modules/:.. } document run-temacs << 'end' Usage: run-temacs Run temacs interactively, like xemacs. Use this with debugging tools (like purify) that cannot deal with dumping, or when temacs builds successfully, but xemacs does not. end function run-temacs { environment-to-run-temacs run -nd -batch -l ../lisp/loadup.el run-temacs -q ${1+"$@"} } document check-xemacs << 'end' Usage: check-xemacs Run the test suite. Equivalent to 'make check'. end function check-xemacs { run -batch -l ../tests/automated/test-harness.el -f batch-test-emacs ../t= ests/automated } document check-temacs << 'end' Usage: check-temacs Run the test suite on temacs. Equivalent to 'make check-temacs'. Use this with debugging tools (like purify) that cannot deal with dumping, or when temacs builds successfully, but xemacs does not. end function check-temacs { run-temacs -q -batch -l ../tests/automated/test-harness.el -f batch-test-= emacs ../tests/automated } document update-elc << 'end' Usage: update-elc Run the core lisp byte compilation part of the build procedure. Use when debugging temacs, not xemacs! Use this when temacs builds successfully, but xemacs does not. end function update-elc { environment-to-run-temacs run -nd -batch -l ../lisp/update-elc.el } document dmp << 'end' Usage: dmp Run the dumping part of the build procedure. Use when debugging temacs, not xemacs! Use this when temacs builds successfully, but xemacs does not. end function dmp { environment-to-run-temacs run -nd -batch -l ../lisp/loadup.el dump } function pstruct { ## pstruct foo.c struct-name module "$1" > /dev/null type_ptr=3D"((struct $2 *) $val)" print $type_ptr print *$type_ptr } document pobj << 'end' Usage: pobj lisp_object Print the internal C representation of a Lisp Object. end function pobj { decode_object $1 if test $type =3D $Lisp_Type_Int; then print -f"Integer: %d" $val elif test $type =3D $Lisp_Type_Char; then if test $[$val > 32 && $val < 128] =3D 1; then print -f"Char: %c" $val else print -f"Char: %d" $val fi elif test $lrecord_type =3D lrecord_type_string; then pstruct alloc.c Lisp_String elif test $lrecord_type =3D lrecord_type_cons; then pstruct alloc.c Lisp_Cons elif test $lrecord_type =3D lrecord_type_symbol; then pstruct symbols.c Lisp_Symbol echo "Symbol name: $[(char *)($type_ptr->name->data)]" elif test $lrecord_type =3D lrecord_type_vector; then pstruct alloc.c Lisp_Vector echo "Vector of length $[$type_ptr->size]" elif test $lrecord_type =3D lrecord_type_bit_vector; then pstruct fns.c Lisp_Bit_Vector elif test $lrecord_type =3D lrecord_type_buffer; then pstruct buffer.c buffer elif test $lrecord_type =3D lrecord_type_char_table; then pstruct chartab.c Lisp_Char_Table elif test $lrecord_type =3D lrecord_type_char_table_entry; then pstruct chartab.c Lisp_Char_Table_Entry elif test $lrecord_type =3D lrecord_type_charset; then pstruct mule-charset.c Lisp_Charset elif test $lrecord_type =3D lrecord_type_coding_system; then pstruct file-coding.c Lisp_Coding_System elif test $lrecord_type =3D lrecord_type_color_instance; then pstruct objects.c Lisp_Color_Instance elif test $lrecord_type =3D lrecord_type_command_builder; then pstruct event-stream.c command_builder elif test $lrecord_type =3D lrecord_type_compiled_function; then pstruct bytecode.c Lisp_Compiled_Function elif test $lrecord_type =3D lrecord_type_console; then pstruct console.c console elif test $lrecord_type =3D lrecord_type_database; then pstruct database.c Lisp_Database elif test $lrecord_type =3D lrecord_type_device; then pstruct device.c device elif test $lrecord_type =3D lrecord_type_event; then pstruct events.c Lisp_Event elif test $lrecord_type =3D lrecord_type_extent; then pstruct extents.c extent elif test $lrecord_type =3D lrecord_type_extent_auxiliary; then pstruct extents.c extent_auxiliary elif test $lrecord_type =3D lrecord_type_extent_info; then pstruct extents.c extent_info elif test $lrecord_type =3D lrecord_type_face; then pstruct faces.c Lisp_Face elif test $lrecord_type =3D lrecord_type_float; then pstruct floatfns.c Lisp_Float elif test $lrecord_type =3D lrecord_type_font_instance; then pstruct objects.c Lisp_Font_Instance elif test $lrecord_type =3D lrecord_type_frame; then pstruct frame.c frame elif test $lrecord_type =3D lrecord_type_glyph; then pstruct glyph.c Lisp_Glyph elif test $lrecord_type =3D lrecord_type_gui_item; then pstruct gui.c Lisp_Gui_Item elif test $lrecord_type =3D lrecord_type_hash_table; then pstruct elhash.c Lisp_Hash_Table elif test $lrecord_type =3D lrecord_type_image_instance; then pstruct glyphs.c Lisp_Image_Instance elif test $lrecord_type =3D lrecord_type_keymap; then pstruct keymap.c Lisp_Keymap elif test $lrecord_type =3D lrecord_type_lcrecord_list; then pstruct alloc.c lcrecord_list elif test $lrecord_type =3D lrecord_type_ldap; then pstruct ldap.c Lisp_LDAP elif test $lrecord_type =3D lrecord_type_lstream; then pstruct lstream.c lstream elif test $lrecord_type =3D lrecord_type_marker; then pstruct marker.c Lisp_Marker elif test $lrecord_type =3D lrecord_type_opaque; then pstruct opaque.c Lisp_Opaque elif test $lrecord_type =3D lrecord_type_opaque_ptr; then pstruct opaque.c Lisp_Opaque_Ptr elif test $lrecord_type =3D lrecord_type_popup_data; then pstruct gui-x.c popup_data elif test $lrecord_type =3D lrecord_type_process; then pstruct process.c Lisp_Process elif test $lrecord_type =3D lrecord_type_range_table; then pstruct rangetab.c Lisp_Range_Table elif test $lrecord_type =3D lrecord_type_specifier; then pstruct specifier.c Lisp_Specifier elif test $lrecord_type =3D lrecord_type_subr; then pstruct eval.c Lisp_Subr elif test $lrecord_type =3D lrecord_type_symbol_value_buffer_local; then pstruct symbols.c symbol_value_buffer_local elif test $lrecord_type =3D lrecord_type_symbol_value_forward; then pstruct symbols.c symbol_value_forward elif test $lrecord_type =3D lrecord_type_symbol_value_lisp_magic; then pstruct symbols.c symbol_value_lisp_magic elif test $lrecord_type =3D lrecord_type_symbol_value_varalias; then pstruct symbols.c symbol_value_varalias elif test $lrecord_type =3D lrecord_type_timeout; then pstruct event-stream.c Lisp_Timeout elif test $lrecord_type =3D lrecord_type_toolbar_button; then pstruct toolbar.c toolbar_button elif test $lrecord_type =3D lrecord_type_tooltalk_message; then pstruct tooltalk.c Lisp_Tooltalk_Message elif test $lrecord_type =3D lrecord_type_tooltalk_pattern; then pstruct tooltalk.c Lisp_Tooltalk_Pattern elif test $lrecord_type =3D lrecord_type_weak_list; then pstruct data.c weak_list elif test $lrecord_type =3D lrecord_type_window; then pstruct window.c window elif test $lrecord_type =3D lrecord_type_window_configuration; then pstruct window.c window_config elif test "$type" =3D "null_pointer"; then echo "Lisp Object is a null pointer!!" else echo "Unknown Lisp Object type" print $1 fi } dbxenv suppress_startup_message 4.0 ## dbxenv mt_watchpoints on function dp_core { print ((struct x_frame *)(((struct frame*)(Fselected_frame(Qnil)&0x00FFFF= FF))->frame_data))->widget->core } ## Barf! function print_shell { print *(`frame-x.c`TopLevelShellRec*) (((struct `frame-x.c`x_frame*) (((s= truct `frame-x.c`frame*) (Fselected_frame(Qnil)&0x00FFFFFF))->frame_data))-= >widget) } ## ------------------------------------------------------------- ## functions to test the debugging support itself. ## If you change this file, make sure the following still work... ## ------------------------------------------------------------- function test_xtype { function doit { echo -n "$1: "; xtype "$1"; } test_various_objects } function test_pobj { function doit { echo '=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D'; echo -n "$1: "; pobj "$1"; } test_various_objects } function test_various_objects { doit Vemacs_major_version doit Vhelp_char doit Qnil doit Qunbound doit Vobarray doit Vall_weak_lists doit Vxemacs_codename } 1.1 XEmacs/xemacs/src/.gdbinit.in Index: .gdbinit.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ## -*- ksh -*- ## Copyright (C) 1998 Free Software Foundation, Inc. ## This file is part of XEmacs. ## XEmacs is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by the ## Free Software Foundation; either version 2, or (at your option) any ## later version. ## XEmacs is distributed in the hope that it will be useful, but WITHOUT ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License ## for more details. ## You should have received a copy of the GNU General Public License ## along with XEmacs; see the file COPYING. If not, write to ## the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ## Boston, MA 02111-1307, USA. ## Author: Martin Buchholz ## Some useful commands for debugging emacs with gdb 4.16 or better. ## ## Since this file is called `.gdbinit', it will be read by gdb ## automatically when gdb is run in the build directory, which is where ## developers usually debug their xemacs. You can also source this ## file from your ~/.gdbinit, if you like. ## ## Configure xemacs with --debug, and compile with -g. ## ## See also the question of the XEmacs FAQ, titled ## "How to Debug an XEmacs problem with a debugger". ## ## This can be used to debug XEmacs no matter how the following are ## specified: ## USE_UNION_TYPE ## (the above all have configure equivalents) ## Some functions defined here require a running process, but most ## don't. Considerable effort has been expended to this end. ## See the dbg_ C support code in src/alloc.c that allows the functions ## defined in this file to work correctly. #define NOT_C_CODE #include "config.h" set print union off set print pretty off #ifdef VDB_POSIX handle SIGSEGV SIGBUS nostop noprint #endif set $Lisp_Type_Int =3D -2 define decode_object set $obj =3D (unsigned long) $arg0 if $obj & 1 ## It's an int set $val =3D $obj >> 1 set $type =3D $Lisp_Type_Int else set $type =3D $obj & dbg_typemask if $type =3D=3D Lisp_Type_Char set $val =3D ($obj & dbg_valmask) >> dbg_gctypebits else ## It's a record pointer set $val =3D $obj end end if $type =3D=3D Lisp_Type_Record set $lheader =3D ((struct lrecord_header *) $val) set $lrecord_type =3D ($lheader->type) set $imp =3D ((struct lrecord_implementation *) lrecord_implementations= _table[(int) $lrecord_type]) else set $lrecord_type =3D -1 set $lheader =3D -1 set $imp =3D -1 end end document decode_object Usage: decode_object lisp_object Extract implementation information from a Lisp Object. Defines variables $val, $type and $imp. end define xint decode_object $arg0 print ((long) $val) end define xtype decode_object $arg0 if $type =3D=3D $Lisp_Type_Int echo int\n else if $type =3D=3D Lisp_Type_Char echo char\n else printf "record type: %s\n", $imp->name end end end document xtype Usage: xtype lisp_object Print the Lisp type of a lisp object. end define lisp-shadows run -batch -vanilla -f list-load-path-shadows end document lisp-shadows Usage: lisp-shadows Run xemacs to check for lisp shadows end define environment-to-run-temacs unset env EMACSLOADPATH set env EMACSBOOTSTRAPLOADPATH=3D../lisp/:.. set env EMACSBOOTSTRAPMODULEPATH=3D../modules/:.. end define run-temacs environment-to-run-temacs run -nd -batch -l ../lisp/loadup.el run-temacs -q end document run-temacs Usage: run-temacs Run temacs interactively, like xemacs. Use this with debugging tools (like purify) that cannot deal with dumping, or when temacs builds successfully, but xemacs does not. end define check-xemacs run -batch -l ../tests/automated/test-harness.el -f batch-test-emacs ../t= ests/automated end document check-xemacs Usage: check-xemacs Run the test suite. Equivalent to 'make check'. end define check-temacs environment-to-run-temacs run -nd -batch -l ../lisp/loadup.el run-temacs -q -batch -l ../tests/auto= mated/test-harness.el -f batch-test-emacs ../tests/automated end document check-temacs Usage: check-temacs Run the test suite on temacs. Equivalent to 'make check-temacs'. Use this with debugging tools (like purify) that cannot deal with dumping, or when temacs builds successfully, but xemacs does not. end define update-elc environment-to-run-temacs run -nd -batch -l ../lisp/update-elc.el end document update-elc Usage: update-elc Run the core lisp byte compilation part of the build procedure. Use when debugging temacs, not xemacs! Use this when temacs builds successfully, but xemacs does not. end define dmp environment-to-run-temacs run -nd -batch -l ../lisp/loadup.el dump end document dmp Usage: dmp Run the dumping part of the build procedure. Use when debugging temacs, not xemacs! Use this when temacs builds successfully, but xemacs does not. end define ldp printf "%s", "Lisp =3D> " call debug_print($arg0) end document ldp Usage: ldp lisp_object Print a Lisp Object value using the Lisp printer. Requires a running xemacs process. end define lbt call debug_backtrace() end document lbt Usage: lbt Print the current Lisp stack trace. Requires a running xemacs process. end define leval ldp Feval(Fcar(Fread_from_string(build_string($arg0),Qnil,Qnil))) end document leval Usage: leval "SEXP" Eval a lisp expression. Requires a running xemacs process. Example: (gdb) leval "(+ 1 2)" Lisp =3D=3D> 3 end define wtype print $arg0->core.widget_class->core_class.class_name end define xtname print XrmQuarkToString(((Object)($arg0))->object.xrm_name) end ## GDB's command language makes you want to ... define pptype set $type_ptr =3D ($arg0 *) $val print $type_ptr print *$type_ptr end define pstructtype set $type_ptr =3D (struct $arg0 *) $val print $type_ptr print *$type_ptr end define pobj decode_object $arg0 if $type =3D=3D $Lisp_Type_Int printf "Integer: %d\n", $val else if $type =3D=3D Lisp_Type_Char if $val > 32 && $val < 128 printf "Char: %c\n", $val else printf "Char: %d\n", $val end else if $lrecord_type =3D=3D lrecord_type_string pptype Lisp_String else if $lrecord_type =3D=3D lrecord_type_cons pptype Lisp_Cons else if $lrecord_type =3D=3D lrecord_type_symbol pptype Lisp_Symbol printf "Symbol name: %s\n", ((Lisp_String *)$type_ptr->name)->data_ else if $lrecord_type =3D=3D lrecord_type_vector pptype Lisp_Vector printf "Vector of length %d\n", $type_ptr->size ##print *($type_ptr->data) @ $type_ptr->size else if $lrecord_type =3D=3D lrecord_type_bit_vector pptype Lisp_Bit_Vector else if $lrecord_type =3D=3D lrecord_type_buffer pstructtype buffer else if $lrecord_type =3D=3D lrecord_type_char_table pptype Lisp_Char_Table else if $lrecord_type =3D=3D lrecord_type_char_table_entry pptype Lisp_Char_Table_Entry else if $lrecord_type =3D=3D lrecord_type_charset pptype Lisp_Charset else if $lrecord_type =3D=3D lrecord_type_coding_system pptype Lisp_Coding_System else if $lrecord_type =3D=3D lrecord_type_color_instance pptype Lisp_Color_Instance else if $lrecord_type =3D=3D lrecord_type_command_builder pptype command_builder else if $lrecord_type =3D=3D lrecord_type_compiled_function pptype Lisp_Compiled_Function else if $lrecord_type =3D=3D lrecord_type_console pstructtype console else if $lrecord_type =3D=3D lrecord_type_database pptype Lisp_Database else if $lrecord_type =3D=3D lrecord_type_device pstructtype device else if $lrecord_type =3D=3D lrecord_type_event pptype Lisp_Event else if $lrecord_type =3D=3D lrecord_type_extent pstructtype extent else if $lrecord_type =3D=3D lrecord_type_extent_auxiliary pstructtype extent_auxiliary else if $lrecord_type =3D=3D lrecord_type_extent_info pstructtype extent_info else if $lrecord_type =3D=3D lrecord_type_face pptype Lisp_Face else if $lrecord_type =3D=3D lrecord_type_float pptype Lisp_Float else if $lrecord_type =3D=3D lrecord_type_font_instance pptype Lisp_Font_Instance else if $lrecord_type =3D=3D lrecord_type_frame pstructtype frame else if $lrecord_type =3D=3D lrecord_type_glyph pptype Lisp_Glyph else if $lrecord_type =3D=3D lrecord_type_gui_item pptype Lisp_Gui_Item else if $lrecord_type =3D=3D lrecord_type_hash_table pptype Lisp_Hash_Table else if $lrecord_type =3D=3D lrecord_type_image_instance pptype Lisp_Image_Instance else if $lrecord_type =3D=3D lrecord_type_keymap pptype Lisp_Keymap else if $lrecord_type =3D=3D lrecord_type_lcrecord_list pstructtype lcrecord_list else if $lrecord_type =3D=3D lrecord_type_ldap pptype Lisp_LDAP else if $lrecord_type =3D=3D lrecord_type_lstream pstructtype lstream else if $lrecord_type =3D=3D lrecord_type_marker pptype Lisp_Marker else if $lrecord_type =3D=3D lrecord_type_opaque pptype Lisp_Opaque else if $lrecord_type =3D=3D lrecord_type_opaque_ptr pptype Lisp_Opaque_Ptr else if $lrecord_type =3D=3D lrecord_type_popup_data pptype popup_data else if $lrecord_type =3D=3D lrecord_type_process pptype Lisp_Process else if $lrecord_type =3D=3D lrecord_type_range_table pptype Lisp_Range_Table else if $lrecord_type =3D=3D lrecord_type_specifier pptype Lisp_Specifier else if $lrecord_type =3D=3D lrecord_type_subr pptype Lisp_Subr else if $lrecord_type =3D=3D lrecord_type_symbol_value_buffer_local pstructtype symbol_value_buffer_local else if $lrecord_type =3D=3D lrecord_type_symbol_value_forward pstructtype symbol_value_forward else if $lrecord_type =3D=3D lrecord_type_symbol_value_lisp_magic pstructtype symbol_value_lisp_magic else if $lrecord_type =3D=3D lrecord_type_symbol_value_varalias pstructtype symbol_value_varalias else if $lrecord_type =3D=3D lrecord_type_timeout pptype Lisp_Timeout else if $lrecord_type =3D=3D lrecord_type_toolbar_button pstructtype toolbar_button else if $lrecord_type =3D=3D lrecord_type_tooltalk_message pptype Lisp_Tooltalk_Message else if $lrecord_type =3D=3D lrecord_type_tooltalk_pattern pptype Lisp_Tooltalk_Pattern else if $lrecord_type =3D=3D lrecord_type_weak_list pstructtype weak_list else if $lrecord_type =3D=3D lrecord_type_window pstructtype window else if $lrecord_type =3D=3D lrecord_type_window_configuration pstructtype window_config else if $lrecord_type =3D=3D lrecord_type_fc_pattern pstructtype fc_pattern else if $lrecord_type =3D=3D lrecord_type_fc_objectset pstructtype fc_objectset else if $lrecord_type =3D=3D lrecord_type_fc_fontset pstructtype fc_fontset else echo Unknown Lisp Object type\n print $arg0 ## Barf, gag, retch end end end = end end end end end end end end end end end end end end end end end ## Repeat after me... gdb sux, gdb sux, gdb sux... end end end end end end end end end end end end end end end end end end ## Are we having fun yet?? end end end end end end end end end end end end end end end end end end end document pobj Usage: pobj lisp_object Print the internal C representation of a Lisp Object. end ## ------------------------------------------------------------- ## functions to test the debugging support itself. ## If you change this file, make sure the following still work... ## ------------------------------------------------------------- define test_xtype printf "Vemacs_major_version: " xtype Vemacs_major_version printf "Vhelp_char: " xtype Vhelp_char printf "Qnil: " xtype Qnil printf "Qunbound: " xtype Qunbound printf "Vobarray: " xtype Vobarray printf "Vall_weak_lists: " xtype Vall_weak_lists printf "Vxemacs_codename: " xtype Vxemacs_codename end define test_pobj printf "Vemacs_major_version: " pobj Vemacs_major_version printf "Vhelp_char: " pobj Vhelp_char printf "Qnil: " pobj Qnil printf "Qunbound: " pobj Qunbound printf "Vobarray: " pobj Vobarray printf "Vall_weak_lists: " pobj Vall_weak_lists printf "Vxemacs_codename: " pobj Vxemacs_codename end 1.1 XEmacs/xemacs/src/gc.c Index: gc.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D /* New incremental garbage collector for XEmacs. Copyright (C) 2005 Marcus Crestani. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ #include #include "lisp.h" #include "backtrace.h" #include "buffer.h" #include "bytecode.h" #include "chartab.h" #include "console-stream.h" #include "device.h" #include "elhash.h" #include "events.h" #include "extents-impl.h" #include "file-coding.h" #include "frame-impl.h" #include "gc.h" #include "glyphs.h" #include "opaque.h" #include "lrecord.h" #include "lstream.h" #include "process.h" #include "profile.h" #include "redisplay.h" #include "specifier.h" #include "sysfile.h" #include "sysdep.h" #include "window.h" #include "vdb.h" #define GC_CONS_THRESHOLD 2000000 #define GC_CONS_INCREMENTAL_THRESHOLD 200000 #define GC_INCREMENTAL_TRAVERSAL_THRESHOLD 100000 /* Number of bytes of consing done since the last GC. */ EMACS_INT consing_since_gc; /* Number of bytes of consing done since startup. */ EMACS_UINT total_consing; /* Number of bytes of current allocated heap objects. */ EMACS_INT total_gc_usage; /* If the above is set. */ int total_gc_usage_set; /* Number of bytes of consing since gc before another gc should be done. */ EMACS_INT gc_cons_threshold; /* Nonzero during gc */ int gc_in_progress; /* Percentage of consing of total data size before another GC. */ EMACS_INT gc_cons_percentage; #ifdef NEW_GC /* Number of bytes of consing since gc before another cycle of the gc should be done in incremental mode. */ EMACS_INT gc_cons_incremental_threshold; /* Number of elements marked in one cycle of incremental GC. */ EMACS_INT gc_incremental_traversal_threshold; /* Nonzero during write barrier */ int write_barrier_enabled; #endif /* NEW_GC */ =0C #ifdef NEW_GC /************************************************************************/ /* Incremental State and Statistics */ /************************************************************************/ enum gc_phase { NONE, INIT_GC, PUSH_ROOT_SET, MARK, REPUSH_ROOT_SET, FINISH_MARK, FINALIZE, SWEEP, FINISH_GC }; #ifndef ERROR_CHECK_GC struct { enum gc_phase phase; } gc_state; #else /* ERROR_CHECK_GC */ enum gc_stat_id { GC_STAT_TOTAL, GC_STAT_IN_LAST_GC, GC_STAT_IN_THIS_GC, GC_STAT_IN_LAST_CYCLE, GC_STAT_IN_THIS_CYCLE, GC_STAT_COUNT /* has to be last */ }; struct { enum gc_phase phase; EMACS_INT n_gc[GC_STAT_COUNT]; EMACS_INT n_cycles[GC_STAT_COUNT]; EMACS_INT enqueued[GC_STAT_COUNT]; EMACS_INT dequeued[GC_STAT_COUNT]; EMACS_INT repushed[GC_STAT_COUNT]; EMACS_INT enqueued2[GC_STAT_COUNT]; EMACS_INT dequeued2[GC_STAT_COUNT]; EMACS_INT finalized[GC_STAT_COUNT]; EMACS_INT freed[GC_STAT_COUNT]; EMACS_INT explicitly_freed; EMACS_INT explicitly_tried_freed; } gc_state; #endif /* ERROR_CHECK_GC */ #define GC_PHASE gc_state.phase #define GC_SET_PHASE(p) GC_PHASE =3D p #ifdef ERROR_CHECK_GC # define GC_STAT_START_NEW_GC gc_stat_start_new_gc () # define GC_STAT_RESUME_GC gc_stat_resume_gc () #define GC_STAT_TICK(STAT) \ gc_state.STAT[GC_STAT_TOTAL]++; \ gc_state.STAT[GC_STAT_IN_THIS_GC]++; \ gc_state.STAT[GC_STAT_IN_THIS_CYCLE]++ # define GC_STAT_ENQUEUED \ if (GC_PHASE =3D=3D REPUSH_ROOT_SET) \ { \ GC_STAT_TICK (enqueued2); \ } \ else \ { \ GC_STAT_TICK (enqueued); \ } = # define GC_STAT_DEQUEUED \ if (gc_state.phase =3D=3D REPUSH_ROOT_SET) \ { \ GC_STAT_TICK (dequeued2); \ } \ else \ { \ GC_STAT_TICK (dequeued); \ } = # define GC_STAT_REPUSHED GC_STAT_TICK (repushed) #define GC_STAT_RESUME(stat) \ gc_state.stat[GC_STAT_IN_LAST_CYCLE] =3D \ gc_state.stat[GC_STAT_IN_THIS_CYCLE]; \ gc_state.stat[GC_STAT_IN_THIS_CYCLE] =3D 0 #define GC_STAT_RESTART(stat) \ gc_state.stat[GC_STAT_IN_LAST_GC] =3D \ gc_state.stat[GC_STAT_IN_THIS_GC]; \ gc_state.stat[GC_STAT_IN_THIS_GC] =3D 0; \ GC_STAT_RESUME (stat) void gc_stat_start_new_gc (void) { gc_state.n_gc[GC_STAT_TOTAL]++; gc_state.n_cycles[GC_STAT_TOTAL]++; gc_state.n_cycles[GC_STAT_IN_LAST_GC] =3D gc_state.n_cycles[GC_STAT_IN_TH= IS_GC]; gc_state.n_cycles[GC_STAT_IN_THIS_GC] =3D 1; = GC_STAT_RESTART (enqueued); GC_STAT_RESTART (dequeued); GC_STAT_RESTART (repushed); GC_STAT_RESTART (finalized); GC_STAT_RESTART (enqueued2); GC_STAT_RESTART (dequeued2); GC_STAT_RESTART (freed); } = void gc_stat_resume_gc (void) { gc_state.n_cycles[GC_STAT_TOTAL]++; gc_state.n_cycles[GC_STAT_IN_THIS_GC]++; GC_STAT_RESUME (enqueued); GC_STAT_RESUME (dequeued); GC_STAT_RESUME (repushed); GC_STAT_RESUME (finalized); GC_STAT_RESUME (enqueued2); GC_STAT_RESUME (dequeued2); GC_STAT_RESUME (freed); } void gc_stat_finalized (void) { GC_STAT_TICK (finalized); } void gc_stat_freed (void) { GC_STAT_TICK (freed); } void gc_stat_explicitly_freed (void) { gc_state.explicitly_freed++; } void gc_stat_explicitly_tried_freed (void) { gc_state.explicitly_tried_freed++; } #define GC_STAT_PRINT_ONE(stat) \ printf (" | %9s %10d %10d %10d %10d %10d\n", \ #stat, \ (int) gc_state.stat[GC_STAT_TOTAL], \ (int) gc_state.stat[GC_STAT_IN_LAST_GC], \ (int) gc_state.stat[GC_STAT_IN_THIS_GC], \ (int) gc_state.stat[GC_STAT_IN_LAST_CYCLE], \ (int) gc_state.stat[GC_STAT_IN_THIS_CYCLE]) void gc_stat_print_stats (void) { printf (" | PHASE %d TOTAL_GC %d\n", (int) GC_PHASE, (int) gc_state.n_gc[GC_STAT_TOTAL]); printf (" | %9s %10s %10s %10s %10s %10s\n", "stat", "total", "last_gc", "this_gc", "last_cycle", "this_cycle"); printf (" | %9s %10d %10d %10d \n", "cycle", (int) gc_state.n_cycles[GC_STAT_TOTAL], (int) gc_state.n_cycles[GC_STAT_IN_LAST_GC], (int) gc_state.n_cycles[GC_STAT_IN_THIS_GC]); GC_STAT_PRINT_ONE (enqueued); GC_STAT_PRINT_ONE (dequeued); GC_STAT_PRINT_ONE (repushed); GC_STAT_PRINT_ONE (enqueued2); GC_STAT_PRINT_ONE (dequeued2); GC_STAT_PRINT_ONE (finalized); GC_STAT_PRINT_ONE (freed); printf (" | explicitly freed %d tried %d\n", = (int) gc_state.explicitly_freed, = (int) gc_state.explicitly_tried_freed); } DEFUN("gc-stats", Fgc_stats, 0, 0 ,"", /* Return statistics about garbage collection cycles in a property list. */ ()) { Lisp_Object pl =3D Qnil; #define PL(name,value) \ pl =3D cons3 (intern (name), make_int ((int) gc_state.value), pl) PL ("explicitly-tried-freed", explicitly_tried_freed); PL ("explicitly-freed", explicitly_freed); PL ("freed-in-this-cycle", freed[GC_STAT_IN_THIS_CYCLE]); PL ("freed-in-this-gc", freed[GC_STAT_IN_THIS_GC]); PL ("freed-in-last-cycle", freed[GC_STAT_IN_LAST_CYCLE]); PL ("freed-in-last-gc", freed[GC_STAT_IN_LAST_GC]); PL ("freed-total", freed[GC_STAT_TOTAL]); PL ("finalized-in-this-cycle", finalized[GC_STAT_IN_THIS_CYCLE]); PL ("finalized-in-this-gc", finalized[GC_STAT_IN_THIS_GC]); PL ("finalized-in-last-cycle", finalized[GC_STAT_IN_LAST_CYCLE]); PL ("finalized-in-last-gc", finalized[GC_STAT_IN_LAST_GC]); PL ("finalized-total", finalized[GC_STAT_TOTAL]); PL ("repushed-in-this-cycle", repushed[GC_STAT_IN_THIS_CYCLE]); PL ("repushed-in-this-gc", repushed[GC_STAT_IN_THIS_GC]); PL ("repushed-in-last-cycle", repushed[GC_STAT_IN_LAST_CYCLE]); PL ("repushed-in-last-gc", repushed[GC_STAT_IN_LAST_GC]); PL ("repushed-total", repushed[GC_STAT_TOTAL]); PL ("dequeued2-in-this-cycle", dequeued2[GC_STAT_IN_THIS_CYCLE]); PL ("dequeued2-in-this-gc", dequeued2[GC_STAT_IN_THIS_GC]); PL ("dequeued2-in-last-cycle", dequeued2[GC_STAT_IN_LAST_CYCLE]); PL ("dequeued2-in-last-gc", dequeued2[GC_STAT_IN_LAST_GC]); PL ("dequeued2-total", dequeued2[GC_STAT_TOTAL]); PL ("enqueued2-in-this-cycle", enqueued2[GC_STAT_IN_THIS_CYCLE]); PL ("enqueued2-in-this-gc", enqueued2[GC_STAT_IN_THIS_GC]); PL ("enqueued2-in-last-cycle", enqueued2[GC_STAT_IN_LAST_CYCLE]); PL ("enqueued2-in-last-gc", enqueued2[GC_STAT_IN_LAST_GC]); PL ("enqueued2-total", enqueued2[GC_STAT_TOTAL]); PL ("dequeued-in-this-cycle", dequeued[GC_STAT_IN_THIS_CYCLE]); PL ("dequeued-in-this-gc", dequeued[GC_STAT_IN_THIS_GC]); PL ("dequeued-in-last-cycle", dequeued[GC_STAT_IN_LAST_CYCLE]); PL ("dequeued-in-last-gc", dequeued[GC_STAT_IN_LAST_GC]); PL ("dequeued-total", dequeued[GC_STAT_TOTAL]); PL ("enqueued-in-this-cycle", enqueued[GC_STAT_IN_THIS_CYCLE]); PL ("enqueued-in-this-gc", enqueued[GC_STAT_IN_THIS_GC]); PL ("enqueued-in-last-cycle", enqueued[GC_STAT_IN_LAST_CYCLE]); PL ("enqueued-in-last-gc", enqueued[GC_STAT_IN_LAST_GC]); PL ("enqueued-total", enqueued[GC_STAT_TOTAL]); PL ("n-cycles-in-this-gc", n_cycles[GC_STAT_IN_THIS_GC]); PL ("n-cycles-in-last-gc", n_cycles[GC_STAT_IN_LAST_GC]); PL ("n-cycles-total", n_cycles[GC_STAT_TOTAL]); PL ("n-gc-total", n_gc[GC_STAT_TOTAL]); PL ("phase", phase); return pl; } #else /* not ERROR_CHECK_GC */ # define GC_STAT_START_NEW_GC # define GC_STAT_RESUME_GC # define GC_STAT_ENQUEUED # define GC_STAT_DEQUEUED # define GC_STAT_REPUSHED # define GC_STAT_REMOVED #endif /* not ERROR_CHECK_GC */ #endif /* NEW_GC */ =0C /************************************************************************/ /* Recompute need to garbage collect */ /************************************************************************/ int need_to_garbage_collect; #ifdef ERROR_CHECK_GC int always_gc =3D 0; /* Debugging hack; equivalent to (setq gc-cons-thresold -1) */ #else #define always_gc 0 #endif /* True if it's time to garbage collect now. */ void recompute_need_to_garbage_collect (void) { if (always_gc) need_to_garbage_collect =3D 1; else need_to_garbage_collect =3D = #ifdef NEW_GC write_barrier_enabled ? = (consing_since_gc > gc_cons_incremental_threshold) : #endif /* NEW_GC */ (consing_since_gc > gc_cons_threshold && #if 0 /* #### implement this better */ (100 * consing_since_gc) / total_data_usage () >=3D gc_cons_percentage #else (!total_gc_usage_set || (100 * consing_since_gc) / total_gc_usage >=3D gc_cons_percentage) #endif ); recompute_funcall_allocation_flag (); } =0C /************************************************************************/ /* Mark Phase */ /************************************************************************/ static const struct memory_description lisp_object_description_1[] =3D { { XD_LISP_OBJECT, 0 }, { XD_END } }; const struct sized_memory_description lisp_object_description =3D { sizeof (Lisp_Object), lisp_object_description_1 }; #if defined (USE_KKCC) || defined (PDUMP) /* This function extracts the value of a count variable described somewhere = else in the description. It is converted corresponding to the type */ = EMACS_INT lispdesc_indirect_count_1 (EMACS_INT code, const struct memory_description *idesc, const void *idata) { EMACS_INT count; const void *irdata; int line =3D XD_INDIRECT_VAL (code); int delta =3D XD_INDIRECT_DELTA (code); irdata =3D ((char *) idata) + lispdesc_indirect_count (idesc[line].offset, idesc, idata); switch (idesc[line].type) { case XD_BYTECOUNT: count =3D * (Bytecount *) irdata; break; case XD_ELEMCOUNT: count =3D * (Elemcount *) irdata; break; case XD_HASHCODE: count =3D * (Hashcode *) irdata; break; case XD_INT: count =3D * (int *) irdata; break; case XD_LONG: count =3D * (long *) irdata; break; default: stderr_out ("Unsupported count type : %d (line =3D %d, code =3D %ld)\= n", idesc[line].type, line, (long) code); #if defined(USE_KKCC) && defined(DEBUG_XEMACS) if (gc_in_progress) kkcc_backtrace (); #endif #ifdef PDUMP if (in_pdump) pdump_backtrace (); #endif count =3D 0; /* warning suppression */ ABORT (); } count +=3D delta; return count; } /* SDESC is a "description map" (basically, a list of offsets used for successive indirections) and OBJ is the first object to indirect off of. Return the description ultimately found. */ const struct sized_memory_description * lispdesc_indirect_description_1 (const void *obj, const struct sized_memory_description *sdesc) { int pos; for (pos =3D 0; sdesc[pos].size >=3D 0; pos++) obj =3D * (const void **) ((const char *) obj + sdesc[pos].size); return (const struct sized_memory_description *) obj; } /* Compute the size of the data at RDATA, described by a single entry DESC1 in a description array. OBJ and DESC are used for XD_INDIRECT references. */ static Bytecount lispdesc_one_description_line_size (void *rdata, const struct memory_description *desc1, const void *obj, const struct memory_description *desc) { union_switcheroo: switch (desc1->type) { case XD_LISP_OBJECT_ARRAY: { EMACS_INT val =3D lispdesc_indirect_count (desc1->data1, desc, obj); return (val * sizeof (Lisp_Object)); } case XD_LISP_OBJECT: case XD_LO_LINK: return sizeof (Lisp_Object); case XD_OPAQUE_PTR: return sizeof (void *); #ifdef NEW_GC case XD_LISP_OBJECT_BLOCK_PTR: #endif /* NEW_GC */ case XD_BLOCK_PTR: { EMACS_INT val =3D lispdesc_indirect_count (desc1->data1, desc, obj); return val * sizeof (void *); } case XD_BLOCK_ARRAY: { EMACS_INT val =3D lispdesc_indirect_count (desc1->data1, desc, obj); = return (val * lispdesc_block_size (rdata, lispdesc_indirect_description (obj, desc1->data2.descr))); } case XD_OPAQUE_DATA_PTR: return sizeof (void *); case XD_UNION_DYNAMIC_SIZE: { /* If an explicit size was given in the first-level structure description, use it; else compute size based on current union constant. */ const struct sized_memory_description *sdesc =3D lispdesc_indirect_description (obj, desc1->data2.descr); if (sdesc->size) return sdesc->size; else { desc1 =3D lispdesc_process_xd_union (desc1, desc, obj); if (desc1) goto union_switcheroo; break; } } case XD_UNION: { /* If an explicit size was given in the first-level structure description, use it; else compute size based on maximum of all possible structures. */ const struct sized_memory_description *sdesc =3D lispdesc_indirect_description (obj, desc1->data2.descr); if (sdesc->size) return sdesc->size; else { int count; Bytecount max_size =3D -1, size; desc1 =3D sdesc->description; for (count =3D 0; desc1[count].type !=3D XD_END; count++) { size =3D lispdesc_one_description_line_size (rdata, &desc1[count], obj, desc); if (size > max_size) max_size =3D size; } return max_size; } } case XD_ASCII_STRING: return sizeof (void *); case XD_DOC_STRING: return sizeof (void *); case XD_INT_RESET: return sizeof (int); case XD_BYTECOUNT: return sizeof (Bytecount); case XD_ELEMCOUNT: return sizeof (Elemcount); case XD_HASHCODE: return sizeof (Hashcode); case XD_INT: return sizeof (int); case XD_LONG: return sizeof (long); default: stderr_out ("Unsupported dump type : %d\n", desc1->type); ABORT (); } return 0; } /* Return the size of the memory block (NOT necessarily a structure!) = described by SDESC and pointed to by OBJ. If SDESC records an explicit size (i.e. non-zero), it is simply returned; otherwise, the size is calculated by the maximum offset and the size of the object at that offset, rounded up to the maximum alignment. In this case, we may need the object, for example when retrieving an "indirect count" of an inlined array (the count is not constant, but is specified by one of the elements of the memory block). (It is generally not a problem if we return an overly large size -- we will simply end up reserving more space than necessary; but if the size is too small we could be in serious trouble, in particular with nested inlined structures, where there may be alignment padding in the middle of a block. #### In fact there is an (at least theoretical) problem with an overly large size -- we may trigger a protection fault when reading from invalid memory. We need to handle this -- perhaps in a stupid but dependable way, i.e. by trapping SIGSEGV and SIGBUS.) */ Bytecount lispdesc_block_size_1 (const void *obj, Bytecount size, const struct memory_description *desc) { EMACS_INT max_offset =3D -1; int max_offset_pos =3D -1; int pos; if (size) return size; for (pos =3D 0; desc[pos].type !=3D XD_END; pos++) { EMACS_INT offset =3D lispdesc_indirect_count (desc[pos].offset, desc,= obj); if (offset =3D=3D max_offset) { stderr_out ("Two relocatable elements at same offset?\n"); ABORT (); } else if (offset > max_offset) { max_offset =3D offset; max_offset_pos =3D pos; } } if (max_offset_pos < 0) return 0; { Bytecount size_at_max; size_at_max =3D lispdesc_one_description_line_size ((char *) obj + max_offset, &desc[max_offset_pos], obj, desc); /* We have no way of knowing the required alignment for this structure, so just make it maximally aligned. */ return MAX_ALIGN_SIZE (max_offset + size_at_max); } } #endif /* defined (USE_KKCC) || defined (PDUMP) */ #ifdef MC_ALLOC #define GC_CHECK_NOT_FREE(lheader) \ gc_checking_assert (! LRECORD_FREE_P (lheader)); #else /* MC_ALLOC */ #define GC_CHECK_NOT_FREE(lheader) \ gc_checking_assert (! LRECORD_FREE_P (lheader)); \ gc_checking_assert (LHEADER_IMPLEMENTATION (lheader)->basic_p || \ ! ((struct old_lcrecord_header *) lheader)->free) #endif /* MC_ALLOC */ #ifdef USE_KKCC /* The following functions implement the new mark algorithm. = They mark objects according to their descriptions. They = are modeled on the corresponding pdumper procedures. */ #if 0 # define KKCC_STACK_AS_QUEUE 1 #endif #ifdef DEBUG_XEMACS /* The backtrace for the KKCC mark functions. */ #define KKCC_INIT_BT_STACK_SIZE 4096 typedef struct { void *obj; const struct memory_description *desc; int pos; } kkcc_bt_stack_entry; static kkcc_bt_stack_entry *kkcc_bt; static int kkcc_bt_stack_size; static int kkcc_bt_depth =3D 0; static void kkcc_bt_init (void) { kkcc_bt_depth =3D 0; kkcc_bt_stack_size =3D KKCC_INIT_BT_STACK_SIZE; kkcc_bt =3D (kkcc_bt_stack_entry *) xmalloc_and_zero (kkcc_bt_stack_size * sizeof (kkcc_bt_stack_entry)); if (!kkcc_bt) { stderr_out ("KKCC backtrace stack init failed for size %d\n", kkcc_bt_stack_size); ABORT (); } } void kkcc_backtrace (void) { int i; stderr_out ("KKCC mark stack backtrace :\n"); for (i =3D kkcc_bt_depth - 1; i >=3D 0; i--) { Lisp_Object obj =3D wrap_pointer_1 (kkcc_bt[i].obj); stderr_out (" [%d]", i); if ((XRECORD_LHEADER (obj)->type >=3D lrecord_type_last_built_in_type) || (!LRECORDP (obj)) || (!XRECORD_LHEADER_IMPLEMENTATION (obj))) { stderr_out (" non Lisp Object"); } else { stderr_out (" %s", XRECORD_LHEADER_IMPLEMENTATION (obj)->name); } stderr_out (" (addr: 0x%x, desc: 0x%x, ", (int) kkcc_bt[i].obj, (int) kkcc_bt[i].desc); if (kkcc_bt[i].pos >=3D 0) stderr_out ("pos: %d)\n", kkcc_bt[i].pos); else if (kkcc_bt[i].pos =3D=3D -1) stderr_out ("root set)\n"); else if (kkcc_bt[i].pos =3D=3D -2) stderr_out ("dirty object)\n"); } } static void kkcc_bt_stack_realloc (void) { kkcc_bt_stack_size *=3D 2; kkcc_bt =3D (kkcc_bt_stack_entry *) xrealloc (kkcc_bt, kkcc_bt_stack_size * sizeof (kkcc_bt_stack_entry)); if (!kkcc_bt) { stderr_out ("KKCC backtrace stack realloc failed for size %d\n", = kkcc_bt_stack_size); ABORT (); } } static void kkcc_bt_free (void) { xfree_1 (kkcc_bt); kkcc_bt =3D 0; kkcc_bt_stack_size =3D 0; } static void kkcc_bt_push (void *obj, const struct memory_description *desc, = int level, int pos) { kkcc_bt_depth =3D level; kkcc_bt[kkcc_bt_depth].obj =3D obj; kkcc_bt[kkcc_bt_depth].desc =3D desc; kkcc_bt[kkcc_bt_depth].pos =3D pos; kkcc_bt_depth++; if (kkcc_bt_depth >=3D kkcc_bt_stack_size) kkcc_bt_stack_realloc (); } #else /* not DEBUG_XEMACS */ #define kkcc_bt_init() #define kkcc_bt_push(obj, desc, level, pos) #endif /* not DEBUG_XEMACS */ /* Object memory descriptions are in the lrecord_implementation structure. But copying them to a parallel array is much more cache-friendly. */ const struct memory_description *lrecord_memory_descriptions[countof (lreco= rd_implementations_table)]; /* the initial stack size in kkcc_gc_stack_entries */ #define KKCC_INIT_GC_STACK_SIZE 16384 typedef struct { void *data; const struct memory_description *desc; #ifdef DEBUG_XEMACS int level; int pos; #endif } kkcc_gc_stack_entry; static kkcc_gc_stack_entry *kkcc_gc_stack_ptr; static int kkcc_gc_stack_front; static int kkcc_gc_stack_rear; static int kkcc_gc_stack_size; #define KKCC_INC(i) ((i + 1) % kkcc_gc_stack_size) #define KKCC_INC2(i) ((i + 2) % kkcc_gc_stack_size) #define KKCC_GC_STACK_FULL (KKCC_INC2 (kkcc_gc_stack_rear) =3D=3D kkcc_gc_s= tack_front) #define KKCC_GC_STACK_EMPTY (KKCC_INC (kkcc_gc_stack_rear) =3D=3D kkcc_gc_s= tack_front) static void kkcc_gc_stack_init (void) { kkcc_gc_stack_size =3D KKCC_INIT_GC_STACK_SIZE; kkcc_gc_stack_ptr =3D (kkcc_gc_stack_entry *) xmalloc_and_zero (kkcc_gc_stack_size * sizeof (kkcc_gc_stack_entry)); if (!kkcc_gc_stack_ptr) = { stderr_out ("stack init failed for size %d\n", kkcc_gc_stack_size); ABORT (); } kkcc_gc_stack_front =3D 0; kkcc_gc_stack_rear =3D kkcc_gc_stack_size - 1; } static void kkcc_gc_stack_free (void) { xfree_1 (kkcc_gc_stack_ptr); kkcc_gc_stack_ptr =3D 0; kkcc_gc_stack_front =3D 0; kkcc_gc_stack_rear =3D 0; kkcc_gc_stack_size =3D 0; } static void kkcc_gc_stack_realloc (void) { kkcc_gc_stack_entry *old_ptr =3D kkcc_gc_stack_ptr; int old_size =3D kkcc_gc_stack_size; kkcc_gc_stack_size *=3D 2; kkcc_gc_stack_ptr =3D (kkcc_gc_stack_entry *) xmalloc_and_zero (kkcc_gc_stack_size * sizeof (kkcc_gc_stack_entry)); if (!kkcc_gc_stack_ptr) { stderr_out ("stack realloc failed for size %d\n", kkcc_gc_stack_size); ABORT (); } if (kkcc_gc_stack_rear >=3D kkcc_gc_stack_front) { int number_elements =3D kkcc_gc_stack_rear - kkcc_gc_stack_front + 1; memcpy (kkcc_gc_stack_ptr, &old_ptr[kkcc_gc_stack_front], = number_elements * sizeof (kkcc_gc_stack_entry)); kkcc_gc_stack_front =3D 0; kkcc_gc_stack_rear =3D number_elements - 1; } else { int number_elements =3D old_size - kkcc_gc_stack_front; memcpy (kkcc_gc_stack_ptr, &old_ptr[kkcc_gc_stack_front], number_elements * sizeof (kkcc_gc_stack_entry)); memcpy (&kkcc_gc_stack_ptr[number_elements], &old_ptr[0], (kkcc_gc_stack_rear + 1) * sizeof (kkcc_gc_stack_entry)); kkcc_gc_stack_front =3D 0; kkcc_gc_stack_rear =3D kkcc_gc_stack_rear + number_elements; } xfree_1 (old_ptr); } static void #ifdef DEBUG_XEMACS kkcc_gc_stack_push_1 (void *data, const struct memory_description *desc, int level, int pos) #else kkcc_gc_stack_push_1 (void *data, const struct memory_description *desc) #endif { #ifdef NEW_GC GC_STAT_ENQUEUED; #endif /* NEW_GC */ if (KKCC_GC_STACK_FULL) kkcc_gc_stack_realloc(); kkcc_gc_stack_rear =3D KKCC_INC (kkcc_gc_stack_rear); kkcc_gc_stack_ptr[kkcc_gc_stack_rear].data =3D data; kkcc_gc_stack_ptr[kkcc_gc_stack_rear].desc =3D desc; #ifdef DEBUG_XEMACS kkcc_gc_stack_ptr[kkcc_gc_stack_rear].level =3D level; kkcc_gc_stack_ptr[kkcc_gc_stack_rear].pos =3D pos; #endif } #ifdef DEBUG_XEMACS #define kkcc_gc_stack_push(data, desc, level, pos) \ kkcc_gc_stack_push_1 (data, desc, level, pos) #else #define kkcc_gc_stack_push(data, desc, level, pos) \ kkcc_gc_stack_push_1 (data, desc) #endif static kkcc_gc_stack_entry * kkcc_gc_stack_pop (void) { if (KKCC_GC_STACK_EMPTY) return 0; #ifdef NEW_GC GC_STAT_DEQUEUED; #endif /* NEW_GC */ #ifndef KKCC_STACK_AS_QUEUE /* stack behaviour */ return &kkcc_gc_stack_ptr[kkcc_gc_stack_rear--]; #else /* queue behaviour */ { int old_front =3D kkcc_gc_stack_front; kkcc_gc_stack_front =3D KKCC_INC (kkcc_gc_stack_front); return &kkcc_gc_stack_ptr[old_front]; } #endif } void #ifdef DEBUG_XEMACS kkcc_gc_stack_push_lisp_object_1 (Lisp_Object obj, int level, int pos) #else kkcc_gc_stack_push_lisp_object_1 (Lisp_Object obj) #endif { if (XTYPE (obj) =3D=3D Lisp_Type_Record) { struct lrecord_header *lheader =3D XRECORD_LHEADER (obj); const struct memory_description *desc; GC_CHECK_LHEADER_INVARIANTS (lheader); desc =3D RECORD_DESCRIPTION (lheader); if (! MARKED_RECORD_HEADER_P (lheader)) = { #ifdef NEW_GC MARK_GREY (lheader); #else /* not NEW_GC */ MARK_RECORD_HEADER (lheader); #endif /* not NEW_GC */ kkcc_gc_stack_push ((void *) lheader, desc, level, pos); } } } #ifdef NEW_GC #ifdef DEBUG_XEMACS #define kkcc_gc_stack_push_lisp_object(obj, level, pos) \ kkcc_gc_stack_push_lisp_object_1 (obj, level, pos) #else #define kkcc_gc_stack_push_lisp_object(obj, level, pos) \ kkcc_gc_stack_push_lisp_object_1 (obj) #endif void #ifdef DEBUG_XEMACS kkcc_gc_stack_repush_dirty_object_1 (Lisp_Object obj, int level, int pos) #else kkcc_gc_stack_repush_dirty_object_1 (Lisp_Object obj) #endif { if (XTYPE (obj) =3D=3D Lisp_Type_Record) { struct lrecord_header *lheader =3D XRECORD_LHEADER (obj); const struct memory_description *desc; GC_STAT_REPUSHED; GC_CHECK_LHEADER_INVARIANTS (lheader); desc =3D RECORD_DESCRIPTION (lheader); MARK_GREY (lheader); kkcc_gc_stack_push ((void*) lheader, desc, level, pos); } } #endif /* NEW_GC */ #ifdef ERROR_CHECK_GC #define KKCC_DO_CHECK_FREE(obj, allow_free) \ do \ { \ if (!allow_free && XTYPE (obj) =3D=3D Lisp_Type_Record) \ { \ struct lrecord_header *lheader =3D XRECORD_LHEADER (obj); \ GC_CHECK_NOT_FREE (lheader); \ } \ } while (0) #else #define KKCC_DO_CHECK_FREE(obj, allow_free) #endif #ifdef ERROR_CHECK_GC #ifdef DEBUG_XEMACS static void mark_object_maybe_checking_free_1 (Lisp_Object obj, int allow_free, int level, int pos) #else static void mark_object_maybe_checking_free_1 (Lisp_Object obj, int allow_free) #endif { KKCC_DO_CHECK_FREE (obj, allow_free); kkcc_gc_stack_push_lisp_object (obj, level, pos); } #ifdef DEBUG_XEMACS #define mark_object_maybe_checking_free(obj, allow_free, level, pos) \ mark_object_maybe_checking_free_1 (obj, allow_free, level, pos) #else #define mark_object_maybe_checking_free(obj, allow_free, level, pos) \ mark_object_maybe_checking_free_1 (obj, allow_free) #endif #else /* not ERROR_CHECK_GC */ #define mark_object_maybe_checking_free(obj, allow_free, level, pos) \ kkcc_gc_stack_push_lisp_object (obj, level, pos) #endif /* not ERROR_CHECK_GC */ /* This function loops all elements of a struct pointer and calls = mark_with_description with each element. */ static void #ifdef DEBUG_XEMACS mark_struct_contents_1 (const void *data, const struct sized_memory_description *sdesc, int count, int level, int pos) #else mark_struct_contents_1 (const void *data, const struct sized_memory_description *sdesc, int count) #endif { int i; Bytecount elsize; elsize =3D lispdesc_block_size (data, sdesc); for (i =3D 0; i < count; i++) { kkcc_gc_stack_push (((char *) data) + elsize * i, sdesc->description, level, pos); } } #ifdef DEBUG_XEMACS #define mark_struct_contents(data, sdesc, count, level, pos) \ mark_struct_contents_1 (data, sdesc, count, level, pos) #else #define mark_struct_contents(data, sdesc, count, level, pos) \ mark_struct_contents_1 (data, sdesc, count) #endif #ifdef NEW_GC /* This function loops all elements of a struct pointer and calls = mark_with_description with each element. */ static void #ifdef DEBUG_XEMACS mark_lisp_object_block_contents_1 (const void *data, const struct sized_memory_description *sdesc, int count, int level, int pos) #else mark_lisp_object_block_contents_1 (const void *data, const struct sized_memory_description *sdesc, int count) #endif { int i; Bytecount elsize; elsize =3D lispdesc_block_size (data, sdesc); for (i =3D 0; i < count; i++) { const Lisp_Object obj =3D wrap_pointer_1 (((char *) data) + elsize * = i); if (XTYPE (obj) =3D=3D Lisp_Type_Record) { struct lrecord_header *lheader =3D XRECORD_LHEADER (obj); const struct memory_description *desc; GC_CHECK_LHEADER_INVARIANTS (lheader); desc =3D sdesc->description; if (! MARKED_RECORD_HEADER_P (lheader)) = { MARK_GREY (lheader); kkcc_gc_stack_push ((void *) lheader, desc, level, pos); } } } } #ifdef DEBUG_XEMACS #define mark_lisp_object_block_contents(data, sdesc, count, level, pos) \ mark_lisp_object_block_contents_1 (data, sdesc, count, level, pos) #else #define mark_lisp_object_block_contents(data, sdesc, count, level, pos) \ mark_lisp_object_block_contents_1 (data, sdesc, count) #endif #endif /* not NEW_GC */ /* This function implements the KKCC mark algorithm. Instead of calling mark_object, all the alive Lisp_Objects are pushed on the kkcc_gc_stack. This function processes all elements on the stack according to their descriptions. */ static void kkcc_marking ( #ifdef NEW_GC int cnt #else /* not NEW_GC */ int UNUSED(cnt) #endif /* not NEW_GC */ = ) { kkcc_gc_stack_entry *stack_entry =3D 0; void *data =3D 0; const struct memory_description *desc =3D 0; int pos; #ifdef NEW_GC int count =3D cnt; #endif /* NEW_GC */ #ifdef DEBUG_XEMACS int level =3D 0; #endif = while ((stack_entry =3D kkcc_gc_stack_pop ()) !=3D 0) { data =3D stack_entry->data; desc =3D stack_entry->desc; #ifdef DEBUG_XEMACS level =3D stack_entry->level + 1; #endif kkcc_bt_push (data, desc, stack_entry->level, stack_entry->pos); #ifdef NEW_GC /* Mark black if object is currently grey. This first checks, if the object is really allocated on the mc-heap. If it is, it can be marked black; if it is not, it cannot be marked. */ maybe_mark_black (data); #endif /* NEW_GC */ if (!data) continue; gc_checking_assert (data); gc_checking_assert (desc); for (pos =3D 0; desc[pos].type !=3D XD_END; pos++) { const struct memory_description *desc1 =3D &desc[pos]; const void *rdata =3D (const char *) data + lispdesc_indirect_count (desc1->offset, desc, data); union_switcheroo: = /* If the flag says don't mark, then don't mark. */ if ((desc1->flags) & XD_FLAG_NO_KKCC) continue; switch (desc1->type) { case XD_BYTECOUNT: case XD_ELEMCOUNT: case XD_HASHCODE: case XD_INT: case XD_LONG: case XD_INT_RESET: case XD_LO_LINK: case XD_OPAQUE_PTR: case XD_OPAQUE_DATA_PTR: case XD_ASCII_STRING: case XD_DOC_STRING: break; case XD_LISP_OBJECT: = { const Lisp_Object *stored_obj =3D (const Lisp_Object *) rdata; /* Because of the way that tagged objects work (pointers and Lisp_Objects have the same representation), XD_LISP_OBJECT can be used for untagged pointers. They might be NULL, though. */ if (EQ (*stored_obj, Qnull_pointer)) break; #ifdef MC_ALLOC mark_object_maybe_checking_free (*stored_obj, 0, level, pos); #else /* not MC_ALLOC */ mark_object_maybe_checking_free (*stored_obj, (desc1->flags) & XD_FLAG_FREE_LISP_OBJECT, level, pos); #endif /* not MC_ALLOC */ break; } case XD_LISP_OBJECT_ARRAY: { int i; EMACS_INT count =3D lispdesc_indirect_count (desc1->data1, desc, data); = for (i =3D 0; i < count; i++) { const Lisp_Object *stored_obj =3D (const Lisp_Object *) rdata + i; if (EQ (*stored_obj, Qnull_pointer)) break; #ifdef MC_ALLOC mark_object_maybe_checking_free = (*stored_obj, 0, level, pos); #else /* not MC_ALLOC */ mark_object_maybe_checking_free (*stored_obj, (desc1->flags) & XD_FLAG_FREE_LISP_OBJECT, level, pos); #endif /* not MC_ALLOC */ } break; } #ifdef NEW_GC case XD_LISP_OBJECT_BLOCK_PTR: { EMACS_INT count =3D lispdesc_indirect_count (desc1->data1, desc, data); const struct sized_memory_description *sdesc =3D lispdesc_indirect_description (data, desc1->data2.descr); const char *dobj =3D * (const char **) rdata; if (dobj) mark_lisp_object_block_contents = (dobj, sdesc, count, level, pos); break; } #endif /* NEW_GC */ case XD_BLOCK_PTR: { EMACS_INT count =3D lispdesc_indirect_count (desc1->data1, desc, data); const struct sized_memory_description *sdesc =3D lispdesc_indirect_description (data, desc1->data2.descr); const char *dobj =3D * (const char **) rdata; if (dobj) mark_struct_contents (dobj, sdesc, count, level, pos); break; } case XD_BLOCK_ARRAY: { EMACS_INT count =3D lispdesc_indirect_count (desc1->data1, desc, data); const struct sized_memory_description *sdesc =3D lispdesc_indirect_description (data, desc1->data2.descr); = mark_struct_contents (rdata, sdesc, count, level, pos); break; } case XD_UNION: case XD_UNION_DYNAMIC_SIZE: desc1 =3D lispdesc_process_xd_union (desc1, desc, data); if (desc1) goto union_switcheroo; break; = default: stderr_out ("Unsupported description type : %d\n", desc1->type); kkcc_backtrace (); ABORT (); } } #ifdef NEW_GC if (cnt) = if (!--count) break; #endif /* NEW_GC */ } } #endif /* USE_KKCC */ /* I hate duplicating all this crap! */ int marked_p (Lisp_Object obj) { /* Checks we used to perform. */ /* if (EQ (obj, Qnull_pointer)) return 1; */ /* if (!POINTER_TYPE_P (XGCTYPE (obj))) return 1; */ /* if (PURIFIED (XPNTR (obj))) return 1; */ if (XTYPE (obj) =3D=3D Lisp_Type_Record) { struct lrecord_header *lheader =3D XRECORD_LHEADER (obj); GC_CHECK_LHEADER_INVARIANTS (lheader); return MARKED_RECORD_HEADER_P (lheader); } return 1; } /* Mark reference to a Lisp_Object. If the object referred to has not been seen yet, recursively mark all the references contained in it. */ void mark_object ( #ifdef USE_KKCC Lisp_Object UNUSED (obj) #else Lisp_Object obj #endif ) { #ifdef USE_KKCC /* this code should never be reached when configured for KKCC */ stderr_out ("KKCC: Invalid mark_object call.\n"); stderr_out ("Replace mark_object with kkcc_gc_stack_push_lisp_object.\n"); ABORT (); #else /* not USE_KKCC */ tail_recurse: /* Checks we used to perform */ /* if (EQ (obj, Qnull_pointer)) return; */ /* if (!POINTER_TYPE_P (XGCTYPE (obj))) return; */ /* if (PURIFIED (XPNTR (obj))) return; */ if (XTYPE (obj) =3D=3D Lisp_Type_Record) { struct lrecord_header *lheader =3D XRECORD_LHEADER (obj); GC_CHECK_LHEADER_INVARIANTS (lheader); /* We handle this separately, above, so we can mark free objects */ GC_CHECK_NOT_FREE (lheader); /* All c_readonly objects have their mark bit set, so that we only need to check the mark bit here. */ if (! MARKED_RECORD_HEADER_P (lheader)) { MARK_RECORD_HEADER (lheader); if (RECORD_MARKER (lheader)) { obj =3D RECORD_MARKER (lheader) (obj); if (!NILP (obj)) goto tail_recurse; } } } #endif /* not KKCC */ } =0C /************************************************************************/ /* Hooks */ /************************************************************************/ /* Nonzero when calling certain hooks or doing other things where a GC would be bad. It prevents infinite recursive calls to gc. */ int gc_currently_forbidden; int begin_gc_forbidden (void) { return internal_bind_int (&gc_currently_forbidden, 1); } void end_gc_forbidden (int count) { unbind_to (count); } /* Hooks. */ Lisp_Object Vpre_gc_hook, Qpre_gc_hook; Lisp_Object Vpost_gc_hook, Qpost_gc_hook; /* Maybe we want to use this when doing a "panic" gc after memory_full()? */ static int gc_hooks_inhibited; struct post_gc_action { void (*fun) (void *); void *arg; }; typedef struct post_gc_action post_gc_action; typedef struct { Dynarr_declare (post_gc_action); } post_gc_action_dynarr; static post_gc_action_dynarr *post_gc_actions; /* Register an action to be called at the end of GC. gc_in_progress is 0 when this is called. This is used when it is discovered that an action needs to be taken, but it's during GC, so it's not safe. (e.g. in a finalize method.) As a general rule, do not use Lisp objects here. And NEVER signal an error. */ void register_post_gc_action (void (*fun) (void *), void *arg) { post_gc_action action; if (!post_gc_actions) post_gc_actions =3D Dynarr_new (post_gc_action); action.fun =3D fun; action.arg =3D arg; Dynarr_add (post_gc_actions, action); } static void run_post_gc_actions (void) { int i; if (post_gc_actions) { for (i =3D 0; i < Dynarr_length (post_gc_actions); i++) { post_gc_action action =3D Dynarr_at (post_gc_actions, i); (action.fun) (action.arg); } Dynarr_reset (post_gc_actions); } } =0C /************************************************************************/ /* Garbage Collection */ /************************************************************************/ /* Enable/disable incremental garbage collection during runtime. */ int allow_incremental_gc; /* For profiling. */ static Lisp_Object QSin_garbage_collection; /* Nonzero means display messages at beginning and end of GC. */ int garbage_collection_messages; /* "Garbage collecting" */ Lisp_Object Vgc_message; Lisp_Object Vgc_pointer_glyph; static const Ascbyte gc_default_message[] =3D "Garbage collecting"; Lisp_Object Qgarbage_collecting; /* "Locals" during GC. */ struct frame *f; int speccount; int cursor_changed; Lisp_Object pre_gc_cursor; /* PROFILE_DECLARE */ int do_backtrace; struct backtrace backtrace; /* Maximum amount of C stack to save when a GC happens. */ #ifndef MAX_SAVE_STACK #define MAX_SAVE_STACK 0 /* 16000 */ #endif void gc_prepare (void) { #if MAX_SAVE_STACK > 0 char stack_top_variable; extern char *stack_bottom; #endif #ifdef NEW_GC GC_STAT_START_NEW_GC; GC_SET_PHASE (INIT_GC); #endif /* NEW_GC */ do_backtrace =3D profiling_active || backtrace_with_internal_sections; assert (!gc_in_progress); assert (!in_display || gc_currently_forbidden); PROFILE_RECORD_ENTERING_SECTION (QSin_garbage_collection); /* We used to call selected_frame() here. The following functions cannot be called inside GC so we move to after the above tests. */ { Lisp_Object frame; Lisp_Object device =3D Fselected_device (Qnil); if (NILP (device)) /* Could happen during startup, eg. if always_gc */ return; frame =3D Fselected_frame (device); if (NILP (frame)) invalid_state ("No frames exist on device", device); f =3D XFRAME (frame); } pre_gc_cursor =3D Qnil; cursor_changed =3D 0; need_to_signal_post_gc =3D 0; recompute_funcall_allocation_flag (); if (!gc_hooks_inhibited) run_hook_trapping_problems (Qgarbage_collecting, Qpre_gc_hook, INHIBIT_EXISTING_PERMANENT_DISPLAY_OBJECT_DELETION); /* Now show the GC cursor/message. */ if (!noninteractive) { if (FRAME_WIN_P (f)) { Lisp_Object frame =3D wrap_frame (f); Lisp_Object cursor =3D glyph_image_instance (Vgc_pointer_glyph, FRAME_SELECTED_WINDOW (f), ERROR_ME_NOT, 1); pre_gc_cursor =3D f->pointer; if (POINTER_IMAGE_INSTANCEP (cursor) /* don't change if we don't know how to change back. */ && POINTER_IMAGE_INSTANCEP (pre_gc_cursor)) { cursor_changed =3D 1; Fset_frame_pointer (frame, cursor); } } /* Don't print messages to the stream device. */ if (!cursor_changed && !FRAME_STREAM_P (f)) { if (garbage_collection_messages) { Lisp_Object args[2], whole_msg; args[0] =3D (STRINGP (Vgc_message) ? Vgc_message : build_msg_string (gc_default_message)); args[1] =3D build_string ("..."); whole_msg =3D Fconcat (2, args); echo_area_message (f, (Ibyte *) 0, whole_msg, 0, -1, Qgarbage_collecting); } } } /***** Now we actually start the garbage collection. */ gc_in_progress =3D 1; #ifndef NEW_GC inhibit_non_essential_conversion_operations =3D 1; #endif /* NEW_GC */ #if MAX_SAVE_STACK > 0 /* Save a copy of the contents of the stack, for debugging. */ if (!purify_flag) { /* Static buffer in which we save a copy of the C stack at each GC. = */ static char *stack_copy; static Bytecount stack_copy_size; ptrdiff_t stack_diff =3D &stack_top_variable - stack_bottom; Bytecount stack_size =3D (stack_diff > 0 ? stack_diff : -stack_diff); if (stack_size < MAX_SAVE_STACK) { if (stack_copy_size < stack_size) { stack_copy =3D (char *) xrealloc (stack_copy, stack_size); stack_copy_size =3D stack_size; } memcpy (stack_copy, stack_diff > 0 ? stack_bottom : &stack_top_variable, stack_size); } } #endif /* MAX_SAVE_STACK > 0 */ /* Do some totally ad-hoc resource clearing. */ /* #### generalize this? */ clear_event_resource (); cleanup_specifiers (); cleanup_buffer_undo_lists (); } void gc_mark_root_set ( #ifdef NEW_GC enum gc_phase phase #else /* not NEW_GC */ void #endif /* not NEW_GC */ ) { #ifdef NEW_GC GC_SET_PHASE (phase); #endif /* NEW_GC */ /* Mark all the special slots that serve as the roots of accessibility. */ #ifdef USE_KKCC # define mark_object(obj) kkcc_gc_stack_push_lisp_object (obj, 0, -1) #endif /* USE_KKCC */ { /* staticpro() */ Lisp_Object **p =3D Dynarr_begin (staticpros); Elemcount count; for (count =3D Dynarr_length (staticpros); count; count--) /* Need to check if the pointer in the staticpro array is not NULL. A gc can occur after variable is added to the staticpro array and _before_ it is correctly initialized. In this case its value is NULL, which we have to catch here. */ if (*p) mark_object (**p++); else **p++; } { /* staticpro_nodump() */ Lisp_Object **p =3D Dynarr_begin (staticpros_nodump); Elemcount count; for (count =3D Dynarr_length (staticpros_nodump); count; count--) /* Need to check if the pointer in the staticpro array is not NULL. A gc can occur after variable is added to the staticpro array and _before_ it is correctly initialized. In this case its value is NULL, which we have to catch here. */ if (*p) mark_object (**p++); else **p++; } #ifdef MC_ALLOC { /* mcpro () */ Lisp_Object *p =3D Dynarr_begin (mcpros); Elemcount count; for (count =3D Dynarr_length (mcpros); count; count--) mark_object (*p++); } #endif /* MC_ALLOC */ { /* GCPRO() */ struct gcpro *tail; int i; for (tail =3D gcprolist; tail; tail =3D tail->next) for (i =3D 0; i < tail->nvars; i++) mark_object (tail->var[i]); } { /* specbind() */ struct specbinding *bind; for (bind =3D specpdl; bind !=3D specpdl_ptr; bind++) { mark_object (bind->symbol); mark_object (bind->old_value); } } { struct catchtag *c; for (c =3D catchlist; c; c =3D c->next) { mark_object (c->tag); mark_object (c->val); mark_object (c->actual_tag); mark_object (c->backtrace); } } { struct backtrace *backlist; for (backlist =3D backtrace_list; backlist; backlist =3D backlist->next) { int nargs =3D backlist->nargs; int i; mark_object (*backlist->function); if (nargs < 0 /* nargs =3D=3D UNEVALLED || nargs =3D=3D MANY */ /* might be fake (internal profiling entry) */ && backlist->args) mark_object (backlist->args[0]); else for (i =3D 0; i < nargs; i++) mark_object (backlist->args[i]); } } mark_profiling_info (); #ifdef USE_KKCC # undef mark_object #endif } void gc_finish_mark (void) { #ifdef NEW_GC GC_SET_PHASE (FINISH_MARK); #endif /* NEW_GC */ init_marking_ephemerons (); while (finish_marking_weak_hash_tables () > 0 || finish_marking_weak_lists () > 0 || continue_marking_ephemerons () > 0) #ifdef USE_KKCC { kkcc_marking (0); } #else /* not USE_KKCC */ ; #endif /* not USE_KKCC */ /* At this point, we know which objects need to be finalized: we still need to resurrect them */ while (finish_marking_ephemerons () > 0 || finish_marking_weak_lists () > 0 || finish_marking_weak_hash_tables () > 0) #ifdef USE_KKCC { kkcc_marking (0); } #else /* not USE_KKCC */ ; #endif /* not USE_KKCC */ /* And prune (this needs to be called after everything else has been marked and before we do any sweeping). */ /* #### this is somewhat ad-hoc and should probably be an object method */ prune_weak_hash_tables (); prune_weak_lists (); prune_specifiers (); prune_syntax_tables (); prune_ephemerons (); prune_weak_boxes (); } #ifdef NEW_GC void gc_finalize (void) { GC_SET_PHASE (FINALIZE); mc_finalize (); } void gc_sweep (void) { GC_SET_PHASE (SWEEP); mc_sweep (); } #endif /* NEW_GC */ void gc_finish (void) { #ifdef NEW_GC GC_SET_PHASE (FINISH_GC); #endif /* NEW_GC */ consing_since_gc =3D 0; #ifndef DEBUG_XEMACS /* Allow you to set it really fucking low if you really want ... */ if (gc_cons_threshold < 10000) gc_cons_threshold =3D 10000; #endif recompute_need_to_garbage_collect (); #ifndef NEW_GC inhibit_non_essential_conversion_operations =3D 0; #endif /* not NEW_GC */ gc_in_progress =3D 0; run_post_gc_actions (); /******* End of garbage collection ********/ /* Now remove the GC cursor/message */ if (!noninteractive) { if (cursor_changed) Fset_frame_pointer (wrap_frame (f), pre_gc_cursor); else if (!FRAME_STREAM_P (f)) { /* Show "...done" only if the echo area would otherwise be empty. */ if (NILP (clear_echo_area (selected_frame (), Qgarbage_collecting, 0))) { if (garbage_collection_messages) { Lisp_Object args[2], whole_msg; args[0] =3D (STRINGP (Vgc_message) ? Vgc_message : build_msg_string (gc_default_message)); args[1] =3D build_msg_string ("... done"); whole_msg =3D Fconcat (2, args); echo_area_message (selected_frame (), (Ibyte *) 0, whole_msg, 0, -1, Qgarbage_collecting); } } } } #ifndef MC_ALLOC if (!breathing_space) { breathing_space =3D malloc (4096 - MALLOC_OVERHEAD); } #endif /* not MC_ALLOC */ need_to_signal_post_gc =3D 1; funcall_allocation_flag =3D 1; PROFILE_RECORD_EXITING_SECTION (QSin_garbage_collection); #ifdef NEW_GC GC_SET_PHASE (NONE); #endif /* NEW_GC */ } #ifdef NEW_GC void gc_suspend_mark_phase (void) { PROFILE_RECORD_EXITING_SECTION (QSin_garbage_collection); write_barrier_enabled =3D 1; consing_since_gc =3D 0; vdb_start_dirty_bits_recording (); } int gc_resume_mark_phase (void) { PROFILE_RECORD_ENTERING_SECTION (QSin_garbage_collection); assert (write_barrier_enabled); vdb_stop_dirty_bits_recording (); write_barrier_enabled =3D 0; return vdb_read_dirty_bits (); } int gc_mark (int incremental) { GC_SET_PHASE (MARK); if (!incremental) { kkcc_marking (0); } else = { kkcc_marking (gc_incremental_traversal_threshold); if (!KKCC_GC_STACK_EMPTY) { gc_suspend_mark_phase (); return 0; } } return 1; } int gc_resume_mark (int incremental) { if (!incremental) { if (!KKCC_GC_STACK_EMPTY) { GC_STAT_RESUME_GC; /* An incremental garbage collection is already running --- now wrap it up and resume it atomically. */ gc_resume_mark_phase (); gc_mark_root_set (REPUSH_ROOT_SET); kkcc_marking (0); } } else { int repushed_objects; int mark_work; GC_STAT_RESUME_GC; repushed_objects =3D gc_resume_mark_phase (); mark_work =3D (gc_incremental_traversal_threshold > repushed_objects)= ? gc_incremental_traversal_threshold : repushed_objects; kkcc_marking (mark_work); if (KKCC_GC_STACK_EMPTY) { /* Mark root set again and finish up marking. */ gc_mark_root_set (REPUSH_ROOT_SET); kkcc_marking (0); } else { gc_suspend_mark_phase (); return 0; } } return 1; } void gc_1 (int incremental) { switch (GC_PHASE) { case NONE: gc_prepare (); kkcc_gc_stack_init(); #ifdef DEBUG_XEMACS kkcc_bt_init (); #endif case INIT_GC: gc_mark_root_set (PUSH_ROOT_SET); case PUSH_ROOT_SET: if (!gc_mark (incremental)) return; /* suspend gc */ case MARK: if (!KKCC_GC_STACK_EMPTY) if (!gc_resume_mark (incremental)) return; /* suspend gc */ gc_finish_mark (); kkcc_gc_stack_free (); #ifdef DEBUG_XEMACS kkcc_bt_free (); #endif case FINISH_MARK: gc_finalize (); case FINALIZE: gc_sweep (); case SWEEP: gc_finish (); case FINISH_GC: break; } } void gc (int incremental) { if (gc_currently_forbidden || in_display || preparing_for_armageddon) return; /* Very important to prevent GC during any of the following stuff that might run Lisp code; otherwise, we'll likely have infinite GC recursion. */ speccount =3D begin_gc_forbidden (); gc_1 (incremental); /* now stop inhibiting GC */ unbind_to (speccount); } void = gc_full (void) { gc (0); } DEFUN ("gc-full", Fgc_full, 0, 0, "", /* This function performs a full garbage collection. If an incremental garbage collection is already running, it completes without any further interruption. This function guarantees that unused objects are freed when it returns. Garbage collection happens automatically if the client allocates more than `gc-cons-threshold' bytes of Lisp data since the previous garbage collection. */ ()) { gc_full (); return Qt; } void = gc_incremental (void) { gc (allow_incremental_gc); } DEFUN ("gc-incremental", Fgc_incremental, 0, 0, "", /* This function starts an incremental garbage collection. If an incremental garbage collection is already running, the next cycle starts. Note that this function has not necessarily freed any memory when it returns. This function only guarantees, that the traversal of the heap makes progress. The next cycle of incremental garbage collection happens automatically if the client allocates more than `gc-incremental-cons-threshold' bytes of Lisp data since previous garbage collection. */ ()) { gc_incremental (); return Qt; } #else /* not NEW_GC */ void garbage_collect_1 (void) { if (gc_in_progress || gc_currently_forbidden || in_display || preparing_for_armageddon) return; /* Very important to prevent GC during any of the following stuff that might run Lisp code; otherwise, we'll likely have infinite GC recursion. */ speccount =3D begin_gc_forbidden (); gc_prepare (); #ifdef USE_KKCC kkcc_gc_stack_init(); #ifdef DEBUG_XEMACS kkcc_bt_init (); #endif #endif /* USE_KKCC */ gc_mark_root_set (); #ifdef USE_KKCC kkcc_marking (0); #endif /* USE_KKCC */ gc_finish_mark (); #ifdef USE_KKCC kkcc_gc_stack_free (); #ifdef DEBUG_XEMACS kkcc_bt_free (); #endif #endif /* USE_KKCC */ gc_sweep_1 (); gc_finish (); /* now stop inhibiting GC */ unbind_to (speccount); } #endif /* not NEW_GC */ =0C /************************************************************************/ /* Initializations */ /************************************************************************/ /* Initialization */ static void common_init_gc_early (void) { Vgc_message =3D Qzero; gc_currently_forbidden =3D 0; gc_hooks_inhibited =3D 0; need_to_garbage_collect =3D always_gc; gc_cons_threshold =3D GC_CONS_THRESHOLD; gc_cons_percentage =3D 40; /* #### what is optimal? */ total_gc_usage_set =3D 0; #ifdef NEW_GC gc_cons_incremental_threshold =3D GC_CONS_INCREMENTAL_THRESHOLD; gc_incremental_traversal_threshold =3D GC_INCREMENTAL_TRAVERSAL_THRESHOLD; #endif /* not NEW_GC */ } void init_gc_early (void) { } void reinit_gc_early (void) { common_init_gc_early (); } void init_gc_once_early (void) { common_init_gc_early (); } void syms_of_gc (void) { DEFSYMBOL (Qpre_gc_hook); DEFSYMBOL (Qpost_gc_hook); #ifdef NEW_GC DEFSUBR (Fgc_full); DEFSUBR (Fgc_incremental); #ifdef ERROR_CHECK_GC DEFSUBR (Fgc_stats); #endif /* not ERROR_CHECK_GC */ #endif /* NEW_GC */ } void vars_of_gc (void) { staticpro_nodump (&pre_gc_cursor); QSin_garbage_collection =3D build_msg_string ("(in garbage collection)"); staticpro (&QSin_garbage_collection); DEFVAR_INT ("gc-cons-threshold", &gc_cons_threshold /* *Number of bytes of consing between full garbage collections. \"Consing\" is a misnomer in that this actually counts allocation of all different kinds of objects, not just conses. Garbage collection can happen automatically once this many bytes have been allocated since the last garbage collection. All data types count. Garbage collection happens automatically when `eval' or `funcall' are called. (Note that `funcall' is called implicitly as part of evaluation.) By binding this temporarily to a large number, you can effectively prevent garbage collection during a part of the program. Normally, you cannot set this value less than 10,000 (if you do, it is automatically reset during the next garbage collection). However, if XEmacs was compiled with DEBUG_XEMACS, this does not happen, allowing you to set this value very low to track down problems with insufficient GCPRO'ing. If you set this to a negative number, garbage collection will happen at *EVERY* call to `eval' or `funcall'. This is an extremely effective way to check GCPRO problems, but be warned that your XEmacs will be unusable! You almost certainly won't have the patience to wait long enough to be able to set it back. = See also `consing-since-gc' and `gc-cons-percentage'. */ ); DEFVAR_INT ("gc-cons-percentage", &gc_cons_percentage /* *Percentage of memory allocated between garbage collections. Garbage collection will happen if this percentage of the total amount of memory used for data (see `lisp-object-memory-usage') has been allocated since the last garbage collection. However, it will not happen if less than `gc-cons-threshold' bytes have been allocated -- this sets an absolute minimum in case very little data has been allocated or the percentage is set very low. Set this to 0 to have garbage collection always happen after `gc-cons-threshold' bytes have been allocated, regardless of current memory usage. See also `consing-since-gc' and `gc-cons-threshold'. */ ); #ifdef NEW_GC DEFVAR_INT ("gc-cons-incremental-threshold", = &gc_cons_incremental_threshold /* *Number of bytes of consing between cycles of incremental garbage collections. \"Consing\" is a misnomer in that this actually counts allocation of all different kinds of objects, not just conses. The next garbage collection cycle can happen automatically once this many bytes have been allocated since the last garbage collection cycle. All data types count. See also `gc-cons-threshold'. */ ); DEFVAR_INT ("gc-incremental-traversal-threshold", = &gc_incremental_traversal_threshold /* *Number of elements processed in one cycle of incremental travesal. */ ); #endif /* NEW_GC */ DEFVAR_BOOL ("purify-flag", &purify_flag /* Non-nil means loading Lisp code in order to dump an executable. This means that certain objects should be allocated in readonly space. */ ); DEFVAR_BOOL ("garbage-collection-messages", &garbage_collection_messages = /* Non-nil means display messages at start and end of garbage collection. */ ); garbage_collection_messages =3D 0; DEFVAR_LISP ("pre-gc-hook", &Vpre_gc_hook /* Function or functions to be run just before each garbage collection. Interrupts, garbage collection, and errors are inhibited while this hook runs, so be extremely careful in what you add here. In particular, avoid consing, and do not interact with the user. */ ); Vpre_gc_hook =3D Qnil; DEFVAR_LISP ("post-gc-hook", &Vpost_gc_hook /* Function or functions to be run just after each garbage collection. Interrupts, garbage collection, and errors are inhibited while this hook runs. Each hook is called with one argument which is an alist with finalization data. */ ); Vpost_gc_hook =3D Qnil; DEFVAR_LISP ("gc-message", &Vgc_message /* String to print to indicate that a garbage collection is in progress. This is printed in the echo area. If the selected frame is on a window system and `gc-pointer-glyph' specifies a value (i.e. a pointer image instance) in the domain of the selected frame, the mouse pointer will change instead of this message being printed. */ ); Vgc_message =3D build_string (gc_default_message); DEFVAR_LISP ("gc-pointer-glyph", &Vgc_pointer_glyph /* Pointer glyph used to indicate that a garbage collection is in progress. If the selected window is on a window system and this glyph specifies a value (i.e. a pointer image instance) in the domain of the selected window, the pointer will be changed as specified during garbage collection. Otherwise, a message will be printed in the echo area, as controlled by `gc-message'. */ ); #ifdef NEW_GC DEFVAR_BOOL ("allow-incremental-gc", &allow_incremental_gc /* *Non-nil means to allow incremental garbage collection. Nil prevents *incremental garbage collection, the garbage collector then only does *full collects (even if (gc-incremental) is called). */ ); #endif /* NEW_GC */ } void complex_vars_of_gc (void) { Vgc_pointer_glyph =3D Fmake_glyph_internal (Qpointer); } 1.1 XEmacs/xemacs/src/gc.h Index: gc.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D /* New incremental garbage collector for XEmacs. Copyright (C) 2005 Marcus Crestani. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ #ifndef INCLUDED_gc_h_ #define INCLUDED_gc_h_ BEGIN_C_DECLS =0C #ifdef NEW_GC /************************************************************************/ /* Incremental Statistics */ /************************************************************************/ #ifdef ERROR_CHECK_GC void gc_stat_print_stats (void); void gc_stat_finalized (void); void gc_stat_freed (void); void gc_stat_explicitly_freed (void); void gc_stat_explicitly_tried_freed (void); # define GC_STAT_FINALIZED gc_stat_finalized () # define GC_STAT_FREED gc_stat_freed () # define GC_STAT_EXPLICITLY_FREED gc_stat_explicitly_freed () # define GC_STAT_EXPLICITLY_TRIED_FREED gc_stat_explicitly_tried_freed () #else /* not ERROR_CHECK_GC */ # define GC_STAT_FINALIZED # define GC_STAT_FREED # define GC_STAT_EXPLICITLY_FREED # define GC_STAT_EXPLICITLY_TRIED_FREED = #endif /* not ERROR_CHECK_GC */ #endif /* not NEW_GC */ =0C /************************************************************************/ /* Global Variables */ /************************************************************************/ /* Number of bytes of consing done since the last GC. */ extern EMACS_INT consing_since_gc; /* Number of bytes of consing done since startup. */ extern EMACS_UINT total_consing; /* Number of bytes of current allocated heap objects. */ extern EMACS_INT total_gc_usage; /* If the above is set. */ extern int total_gc_usage_set; /* Number of bytes of consing since gc before another gc should be done. */ extern EMACS_INT gc_cons_threshold; /* Percentage of consing of total data size before another GC. */ extern EMACS_INT gc_cons_percentage; #ifdef NEW_GC /* Number of bytes of consing since gc before another cycle of the gc should be done in incremental mode. */ extern EMACS_INT gc_cons_incremental_threshold; /* Nonzero during gc */ extern int gc_in_progress; /* Nonzero during write barrier */ extern int write_barrier_enabled; /* Enable/disable incremental garbage collection during runtime. */ extern int allow_incremental_gc; #endif /* NEW_GC */ =0C /************************************************************************/ /* Prototypes */ /************************************************************************/ #ifndef MALLOC_OVERHEAD #ifdef GNU_MALLOC #define MALLOC_OVERHEAD 0 #elif defined (rcheck) #define MALLOC_OVERHEAD 20 #else #define MALLOC_OVERHEAD 8 #endif #endif /* MALLOC_OVERHEAD */ #ifdef ERROR_CHECK_GC #define GC_CHECK_LHEADER_INVARIANTS(lheader) do { \ struct lrecord_header * GCLI_lh =3D (lheader); \ assert (GCLI_lh !=3D 0); \ assert (GCLI_lh->type < (unsigned int) lrecord_type_count); \ } while (0) #else #define GC_CHECK_LHEADER_INVARIANTS(lheader) #endif void recompute_need_to_garbage_collect (void); /* KKCC mark algorithm. */ #ifdef DEBUG_XEMACS void kkcc_gc_stack_push_lisp_object_1 (Lisp_Object obj, int level, int pos); #define kkcc_gc_stack_push_lisp_object(obj, level, pos) \ kkcc_gc_stack_push_lisp_object_1 (obj, level, pos) void kkcc_gc_stack_repush_dirty_object_1 (Lisp_Object obj, int level, int p= os); #define kkcc_gc_stack_repush_dirty_object(obj) \ kkcc_gc_stack_repush_dirty_object_1 (obj, 0, -2) void kkcc_backtrace (void); #else void kkcc_gc_stack_push_lisp_object_1 (Lisp_Object obj); #define kkcc_gc_stack_push_lisp_object(obj, level, pos) \ kkcc_gc_stack_push_lisp_object_1 (obj) void kkcc_gc_stack_repush_dirty_object_1 (Lisp_Object obj); #define kkcc_gc_stack_repush_dirty_object(obj) \ kkcc_gc_stack_repush_dirty_object_1 (obj) #define kkcc_backtrace() #endif #ifdef NEW_GC /* Repush objects that are caught by the write barrier. */ #define gc_write_barrier(obj) kkcc_gc_stack_repush_dirty_object (obj); /* GC functions: */ /* Perform a full garbage collection without interruption. If an incremental garbage collection is already running it is completed without further interruption. This function calls gc() with a negative or zero argument. */ void gc_full (void); /* This function starts an incremental garbage collection. If an incremental garbage collection is already running, the next cycle of traversal work is done, or the garbage collection is completed when no more traversal work has to be done. This function calls gc with a positive argument, indicating how many objects can be traversed in this cycle. */ void gc_incremental (void); #endif /* NEW_GC */ /* Initializers */ void init_gc_early (void); void reinit_gc_early (void); void init_gc_once_early (void); void syms_of_gc (void); void vars_of_gc (void); void complex_vars_of_gc (void); #ifndef NEW_GC /* Needed prototypes due to the garbage collector code move from alloc.c to gc.c. */ void gc_sweep_1 (void); #ifndef MC_ALLOC extern void *breathing_space; #endif /* not MC_ALLOC */ #endif /* not NEW_GC */ END_C_DECLS #endif /* INCLUDED_gc_h_ */ 1.1 XEmacs/xemacs/src/vdb-fake.c Index: vdb-fake.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D /* Virtual diry bit implementation for XEmacs. Copyright (C) 2005 Marcus Crestani. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ #include #include "lisp.h" void fake_error (void) { fprintf (stderr, "Incremental garbage collection not yet available on thi= s"); fprintf (stderr, "system.\nDon't try to set allow-incremental-gc to t.\n"= ); ABORT (); } void = vdb_install_signal_handler (void) { allow_incremental_gc =3D 0; } void vdb_protect (void *UNUSED (ptr), EMACS_INT UNUSED (len)) { fake_error (); } void vdb_unprotect (void *UNUSED (ptr), EMACS_INT UNUSED (len)) { fake_error (); } 1.1 XEmacs/xemacs/src/vdb-mach.c Index: vdb-mach.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D /* Virtual diry bit implementation for XEmacs. Copyright (C) 2005 Marcus Crestani. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ #include #include "lisp.h" #include "gc.h" #include "mc-alloc.h" #include "vdb.h" #include #include #include #include #include #include #include #include #include /* the structure of an exception msg and its reply */ typedef struct rep_msg { mach_msg_header_t head; NDR_record_t NDR; kern_return_t ret_code; } mach_reply_msg_t; typedef struct exc_msg { mach_msg_header_t head; /* start of the kernel processed data */ mach_msg_body_t msgh_body; mach_msg_port_descriptor_t thread; mach_msg_port_descriptor_t task; /* end of the kernel processed data */ NDR_record_t NDR; exception_type_t exception; mach_msg_type_number_t code_cnt; exception_data_t code; /* some padding */ char pad[512]; } mach_exc_msg_t; /* this is a neat little mach callback */ extern boolean_t exc_server(mach_msg_header_t *in, mach_msg_header_t *out); /* these are the globals everyone needs */ static size_t page_size =3D 16384; static mach_port_t task_self =3D NULL; static mach_port_t exc_port =3D NULL; /* these are some less neat mach callbacks */ kern_return_t catch_exception_raise_state = (mach_port_t UNUSED (port), exception_type_t UNUSED (exception_type), exception_data_t UNUSED (exception_data), mach_msg_type_number_t UNUSED (data_cnt), thread_state_flavor_t *UNUSED (flavor), thread_state_t UNUSED (in_state), mach_msg_type_number_t UNUSED (is_cnt), thread_state_t UNUSED (out_state), mach_msg_type_number_t UNUSED (os_cnt)) { return KERN_FAILURE; } kern_return_t = catch_exception_raise_state_identitity = (mach_port_t UNUSED (port), mach_port_t UNUSED (thread_port), mach_port_t UNUSED (task_port), exception_type_t UNUSED (exception_type), exception_data_t UNUSED (exception_data), mach_msg_type_number_t UNUSED (data_count), thread_state_flavor_t *UNUSED (state_flavor), thread_state_t UNUSED (in_state), mach_msg_type_number_t UNUSED (in_state_count), thread_state_t UNUSED (out_state), mach_msg_type_number_t UNUSED (out_state_count)) { return KERN_FAILURE; } kern_return_t = catch_exception_raise (mach_port_t UNUSED (port), mach_port_t UNUSED (thread_port), mach_port_t UNUSED (task_port), exception_type_t UNUSED (exception_type), exception_data_t exception_data, mach_msg_type_number_t UNUSED (data_count)) { /* kernel return value is in exception_data[0], faulting address in exception_data[1] */ if (write_barrier_enabled && (fault_on_protected_page ((void *) exception_data[1])) && exception_data[0] =3D=3D KERN_PROTECTION_FAILURE) { vdb_designate_modified ((void *) exception_data[1]); unprotect_page_and_mark_dirty ((void *) exception_data[1]); return KERN_SUCCESS; } else /* default sigsegv handler */ { fprintf (stderr, "\n\nFatal Error: Received %s (%d) for address 0x%x\= n", "EXC_BAD_ACCESS", exception_data[0], (int) exception_data[1]); return KERN_FAILURE; } } /* this is the thread which forwards of exceptions read from the exception server off to our exception catchers and then back out to the other thread */ void = exception_thread(void) { mach_msg_header_t *message; mach_msg_header_t *reply; kern_return_t retval; = /* allocate the space for the message and reply */ message =3D (mach_msg_header_t *) malloc (sizeof (mach_exc_msg_t)); reply =3D (mach_msg_header_t *) malloc (sizeof (mach_reply_msg_t)); /* do this loop forever */ while (1) = { /* block until we get an exception message */ retval =3D mach_msg (message, MACH_RCV_MSG, 0, sizeof (mach_exc_msg_t= ), = exc_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); /* forward off the handling of this message */ if (!exc_server (message, reply)) = { fprintf (stderr, "INTERNAL ERROR: exc_server() failed.\n"); ABORT (); } /* send the message back out to the thread */ retval =3D mach_msg (reply, MACH_SEND_MSG, sizeof (mach_reply_msg_t),= 0, = MACH_PORT_NULL, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL); } } /* this initializes the subsystem (sets the exception port, starts the exception handling thread, etc) */ void = vdb_install_signal_handler (void) = { mach_port_t thread_self, exc_port_s, exc_thread; ppc_thread_state_t *exc_thread_state; mach_msg_type_name_t type; void *subthread_stack; kern_return_t retval; /* get ids for ourself */ if (!task_self) = task_self =3D mach_task_self (); thread_self =3D mach_thread_self (); /* allocate the port we're going to get exceptions on */ retval =3D mach_port_allocate (task_self, MACH_PORT_RIGHT_RECEIVE, &exc_p= ort); if (retval !=3D KERN_SUCCESS) = { fprintf (stderr, "Couldn't allocate exception port: %s\n", = mach_error_string (retval)); ABORT (); } /* extract out the send rights for that port, which the OS needs */ retval =3D mach_port_extract_right (task_self, exc_port, = MACH_MSG_TYPE_MAKE_SEND, &exc_port_s, &type); if(retval !=3D KERN_SUCCESS) { fprintf (stderr, "Couldn't extract send rights: %s\n", mach_error_string (retval)); ABORT (); } /* set the exception ports for this thread to the above */ retval =3D thread_set_exception_ports(thread_self, EXC_MASK_BAD_ACCESS, = exc_port_s, EXCEPTION_DEFAULT, = PPC_THREAD_STATE); if(retval !=3D KERN_SUCCESS) { fprintf (stderr, "Couldn't set exception ports: %s\n", mach_error_string (retval)); ABORT (); } /* set up the subthread */ retval =3D thread_create(task_self, &exc_thread); if(retval !=3D KERN_SUCCESS) = { fprintf (stderr , "Couldn't create exception thread: %s\n", mach_error_string (retval)); ABORT (); } subthread_stack =3D (void *) malloc (page_size); subthread_stack =3D = (char *) subthread_stack + (page_size - C_ARGSAVE_LEN - C_RED_ZONE); exc_thread_state =3D = (ppc_thread_state_t *) malloc (sizeof (ppc_thread_state_t)); exc_thread_state->srr0 =3D (unsigned int) exception_thread; exc_thread_state->r1 =3D (unsigned int) subthread_stack; retval =3D thread_set_state (exc_thread, PPC_THREAD_STATE, (thread_state_t) exc_thread_state, PPC_THREAD_STATE_COUNT); if (retval !=3D KERN_SUCCESS) { fprintf (stderr, "Couldn't set subthread state: %s\n", mach_error_string (retval)); ABORT (); } retval =3D thread_resume (exc_thread); if (retval !=3D KERN_SUCCESS) = { fprintf (stderr, "Couldn't resume subthread: %s\n", mach_error_string (retval)); ABORT (); } allow_incremental_gc =3D 1; } void vdb_protect (void *ptr, EMACS_INT len) { if (mprotect (ptr, len, PROT_READ)) { perror ("Couldn't mprotect"); ABORT (); } } void vdb_unprotect (void *ptr, EMACS_INT len) { if (mprotect (ptr, len, PROT_READ | PROT_WRITE)) { perror ("Couldn't mprotect"); ABORT (); } } 1.1 XEmacs/xemacs/src/vdb-posix.c Index: vdb-posix.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D /* Virtual diry bit implementation for XEmacs. Copyright (C) 2005 Marcus Crestani. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ #include #include "lisp.h" #include "gc.h" #include "mc-alloc.h" #include "vdb.h" #include #include #include #if defined (HAVE_SIGACTION) # if defined (HAVE_STRUCT_SIGINFO_SI_ADDR) # define FAULT_HANDLER_ARGUMENTS \ int signum, struct siginfo *siginfo, void *UNUSED (ctx) # define GET_FAULT_ADDRESS siginfo->si_addr # elif defined (HAVE_SIGINFO_T_SI_ADDR) # define FAULT_HANDLER_ARGUMENTS \ int signum, siginfo_t *siginfo, void *UNUSED (ctx) # define GET_FAULT_ADDRESS siginfo->si_addr # endif # define USE_SIGACTION # define FAULT_HANDLER_REMOVE_HANDLER #elif defined (HAVE_SIGNAL) # define FAULT_HANDLER_ARGUMENTS int signum, struct sigcontext sc # define GET_FAULT_ADDRESS (void *) sc.cr2 # define USE_SIGNAL #endif #ifdef USE_SIGACTION struct sigaction act, segv_oact, bus_oact; #endif /* USE_SIGACTION */ #ifdef USE_SIGNAL sighandler_t segv_oact, bus_oact; #endif /* USE_SIGNAL */ void vdb_remove_signal_handler (void); void = vdb_fault_handler (FAULT_HANDLER_ARGUMENTS) { if (write_barrier_enabled && (fault_on_protected_page (GET_FAULT_ADDRESS))) { vdb_designate_modified (GET_FAULT_ADDRESS); unprotect_page_and_mark_dirty (GET_FAULT_ADDRESS); #ifdef FAULT_HANDLER_REINSTALL_HANDLER vdb_install_signal_handler (); #endif /* FAULT_HANDLER_REINSTALL_HANDLER */ } else /* default sigsegv handler */ { char *signal_name; if (signum =3D=3D SIGSEGV) signal_name =3D "SIGSEGV"; else if (signum =3D=3D SIGBUS) signal_name =3D "SIGBUS"; else = ABORT (); /* something weird happened: wrong signal caught */ fprintf (stderr, "\n\nFatal Error: Received %s (%d) for address 0x%x\= n", signal_name, signum, (int) GET_FAULT_ADDRESS); #ifdef FAULT_HANDLER_CALL_PREVIOUS_HANDLER if (signum =3D=3D SIGSEGV) segv_oact (signum); else if (signum =3D=3D SIGBUS) bus_oact (signum); #endif /* FAULT_HANDLER_CALL_PREVIOUS_HANDLER */ #ifdef FAULT_HANDLER_REMOVE_HANDLER vdb_remove_signal_handler (); #endif /* FAULT_HANDLER_REMOVE_HANDLER */ } } void = vdb_remove_signal_handler (void) { #ifdef USE_SIGACTION sigaction(SIGSEGV, &segv_oact, 0); sigaction(SIGBUS, &bus_oact, 0); #endif /* USE_SIGACTION */ #ifdef USE_SIGNAL signal (SIGSEGV, segv_oact); signal (SIGBUS, bus_oact); #endif } void vdb_install_signal_handler (void) { /* See init_signals_very_early () in signal.c. */ if (noninteractive && !initialized) { allow_incremental_gc =3D 0; return; } #ifdef USE_SIGACTION memset(&act, sizeof(struct sigaction), 0); act.sa_sigaction =3D vdb_fault_handler; sigemptyset (&act.sa_mask); act.sa_flags =3D SA_SIGINFO; sigaction (SIGSEGV, &act, &segv_oact); sigaction (SIGBUS, &act, &bus_oact); allow_incremental_gc =3D 1; #endif /* USE_SIGACTION */ #ifdef USE_SIGNAL segv_oact =3D signal (SIGSEGV, (void (*)(int)) vdb_fault_handler); bus_oact =3D signal (SIGBUS, (void (*)(int)) vdb_fault_handler); #endif /* USE_SIGNAL */ } void vdb_protect (void *ptr, EMACS_INT len) { if (mprotect (ptr, len, PROT_READ)) { perror ("Couldn't mprotect"); ABORT (); } } void vdb_unprotect (void *ptr, EMACS_INT len) { if (mprotect (ptr, len, PROT_READ | PROT_WRITE)) { perror ("Couldn't mprotect"); ABORT (); } } 1.1 XEmacs/xemacs/src/vdb-win32.c Index: vdb-win32.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D /* Virtual diry bit implementation for XEmacs. Copyright (C) 2005 Marcus Crestani. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ #include #include "lisp.h" #include "gc.h" #include "mc-alloc.h" #include "vdb.h" #include "syswindows.h" DWORD WINAPI = win32_fault_handler (LPEXCEPTION_POINTERS e) { #define GET_FAULT_ADDRESS (void *) e->ExceptionRecord->ExceptionInformation= [1] if ((e->ExceptionRecord->ExceptionCode =3D=3D EXCEPTION_ACCESS_VIOLATION) && (e->ExceptionRecord->ExceptionInformation[0] =3D=3D 1) && write_barrier_enabled && (fault_on_protected_page (GET_FAULT_ADDRESS))) { vdb_designate_modified (GET_FAULT_ADDRESS); unprotect_page_and_mark_dirty (GET_FAULT_ADDRESS); return EXCEPTION_CONTINUE_EXECUTION; } = else return EXCEPTION_CONTINUE_SEARCH; } typedef DWORD (WINAPI *gcPVECTORED_EXCEPTION_HANDLER) (LPEXCEPTION_POINTERS= e); void vdb_install_signal_handler (void) { HMODULE hm; PVOID (WINAPI *aveh) (ULONG, gcPVECTORED_EXCEPTION_HANDLER); = /* See init_signals_very_early () in signal.c. */ if (noninteractive && !initialized) { allow_incremental_gc =3D 0; return; } hm =3D qxeGetModuleHandle (XETEXT ("kernel32")); if (hm) aveh =3D (PVOID (WINAPI *) (ULONG, gcPVECTORED_EXCEPTION_HANDLER)) GetProcAddress (hm, "AddVectoredExceptionHandler"); else { fprintf (stderr, "\nFAILED TO LOAD LIBRARY\n"); aveh =3D NULL; } if (aveh) { allow_incremental_gc =3D 1; aveh (TRUE, win32_fault_handler); } else { fprintf (stderr, "\nFAILED TO INSTALL SIGNAL HANDLER\n"); ABORT (); } } void vdb_protect (void *ptr, EMACS_INT len) { DWORD old; VirtualProtect (ptr, len, PAGE_READONLY, &old); } void vdb_unprotect (void *ptr, EMACS_INT len) { DWORD old; VirtualProtect (ptr, len, PAGE_READWRITE, &old); } 1.1 XEmacs/xemacs/src/vdb.c Index: vdb.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D /* Virtual diry bit implementation (platform independent) for XEmacs. Copyright (C) 2005 Marcus Crestani. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ #include #include "lisp.h" #include "gc.h" #include "mc-alloc.h" #include "vdb.h" typedef struct { Dynarr_declare (void *); } void_ptr_dynarr; void_ptr_dynarr *page_fault_table; /* Init page fault table and protect heap. */ void vdb_start_dirty_bits_recording (void) { page_fault_table =3D Dynarr_new2 (void_ptr_dynarr, void *); protect_heap_pages (); } /* Remove heap protection. */ void vdb_stop_dirty_bits_recording (void) { unprotect_heap_pages (); } /* Read page fault table and pass page faults to garbage collector. */ int = vdb_read_dirty_bits (void) { int repushed_objects =3D 0; Elemcount count; for (count =3D Dynarr_length (page_fault_table); count; count--) repushed_objects +=3D = repush_all_objects_on_page (Dynarr_at (page_fault_table, count - 1)); Dynarr_free (page_fault_table); page_fault_table =3D 0; return repushed_objects; } /* Called by the page fault handler: add address to page fault table. */ void = vdb_designate_modified (void *addr) { Dynarr_add (page_fault_table, addr); } /* For testing and debugging... */ DEFUN ("test-vdb", Ftest_vdb, 0, 0, "", /* Test virtual dirty bit implementation. Prints results to stderr. */ ()) { Rawbyte *p; char c; Elemcount count; = /* Wrap up gc (if currently running). */ gc_full (); /* Allocate a buffer; it will have the default protection of PROT_READ|PROT_WRITE. */ p =3D (Rawbyte *) mc_alloc (mc_get_page_size()); set_lheader_implementation ((struct lrecord_header *) p, &lrecord_cons); fprintf (stderr, "Allocate p: [%x ... %x], length %d\n", = (int) p, (int) (p + mc_get_page_size ()), = (int) mc_get_page_size ()); /* Test read. */ fprintf (stderr, "Attempt to read p[666]... "); c =3D p[666]; fprintf (stderr, "read ok.\n"); /* Test write. */ fprintf (stderr, "Attempt to write 42 to p[666]... "); p[666] =3D 42; fprintf (stderr, "write ok, p[666] =3D %d\n", p[666]); /* Mark the buffer read-only and set environemnt for write-barrier. */ fprintf (stderr, "Write-protect the page.\n"); MARK_BLACK (p); vdb_start_dirty_bits_recording (); write_barrier_enabled =3D 1; /* Test write-barrier read. */ fprintf (stderr, "Attempt to read p[666]... "); c =3D p[666]; fprintf (stderr, "read ok.\n"); = /* Test write-barrier write, program receives SIGSEGV. */ fprintf (stderr, "Attempt to write 23 to p[666]... "); p[666] =3D 23; fprintf (stderr, "Written p[666] =3D %d\n", p[666]); /* Stop write-barrier mode. */ write_barrier_enabled =3D 0; MARK_WHITE (p); vdb_unprotect (p, mc_get_page_size ()); for (count =3D Dynarr_length (page_fault_table); count; count--) if (Dynarr_at (page_fault_table, count - 1) =3D=3D &p[666]) fprintf (stderr, "VALID page fault at %x\n", (int) Dynarr_at (page_fault_table, count - 1)); else fprintf (stderr, "WRONG page fault at %x\n", (int) Dynarr_at (page_fault_table, count - 1)); Dynarr_free (page_fault_table); mc_free (p); return Qnil; } DEFUN ("test-segfault", Ftest_segfault, 0, 0, "", /* Test virtual dirty bit implementation: provoke a segfault on purpose. WARNING: this function causes a SEGFAULT on purpose and thus crashes XEmacs! This is only used for debbugging, e.g. for testing how the debugger behaves when XEmacs segfaults and the write barrier is enabled. */ ()) { Rawbyte *q =3D 0; q[0] =3D 23; return Qnil; } void syms_of_vdb (void) { DEFSUBR (Ftest_vdb); DEFSUBR (Ftest_segfault); } 1.1 XEmacs/xemacs/src/vdb.h Index: vdb.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D /* Virtual diry bit implementation for XEmacs. Copyright (C) 2005 Marcus Crestani. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: Not in FSF. */ #include "lisp.h" #ifndef INCLUDED_vdb_h_ #define INCLUDED_vdb_h_ /*--- prototypes -------------------------------------------------------*/ BEGIN_C_DECLS /* Platform dependent signal handling: */ /* Install the platform-dependent signal handler. */ void vdb_install_signal_handler (void); /* Platform dependent memory protection. */ void vdb_protect (void *ptr, EMACS_INT len); void vdb_unprotect (void *ptr, EMACS_INT len); /* Common (platform independent) virtual diry bit stuff: */ /* Start the write barrier. This function is called when a garbage collection is suspendend and the client is resumed. */ void vdb_start_dirty_bits_recording (void); /* Stop the write barrier. This function is called when the client is suspendend and garbage collection is resumed. */ void vdb_stop_dirty_bits_recording (void); /* Record page faults: Add the object pointed to by addr to the write barrer's internal data structure that stores modified objects. This function is called by the write barrier's fault handler. */ void vdb_designate_modified (void *addr); /* Propagate page faults to garbage collector: Read out the write barrier's internal data structure that stores modified objects and pass the information to the garbage collector. This function is called by vdb_stop_dirty_bits_recording(). Return how many objects have to be re-examined by the garbage collector. */ int vdb_read_dirty_bits (void); /* Provides Lisp functions for testing vdb implementation. */ void syms_of_vdb (void); END_C_DECLS #endif /* INCLUDED_vdb_h_ */ --===============6619883729532616754==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============5340826111153244020==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by vins xemacs/src, database.c ... Date: 2005-11-25 02:02:05 +0000 Message-ID: <20051125020205.2508.qmail@sunsite.dk> --===============5340826111153244020== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: vins = Date: 05/11/25 03:02:05 Branch: xemacs release-21-4 xemacs/etc release-21-4 xemacs/lisp release-21-4 xemacs/src release-21-4 Modified: xemacs/src ChangeLog callproc.c chartab.c config.h.in database.c glyphs-gtk.c process-unix.c sysdll.c Log: More patches for 21.4.18. Revision Changes Path 1.241.2.77 +13 -0 XEmacs/xemacs/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.241.2.76 retrieving revision 1.241.2.77 diff -u -p -r1.241.2.76 -r1.241.2.77 --- ChangeLog 2005/03/24 04:55:34 1.241.2.76 +++ ChangeLog 2005/11/25 01:59:59 1.241.2.77 @@ -1,3 +1,16 @@ +2005-11-15 Dr. Volker Zell + + * configure.in: Avoid using Motif also for cygwin + +2005-11-15 Dr. Volker Zell + + * configure.in: Check for u_int*_t typedefs and use them in + Berkeley DB detection. + +2005-04-11 Norbert Koch + + * etc/PACKAGES: etc/PACKAGES: Announce re-builder, xetla. + 2005-03-23 Vin Shelton = * configure.in: Remove -fno-gnu-linker option from Solaris 1.147.2.34 +238 -53 XEmacs/xemacs/configure Index: configure =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v retrieving revision 1.147.2.33 retrieving revision 1.147.2.34 diff -u -p -r1.147.2.33 -r1.147.2.34 --- configure 2005/03/24 04:55:35 1.147.2.33 +++ configure 2005/11/25 02:00:00 1.147.2.34 @@ -9657,7 +9657,7 @@ rm -f conftest* fi = = case "$opsys" in - *linux* ) lucid_prefers_motif=3D"no" ;; + *linux* | cygwin* ) lucid_prefers_motif=3D"no" ;; * ) lucid_prefers_motif=3D"yes" ;; esac = @@ -14284,14 +14284,191 @@ EOF } = = +echo $ac_n "checking for u_int8_t""... $ac_c" 1>&6 +echo "configure:14289: checking for u_int8_t" >&5 + +cat > conftest.$ac_ext < +#if STDC_HEADERS +#include +#include +#endif +EOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + egrep "(^|[^a-zA-Z_0-9])u_int8_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then + rm -rf conftest* + ac_cv_type_u_int8_t=3Dyes +else + rm -rf conftest* + ac_cv_type_u_int8_t=3Dno +fi +rm -f conftest* + +echo "$ac_t""$ac_cv_type_u_int8_t" 1>&6 +if test $ac_cv_type_u_int8_t =3D no; then + { test "$extra_verbose" =3D "yes" && cat << \EOF + Defining u_int8_t =3D uint8_t +EOF +cat >> confdefs.h <<\EOF +#define u_int8_t uint8_t +EOF +} + +fi + +if test $ac_cv_type_u_int8_t =3D yes; then +{ test "$extra_verbose" =3D "yes" && cat << \EOF + Defining HAVE_U_INT8_T =3D 1 +EOF +cat >> confdefs.h <<\EOF +#define HAVE_U_INT8_T 1 +EOF +} + +fi +echo $ac_n "checking for u_int16_t""... $ac_c" 1>&6 +echo "configure:14333: checking for u_int16_t" >&5 + +cat > conftest.$ac_ext < +#if STDC_HEADERS +#include +#include +#endif +EOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + egrep "(^|[^a-zA-Z_0-9])u_int16_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then + rm -rf conftest* + ac_cv_type_u_int16_t=3Dyes +else + rm -rf conftest* + ac_cv_type_u_int16_t=3Dno +fi +rm -f conftest* + +echo "$ac_t""$ac_cv_type_u_int16_t" 1>&6 +if test $ac_cv_type_u_int16_t =3D no; then + { test "$extra_verbose" =3D "yes" && cat << \EOF + Defining u_int16_t =3D uint16_t +EOF +cat >> confdefs.h <<\EOF +#define u_int16_t uint16_t +EOF +} + +fi + +if test $ac_cv_type_u_int16_t =3D yes; then +{ test "$extra_verbose" =3D "yes" && cat << \EOF + Defining HAVE_U_INT16_T =3D 1 +EOF +cat >> confdefs.h <<\EOF +#define HAVE_U_INT16_T 1 +EOF +} + +fi +echo $ac_n "checking for u_int32_t""... $ac_c" 1>&6 +echo "configure:14377: checking for u_int32_t" >&5 + +cat > conftest.$ac_ext < +#if STDC_HEADERS +#include +#include +#endif +EOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + egrep "(^|[^a-zA-Z_0-9])u_int32_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then + rm -rf conftest* + ac_cv_type_u_int32_t=3Dyes +else + rm -rf conftest* + ac_cv_type_u_int32_t=3Dno +fi +rm -f conftest* + +echo "$ac_t""$ac_cv_type_u_int32_t" 1>&6 +if test $ac_cv_type_u_int32_t =3D no; then + { test "$extra_verbose" =3D "yes" && cat << \EOF + Defining u_int32_t =3D uint32_t +EOF +cat >> confdefs.h <<\EOF +#define u_int32_t uint32_t +EOF +} + +fi + +if test $ac_cv_type_u_int32_t =3D yes; then +{ test "$extra_verbose" =3D "yes" && cat << \EOF + Defining HAVE_U_INT32_T =3D 1 +EOF +cat >> confdefs.h <<\EOF +#define HAVE_U_INT32_T 1 +EOF +} + +fi +echo $ac_n "checking for u_int64_t""... $ac_c" 1>&6 +echo "configure:14421: checking for u_int64_t" >&5 + +cat > conftest.$ac_ext < +#if STDC_HEADERS +#include +#include +#endif +EOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + egrep "(^|[^a-zA-Z_0-9])u_int64_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then + rm -rf conftest* + ac_cv_type_u_int64_t=3Dyes +else + rm -rf conftest* + ac_cv_type_u_int64_t=3Dno +fi +rm -f conftest* + +echo "$ac_t""$ac_cv_type_u_int64_t" 1>&6 +if test $ac_cv_type_u_int64_t =3D no; then + { test "$extra_verbose" =3D "yes" && cat << \EOF + Defining u_int64_t =3D uint64_t +EOF +cat >> confdefs.h <<\EOF +#define u_int64_t uint64_t +EOF +} + +fi + +if test $ac_cv_type_u_int64_t =3D yes; then +{ test "$extra_verbose" =3D "yes" && cat << \EOF + Defining HAVE_U_INT64_T =3D 1 +EOF +cat >> confdefs.h <<\EOF +#define HAVE_U_INT64_T 1 +EOF +} + +fi + if test "$with_database_berkdb" !=3D "no"; then echo $ac_n "checking for Berkeley db.h""... $ac_c" 1>&6 -echo "configure:14290: checking for Berkeley db.h" >&5 +echo "configure:14467: checking for Berkeley db.h" >&5 for header in "db/db.h" "db.h"; do case "$opsys" in *freebsd*) cat > conftest.$ac_ext < @@ -14307,7 +14484,7 @@ int main() { = ; return 0; } EOF -if { (eval echo configure:14311: \"$ac_compile\") 1>&5; (eval $ac_compile)= 2>&5; }; then +if { (eval echo configure:14488: \"$ac_compile\") 1>&5; (eval $ac_compile)= 2>&5; }; then rm -rf conftest* db_h_file=3D"$header"; break else @@ -14318,7 +14495,7 @@ rm -f conftest* ;; *) cat > conftest.$ac_ext < @@ -14326,21 +14503,29 @@ rm -f conftest* #ifdef HAVE_INTTYPES_H #define __BIT_TYPES_DEFINED__ #include +#if !HAVE_U_INT8_T typedef uint8_t u_int8_t; +#endif +#if !HAVE_U_INT16_T typedef uint16_t u_int16_t; +#endif +#if !HAVE_U_INT32_T typedef uint32_t u_int32_t; +#endif #ifdef WE_DONT_NEED_QUADS +#if !HAVE_U_INT64_T typedef uint64_t u_int64_t; #endif #endif #endif +#endif #include <$header> = int main() { = ; return 0; } EOF -if { (eval echo configure:14344: \"$ac_compile\") 1>&5; (eval $ac_compile)= 2>&5; }; then +if { (eval echo configure:14529: \"$ac_compile\") 1>&5; (eval $ac_compile)= 2>&5; }; then rm -rf conftest* db_h_file=3D"$header"; break else @@ -14358,9 +14543,9 @@ rm -f conftest* = if test "$with_database_berkdb" !=3D "no"; then echo $ac_n "checking for Berkeley DB version""... $ac_c" 1>&6 -echo "configure:14362: checking for Berkeley DB version" >&5 +echo "configure:14547: checking for Berkeley DB version" >&5 cat > conftest.$ac_ext < #if DB_VERSION_MAJOR > 1 @@ -14372,7 +14557,7 @@ if (eval "$ac_cpp conftest.$ac_ext") 2>& egrep "yes" >/dev/null 2>&1; then rm -rf conftest* cat > conftest.$ac_ext < #if DB_VERSION_MAJOR > 2 @@ -14399,10 +14584,10 @@ fi rm -f conftest* = echo $ac_n "checking for $dbfunc""... $ac_c" 1>&6 -echo "configure:14403: checking for $dbfunc" >&5 +echo "configure:14588: checking for $dbfunc" >&5 = cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then +if { (eval echo configure:14614: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_func_$dbfunc=3Dyes" else @@ -14444,12 +14629,12 @@ else = = echo $ac_n "checking for $dbfunc in -ldb""... $ac_c" 1>&6 -echo "configure:14448: checking for $dbfunc in -ldb" >&5 +echo "configure:14633: checking for $dbfunc in -ldb" >&5 ac_lib_var=3D`echo db'_'$dbfunc | sed 'y%./+-%__p_%'` = xe_check_libs=3D" -ldb " cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then +if { (eval echo configure:14649: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=3Dyes" else @@ -14524,12 +14709,12 @@ fi if test "$with_socks" =3D "yes"; then = echo $ac_n "checking for SOCKSinit in -lsocks""... $ac_c" 1>&6 -echo "configure:14528: checking for SOCKSinit in -lsocks" >&5 +echo "configure:14713: checking for SOCKSinit in -lsocks" >&5 ac_lib_var=3D`echo socks'_'SOCKSinit | sed 'y%./+-%__p_%'` = xe_check_libs=3D" -lsocks " cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then +if { (eval echo configure:14729: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=3Dyes" else @@ -14595,7 +14780,7 @@ fi = if test "$with_modules" !=3D "no"; then echo "checking for module support" 1>&6 -echo "configure:14599: checking for module support" >&5 +echo "configure:14784: checking for module support" >&5 = if test "$with_msw" =3D "yes"; then have_dl=3Dyes; @@ -14611,15 +14796,15 @@ EOF ;; *) ac_safe=3D`echo "dlfcn.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for dlfcn.h""... $ac_c" 1>&6 -echo "configure:14615: checking for dlfcn.h" >&5 +echo "configure:14800: checking for dlfcn.h" >&5 = cat > conftest.$ac_ext < EOF ac_try=3D"$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:14623: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:14808: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=3D`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then rm -rf conftest* @@ -14636,16 +14821,16 @@ if eval "test \"`echo '$ac_cv_header_'$a echo "$ac_t""yes" 1>&6 = echo $ac_n "checking for dlopen in -lc""... $ac_c" 1>&6 -echo "configure:14640: checking for dlopen in -lc" >&5 +echo "configure:14825: checking for dlopen in -lc" >&5 cat > conftest.$ac_ext < int main() { dlopen ("", 0); ; return 0; } EOF -if { (eval echo configure:14649: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then +if { (eval echo configure:14834: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then rm -rf conftest* have_dl=3Dyes = else @@ -14654,18 +14839,18 @@ else rm -rf conftest* = echo $ac_n "checking for dlopen in -ldl""... $ac_c" 1>&6 -echo "configure:14658: checking for dlopen in -ldl" >&5 +echo "configure:14843: checking for dlopen in -ldl" >&5 ac_save_LIBS=3D"$LIBS" LIBS=3D"-ldl $LIBS" cat > conftest.$ac_ext < int main() { dlopen ("", 0); ; return 0; } EOF -if { (eval echo configure:14669: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then +if { (eval echo configure:14854: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then rm -rf conftest* have_dl=3Dyes = else @@ -14694,12 +14879,12 @@ EOF else = echo $ac_n "checking for shl_load in -ldld""... $ac_c" 1>&6 -echo "configure:14698: checking for shl_load in -ldld" >&5 +echo "configure:14883: checking for shl_load in -ldld" >&5 ac_lib_var=3D`echo dld'_'shl_load | sed 'y%./+-%__p_%'` = xe_check_libs=3D" -ldld " cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then +if { (eval echo configure:14899: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=3Dyes" else @@ -14737,12 +14922,12 @@ else echo "$ac_t""no" 1>&6 = echo $ac_n "checking for dld_init in -ldld""... $ac_c" 1>&6 -echo "configure:14741: checking for dld_init in -ldld" >&5 +echo "configure:14926: checking for dld_init in -ldld" >&5 ac_lib_var=3D`echo dld'_'dld_init | sed 'y%./+-%__p_%'` = xe_check_libs=3D" -ldld " cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then +if { (eval echo configure:14942: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=3Dyes" else @@ -14800,7 +14985,7 @@ xehost=3D$canonical xealias=3D$internal_configuration = echo "checking how to build dynamic libraries for ${xehost}" 1>&6 -echo "configure:14804: checking how to build dynamic libraries for ${xehos= t}" >&5 +echo "configure:14989: checking how to build dynamic libraries for ${xehos= t}" >&5 # Transform *-*-linux* to *-*-linux-gnu*, to support old configure scripts. case "$xehost" in *-*-linux-gnu*) ;; @@ -14828,9 +15013,9 @@ if test "$GCC" =3D "yes"; then XEGCC=3Dyes else echo $ac_n "checking checking whether we are using GNU C""... $ac_c" 1>&6 -echo "configure:14832: checking checking whether we are using GNU C" >&5 +echo "configure:15017: checking checking whether we are using GNU C" >&5 cat > conftest.$ac_ext <&6 -echo "configure:14856: checking how to produce PIC code" >&5 +echo "configure:15041: checking how to produce PIC code" >&5 wl=3D = can_build_shared=3Dyes @@ -14953,18 +15138,18 @@ if test -n "$dll_cflags"; then = # Check to make sure the dll_cflags actually works. echo $ac_n "checking if PIC flag ${dll_cflags} really works""... $ac_c" = 1>&6 -echo "configure:14957: checking if PIC flag ${dll_cflags} really works" >&5 +echo "configure:15142: checking if PIC flag ${dll_cflags} really works" >&5 save_CFLAGS=3D"$CFLAGS" CFLAGS=3D"$CFLAGS $dll_cflags -DPIC" cat > conftest.$ac_ext <&5; (eval $ac_compile)= 2>&5; }; then +if { (eval echo configure:15153: \"$ac_compile\") 1>&5; (eval $ac_compile)= 2>&5; }; then rm -rf conftest* = # On HP-UX, the stripped-down bundled CC doesn't accept +Z, but also @@ -14995,7 +15180,7 @@ cc_produces_so=3Dno xldf=3D xcldf=3D echo $ac_n "checking if C compiler can produce shared libraries""... $ac_c= " 1>&6 -echo "configure:14999: checking if C compiler can produce shared libraries= " >&5 +echo "configure:15184: checking if C compiler can produce shared libraries= " >&5 if test "$XEGCC" =3D yes -o "$__ICC" =3D yes; then xcldf=3D"-shared" xldf=3D"-shared" @@ -15046,14 +15231,14 @@ if test -n "$xcldf"; then xe_libs=3D ac_link=3D'${CC-cc} -o conftest $CFLAGS '"$xe_cppflags $xe_ldflags"' con= ftest.$ac_ext '"$xe_libs"' 1>&5' cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then +if { (eval echo configure:15242: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then rm -rf conftest* cc_produces_so=3Dyes else @@ -15078,7 +15263,7 @@ if test -z "$LTLD"; then if test "$XEGCC" =3D yes; then # Check if gcc -print-prog-name=3Dld gives a path. echo $ac_n "checking for ld used by GCC""... $ac_c" 1>&6 -echo "configure:15082: checking for ld used by GCC" >&5 +echo "configure:15267: checking for ld used by GCC" >&5 ac_prog=3D`($CC -print-prog-name=3Dld) 2>&5` case "$ac_prog" in # Accept absolute paths. @@ -15104,7 +15289,7 @@ echo "configure:15082: checking for ld u esac else echo $ac_n "checking for GNU ld""... $ac_c" 1>&6 -echo "configure:15108: checking for GNU ld" >&5 +echo "configure:15293: checking for GNU ld" >&5 fi = if test -z "$LTLD"; then @@ -15142,7 +15327,7 @@ ld_dynamic_link_flags=3D = # Check to see if it really is or isn't GNU ld. echo $ac_n "checking if the linker is GNU ld""... $ac_c" 1>&6 -echo "configure:15146: checking if the linker is GNU ld" >&5 +echo "configure:15331: checking if the linker is GNU ld" >&5 # I'd rather use --version here, but apparently some GNU ld's only accept = -v. if $LTLD -v 2>&1 &5; then xe_gnu_ld=3Dyes @@ -15170,7 +15355,7 @@ else # OK - only NOW do we futz about with ld. # See if the linker supports building shared libraries. echo $ac_n "checking whether the linker supports shared libraries""... $= ac_c" 1>&6 -echo "configure:15174: checking whether the linker supports shared librari= es" >&5 +echo "configure:15359: checking whether the linker supports shared librari= es" >&5 dll_ld=3D$CC dll_ldflags=3D$LDFLAGS ld_shlibs=3Dyes @@ -15381,10 +15566,10 @@ EOF for ac_func in dlerror _dlerror do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:15385: checking for $ac_func" >&5 +echo "configure:15570: checking for $ac_func" >&5 = cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then +if { (eval echo configure:15596: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_func_$ac_func=3Dyes" else @@ -15446,11 +15631,11 @@ done fi = cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5;= } && test -s conftest && (./conftest; exit $?) 2>&5 +if { (eval echo configure:15639: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5;= } && test -s conftest && (./conftest; exit $?) 2>&5 then : else 1.151.2.33 +27 -1 XEmacs/xemacs/configure.in Index: configure.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.in,v retrieving revision 1.151.2.32 retrieving revision 1.151.2.33 diff -u -p -r1.151.2.32 -r1.151.2.33 --- configure.in 2005/03/24 04:56:00 1.151.2.32 +++ configure.in 2005/11/25 02:00:33 1.151.2.33 @@ -3592,7 +3592,7 @@ dnl Not all toolkits support all widgets = dnl Avoid using Motif :-( case "$opsys" in - *linux* ) lucid_prefers_motif=3D"no" ;; + *linux* | cygwin* ) lucid_prefers_motif=3D"no" ;; * ) lucid_prefers_motif=3D"yes" ;; esac = @@ -4454,6 +4454,24 @@ test "$with_database_gdbm" =3D "yes" -o \ "$with_database_dbm" =3D "yes" && \ AC_DEFINE(HAVE_DBM) = +dnl Check for u_int*_t typedefs. +AC_CHECK_TYPE(u_int8_t, uint8_t) +if test $ac_cv_type_u_int8_t =3D yes; then +AC_DEFINE(HAVE_U_INT8_T,1) +fi +AC_CHECK_TYPE(u_int16_t, uint16_t) +if test $ac_cv_type_u_int16_t =3D yes; then +AC_DEFINE(HAVE_U_INT16_T,1) +fi +AC_CHECK_TYPE(u_int32_t, uint32_t) +if test $ac_cv_type_u_int32_t =3D yes; then +AC_DEFINE(HAVE_U_INT32_T,1) +fi +AC_CHECK_TYPE(u_int64_t, uint64_t) +if test $ac_cv_type_u_int64_t =3D yes; then +AC_DEFINE(HAVE_U_INT64_T,1) +fi + dnl Check for Berkeley DB. if test "$with_database_berkdb" !=3D "no"; then AC_MSG_CHECKING(for Berkeley db.h) @@ -4478,11 +4496,19 @@ if test "$with_database_berkdb" !=3D "no"; #ifdef HAVE_INTTYPES_H #define __BIT_TYPES_DEFINED__ #include +#if !HAVE_U_INT8_T typedef uint8_t u_int8_t; +#endif +#if !HAVE_U_INT16_T typedef uint16_t u_int16_t; +#endif +#if !HAVE_U_INT32_T typedef uint32_t u_int32_t; +#endif #ifdef WE_DONT_NEED_QUADS +#if !HAVE_U_INT64_T typedef uint64_t u_int64_t; +#endif #endif #endif #endif 1.8.4.7 +6 -0 XEmacs/xemacs/etc/Attic/PACKAGES Index: PACKAGES =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/etc/Attic/PACKAGES,v retrieving revision 1.8.4.6 retrieving revision 1.8.4.7 diff -u -p -r1.8.4.6 -r1.8.4.7 --- PACKAGES 2005/02/19 22:01:59 1.8.4.6 +++ PACKAGES 2005/11/25 02:01:46 1.8.4.7 @@ -234,6 +234,9 @@ Deprecated collection of DTDs for psgml. *** python-modes Python support. = +*** re-builder +Interactive development tool for regular expressions. + *** reftex Emacs support for LaTeX cross-references, citations. = @@ -340,6 +343,9 @@ Fundamental XEmacs support, you almost c XEmacs Lisp developer support. This package contains utilities for supporting Lisp development. It is a single-file package so it may be = tailored. + +*** xetla +(setq mm-coding-system-priorities '(iso-8859-1 iso-8859-15 utf-8)) = *** xlib Emacs interface to X server. 1.266.2.83 +19 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.266.2.82 retrieving revision 1.266.2.83 diff -u -p -r1.266.2.82 -r1.266.2.83 --- ChangeLog 2005/02/24 03:06:06 1.266.2.82 +++ ChangeLog 2005/11/25 02:01:48 1.266.2.83 @@ -1,3 +1,22 @@ +2005-06-06 Adrian Aichner + + * package-get.el (package-get-init-package): + package-get-init-package buglet (21.4.17) by Jeff Mincy + fixing false temporary load-path shadows reported + after package installation and simplifying code. + +2005-10-18 Ville Skytt=C3=A4 + + * package-get.el (package-get-download-sites): Sync mirrors list + with the XEmacs website. + (package-get-pre-release-download-sites): Ditto. + +2005-04-06 Stephen J. Turnbull + + * derived.el (derived-mode-merge-syntax-tables): + Revert my 21.5-only patch of 2003-07-18 which slipped in + through Jerry James's patch of 2004-06-07. + 2005-02-23 Adrian Aichner = * cmdloop.el (keyboard-quit): Remove workaround for 1.4.2.2 +6 -14 XEmacs/xemacs/lisp/derived.el Index: derived.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/derived.el,v retrieving revision 1.4.2.1 retrieving revision 1.4.2.2 diff -u -p -r1.4.2.1 -r1.4.2.2 --- derived.el 2004/06/22 01:49:47 1.4.2.1 +++ derived.el 2005/11/25 02:01:49 1.4.2.2 @@ -421,20 +421,12 @@ Where the new table already has an entry ;; check for inheritance. (map-char-table #'(lambda (key value) - (let ((newval (get-range-char-table key new 'multi))) - (cond ((eq newval 'multi) ; OK, dive into the class hierarchy - (map-char-table - #'(lambda (key1 value1) - (when (eq ?@ (char-syntax-from-code - (get-range-char-table key new ?@))) - (put-char-table key1 value new)) - nil) - new - key)) - ((eq ?@ (char-syntax-from-code newval)) ;; class at once - (put-char-table key value new)))) - nil) - old)) + (if (eq ?@ (char-syntax-from-code value)) + (map-char-table #'(lambda (key1 value1) + (put-char-table key1 value1 new)) + old + key))) + new)) = ;; Merge an old abbrev table into a new one. ;; This function requires internal knowledge of how abbrev tables work, 1.39.2.10 +13 -19 XEmacs/xemacs/lisp/package-get.el Index: package-get.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/package-get.el,v retrieving revision 1.39.2.9 retrieving revision 1.39.2.10 diff -u -p -r1.39.2.9 -r1.39.2.10 --- package-get.el 2004/06/28 01:19:56 1.39.2.9 +++ package-get.el 2005/11/25 02:01:49 1.39.2.10 @@ -204,6 +204,7 @@ directory." ("US (Main XEmacs Site)" "ftp.xemacs.org" "pub/xemacs/packages") ;; In alphabetical order of Country, our mirrors... + ("Argentina (xmundo.net)" "xemacs.xmundo.net" "pub/mirrors/xemacs/pack= ages") ("Australia (aarnet.edu.au)" "mirror.aarnet.edu.au" "pub/xemacs/packag= es") ("Australia (au.xemacs.org)" "ftp.au.xemacs.org" "pub/xemacs/packages") ("Austria (at.xemacs.org)" "ftp.at.xemacs.org" "editors/xemacs/package= s") @@ -211,7 +212,7 @@ directory." ("Brazil (br.xemacs.org)" "ftp.br.xemacs.org" "pub/xemacs/packages") ("Canada (ca.xemacs.org)" "ftp.ca.xemacs.org" "pub/Mirror/xemacs/packa= ges") ("Canada (crc.ca)" "ftp.crc.ca" "pub/packages/editors/xemacs/packages") - ("Canada (ualberta.ca)" "sunsite.ualberta.ca" "pub/Mirror/xemacs/packa= ges") + ("Canada (nrc.ca)" "ftp.nrc.ca" "pub/packages/editors/xemacs/packages") ("Czech Republic (cz.xemacs.org)" "ftp.cz.xemacs.org" "MIRRORS/ftp.xem= acs.org/pub/xemacs/packages") ("Denmark (dk.xemacs.org)" "ftp.dk.xemacs.org" "pub/emacs/xemacs/packa= ges") ("Finland (fi.xemacs.org)" "ftp.fi.xemacs.org" "pub/mirrors/ftp.xemacs= .org/pub/tux/xemacs/packages") @@ -219,8 +220,9 @@ directory." ("France (mirror.cict.fr)" "mirror.cict.fr" "xemacs/packages") ("France (pasteur.fr)" "ftp.pasteur.fr" "pub/computing/xemacs/packages= ") ("Germany (de.xemacs.org)" "ftp.de.xemacs.org" "pub/ftp.xemacs.org/tux= /xemacs/packages") - ("Germany (tu-darmstadt.de)" "ftp.tu-darmstadt.de" "pub/editors/xemacs= /packages") + ("Iceland (is.xemacs.org)" "ftp.is.xemacs.org" "pub/xemacs/packages") ("Ireland (ie.xemacs.org)" "ftp.ie.xemacs.org" "mirrors/ftp.xemacs.org= /pub/xemacs/packages") + ("Ireland (heanet.ie)" "ftp.heanet.ie" "mirrors/ftp.xemacs.org/package= s") ("Italy (it.xemacs.org)" "ftp.it.xemacs.org" "unix/packages/XEMACS/pac= kages") ("Japan (aist.go.jp)" "ring.aist.go.jp" "pub/text/xemacs/packages") ("Japan (asahi-net.or.jp)" "ring.asahi-net.or.jp" "pub/text/xemacs/pac= kages") @@ -234,7 +236,6 @@ directory." ("Norway (no.xemacs.org)" "ftp.no.xemacs.org" "pub/xemacs/packages") ("Poland (pl.xemacs.org)" "ftp.pl.xemacs.org" "pub/unix/editors/xemacs= /packages") ("Russia (ru.xemacs.org)" "ftp.ru.xemacs.org" "pub/xemacs/packages") - ("Slovakia (sk.xemacs.org)" "ftp.sk.xemacs.org" "pub/mirrors/xemacs/pa= ckages") ("South Africa (za.xemacs.org)" "ftp.za.xemacs.org" "mirrorsites/ftp.x= emacs.org/packages") ("Sweden (se.xemacs.org)" "ftp.se.xemacs.org" "pub/gnu/xemacs/packages= ") ("Switzerland (ch.xemacs.org)" "ftp.ch.xemacs.org" "mirror/xemacs/pack= ages") @@ -263,6 +264,8 @@ variable actually used to specify packag ("Pre-Releases (Main XEmacs Site)" "ftp.xemacs.org" "pub/xemacs/beta/experimental/packages") ;; In alphabetical order of Country, our mirrors... + ("Argentina Pre-Releases (xmundo.net)" "xemacs.xmundo.net" + "pub/mirrors/xemacs/beta/experimental/packages") ("Australia Pre-Releases (aarnet.edu.au)" "mirror.aarnet.edu.au" "pub/xemacs/beta/experimental/packages") ("Australia Pre-Releases (au.xemacs.org)" "ftp.au.xemacs.org" @@ -275,8 +278,8 @@ variable actually used to specify packag "pub/Mirror/xemacs/beta/experimental/packages") ("Canada Pre-Releases (crc.ca)" "ftp.crc.ca" "pub/packages/editors/xemacs/beta/experimental/packages") - ("Canada Pre-Releases (ualberta.ca)" "sunsite.ualberta.ca" - "pub/Mirror/xemacs/beta/experimental/packages") + ("Canada Pre-Releases (nrc.ca)" "ftp.nrc.ca" + "pub/packages/editors/xemacs/beta/experimental/packages") ("Czech Republic Pre-Releases (cz.xemacs.org)" "ftp.cz.xemacs.org" "MIRRORS/ftp.xemacs.org/pub/xemacs/xemacs-21.5/experimental/packages") ("Denmark Pre-Releases (dk.xemacs.org)" "ftp.dk.xemacs.org" @@ -291,10 +294,12 @@ variable actually used to specify packag "pub/computing/xemacs/beta/experimental/packages") ("Germany Pre-Releases (de.xemacs.org)" "ftp.de.xemacs.org" "pub/ftp.xemacs.org/tux/xemacs/beta/experimental/packages") - ("Germany Pre-Releases (tu-darmstadt.de)" "ftp.tu-darmstadt.de" - "pub/editors/xemacs/beta/experimental/packages") + ("Iceland Pre-Releases (is.xemacs.org)" "ftp.is.xemacs.org" + "pub/xemacs/beta/experimental/packages") ("Ireland Pre-Releases (ie.xemacs.org)" "ftp.ie.xemacs.org" "mirrors/ftp.xemacs.org/pub/xemacs/beta/experimental/packages") + ("Ireland Pre-Releases (heanet.ie)" "ftp.heanet.ie" + "mirrors/ftp.xemacs.org/beta/experimental/packages") ("Italy Pre-Releases (it.xemacs.org)" "ftp.it.xemacs.org" "unix/packages/XEMACS/beta/experimental/packages") ("Japan Pre-Releases (aist.go.jp)" "ring.aist.go.jp" @@ -316,10 +321,6 @@ variable actually used to specify packag "pub/unix/editors/xemacs/beta/experimental/packages") ("Russia Pre-Releases (ru.xemacs.org)" "ftp.ru.xemacs.org" "pub/xemacs/beta/experimental/packages") - ("Saudi Arabia Pre-Releases (sa.xemacs.org)" "ftp.sa.xemacs.org" - "pub/mirrors/ftp.xemacs.org/xemacs/xemacs-21.5/experimental/packages") - ("Slovakia Pre-Releases (sk.xemacs.org)" "ftp.sk.xemacs.org" - "pub/mirrors/xemacs/beta/experimental/packages") ("South Africa Pre-Releases (za.xemacs.org)" "ftp.za.xemacs.org" "mirrorsites/ftp.xemacs.org/beta/experimental/packages") ("Sweden Pre-Releases (se.xemacs.org)" "ftp.se.xemacs.org" @@ -844,14 +845,7 @@ Return `t' upon complete success, `nil' = (progn ;; Add lispdir to load-path if it doesn't already exist. ;; NOTE: this does not take symlinks, etc., into account. - (if (let ((dirs load-path)) - (catch 'done - (while dirs - (if (string-equal (car dirs) lispdir) - (throw 'done nil)) - (setq dirs (cdr dirs))) - t)) - (setq load-path (cons lispdir load-path))) + (add-to-list 'load-path (file-name-as-directory lispdir)) (if (not (package-get-load-package-file lispdir "auto-autoloads")) (package-get-load-package-file lispdir "_pkg")) t) 1.290.2.96 +44 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.290.2.95 retrieving revision 1.290.2.96 diff -u -p -r1.290.2.95 -r1.290.2.96 --- ChangeLog 2005/02/14 04:15:31 1.290.2.95 +++ ChangeLog 2005/11/25 02:01:53 1.290.2.96 @@ -1,3 +1,47 @@ +2005-07-11 Malcolm Purvis + + * glyphs-gtk.c: Rename a local static variable because gcc 4.0 + says it clashes with a global with the same name. + +2005-07-11 Atanu Ghosh + + * sysdll.c (dll_open): Under MacOS X return NULL under the + filename is NULL. Fixes problems finding local symbols under 10.4 + (Tiger) + +2005-11-15 Dr. Volker Zell + = + * config.h.in: New HAVE_U_INT*_T defines. + = + * database.c: Only use u_int*_t typedefs if not already + defined. + +2005-04-07 15:08 Enrico Scholz + + * src/process-unix.c (unix_open_network_stream): moved + 'portbuf' buffer out of an inner block as it is used in the + entire function. With gcc4, the stack may get corrupted + after leaving this block. This patches adjusts the size of + the used buffer also; static '128' bytes are far too much + currently and might not suffice for future architectures + (e.g. for 512 bit ones ;)). Instead of, use only the really + required space (max octets * ln(256)/ln(10) chars + space + for '\0' and the sign) + +2005-04-08 Aidan Kehoe + + * callproc.c: Include sysdir.h, so any necessary Mule processing + is done on the current directory name before starting a new + process. + +2005-04-06 Stephen J. Turnbull + + * chartab.c (Fchar_table_p): + (Fget_range_char_table): + (Fput_char_table): + (Fmap_char_table): + Describe range representation and fix typo. + 2005-02-12 Vin Shelton = * emacs.c (shut_down_emacs): Advise users to send email to the 1.37.2.3 +1 -0 XEmacs/xemacs/src/Attic/callproc.c Index: callproc.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/Attic/callproc.c,v retrieving revision 1.37.2.2 retrieving revision 1.37.2.3 diff -u -p -r1.37.2.2 -r1.37.2.3 --- callproc.c 2002/10/31 15:07:30 1.37.2.2 +++ callproc.c 2005/11/25 02:01:56 1.37.2.3 @@ -48,6 +48,7 @@ Boston, MA 02111-1307, USA. */ #include "systime.h" #include "sysproc.h" #include "sysfile.h" /* Always include after sysproc.h */ +#include "sysdir.h" #include "syssignal.h" /* Always include before systty.h */ #include "systty.h" = 1.14.2.2 +22 -10 XEmacs/xemacs/src/chartab.c Index: chartab.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/chartab.c,v retrieving revision 1.14.2.1 retrieving revision 1.14.2.2 diff -u -p -r1.14.2.1 -r1.14.2.2 --- chartab.c 2005/01/31 02:55:05 1.14.2.1 +++ chartab.c 2005/11/25 02:01:56 1.14.2.2 @@ -457,15 +457,17 @@ once per character). When Mule support exists, the types of ranges that can be assigned values are = --- all characters +-- all characters (represented by t) -- an entire charset --- a single row in a two-octet charset +-- a single row in a two-octet charset (represented by a vector of two + elements: a two-octet charset and a row number; the row must be an + integer, not a character) -- a single character = When Mule support is not present, the types of ranges that can be assigned values are = --- all characters +-- all characters (represented by t) -- a single character = To create a char table, use `make-char-table'. @@ -853,8 +855,11 @@ Find value for CHARACTER in CHAR-TABLE. } = DEFUN ("get-range-char-table", Fget_range_char_table, 2, 3, 0, /* -Find value for a range in CHAR-TABLE. +Find value for RANGE in CHAR-TABLE. If there is more than one value, return MULTI (defaults to nil). + +Valid values for RANGE are single characters, charsets, a row in a +two-octet charset, and all characters. See `put-char-table'. */ (range, char_table, multi)) { @@ -1142,8 +1147,9 @@ one of the following: = -- t (all characters are affected) -- A charset (only allowed when Mule support is present) --- A vector of two elements: a two-octet charset and a row number - (only allowed when Mule support is present) +-- A vector of two elements: a two-octet charset and a row number; the row + must be an integer, not a character (only allowed when Mule support is + present) -- A single character = VALUE must be a value appropriate for the type of CHAR-TABLE. @@ -1437,12 +1443,18 @@ slow_map_char_table_fun (struct chartab_ } = DEFUN ("map-char-table", Fmap_char_table, 2, 3, 0, /* -Map FUNCTION over entries in CHAR-TABLE, calling it with two args, -each key and value in the table. +Map FUNCTION over CHAR-TABLE until it returns non-nil; return that value. +FUNCTION is called with two arguments, each key and entry in the table. = -RANGE specifies a subrange to map over and is in the same format as -the RANGE argument to `put-range-table'. If omitted or t, it defaults to +RANGE specifies a subrange to map over. If omitted or t, it defaults to the entire table. + +Both RANGE and the keys passed to FUNCTION are in the same format as the +RANGE argument to `put-char-table'. N.B. This function does NOT map over +all characters in RANGE, but over the subranges that have been assigned to. +Thus this function is most suitable for searching a char-table, or for +populating one char-table based on the contents of another. The current +implementation does not coalesce ranges all of whose values are the same. */ (function, char_table, range)) { 1.61.2.8 +9 -0 XEmacs/xemacs/src/config.h.in Index: config.h.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/config.h.in,v retrieving revision 1.61.2.7 retrieving revision 1.61.2.8 diff -u -p -r1.61.2.7 -r1.61.2.8 --- config.h.in 2003/08/18 01:42:10 1.61.2.7 +++ config.h.in 2005/11/25 02:01:56 1.61.2.8 @@ -422,6 +422,15 @@ void *alloca (); /* Compile in support for DBM databases? May require libgdbm or libdbm. */ #undef HAVE_DBM = +/* Define to 1 if the system has the type `u_int8_t'. */ +#undef HAVE_U_INT8_T +/* Define to 1 if the system has the type `u_int16_t'. */ +#undef HAVE_U_INT16_T +/* Define to 1 if the system has the type `u_int32_t'. */ +#undef HAVE_U_INT32_T +/* Define to 1 if the system has the type `u_int64_t'. */ +#undef HAVE_U_INT64_T + /* Compile in support for Berkeley DB style databases? May require libdb.= */ #undef HAVE_BERKELEY_DB /* Full #include file path for Berkeley DB's db.h */ 1.16.2.5 +8 -0 XEmacs/xemacs/src/database.c Index: database.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/database.c,v retrieving revision 1.16.2.4 retrieving revision 1.16.2.5 diff -u -p -r1.16.2.4 -r1.16.2.5 --- database.c 2003/06/19 03:34:42 1.16.2.4 +++ database.c 2005/11/25 02:01:57 1.16.2.5 @@ -46,13 +46,21 @@ Boston, MA 02111-1307, USA. */ #define __BIT_TYPES_DEFINED__ #include #ifndef __FreeBSD__ +#if !HAVE_U_INT8_T typedef uint8_t u_int8_t; +#endif +#if !HAVE_U_INT16_T typedef uint16_t u_int16_t; +#endif +#if !HAVE_U_INT32_T typedef uint32_t u_int32_t; +#endif #ifdef WE_DONT_NEED_QUADS +#if !HAVE_U_INT64_T typedef uint64_t u_int64_t; #endif #endif /* WE_DONT_NEED_QUADS */ +#endif /* !defined(__FreeBSD__) */ #endif /* HAVE_INTTYPES_H */ #endif /* !(defined __GLIBC__ && __GLIBC_MINOR__ >=3D 1) */ /* Berkeley DB wants __STDC__ to be defined; else if does `#define const' = */ 1.2.2.5 +3 -3 XEmacs/xemacs/src/glyphs-gtk.c Index: glyphs-gtk.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/glyphs-gtk.c,v retrieving revision 1.2.2.4 retrieving revision 1.2.2.5 diff -u -p -r1.2.2.4 -r1.2.2.5 --- glyphs-gtk.c 2005/01/31 02:55:17 1.2.2.4 +++ glyphs-gtk.c 2005/11/25 02:01:57 1.2.2.5 @@ -2999,7 +2999,7 @@ complex_vars_of_glyphs_gtk (void) = /* shared data for the image read/parse logic */ static short hexTable[256]; /* conversion value */ -static int initialized =3D FALSE; /* easier to fill in at run time */ +static int hexTable_initialized =3D FALSE; /* easier to fill in at run tim= e */ = /* * Table index for the hex values. Initialized once, first time. @@ -3032,7 +3032,7 @@ static void initHexTable() hexTable['}'] =3D -1; hexTable['\n'] =3D -1; hexTable['\t'] =3D -1; = - initialized =3D TRUE; + hexTable_initialized =3D TRUE; } = /* @@ -3089,7 +3089,7 @@ int read_bitmap_data (fstream, width, he #define Xmalloc(size) malloc(size) = /* first time initialization */ - if (initialized =3D=3D FALSE) initHexTable(); + if (hexTable_initialized =3D=3D FALSE) initHexTable(); = /* error cleanup and return macro */ #define RETURN(code) { if (data) free (data); return code; } 1.20.2.10 +1 -1 XEmacs/xemacs/src/process-unix.c Index: process-unix.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/process-unix.c,v retrieving revision 1.20.2.9 retrieving revision 1.20.2.10 diff -u -p -r1.20.2.9 -r1.20.2.10 --- process-unix.c 2005/02/12 02:56:50 1.20.2.9 +++ process-unix.c 2005/11/25 02:01:57 1.20.2.10 @@ -1684,13 +1684,13 @@ unix_open_network_stream (Lisp_Object na volatile int xerrno =3D 0; volatile int failed_connect =3D 0; char *ext_host; + char portbuf[sizeof(long)*3 + 2]; /* * Caution: service can either be a string or int. * Convert to a C string for later use by getaddrinfo. */ if (INTP (service)) { - char portbuf[128]; snprintf (portbuf, sizeof (portbuf), "%ld", (long) XINT (service)); portstring =3D portbuf; port =3D htons ((unsigned short) XINT (service)); 1.7.2.7 +14 -2 XEmacs/xemacs/src/sysdll.c Index: sysdll.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/sysdll.c,v retrieving revision 1.7.2.6 retrieving revision 1.7.2.7 diff -u -p -r1.7.2.6 -r1.7.2.7 --- sysdll.c 2004/03/25 21:08:19 1.7.2.6 +++ sysdll.c 2005/11/25 02:01:58 1.7.2.7 @@ -263,11 +263,23 @@ dll_handle dll_open (const char *fname) { NSObjectFileImage file; - NSObjectFileImageReturnCode ret =3D = - NSCreateObjectFileImageFromFile(fname, &file); + NSObjectFileImageReturnCode ret; + + /* + * MacOS X dll support is for bundles, not the current executable, so re= turn + * NULL is this case. However, dll_function() uses a special hack where= a + * NULL handle can be used to find executable symbols. This satisfies t= he + * needs of ui-gtk.c but is not a general solution. + */ + if (fname =3D=3D NULL) + return NULL; + + ret =3D NSCreateObjectFileImageFromFile(fname, &file); + if (ret !=3D NSObjectFileImageSuccess) { return NULL; } + return (dll_handle)NSLinkModule(file, fname, = NSLINKMODULE_OPTION_BINDNOW | NSLINKMODULE_OPTION_PRIVATE | --===============5340826111153244020==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============4866911168989107889==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by vins xemacs ... Date: 2005-11-25 03:16:47 +0000 Message-ID: <20051125031647.13767.qmail@sunsite.dk> --===============4866911168989107889== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: vins = Date: 05/11/25 04:16:47 Branch: xemacs release-21-4 Modified: xemacs ChangeLog Log: Added ChangeLog entry to announce re-builder, xetla. Revision Changes Path 1.241.2.78 +4 -0 XEmacs/xemacs/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.241.2.77 retrieving revision 1.241.2.78 diff -u -p -r1.241.2.77 -r1.241.2.78 --- ChangeLog 2005/11/25 01:59:59 1.241.2.77 +++ ChangeLog 2005/11/25 03:16:45 1.241.2.78 @@ -1,3 +1,7 @@ +2005-04-11 Norbert Koch + + * etc/PACKAGES: etc/PACKAGES: Announce re-builder, xetla. + 2005-11-15 Dr. Volker Zell = * configure.in: Avoid using Motif also for cygwin --===============4866911168989107889==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============1250031183485875931==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by michaelk packages/xemacs-packages/viper, ChangeLog ... Date: 2005-11-25 07:20:47 +0000 Message-ID: <20051125072047.8378.qmail@sunsite.dk> --===============1250031183485875931== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: michaelk Date: 05/11/25 08:20:47 Modified: packages/xemacs-packages/viper viper.el viper-keym.el ChangeLog Log: * viper-keym.el (viper-ESC-key): use different values in terminal and window modes. * viper.el (viper-emacs-state-mode-list): delete mail-mode, add jde-javadoc-checker-report-mode. Revision Changes Path 1.36 +3 -2 XEmacs/packages/xemacs-packages/viper/viper.el Index: viper.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/viper/viper.el,v retrieving revision 1.35 retrieving revision 1.36 diff -u -p -r1.35 -r1.36 --- viper.el 2005/11/15 18:53:49 1.35 +++ viper.el 2005/11/25 07:20:46 1.36 @@ -9,7 +9,7 @@ ;; Author: Michael Kifer ;; Keywords: emulations = -(defconst viper-version "3.11.5 of October 5, 2005" +(defconst viper-version "3.11.5 of November 25, 2005" "The current version of Viper") = ;; This file is part of GNU Emacs. @@ -429,7 +429,6 @@ widget." occur-mode = mh-folder-mode - mail-mode gnus-group-mode gnus-summary-mode = @@ -441,6 +440,8 @@ widget." compilation-mode = rcirc-mode + + jde-javadoc-checker-report-mode = view-mode vm-mode 1.13 +3 -2 XEmacs/packages/xemacs-packages/viper/viper-keym.el Index: viper-keym.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/viper/viper-keym.= el,v retrieving revision 1.12 retrieving revision 1.13 diff -u -p -r1.12 -r1.13 --- viper-keym.el 2005/08/06 17:05:11 1.12 +++ viper-keym.el 2005/11/25 07:20:46 1.13 @@ -200,9 +200,10 @@ Enter as a sexp. Examples: \"\\C-z\", [( :type 'string :group 'viper) = -(defcustom viper-ESC-key [(escape)] ; "\e" +(defcustom viper-ESC-key (if (viper-window-display-p) [(escape)] "\e") "Key used to ESC. -Enter as a sexp. Examples: \"\\e\", [(escape)]." +Enter as a sexp. Examples: \"\\e\", [(escape)]. +If running in a terminal, [(escape)] is not understood, so must use \"\\e\= "." :type 'sexp :group 'viper :set (lambda (symbol value) 1.70 +9 -1 XEmacs/packages/xemacs-packages/viper/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/viper/ChangeLog,v retrieving revision 1.69 retrieving revision 1.70 diff -u -p -r1.69 -r1.70 --- ChangeLog 2005/11/16 07:53:18 1.69 +++ ChangeLog 2005/11/25 07:20:46 1.70 @@ -1,7 +1,15 @@ +2005-11-25 Michael Kifer + = + * viper-keym.el (viper-ESC-key): use different values in terminal and + window modes. + = + * viper.el (viper-emacs-state-mode-list): delete mail-mode, add + jde-javadoc-checker-report-mode. + = 2005-11-16 Norbert Koch = * Makefile (VERSION): XEmacs package 1.46 released. - + = 2005-11-15 Michael Kifer = * viper-utils (viper-non-word-characters-reformed-vi): quote `-' in --===============1250031183485875931==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============0142523342184338522==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by michaelk packages/xemacs-packages/ediff, ChangeLog ... Date: 2005-11-25 07:31:39 +0000 Message-ID: <20051125073139.9072.qmail@sunsite.dk> --===============0142523342184338522== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: michaelk Date: 05/11/25 08:31:39 Modified: packages/xemacs-packages/ediff ediff.el ediff-wind.el ChangeLog Log: * ediff-wind (ediff-make-wide-display): Slight simplification. * ediff.el (ediff-date): Changed the date of last update. Revision Changes Path 1.32 +1 -1 XEmacs/packages/xemacs-packages/ediff/ediff.el Index: ediff.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ediff/ediff.el,v retrieving revision 1.31 retrieving revision 1.32 diff -u -p -r1.31 -r1.32 --- ediff.el 2005/10/06 00:17:44 1.31 +++ ediff.el 2005/11/25 07:31:38 1.32 @@ -8,7 +8,7 @@ ;; Keywords: comparing, merging, patching, tools, unix = (defconst ediff-version "2.80.1" "The current version of Ediff") -(defconst ediff-date "October 5, 2005" "Date of last update") +(defconst ediff-date "November 25, 2005" "Date of last update") = = ;; This file is part of GNU Emacs. 1.21 +1 -3 XEmacs/packages/xemacs-packages/ediff/ediff-wind.el Index: ediff-wind.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ediff/ediff-wind.= el,v retrieving revision 1.20 retrieving revision 1.21 diff -u -p -r1.20 -r1.21 --- ediff-wind.el 2005/10/06 00:17:44 1.20 +++ ediff-wind.el 2005/11/25 07:31:38 1.21 @@ -1135,9 +1135,7 @@ It assumes that it is called from within (list (cons 'left (max 0 (eval (cdr (assoc 'left frame-A-params))))) (cons 'width (cdr (assoc 'width frame-A-params)))) ediff-wide-display-frame frame-A) - (modify-frame-parameters frame-A (list (cons 'left cw) - (cons 'width wd))))) - + (modify-frame-parameters frame-A `((left . ,cw) (width . ,wd))))) = = ;; Revise the mode line to display which difference we have selected 1.96 +7 -1 XEmacs/packages/xemacs-packages/ediff/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ediff/ChangeLog,v retrieving revision 1.95 retrieving revision 1.96 diff -u -p -r1.95 -r1.96 --- ChangeLog 2005/11/16 07:52:56 1.95 +++ ChangeLog 2005/11/25 07:31:38 1.96 @@ -1,7 +1,13 @@ +2005-11-25 Michael Kifer + = + * ediff-wind (ediff-make-wide-display): Slight simplification. + = + * ediff.el (ediff-date): Changed the date of last update. + = 2005-11-16 Norbert Koch = * Makefile (VERSION): XEmacs package 1.58 released. - + = 2005-11-15 Michael Kifer = * ediff-util (ediff-make-temp-file): use proper file-name-handler --===============0142523342184338522==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============0499506641047236366==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by viteno packages ... Date: 2005-11-25 08:14:25 +0000 Message-ID: <20051125081425.16364.qmail@sunsite.dk> --===============0499506641047236366== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: viteno = Date: 05/11/25 09:14:25 Modified: packages ChangeLog Log: Package release Revision Changes Path 1.586 +4 -0 XEmacs/packages/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/ChangeLog,v retrieving revision 1.585 retrieving revision 1.586 diff -u -p -r1.585 -r1.586 --- ChangeLog 2005/11/21 07:41:47 1.585 +++ ChangeLog 2005/11/25 08:14:25 1.586 @@ -1,3 +1,7 @@ +2005-11-25 Norbert Koch + + * Packages released: ediff edit-utils viper. + 2005-11-21 Norbert Koch = * Packages released: edit-utils riece. --===============0499506641047236366==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============6323845872152608596==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by viteno packages/xemacs-packages/ediff ... Date: 2005-11-25 08:14:43 +0000 Message-ID: <20051125081443.16398.qmail@sunsite.dk> --===============6323845872152608596== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: viteno = Date: 05/11/25 09:14:43 Modified: packages/xemacs-packages/ediff ChangeLog Makefile Log: Increment VERSION in Makefile Revision Changes Path 1.97 +4 -0 XEmacs/packages/xemacs-packages/ediff/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ediff/ChangeLog,v retrieving revision 1.96 retrieving revision 1.97 diff -u -p -r1.96 -r1.97 --- ChangeLog 2005/11/25 07:31:38 1.96 +++ ChangeLog 2005/11/25 08:14:43 1.97 @@ -1,3 +1,7 @@ +2005-11-25 Norbert Koch + + * Makefile (VERSION): XEmacs package 1.59 released. + 2005-11-25 Michael Kifer = * ediff-wind (ediff-make-wide-display): Slight simplification. 1.71 +1 -1 XEmacs/packages/xemacs-packages/ediff/Makefile Index: Makefile =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ediff/Makefile,v retrieving revision 1.70 retrieving revision 1.71 diff -u -p -r1.70 -r1.71 --- Makefile 2005/11/16 07:52:56 1.70 +++ Makefile 2005/11/25 08:14:43 1.71 @@ -17,7 +17,7 @@ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. = -VERSION =3D 1.58 +VERSION =3D 1.59 AUTHOR_VERSION =3D 2.75 MAINTAINER =3D Michael Kifer PACKAGE =3D ediff --===============6323845872152608596==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============5130604480502844296==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by viteno packages/xemacs-packages/edit-utils ... Date: 2005-11-25 08:15:15 +0000 Message-ID: <20051125081515.16506.qmail@sunsite.dk> --===============5130604480502844296== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: viteno = Date: 05/11/25 09:15:15 Modified: packages/xemacs-packages/edit-utils ChangeLog Makefile Log: Increment VERSION in Makefile Revision Changes Path 1.214 +4 -0 XEmacs/packages/xemacs-packages/edit-utils/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/Change= Log,v retrieving revision 1.213 retrieving revision 1.214 diff -u -p -r1.213 -r1.214 --- ChangeLog 2005/11/21 07:59:42 1.213 +++ ChangeLog 2005/11/25 08:15:15 1.214 @@ -1,3 +1,7 @@ +2005-11-25 Norbert Koch + + * Makefile (VERSION): XEmacs package 2.31 released. + 2005-11-21 Adrian Aichner = * Makefile (ELCS): Add crm.elc. 1.144 +1 -1 XEmacs/packages/xemacs-packages/edit-utils/Makefile Index: Makefile =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/Makefi= le,v retrieving revision 1.143 retrieving revision 1.144 diff -u -p -r1.143 -r1.144 --- Makefile 2005/11/21 07:59:42 1.143 +++ Makefile 2005/11/25 08:15:15 1.144 @@ -19,7 +19,7 @@ = # This XEmacs package contains independent single file lisp packages = -VERSION =3D 2.30 +VERSION =3D 2.31 AUTHOR_VERSION =3D MAINTAINER =3D XEmacs Development Team PACKAGE =3D edit-utils --===============5130604480502844296==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============7363486919660269282==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by viteno packages/xemacs-packages/viper ... Date: 2005-11-25 08:15:38 +0000 Message-ID: <20051125081538.16551.qmail@sunsite.dk> --===============7363486919660269282== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: viteno = Date: 05/11/25 09:15:38 Modified: packages/xemacs-packages/viper ChangeLog Makefile Log: Increment VERSION in Makefile Revision Changes Path 1.71 +4 -0 XEmacs/packages/xemacs-packages/viper/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/viper/ChangeLog,v retrieving revision 1.70 retrieving revision 1.71 diff -u -p -r1.70 -r1.71 --- ChangeLog 2005/11/25 07:20:46 1.70 +++ ChangeLog 2005/11/25 08:15:37 1.71 @@ -1,3 +1,7 @@ +2005-11-25 Norbert Koch + + * Makefile (VERSION): XEmacs package 1.47 released. + 2005-11-25 Michael Kifer = * viper-keym.el (viper-ESC-key): use different values in terminal and 1.55 +1 -1 XEmacs/packages/xemacs-packages/viper/Makefile Index: Makefile =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/viper/Makefile,v retrieving revision 1.54 retrieving revision 1.55 diff -u -p -r1.54 -r1.55 --- Makefile 2005/11/16 07:53:18 1.54 +++ Makefile 2005/11/25 08:15:37 1.55 @@ -17,7 +17,7 @@ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. = -VERSION =3D 1.46 +VERSION =3D 1.47 AUTHOR_VERSION =3D 3.09 MAINTAINER =3D Michael Kifer PACKAGE =3D viper --===============7363486919660269282==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============5238541056646661878==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by viteno xemacs-builds/viteno ... Date: 2005-11-25 09:09:08 +0000 Message-ID: <20051125090908.27552.qmail@sunsite.dk> --===============5238541056646661878== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: viteno = Date: 05/11/25 10:09:08 Modified: xemacs-builds/viteno package-index setup-packages.ini Log: Package database backup: - ediff-1.59 - edit-utils-2.31 - viper-1.47 Revision Changes Path 1.263 +21 -21 XEmacs/xemacs-builds/viteno/package-index Index: package-index =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/viteno/package-index,v retrieving revision 1.262 retrieving revision 1.263 diff -u -p -r1.262 -r1.263 --- package-index 2005/11/21 07:56:07 1.262 +++ package-index 2005/11/25 09:09:07 1.263 @@ -789,19 +789,19 @@ (package-get-update-base-entry (quote (edit-utils (standards-version 1.1 - version "2.30" + version "2.31" author-version "No-Upstream-Ver" - date "2005-11-21" - build-date "2005-11-21" + date "2005-11-25" + build-date "2005-11-25" maintainer "XEmacs Development Team " distribution xemacs priority high category "standard" dump nil description "Miscellaneous editor extensions, you probably need this." - filename "edit-utils-2.30-pkg.tar.gz" - md5sum "2e80b10a989834108fbf5ef67472655d" - size 934695 + filename "edit-utils-2.31-pkg.tar.gz" + md5sum "0ed9c6f5009d9606a4f9841dc3a4b30d" + size 944605 provides (abbrevlist after-save-commands atomic-extents avoid backup-di= r balloon-help big-menubar blink-cursor blink-paren bookmark compare-w comp= letion dabbrev desktop detached-minibuf edit-toolbar fast-lock file-part fl= oating-toolbar flow-ctrl foldout func-menu hippie-exp icomplete id-select i= nfo-look iswitchb lazy-lock lazy-shot live-icon makesum man mic-paren paren= mode-motion+ outl-mouse outln-18 page-ext blink-paren paren permanent-buff= ers popper power-macros recent-files redo reportmail resume rsz-minibuf sav= econf savehist saveplace scroll-in-place setnu shell-font tempo toolbar-uti= ls tree-menu uniquify vertical-mode where-was-i-db winring autorevert align= allout outline narrow-stack highline) requires (xemacs-base xemacs-devel fsf-compat dired mail-lib) type single @@ -1581,19 +1581,19 @@ (package-get-update-base-entry (quote (viper (standards-version 1.1 - version "1.46" + version "1.47" author-version "3.09" - date "2005-11-16" - build-date "2005-11-16" + date "2005-11-25" + build-date "2005-11-25" maintainer "Michael Kifer " distribution xemacs priority low category "standard" dump nil description "VI emulation support." - filename "viper-1.46-pkg.tar.gz" - md5sum "e7f1ded79c43ee94ebb8c780572ba4f3" - size 334931 + filename "viper-1.47-pkg.tar.gz" + md5sum "66e3556c2421cf81083406bc92ad9f88" + size 335017 provides (viper-cmd viper-ex viper-init viper-keym viper-macs viper-mou= s viper-util viper) requires (xemacs-base) type regular @@ -1738,7 +1738,7 @@ version "1.46" author-version "11.55" date "2005-02-12" - build-date "2005-02-12" + build-date "2005-11-22" maintainer "Uwe Brauer " distribution xemacs priority medium @@ -1746,8 +1746,8 @@ dump nil description "Basic TeX/LaTeX support." filename "auctex-1.46-pkg.tar.gz" - md5sum "63b795e9ee4773d4220bf7c84295ff5e" - size 709415 + md5sum "5fd90caa65342e6afea5c50f46938fb5" + size 709284 provides (auc-old auc-tex bib-cite font-latex latex multi-prompt tex-bu= f tex-info tex-jp tex-mik tex-site tex texmathp hilit-LaTeX tex-font tex-fp= tex) requires (xemacs-base) type regular @@ -1955,19 +1955,19 @@ (package-get-update-base-entry (quote (ediff (standards-version 1.1 - version "1.58" + version "1.59" author-version "2.75" - date "2005-11-16" - build-date "2005-11-16" + date "2005-11-25" + build-date "2005-11-25" maintainer "Michael Kifer " distribution xemacs priority medium category "standard" dump nil description "Interface over GNU patch." - filename "ediff-1.58-pkg.tar.gz" - md5sum "b5e6dfc0cab30974bc3686e136cf2cf3" - size 313930 + filename "ediff-1.59-pkg.tar.gz" + md5sum "01abed5a49c99c41cbcc22c5b9414afe" + size 313940 provides (ediff-diff ediff-help ediff-hook ediff-init ediff-merg ediff-= mult ediff-ptch ediff-tbar ediff-util ediff-vers ediff-wind ediff) requires (pcl-cvs elib dired xemacs-base edebug prog-modes) type regular 1.251 +7 -7 XEmacs/xemacs-builds/viteno/setup-packages.ini Index: setup-packages.ini =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/viteno/setup-packages.ini,v retrieving revision 1.250 retrieving revision 1.251 diff -u -p -r1.250 -r1.251 --- setup-packages.ini 2005/11/21 07:56:07 1.250 +++ setup-packages.ini 2005/11/25 09:09:07 1.251 @@ -140,8 +140,8 @@ version: 1.17 install: packages/debug-1.17-pkg.tar.gz 108073 = @ ediff -version: 1.58 -install: packages/ediff-1.58-pkg.tar.gz 313930 +version: 1.59 +install: packages/ediff-1.59-pkg.tar.gz 313940 = @ emerge version: 1.11 @@ -181,7 +181,7 @@ install: packages/vhdl-1.20-pkg.tar.gz 3 = @ auctex version: 1.46 -install: packages/auctex-1.46-pkg.tar.gz 709415 +install: packages/auctex-1.46-pkg.tar.gz 709284 = @ crisp version: 1.15 @@ -208,8 +208,8 @@ version: 1.14 install: packages/tpu-1.14-pkg.tar.gz 59529 = @ viper -version: 1.46 -install: packages/viper-1.46-pkg.tar.gz 334931 +version: 1.47 +install: packages/viper-1.47-pkg.tar.gz 335017 = @ eterm version: 1.17 @@ -320,8 +320,8 @@ version: 1.11 install: packages/ps-print-1.11-pkg.tar.gz 156222 = @ edit-utils -version: 2.30 -install: packages/edit-utils-2.30-pkg.tar.gz 934695 +version: 2.31 +install: packages/edit-utils-2.31-pkg.tar.gz 944605 = @ fsf-compat version: 1.15 --===============5238541056646661878==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============1267245313408900031==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by viteno xemacs ... Date: 2005-11-25 22:51:38 +0000 Message-ID: <20051125225138.10573.qmail@sunsite.dk> --===============1267245313408900031== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: viteno = Date: 05/11/25 23:51:38 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1355 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1354 retrieving revision 1.1355 diff -u -p -r1.1354 -r1.1355 --- version.sh 2005/11/24 22:51:25 1.1354 +++ version.sh 2005/11/25 22:51:38 1.1355 @@ -8,5 +8,5 @@ emacs_kit_version=3D infodock_major_version=3D4 infodock_minor_version=3D0 infodock_build_version=3D8 -xemacs_extra_name=3D"(+CVS-20051124)" +xemacs_extra_name=3D"(+CVS-20051125)" xemacs_release_date=3D"2005-10-26" --===============1267245313408900031==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============0958454775966922554==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by vins xemacs/src ... Date: 2005-11-26 03:47:49 +0000 Message-ID: <20051126034749.23387.qmail@sunsite.dk> --===============0958454775966922554== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: vins = Date: 05/11/26 04:47:49 Branch: xemacs/lisp release-21-4 xemacs/lwlib release-21-4 xemacs/man release-21-4 xemacs/man/lispref release-21-4 xemacs/src release-21-4 Modified: xemacs/src ChangeLog callproc.c depend unexelf.c Log: More (old) patches for 21.4.18. Revision Changes Path 1.266.2.84 +18 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.266.2.83 retrieving revision 1.266.2.84 diff -u -p -r1.266.2.83 -r1.266.2.84 --- ChangeLog 2005/11/25 02:01:48 1.266.2.83 +++ ChangeLog 2005/11/26 03:47:23 1.266.2.84 @@ -1,3 +1,21 @@ +2002-05-13 Adrian Aichner + + * code-process.el (call-process): Process-related docstring + improvements spurred by Norbert Koch. + * code-process.el (call-process-region): Ditto. + * code-process.el (start-process): Ditto. + +2005-10-09 Adrian Aichner + + * finder.el (finder-find-library): Return filename actually + searched for. + +2005-10-10 Steve Youngs + + * help.el (view-emacs-news): Use `expand-file-name' instead of + `locate-data-file' as the latter will find any "NEWS" files that + might exist in packages _before_ the one in core. + 2005-06-06 Adrian Aichner = * package-get.el (package-get-init-package): 1.6.2.2 +8 -4 XEmacs/xemacs/lisp/code-process.el Index: code-process.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/code-process.el,v retrieving revision 1.6.2.1 retrieving revision 1.6.2.2 diff -u -p -r1.6.2.1 -r1.6.2.2 --- code-process.el 2003/08/14 23:42:50 1.6.2.1 +++ code-process.el 2005/11/26 03:47:25 1.6.2.2 @@ -50,6 +50,8 @@ or a cons of coding systems which are us The program's input comes from file INFILE (nil means `/dev/null'). Insert output in BUFFER before point; t means current buffer; nil for BUFFER means discard it; 0 means discard and don't wait. +If BUFFER is a string, then find or create a buffer with that name, +then insert the output in that buffer, before point. BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case, REAL-BUFFER says what to do with standard output, as above, while STDERR-FILE says what to do with standard error in the child. @@ -100,6 +102,8 @@ Delete the text if fourth arg DELETEP is = Insert output in BUFFER before point; t means current buffer; nil for BUFFER means discard it; 0 means discard and don't wait. +If BUFFER is a string, then find or create a buffer with that name, +then insert the output in that buffer, before point. BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case, REAL-BUFFER says what to do with standard output, as above, while STDERR-FILE says what to do with standard error in the child. @@ -158,10 +162,10 @@ found, they default to `nil' for both in Args are NAME BUFFER PROGRAM &rest PROGRAM-ARGS NAME is name for process. It is modified if necessary to make it unique. BUFFER is the buffer or (buffer-name) to associate with the process. - Process output goes at end of that buffer, unless you specify - an output stream or filter function to handle the output. - BUFFER may be also nil, meaning that this process is not associated - with any buffer +Process output goes at end of that buffer, unless you specify +an output stream or filter function to handle the output. +BUFFER may also be nil, meaning that this process is not associated +with any buffer. Third arg is program file name. It is searched for as in the shell. Remaining arguments are strings to give program as arguments. = 1.5.2.1 +1 -1 XEmacs/xemacs/lisp/finder.el Index: finder.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/finder.el,v retrieving revision 1.5 retrieving revision 1.5.2.1 diff -u -p -r1.5 -r1.5.2.1 --- finder.el 2001/04/12 18:21:19 1.5 +++ finder.el 2005/11/26 03:47:25 1.5.2.1 @@ -287,7 +287,7 @@ arguments compiles from `load-path'." found) (while (and dirs (not found)) (if (file-exists-p (expand-file-name (concat file ".el") (car dirs))) - (setq found (expand-file-name file (car dirs))) + (setq found (expand-file-name (concat file ".el") (car dirs))) (if (file-exists-p (expand-file-name file (car dirs))) (setq found (expand-file-name file (car dirs))))) (setq dirs (cdr dirs))) 1.30.2.5 +1 -1 XEmacs/xemacs/lisp/help.el Index: help.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/help.el,v retrieving revision 1.30.2.4 retrieving revision 1.30.2.5 diff -u -p -r1.30.2.4 -r1.30.2.5 --- help.el 2004/09/23 03:02:31 1.30.2.4 +++ help.el 2005/11/26 03:47:25 1.30.2.5 @@ -736,7 +736,7 @@ of the key sequence that ran this comman (defun view-emacs-news () "Display info on recent changes to XEmacs." (interactive) - (Help-find-file (locate-data-file "NEWS"))) + (Help-find-file (expand-file-name "NEWS" data-directory))) = (defun xemacs-www-page () "Go to the XEmacs World Wide Web page." 1.23.2.27 +6 -0 XEmacs/xemacs/lwlib/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/ChangeLog,v retrieving revision 1.23.2.26 retrieving revision 1.23.2.27 diff -u -p -r1.23.2.26 -r1.23.2.27 --- ChangeLog 2005/02/06 19:23:40 1.23.2.26 +++ ChangeLog 2005/11/26 03:47:33 1.23.2.27 @@ -1,3 +1,9 @@ +2005-03-07 Stephen J. Turnbull + + * lwlib-Xlw.c (build_tabs_in_widget): Correctly disable geometry + negotiation for tab children. + (xlw_create_tab_control): Don't set nonexistent resizable resource. + 2005-02-06 Vin Shelton = * XEmacs 21.4.17 is released 1.8.2.2 +20 -6 XEmacs/xemacs/lwlib/lwlib-Xlw.c Index: lwlib-Xlw.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/lwlib-Xlw.c,v retrieving revision 1.8.2.1 retrieving revision 1.8.2.2 diff -u -p -r1.8.2.1 -r1.8.2.2 --- lwlib-Xlw.c 2001/10/23 08:35:22 1.8.2.1 +++ lwlib-Xlw.c 2005/11/26 03:47:33 1.8.2.2 @@ -324,13 +324,21 @@ xlw_update_scrollbar (widget_instance *i #ifdef LWLIB_TABS_LUCID /* tab control = - lwlib is such an incredible hairy crock. I just cannot believe + [[ lwlib is such an incredible hairy crock. I just cannot believe it! There are random dependencies between functions, there is a total lack of genericity, even though it initially appears to be generic. It should all be junked and begun again. Building tabs are an example - in theory we should be able to reuse a lot of the general stuff because we want to put labels of whatever toolkit we - are using in the tab. Instead we have to hack it by hand. */ + are using in the tab. Instead we have to hack it by hand. ]] + While lwlib is a hairy crock, whoever wrote that seems to misunderstand + Falk's tab control widget. The tab control widget has *two* kinds of + children: *widgets*, which all occupy a *single* pane below the row of + tabs---this is where the labels created in build_tabs_in_widget go, and + *gadgets*, the tabs themselves, which do *not* draw themselves, but + rather are drawn by the control. In fact, in XEmacs the true widget + children are *never* visible! So this case is not a problem in the + design of lwlib, but rather of Falk's widget. -- sjt */ static void xlw_tab_control_callback (Widget w, XtPointer client_data, XtPointer call_= data) { @@ -380,9 +388,8 @@ xlw_create_tab_control (widget_instance = widget_value* val =3D instance->info->val; = XtSetArg (al [ac], XtNsensitive, val->enabled); ac++; - XtSetArg (al [ac], XtNmappedWhenManaged, FALSE); ac++; + XtSetArg (al [ac], XtNmappedWhenManaged, False); ac++; XtSetArg (al [ac], XtNorientation, XtorientHorizontal); ac++; - XtSetArg (al [ac], XtNresizable, False); ac++; = /* add any args the user supplied for creation time */ lw_add_value_args_to_args (val, al, &ac); @@ -401,15 +408,22 @@ static void build_tabs_in_widget (widget widget_value* val) { widget_value* cur =3D val; + Arg al[1]; + + /* Children are always invisible, don't permit resizing. */ + XtSetArg (al[0], XtNresizable, False); + for (cur =3D val; cur; cur =3D cur->next) { if (cur->value) { + Widget w; #ifdef LWLIB_WIDGETS_MOTIF - xm_create_label (widget, cur); + w =3D xm_create_label (widget, cur); #else - xaw_create_label (widget, cur); + w =3D xaw_create_label (widget, cur); #endif + XtSetValues (w, al, 1); } cur->change =3D NO_CHANGE; } 1.116.2.58 +5 -0 XEmacs/xemacs/man/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/man/ChangeLog,v retrieving revision 1.116.2.57 retrieving revision 1.116.2.58 diff -u -p -r1.116.2.57 -r1.116.2.58 --- ChangeLog 2005/02/24 03:06:17 1.116.2.57 +++ ChangeLog 2005/11/26 03:47:34 1.116.2.58 @@ -1,3 +1,8 @@ +2005-01-19 Aidan Kehoe + + * lispref/mule.texi (CCL Example): Detail an implementation of the + web's URL encoding as a CCL coding system example. = + 2005-02-23 Aidan Kehoe = * lispref/searching.texi (Syntax of Regexps): 1.4.2.3 +271 -5 XEmacs/xemacs/man/lispref/mule.texi Index: mule.texi =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/man/lispref/mule.texi,v retrieving revision 1.4.2.2 retrieving revision 1.4.2.3 diff -u -p -r1.4.2.2 -r1.4.2.3 --- mule.texi 2002/08/20 11:35:49 1.4.2.2 +++ mule.texi 2005/11/26 03:47:36 1.4.2.3 @@ -1723,7 +1723,7 @@ depends on the keyword). * CCL Statements:: Semantics of CCL statements. * CCL Expressions:: Operators and expressions in CCL. * Calling CCL:: Running CCL programs. -* CCL Examples:: The encoding functions for Big5 and KOI-8. +* CCL Example:: A trivial program to transform the Web's URL encod= ing. @end menu = @node CCL Syntax, CCL Statements, , CCL @@ -1942,7 +1942,7 @@ complicated transformation of the Japane Shift JIS. CCL_DECODE_SJIS is its inverse.) It is somewhat odd to represent the SJIS operations in infix form. = -(a)node Calling CCL, CCL Examples, CCL Expressions, CCL +(a)node Calling CCL, CCL Example, CCL Expressions, CCL @comment Node, Next, Previous, Up @subsection Calling CCL = @@ -2008,11 +2008,277 @@ value and 0. Resets the CCL interpreter's internal elapsed time registers. @end defun = -(a)node CCL Examples, , Calling CCL, CCL +(a)node CCL Example, , Calling CCL, CCL @comment Node, Next, Previous, Up -(a)subsection CCL Examples +(a)subsection CCL Example = - This section is not yet written. + In this section, we describe the implementation of a trivial coding +system to transform from the Web's URL encoding to XEmacs' internal +coding. Many people will have been first exposed to URL encoding when +they saw ``%20'' where they expected a space in a file's name on their +local hard disk; this can happen when a browser saves a file from the +web and doesn't encode the name, as passed from the server, properly. + + URL encoding itself is underspecified with regard to encodings beyond +ASCII. The relevant document, RFC 1738, explicitly doesn't give any +information on how to encode non-ASCII characters, and the ``obvious'' +way---use the %xx values for the octets of the eight bit MIME character +set in which the page was served---breaks when a user types a character +outside that character set. Best practice for web development is to +serve all pages as UTF-8 and treat incoming form data as using that +coding system. (Oh, and gamble that your clients won't ever want to +type anything outside Unicode. But that's not so much of a gamble with +today's client operating systems.) We don't treat non-ASCII in this +example, as dealing with @samp{(read-multibyte-character ...)} and +errors therewith would make it much harder to understand. + + Since CCL isn't a very rich language, we move much of the logic that +would ordinarily be computed from operations like @code{(member ..)}, +(a)code{(and ...)} and @code{(or ...)} into tables, from which register +values are read and written, and on which @code{if} statements are +predicated. Much more of the implementation of this coding system is +occupied with constructing these tables---in normal Emacs Lisp---than it +is with actual CCL code. + + All the @code{defvar} statements we deal with in the next few sections +are surrounded by a @code{(eval-and-compile ...)}, which means that the +logic which initializes these variables executes at compile time, and if +XEmacs loads the compiled version of the file, these variables are +initialized as constants. + +(a)menu +* Four bits to ASCII:: Two tables used for getting hex digits from ASCII. +* URI Encoding constants:: Useful predefined characters. = +* Numeric to ASCII-hexadecimal conversion:: Trivial in Lisp, not so in CCL. +* Characters to be preserved:: No transformation needed for these characte= rs. +* The program to decode to internal format:: . +* The program to encode from internal format:: . = + +(a)end menu + +(a)node Four bits to ASCII, URI Encoding constants, , CCL Example +(a)subsubsection Four bits to ASCII + + The first @code{defvar} is for +(a)code{url-coding-high-order-nybble-as-ascii}, a 256-entry table that +maps from an octet's value to the ASCII encoding for the hex value of +its most significant four bits. That might sound complex, but it isn't; +for decimal 65, hex value @samp{#x41}, the entry in the table is the +ASCII encoding of `4'. For decimal 122, ASCII `z', hex value +(a)code{#x7a}, @code{(elt url-coding-high-order-nybble-as-ascii #x7a)} +after this file is loaded gives the ASCII encoding of 7. + +(a)example +(defvar url-coding-high-order-nybble-as-ascii + (let ((val (make-vector 256 0)) + (i 0)) + (while (< i (length val)) + (aset val i (char-int (aref (format "%02X" i) 0))) + (setq i (1+ i))) + val) + "Table to find an ASCII version of an octet's most significant 4 bits.") +(a)end example + + The next table, @code{url-coding-low-order-nybble-as-ascii} is almost +the same thing, but this time it has a map for the hex encoding of the +low-order four bits. So the sixty-fifth entry (offset @samp{#x51}) is +the ASCII encoding of `1', the hundred-and-twenty-second (offset +(a)samp{#x7a}) is the ASCII encoding of `A'. + +(a)example +(defvar url-coding-low-order-nybble-as-ascii = + (let ((val (make-vector 256 0)) + (i 0)) + (while (< i (length val)) + (aset val i (char-int (aref (format "%02X" i) 1))) + (setq i (1+ i))) + val) + "Table to find an ASCII version of an octet's least significant 4 bits.") +(a)end example + +(a)node URI Encoding constants, Numeric to ASCII-hexadecimal conversion, F= our bits to ASCII, CCL Example +(a)subsubsection URI Encoding constants + + Next, we have a couple of variables that make the CCL code more +readable. The first is the ASCII encoding of the percentage sign; this +character is used as an escape code, to start the encoding of a +non-printable character. For historical reasons, URL encoding allows +the space character to be encoded as a plus sign--it does make typing +URLs like @samp{http://google.com/search?q=3DXEmacs+home+page} easier--and +as such, we have to check when decoding for this value, and map it to +the space character. When doing this in CCL, we use the +(a)code{url-coding-escaped-space-code} variable. = + = +(a)example +(defvar url-coding-escape-character-code (char-int ?%) + "The code point for the percentage sign, in ASCII.") + +(defvar url-coding-escaped-space-code (char-int ?+) + "The URL-encoded value of the space character, that is, +.") +(a)end example + +(a)node Numeric to ASCII-hexadecimal conversion +(a)subsubsection Numeric to ASCII-hexadecimal conversion + + Now, we have a couple of utility tables that wouldn't be necessary in +a more expressive programming language than is CCL. The first is sixteen +in length, and maps a hexadecimal number to the ASCII encoding of that +number; so zero maps to ASCII `0', ten maps to ASCII `A.' The second +does the reverse; that is, it maps an ASCII character to its value when +interpreted as a hexadecimal digit. ('A' =3D> 10, 'c' =3D> 12, '2' =3D> 2,= as +a few examples.) + +(a)example +(defvar url-coding-hex-digit-table = + (let ((i 0) + (val (make-vector 16 0))) + (while (< i 16) + (aset val i (char-int (aref (format "%X" i) 0))) + (setq i (1+ i))) + val) + "A map from a hexadecimal digit's numeric value to its encoding in ASCII= .") + +(defvar url-coding-latin-1-as-hex-table + (let ((val (make-vector 256 0)) + (i 0)) + (while (< i (length val)) + ;; Get a hex val for this ASCII character. + (aset val i (string-to-int (format "%c" i) 16)) + (setq i (1+ i))) + val) + "A map from Latin 1 code points to their values as hexadecimal digits.") +(a)end example + +(a)node Characters to be preserved +(a)subsubsection Characters to be preserved + + And finally, the last of these tables. URL encoding says that +alphanumeric characters, the underscore, hyphen and the full stop +(a)footnote{That's what the standards call it, though my North American +readers will be more familiar with it as the period character.} retain +their ASCII encoding, and don't undergo transformation. +(a)code{url-coding-should-preserve-table} is an array in which the entries +are one if the corresponding ASCII character should be left as-is, and +zero if they should be transformed. So the entries for all the control +and most of the punctuation charcters are zero. Lisp programmers will +observe that this initialization is particularly inefficient, but +they'll also be aware that this is a long way from an inner loop where +every nanosecond counts. + +(a)example +(defvar url-coding-should-preserve-table = + (let ((preserve = + (list ?- ?_ ?. ?a ?b ?c ?d ?e ?f ?g ?h ?i ?j ?k ?l ?m ?n ?o = + ?p ?q ?r ?s ?t ?u ?v ?w ?x ?y ?z ?A ?B ?C ?D ?E ?F ?G + ?H ?I ?J ?K ?L ?M ?N ?O ?P ?Q ?R ?S ?T ?U ?V ?W ?X ?Y + ?Z ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)) + (i 0) + (res (make-vector 256 0))) + (while (< i 256) + (when (member (int-char i) preserve) + (aset res i 1)) + (setq i (1+ i))) + res) + "A 256-entry array of flags, indicating whether or not to preserve an +octet as its ASCII encoding.") +(a)end example + +(a)node The program to decode to internal format +(a)subsubsection The program to decode to internal format + + After the almost interminable tables, we get to the CCL. The first +CCL program, @code{ccl-decode-urlcoding} decodes from the URL coding to +our internal format; since this version of CCL doesn't have support for +error checking on the input, we don't do any verification on it. + +The buffer magnification--approximate ratio of the size of the output +buffer to the size of the input buffer--is declared as one, because +fractional values aren't allowed. (Since all those %20's will map to = +` ', the length of the output text will be less than that of the input +text.) = + +So, first we read an octet from the input buffer into register +(a)samp{r0}, to set up the loop. Next, we start the loop, with a +(a)code{(loop ...)} statement, and we check if the value in @samp{r0} is a +percentage sign. (Note the comma before +(a)code{url-coding-escape-character-code}; since CCL is a Lisp macro +language, we can break out of the macro evaluation with a comman, and as +such, ``@code{,url-coding-escape-character-code}'' will be evaluated as a +literal `37.') = + +If it is a percentage sign, we read the next two octets into @samp{r2} +and @samp{r3}, and convert them into their hexadecimal numeric values, +using the @code{url-coding-latin-1-as-hex-table} array declared above. +(But again, it'll be interpreted as a literal array.) We then left +shift the first by four bits, mask the two together, and write the +result to the output buffer. + +If it isn't a percentage sign, and it is a `+' sign, we write a +space--hexadecimal 20--to the output buffer. = + +If none of those things are true, we pass the octet to the output buffer +untransformed. (This could be a place to put error checking, in a more +expressive language.) We then read one more octet from the input +buffer, and move to the next iteration of the loop. = + +(a)example +(define-ccl-program ccl-decode-urlcoding + `(1 = + ((read r0) + (loop + (if (r0 =3D=3D ,url-coding-escape-character-code) + ((read r2 r3) + ;; Assign the value at offset r2 in the url-coding-hex-digit-table + ;; to r3. + (r2 =3D r2 ,url-coding-latin-1-as-hex-table) + (r3 =3D r3 ,url-coding-latin-1-as-hex-table) + (r2 <<=3D 4) + (r3 |=3D r2) + (write r3)) + (if (r0 =3D=3D ,url-coding-escaped-space-code) + (write #x20) + (write r0))) + (read r0) + (repeat)))) + "CCL program to take URI-encoded ASCII text and transform it to our +internal encoding. ") +(a)end example + +(a)node The program to encode from internal format +(a)subsubsection The program to encode from internal format + + Next, we see the CCL program to encode ASCII text as URL coded text. +Here, the buffer magnification is specified as three, to account for ` ' +mapping to %20, etc. As before, we read an octet from the input into +(a)samp{r0}, and move into the body of the loop. Next, we check if we +should preserve the value of this octet, by reading from offset +(a)samp{r0} in the @code{url-coding-should-preserve-table} into @samp{r1}. +Then we have an @samp{if} statement predicated on the value in +(a)samp{r1}; for the true branch, we write the input octet directly. For +the false branch, we write a percentage sign, the ASCII encoding of the +high four bits in hex, and then the ASCII encoding of the low four bits +in hex. = + +We then read an octet from the input into @samp{r0}, and repeat the loop. + +(a)example +(define-ccl-program ccl-encode-urlcoding + `(3 + ((read r0) + (loop + (r1 =3D r0 ,url-coding-should-preserve-table) + ;; If we should preserve the value, just write the octet directly. + (if r1 + (write r0) + ;; else, write a percentage sign, and the hex value of the octet, in + ;; an ASCII-friendly format. + ((write ,url-coding-escape-character-code) + (write r0 ,url-coding-high-order-nybble-as-ascii) + (write r0 ,url-coding-low-order-nybble-as-ascii))) + (read r0) + (repeat)))) + "CCL program to encode octets (almost) according to RFC 1738") +(a)end example = @node Category Tables, , CCL, MULE @section Category Tables 1.290.2.97 +9 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.290.2.96 retrieving revision 1.290.2.97 diff -u -p -r1.290.2.96 -r1.290.2.97 --- ChangeLog 2005/11/25 02:01:53 1.290.2.96 +++ ChangeLog 2005/11/26 03:47:38 1.290.2.97 @@ -1,3 +1,12 @@ +2002-05-13 Adrian Aichner + + * callproc.c: Process-related docstring improvements spurred by + Norbert Koch. + +2005-11-25 Vin Shelton + + * depend: Regenerated. + 2005-07-11 Malcolm Purvis = * glyphs-gtk.c: Rename a local static variable because gcc 4.0 1.37.2.4 +2 -0 XEmacs/xemacs/src/Attic/callproc.c Index: callproc.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/Attic/callproc.c,v retrieving revision 1.37.2.3 retrieving revision 1.37.2.4 diff -u -p -r1.37.2.3 -r1.37.2.4 --- callproc.c 2005/11/25 02:01:56 1.37.2.3 +++ callproc.c 2005/11/26 03:47:42 1.37.2.4 @@ -170,6 +170,8 @@ Arguments are The program's input comes from file INFILE (nil means `/dev/null'). Insert output in BUFFER before point; t means current buffer; nil for BUFFER means discard it; 0 means discard and don't wait. +If BUFFER is a string, then find or create a buffer with that name, +then insert the output in that buffer, before point. BUFFER can also have the form (REAL-BUFFER STDERR-FILE); in that case, REAL-BUFFER says what to do with standard output, as above, while STDERR-FILE says what to do with standard error in the child. 1.22.2.4 +1 -1 XEmacs/xemacs/src/depend Index: depend =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/depend,v retrieving revision 1.22.2.3 retrieving revision 1.22.2.4 diff -u -p -r1.22.2.3 -r1.22.2.4 --- depend 2004/12/05 03:26:23 1.22.2.3 +++ depend 2005/11/26 03:47:43 1.22.2.4 @@ -91,7 +91,7 @@ blocktype.o: $(LISP_H) blocktype.h buffer.o: $(LISP_H) buffer.h bufslots.h casetab.h chartab.h commands.h con= slots.h console.h device.h elhash.h extents.h faces.h file-coding.h frame.h= frameslots.h glyphs.h gui.h insdel.h lstream.h mule-charset.h process.h re= display.h scrollbar.h select.h specifier.h syntax.h sysdep.h sysfile.h tool= bar.h window.h winslots.h bytecode.o: $(LISP_H) backtrace.h buffer.h bufslots.h bytecode.h casetab.h= chartab.h mule-charset.h opaque.h syntax.h callint.o: $(LISP_H) buffer.h bufslots.h bytecode.h casetab.h chartab.h co= mmands.h events.h insdel.h mule-charset.h redisplay.h scrollbar.h systime.h= window.h winslots.h -callproc.o: $(LISP_H) buffer.h bufslots.h casetab.h chartab.h commands.h f= ile-coding.h insdel.h lstream.h mule-charset.h nt.h process.h redisplay.h s= crollbar.h sysdep.h sysfile.h sysproc.h syssignal.h systime.h systty.h sysw= indows.h window.h winslots.h +callproc.o: $(LISP_H) buffer.h bufslots.h casetab.h chartab.h commands.h f= ile-coding.h insdel.h lstream.h mule-charset.h ndir.h nt.h process.h redisp= lay.h scrollbar.h sysdep.h sysdir.h sysfile.h sysproc.h syssignal.h systime= .h systty.h syswindows.h window.h winslots.h casefiddle.o: $(LISP_H) buffer.h bufslots.h casetab.h chartab.h insdel.h m= ule-charset.h syntax.h casetab.o: $(LISP_H) buffer.h bufslots.h casetab.h chartab.h mule-charset.= h opaque.h chartab.o: $(LISP_H) buffer.h bufslots.h casetab.h chartab.h mule-charset.= h syntax.h 1.15.2.3 +1 -1 XEmacs/xemacs/src/unexelf.c Index: unexelf.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/unexelf.c,v retrieving revision 1.15.2.2 retrieving revision 1.15.2.3 diff -u -p -r1.15.2.2 -r1.15.2.3 --- unexelf.c 2005/01/11 02:02:38 1.15.2.2 +++ unexelf.c 2005/11/26 03:47:43 1.15.2.3 @@ -475,7 +475,7 @@ typedef struct { # include #endif = -#if defined(__FreeBSD__) && (defined(__alpha__) || defined(__amd64__)) +#if defined(__FreeBSD__) && (defined(__alpha__) || defined(_LP64)) # ifdef __STDC__ # define ElfW(type) Elf64_##type # else --===============0958454775966922554==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============0449510479679402564==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/tests/autoconf ... Date: 2005-11-26 11:46:25 +0000 Message-ID: <20051126114625.25679.qmail@sunsite.dk> --===============0449510479679402564== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/26 12:46:25 Modified: xemacs/tests/autoconf regressiontest.pl Added: xemacs/lisp fontconfig.el xemacs/lwlib lwlib-colors.c lwlib-colors.h lwlib-fonts.c lwlib-fonts.h xemacs/src xft-fonts.c xft-fonts.h Log: Xft merge. <87k6ev4p8q.fsf(a)tleepslib.sk.tsukuba.ac.jp> Revision Changes Path 1.474 +158 -1 XEmacs/xemacs/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.473 retrieving revision 1.474 diff -u -p -r1.473 -r1.474 --- ChangeLog 2005/11/25 01:41:31 1.473 +++ ChangeLog 2005/11/26 11:45:47 1.474 @@ -1,3 +1,155 @@ +2005-11-26 Stephen J. Turnbull + + Merge Xft. + + 2005-03-05 Malcolm Purvis + + * configure.ac: Correct the filename of the old copy of configure. + + 2005-03-05 Malcolm Purvis + + * config.guess: + * config.sub: Sync with the latest upstream versions. + * configure.ac: Use --verbose for --extra-verbose. Better + quoting of arguments. Internal shell vars statr with '_' to avoid + name clashes. Pick up the latest changes to configure.in. + Improve the testing of Athena 3d widgets. + + 2005-02-20 Stephen J. Turnbull + + * configure.ac (athena): Spells as 3d, not xaw3d, in declaration. + (sound): quickfix: AC_DEFINE, not AC_DEFINE_UNQUOTED, at top level. + + 2005-02-19 Stephen J. Turnbull + + * configure.ac (XE_EXPAND_COMPLEX_OPTION): Use same name in comment. + (XEmacs keyword option support): + (XEmacs complex option support): + Move long header comments to internals.texi(The configure Script). + + 2005-02-03 Stephen J. Turnbull + + * configure.ac: Trap --with-style flags, now --enable. + + 2005-02-03 Stephen J. Turnbull + + * configure.ac (Autodetect native sound): + Handle NetBSD per Aidan's patch. + + 2005-02-11 Malcolm Purvis + + * configure.ac: Added keyword option support. Converted database, + sound, athena, xim, bignum, error-checking, menubars, scrollbars, + dialogs and widgets command line arguments to use keyword option + and complex option macros. + + 2005-02-09 Malcolm Purvis + + * configure.ac (XE_COMPLEX_OPTION): + * configure.ac (XE_COMPLEX_OPTION_HELP_STRING): + * configure.ac (XE_COMPLEX_ARG_WITH): + * configure.ac (XE_COMPLEX_ARG_ENABLE): + Rewritten complex option support with a simpler API and support + for --enable as well a --with. + + 2005-02-02 Malcolm Purvis + + * configure.ac Align with the current mainline version of + configure.in. + + 2005-02-01 Stephen J. Turnbull + + * configure.ac (Xrender, fontconfig, and Xft): + Check /usr/include/freetype2. + + 2005-01-30 Stephen J. Turnbull + + * configure.ac (AC_COPYRIGHT): Update. + (progname): Restore and improve documentation. + + (XE_INIT_COMPLEX_OPTION): + (XE_APPEND_COMPLEX_OPTION_DEFAULT): + (XE_PARSE_COMPLEX_OPTION): + (XE_CLEANUP_COMPLEX_OPTION): + (XE_COMPLEX_OPTION_HELP_STRING): Support complex options. + (--with-xft): Add Xft support using the complex option support. + + (--with-xface): + (--with-zlib): + (--with-xmu): + (--with-purify): + (--with-quantify): + (--with-toolbars): + (--with-tty): + (--with-xfs): + (--with-canna): + (--with-wnn): + (--with-wnn6): + (--with-ldap): + (--with-postgresql): + (--with-infodock): + (--with-native-sound-lib): + (--with-netinstall): + (--with-site-includes): + (--with-site-libraries): + (--with-site-prefixes): + (--with-package-prefix): + (--with-package-path): + (--enable-external-widget): + (--enable-kkcc): + (--enable-union-type): + (--enable-pdump): + (--enable-debug): + (--enable-memory-usage-stats): + (--enable-error-checking): + (--with-rel-alloc): + (--with-dlmalloc): + (--with-debug-malloc): + (--with-system-malloc): + Improve (including add) help strings. + + (--with-athena): + (--with-xim): + (--with-mail-locking): + (--enable-bignum): + (--enable-menubars): + (--enable-scrollbars): + (--enable-dialogs): + (--enable-widgets): + Fix `eval "$FEATURE=3D\"$val\"" bug. + = + 2005-01-29 Stephen J. Turnbull + + * INSTALL (CONFIGURATION OPTIONS): + Insert Malcolm's notes on autoconf 2.59 support. + + 2005-01-04 Malcolm Purvis + + * aclocal.m4: Changes to support autoconf 2.59 + * config.guess: + * config.sub: Upgraded to the version in from automake 1.9 + * configure.ac: Rewritten for autoconf 2.59 support. + + 2004-12-10 Stephen J. Turnbull + + * configure.usage: Various minor improvements. + + 2004-12-09 Stephen J. Turnbull + + * configure.in: Update FSF's copyright. Support --with-xft=3DLIST + syntax. Try to find a directory containing freetype/ftheader.h. + + * configure.usage (--with-xft): Update. + + 2004-11-20 Stephen J. Turnbull + + Xft branch based on "Xft reloaded #3" patch by Eric Knauel and + Mathias Neuebaur, and other contributors. + + * configure.in: + * configure.usage: + Implement and document switches for configuring Xft. + 2005-11-21 Marcus Crestani = Incremental Garbage Collector @@ -274,8 +426,13 @@ 2005-02-21 Stephen J. Turnbull = * version.sh (XEMACS_RELEASE_DATE): New version info variable. + + * configure.in (XEMACS_RELEASE_DATE): + * configure.ac (XEMACS_RELEASE_DATE): + Use it. = - * configure.in (XEMACS_RELEASE_DATE): Use it. + * configure.ac (sound): + AC_DEFINE_UNQUOTED seems OK, if it's not m4-quoted. = 2005-02-18 Stephen J. Turnbull = 1.23 +122 -1 XEmacs/xemacs/configure.ac Index: configure.ac =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.ac,v retrieving revision 1.22 retrieving revision 1.23 diff -u -p -r1.22 -r1.23 --- configure.ac 2005/11/25 01:41:36 1.22 +++ configure.ac 2005/11/26 11:45:48 1.23 @@ -630,6 +630,20 @@ XE_MERGED_ARG([infopath], [AC_DEFINE(INFOPATH_USER_DEFINED)], []) dnl XE_HELP_SUBSECTION([Window-system options]) +dnl if you change defaults, make sure to fix arg 6 of the OPTION_HELP macr= o. +XE_COMPLEX_ARG([xft], + [XE_COMPLEX_OPTION_HELP_STRING([--with-xft], + [Xft client-side font rendering and anti-aliasing], + [Xft], + [`emacs' (buffers), `menubars', `tabs', and `gauges'], + [X11, Xft, Xrender, freetype, and fontconfig], + [`emacs,menubars,tabs,gauges'])], + [],[], + [XE_COMPLEX_OPTION([emacs],[yes]), + XE_COMPLEX_OPTION([menubars],[yes]), + XE_COMPLEX_OPTION([tabs],[yes]), + XE_COMPLEX_OPTION([gauges],[yes])]) + [], []) XE_MERGED_ARG([gtk], AC_HELP_STRING([--with-gtk],[Support GTK on the X Window System. (EXPERIM= ENTAL)]), [true], [with_gtk=3Dno]) @@ -777,7 +791,7 @@ XE_MERGED_ARG([wnn6], [], []) XE_MERGED_ARG([xfs], AC_HELP_STRING([--with-xfs],[Enable XFontSet support for internationalized - menubar. Incompatible with `--with-xim=3Dmotif'. + menubar. Incompatible with `--with-xim=3Dmotif' a= nd `--with-xft'. `--enable-menubars=3Dlucid' (the default) is desir= able.]), [], []) dnl @@ -967,6 +981,20 @@ fi dnl CDE requires tooltalk XE_CHECK_FEATURE_DEPENDENCY(cde, tooltalk) = +dnl Xft sanity checking +dnl #### Maybe we should XE_DIE here instead? Or fix the UI so that +dnl emacs is always implicit? (I worry that --without-xft would be weird.) +if test $ "$with_xft_menubars" =3D "yes" -o "$with_xft_tabs" =3D "yes" \ + -o "$with_xft_gauges" =3D "yes" $ -a "$with_xft_emacs" =3D "no= "; then + AC_MSG_WARN([Forcing --with-xft=3Demacs because Xft is enabled]) + with_xft_emacs=3Dyes +fi + +dnl XFS and Xft in menubars conflict +if test "$with_xfs" =3D "yes" -a "$with_xft_menubars" =3D "yes"; then + USAGE_ERROR("XFS and Xft in the menubars are incompatible!") +fi + dnl ----------------------------------------------------------------------= --- dnl Local paths test "x$prefix" =3D xNONE && prefix=3D$ac_default_prefix @@ -3362,6 +3390,50 @@ extern Bool XRegisterIMInstantiateCallba fi fi = + dnl include xft/AA support? + dnl #### need to check for includes here (especially, freetype.h for v.2) + + if test "$with_xft_emacs" =3D "yes"; then + AC_CHECKING([for Xrender, fontconfig, and Xft]) + xft_includes_found=3Dno + AC_CHECK_HEADERS([freetype/config/ftheader.h], + [xft_includes_found=3Dyes], + [ + dnl #### How about /sw/include, and /opt/local/include? + dnl these directories need to be the parent of the freetype directory + for freetype_include_top in "/usr/X11R6/include/freetype2" \ + "/usr/include/freetype2" + do + if test -d $freetype_include_top; then + AC_CHECKING([in ${freetype_include_top}/freetype2]) + dnl disable autoconf's fucking cache; why these fuckheads think it + dnl is better to be broken than to be slow, I don't know! + dnl #### there's gotta be a better-looking way to do this!! + unset "$as_ac_Header" + save_c_switch_site=3D"$c_switch_site" + c_switch_site=3D"$c_switch_site -I${freetype_include_top}" + AC_CHECK_HEADERS([freetype/config/ftheader.h], + [xft_includes_found=3Dyes], + [c_switch_site=3D$save_c_switch_site]) + fi + done + if test "$xft_includes_found" !=3D "yes"; then + XE_DIE(["Unable to find headers for --with-xft"]) + else + AC_CHECK_LIB(Xrender, XRenderQueryExtension, XE_PREPEND(-lXrender,= libs_x), + [XE_DIE(["Unable to find libXrender for --with-xft"])]) + AC_CHECK_LIB(fontconfig, FcPatternCreate, XE_PREPEND(-lfontconfig,= libs_x), + [XE_DIE(["Unable to find libfontconfig for --with-xft"])]) + AC_CHECK_LIB(Xft, XftFontOpen, XE_PREPEND(-lXft, libs_x), + [XE_DIE(["Unable to find libXft for --with-xft"])]) + AC_DEFINE(USE_XFT) + dnl Due to interactions with other libraries, must postpone AC_DEF= INE + dnl of USE_XFT_MENUBARS, USE_XFT_TABS, and USE_XFT_GAUGE. + unset xft_includes_found + fi +]) + fi + fi dnl $with_x11 =3D yes = if test "$with_msw" !=3D "no"; then @@ -4186,6 +4258,14 @@ esac case "$enable_menubars" in "" | "yes" | "athena" ) enable_menubars=3D"lucid" ;; esac +dnl this is not in xft reloaded #3 +if test "$with_xft_menubars" !=3D "no" ; then + if test "$with_xft_emacs" =3D "yes" -a "$with_menubars" !=3D "no" ; then + with_xft_menubars=3D"yes" + else + with_xft_menubars=3D"no" + fi +fi case "$enable_dialogs" in "" | "yes" | "lucid" ) if test "$lucid_prefers_motif" =3D "yes"; then if test "$have_motif" =3D "yes"; then enable_dialogs=3D"motif" @@ -4219,6 +4299,22 @@ case "$enable_widgets" in "" | "yes" | " fi fi ;; esac +dnl this is not in xft reloaded #3 +if test "$with_xft_tabs" !=3D "no" ; then + if test "$with_xft_emacs" =3D "yes" -a "$enable_widgets" !=3D "no" ; then + with_xft_tabs=3D"yes" + else + with_xft_tabs=3D"no" + fi +fi +dnl this is not in xft reloaded #3 +if test "$with_xft_gauge" !=3D "no" ; then + if test "$with_xft_emacs" =3D "yes" -a "$enable_widgets" !=3D "no" ; then + with_xft_gauge=3D"yes" + else + with_xft_gauge=3D"no" + fi +fi = all_widgets=3D"$enable_menubars $enable_scrollbars $enable_dialogs $enable= _toolbars $enable_widgets" = @@ -4307,6 +4403,12 @@ test "$enable_scrollbars" =3D "motif" && = test "$enable_dialogs" =3D "motif" && AC_DEFINE(LWLIB_DIALOGS_MOTIF) test "$enable_widgets" =3D "motif" && AC_DEFINE(LWLIB_WIDGETS_MOTIF) = +dnl this is not in xft reloaded #3 +test "$with_xft_menubars" =3D "yes" && AC_DEFINE(USE_XFT_MENUBARS) +dnl these are new in sjt-xft +test "$with_xft_tabs" =3D "yes" && AC_DEFINE(USE_XFT_TABS) +test "$with_xft_gauge" =3D "yes" && AC_DEFINE(USE_XFT_GAUGE) + dnl ---------------------- dnl Mule-dependent options dnl ---------------------- @@ -5782,6 +5884,9 @@ if test "$with_x11" =3D "yes"; then if test "$with_wmcommand" !=3D no; then echo " - Handling WM_COMMAND properly." fi + if test "$with_xft" =3D "yes"; then = + echo " - Compiling in support for Xft antialiased fonts (EXPERIMENT= AL)." + fi fi if test "$need_motif" =3D "yes" ; then echo " Compiling in support for Motif." @@ -5807,6 +5912,11 @@ case "$enable_menubars" in echo " Re-run configure with --enable-menubars=3D'lu= cid'." ;; msw ) echo " Using MS-Windows menubars." ;; esac +dnl this is not in xft reloaded #3 +if test "$with_xft_menubars" =3D "yes"; then + echo " - Using Xft to render antialiased fonts in menubars." + echo " WARNING: This feature will be replaced with a face." +fi case "$enable_scrollbars" in gtk ) echo " Using GTK scrollbars." ;; lucid ) echo " Using Lucid scrollbars." ;; @@ -5832,6 +5942,17 @@ case "$enable_widgets" in athena ) echo " Using Athena native widgets." ;; msw ) echo " Using MS-Windows native widgets." ;; esac +dnl this is not in xft reloaded #3 +if test "$with_xft_tabs" =3D "yes"; then + echo " - Using Xft to render antialiased fonts in tab controls." + echo " WARNING: This feature will be replaced with a face." +fi +dnl this is not in xft reloaded #3 +if test "$with_xft_gauge" =3D "yes"; then + echo " - Using Xft to render antialiased fonts in progress bars." + echo " WARNING: This feature will be replaced with a face." + echo " WARNING: This feature not yet implemented; setting ignored." +fi if test "$with_dragndrop" =3D yes; then echo " Compiling in support for Drag'n'Drop (EXPERIMENTAL)." echo " - Drag'n'Drop prototype: $dragndr= op_proto." 1.700 +88 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.699 retrieving revision 1.700 diff -u -p -r1.699 -r1.700 --- ChangeLog 2005/11/25 01:41:45 1.699 +++ ChangeLog 2005/11/26 11:45:53 1.700 @@ -1,3 +1,91 @@ +2005-11-26 Stephen J. Turnbull + + Merge Xft. + + 2005-09-07 Clemens Fruhwirth + + * font.el (font-default-font-for-device): Remove vestigial code + from incomplete removal of conditional. + + 2005-08-17 Stephen J. Turnbull + + * fontconfig.el (fc-try-font): Improve docstring, add todo comment. + (make-fc-pattern): Use defalias, not defun. + + 2005-08-04 Stephen J. Turnbull + + * fontconfig.el (make-fc-pattern): Don't add finalizer, now + finalizer is in lrecord implementation. + + 2005-08-02 Stephen J. Turnbull + + `fc-list-fonts-pattern-objects' now returns a LISP list. + + * fontconfig.el (fc-try-font): + (fc-find-available-font-families): + (fc-find-available-weights-for-family): + Adapt to it. + + (fc-try-font): Return list of pattern objects. + + (fc-fontset-list): Remove. + + 2005-03-02 Stephen J. Turnbull + + * font.el (font-running-xemacs): Remove definition. + (font-x-font-regexp): + (font-x-registry-and-encoding-regexp): + (font-default-font-for-device): + (x-font-create-name-core): + (mswindows-font-create-name): + (font-set-face-font): + (font-blink-callback): + Remove references. + + (define-font-keywords): Remove definition and top-level references. + + (set-font-style-by-keywords): + (font-properties-from-style): + Comment out. + + 2005-03-01 Aidan Kehoe + + General cleanup of references to functions Eric has deleted = + and renamed in the C core. = + * font.el (x-font-create-object): = + xft-xlfd-font-name-p -> xlfd-font-name-p + * font.el (x-font-create-object-xft): + xft-pattern-* -> fc-pattern-*, return the created font. = + * font.el (x-font-create-name-xft): + xft* -> fc* + * fontconfig.el (fc-font-name-weight-regular): New. + * fontconfig.el (fc-font-name-weight-mapping): + * fontconfig.el (fc-font-name-weight-mapping-string): + * fontconfig.el (fc-font-name-weight-mapping-string-reverse): + * fontconfig.el (fc-font-name-weight-mapping-reverse): + * fontconfig.el (fc-font-weight-translate-from-symbol): + Add information on the "regular" font weight, taken from + fontconfig.h, which is the weight my local system returns by + default. + = + 2005-02-03 Eric Knauel + + * fontconfig.el (fc-try-font): = + (fc-find-available-font-families): = + (fc-find-available-weights-for-family): adapt to new representation of + FcObjectSets + + 2004-11-20 Stephen J. Turnbull + + Xft branch based on "Xft reloaded #3" patch by Eric Knauel and + Mathias Neuebaur, and other contributors. + + * fontconfig.el: New file implementing fontconfig interfaces. + + * font.el: + * face.el: + Use fontconfig to access Xft fonts. + 2005-11-21 Marcus Crestani = Incremental Garbage Collector 1.57 +2 -0 XEmacs/xemacs/lisp/dumped-lisp.el Index: dumped-lisp.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/dumped-lisp.el,v retrieving revision 1.56 retrieving revision 1.57 diff -u -p -r1.56 -r1.57 --- dumped-lisp.el 2005/10/04 17:51:20 1.56 +++ dumped-lisp.el 2005/11/26 11:45:53 1.57 @@ -53,6 +53,8 @@ in dumped-lisp.el and is not itself list "obsolete" "specifier" "frame" ; needed by faces + ;; #### this should be (featurep 'xft) + (when (featurep 'x) "fontconfig") ; needed by x-faces (when (featurep 'x) "x-faces") ; needed by faces (when (featurep 'gtk) "gtk-faces") (when (valid-console-type-p 'mswindows) "msw-faces") 1.37 +2 -1 XEmacs/xemacs/lisp/faces.el Index: faces.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/faces.el,v retrieving revision 1.36 retrieving revision 1.37 diff -u -p -r1.36 -r1.37 --- faces.el 2005/10/25 11:28:24 1.36 +++ faces.el 2005/11/26 11:45:54 1.37 @@ -49,7 +49,8 @@ ;; To elude the warnings for font functions. (Normally autoloaded when ;; font-create-object is called) (eval-when-compile - (require 'font)) + (require 'font) + (load "cl-macs")) = (defgroup faces nil "Support for multiple text attributes (fonts, colors, ...) 1.18 +239 -135 XEmacs/xemacs/lisp/font.el Index: font.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/font.el,v retrieving revision 1.17 retrieving revision 1.18 diff -u -p -r1.17 -r1.18 --- font.el 2005/03/25 15:58:03 1.17 +++ font.el 2005/11/26 11:45:54 1.18 @@ -29,6 +29,18 @@ = ;;; Commentary: = +;; This file is totally bogus in the context of Emacs. Much of what it do= es +;; is really in the provice of faces (for example all the style parameters= ), +;; and that's the way it is in GNU Emacs. +;; +;; What is needed for fonts at the Lisp level is a consistent way to access +;; face properties that are actually associated with fonts for some render= ing +;; engine, in other words, the kinds of facilities provided by fontconfig +;; patterns. We just need to provide an interface to looking up, storing, +;; and manipulating font specifications with certain properties. There wi= ll +;; be some engine-specific stuff, like the bogosity of X11's character set +;; registries. + ;;; Code: = (globally-declare-fboundp @@ -42,6 +54,7 @@ (globally-declare-boundp '(global-face-data x-font-regexp x-font-regexp-foundry-and-family + fc-font-regexp mswindows-font-regexp)) = (require 'cl) @@ -89,23 +102,16 @@ ;;; Lots of variables / keywords for use later in the program ;;; Not much should need to be modified ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;; -(defconst font-running-xemacs (string-match "XEmacs" (emacs-version)) - "Whether we are running in XEmacs or not.") - -(defmacro define-font-keywords (&rest keys) - `(eval-and-compile - (let ((keywords (quote ,keys))) - (while keywords - (or (boundp (car keywords)) - (set (car keywords) (car keywords))) - (setq keywords (cdr keywords)))))) - +;; #### These aren't window system mappings (defconst font-window-system-mappings '((x . (x-font-create-name x-font-create-object)) (gtk . (x-font-create-name x-font-create-object)) + ;; #### FIXME should this handle fontconfig font objects? + (fc . (fc-font-create-name fc-font-create-object)) (ns . (ns-font-create-name ns-font-create-object)) (mswindows . (mswindows-font-create-name mswindows-font-create-object)) (pm . (x-font-create-name x-font-create-object)) ; Change? FIXME + ;; #### what is this bogosity? (tty . (tty-font-create-plist tty-font-create-object))) "An assoc list mapping device types to a list of translations. = @@ -148,12 +154,11 @@ for use in the 'weight' field of an X fo "How much a font is allowed to vary from the desired size.") = ;; Canonical (internal) sizes are in points. -;; Registry -(define-font-keywords:family :style :size :registry :encoding) = -(define-font-keywords -:weight :extra-light :light :demi-light :medium :normal :demi-bold -:bold :extra-bold) +;; Property keywords: :family :style :size :registry :encoding :weight +;; Weight keywords: :extra-light :light :demi-light :medium +;;:normal :demi-bold :bold :extra-bold +;; See GNU Emacs 21.4 for more properties and keywords we should support = (defvar font-style-keywords nil) = @@ -248,6 +253,7 @@ for use in the 'weight' field of an X fo (aset table (+ i ?a) (+ i ?A)) (setq i (1+ i))) ;; Now ISO translations + ;; #### FIXME what's this for?? (setq i 224) (while (< i 247) ;; Agrave - Ouml (aset table i (- i 32)) @@ -261,27 +267,31 @@ for use in the 'weight' field of an X fo ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;; ;;; Utility functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;; -(defun set-font-style-by-keywords (fontobj styles) - (make-local-variable 'font-func) - (declare (special font-func)) - (if (listp styles) - (while styles - (setq font-func (car-safe (cdr-safe (assq (car styles) font-style-keyword= s))) - styles (cdr styles)) - (and (fboundp font-func) (funcall font-func fontobj t))) - (setq font-func (car-safe (cdr-safe (assq styles font-style-keywords))= )) - (and (fboundp font-func) (funcall font-func fontobj t)))) - -(defun font-properties-from-style (fontobj) - (let ((todo font-style-keywords) - type func retval) - (while todo - (setq func (cdr (cdr (car todo))) - type (car (pop todo))) - (if (funcall func fontobj) - (setq retval (cons type retval)))) - retval)) +;; #### unused? +; (defun set-font-style-by-keywords (fontobj styles) +; (make-local-variable 'font-func) +; (declare (special font-func)) +; (if (listp styles) +; (while styles +; (setq font-func (car-safe (cdr-safe (assq (car styles) +; font-style-keywords))) +; styles (cdr styles)) +; (and (fboundp font-func) (funcall font-func fontobj t))) +; (setq font-func (car-safe (cdr-safe (assq styles font-style-keywords= )))) +; (and (fboundp font-func) (funcall font-func fontobj t)))) + +;; #### unused? +; (defun font-properties-from-style (fontobj) +; (let ((todo font-style-keywords) +; type func retval) +; (while todo +; (setq func (cdr (cdr (car todo))) +; type (car (pop todo))) +; (if (funcall func fontobj) +; (setq retval (cons type retval)))) +; retval)) = +;; #### only used in this file; maybe there's a cl.el function? (defun font-unique (list) (let ((retval) (cur)) @@ -329,8 +339,8 @@ The type may be the strings \"px\", \"pi (mm-width (float (or (device-mm-width device) 293))) (retval nil)) (cond - ;; the following string-match is broken, there will never be a - ;; left operand detected + ;; #### this is pretty bogus and should probably be made gone + ;; or supported at a higher level ((string-match "^ *\$[-+*/]\$ *" spec) ; math! whee! (let ((math-func (intern (match-string 1 spec))) (other (font-spatial-to-canonical @@ -361,7 +371,7 @@ The type may be the strings \"px\", \"pi ((string=3D type "mm") (setq retval (* num (/ 72.0 25.4)))) ((string=3D type "cm") - (setq retval (* num 10 (/ 72.0 25.4)))) + (setq retval (* num (/ 72.0 2.54)))) (t (setq retval num)) ) @@ -445,6 +455,42 @@ The type may be the strings \"px\", \"pi args (cdr args))) retval)))) = +(defvar font-default-cache nil) + +;;;###autoload +(defun font-default-font-for-device (&optional device) + (or device (setq device (selected-device))) + (font-truename + (make-font-specifier + (face-font-name 'default device)))) + +;;;###autoload +(defun font-default-object-for-device (&optional device) + (let ((font (font-default-font-for-device device))) + (or (cdr-safe (assoc font font-default-cache)) + (let ((object (font-create-object font))) + (push (cons font object) font-default-cache) + object)))) + +;;;###autoload +(defun font-default-family-for-device (&optional device) + (font-family (font-default-object-for-device (or device (selected-device= ))))) + +;;;###autoload +(defun font-default-registry-for-device (&optional device) + (font-registry (font-default-object-for-device (or device (selected-devi= ce))))) + +;;;###autoload +(defun font-default-encoding-for-device (&optional device) + (font-encoding (font-default-object-for-device (or device (selected-devi= ce))))) + +;;;###autoload +(defun font-default-size-for-device (&optional device) + ;; face-height isn't the right thing (always 1 pixel too high?) + ;; (if font-running-xemacs + ;; (format "%dpx" (face-height 'default device)) + (font-size (font-default-object-for-device (or device (selected-device))= ))) + =0C ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;; ;;; The window-system dependent code (TTY-style) @@ -468,9 +514,8 @@ The type may be the strings \"px\", \"pi ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;; ;;; The window-system dependent code (X-style) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;; -(defvar font-x-font-regexp (or (and font-running-xemacs - (boundp 'x-font-regexp) - x-font-regexp) +(defvar font-x-font-regexp (when (and (boundp 'x-font-regexp) + x-font-regexp) (let ((- "[-?]") (foundry "[^-]*") @@ -497,13 +542,12 @@ The type may be the strings \"px\", \"pi )))) = (defvar font-x-registry-and-encoding-regexp - (or (and font-running-xemacs - (boundp 'x-font-regexp-registry-and-encoding) - (symbol-value 'x-font-regexp-registry-and-encoding)) - (let ((- "[-?]") - (registry "[^-]*") - (encoding "[^-]+")) - (concat - "\$" registry "\$" - "\$" encoding "\$\\'")))) + (when (and (boundp 'x-font-regexp-registry-and-encoding) + (symbol-value 'x-font-regexp-registry-and-encoding)) + (let ((- "[-?]") + (registry "[^-]*") + (encoding "[^-]+")) + (concat - "\$" registry "\$" - "\$" encoding "\$\\'")))) = (defvar font-x-family-mappings '( @@ -600,47 +644,6 @@ The type may be the strings \"px\", \"pi (sort (font-unique (nconc scaled normal)) 'string-lessp)))) (cons "monospace" (mapcar 'car font-x-family-mappings)))) = -(defvar font-default-cache nil) - -;;;###autoload -(defun font-default-font-for-device (&optional device) - (or device (setq device (selected-device))) - (if font-running-xemacs - (font-truename - (make-font-specifier - (face-font-name 'default device))) - (let ((font (cdr-safe (assq 'font (frame-parameters device))))) - (if (and (fboundp 'fontsetp) (fontsetp font)) - (aref (get-font-info (aref (cdr (get-fontset-info font)) 0)) 2) - font)))) - -;;;###autoload -(defun font-default-object-for-device (&optional device) - (let ((font (font-default-font-for-device device))) - (or (cdr-safe (assoc font font-default-cache)) - (let ((object (font-create-object font))) - (push (cons font object) font-default-cache) - object)))) - -;;;###autoload -(defun font-default-family-for-device (&optional device) - (font-family (font-default-object-for-device (or device (selected-device= ))))) - -;;;###autoload -(defun font-default-registry-for-device (&optional device) - (font-registry (font-default-object-for-device (or device (selected-devi= ce))))) - -;;;###autoload -(defun font-default-encoding-for-device (&optional device) - (font-encoding (font-default-object-for-device (or device (selected-devi= ce))))) - -;;;###autoload -(defun font-default-size-for-device (&optional device) - ;; face-height isn't the right thing (always 1 pixel too high?) - ;; (if font-running-xemacs - ;; (format "%dpx" (face-height 'default device)) - (font-size (font-default-object-for-device (or device (selected-device))= ))) - (defun x-font-create-name (fontobj &optional device) "Return a font name constructed from FONTOBJ, appropriate for X devices." (if (and (not (or (font-family fontobj) @@ -656,8 +659,7 @@ The type may be the strings \"px\", \"pi (font-family default) (x-font-families-for-device device))) (weight (or (font-weight fontobj) :medium)) - (size (or (if font-running-xemacs - (font-size fontobj)) + (size (or (font-size fontobj) (font-size default))) (registry (or (font-registry fontobj) (font-registry default) @@ -714,6 +716,134 @@ The type may be the strings \"px\", \"pi (if done font-name))))) = =0C +;;; Cache building code +;;;###autoload +(defun x-font-build-cache (&optional device) + (let ((hash-table (make-hash-table :test 'equal :size 15)) + (fonts (mapcar 'x-font-create-object + (font-list "-*-*-*-*-*-*-*-*-*-*-*-*-*-*"))) + (plist nil) + (cur nil)) + (while fonts + (setq cur (car fonts) + fonts (cdr fonts) + plist (cl-gethash (car (font-family cur)) hash-table)) + (if (not (memq (font-weight cur) (plist-get plist 'weights))) + (setq plist (plist-put plist 'weights (cons (font-weight cur) + (plist-get plist 'weights))))) + (if (not (member (font-size cur) (plist-get plist 'sizes))) + (setq plist (plist-put plist 'sizes (cons (font-size cur) + (plist-get plist 'sizes))))) + (if (and (font-oblique-p cur) + (not (memq 'oblique (plist-get plist 'styles)))) + (setq plist (plist-put plist 'styles (cons 'oblique (plist-get plist 's= tyles))))) + (if (and (font-italic-p cur) + (not (memq 'italic (plist-get plist 'styles)))) + (setq plist (plist-put plist 'styles (cons 'italic (plist-get plist 'st= yles))))) + (cl-puthash (car (font-family cur)) plist hash-table)) + hash-table)) + +=0C +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;; +;;; The rendering engine-dependent code (Xft-style) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;; + +;;; #### FIXME actually, this section should be fc-*, right? + +(defvar font-xft-font-regexp + ;; #### FIXME what the fuck?!? + (when (and (boundp 'xft-font-regexp) xft-font-regexp) + (concat "\\`" + "[^:-]*" ; optional foundry and family + ; incorrect, escaping exists + "\$-[0-9]*\\(\\.[0-9]*\$?\\)?" ; optional size (points) + "\$:[^:]*\$*" ; optional properties + ; not necessarily key=3Dvalue!! + "\\'" + ))) + +(defvar font-xft-family-mappings + ;; #### FIXME this shouldn't be needed or used for Xft + '(("serif" . ("new century schoolbook" + "utopia" + "charter" + "times" + "lucidabright" + "garamond" + "palatino" + "times new roman" + "baskerville" + "bookman" + "bodoni" + "computer modern" + "rockwell" + )) + ("sans-serif" . ("lucida" + "helvetica" + "gills-sans" + "avant-garde" + "univers" + "optima")) + ("elfin" . ("tymes")) + ("monospace" . ("courier" + "fixed" + "lucidatypewriter" + "clean" + "terminal")) + ("cursive" . ("sirene" + "zapf chancery")) + ) + "A list of font family mappings on Xft devices.") + +(defun xft-font-create-object (fontname &optional device) + "Return a font descriptor object for FONTNAME, appropriate for Xft." + (let* ((name fontname) + (device (or device (default-x-device))) + (pattern (fc-font-real-pattern name device)) + (font-obj (make-font)) + (family (fc-pattern-get-family pattern 0)) + (size (fc-pattern-get-size pattern 0)) + (weight (fc-pattern-get-weight pattern 0))) + (set-font-family font-obj = + (and (not (equal family 'fc-result-no-match)) = + family)) + (set-font-size font-obj = + (and (not (equal size 'fc-result-no-match)) + size)) + (set-font-weight font-obj = + (and (not (equal weight 'fc-result-no-match)) + (fc-font-weight-translate-from-constant weight))) + font-obj)) + +;; #### FIXME Xft fonts are not defined by the device. +;; ... Does that mean the whole model here is bogus? +(defun xft-font-families-for-device (&optional device no-resetp) + (ignore-errors (require 'x-font-menu)) ; #### FIXME xft-font-menu? + (or device (setq device (selected-device))) + (if (boundp 'device-fonts-cache) ; #### FIXME does this make sense? + (let ((menu (or (cdr-safe (assq device device-fonts-cache))))) + (if (and (not menu) (not no-resetp)) + (progn + (reset-device-font-menus device) + (xft-font-families-for-device device t)) + ;; #### FIXME clearly bogus for Xft + (let ((scaled (mapcar #'(lambda (x) (if x (aref x 0))) + (aref menu 0))) + (normal (mapcar #'(lambda (x) (if x (aref x 0))) + (aref menu 1)))) + (sort (font-unique (nconc scaled normal)) 'string-lessp)))) + ;; #### FIXME clearly bogus for Xft + (cons "monospace" (mapcar 'car font-xft-family-mappings)))) + +(defun xft-font-create-name (fontobj &optional device) + (let* ((pattern (make-fc-pattern))) + (if (font-family fontobj) + (fc-pattern-add-family pattern (font-family fontobj))) + (if (font-size fontobj) + (fc-pattern-add-size pattern (font-size fontobj))) + (fc-name-unparse pattern))) + +=0C ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;; ;;; The window-system dependent code (NS-style) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;; @@ -870,8 +1000,7 @@ for use in the 'weight' field of an mswi (family (or (font-family fontobj) (font-family default))) (weight (or (font-weight fontobj) :regular)) - (size (or (if font-running-xemacs - (font-size fontobj)) + (size (or (font-size fontobj) (font-size default))) (underline-p (font-underline-p fontobj)) (strikeout-p (font-strikethru-p fontobj)) @@ -920,34 +1049,6 @@ for use in the 'weight' field of an mswi (if done font-name))))) = =0C -;;; Cache building code -;;;###autoload -(defun x-font-build-cache (&optional device) - (let ((hash-table (make-hash-table :test 'equal :size 15)) - (fonts (mapcar 'x-font-create-object - (font-list "-*-*-*-*-*-*-*-*-*-*-*-*-*-*"))) - (plist nil) - (cur nil)) - (while fonts - (setq cur (car fonts) - fonts (cdr fonts) - plist (cl-gethash (car (font-family cur)) hash-table)) - (if (not (memq (font-weight cur) (plist-get plist 'weights))) - (setq plist (plist-put plist 'weights (cons (font-weight cur) - (plist-get plist 'weights))))) - (if (not (member (font-size cur) (plist-get plist 'sizes))) - (setq plist (plist-put plist 'sizes (cons (font-size cur) - (plist-get plist 'sizes))))) - (if (and (font-oblique-p cur) - (not (memq 'oblique (plist-get plist 'styles)))) - (setq plist (plist-put plist 'styles (cons 'oblique (plist-get plist 's= tyles))))) - (if (and (font-italic-p cur) - (not (memq 'italic (plist-get plist 'styles)))) - (setq plist (plist-put plist 'styles (cons 'italic (plist-get plist 'st= yles))))) - (cl-puthash (car (font-family cur)) plist hash-table)) - hash-table)) - -=0C ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;;; ;;; Now overwrite the original copy of set-face-font with our own copy that ;;; can deal with either syntax. @@ -967,7 +1068,7 @@ for use in the 'weight' field of an mswi (setq cur (car font-name) font-name (cdr font-name)) (apply 'set-face-property face (car cur) (cdr cur) args)))) - (font-running-xemacs + (t (apply 'set-face-font face font-name args) (apply 'set-face-underline-p face (font-underline-p font) args) (if (and (or (font-smallcaps-p font) (font-bigcaps-p font)) @@ -978,16 +1079,18 @@ for use in the 'weight' field of an mswi (font-linethrough-p font) (font-strikethru-p font)) args)) - (t - (condition-case nil - (apply 'set-face-font face font-name args) - (error - (let ((args (car-safe args))) - (and (or (font-bold-p font) - (memq (font-weight font) '(:bold :demi-bold))) - (make-face-bold face args t)) - (and (font-italic-p font) (make-face-italic face args t))))) - (apply 'set-face-underline-p face (font-underline-p font) args))))) +;;; this used to be default with preceding conditioned on font-running-xem= acs +; (t +; (condition-case nil +; (apply 'set-face-font face font-name args) +; (error +; (let ((args (car-safe args))) +; (and (or (font-bold-p font) +; (memq (font-weight font) '(:bold :demi-bold))) +; (make-face-bold face args t)) +; (and (font-italic-p font) (make-face-italic face args t))))) +; (apply 'set-face-underline-p face (font-underline-p font) args)) + ))) (t ;; Let the original set-face-font signal any errors (set-face-property face 'font-specification nil) @@ -1362,13 +1465,14 @@ is returned." (defun font-blink-callback () ;; Optimized to never invert the face unless one of the visible windows ;; is showing it. - (let ((faces (if font-running-xemacs (face-list t) (face-list))) + (let ((faces (face-list t)) (obj nil)) (while faces (if (and (setq obj (face-property (car faces) 'font-specification)) (font-blink-p obj) (memq t - (font-map-windows 'font-face-visible-in-window-p (car faces)))) + (font-map-windows 'font-face-visible-in-window-p + (car faces)))) (invert-face (car faces))) (pop faces)))) = 1.9 +16 -11 XEmacs/xemacs/lisp/font-menu.el Index: font-menu.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/font-menu.el,v retrieving revision 1.8 retrieving revision 1.9 diff -u -p -r1.8 -r1.9 --- font-menu.el 2005/01/28 02:58:39 1.8 +++ font-menu.el 2005/11/26 11:45:54 1.9 @@ -264,7 +264,9 @@ or if you change your font path, you can (member 0 (aref entry 2)))) (enable-menu-item item) (disable-menu-item item)) - (if (eq size s) + ;; #### God save the Queen! + ;; well, if this fails because s or size is non-numeric, fuck 'em + (if (=3D size (if (featurep 'xft-fonts) (float s) s)) (select-toggle-menu-item item) (deselect-toggle-menu-item item)) item) @@ -345,6 +347,7 @@ or if you change your font path, you can (or weight from-weight) (or size from-size)) (error + (message "Error updating font of `%s'" face) (display-error c nil) (sit-for 1))))) ;; Set the default face's font after hacking the other faces, so that @@ -356,16 +359,18 @@ or if you change your font path, you can (set-face-font 'default new-default-face-font (and font-menu-this-frame-only-p (selected-frame))) ;; OK Let Customize do it. - (custom-set-face-update-spec 'default - (list (list 'type (device-type))) - (list :family (or family from-family) - :size (concat - (int-to-string - (/ (or size from-size) - (specifier-instance font-menu-size-scaling - (selected-device)))) - "pt"))) - (message "Font %s" (face-font-name 'default))))) + (let ((fsize (if (featurep 'xft-fonts) + (int-to-string (or size from-size)) + (concat (int-to-string + (/ (or size from-size) + (specifier-instance font-menu-size-scaling + (selected-device)))) + "pt")))) + (custom-set-face-update-spec 'default + (list (list 'type (device-type))) + (list :family (or family from-family) + :size fsize)))) + (message "Font %s" (face-font-name 'default)))) = = ;; #### This should be called `font-menu-maybe-change-face' 1.22 +189 -0 XEmacs/xemacs/lisp/x-faces.el Index: x-faces.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/x-faces.el,v retrieving revision 1.21 retrieving revision 1.22 diff -u -p -r1.21 -r1.22 --- x-faces.el 2005/03/31 11:28:44 1.21 +++ x-faces.el 2005/11/26 11:45:54 1.22 @@ -66,6 +66,8 @@ '(x-get-resource-and-maybe-bogosity-check x-get-resource x-init-pointer-shape)) = +(require 'fontconfig) + (defconst x-font-regexp nil) (defconst x-font-regexp-head nil) (defconst x-font-regexp-head-2 nil) @@ -78,6 +80,7 @@ (defconst x-font-regexp-spacing nil) = ;;; Regexps matching font names in "Host Portable Character Representation= ." +;;; #### But more recently Latin-1 is permitted, and Xft needs it in C (?). ;;; (let ((- "[-?]") (foundry "[^-]*") @@ -134,6 +137,11 @@ - registry - encoding "\\'")) ) = +(defun x-font-xlfd-font-name-p (font) + "Check if FONT is an XLFD font name" + (and (stringp font) + (string-match x-font-regexp font))) + ;; A "loser font" is something like "8x13" -> "8x13bold". ;; These are supported only through extreme generosity. (defconst x-loser-font-regexp "\\`[0-9]+x[0-9]+\\'") @@ -167,6 +175,46 @@ (defun x-make-font-bold (font &optional device) "Given an X font specification, this attempts to make a `bold' font. If it fails, it returns nil." + (if (featurep 'xft-fonts) + (if (x-font-xlfd-font-name-p font) + (x-make-font-bold-core font device) + (x-make-font-bold-xft font device)) + (x-make-font-bold-core font device))) + +(defun x-make-font-bold-xft (font &optional device) + (let ((pattern (fc-font-real-pattern = + font (or device (default-x-device))))) + (if pattern + (let ((size (fc-pattern-get-size pattern 0)) + (copy (fc-copy-pattern-partial = + pattern (list fc-font-name-property-family)))) + (fc-pattern-del copy fc-font-name-property-weight) + (fc-pattern-del copy fc-font-name-property-style) + (when copy + (or = + ;; try bold font + (let ((copy-2 (fc-pattern-duplicate copy))) + (fc-pattern-add copy-2 fc-font-name-property-weight + fc-font-name-weight-bold) + (when (fc-try-font copy-2 device) + (fc-pattern-add copy-2 fc-font-name-property-size size) + (fc-name-unparse copy-2))) + ;; try black font + (let ((copy-2 (fc-pattern-duplicate copy))) + (fc-pattern-add copy-2 fc-font-name-property-weight + fc-font-name-weight-black) + (when (fc-try-font copy-2 device) + (fc-pattern-add copy-2 fc-font-name-property-size size) + (fc-name-unparse copy-2))) + ;; try demibold font + (let ((copy-2 (fc-pattern-duplicate copy))) + (fc-pattern-add copy-2 fc-font-name-property-weight + fc-font-name-weight-demibold) + (when (fc-try-font copy-2 device) + (fc-pattern-add copy-2 fc-font-name-property-size size) + (fc-name-unparse copy-2))))))))) + = +(defun x-make-font-bold-core (font &optional device) ;; Certain Type1 fonts know "bold" as "black"... (or (try-font-name (x-frob-font-weight font "bold") device) (try-font-name (x-frob-font-weight font "black") device) @@ -175,6 +223,23 @@ If it fails, it returns nil." (defun x-make-font-unbold (font &optional device) "Given an X font specification, this attempts to make a non-bold font. If it fails, it returns nil." + (if (featurep 'xft-fonts) + (if (x-font-xlfd-font-name-p font) + (x-make-font-unbold-core font device) + (x-make-font-unbold-xft font device)) + (x-make-font-unbold-core font device))) + = +(defun x-make-font-unbold-xft (font &optional device) + (let ((pattern (fc-font-real-pattern = + font (or device (default-x-device))))) + (when pattern + (fc-pattern-del pattern fc-font-name-property-weight) + (fc-pattern-add pattern fc-font-name-property-weight + fc-font-name-weight-medium) + (if (fc-try-font pattern device) + (fc-name-unparse pattern))))) + +(defun x-make-font-unbold-core (font &optional device) (try-font-name (x-frob-font-weight font "medium") device)) = (defcustom try-oblique-before-italic-fonts nil @@ -189,6 +254,53 @@ applicable to adobe-courier fonts" (defun x-make-font-italic (font &optional device) "Given an X font specification, this attempts to make an `italic' font. If it fails, it returns nil." + (if (featurep 'xft-fonts) + (if (x-font-xlfd-font-name-p font) + (x-make-font-italic-core font device) + (x-make-font-italic-xft font device)) + (x-make-font-italic-core font device))) + +(defun x-make-font-italic-xft (font &optional device) + (let ((pattern (fc-font-real-pattern = + font (or device (default-x-device))))) + (if pattern + (let ((size (fc-pattern-get-size pattern 0)) + (copy (fc-copy-pattern-partial + pattern (list fc-font-name-property-family)))) + (when copy + (fc-pattern-del copy fc-font-name-property-slant) + (fc-pattern-del copy fc-font-name-property-style) + (let ((pattern-oblique (fc-pattern-duplicate copy)) + (pattern-italic (fc-pattern-duplicate copy))) + (fc-pattern-add pattern-oblique fc-font-name-property-slant + fc-font-name-slant-oblique) + (fc-pattern-add pattern-italic fc-font-name-property-slant + fc-font-name-slant-italic) + (let ((have-oblique (fc-try-font pattern-oblique device)) + (have-italic (fc-try-font pattern-italic device))) + (if try-oblique-before-italic-fonts + (if have-oblique + (progn = + (if size + (fc-pattern-add pattern-oblique fc-font-name-property-size size)) + (fc-name-unparse pattern-oblique)) + (if have-italic + (progn + (if size + (fc-pattern-add pattern-italic fc-font-name-property-size size)) + (fc-name-unparse pattern-italic)))) + (if have-italic + (progn + (if size + (fc-pattern-add pattern-italic fc-font-name-property-size size)) + (fc-name-unparse pattern-italic)) + (if have-oblique + (progn + (if size + (fc-pattern-add pattern-oblique fc-font-name-property-size size)) + (fc-name-unparse pattern-oblique)))))))))))) + = +(defun x-make-font-italic-core (font &optional device) (if try-oblique-before-italic-fonts (or (try-font-name (x-frob-font-slant font "o") device) (try-font-name (x-frob-font-slant font "i") device)) @@ -198,11 +310,40 @@ If it fails, it returns nil." (defun x-make-font-unitalic (font &optional device) "Given an X font specification, this attempts to make a non-italic font. If it fails, it returns nil." + (if (featurep 'xft-fonts) + (if (x-font-xlfd-font-name-p font) + (x-make-font-unitalic-core font device) + (x-make-font-unitalic-xft font device)) + (x-make-font-unitalic-core font device))) + = +(defun x-make-font-unitalic-xft (font &optional device) + (let ((pattern (fc-font-real-pattern = + font (or device (default-x-device))))) + (when pattern + (fc-pattern-del pattern fc-font-name-property-slant) + (fc-pattern-add pattern fc-font-name-property-slant + fc-font-name-slant-roman) + (if (fc-try-font pattern device) + (fc-name-unparse pattern))))) + +(defun x-make-font-unitalic-core (font &optional device) (try-font-name (x-frob-font-slant font "r") device)) = (defun x-make-font-bold-italic (font &optional device) "Given an X font specification, this attempts to make a `bold-italic' fo= nt. If it fails, it returns nil." + (if (featurep 'xft-fonts) = + (if (x-font-xlfd-font-name-p font) + (x-make-font-bold-italic-core font device) + (x-make-font-bold-italic-xft font device)) + (x-make-font-bold-italic-core font device))) + +(defun x-make-font-bold-italic-xft (font &optional device) + (let ((italic (x-make-font-italic-xft font device))) + (if italic + (x-make-font-bold-xft italic device)))) + +(defun x-make-font-bold-italic-core (font &optional device) ;; This is haired up to avoid loading the "intermediate" fonts. (if try-oblique-before-italic-fonts (or (try-font-name @@ -236,6 +377,21 @@ This is done by parsing its name, so it' X fonts can be specified (by the user) in either pixels or 10ths of points, and this returns the first one it finds, so you have to decide which units the returned value is measured in yourself..." + (if (featurep 'xft-fonts) = + (if (x-font-xlfd-font-name-p font) + (x-font-size-core font) + (x-font-size-xft font)) + (x-font-size-core font))) + +;; this is unbelievable &*@# +(defun x-font-size-xft (font) + (let ((pattern (fc-font-real-pattern = + font (default-x-device)))) + (when pattern + (let ((pixelsize (fc-pattern-get-pixelsize pattern 0))) + (if (floatp pixelsize) (round pixelsize)))))) + +(defun x-font-size-core (font) (if (font-instance-p font) (setq font (font-instance-name font))) (cond ((or (string-match x-font-regexp font) (string-match x-font-regexp-head-2 font)) @@ -354,6 +510,29 @@ X fonts can be specified (by the user) i Returns the font if it succeeds, nil otherwise. If scalable fonts are available, this returns a font which is 1 point smal= ler. Otherwise, it returns the next smaller version of this font that is define= d." + (if (featurep 'xft-fonts) + (if (x-font-xlfd-font-name-p font) + (x-find-smaller-font-core font device) + (x-find-smaller-font-xft font device)) + (x-find-smaller-font-core font device))) + +(defun x-find-xft-font-of-size (font new-size-proc &optional device) + (let* ((pattern (fc-font-real-pattern = + font (or device (default-x-device))))) + (when pattern + (let ((size (fc-pattern-get-size pattern 0))) + (if (floatp size) + (let ((copy (fc-pattern-duplicate pattern))) + (fc-pattern-del copy fc-font-name-property-size) + (fc-pattern-add copy fc-font-name-property-size = + (funcall new-size-proc size)) + (if (fc-try-font font device) + (fc-name-unparse copy)))))))) + +(defun x-find-smaller-font-xft (font &optional device) + (x-find-xft-font-of-size font '(lambda (old-size) (- old-size 1.0)) devi= ce)) + +(defun x-find-smaller-font-core (font &optional device) (x-frob-font-size font nil device)) = (defun x-find-larger-font (font &optional device) @@ -361,6 +540,16 @@ Otherwise, it returns the next smaller v Returns the font if it succeeds, nil otherwise. If scalable fonts are available, this returns a font which is 1 point larg= er. Otherwise, it returns the next larger version of this font that is defined= ." + (if (featurep 'xft-fonts) + (if (x-font-xlfd-font-name-p font) + (x-find-larger-font-core font device) + (x-find-larger-font-xft font device)) + (x-find-larger-font-core font device))) + +(defun x-find-larger-font-xft (font &optional device) + (x-find-xft-font-of-size font '(lambda (old-size) (+ old-size 1.0)) devi= ce)) + +(defun x-find-larger-font-core (font &optional device) (x-frob-font-size font t device)) = (defalias 'x-make-face-bold 'make-face-bold) 1.14 +130 -1 XEmacs/xemacs/lisp/x-font-menu.el Index: x-font-menu.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/x-font-menu.el,v retrieving revision 1.13 retrieving revision 1.14 diff -u -p -r1.13 -r1.14 --- x-font-menu.el 2005/01/28 02:58:41 1.13 +++ x-font-menu.el 2005/11/26 11:45:55 1.14 @@ -34,6 +34,10 @@ = (require 'font-menu) = +(when (featurep 'xft-fonts) + (require 'xft) + (require 'fontconfig)) + (globally-declare-boundp '(x-font-regexp x-font-regexp-foundry-and-family @@ -80,8 +84,70 @@ E.g. cursor fonts.") "This is used to filter out font families that can't display ASCII text. It must be set at run-time.") = +;; #### move these to font-menu.el, and maybe make them defcustoms +(defvar font-menu-common-sizes + '(60 80 100 110 120 130 140 150 160 170 180 200 220 240 300 360) + "List of commonly desired font sizes in decipoints.") + ;;;###autoload (defun x-reset-device-font-menus (device &optional debug) + (if (featurep 'xft-fonts) + (x-reset-device-font-menus-xft device debug) + (x-reset-device-font-menus-core device debug))) + +(defun fc-make-font-menu-entry (family) + (let ((weights (fc-find-available-weights-for-family family))) + (vector + family + (mapcar = + '(lambda (weight-symbol) = + (let ((pair (assoc weight-symbol + '((:light "Light") + (:medium "Medium") + (:demibold "Demibold") + (:bold "Bold") + (:black "Black"))))) + (if pair (cadr pair)))) + weights) + '(0) + nil))) + +(defun x-reset-device-font-menus-xft (device &optional debug) + (let* ((families-1 (fc-find-available-font-families device)) + (families (delete-if (lambda (x) + (string-match x-fonts-menu-junk-families x)) + (sort families-1 'string-lessp))) + (data + (vector + (mapcar 'fc-make-font-menu-entry families) + (mapcar = + '(lambda (family) + (vector family `(font-menu-set-font ,family nil nil) + :style 'radio :active nil :selected nil)) + families) + (mapcar + '(lambda (size) + (vector + (number-to-string size) + `(font-menu-set-font nil nil ,size) + :style 'radio :active nil :selected nil)) + ;; common size list in decipoints, fontconfig wants points + (mapcar (lambda (x) (/ x 10)) font-menu-common-sizes)) + (mapcar + '(lambda (weight) + (vector + weight + `(font-menu-set-font nil ,weight nil) + :style 'radio :active nil :selected nil)) + '("Light" "Medium" "Demibold" "Bold" "Black")))) + ;; get or initialize the entry for device + (dev-cache (or (assq device device-fonts-cache) + (car (push (list device) device-fonts-cache))))) + ;; update the device-fonts-cache entry for device in place + (setcdr dev-cache data) + data)) + +(defun x-reset-device-font-menus-core (device &optional debug) "Generates the `Font', `Size', and `Weight' submenus for the Options men= u. This is run the first time that a font-menu is needed for each device. If you don't like the lazy invocation of this function, you can add it to @@ -136,7 +202,7 @@ or if you change your font path, you can ;; up not getting mentioned explicitly. ;; (if (member 0 sizes) - (let ((common '(60 80 100 120 140 160 180 240))) + (let ((common font-menu-common-sizes)) (while common (or;;(member (car common) sizes) ; not enough slack (let ((rest sizes) @@ -195,6 +261,51 @@ or if you change your font path, you can ;; get the truename and use the possibly suboptimal data from that. ;;;###autoload (defun x-font-menu-font-data (face dcache) + (let* ((case-fold-search t) + (domain (if font-menu-this-frame-only-p + (selected-frame) + (selected-device))) + (name (font-instance-name (face-font-instance face domain)))) + (if (featurep 'xft-fonts) + (if (xlfd-font-name-p name) + ;; #### this call to x-font-menu-font-data-core originally + ;; had 4 args, and that's probably the right way to go + (x-font-menu-font-data-core face dcache) + (x-font-menu-font-data-xft face dcache name domain)) + ;; #### this one, too + (x-font-menu-font-data-core face dcache)))) + +(defun x-font-menu-font-data-xft (face dcache name domain) + (let* ((truename (font-instance-truename + (face-font-instance face domain + (if (featurep 'mule) 'ascii)))) + entry) + (if (xlfd-font-name-p truename) + (progn + nil) + (progn + (let* ((pattern (fc-font-real-pattern name domain)) + (family (and pattern + (fc-pattern-get-family pattern 0)))) + (if (fc-pattern-get-successp family) + (setq entry (vassoc family (aref dcache 0)))) + (if (null entry) + (make-vector 5 nil) + (let ((weight (fc-pattern-get-weight pattern 0)) + (size (fc-pattern-get-size pattern 0)) + (slant (fc-pattern-get-slant pattern 0))) + (vector + entry + (if (fc-pattern-get-successp family) = + family) + (if (fc-pattern-get-successp size) + size) + (if (fc-pattern-get-successp weight) + (fc-font-weight-translate-to-string weight)) + (if (fc-pattern-get-successp slant) + (fc-font-slant-translate-to-string slant)))))))))) + +(defun x-font-menu-font-data-core (face dcache) (let* ((case-fold-search t) (domain (if font-menu-this-frame-only-p (selected-frame) @@ -229,6 +340,24 @@ or if you change your font path, you can (vector entry family size weight slant)))) = (defun x-font-menu-load-font (family weight size slant resolution) + (if (featurep 'xft-fonts) + (x-font-menu-load-font-xft family weight size slant resolution) + (x-font-menu-load-font-core family weight size slant resolution))) + +(defun x-font-menu-load-font-xft (family weight size slant resolution) + (let ((pattern (make-fc-pattern))) + (fc-pattern-add pattern fc-font-name-property-family family) + (if weight = + (fc-pattern-add pattern fc-font-name-property-weight + (fc-font-weight-translate-from-string weight))) + (if size + (fc-pattern-add pattern fc-font-name-property-size size)) + (if slant + (fc-pattern-add pattern fc-font-name-property-slant + (fc-font-slant-translate-from-string slant))) + (make-font-instance (fc-name-unparse pattern)))) + +(defun x-font-menu-load-font-core (family weight size slant resolution) "Try to load a font with the requested properties. The weight, slant and resolution are only hints." (when (integerp size) (setq size (int-to-string size))) 1.2 +534 -0 XEmacs/xemacs/lisp/fontconfig.el Index: fontconfig.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: fontconfig.el diff -N fontconfig.el --- /dev/null Sat Nov 26 12:45:38 2005 +++ /tmp/cvsAAAG2ayKX Sat Nov 26 12:45:57 2005 @@ -0,0 +1,534 @@ +;;; fontconfig.el --- New font model, NG + +;; Copyright (c) 2003 Eric Knauel and Matthias Neubauer +;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. + +;; Authors: Eric Knauel +;; Matthias Neubauer +;; Stephen J. Turnbull +;; Created: 27 Oct 2003 +;; Updated: 05 Mar 2005 by Stephen J. Turnbull +;; Keywords: faces + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Synched up with: Not in GNU + +;;; Commentary: + +;; This file is one of the pillars of the face refactoring effort +;; (another will be colorconfig.el, and there may be others). + +;; The overall plan is to have a sensible modern model for values of +;; each of the components of a face (starting with fonts and colors), +;; implemented in a single module. Of course we must be able to +;; convert such values to appropriate descriptors for any device type +;; on the one hand, but on the other it seems unreasonable to force +;; users to deal with a large number of different (and arcane, in the +;; case of XLFD) naming formats. + +;; This file implements font specification. We call a specification a +;; *pattern* to conform to fontconfig usage. The internal +;; representation of a pattern will have Keith Packard's fontconfig +;; API. For one, there is a robust and free C implementation, which +;; is available as a package for all platforms supported by X.org or +;; XFree86. For another, it seems to be capable of representing any +;; specification of any of the font models I know. Third, on X +;; platforms that internal representation can be passed verbatim to +;; libXft to get high quality TrueType fonts rendered with +;; anti-aliasing and hinting. + +;; We will support the following user interfaces: + +;; 1. fontconfig font names +;; 2. X Logical Font Descriptions (XLFD) +;; 3. MS Windows font names +;; 4. Mac OS X font names + +;; and possibly others (such as ad hoc abbreviations used in older X11 +;; implementations). This is called the *fontname UI* (for the +;; platform) to distinguish it from XEmacs's internal model +;; (fontconfig patterns) and the API for rendering engines (called the +;; *font API* for the engine). + +;; We will support the following rendering engine APIs: + +;; 1. fontconfig patterns (the native language of Xft); to emphasize +;; the engine-specific nature, we will call these *Xft fonts* +;; 2. XLFD strings +;; 3. MS Windows font names + +;; and possibly others (such as Mac OS X font names). This is called +;; the *font API* (for the platform) to distinguish it from XEmacs's +;; internal model (fontconfig *patterns*) and the names used by users +;; (called the *fontname UI* for the platform). + + +;; TODO (possible enhancements) +;; 1. add a more complete docstring for properties as such (would be a +;; hash table?) to describe things like special symbolic values, and +;; Emacs-relevant semantics +;; 2. add a special value defining macro for constants + +;;; Code: + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;; +;; +;; The fontconfig pattern API +;; +;; The basic interfaces are defined as API wrappers in C in xft-font.c +;; #### which should be renamed to fontconfig.c. These are prefixed +;; with "fc-pattern-". These are +;; +;; fc-pattern-p +;; fc-pattern-create +;; fc-pattern-duplicate +;; fc-pattern-add +;; fc-pattern-del +;; fc-pattern-get +;; fc-pattern-destroy + +;; We provide a LISP-y alias, `make-fc-pattern' for the pattern +;; constructor function `fc-pattern-create'. #### It might make sense +;; to generalize `make-fc-pattern' by allowing a plist of properties +;; as an optional argument. We also provide accessors +;; `fc-pattern-get-PROPERTY' and mutators `fc-pattern-add-PROPERTY' +;; for each of the standard properties used by Xft, which overlap +;; substantially with the properties defined by X11. #### We probably +;; should provide `fc-pattern-delete-PROPERTY', too. + +(defalias 'make-fc-pattern 'fc-pattern-create) + +(defmacro fc-define-property (property type docfrag &optional obsolete-p) + "Define PROPERTY as a fontconfig font property of type TYPE using DOCFRA= G. + +A font property is a key in a fontconfig pattern and is associated with +one or more values of a given type. This macro creates wrappers around +`fc-pattern-get' and `fc-pattern-add' for PROPERTY. Wrappers are +preferred to use of primitives with a string as the OBJECT argument because +typos in wrappers result in \"not fboundp\" errors, while a typo in a stri= ng +produces a silent null return. + +PROPERTY is a string. +TYPE is a symbol indicating the type of the property value. It is used on= ly +to modify formatting of the wrapper function docstrings. +DOCFRAG is a string which briefly describes the use of the property, and is +interpolated into a format to create the doctstrings. +OBSOLETE-P if non-nil marks the property as pertaining only to older versi= ons +of fontconfig or Xft. This merely adds a deprecation to the docstrings. + +This macro defines an accessor named `fc-pattern-get-PROPERTY' which takes +a fontconfig pattern object and an integer as arguments, and returns the +value associated with PROPERTY and ID in the pattern object. Since it is +not possible to associate a value to PROPERTY for a particular ID, it is +not very useful to interpret the values associated with a given id for +different properties as being linked to each other in some way. + +A mutator `fc-pattern-add-PROPERTY' which takes a fontconfig pattern object +and a value as arguments, and adds the value to the property with the next +id. The type of the value is recognized by `fc-pattern-add', and the id +is chosen by the fontconfig implementation." + + `(progn + (defsubst ,(intern (concat "fc-pattern-get-" property)) + (pattern id) + ,(format "\ +Return %s %s fc pattern PATTERN %s.%s + +This function is a convenience wrapper for `fc-pattern-get'. +See `fc-pattern-get' for documentation of patterns, ids, and error returns= ." + (if (eq type 'boolean) + "t" + docfrag) + (if (eq type 'boolean) + "if" + "associated with id ID in") + (if (eq type 'boolean) + docfrag + (format "as a%s %s" (if (eq type 'integer) "n" "") type)) + (if obsolete-p " +\(Obsolete, only available on systems using Xft version 1.)" + "")) + (fc-pattern-get pattern ,property id)) + + (defsubst ,(intern (concat "fc-pattern-add-" property)) + (pattern value) + ,(format "\ +Add VALUE to the %s property of fontconfig pattern PATTERN.%s + +The type of VALUE should be %s. + +This function is a convenience wrapper for `fc-pattern-add'. +See `fc-pattern-add' for documentation of patterns, values, and error retu= rns." + property + (if obsolete-p " +\(Obsolete, only available on systems using Xft version 1.)" + "") + type) + (fc-pattern-add pattern ,property value)) + ,property)) + +;; define the standard properties for Xft v.2 here +(fc-define-property "antialias" boolean "the font supports antialiasing") +(fc-define-property "dpi" float "the design resolution") +(fc-define-property "family" string "the font family") +(fc-define-property "file" string "the file containing glyph data") +(fc-define-property "foundry" string "the vendor") +(fc-define-property "index" integer "the index of the glyph set") +(fc-define-property "minspace" boolean "has a minimum spacing") +(fc-define-property "outline" boolean "is an outline font") +(fc-define-property "pixelsize" float "the size in pixels") +(fc-define-property "rasterizer" string "the name of the rasterizing engin= e") +(fc-define-property "rgba" integer "the subpixel rendering capabilities") +(fc-define-property "scalable" boolean "is scalable") +(fc-define-property "scale" float "the scale factor") +(fc-define-property "size" float "the size in points") +(fc-define-property "slant" integer "the slant") +(fc-define-property "spacing" integer "the spacing model") +(fc-define-property "style" string "the typographic face or style") +(fc-define-property "weight" integer "the weight") +(fc-define-property "xlfd" string "the XLFD (full name in X11)") + +;; Xft v.1 properties (marked as obsolete) +(fc-define-property "encoding" string "the encoding" t) +(fc-define-property "charwidth" integer "the average character width" t) +(fc-define-property "charheight" integer "the average character height" t) +(fc-define-property "core" boolean "represents a core font" t) +(fc-define-property "render" boolean "represents a render (Xft) font" t) + + +(defconst fc-font-name-property-family "family") +(defconst fc-font-name-property-style "style") +(defconst fc-font-name-property-slant "slant") +(defconst fc-font-name-property-weight "weight") +(defconst fc-font-name-property-size "size") +(defconst fc-font-name-property-pixelsize "pixelsize") +(defconst fc-font-name-property-spacing "spacing") +(defconst fc-font-name-property-foundry "foundry") +(defconst fc-font-name-property-antialias "antialias") +(defconst fc-font-name-property-xlfd "xlfd") +(defconst fc-font-name-property-file "file") +(defconst fc-font-name-property-index "index") +(defconst fc-font-name-property-rasterizer "rasterizer") +(defconst fc-font-name-property-outline "outline") +(defconst fc-font-name-property-scalable "scalable") +(defconst fc-font-name-property-rgba "rgba") +(defconst fc-font-name-property-minspace "minspace") +(defconst fc-font-name-property-dpi "dpi") + +;; Xft version 1 only +;;(defconst fc-font-name-property-encoding "encoding") +;;(defconst fc-font-name-property-charwidth "charwidth") +;;(defconst fc-font-name-property-charheight "charheight") +;;(defconst fc-font-name-property-core "core") +;;(defconst fc-font-name-property-render "render") + + +(defconst fc-pattern-selector-mapping + `((,fc-font-name-property-family . fc-pattern-get-family) + (,fc-font-name-property-style . fc-pattern-get-style) + (,fc-font-name-property-slant . fc-pattern-get-slant) + (,fc-font-name-property-weight . fc-pattern-get-weight) + (,fc-font-name-property-size . fc-pattern-get-size) + (,fc-font-name-property-pixelsize . fc-pattern-get-pixelsize) + (,fc-font-name-property-spacing . fc-pattern-get-spacing) + (,fc-font-name-property-foundry . fc-pattern-get-foundry) + (,fc-font-name-property-antialias . fc-pattern-get-antialias) + (,fc-font-name-property-xlfd . fc-pattern-get-xlfd) + (,fc-font-name-property-file . fc-pattern-get-file) + (,fc-font-name-property-index . fc-pattern-get-index) + (,fc-font-name-property-rasterizer . fc-pattern-get-rasterizer) + (,fc-font-name-property-outline . fc-pattern-get-outline) + (,fc-font-name-property-scalable . fc-pattern-get-scalable) + (,fc-font-name-property-rgba . fc-pattern-get-rgba) + (,fc-font-name-property-minspace . fc-pattern-get-minspace) + (,fc-font-name-property-dpi . fc-pattern-get-dpi) + ;; Xft version 1 only + ;; (,fc-font-name-property-encoding . fc-pattern-get-encoding) + ;; (,fc-font-name-property-charwidth . fc-pattern-get-char-width) + ;; (,fc-font-name-property-charheight . fc-pattern-get-char-height) + ;; (,fc-font-name-property-core . fc-pattern-get-core) + ;; (,fc-font-name-property-render . fc-pattern-get-render) + )) + +(defvar fc-find-available-font-families-fc-fonts-only t + "If `fc-find-available-font-families-fc-fonts-only' is set to `t', +`fc-find-available-font-families' will ignore core fonts.") + +(defconst fc-font-name-slant-roman 0) +(defconst fc-font-name-slant-italic 100) +(defconst fc-font-name-slant-oblique 110) + +(defconst fc-font-name-slant-mapping + `((,fc-font-name-slant-roman . :roman) + (,fc-font-name-slant-italic . :italic) + (,fc-font-name-slant-oblique . :oblique))) + +(defconst fc-font-name-slant-mapping-string + `((,fc-font-name-slant-roman . "R") + (,fc-font-name-slant-roman . "I") + (,fc-font-name-slant-roman . "O"))) + +(defconst fc-font-name-slant-mapping-string-reverse + `(("R" . ,fc-font-name-slant-roman) + ("I" . ,fc-font-name-slant-italic) + ("O" . ,fc-font-name-slant-oblique))) + +(defconst fc-font-name-slant-mapping-reverse + `((:roman . ,fc-font-name-slant-roman) + (:italic . ,fc-font-name-slant-italic) + (:oblique . ,fc-font-name-slant-oblique))) + +(defun fc-font-slant-translate-from-constant (number) + "Translate the Xft font slant constant NUMBER to symbol." + (let ((pair (assoc number fc-font-name-slant-mapping))) + (if pair (cdr pair)))) + +(defun fc-font-slant-translate-from-symbol (symbol) + "Translate SYMBOL (`:roman', `:italic' or `:oblique') to the +corresponding Xft font slant constant." + (let ((pair (assoc symbol fc-font-name-slant-mapping-reverse))) + (if pair (cdr pair)))) + +(defun fc-font-slant-translate-to-string (num-or-sym) + (let* ((constant (if (symbolp num-or-sym) + (cdr (assoc num-or-sym fc-font-name-slant-mapping-reverse)) + num-or-sym)) + (pair (assoc constant fc-font-name-slant-mapping-string))) + (if pair (cdr pair)))) + +(defun fc-font-slant-translate-from-string (str) + (let ((pair (assoc str fc-font-name-slant-mapping-string-reverse))) + (if pair (cdr pair)))) + +(defconst fc-font-name-weight-light 0) +(defconst fc-font-name-weight-regular 80) +(defconst fc-font-name-weight-medium 100) +(defconst fc-font-name-weight-demibold 180) +(defconst fc-font-name-weight-bold 200) +(defconst fc-font-name-weight-black 210) + +(defconst fc-font-name-weight-mapping + `((,fc-font-name-weight-light . :light) + (,fc-font-name-weight-regular . :regular) + (,fc-font-name-weight-medium . :medium) + (,fc-font-name-weight-demibold . :demibold) + (,fc-font-name-weight-bold . :bold) + (,fc-font-name-weight-black . :black))) + +(defconst fc-font-name-weight-mapping-string + `((,fc-font-name-weight-light . "Light") + (,fc-font-name-weight-regular . "Regular") + (,fc-font-name-weight-medium . "Medium") + (,fc-font-name-weight-demibold . "Demibold") + (,fc-font-name-weight-bold . "Bold") + (,fc-font-name-weight-black . "Black"))) + +(defconst fc-font-name-weight-mapping-string-reverse + `(("Light" . ,fc-font-name-weight-light) + ("Regular" . ,fc-font-name-weight-regular) + ("Medium" . ,fc-font-name-weight-medium) + ("Demibold" . ,fc-font-name-weight-demibold) + ("Bold" . ,fc-font-name-weight-bold) + ("Black" . ,fc-font-name-weight-black))) + +(defconst fc-font-name-weight-mapping-reverse + `((:light . ,fc-font-name-weight-light) + (:regular . ,fc-font-name-weight-regular) + (:medium . ,fc-font-name-weight-medium) + (:demibold . ,fc-font-name-weight-demibold) + (:bold . ,fc-font-name-weight-bold) + (:black . ,fc-font-name-weight-black))) + +(defun fc-font-weight-translate-from-constant (number) + "Translate a Xft font weight constant NUMBER to symbol." + (let ((pair (assoc number fc-font-name-weight-mapping))) + (if pair (cdr pair)))) + +(defun fc-font-weight-translate-from-symbol (symbol) = + "Translate SYMBOL (`:light', `:regular', `:medium', `:demibold', +`:bold' or `:black') to the corresponding Xft font weight constant." + (let ((pair (assoc symbol fc-font-name-weight-mapping-reverse))) + (if pair (cdr pair)))) + +(defun fc-font-weight-translate-to-string (num-or-sym) + (let* ((constant (if (symbolp num-or-sym) + (cdr (assoc num-or-sym fc-font-name-weight-mapping-reverse)) + num-or-sym)) + (pair (assoc constant fc-font-name-weight-mapping-string))) + (if pair (cdr pair)))) + +(defun fc-font-weight-translate-from-string (str) + (let ((pair (assoc str fc-font-name-weight-mapping-string-reverse))) + (if pair (cdr pair)))) + +(defun fc-copy-pattern-partial (pattern attribute-list) + "Return a copy of PATTERN restricted to ATTRIBUTE-LIST. + +PATTERN is a fontconfig pattern object. +ATTRIBUTE-LIST is a list of strings denoting font properties. +A new object is allocated and returned." + (let ((new (make-fc-pattern)) + (attrs attribute-list)) + ;;; We demand proper tail recursion! + (while (not (null attrs)) + (let ((get (intern (concat "fc-pattern-get-" (car attrs)))) + (set (intern (concat "fc-pattern-add-" (car attrs))))) + (if (and (fboundp get) (fboundp set)) + (funcall set new (funcall get pattern 0)) + (warn "property '%s' not defined, ignoring" (car attrs)))) + (setq attrs (cdr attrs))) + new)) + +(defun fc-pattern-get-all-attributes (fc-pattern fc-pattern-get-function) + (let ((count 0) + res end val) + (while (not end) + (setq val (funcall fc-pattern-get-function fc-pattern count)) + (if (or (equal val 'fc-result-no-id) + (equal val 'fc-result-no-match)) + (setq end t) + (setq res (append res (list val)) + count (+ count 1)))) + res)) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;; +;; +;; The fontconfig fontname UI +;; +;; The basic interfaces are defined as API wrappers in C in xft-font.c +;; #### which should be renamed to fontconfig.c. These are prefixed +;; with "fc-name-". These are +;; +;; fc-name-parse +;; fc-name-unparse +;; xft-name-unparse + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;; +;; +;; The fontconfig font API +;; +;; The basic interfaces are defined as API wrappers in C in xft-font.c +;; #### which should be renamed to fontconfig.c. These are prefixed +;; with "fc-font-". These are +;; +;; fc-font-match +;; fc-list-fonts-pattern-objects +;; fc-font-sort +;; fc-font-real-pattern + +;; #### it might make sense to generalize `fc-try-font' by having a +;; global variable that contains a list of font name parsers. They are +;; tried in order, and the first one to return an fc-pattern is matched. + +(defun fc-try-font (font &optional device) + "Return list of pattern objects matching FONT on DEVICE. + +FONT may be a fontconfig pattern object or a fontconfig font name (a strin= g). +Optional DEVICE is the device object to query, defaulting to the currently +selected device." + (fc-list-fonts-pattern-objects (or device (default-x-device)) + (if (fc-pattern-p font) = + font + (fc-name-parse font)) + nil)) + +(defun fc-find-available-font-families (&optional device filter-fun) + "Find all available font families." + (let ((device (or device (default-x-device))) + (pattern (make-fc-pattern)) + (objectset '("family" "style"))) +; Xft2: does not work anymore +; (if (not fc-find-available-font-families-fc-fonts-only) +; (fc-pattern-add pattern fc-font-name-property-core t)) +; (fc-objectset-add objectset fc-font-name-property-encoding) + (let* ((all-fonts + (fc-list-fonts-pattern-objects device pattern objectset))) + (fc-delete-duplicates + (mapcar + '(lambda (pattern) + (fc-pattern-get-family pattern 0)) + (if filter-fun + (fc-filter all-fonts filter-fun) + all-fonts)))))) + +; Xft2: does not work anymore +; (defun fc-find-available-font-families-non-mule (&optional device) +; (fc-find-available-font-families +; device +; '(lambda (pattern) +; (let ((encodings (fc-pattern-get-all-attributes = +; pattern 'fc-pattern-get-encoding))) +; ;; Be sure that the font support ISO-8859-1 +; (member "iso8859-1" encodings))))) + +(defun fc-find-available-weights-for-family (family &optional style device) + "Find available weights for font FAMILY." + (let* ((device (or device (default-x-device))) + (pattern (make-fc-pattern)) + (objectset '("weight"))) + (fc-pattern-add pattern fc-font-name-property-family family) + (if style + (fc-pattern-add pattern fc-font-name-property-style style)) + (mapcar + '(lambda (pattern) + (let ((fc-weight-constant (fc-pattern-get-weight pattern 0))) + (if fc-weight-constant + (fc-font-weight-translate-from-constant fc-weight-constant)))) + (fc-list-fonts-pattern-objects device pattern objectset)))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;; +;; +;; The XLFD fontname UI +;; + +;; xlfd-font-name-p + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;= ;;;; +;; +;; Utility functions +;; + +(defun fc-pattern-get-successp (result) + (and (not (equal result 'fc-result-no-match)) + (not (equal result 'fc-result-no-id)) + (not (equal result 'fc-internal-error)))) + +;;; DELETE-DUPLICATES and REMOVE-DUPLICATES from cl-seq.el do not +;;; seem to work on list of strings... +;;; #### Presumably just use :test 'equal! +(defun fc-delete-duplicates (l) + (let ((res nil) + (in l)) + (while (not (null in)) + (if (not (member (car in) res)) + (setq res (append res (list (car in))))) + (setq in (cdr in))) + res)) + +;; #### Use delete-if with :test 'equal. +(defun fc-filter (l fun) + (let ((res nil) + (in l)) + (while (not (null in)) + (if (funcall fun (car in)) + (setq res (append res (list (car in))))) + (setq in (cdr in))) + res)) + +(provide 'fontconfig) + +;;; fontconfig.el ends here 1.76 +113 -0 XEmacs/xemacs/lwlib/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/ChangeLog,v retrieving revision 1.75 retrieving revision 1.76 diff -u -p -r1.75 -r1.76 --- ChangeLog 2005/11/22 07:14:40 1.75 +++ ChangeLog 2005/11/26 11:45:58 1.76 @@ -1,3 +1,116 @@ +2005-11-26 Stephen J. Turnbull + + Merge Xft. + + 2005-11-25 Stephen J. Turnbull + + * lwlib-colors: Improve comments. + = + 2005-11-25 Stephen J. Turnbull + + * lwlib-colors: Remove or comment out dead code. + = + 2005-09-26 Olivier Galibert + + * xlwmenu.c: + * xlwmenuP.h: + Give USE_XFT_MENUBARS priority over USE_MOTIF. + + 2005-09-06 Stephen J. Turnbull + + * lwlib-fonts.c (xft_open_font_by_name): Fix heuristic for XLFDs. + + * xlwmenu.c (string_draw_range): Recommend persistent xftDraw. + + 2005-09-02 Daniel Pittman + + * lwlib-fonts.c (xft_open_font_by_name): Eliminate code to avoid + use of scaled fonts (probably bogus, anyway). Add error message + in case of fatal failure to find any fonts at all. + <87ll2fucw1.fsf(a)rimspace.net> + + * xlwmenu.c (string_draw_range): Plug leak of XftDraw. + + 2005-03-09 Stephen J. Turnbull + + * xlwtabs.c (TabsGeometryManager): Fix "fat fingers" mistake. + + 2005-03-07 Stephen J. Turnbull + + * lwlib-Xaw.c (debug_gauge): Fix and suppress gauge debug message. + + * xlwtabs.c (TabsGeometryManager): Suppress "kludging" message, too. + (TabsGeometryManager): Make straight the paths of the layout, or + at least improve the approximation to Xt conventions by 50%. + + 2005-02-22 Stephen J. Turnbull + + * xlwtabs.c(debug_tabs): Suppress debug output for now. + + 2005-02-18 Stephen J. Turnbull + + * xlwtabs.c (TabsGeometryManager,TabsQueryGeometry): Improve comments. + (debug_tabs): New variable, substitute for debug_xft globally. + (TabsGeometryManager): Substitute "request" for "req". + + 2005-02-11 Stephen J. Turnbull + + * xlwtabs.c (PreferredSize3): Let TabLayout choose constraints. + (TabLayout): Default size to current size. Fix header comment. + (TabsGeometryManager): Comment on redesigning internal API. + (TabsGeometryManager): Fix typo in format string. + + 2005-01-27 Stephen J. Turnbull + + * xlwtabs.c (DrawTab): + Correct geometry when clearing rectangle. + Remove some "check me" comments. + Deemphasize a lot of debugging output. + (TabLayout): Add debugging fprintf. + (TabWidth): Deemphasize some debugging output. + + 2004-12-10 Stephen J. Turnbull + + * lwlib-Xaw.c (xaw_create_button): + (xaw_create_progress): + (xaw_create_text_field): + Changed XtCreateManagedWidget to XtCreateWidget when child is + managed later in the same function. + + (debug_gauge): New variable. + (lw_debug_print_xt_arglist): + (lw_debug_print_class_resources): + New debug functions. + + 2004-12-09 Stephen J. Turnbull + + * xlwmenu.c (xlwMenuResources): Use "redundant" XftFont resource. + + * xlwtabs.c: + * xlwtabsP.h: + Use USE_XFT_TABS consistently. + + 2004-12-01 Stephen J. Turnbull + + * xlwtabs.c: Move debug_xft to ../src/xft-fonts.c. + + 2004-11-20 Stephen J. Turnbull + + Xft branch based on "Xft reloaded #3" patch by Eric Knauel and + Mathias Neuebaur, and other contributors. + + * lwlib-fonts.h: + * lwlib-colors.h: + Declare common facilities use by Xft. + * lwlib-fonts.c: + * lwlib-colors.c: + Implement them. + * xlwtabs.c: + * xlwtabsP.h: + * xlwmenu.c: + * xlwmenuP.h: + Implement Xft text drawing. + 2005-11-22 Ben Wing = * Makefile.in.in: 1.21 +3 -1 XEmacs/xemacs/lwlib/Makefile.in.in Index: Makefile.in.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/Makefile.in.in,v retrieving revision 1.20 retrieving revision 1.21 diff -u -p -r1.20 -r1.21 --- Makefile.in.in 2005/11/22 07:14:40 1.20 +++ Makefile.in.in 2005/11/26 11:45:58 1.21 @@ -49,7 +49,7 @@ vpath %.h @srcdir@ VPATH=3D@srcdir@ #endif = -objs =3D lwlib.o lwlib-utils.o @lwlib_objs@ +objs =3D lwlib.o lwlib-utils.o lwlib-colors.o lwlib-fonts.o @lwlib_objs@ = all: liblw.a = @@ -110,6 +110,8 @@ lwlib-Xlw.o: $(CONFIG_H) lwlib-Xlw.h lwl xlwtabs.h xlwgcs.h lwlib-Xm.o: $(CONFIG_H) lwlib-Xm.h lwlib-internal.h lwlib-utils.h lwlib.h = xlwmenu.h lwlib-utils.o: $(CONFIG_H) lwlib-utils.h +lwlib-colors.o: $(CONFIG_H) lwlib-colors.h +lwlib-fonts.o: $(CONFIG_H) lwlib-fonts.h lwlib.o: $(CONFIG_H) lwlib-Xaw.h lwlib-Xlw.h lwlib-Xm.h lwlib-internal.h l= wlib-utils.h lwlib.h xlwmenu.h xlwmenu.o: $(CONFIG_H) lwlib.h xlwmenu.h xlwmenuP.h xlwscrollbar.o: $(CONFIG_H) xlwscrollbar.h xlwscrollbarP.h 1.12 +73 -8 XEmacs/xemacs/lwlib/lwlib-Xaw.c Index: lwlib-Xaw.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/lwlib-Xaw.c,v retrieving revision 1.11 retrieving revision 1.12 diff -u -p -r1.11 -r1.12 --- lwlib-Xaw.c 2004/09/20 19:19:16 1.11 +++ lwlib-Xaw.c 2005/11/26 11:45:59 1.12 @@ -52,6 +52,7 @@ Boston, MA 02111-1307, USA. */ = static void xaw_generic_callback (Widget, XtPointer, XtPointer); = +extern int debug_xft; = Boolean lw_xaw_widget_p (Widget widget) @@ -738,7 +739,7 @@ xaw_create_button (widget_instance *inst lw_add_value_args_to_args (val, al, &ac); = if (!val->call_data) - button =3D XtCreateManagedWidget (val->name, labelWidgetClass, = + button =3D XtCreateWidget (val->name, labelWidgetClass, = instance->parent, al, ac); = else = @@ -746,20 +747,21 @@ xaw_create_button (widget_instance *inst if (val->type =3D=3D TOGGLE_TYPE || val->type =3D=3D RADIO_TYPE) { XtSetArg (al [ac], XtNstate, val->selected); ac++; - button =3D XtCreateManagedWidget = + button =3D XtCreateWidget = (val->name, = val->type =3D=3D TOGGLE_TYPE ? checkboxWidgetClass : radioWidgetClas= s, instance->parent, al, ac); } else = { - button =3D XtCreateManagedWidget (val->name, commandWidgetClass, + button =3D XtCreateWidget (val->name, commandWidgetClass, instance->parent, al, ac); } XtRemoveAllCallbacks (button, XtNcallback); XtAddCallback (button, XtNcallback, xaw_generic_callback, (XtPointer= )instance); } = + /* #### this maybe can be folded into the XtCreateWidget calls above */ XtManageChild (button); = return button; @@ -788,7 +790,8 @@ xaw_create_label (Widget parent, widget_ label =3D XtCreateManagedWidget (val->name, labelWidgetClass, = parent, al, ac); = - /* Do it again for arguments that have no effect until the widget is rea= lized. */ + /* Do it again for arguments that have no effect until the widget is rea= lized. + #### Uh, but the widget isn't realized until later? Do we mean "crea= ted"? */ ac =3D 0; lw_add_value_args_to_args (val, al, &ac); if (ac > 20) @@ -798,6 +801,60 @@ xaw_create_label (Widget parent, widget_ return label; } = +static int debug_gauge =3D 0; + +static void +lw_debug_print_xt_arglist (ArgList al, int ac) +{ + int i; + for (i =3D 0; i < ac; i++) + fprintf (stderr, "Widget has arg %s with value %lu.\n", + al[i].name, (unsigned long) al[i].value); +} + +static void +lw_debug_print_class_resources (WidgetClass class_) +{ + Cardinal i; + do { + Cardinal m, n =3D class_->core_class.num_resources; + XtResourceList rl; + fprintf (stderr, "Class is %s (%p/%p) with %d resources.\n", + class_->core_class.class_name, class_, &(class_->core_class), n); + fprintf (stderr, " Class's resources are at %p. Converting...\n", + class_->core_class.resources); + /* resources may be compiled to an internal format */ + XtGetResourceList (class_, &rl, &m); + for (i =3D 0; i < m; i++) + fprintf (stderr, + " Class has a %s resource of type %s initialized from %s.\n", + rl[i].resource_class, rl[i].resource_type, rl[i].default_type); + /* special cases for commonly problematic resources */ + for (i =3D 0; i < m; i++) + { + if (!strcmp (rl[i].resource_class, "Font")) + { + fprintf (stderr, " Class has a Font resource.\n"); + fprintf (stderr, " Font resource is %s.\n", + (char *) rl[i].default_addr); + } + if (!strcmp (rl[i].resource_class, "FontSet")) + { + fprintf (stderr, " Class has a FontSet resource.\n"); + fprintf (stderr, " FontSet resource is %s.\n", + (char *) rl[i].default_addr); + } + if (!strcmp (rl[i].resource_class, "International")) + { + fprintf (stderr, " Class has an International resource.\n"); + fprintf (stderr, " International resource is %d.\n", + (int) rl[i].default_addr); + } + } + class_ =3D class_->core_class.superclass; + } while (class_ !=3D NULL); +} + static Widget xaw_create_progress (widget_instance *instance) { @@ -825,13 +882,21 @@ xaw_create_progress (widget_instance *in = /* add any args the user supplied for creation time */ lw_add_value_args_to_args (val, al, &ac); + + if (debug_gauge > 1) + lw_debug_print_class_resources (gaugeWidgetClass); + if (debug_gauge > 0) + lw_debug_print_xt_arglist (al, ac); + + scale =3D XtCreateWidget (val->name, gaugeWidgetClass, + instance->parent, al, ac); = - scale =3D XtCreateManagedWidget (val->name, gaugeWidgetClass, - instance->parent, al, ac); /* add the callback */ if (val->call_data) - XtAddCallback (scale, XtNgetValue, xaw_generic_callback, (XtPointer)in= stance); + XtAddCallback (scale, XtNgetValue, xaw_generic_callback, + (XtPointer) instance); = + /* #### this maybe can be folded into the XtCreateWidget call above */ XtManageChild (scale); = return scale; @@ -864,7 +929,7 @@ xaw_create_text_field (widget_instance * /* add any args the user supplied for creation time */ lw_add_value_args_to_args (val, al, &ac); = - text =3D XtCreateManagedWidget (val->name, asciiTextWidgetClass, + text =3D XtCreateWidget (val->name, asciiTextWidgetClass, instance->parent, al, ac); = /* add the callback */ 1.15 +2 -2 XEmacs/xemacs/lwlib/lwlib-Xlw.c Index: lwlib-Xlw.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/lwlib-Xlw.c,v retrieving revision 1.14 retrieving revision 1.15 diff -u -p -r1.14 -r1.15 --- lwlib-Xlw.c 2005/03/09 05:58:54 1.14 +++ lwlib-Xlw.c 2005/11/26 11:45:59 1.15 @@ -479,8 +479,8 @@ xlw_create_clip_window (widget_instance = Widget clip =3D 0; widget_value* val =3D instance->info->val; = - XtSetArg (al [ac], XtNmappedWhenManaged, FALSE); ac++; - XtSetArg (al [ac], XtNsensitive, TRUE); ac++; + XtSetArg (al [ac], XtNmappedWhenManaged, False); ac++; + XtSetArg (al [ac], XtNsensitive, True); ac++; /* add any args the user supplied for creation time */ lw_add_value_args_to_args (val, al, &ac); = 1.38 +317 -107 XEmacs/xemacs/lwlib/xlwmenu.c Index: xlwmenu.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/xlwmenu.c,v retrieving revision 1.37 retrieving revision 1.38 diff -u -p -r1.37 -r1.38 --- xlwmenu.c 2004/09/20 19:19:17 1.37 +++ xlwmenu.c 2005/11/26 11:45:59 1.38 @@ -45,6 +45,11 @@ Boston, MA 02111-1307, USA. */ #define XmFONTLIST_DEFAULT_TAG XmSTRING_DEFAULT_CHARSET #endif /* XmVersion < 1.2 */ #endif + +/* #### we may want to turn off USE_XFT here if !USE_XFT_MENUBARS + In fact, maybe that's the right interface overall? */ +#include "lwlib-fonts.h" +#include "lwlib-colors.h" #include "xlwmenuP.h" = #ifdef USE_DEBUG_MALLOC @@ -69,7 +74,7 @@ extern Widget lw_menubar_widget; static XtResource xlwMenuResources[] =3D { -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) /* There are three font list resources, so that we can accept either of the resources *fontList: or *font:, and so that we can tell the difference between them being specified, and being defaulted to a @@ -87,6 +92,11 @@ xlwMenuResources[] =3D #else {XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *), offset(menu.font), XtRString, (XtPointer) "XtDefaultFont"}, +#ifdef USE_XFT_MENUBARS + {XtNxftFont, XtCXftFont, XtRString, sizeof (String), + offset(menu.renderFontSpec), = + XtRString, (XtPointer) "Helvetica-12:bold"}, +#endif # ifdef USE_XFONTSET /* #### Consider using the same method as for Motif; see the comment in XlwMenuInitialize(). */ @@ -165,7 +175,7 @@ static void Start (Widget w, XEvent *ev, static void Drag (Widget w, XEvent *ev, String *params, Cardinal *num_par= ams); static void Select(Widget w, XEvent *ev, String *params, Cardinal *num_par= ams); = -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) static XFontStruct *default_font_of_font_list (XmFontList); #endif = @@ -241,57 +251,6 @@ safe_strdup (char *s) = #endif /* 0 */ = -/* Replacement for XAllocColor() that tries to return the nearest - available color if the colormap is full. From FSF Emacs. */ - -static int -allocate_nearest_color (Display *display, Colormap screen_colormap, - XColor *color_def) -{ - int status =3D XAllocColor (display, screen_colormap, color_def); - if (status) - return status; - - { - /* If we got to this point, the colormap is full, so we're - going to try to get the next closest color. - The algorithm used is a least-squares matching, which is - what X uses for closest color matching with StaticColor visuals. */ - - int nearest, x; - unsigned long nearest_delta =3D ULONG_MAX; - - int no_cells =3D XDisplayCells (display, XDefaultScreen (display)); - /* Don't use alloca here because lwlib doesn't have the - necessary configuration information that src does. */ - XColor *cells =3D (XColor *) malloc (sizeof (XColor) * no_cells); - - for (x =3D 0; x < no_cells; x++) - cells[x].pixel =3D x; - - XQueryColors (display, screen_colormap, cells, no_cells); - - for (nearest =3D 0, x =3D 0; x < no_cells; x++) - { - long dred =3D (color_def->red >> 8) - (cells[x].red >> 8); - long dgreen =3D (color_def->green >> 8) - (cells[x].green >> 8); - long dblue =3D (color_def->blue >> 8) - (cells[x].blue >> 8); - unsigned long delta =3D dred * dred + dgreen * dgreen + dblue * dblue; - - if (delta < nearest_delta) - { - nearest =3D x; - nearest_delta =3D delta; - } - } - color_def->red =3D cells[nearest].red; - color_def->green =3D cells[nearest].green; - color_def->blue =3D cells[nearest].blue; - free (cells); - return XAllocColor (display, screen_colormap, color_def); - } -} - static void push_new_stack (XlwMenuWidget mw, widget_value *val) { @@ -355,14 +314,14 @@ close_to_reference_time (Widget w, Time = =0C/* Size code */ static int string_width (XlwMenuWidget mw, -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) XmString s #else char *s #endif ) { -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) Dimension width, height; XmStringExtent (mw->menu.font_list, s, &width, &height); return width; @@ -372,10 +331,17 @@ string_width (XlwMenuWidget mw, XmbTextExtents (mw->menu.font_set, s, strlen (s), &ri, &rl); return rl.width; # else +#ifdef USE_XFT_MENUBARS + XGlyphInfo glyphinfo; + XftTextExtents8 (XtDisplay (mw), mw->menu.renderFont, s, strlen (s), + &glyphinfo); + return glyphinfo.xOff; +#else XCharStruct xcs; int drop; XTextExtents (mw->menu.font, s, strlen (s), &drop, &drop, &drop, &xcs); return xcs.width; +#endif # endif /* USE_XFONTSET */ #endif } @@ -402,22 +368,26 @@ initialize_massaged_resource_char (void) = static int string_width_u (XlwMenuWidget mw, -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) XmString string #else char *string #endif ) { -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) Dimension width, height; XmString newstring; #else # ifdef USE_XFONTSET XRectangle ri, rl; # else /* ! USE_XFONTSET */ +#ifdef USE_XFT_MENUBARS + XGlyphInfo glyphinfo; +#else XCharStruct xcs; int drop; +#endif # endif #endif char* newchars; @@ -425,7 +395,7 @@ string_width_u (XlwMenuWidget mw, char *chars; int i, j; = -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) chars =3D ""; if (!XmStringGetLtoR (string, XmFONTLIST_DEFAULT_TAG, &chars)) chars =3D ""; @@ -442,7 +412,7 @@ string_width_u (XlwMenuWidget mw, newchars[j++] =3D chars[i]; newchars[j] =3D '\0'; = -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) newstring =3D XmStringLtoRCreate (newchars, XmFONTLIST_DEFAULT_TAG); XmStringExtent (mw->menu.font_list, newstring, &width, &height); XmStringFree (newstring); @@ -453,8 +423,14 @@ string_width_u (XlwMenuWidget mw, XmbTextExtents (mw->menu.font_set, newchars, j, &ri, &rl); return rl.width; # else /* ! USE_XFONTSET */ +#ifdef USE_XFT_MENUBARS + XftTextExtents8 (XtDisplay (mw), mw->menu.renderFont, newchars, j, = + &glyphinfo); + return glyphinfo.xOff; +#else XTextExtents (mw->menu.font, newchars, j, &drop, &drop, &drop, &xcs); return xcs.width; +#endif # endif /* USE_XFONTSET */ #endif } @@ -621,7 +597,7 @@ parameterize_string (const char *string, return result; } = -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) = static XmString resource_widget_value (XlwMenuWidget mw, widget_value *val) @@ -769,20 +745,41 @@ resource_widget_value (XlwMenuWidget mw, = #endif /* !Motif */ = +#define MINL(x,y) ((((unsigned long) (x)) < ((unsigned long) (y))) \ + ? ((unsigned long) (x)) : ((unsigned long) (y))) + +#ifdef USE_XFT_MENUBARS +static int +x_xft_text_width (Display *dpy, XftFont *xft_font, char *run, int len) +{ + static XGlyphInfo glyphinfo; + + XftTextExtents8 (dpy, + xft_font, + run, len, &glyphinfo); + return glyphinfo.xOff; +} +#endif + /* Code for drawing strings. */ static void string_draw (XlwMenuWidget mw, Window window, int x, int y, +#ifdef USE_XFT_MENUBARS + XftColor *color, + XftColor *colorBg, +#else GC gc, -#ifdef NEED_MOTIF +#endif +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) XmString string #else char *string #endif ) { -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) XmStringDraw (XtDisplay (mw), window, mw->menu.font_list, string, gc, @@ -792,15 +789,31 @@ string_draw (XlwMenuWidget mw, 0, /* ???? layout_direction */ 0); #else -# ifdef USE_XFONTSET +# ifdef USE_XFT_MENUBARS + Display *display =3D XtDisplay (mw); + Visual *visual =3D DefaultVisualOfScreen (XtScreen (mw)); + Colormap cmap =3D mw->core.colormap; + XftDraw *xftDraw =3D XftDrawCreate (display, window, visual, cmap); + XftFont *renderFont =3D mw->menu.renderFont; + /* draw background rect */ + XftDrawRect (xftDraw, colorBg, + x, y, + x_xft_text_width (display, renderFont, string, strlen (string)), + renderFont->ascent + renderFont->descent); /* XXX */ + /* draw text */ + XftDrawString8 (xftDraw, color, renderFont, + x, y + mw->menu.font_ascent, string, strlen (string)); + XftDrawDestroy (xftDraw); +# else +# ifdef USE_XFONTSET XmbDrawString (XtDisplay (mw), window, mw->menu.font_set, gc, x, y + mw->menu.font_ascent, string, strlen (string)); -# else +# else XDrawString (XtDisplay (mw), window, gc, x, y + mw->menu.font_ascent, string, strlen (string)); -# endif /* USE_XFONTSET */ - -#endif +# endif /* USE_XFONTSET */ +# endif /* USE_XFT_MENUBARS */ +#endif /* NEED_MOTIF */ } = static int @@ -808,13 +821,18 @@ string_draw_range ( XlwMenuWidget mw, Window window, int x, int y, +#ifdef USE_XFT_MENUBARS + XftColor *color, + XftColor *colorBg, +#else GC gc, +#endif char *string, int start, int end ) { -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) Dimension width, height; XmString newstring; int c; @@ -851,18 +869,50 @@ string_draw_range ( mw->menu.font_set, &string[start], end - start, &ri, &rl); return rl.width; # else +#ifdef USE_XFT_MENUBARS + if (end <=3D start) + return 0; + else + { + XGlyphInfo glyphinfo; + Display *display =3D XtDisplay (mw); + Visual *visual =3D DefaultVisualOfScreen (XtScreen (mw)); + Colormap cmap =3D mw->core.colormap; + XftFont *renderFont =3D mw->menu.renderFont; + /* #### should use parent frame's .xftDraw? */ + XftDraw *xftDraw =3D XftDrawCreate (display, window, visual, cmap); + /* draw background rect */ + XftDrawRect (xftDraw, colorBg, + x, y, + x_xft_text_width (display, = + renderFont, &string[start], end - start), + renderFont->ascent + renderFont->descent); /* XXX */ + /* draw text */ + XftDrawString8 (xftDraw, color, renderFont, + x, y + mw->menu.font_ascent, + &string[start], end - start); + = + XftTextExtents8 (display, renderFont, &string[start], end - start, + &glyphinfo); + + /* #### should use parent frame's .xftDraw */ + XftDrawDestroy (xftDraw); + return glyphinfo.xOff; + } = +#else XCharStruct xcs; int drop; = if (end <=3D start) return 0; - XDrawString ( + XDrawString ( /* XXX */ XtDisplay (mw), window, gc, x, y + mw->menu.font_ascent, &string[start], end - start); XTextExtents ( mw->menu.font, &string[start], end - start, &drop, &drop, &drop, &xcs); return xcs.width; +#endif # endif #endif } @@ -871,8 +921,12 @@ static void string_draw_u (XlwMenuWidget mw, Window window, int x, int y, +#ifdef USE_XFT_MENUBARS + XftColor *color, XftColor *colorBg, GC gc, +#else GC gc, -#ifdef NEED_MOTIF +#endif +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) XmString string #else char *string @@ -882,7 +936,7 @@ string_draw_u (XlwMenuWidget mw, int i, s =3D 0; char *chars; = -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) chars =3D ""; if (!XmStringGetLtoR (string, XmFONTLIST_DEFAULT_TAG, &chars)) chars =3D ""; @@ -893,8 +947,13 @@ string_draw_u (XlwMenuWidget mw, if (chars[i] =3D=3D '%' && chars[i+1] =3D=3D '_') { int w; = +#ifdef USE_XFT_MENUBARS + x +=3D string_draw_range (mw, window, x, y, color, colorBg, chars, s, i= ); + w =3D string_draw_range (mw, window, x, y, color, colorBg, chars, i+2, = i+3); +#else x +=3D string_draw_range (mw, window, x, y, gc, chars, s, i); w =3D string_draw_range (mw, window, x, y, gc, chars, i+2, i+3); +#endif = /* underline next character */ XDrawLine (XtDisplay (mw), window, gc, x - 1, @@ -905,22 +964,37 @@ string_draw_u (XlwMenuWidget mw, i +=3D 2; } } +#ifdef USE_XFT_MENUBARS + x +=3D string_draw_range (mw, window, x, y, color, colorBg, chars, s, i); +#else x +=3D string_draw_range (mw, window, x, y, gc, chars, s, i); -#ifdef NEED_MOTIF +#endif +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) XtFree (chars); #endif } = -static void -binding_draw (XlwMenuWidget mw, Window w, int x, int y, GC gc, char *value) +static void /* XXX */ +binding_draw (XlwMenuWidget mw, Window w, int x, int y, +#ifdef USE_XFT_MENUBARS + XftColor *color, + XftColor *colorBg, +#else + GC gc, +#endif + char *value) { -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) XmString xm_value =3D XmStringCreateLtoR(value, XmSTRING_DEFAULT_CHARSET= ); string_draw (mw, w, x, y, gc, xm_value); XmStringFree (xm_value); #else +#ifdef USE_XFT_MENUBARS + string_draw (mw, w, x, y, color, colorBg, value); +#else string_draw (mw, w, x, y, gc, value); #endif +#endif } = /* Low level code for drawing 3-D edges. */ @@ -1562,21 +1636,57 @@ label_button_draw (XlwMenuWidget mw, int y_offset =3D mw->menu.shadow_thickness + mw->menu.vertical_margin; GC gc; = +#ifdef USE_XFT_MENUBARS + XftColor color, colorBg; + Display *display =3D XtDisplay (mw); + Colormap cmap =3D mw->core.colormap; + Visual *visual; + int ignored, pixel, pixelBg; + + visual_info_from_widget ((Widget) mw, &visual, &ignored); +#endif + if (!label_offset) label_offset =3D mw->menu.shadow_thickness + mw->menu.horizontal_margi= n; = - if (highlighted && (in_menubar || val->contents)) - gc =3D mw->menu.highlight_gc; + if (highlighted && (in_menubar || val->contents)) = + { +#ifdef USE_XFT_MENUBARS + pixel =3D mw->menu.highlight_foreground; + pixelBg =3D mw->core.background_pixel; +#endif + gc =3D mw->menu.highlight_gc; + } else if (in_menubar || val->contents) - gc =3D mw->menu.foreground_gc; + { +#ifdef USE_XFT_MENUBARS + pixel =3D mw->menu.foreground; + pixelBg =3D mw->core.background_pixel; +#endif + gc =3D mw->menu.foreground_gc; + } else - gc =3D mw->menu.title_gc; + { +#ifdef USE_XFT_MENUBARS + pixel =3D mw->menu.title_foreground; + pixelBg =3D mw->core.background_pixel; +#endif + gc =3D mw->menu.title_gc; + } +#ifdef USE_XFT_MENUBARS + color =3D xft_convert_color (display, cmap, visual, pixel, 0); + colorBg =3D xft_convert_color (display, cmap, visual, pixelBg, 0); +#endif = /* Draw the label string. */ - string_draw_u (mw, - window, - x + label_offset, y + y_offset, + string_draw_u (mw, /* XXX */ + window, + x + label_offset, y + y_offset, +#ifdef USE_XFT_MENUBARS + &color, &colorBg, gc, +#else gc, +#endif resource_widget_value (mw, val)); } = @@ -1598,7 +1708,7 @@ push_button_size (XlwMenuWidget mw, if (!in_menubar && val->key) { int w; -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) XmString key =3D XmStringCreateLtoR (val->key, XmSTRING_DEFAULT_CHAR= SET); w =3D string_width (mw, key); XmStringFree (key); @@ -1627,6 +1737,16 @@ push_button_draw (XlwMenuWidget mw, shadow_type type; Boolean menu_pb =3D in_menubar && (menu_item_type (val) =3D=3D BUTTON_TY= PE); = +#ifdef USE_XFT_MENUBARS + XftColor color, colorBg; + Display *display =3D XtDisplay (mw); + Colormap cmap =3D mw->core.colormap; + Visual *visual; + int ignored, pixel, pixelBg, dim =3D 0; + + visual_info_from_widget ((Widget) mw, &visual, &ignored); +#endif + /* Draw the label string. */ if (!label_offset) label_offset =3D mw->menu.shadow_thickness + mw->menu.horizontal_margi= n; @@ -1634,29 +1754,77 @@ push_button_draw (XlwMenuWidget mw, if (highlighted) { if (val->enabled) - gc =3D mw->menu.highlight_gc; + { +#ifdef USE_XFT_MENUBARS + pixel =3D mw->menu.highlight_foreground; + pixelBg =3D mw->core.background_pixel; +#endif + gc =3D mw->menu.highlight_gc; + } else - gc =3D mw->menu.inactive_gc; + { +#ifdef USE_XFT_MENUBARS + dim =3D 1; + pixel =3D mw->menu.foreground; + pixelBg =3D mw->core.background_pixel; +#endif + gc =3D mw->menu.inactive_gc; } + } else if (menu_pb) { if (val->enabled) - gc =3D mw->menu.button_gc; + { +#ifdef USE_XFT_MENUBARS + pixel =3D mw->menu.button_foreground; + pixelBg =3D mw->core.background_pixel; +#endif + gc =3D mw->menu.button_gc; + } else - gc =3D mw->menu.inactive_button_gc; + { +#ifdef USE_XFT_MENUBARS + dim =3D 1; + pixel =3D mw->menu.button_foreground; + pixelBg =3D mw->core.background_pixel; +#endif + gc =3D mw->menu.inactive_button_gc; + } } else { if (val->enabled) - gc =3D mw->menu.foreground_gc; + { +#ifdef USE_XFT_MENUBARS + pixel =3D mw->menu.foreground; + pixelBg =3D mw->core.background_pixel; +#endif + gc =3D mw->menu.foreground_gc; + } else - gc =3D mw->menu.inactive_gc; + { +#ifdef USE_XFT_MENUBARS + dim =3D 1; + pixel =3D mw->menu.foreground; + pixelBg =3D mw->core.background_pixel; +#endif + gc =3D mw->menu.inactive_gc; + } } = +#ifdef USE_XFT_MENUBARS + color =3D xft_convert_color (display, cmap, visual, pixel, dim); + colorBg =3D xft_convert_color (display, cmap, visual, pixelBg, 0); +#endif + string_draw_u (mw, - window, - x + label_offset, y + y_offset, - gc, + window, + x + label_offset, y + y_offset, +#ifdef USE_XFT_MENUBARS + &color, &colorBg, gc, +#else + gc, +#endif resource_widget_value (mw, val)); = /* Draw the keybindings */ @@ -1670,7 +1838,13 @@ push_button_draw (XlwMenuWidget mw, } binding_draw (mw, window, x + binding_offset + mw->menu.column_spacing, - y + y_offset, gc, val->key); + y + y_offset, = +#ifdef USE_XFT_MENUBARS + &color, &colorBg, +#else + gc, +#endif + val->key); } = /* Draw the shadow */ @@ -2336,6 +2510,7 @@ make_windows_if_needed (XlwMenuWidget mw return; = root =3D RootWindowOfScreen (XtScreen(mw)); + /* use visual_info_from_widget() from lwlib-colors.c */ /* grab the visual and depth from the nearest shell ancestor */ visual =3D CopyFromParent; depth =3D CopyFromParent; @@ -2615,13 +2790,19 @@ static void make_drawing_gcs (XlwMenuWidget mw) { XGCValues xgcv; +#ifdef USE_XFT_MENUBARS + unsigned long flags =3D (GCForeground | GCBackground); +#else unsigned long flags =3D (GCFont | GCForeground | GCBackground); +#endif = -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) xgcv.font =3D default_font_of_font_list (mw->menu.font_list)->fid; #else +#ifndef USE_XFT_MENUBARS xgcv.font =3D mw->menu.font->fid; #endif +#endif = xgcv.foreground =3D mw->core.background_pixel; xgcv.background =3D mw->menu.foreground; @@ -2645,18 +2826,21 @@ make_drawing_gcs (XlwMenuWidget mw) else { /* color */ XColor xcolor; + Visual *visual; + int ignore; + visual_info_from_widget ((Widget) mw, &visual, &ignore); Colormap cmap =3D mw->core.colormap; xcolor.pixel =3D mw->core.background_pixel; XQueryColor (dpy, cmap, &xcolor); xcolor.red =3D (xcolor.red * 17) / 20; xcolor.green =3D (xcolor.green * 17) / 20; xcolor.blue =3D (xcolor.blue * 17) / 20; - if (allocate_nearest_color (dpy, cmap, &xcolor)) + if (x_allocate_nearest_color (dpy, cmap, visual, &xcolor)) xgcv.foreground =3D xcolor.pixel; } } xgcv.background =3D mw->core.background_pixel; - mw->menu.select_gc =3D XtGetGC ((Widget)mw, flags, &xgcv); + mw->menu.select_gc =3D XtGetGC ((Widget) mw, flags, &xgcv); = xgcv.foreground =3D mw->menu.foreground; xgcv.background =3D mw->core.background_pixel; @@ -2688,6 +2872,7 @@ make_drawing_gcs (XlwMenuWidget mw) static void release_drawing_gcs (XlwMenuWidget mw) { + = XtReleaseGC ((Widget) mw, mw->menu.foreground_gc); XtReleaseGC ((Widget) mw, mw->menu.button_gc); XtReleaseGC ((Widget) mw, mw->menu.highlight_gc); @@ -2707,9 +2892,6 @@ release_drawing_gcs (XlwMenuWidget mw) mw->menu.select_gc =3D (GC) -1; } = -#define MINL(x,y) ((((unsigned long) (x)) < ((unsigned long) (y))) \ - ? ((unsigned long) (x)) : ((unsigned long) (y))) - static void make_shadow_gcs (XlwMenuWidget mw) { @@ -2717,9 +2899,20 @@ make_shadow_gcs (XlwMenuWidget mw) unsigned long pm =3D 0; Display *dpy =3D XtDisplay ((Widget) mw); Colormap cmap =3D mw->core.colormap; + Visual *visual; + int ignored; XColor topc, botc; int top_frobbed =3D 0, bottom_frobbed =3D 0; = + visual_info_from_widget ((Widget) mw, &visual, &ignored); + /* #### Apparently this is called before any shell has a visual? + or maybe the widget doesn't have a parent yet? */ + if (visual =3D=3D CopyFromParent) + { + Screen *screen =3D DefaultScreenOfDisplay (dpy); + visual =3D DefaultVisualOfScreen (screen); + } + if (mw->menu.top_shadow_color =3D=3D (Pixel) (-1)) mw->menu.top_shadow_color =3D mw->core.background_pixel; if (mw->menu.bottom_shadow_color =3D=3D (Pixel) (-1)) @@ -2734,7 +2927,7 @@ make_shadow_gcs (XlwMenuWidget mw) topc.red =3D MINL (65535, topc.red * 1.2); topc.green =3D MINL (65535, topc.green * 1.2); topc.blue =3D MINL (65535, topc.blue * 1.2); - if (allocate_nearest_color (dpy, cmap, &topc)) + if (x_allocate_nearest_color (dpy, cmap, visual, &topc)) { if (topc.pixel =3D=3D mw->core.background_pixel) { @@ -2742,7 +2935,7 @@ make_shadow_gcs (XlwMenuWidget mw) topc.red =3D MINL (65535, topc.red + 0x8000); topc.green =3D MINL (65535, topc.green + 0x8000); topc.blue =3D MINL (65535, topc.blue + 0x8000); - if (allocate_nearest_color (dpy, cmap, &topc)) + if (x_allocate_nearest_color (dpy, cmap, visual, &topc)) { mw->menu.top_shadow_color =3D topc.pixel; } @@ -2763,7 +2956,7 @@ make_shadow_gcs (XlwMenuWidget mw) botc.red =3D (botc.red * 3) / 5; botc.green =3D (botc.green * 3) / 5; botc.blue =3D (botc.blue * 3) / 5; - if (allocate_nearest_color (dpy, cmap, &botc)) + if (x_allocate_nearest_color (dpy, cmap, visual, &botc)) { if (botc.pixel =3D=3D mw->core.background_pixel) { @@ -2771,7 +2964,7 @@ make_shadow_gcs (XlwMenuWidget mw) botc.red =3D MINL (65535, botc.red + 0x4000); botc.green =3D MINL (65535, botc.green + 0x4000); botc.blue =3D MINL (65535, botc.blue + 0x4000); - if (allocate_nearest_color (dpy, cmap, &botc)) + if (x_allocate_nearest_color (dpy, cmap, visual, &botc)) { mw->menu.bottom_shadow_color =3D botc.pixel; } @@ -2854,7 +3047,7 @@ release_shadow_gcs (XlwMenuWidget mw) static void extract_font_extents (XlwMenuWidget mw) { -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) /* Find the maximal ascent/descent of the fonts in the font list so that all menu items can be the same height... */ mw->menu.font_ascent =3D 0; @@ -2939,13 +3132,18 @@ extract_font_extents (XlwMenuWidget mw) mw->menu.font_descent =3D font->descent; } # else /* ! USE_XFONTSET */ +#ifdef USE_XFT_MENUBARS + mw->menu.font_ascent =3D mw->menu.renderFont->ascent; + mw->menu.font_descent =3D mw->menu.renderFont->descent; +#else mw->menu.font_ascent =3D mw->menu.font->ascent; mw->menu.font_descent =3D mw->menu.font->descent; +#endif # endif #endif /* NEED_MOTIF */ } = -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) static XFontStruct * default_font_of_font_list (XmFontList font_list) { @@ -3015,7 +3213,7 @@ XlwMenuInitialize (Widget UNUSED (reques XCreatePixmapFromBitmapData (display, window, (char *) gray_bits, gray_width, gray_height, 1, 0, 1); = -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) /* #### Even if it's a kludge!!!, we should consider doing the same for X Font Sets. */ /* The menu.font_list slot came from the *fontList resource (Motif stand= ard.) @@ -3037,6 +3235,14 @@ XlwMenuInitialize (Widget UNUSED (reques mw->menu.font_list =3D mw->menu.fallback_font_list; #endif = +#ifdef USE_XFT_MENUBARS + /* to do this right, we should add a new Xt Resource type + + conversion function + */ + mw->menu.renderFont =3D + xft_open_font_by_name (XtDisplay (mw), mw->menu.renderFontSpec); +#endif + make_drawing_gcs (mw); make_shadow_gcs (mw); extract_font_extents (mw); @@ -3179,12 +3385,16 @@ XlwMenuSetValues (Widget current, Widget if (newmw->core.background_pixel !=3D oldmw->core.background_pixel || newmw->menu.foreground !=3D oldmw->menu.foreground /* For the XEditResource protocol, which may want to change the font= . */ -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) || newmw->menu.font_list !=3D oldmw->menu.font_list || newmw->menu.font_list_2 !=3D oldmw->menu.font_list_2 || newmw->menu.fallback_font_list !=3D oldmw->menu.fallback_font_list #else +#ifdef USE_XFT_MENUBARS + || newmw->menu.renderFont !=3D oldmw->menu.renderFont +#else || newmw->menu.font !=3D oldmw->menu.font +#endif #endif ) { 1.5 +13 -1 XEmacs/xemacs/lwlib/xlwmenuP.h Index: xlwmenuP.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/xlwmenuP.h,v retrieving revision 1.4 retrieving revision 1.5 diff -u -p -r1.4 -r1.5 --- xlwmenuP.h 2001/04/12 18:21:55 1.4 +++ xlwmenuP.h 2005/11/26 11:46:00 1.5 @@ -4,6 +4,11 @@ #include "xlwmenu.h" #include = +#ifdef USE_XFT_MENUBARS +#include +#endif + + /* Elements in the stack arrays. */ typedef struct _window_state { @@ -22,12 +27,17 @@ typedef struct _XlwMenu_part = { /* slots set by the resources */ = -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(USE_XFT_MENUBARS) XmFontList font_list; XmFontList font_list_2; XmFontList fallback_font_list; #else XFontStruct * font; +#ifdef USE_XFT_MENUBARS + /* #### Fix naming convention here */ + String renderFontSpec; + XftFont *renderFont; +#endif # ifdef USE_XFONTSET XFontSet font_set; # endif @@ -47,6 +57,8 @@ typedef struct _XlwMenu_part = Pixel top_shadow_color; Pixel bottom_shadow_color; Pixel select_color; +#ifdef USE_XFT_MENUBARS +#endif Pixmap top_shadow_pixmap; Pixmap bottom_shadow_pixmap; Cursor cursor_shape; 1.18 +31 -57 XEmacs/xemacs/lwlib/xlwscrollbar.c Index: xlwscrollbar.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/xlwscrollbar.c,v retrieving revision 1.17 retrieving revision 1.18 diff -u -p -r1.17 -r1.18 --- xlwscrollbar.c 2004/09/20 19:19:18 1.17 +++ xlwscrollbar.c 2005/11/26 11:46:00 1.18 @@ -78,6 +78,8 @@ Boston, MA 02111-1307, USA. */ #include #include = +#include "lwlib-colors.h" + #include "xlwscrollbarP.h" #include "xlwscrollbar.h" = @@ -523,66 +525,26 @@ get_gc (XlwScrollBarWidget w, Pixel fg, = return XtGetGC((Widget) w, mask, &values); } = -/* Replacement for XAllocColor() that tries to return the nearest - available color if the colormap is full. From FSF Emacs. */ - -static int -allocate_nearest_color (Display *display, Colormap screen_colormap, - XColor *color_def) -{ - int status =3D XAllocColor (display, screen_colormap, color_def); - if (status) - return status; - - { - /* If we got to this point, the colormap is full, so we're - going to try to get the next closest color. - The algorithm used is a least-squares matching, which is - what X uses for closest color matching with StaticColor visuals. */ - - int nearest, x; - unsigned long nearest_delta =3D ULONG_MAX; - - int no_cells =3D XDisplayCells (display, XDefaultScreen (display)); - /* Don't use alloca here because lwlib doesn't have the - necessary configuration information that src does. */ - XColor *cells =3D (XColor *) malloc (sizeof (XColor) * no_cells); - - for (x =3D 0; x < no_cells; x++) - cells[x].pixel =3D x; - - XQueryColors (display, screen_colormap, cells, no_cells); - - for (nearest =3D 0, x =3D 0; x < no_cells; x++) - { - long dred =3D (color_def->red >> 8) - (cells[x].red >> 8); - long dgreen =3D (color_def->green >> 8) - (cells[x].green >> 8); - long dblue =3D (color_def->blue >> 8) - (cells[x].blue >> 8); - unsigned long delta =3D dred * dred + dgreen * dgreen + dblue * dblue; - - if (delta < nearest_delta) - { - nearest =3D x; - nearest_delta =3D delta; - } - } - color_def->red =3D cells[nearest].red; - color_def->green =3D cells[nearest].green; - color_def->blue =3D cells[nearest].blue; - free (cells); - return XAllocColor (display, screen_colormap, color_def); - } -} - static void make_shadow_pixels (XlwScrollBarWidget w) { - Display *dpy =3D XtDisplay((Widget) w); + Display *dpy =3D XtDisplay ((Widget) w); Colormap cmap =3D w->core.colormap; XColor topc, botc; int top_frobbed, bottom_frobbed; Pixel bg, fg; + Visual *visual; + int ignored; = + visual_info_from_widget ((Widget) w, &visual, &ignored); + /* #### Apparently this is called before any shell has a visual? + or maybe the widget doesn't have a parent yet? */ + if (visual =3D=3D CopyFromParent) + { + Screen *screen =3D DefaultScreenOfDisplay (dpy); + visual =3D DefaultVisualOfScreen (screen); + } + top_frobbed =3D bottom_frobbed =3D 0; = bg =3D w->core.background_pixel; @@ -595,11 +557,12 @@ make_shadow_pixels (XlwScrollBarWidget w { topc.pixel =3D bg; XQueryColor (dpy, cmap, &topc); + /* #### can we use a (generalized) xft_convert_color here? */ /* don't overflow/wrap! */ topc.red =3D MINL(65535, topc.red * 1.2); topc.green =3D MINL(65535, topc.green * 1.2); topc.blue =3D MINL(65535, topc.blue * 1.2); - if (allocate_nearest_color (dpy, cmap, &topc)) + if (x_allocate_nearest_color (dpy, cmap, visual, &topc)) { if (topc.pixel =3D=3D bg) { @@ -607,7 +570,7 @@ make_shadow_pixels (XlwScrollBarWidget w topc.red =3D MINL(65535, topc.red + 0x8000); topc.green =3D MINL(65535, topc.green + 0x8000); topc.blue =3D MINL(65535, topc.blue + 0x8000); - if (allocate_nearest_color (dpy, cmap, &topc)) + if (x_allocate_nearest_color (dpy, cmap, visual, &topc)) { w->sb.topShadowColor =3D topc.pixel; } @@ -628,7 +591,7 @@ make_shadow_pixels (XlwScrollBarWidget w botc.red =3D (botc.red * 3) / 5; botc.green =3D (botc.green * 3) / 5; botc.blue =3D (botc.blue * 3) / 5; - if (allocate_nearest_color (dpy, cmap, &botc)) + if (x_allocate_nearest_color (dpy, cmap, visual, &botc)) { if (botc.pixel =3D=3D bg) { @@ -636,7 +599,7 @@ make_shadow_pixels (XlwScrollBarWidget w botc.red =3D MINL(65535, botc.red + 0x4000); botc.green =3D MINL(65535, botc.green + 0x4000); botc.blue =3D MINL(65535, botc.blue + 0x4000); - if (allocate_nearest_color (dpy, cmap, &botc)) + if (x_allocate_nearest_color (dpy, cmap, visual, &botc)) { w->sb.bottomShadowColor =3D botc.pixel; } @@ -703,6 +666,17 @@ make_trough_pixel (XlwScrollBarWidget w) Display *dpy =3D XtDisplay((Widget) w); Colormap cmap =3D w->core.colormap; XColor troughC; + Visual *visual; + int ignored; + + visual_info_from_widget ((Widget) w, &visual, &ignored); + /* #### Apparently this is called before any shell has a visual? + or maybe the widget doesn't have a parent yet? */ + if (visual =3D=3D CopyFromParent) + { + Screen *screen =3D DefaultScreenOfDisplay (dpy); + visual =3D DefaultVisualOfScreen (screen); + } = if (w->sb.troughColor =3D=3D (Pixel)~0) w->sb.troughColor =3D w->core.ba= ckground_pixel; = @@ -713,7 +687,7 @@ make_trough_pixel (XlwScrollBarWidget w) troughC.red =3D (troughC.red * 4) / 5; troughC.green =3D (troughC.green * 4) / 5; troughC.blue =3D (troughC.blue * 4) / 5; - if (allocate_nearest_color (dpy, cmap, &troughC)) + if (x_allocate_nearest_color (dpy, cmap, visual, &troughC)) w->sb.troughColor =3D troughC.pixel; } } 1.6 +538 -174 XEmacs/xemacs/lwlib/xlwtabs.c Index: xlwtabs.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/xlwtabs.c,v retrieving revision 1.5 retrieving revision 1.6 diff -u -p -r1.5 -r1.6 --- xlwtabs.c 2005/10/25 11:16:49 1.5 +++ xlwtabs.c 2005/11/26 11:46:00 1.6 @@ -18,13 +18,6 @@ the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ = - /* Synched up with: Tabs.c 1.27. = - - #### This file contains essential XEmacs related fixes to the original - verison of the Tabs widget. Be VERY careful about syncing if you ever - update to a more recent version. In general this is probably now a - bad idea. */ - /* * Tabs.c - Index Tabs composite widget * @@ -56,6 +49,18 @@ * the frame. */ = + /* Synched up with: Tabs.c 1.27. = + + This file contains essential XEmacs-related fixes to the original + version of the Tabs widget. Be VERY careful about syncing if you ever + update to a more recent version. In general this is probably now a + bad idea. + + #### We need to check that various windows (the whole widget, or a single + tab) are of "reasonable" size, ie, we need to try for more sanity in the + geometry management routines. + */ + /* * TODO: min child height =3D tab height */ @@ -67,11 +72,17 @@ #include #include = +/* #### This may be risky, lwlib-internal.h redefines abort() */ +#include "lwlib-fonts.h" +#include "lwlib-colors.h" #include "lwlib-internal.h" #include "../src/xmu.h" #include "xlwtabsP.h" #include "xlwgcs.h" = +#define XFT_USE_HEIGHT_NOT_ASCENT_DESCENT 0 + +/* #### These should probably be resources. */ #define MIN_WID 10 #define MIN_HGT 10 #define INDENT 3 /* tabs indented from edge by this much */ @@ -138,6 +149,12 @@ static XtResource resources[] =3D { offset(selectInsensitive), XtRImmediate, (XtPointer) True}, {XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *), offset(font), XtRString, (XtPointer) XtDefaultFont}, +#ifdef USE_XFT_TABS + /* #### Maybe use "-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-1" here= ? */ + {XtNxftFont, XtCXftFont, XtRString, sizeof (String), + offset(renderFontSpec), XtRString, + (XtPointer) "AirCut-16" /* XtDefaultFont */}, +#endif {XtNinternalWidth, XtCWidth, XtRDimension, sizeof(Dimension), offset(internalWidth), XtRImmediate, (XtPointer)4 }, {XtNinternalHeight, XtCHeight, XtRDimension, sizeof(Dimension), @@ -400,6 +417,27 @@ WidgetClass tabsWidgetClass =3D (WidgetCla ((TabsConstraints)((tab)->core.constraints))->tabs.visible) =0C = + +static int debug_tabs =3D 0; /* increase for more verbosity */ + +#ifdef USE_XFT_TABS +/* #### duplicated from xlwmenu.c -- CLEAN THIS SHIT UP! + Undeclared so define at top. */ +#define MINL(x,y) ((((unsigned long) (x)) < ((unsigned long) (y))) \ + ? ((unsigned long) (x)) : ((unsigned long) (y))) + +static int +x_xft_text_width (Display *dpy, XftFont *xft_font, FcChar8 *run, int len) +{ + static XGlyphInfo glyphinfo; /* #### static? */ + + XftTextExtents8 (dpy, + xft_font, + run, len, &glyphinfo); + return glyphinfo.xOff; +} +#endif + /**************************************************************** * * Member Procedures @@ -436,12 +474,27 @@ TabsInit(Widget request, Widget new_, Ar */ newTw->tabs.tab_height =3D 2 * newTw->tabs.internalHeight + SHADWID ; = - if( newTw->tabs.font !=3D NULL ) +#ifdef USE_XFT_TABS + /* must get font here + to do this right, we should add a new Xt Resource type + + conversion function + */ + newTw->tabs.renderFont =3D + xft_open_font_by_name (XtDisplay ((Widget) newTw), + newTw->tabs.renderFontSpec); + if (newTw->tabs.renderFont !=3D NULL) = +#if XFT_USE_HEIGHT_NOT_ASCENT_DESCENT + newTw->tabs.tab_height +=3D newTw->tabs.renderFont->height; +#else + newTw->tabs.tab_height +=3D newTw->tabs.renderFont->ascent + + newTw->tabs.renderFont->descent; +#endif /* XFT_USE_HEIGHT_NOT_ASCENT_DESCENT */ +#else /* ! USE_XFT_TABS */ + if (newTw->tabs.font !=3D NULL) newTw->tabs.tab_height +=3D newTw->tabs.font->max_bounds.ascent + - newTw->tabs.font->max_bounds.descent ; + newTw->tabs.font->max_bounds.descent; +#endif /* ! USE_XFT_TABS */ = - /* GC allocation is deferred until XtRealize() */ - /* if size not explicitly set, set it to our preferred size now. */ = if( request->core.width =3D=3D 0 || request->core.height =3D=3D 0 ) @@ -613,17 +666,31 @@ TabsSetValues(Widget current, Widget UNU Boolean needRedraw =3D False ; Widget *childP ; int i ; - = - if( tw->tabs.font !=3D curtw->tabs.font || - tw->tabs.internalWidth !=3D curtw->tabs.internalWidth || - tw->tabs.internalHeight !=3D curtw->tabs.internalHeight ) + if( +#ifdef USE_XFT_TABS + tw->tabs.renderFont !=3D curtw->tabs.renderFont || +#else + tw->tabs.font !=3D curtw->tabs.font || +#endif + tw->tabs.internalWidth !=3D curtw->tabs.internalWidth || + tw->tabs.internalHeight !=3D curtw->tabs.internalHeight) { - tw->tabs.tab_height =3D 2 * tw->tabs.internalHeight + SHADWID ; + tw->tabs.tab_height =3D 2 * tw->tabs.internalHeight + SHADWID; = - if( tw->tabs.font !=3D NULL ) +#ifdef USE_XFT_TABS + if (tw->tabs.renderFont !=3D NULL) +#if XFT_USE_HEIGHT_NOT_ASCENT_DESCENT + tw->tabs.tab_height +=3D tw->tabs.renderFont->height; +#else + tw->tabs.tab_height +=3D tw->tabs.renderFont->ascent + + tw->tabs.renderFont->descent; +#endif /* XFT_USE_HEIGHT_NOT_ASCENT_DESCENT */ +#else /* ! USE_XFT_TABS */ + if (tw->tabs.font !=3D NULL) tw->tabs.tab_height +=3D tw->tabs.font->max_bounds.ascent + - tw->tabs.font->max_bounds.descent ; + tw->tabs.font->max_bounds.descent; +#endif /* ! USE_XFT_TABS */ = /* Tab size has changed. Resize all tabs and request a new size */ for(i=3D0, childP=3Dtw->composite.children; @@ -640,7 +707,12 @@ TabsSetValues(Widget current, Widget UNU = if( tw->core.background_pixel !=3D curtw->core.background_pixel || tw->core.background_pixmap !=3D curtw->core.background_pixmap || - tw->tabs.font !=3D curtw->tabs.font ) +#ifdef USE_XFT_TABS + tw->tabs.renderFont !=3D curtw->tabs.renderFont +#else + tw->tabs.font !=3D curtw->tabs.font +#endif + ) if( XtIsRealized(new_) ) { TabsFreeGCs(tw) ; @@ -755,83 +827,167 @@ TabsAcceptFocus(Widget w, Time *UNUSED ( = = /* - * Return preferred size. Happily accept anything >=3D our preferred size. - * (TODO: is that the right thing to do? Should we always return "almost" - * if offered more than we need?) + * Return status, with preferred size in PREFERRED. + * + * According to the X Toolkit Intrinsics manual + * XtGeometryYes =3D accept INTENDED without change + * XtGeometryNo =3D request to stay _exactly_ the same + * XtGeometryAlmost =3D suggest PREFERRED as a compromise + * and the PREFERRED argument must be filled in completely (ie, any fields + * whose bits are set in the request_mode mask must correspond to the + * preferred geometry, which must be consistent with the return value). + * + * Assuming horizontal orientation, in XEmacs, we should always accept if + * the width is more than we need. There's no problem if there are only a + * couple of tabs packed to the left. OTOH there's probably something wro= ng + * if we're offered a height more than 1.5x or 2x the preferred height. + * (#### Do tab controls do vertical?) */ - -static XtGeometryResult -TabsQueryGeometry(Widget w, - XtWidgetGeometry *intended, XtWidgetGeometry *preferred) -{ - register TabsWidget tw =3D (TabsWidget)w ; - XtGeometryMask mode =3D intended->request_mode ; = - preferred->request_mode =3D CWWidth | CWHeight ; - PreferredSize(tw, &preferred->width, &preferred->height, NULL,NULL) ; +/* compute the height above which we complain */ +#define TAB_HEIGHT_TOLERANCE(x) (2*x) = - if( (!(mode & CWWidth) || intended->width =3D=3D w->core.width) && - (!(mode & CWHeight) || intended->height =3D=3D w->core.height) ) - return XtGeometryNo ; - - if( (!(mode & CWWidth) || intended->width >=3D preferred->width) && - (!(mode & CWHeight) || intended->height >=3D preferred->height) ) +static XtGeometryResult +TabsQueryGeometry (Widget w, + XtWidgetGeometry *intended, + XtWidgetGeometry *preferred) /* RETURN */ +{ + TabsWidget tw =3D (TabsWidget) w; + XtGeometryMask mode =3D intended->request_mode; + = + preferred->request_mode =3D CWWidth | CWHeight; + PreferredSize (tw, &preferred->width, &preferred->height, NULL, NULL); + + /* If width is big enough, accept it. */ + if ((mode & CWWidth) && intended->width >=3D preferred->width) + preferred->width =3D intended->width; + + /* If height is within range, accept it. + #### If too tall, we could offer a compromise at TAB_HEIGHT_TOLERAN= CE. + Should we? */ + if ((mode & CWHeight) && intended->height >=3D preferred->height + && intended->height <=3D TAB_HEIGHT_TOLERANCE (preferred->height)) + preferred->height =3D intended->height; + + /* Compute return value. */ + if (preferred->width =3D=3D ((mode & CWWidth) ? intended->width + : w->core.width) + && preferred->height =3D=3D ((mode & CWHeight) ? intended->height + : w->core.height)) return XtGeometryYes; - - return XtGeometryAlmost; + else if (preferred->width =3D=3D w->core.width + && preferred->height =3D=3D w->core.height) + return XtGeometryNo; + else + return XtGeometryAlmost; } = = = /* - * Geometry Manager; called when a child wants to be resized. + * Geometry Manager; called when TAB (a child) wants to be resized. + * + * According to the X Toolkit Intrinsics manual + * XtGeometryDone =3D accept REQUEST and do it (#### check this) + * XtGeometryYes =3D accept REQUEST without change + * XtGeometryNo =3D refuse REQUEST (ie, stay _exactly_ the same) + * XtGeometryAlmost =3D suggest REPLY as a compromise */ = static XtGeometryResult -TabsGeometryManager(Widget w, XtWidgetGeometry *req, XtWidgetGeometry *rep= ly) -{ - TabsWidget tw =3D (TabsWidget) XtParent(w); - Dimension s =3D SHADWID ; - TabsConstraints tab =3D (TabsConstraints)w->core.constraints; - XtGeometryResult result ; - Dimension rw, rh ; +TabsGeometryManager (Widget tab, + XtWidgetGeometry *request, + XtWidgetGeometry *reply) /* RETURN */ +{ + TabsWidget control =3D (TabsWidget) XtParent(tab); + Dimension s =3D SHADWID; + TabsConstraints constraint =3D (TabsConstraints) tab->core.constraints; + XtGeometryResult result, best_offer =3D XtGeometryYes; + Dimension rw, rh; + + static int debug_count =3D 0; + static int debug_mask =3D 1; + + /* Position request cannot be satisfied, so if tabs are not resizable, + no nontrivial request can be satisfied: return XGeometryNo. */ + if (!constraint->tabs.resizable) + return XtGeometryNo; + + fprintf (stderr, "Urk! label is resizable!\n"); + + /* Assume we will refuse these; toggle iff we accept them. + Reply won't specify any fields not in the request. */ + reply->request_mode =3D request->request_mode; + reply->x =3D tab->core.x; + reply->y =3D tab->core.y; + + /* If a position request would result in a change, best offer is + XtGeometryAlmost. Otherwise toggle reply->request_mode. */ + if ((request->request_mode & CWX) && request->x !=3D tab->core.x) + best_offer =3D XtGeometryAlmost; + else + reply->request_mode &=3D ~CWX; + if ((request->request_mode & CWY) && request->y !=3D tab->core.y) + best_offer =3D XtGeometryAlmost; + else + reply->request_mode &=3D ~CWY; = - /* Position request always denied */ + /* Make all three fields in the reply valid */ + reply->width =3D (request->request_mode & CWWidth) + ? request->width : tab->core.width; + reply->height =3D (request->request_mode & CWHeight) + ? request->height : tab->core.height; + reply->border_width =3D (request->request_mode & CWBorderWidth) + ? request->border_width : tab->core.border_width; + + /* check if we can already offer a compromise */ + if (best_offer =3D=3D XtGeometryAlmost && + reply->width =3D=3D tab->core.width && + reply->height =3D=3D tab->core.height && + reply->border_width =3D=3D tab->core.border_width) + { + reply->request_mode &=3D ~(CWWidth | CWHeight | CWBorderWidth); + return best_offer; + } = - if( ((req->request_mode & CWX) && req->x !=3D w->core.x) || - ((req->request_mode & CWY) && req->y !=3D w->core.y) || - !tab->tabs.resizable ) - return XtGeometryNo ; - - /* Make all three fields in the request valid */ - if( !(req->request_mode & CWWidth) ) - req->width =3D w->core.width; - if( !(req->request_mode & CWHeight) ) - req->height =3D w->core.height; - if( !(req->request_mode & CWBorderWidth) ) - req->border_width =3D w->core.border_width; - - if( req->width =3D=3D w->core.width && - req->height =3D=3D w->core.height && - req->border_width =3D=3D w->core.border_width ) - return XtGeometryNo ; +#ifndef DONT_DEBUG_REQUESTS +#define DBG_REQUEST_PRINT(name,field,size) \ +do { \ + if (reply->field > size) \ + { \ + if (++debug_count =3D=3D debug_mask) \ + { \ + debug_mask <<=3D 1; \ + fprintf (stderr, "ridiculous %s request #%d: %d > %d\n", \ + name, debug_count, reply->field, size); \ + } \ + reply->field =3D tab->core.field; \ + } \ +} while (0) + + DBG_REQUEST_PRINT ("width",width,1024); + DBG_REQUEST_PRINT ("height",height,768); + DBG_REQUEST_PRINT ("border_width",border_width,30); +#undef DBG_REQUEST_PRINT +#endif = - rw =3D req->width + 2 * req->border_width ; - rh =3D req->height + 2 * req->border_width ; + rw =3D reply->width + 2 * reply->border_width; + rh =3D reply->height + 2 * reply->border_width; = /* find out how big the children want to be now */ - MaxChild(tw, w, rw, rh) ; + MaxChild (control, tab, rw, rh); = = /* Size changes must see if the new size can be accommodated. - * The Tabs widget keeps all of its children the same - * size. A request to shrink will be accepted only if the + * The Tabs widget keeps all of its children the same height, but + * widths may vary. + * A request to shrink will be accepted only if the * new size is still big enough for all other children. A * request to shrink that is not big enough for all children * returns an "almost" response with the new proposed size * or a "no" response if unable to shrink at all. * - * A request to grow will be accepted only if the Tabs parent can + * A request to grow will be accepted only if the Tabs control can * grow to accommodate. * * TODO: @@ -840,25 +996,33 @@ TabsGeometryManager(Widget w, XtWidgetGe * for another day. */ = - if (req->request_mode & (CWWidth | CWHeight | CWBorderWidth)) + if (request->request_mode & (CWWidth | CWHeight | CWBorderWidth)) { Dimension cw,ch ; /* children's preferred size */ Dimension aw,ah ; /* available size we can give child */ Dimension th ; /* space used by tabs */ Dimension wid,hgt ; /* Tabs widget size */ + int check_nrows; = - cw =3D tw->tabs.max_cw ; - ch =3D tw->tabs.max_ch ; + cw =3D control->tabs.max_cw ; + ch =3D control->tabs.max_ch ; = /* find out what *my* resulting preferred size would be */ - - PreferredSize2(tw, cw, ch, &wid, &hgt) ; + /* #### this whole API is wrong; what should happen is + 1. app should hint as to #rows and/or aspect ratio + 2. tab control should attempt to layout in current space + 3. if not all tabs fit, should request resize to achieve + layout hints + Probably can and should cache preferred size in widget, with + cache cleared when labels or core size changes. */ + PreferredSize2(control, cw, ch, &wid, &hgt) ; = /* Would my size change? If so, ask to be resized. */ = - if( wid !=3D tw->core.width || hgt !=3D tw->core.height ) + if (wid !=3D control->core.width || hgt !=3D control->core.height) { - Dimension oldWid =3D tw->core.width, oldHgt =3D tw->core.height ; + Dimension oldWid =3D control->core.width, + oldHgt =3D control->core.height; XtWidgetGeometry myrequest, myreply ; = myrequest.width =3D wid ; @@ -870,10 +1034,11 @@ TabsGeometryManager(Widget w, XtWidgetGe * offer the child a compromise, then make this a query only. */ = - if( (req->request_mode & XtCWQueryOnly) || rw < cw || rh < ch ) - myrequest.request_mode |=3D XtCWQueryOnly ; + if ((request->request_mode & XtCWQueryOnly) || rw < cw || rh < ch) + myrequest.request_mode |=3D XtCWQueryOnly; = - result =3D XtMakeGeometryRequest((Widget)tw, &myrequest, &myreply) ; + result =3D XtMakeGeometryRequest ((Widget) control, + &myrequest, &myreply); = /* !$@# Athena Box widget changes the core size even if QueryOnly * is set. I'm convinced this is a bug. At any rate, to work @@ -881,81 +1046,104 @@ TabsGeometryManager(Widget w, XtWidgetGe * query geometry request. This is only partly effective, * as there may be other boxes further up the tree. */ - if( myrequest.request_mode & XtCWQueryOnly ) { - tw->core.width =3D oldWid ; - tw->core.height =3D oldHgt ; + if (myrequest.request_mode & XtCWQueryOnly) { + control->core.width =3D oldWid; + control->core.height =3D oldHgt; } = /* based on the parent's response, determine what the * resulting Tabs widget size would be. */ = - switch( result ) { + switch (result) { case XtGeometryYes: case XtGeometryDone: - tw->tabs.needs_layout =3D True ; - break ; + control->tabs.needs_layout =3D True; + break; = case XtGeometryNo: - wid =3D tw->core.width ; - hgt =3D tw->core.height ; - break ; + wid =3D control->core.width; + hgt =3D control->core.height; + break; = case XtGeometryAlmost: - wid =3D myreply.width ; - hgt =3D myreply.height ; - tw->tabs.needs_layout =3D True ; - break ; + wid =3D myreply.width; + hgt =3D myreply.height; + control->tabs.needs_layout =3D True; + break; } } = /* Within the constraints imposed by the parent, what is * the max size we can give the child? */ - (void) TabLayout(tw, wid, hgt, &th, True) ; - aw =3D wid - 2*s ; - ah =3D hgt - th - 2*s ; + check_nrows =3D TabLayout (control, wid, hgt, &th, True); + aw =3D wid - 2*s; + if (check_nrows =3D=3D 1) + { + ah =3D hgt - th - 2*s; + } + else + { + /* this rarely gets triggered, but when it does it seems to + get triggered forever after */ + int n =3D control->composite.num_children; + ah =3D control->tabs.tab_height; + if (debug_tabs > 0) + fprintf (stderr, "Kludging around %d !=3D 1 rows," + " #children =3D %d, total height %d, using %d.\n", + check_nrows, n, th, ah); + } = /* OK, make our decision. If requested size is >=3D max sibling * preferred size, AND requested size <=3D available size, then * we accept. Otherwise, we offer a compromise. */ = - if( rw =3D=3D aw && rh =3D=3D ah ) + if (rw =3D=3D aw && rh =3D=3D ah) { /* Acceptable. If this wasn't a query, change *all* children * to this size. */ - if( req->request_mode & XtCWQueryOnly ) - return XtGeometryYes ; + if (request->request_mode & XtCWQueryOnly) + { + control->tabs.needs_layout =3D False; + return XtGeometryYes ; + } else { - Widget *childP =3D tw->composite.children ; - int i,bw ; - w->core.border_width =3D req->border_width ; - for(i=3DTabsNumChildren (tw); --i >=3D 0; ++childP) - if( TabVisible(*childP) ) + Widget *childP =3D control->composite.children; + int i, bw; + tab->core.border_width =3D request->border_width; + for (i =3D TabsNumChildren (control); --i >=3D 0; ++childP) + if (TabVisible (*childP)) { - bw =3D (*childP)->core.border_width ; - XtConfigureWidget(*childP, s,tw->tabs.tab_total+s, - rw-2*bw, rh-2*bw, bw) ; + bw =3D (*childP)->core.border_width; + XtConfigureWidget (*childP, s, control->tabs.tab_total+s, + rw-2*bw, rh-2*bw, bw); } #ifdef COMMENT /* TODO: under what conditions will we need to redraw? */ - XClearWindow(XtDisplay((Widget)tw), XtWindow((Widget)tw)) ; - XtClass(tw)->core_class.expose((Widget)tw,NULL,NULL) ; + XClearWindow (XtDisplay ((Widget) control), + XtWindow ((Widget) control)); + XtClass (control)->core_class.expose ((Widget)control, + NULL, NULL); #endif /* COMMENT */ - return XtGeometryDone ; + return XtGeometryDone; } } = /* Cannot grant child's request. Describe what we *can* do * and return counter-offer. */ - reply->width =3D aw - 2 * req->border_width ; - reply->height =3D ah - 2 * req->border_width ; - reply->border_width =3D req->border_width ; - reply->request_mode =3D CWWidth | CWHeight | CWBorderWidth ; + control->tabs.needs_layout =3D False; + reply->width =3D aw - 2 * request->border_width ; + reply->height =3D ah - 2 * request->border_width ; + reply->request_mode &=3D + ~((reply->border_width =3D=3D tab->core.border_width + ? CWBorderWidth : 0) + |(reply->width =3D=3D tab->core.width ? CWWidth : 0) + |(reply->height =3D=3D tab->core.height ? CWHeight : 0)); return XtGeometryAlmost ; } = @@ -1428,6 +1616,8 @@ DrawTab(TabsWidget tw, Widget child, Boo GC gc ; int x,y ; = + if (debug_tabs > 1) fprintf (stderr, "DrawTab called.\n"); + if( !XtIsRealized((Widget)tw)) return ; = @@ -1440,55 +1630,142 @@ DrawTab(TabsWidget tw, Widget child, Boo Window win =3D XtWindow((Widget)tw) ; String lbl =3D tab->tabs.label !=3D NULL ? tab->tabs.label : XtName(child) ; +#ifdef USE_XFT_TABS + XftColor color; + XftColor colorBG; + Colormap cmap =3D tw->core.colormap; + Visual *visual; + int ignored; + + visual_info_from_widget ((Widget) tw, &visual, &ignored); + colorBG =3D xft_convert_color (dpy, cmap, visual, + tw->core.background_pixel, 0); +#endif + + if (debug_tabs > 2) + fprintf (stderr, "(Re)drawing labels.\n"); = - if( XtIsSensitive(child) ) + if (XtIsSensitive(child)) { - gc =3D tw->tabs.foregroundGC ; - XSetForeground(dpy, gc, tab->tabs.foreground) ; + gc =3D tw->tabs.foregroundGC; +#ifdef USE_XFT_TABS + color =3D xft_convert_color (dpy, cmap, visual, + tab->tabs.foreground, 0); +#else + XSetForeground(dpy, gc, tab->tabs.foreground); +#endif } else { /* grey pixel allocation deferred until now */ - if( !tab->tabs.greyAlloc ) + if (!tab->tabs.greyAlloc) { - if( tw->tabs.be_nice_to_cmap || tw->core.depth =3D=3D 1 ) - tab->tabs.grey =3D tab->tabs.foreground ; + if (tw->tabs.be_nice_to_cmap || tw->core.depth =3D=3D 1) + tab->tabs.grey =3D tab->tabs.foreground; else - tab->tabs.grey =3D AllocGreyPixel((Widget)tw, + tab->tabs.grey =3D AllocGreyPixel ((Widget) tw, tab->tabs.foreground, tw->core.background_pixel, - tw->tabs.insensitive_contrast ) ; - tab->tabs.greyAlloc =3D True ; + tw->tabs.insensitive_contrast); + tab->tabs.greyAlloc =3D True; } - gc =3D tw->tabs.greyGC ; - XSetForeground(dpy, gc, tab->tabs.grey) ; + gc =3D tw->tabs.greyGC; +#ifdef USE_XFT_TABS + color =3D xft_convert_color (dpy, cmap, visual, tab->tabs.grey, 0); +#else + XSetForeground(dpy, gc, tab->tabs.grey); +#endif } = - x =3D tab->tabs.x ; - y =3D tab->tabs.y ; - if( child =3D=3D tw->tabs.topWidget ) - y -=3D TABLDELTA ; + x =3D tab->tabs.x; + y =3D tab->tabs.y; + if (child =3D=3D tw->tabs.topWidget) + y -=3D TABLDELTA; = - if( tab->tabs.left_bitmap !=3D None && tab->tabs.lbm_width > 0 ) + if (tab->tabs.left_bitmap !=3D None && tab->tabs.lbm_width > 0) { - if( tab->tabs.lbm_depth =3D=3D 1 ) + if (tab->tabs.lbm_depth =3D=3D 1) XCopyPlane(dpy, tab->tabs.left_bitmap, win,gc, 0,0, tab->tabs.lbm_width, tab->tabs.lbm_height, - x+tab->tabs.lbm_x, y+tab->tabs.lbm_y, 1L) ; + x+tab->tabs.lbm_x, y+tab->tabs.lbm_y, 1L); else XCopyArea(dpy, tab->tabs.left_bitmap, win,gc, 0,0, tab->tabs.lbm_width, tab->tabs.lbm_height, - x+tab->tabs.lbm_x, y+tab->tabs.lbm_y) ; + x+tab->tabs.lbm_x, y+tab->tabs.lbm_y); } = - if( lbl !=3D NULL && tw->tabs.font !=3D NULL ) - XDrawString(dpy,win,gc, - x+tab->tabs.l_x, y+tab->tabs.l_y, - lbl, (int)strlen(lbl)) ; + if (lbl !=3D NULL && +#ifdef USE_XFT_TABS + tw->tabs.renderFont !=3D NULL +#else + tw->tabs.font !=3D NULL +#endif + ) + { +#ifdef USE_XFT_TABS + XftDraw *xftDraw =3D XftDrawCreate (dpy, win, visual, cmap); + XftFont *renderFont =3D tw->tabs.renderFont; + XGlyphInfo glyphinfo; + XftColor colorDBG; + XftColorAllocName (dpy, visual, cmap, "wheat", &colorDBG); + XftTextExtents8 (dpy, renderFont, lbl, (int) strlen (lbl), + &glyphinfo); + /* #### unnecessary? for the moment, give visual extent */ + /* draw background rect */ +#if 1 + if (debug_tabs > 2) + { + fprintf (stderr, "background color: pixel=3D%08lx, r=3D%04x," + " g=3D%04x, b=3D%04x, alpha=3D%04x.\n", + colorDBG.pixel, colorDBG.color.red, + colorDBG.color.green, colorDBG.color.blue, + colorDBG.color.alpha); + fprintf (stderr, "label geometry: x=3D%d, y=3D%d, xOff=3D%d," + " yOff=3D%d, width=3D%d, height=3D%d\n", + glyphinfo.x, glyphinfo.y, glyphinfo.xOff, + glyphinfo.yOff, glyphinfo.width, glyphinfo.height); + } + XftDrawRect (xftDraw, &colorDBG, + /* left, top, width, height */ + x+tab->tabs.l_x-glyphinfo.x, + y+tab->tabs.l_y-glyphinfo.y, + glyphinfo.width, glyphinfo.height); +#endif + /* draw text */ + if (debug_tabs > 2) + { + FcValue name; + FcValue size; + FcPatternGet (renderFont->pattern, FC_FAMILY, 0, &name); + FcPatternGet (renderFont->pattern, FC_SIZE, 0, &size); + fprintf (stderr, "label: %s.\n", lbl); + fprintf (stderr, "foreground color: pixel=3D%08lx, r=3D%04x," + " g=3D%04x, b=3D%04x, alpha=3D%04x.\n", + color.pixel, color.color.red, color.color.green, + color.color.blue, color.color.alpha); + fprintf (stderr, "extent: x=3D%d, y=3D%d, xOffset=3D%d," + " yOffset=3D%d, height=3D%d, width=3D%d.\n", + glyphinfo.x, glyphinfo.y, glyphinfo.xOff, + glyphinfo.yOff, glyphinfo.height, glyphinfo.width); + fprintf (stderr, "font: name=3D%s-%.1f," + " height=3D%d, ascent=3D%d, descent=3D%d.\n", + name.u.s, size.u.d, renderFont->height, + renderFont->ascent, renderFont->descent); + } + XftDrawString8 (xftDraw, &color, renderFont, + x+tab->tabs.l_x, y+tab->tabs.l_y, + lbl, (int) strlen (lbl)); + XftDrawDestroy (xftDraw); +#else + XDrawString(dpy,win,gc, + x+tab->tabs.l_x, y+tab->tabs.l_y, + lbl, (int)strlen(lbl)); +#endif + } } = - if( child =3D=3D tw->tabs.hilight ) - DrawHighlight(tw, child, False) ; + if (child =3D=3D tw->tabs.hilight) + DrawHighlight(tw, child, False); } = = @@ -1689,9 +1966,13 @@ TabWidth(Widget w) TabsConstraints tab =3D (TabsConstraints) w->core.constraints ; TabsWidget tw =3D (TabsWidget)XtParent(w) ; String lbl =3D tab->tabs.label !=3D NULL ? - tab->tabs.label : XtName(w) ; - XFontStruct *font =3D tw->tabs.font ; - int iw =3D tw->tabs.internalWidth ; + tab->tabs.label : XtName(w); +#ifdef USE_XFT_TABS + XftFont *font =3D tw->tabs.renderFont; +#else + XFontStruct *font =3D tw->tabs.font; +#endif + int iw =3D tw->tabs.internalWidth; = tab->tabs.width =3D iw + SHADWID*2 ; tab->tabs.l_x =3D tab->tabs.lbm_x =3D SHADWID + iw ; @@ -1705,10 +1986,27 @@ TabWidth(Widget w) = if( lbl !=3D NULL && font !=3D NULL ) { - tab->tabs.width +=3D XTextWidth( font, lbl, (int)strlen(lbl) ) + iw ; +#ifdef USE_XFT_TABS + tab->tabs.width +=3D x_xft_text_width (XtDisplay(tw), font, + lbl, (int)strlen(lbl)) + iw; + tab->tabs.l_y =3D (tw->tabs.tab_height + + tw->tabs.renderFont->ascent + /* #### how can this subtraction be correct? */ + - tw->tabs.renderFont->descent)/2; + if (debug_tabs > 2) + fprintf (stderr, "tab: height=3D%d, width=3D%d, baseline=3D%d.\n", + tw->tabs.tab_height, tab->tabs.width, tab->tabs.l_y); + if (debug_tabs > 1) + fprintf (stderr, "font: height=3D%d, ascent=3D%d, descent=3D%d.\n", + tw->tabs.renderFont->height, + tw->tabs.renderFont->ascent, + tw->tabs.renderFont->descent); +#else + tab->tabs.width +=3D XTextWidth (font, lbl, (int)strlen(lbl)) + iw; tab->tabs.l_y =3D (tw->tabs.tab_height + tw->tabs.font->max_bounds.ascent - - tw->tabs.font->max_bounds.descent)/2 ; + tw->tabs.font->max_bounds.descent)/2; +#endif } } = @@ -1723,19 +2021,32 @@ TabWidth(Widget w) * * TODO: if they require more than two rows and the total height:width * ratio is more than 2:1, then try something else. + * Gaak! This is actually already done in PreferredSize()! + * + * TODO SOONER: for reasons unclear, some applications (specifically + * XEmacs) give a nominal geometry (in the core record) which doesn't + * make much sense (eg, may be smaller than some of the tab children). + * This results in bizarre values for DISPLAY_ROWS and REPLY_HEIGHT. + * Specify a way to say "tell me what you really want" (eg, with WID + * and/or HGT =3D=3D 0 or =3D=3D Dimension_MAX), and use it where appropr= iate. + * LATE-BREAKING LOSE: This happens in PreferredSize(), not XEmacs! + * + * TODO EVEN SOONER: some applications lay out the tab control by + * repeatedly querying until a fixed width and height has been filled + * by the tabs (XEmacs). There should be an API to cache this? */ = static int TabLayout(TabsWidget tw, = - Dimension wid, = - Dimension hgt, = + Dimension wid, /* if 0, use core.width as guess */ + Dimension hgt, /* if 0, use core.height as guess */ Dimension *reply_height, Bool query_only) { int i, row, done =3D 0, display_rows =3D 0 ; int num_children =3D tw->composite.num_children ; Widget *childP ; Dimension w ; - Position x,y ; + Position x,y ; /* #### gaak, these are dimensions! */ TabsConstraints tab ; = /* Algorithm: loop through children, assign X positions. If a tab @@ -1750,22 +2061,33 @@ TabLayout(TabsWidget tw, = row =3D 0 ; x =3D INDENT ; y =3D 0 ; - wid -=3D INDENT ; + /* If wid or hgt is 0, we want to guess our own dimensions. + Currently the guessing functions are broken.... + #### When PreferredSize*() get fixed, fix this too. */ + if (debug_tabs > 0) + fprintf (stderr, "arg=3D%d,", wid); + wid =3D (wid ? wid : tw->core.width) - INDENT ; + hgt =3D hgt ? hgt : tw->core.height; + if (debug_tabs > 0) + fprintf (stderr, "wid=3D%d: x,w,y=3D", wid); for(i=3Dnum_children, childP=3Dtw->composite.children; --i >=3D 0; ++ch= ildP) if( XtIsManaged(*childP) ) { tab =3D (TabsConstraints) (*childP)->core.constraints ; w =3D tab->tabs.width ; = + if (debug_tabs > 0) + fprintf (stderr, "%d,%d,%d;", x, w, y); if( x + w > wid ) { /* new row */ - if (y + tw->tabs.tab_height > hgt && !done) + /* #### algorithm is not robust to wid < child's width */ + ++row; + x =3D INDENT ; + y +=3D tw->tabs.tab_height ; + if (y > hgt && !done) { display_rows =3D row; done =3D 1; } - ++row; - x =3D INDENT ; - y +=3D tw->tabs.tab_height ; } if( !query_only ) { tab->tabs.x =3D x ; @@ -1777,10 +2099,11 @@ TabLayout(TabsWidget tw, = tab->tabs.visible =3D 1; = } + if (debug_tabs > 0) + fprintf (stderr, "\n"); /* If there was only one row, increase the height by TABDELTA */ if( ++display_rows =3D=3D 1 ) { - row++; y =3D TABDELTA ; if( !query_only ) for(i=3Dnum_children, childP=3Dtw->composite.children; @@ -1791,6 +2114,7 @@ TabLayout(TabsWidget tw, = tab->tabs.y =3D y ; } } + row++; y +=3D tw->tabs.tab_height ; } else @@ -1802,6 +2126,12 @@ TabLayout(TabsWidget tw, = tw->tabs.realRows =3D row; } = + if (debug_tabs > 0 && (row > 1 || display_rows > 1)) + fprintf (stderr, "tab: %d display rows, #children =3D %d," + " total height %d, total rows %d%s.\n", + display_rows, num_children, y, row, + query_only ? " (query)" : ""); + if( reply_height !=3D NULL ) *reply_height =3D y ; = @@ -1822,8 +2152,8 @@ GetPreferredSizes(TabsWidget tw) = = = - /* Find max preferred child size. Returned sizes include child - * border widths. If except is non-null, don't ask that one. + /* Find max preferred child size and store in control widget. + * If except is non-null, don't ask that one. */ = static void @@ -2009,7 +2339,10 @@ PreferredSize3( int nrows ; = if( tw->composite.num_children > 0 ) - nrows =3D TabLayout(tw, wid, hgt, &th, True) ; + /* used to be wid, hgt not 0, 0 but that's obviously wrong + since TabLayout wants dimensions of control parent but + wid, hgt are dimensions of some child */ + nrows =3D TabLayout(tw, 0, 0, &th, True) ; else { th =3D 0 ; nrows =3D 0 ; @@ -2091,17 +2424,29 @@ TabsAllocFgGC(TabsWidget tw) Widget w =3D (Widget) tw; XGCValues values ; = - values.background =3D tw->core.background_pixel ; - values.font =3D tw->tabs.font->fid ; - values.line_style =3D LineOnOffDash ; - values.line_style =3D LineSolid ; + values.background =3D tw->core.background_pixel; + values.font =3D +#ifdef USE_XFT_TABS + None; +#else + tw->tabs.font->fid; +#endif + values.line_style =3D LineOnOffDash; + values.line_style =3D LineSolid; = tw->tabs.foregroundGC =3D XtAllocateGC(w, w->core.depth, - GCBackground|GCFont|GCLineStyle, &values, - GCForeground, - GCSubwindowMode|GCGraphicsExposures|GCDashOffset| - GCDashList|GCArcMode) ; +#ifndef USE_XFT_TABS + GCFont| +#endif + GCBackground|GCLineStyle, + &values, + GCForeground, +#ifdef USE_XFT_TABS + GCFont| +#endif + GCSubwindowMode|GCGraphicsExposures|GCDashOffset| + GCDashList|GCArcMode); } = static void @@ -2110,30 +2455,49 @@ TabsAllocGreyGC(TabsWidget tw) Widget w =3D (Widget) tw; XGCValues values ; = - values.background =3D tw->core.background_pixel ; - values.font =3D tw->tabs.font->fid ; + values.background =3D tw->core.background_pixel; + values.font =3D +#ifdef USE_XFT_TABS + None; +#else + tw->tabs.font->fid; +#endif #ifdef HAVE_XMU - if( tw->tabs.be_nice_to_cmap || w->core.depth =3D=3D 1) + if (tw->tabs.be_nice_to_cmap || w->core.depth =3D=3D 1) { - values.fill_style =3D FillStippled ; + values.fill_style =3D FillStippled; tw->tabs.grey50 =3D - values.stipple =3D XmuCreateStippledPixmap(XtScreen(w), 1L, 0L, 1) ; + values.stipple =3D XmuCreateStippledPixmap(XtScreen(w), 1L, 0L, 1); = tw->tabs.greyGC =3D XtAllocateGC(w, w->core.depth, - GCBackground|GCFont|GCStipple|GCFillStyle, &values, +#ifndef USE_XFT_TABS + GCFont| +#endif + GCBackground|GCStipple|GCFillStyle, &values, GCForeground, +#ifdef USE_XFT_TABS + GCFont| +#endif GCSubwindowMode|GCGraphicsExposures|GCDashOffset| - GCDashList|GCArcMode) ; + GCDashList|GCArcMode); } else #endif { tw->tabs.greyGC =3D XtAllocateGC(w, w->core.depth, - GCFont, &values, +#ifdef USE_XFT_TABS + 0L, +#else + GCFont, +#endif + &values, GCForeground, +#ifdef USE_XFT_TABS + GCFont| +#endif GCBackground|GCSubwindowMode|GCGraphicsExposures|GCDashOffset| - GCDashList|GCArcMode) ; + GCDashList|GCArcMode); } } 1.3 +7 -0 XEmacs/xemacs/lwlib/xlwtabsP.h Index: xlwtabsP.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/xlwtabsP.h,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- xlwtabsP.h 2001/04/12 18:21:57 1.2 +++ xlwtabsP.h 2005/11/26 11:46:00 1.3 @@ -41,6 +41,9 @@ Boston, MA 02111-1307, USA. */ #endif = #include "xlwtabs.h" +#ifdef USE_XFT_TABS +#include +#endif = /* New fields for the Tabs widget class record */ typedef struct {XtPointer extension;} TabsClassPart; @@ -70,6 +73,10 @@ extern TabsClassRec tabsClassRec; typedef struct { /* resources */ XFontStruct *font ; +#ifdef USE_XFT_TABS + String renderFontSpec; + XftFont *renderFont; +#endif Dimension internalHeight, internalWidth ; Widget topWidget ; XtCallbackList callbacks ; 1.2 +361 -0 XEmacs/xemacs/lwlib/lwlib-colors.c Index: lwlib-colors.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: lwlib-colors.c diff -N lwlib-colors.c --- /dev/null Sat Nov 26 12:46:01 2005 +++ /tmp/cvsAAANcaWRX Sat Nov 26 12:46:02 2005 @@ -0,0 +1,361 @@ +/* Color data structures for X and Xft. + +Copyright (C) 2004 Free Software Foundation, Inc. + +Author: Stephen J. Turnbull +Created: 24 Jul 2004 by Stephen J. Turnbull + +This file is part of XEmacs. + +XEmacs is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by the +Free Software Foundation; either version 2, or (at your option) any +later version. + +XEmacs is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with XEmacs; see the file COPYING. If not, write to +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* Synched up with: Not in GNU Emacs. */ + +#include +#include /* for ULONG_MAX */ +#include /* for malloc() */ +#include +#include +#include +#include /* for ShellWidget */ +#include "lwlib-colors.h" + +static int debug_colors =3D 1; + +#ifdef __cplusplus +#define X_CLASSFIELD c_class +#else +#define X_CLASSFIELD class +#endif + +#define MINL(x,y) ((((unsigned long) (x)) < ((unsigned long) (y))) \ + ? ((unsigned long) (x)) : ((unsigned long) (y))) + +/* WIDGET is an Xt widget, VISUAL and DEPTH are return values */ +void +visual_info_from_widget (Widget widget, Visual **visual, int *depth) +{ + /* grab the visual and depth from the nearest shell ancestor */ + Widget p =3D XtParent(widget); + + *visual =3D CopyFromParent; + *depth =3D -1; + while (*visual =3D=3D CopyFromParent && p) + { + if (XtIsShell(p)) + { + *visual =3D ((ShellWidget)p)->shell.visual; + *depth =3D p->core.depth; + } + p =3D XtParent(p); + } + if (*visual =3D=3D CopyFromParent || !*visual) + { + if (debug_colors > 1) + fprintf (stderr, "\nvisual_info_from_widget:" + " failed, using DefaultVisualOfScreen"); + *visual =3D DefaultVisualOfScreen (XtScreen (widget)); + *depth =3D DefaultDepthOfScreen (XtScreen (widget)); + } + else if (debug_colors > 1) + fprintf (stderr, "\nvisual_info_from_widget: succeeded"); +} + +/* Do we need all this hair on modern hardware? */ + +/* Replacement for XAllocColor() that tries to return the nearest + available color if the colormap is full. Original was from FSFmacs, + but rewritten by Jareth Hein 97/11/25 + Modified by Lee Kindness 31/08/99 to handle pre= vious + total failure which was due to a read/write colorcell being the nearest + match - tries the next nearest... + + Return value is 1 for normal success, 2 for nearest color success, + 3 for Non-deallocable success. */ +int +x_allocate_nearest_color (Display *display, Colormap colormap, + Visual *visual, XColor *color_def) +{ + int status; + + /* #### [[Apparently this is often called with data derived from a widget + with no ShellWidget ancestor, or before the shell has a visual. + Currently this recovery code is in xlwmenu.c and xlwscrollbar.c, but + likely should come here.]] + I suspect the problem is that the visual-tracing code was improperly + written, missing a level of indirection. + CopyFromParent =3D=3D NULL in XFree86/Darwin. + */ + if (visual =3D=3D CopyFromParent || !visual) + { + Screen *screen =3D DefaultScreenOfDisplay (display); + fprintf (stderr, "\nx_allocate_nearest_color: bad visual (%08lx)", + (unsigned long) visual); + visual =3D DefaultVisualOfScreen (screen); + } + + if (visual->X_CLASSFIELD =3D=3D DirectColor || visual->X_CLASSFIELD =3D= =3D TrueColor) + { + if (XAllocColor (display, colormap, color_def) !=3D 0) + { + status =3D 1; + } + else + { + /* We're dealing with a TrueColor/DirectColor visual, so play games + with the RGB values in the XColor struct. */ + /* #### JH: I'm not sure how a call to XAllocColor can fail in a + TrueColor or DirectColor visual, so I will just reformat the + request to match the requirements of the visual, and re-issue + the request. If this fails for anybody, I wanna know about it + so I can come up with a better plan */ + + unsigned long rshift,gshift,bshift,rbits,gbits,bbits,junk; + junk =3D visual->red_mask; + rshift =3D 0; + while ((junk & 0x1) =3D=3D 0) { + junk =3D junk >> 1; + rshift ++; + } + rbits =3D 0; + while (junk !=3D 0) { + junk =3D junk >> 1; + rbits++; + } + junk =3D visual->green_mask; + gshift =3D 0; + while ((junk & 0x1) =3D=3D 0) { + junk =3D junk >> 1; + gshift ++; + } + gbits =3D 0; + while (junk !=3D 0) { + junk =3D junk >> 1; + gbits++; + } + junk =3D visual->blue_mask; + bshift =3D 0; + while ((junk & 0x1) =3D=3D 0) { + junk =3D junk >> 1; + bshift ++; + } + bbits =3D 0; + while (junk !=3D 0) { + junk =3D junk >> 1; + bbits++; + } + + color_def->red =3D color_def->red >> (16 - rbits); + color_def->green =3D color_def->green >> (16 - gbits); + color_def->blue =3D color_def->blue >> (16 - bbits); + if (XAllocColor (display, colormap, color_def) !=3D 0) + status =3D 1; + else + { + int rd, gr, bl; + /* #### JH: I'm punting here, knowing that doing this will at + least draw the color correctly. However, unless we convert + all of the functions that allocate colors (graphics + libraries, etc) to use this function doing this is very + likely to cause problems later... */ + + if (rbits > 8) + rd =3D color_def->red << (rbits - 8); + else + rd =3D color_def->red >> (8 - rbits); + if (gbits > 8) + gr =3D color_def->green << (gbits - 8); + else + gr =3D color_def->green >> (8 - gbits); + if (bbits > 8) + bl =3D color_def->blue << (bbits - 8); + else + bl =3D color_def->blue >> (8 - bbits); + color_def->pixel =3D (rd << rshift) | (gr << gshift) | (bl << + bshift); + status =3D 3; + } + } + } + else + { + XColor *cells =3D NULL; + /* JH: I can't believe there's no way to go backwards from a + colormap ID and get its visual and number of entries, but X + apparently isn't built that way... */ + int no_cells =3D visual->map_entries; + status =3D 0; + + if (XAllocColor (display, colormap, color_def) !=3D 0) + status =3D 1; + else while( status !=3D 2 ) + { + /* If we got to this point, the colormap is full, so we're + going to try and get the next closest color. The algorithm used + is a least-squares matching, which is what X uses for closest + color matching with StaticColor visuals. */ + int nearest; + long nearest_delta, trial_delta; + int x; + + if( cells =3D=3D NULL ) + { + /* #### this could be annoyingly slow + tell me again why lwlib can't use alloca & friends? */ + cells =3D (XColor *) malloc (sizeof(XColor)*no_cells); + for (x =3D 0; x < no_cells; x++) + cells[x].pixel =3D x; + + /* read the current colormap */ + XQueryColors (display, colormap, cells, no_cells); + } + + nearest =3D 0; + /* I'm assuming CSE so I'm not going to condense this. */ + nearest_delta =3D ((((color_def->red >> 8) - (cells[0].red >> 8)) + * ((color_def->red >> 8) - (cells[0].red >> 8))) + + + (((color_def->green >> 8) - (cells[0].green >> 8)) + * ((color_def->green >> 8) - (cells[0].green >> + 8))) + + + (((color_def->blue >> 8) - (cells[0].blue >> 8)) + * ((color_def->blue >> 8) - (cells[0].blue >> + 8)))); + for (x =3D 1; x < no_cells; x++) + { + trial_delta =3D ((((color_def->red >> 8) - (cells[x].red >> 8)) + * ((color_def->red >> 8) - (cells[x].red >> 8))) + + + (((color_def->green >> 8) - (cells[x].green >> 8)) + * ((color_def->green >> 8) - (cells[x].green >> + 8))) + + + (((color_def->blue >> 8) - (cells[x].blue >> 8)) + * ((color_def->blue >> 8) - (cells[x].blue >> + 8)))); + + /* less? Ignore cells marked as previously failing */ + if( (trial_delta < nearest_delta) && + (cells[x].pixel !=3D ULONG_MAX) ) + { + nearest =3D x; + nearest_delta =3D trial_delta; + } + } + color_def->red =3D cells[nearest].red; + color_def->green =3D cells[nearest].green; + color_def->blue =3D cells[nearest].blue; + if (XAllocColor (display, colormap, color_def) !=3D 0) + status =3D 2; + else + /* LSK: Either the colour map has changed since + * we read it, or the colour is allocated + * read/write... Mark this cmap entry so it's + * ignored in the next iteration. + */ + cells[nearest].pixel =3D ULONG_MAX; + } + } + return status; +} + +#if 0 +/* Replacement for XAllocColor() that tries to return the nearest + available color if the colormap is full. From GNU Emacs. + #### Review this to see if there's anything our hairy version could use= . */ + +int +FIXME_allocate_nearest_color (Display *display, Colormap screen_colormap, + XColor *color_def) +{ + int status =3D XAllocColor (display, screen_colormap, color_def); + if (status) + return status; + + { + /* If we got to this point, the colormap is full, so we're + going to try to get the next closest color. + The algorithm used is a least-squares matching, which is + what X uses for closest color matching with StaticColor visuals. */ + + int nearest, x; + unsigned long nearest_delta =3D ULONG_MAX; + + int no_cells =3D XDisplayCells (display, XDefaultScreen (display)); + /* Don't use alloca here because lwlib doesn't have the + necessary configuration information that src does. */ + XColor *cells =3D (XColor *) malloc (sizeof (XColor) * no_cells); + + for (x =3D 0; x < no_cells; x++) + cells[x].pixel =3D x; + + XQueryColors (display, screen_colormap, cells, no_cells); + + for (nearest =3D 0, x =3D 0; x < no_cells; x++) + { + long dred =3D (color_def->red >> 8) - (cells[x].red >> 8); + long dgreen =3D (color_def->green >> 8) - (cells[x].green >> 8); + long dblue =3D (color_def->blue >> 8) - (cells[x].blue >> 8); + unsigned long delta =3D dred * dred + dgreen * dgreen + dblue * dblue; + + if (delta < nearest_delta) + { + nearest =3D x; + nearest_delta =3D delta; + } + } + color_def->red =3D cells[nearest].red; + color_def->green =3D cells[nearest].green; + color_def->blue =3D cells[nearest].blue; + free (cells); + return XAllocColor (display, screen_colormap, color_def); + } +} +#endif + + +#ifdef USE_XFT + +XftColor +xft_convert_color (Display *dpy, Colormap cmap, Visual *visual, int c, int= dim) +{ + static XColor color; /* #### why is this static ?? */ + XftColor result; + = + color.pixel =3D c; + XQueryColor(dpy, cmap, &color); + + if (dim) + { + color.red =3D MINL (65535, color.red * 1.5); + color.green =3D MINL (65535, color.green * 1.5); + color.blue =3D MINL (65535, color.blue * 1.5); + x_allocate_nearest_color (dpy, cmap, visual, &color); + } = + + result.pixel =3D color.pixel; + result.color.red =3D color.red; + result.color.green =3D color.green; + result.color.blue =3D color.blue; + result.color.alpha =3D 0xffff; + = + return result; +} + +#endif /* USE_XFT */ + +/* end of lwlib-colors.c */ 1.2 +59 -0 XEmacs/xemacs/lwlib/lwlib-colors.h Index: lwlib-colors.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: lwlib-colors.h diff -N lwlib-colors.h --- /dev/null Sat Nov 26 12:46:01 2005 +++ /tmp/cvsAAAHeaiSX Sat Nov 26 12:46:02 2005 @@ -0,0 +1,59 @@ +/* Color data structures for X and Xft. + +Copyright (C) 2004 Free Software Foundation, Inc. + +Author: Stephen J. Turnbull +Created: 24 Jul 2004 by Stephen J. Turnbull + +This file is part of XEmacs. + +XEmacs is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by the +Free Software Foundation; either version 2, or (at your option) any +later version. + +XEmacs is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with XEmacs; see the file COPYING. If not, write to +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* Synched up with: Not in GNU Emacs. */ + +#ifndef INCLUDED_lwlib_colors_h_ +#define INCLUDED_lwlib_colors_h_ + +#include + +/* WIDGET is an Xt widget, VISUAL and DEPTH are return values */ +void visual_info_from_widget (Widget widget, Visual **visual, int *depth); + +/* basic version from xlwmenu.c */ +int FIXME_allocate_nearest_color (Display *display, Colormap screen_colorm= ap, + XColor *color_def); +/* haired-up version from ../src/objects-x.c */ +int x_allocate_nearest_color (Display *display, Colormap screen_colormap, + Visual *visual, XColor *color_def); + +#ifdef USE_XFT +#define _XFT_NO_COMPAT_ +/* shut up GCC */ +#define face_index face_index_arg +#define glyph_index glyph_index_arg +#include +#undef glyph_index +#undef face_index + +#if XFT_MAJOR < 2 +#error Xft versions < 2 not supported +#endif + +XftColor xft_convert_color (Display *dpy, Colormap cmap, Visual *visual, + int c, int dim); +#endif /* USE_XFT */ + +#endif /* INCLUDED_lwlib_colors_h_ */ 1.2 +115 -0 XEmacs/xemacs/lwlib/lwlib-fonts.c Index: lwlib-fonts.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: lwlib-fonts.c diff -N lwlib-fonts.c --- /dev/null Sat Nov 26 12:46:01 2005 +++ /tmp/cvsAAA1faGSX Sat Nov 26 12:46:02 2005 @@ -0,0 +1,115 @@ +/* Font handling code for X and Xft. + +Copyright (C) 2003 Eric Knauel +Copyright (C) 2004 Free Software Foundation, Inc. + +Author: Stephen J. Turnbull +Created: 24 Jul 2004 by Stephen J. Turnbull + +This file is part of XEmacs. + +XEmacs is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by the +Free Software Foundation; either version 2, or (at your option) any +later version. + +XEmacs is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with XEmacs; see the file COPYING. If not, write to +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* Synched up with: Not in GNU Emacs. */ + +#include +#include +#include +#include "lwlib-fonts.h" + +#if 0 +/* these are all from ../src; if we need them move the code */ +#include "lisp.h" +#include "device.h" +#include "device-impl.h" +#include "console-x-impl.h" +#include "xft-fonts.h" +#endif + +/* + * code for handling Xft + */ + +#ifdef USE_XFT + +/* helper function to correctly open Xft/core fonts by name + #### Can't we use FcParseName here? + #### Is this done so often that the logic needs to be hard-coded in C? + + Daniel Pittman sez: Older code tried to enforce that an XLFD font was + not scaled, while this version just doesn't care. I think that is a + better behavior, since if someone really wants a scaled font we should + oblige them. + + Stephen sez: This whole function was ill-conceived, and I'm not sure it + succeeds at any of the things it attempts to do. First, we should be + using fontconfig directly. I'm not sure what Xft (or fontconfig) will + try to do if passed an XLFD. As for scaled fonts, both options are + equally bad. The problem is that the X server will often scale bitmap + fonts willy-nilly; it's worth trying to avoid that, but I can't say + whether that's worth overriding somebody who knows what they're doing. + In any case, I think we should find out what Xft (fontconfig?) is able + and willing to do with XLFDs, and probably move the logic to LISP. +*/ +XftFont * +xft_open_font_by_name (Display *dpy, char *name) +{ + XftFont *res =3D NULL; + + /* if (!NILP (Fxft_xlfd_font_name_p (make_string (name, strlen (name))))= ) */ + /* #### this is bogus but ... */ + int count =3D 0; + char *pos =3D name; + /* extra parens shut up gcc */ + while ((pos =3D index (pos, '-'))) + { + count++; + pos++; + } + + /* #### hard-coding DefaultScreen is evil! */ + if (count =3D=3D 14 /* fully-qualified XLFD */ + || (count < 14 /* heuristic for wildcarded XLFD */ + && count >=3D 5 + && index (name, '*'))) + res =3D XftFontOpenXlfd (dpy, DefaultScreen (dpy), name); + else + res =3D XftFontOpenName (dpy, DefaultScreen (dpy), name); + + /* Try for a generic monospace font + #### Why? Menus don't need to line up in columns! */ + if (!res) = + res =3D XftFontOpenName (dpy, DefaultScreen (dpy), "monospace"); + /* Try for anything we can get */ + if (!res) + res =3D XftFontOpenName (dpy, DefaultScreen (dpy), ""); + + if (!res) + { + /* #### This is Just So Wrong ... ! */ + /* sorry folks ... */ + fprintf (stderr, + "Unable to find any usable XFT font, even the defaults!\n"); + abort (); + return 0; + } + + return res; +} + +#endif /* USE_XFT */ + +/* End of lwlib-fonts.c */ 1.2 +67 -0 XEmacs/xemacs/lwlib/lwlib-fonts.h Index: lwlib-fonts.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: lwlib-fonts.h diff -N lwlib-fonts.h --- /dev/null Sat Nov 26 12:46:01 2005 +++ /tmp/cvsAAAgha4SX Sat Nov 26 12:46:02 2005 @@ -0,0 +1,67 @@ +/* Font data structures for X and Xft. + +Copyright (C) 2004 Free Software Foundation, Inc. + +Author: Stephen J. Turnbull +Created: 24 Jul 2004 by Stephen J. Turnbull + +This file is part of XEmacs. + +XEmacs is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by the +Free Software Foundation; either version 2, or (at your option) any +later version. + +XEmacs is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with XEmacs; see the file COPYING. If not, write to +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* Synched up with: Not in GNU Emacs. */ + +#ifndef INCLUDED_lwlib_fonts_h_ +#define INCLUDED_lwlib_fonts_h_ + +/* get headers */ + +#ifdef USE_XFT +#define _XFT_NO_COMPAT_ +/* shut up GCC */ +#define face_index face_index_arg +#define glyph_index glyph_index_arg +#include +#undef glyph_index +#undef face_index + +#if XFT_MAJOR < 2 +#error Xft versions < 2 not supported +#endif +#endif /* USE_XFT */ + +/* Xt name macros */ + +#ifdef USE_XFT +#ifndef XtNxftFont +#define XtNxftFont "xftFont" +#endif +#ifndef XtCXftFont +#define XtCXftFont "XftFont" +#endif +#endif /* USE_XFT */ + +/* code 'n' stuff */ + +#ifdef USE_XFT +#define FCSTRLEN 512 + +/* non-Lisp prototypes */ +/* #### change this back to _open_name */ +XftFont *xft_open_font_by_name (Display *dpy, char *name); +#endif /* USE_XFT */ + +#endif /* INCLUDED_lwlib_fonts_h_ */ 1.324 +5 -0 XEmacs/xemacs/man/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/man/ChangeLog,v retrieving revision 1.323 retrieving revision 1.324 diff -u -p -r1.323 -r1.324 --- ChangeLog 2005/11/16 11:54:06 1.323 +++ ChangeLog 2005/11/26 11:46:03 1.324 @@ -1,3 +1,8 @@ +2005-11-22 Stephen J. Turnbull + + * internals/internals.texi (Working with Lisp Objects): Explain + better why DEFSYMBOL is usually preferable to intern. + 2005-11-08 Malcolm Purvis = * internals/internals.texi (The configure Script): Added the 1.893 +542 -1 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.892 retrieving revision 1.893 diff -u -p -r1.892 -r1.893 --- ChangeLog 2005/11/25 01:41:53 1.892 +++ ChangeLog 2005/11/26 11:46:05 1.893 @@ -1,3 +1,542 @@ +2005-11-26 Stephen J. Turnbull + + Merge Xft. + + 2005-11-25 Stephen J. Turnbull + + * objects-x.c: Improve comments. + = + 2005-11-25 Stephen J. Turnbull + + * xft-fonts.h: + * xft-fonts.c: + * redisplay-x.c: + Remove or comment out dead code. + + 2005-11-25 Stephen J. Turnbull + + * objects-x.c (x_find_charset_font): Encapsulate debug print in macro. + + 2005-11-25 Stephen J. Turnbull + + * xft-fonts.h: + * xft-fonts.c: + * objects-x.c: + Xft font names are encoded in UTF-8 (Qxft_font_name_encoding). + + 2005-11-06 Stephen J. Turnbull + + * xft-fonts.h: + * xft-fonts.c: + Substitute new *LCRECORD* macros for #ifdef MC_ALLOC. + + 2005-09-10 Clemens Fruhwirth + + * glyphs-x.c (update_widget_face): Wrap error checking of rf in an + #ifdef USE_XFT. + + 2005-09-25 Stephen J. Turnbull + + * objects-x.c (x_initialize_font_instance): Must encode extname + twice, Qxft_font_name_encoding !=3D Qx_font_name_encoding. + + 2005-09-25 Stephen J. Turnbull + + * objects-x.c (x_finalize_font_instance): Add newline to message. + + 2005-09-24 Stephen J. Turnbull + + * objects-x.c (x_find_charset_font): Give user more control of + debug verbosity. Reduce verbosity at debug_xft=3D1. Reduce + verbosity of truename by removing properties that are rarely + specified from fontconfig font name. + + 2005-09-24 Stephen J. Turnbull + + * objects-x.c (x_find_charset_font): Work around buggy return + value in FcInit(). + + 2005-09-24 Stephen J. Turnbull + + * objects-x.c: Improve various header comments. + (x_font_instance_truename): Remove obsolete #ifdef 0 code. + + 2005-09-06 Stephen J. Turnbull + + * console-x-impl.h (struct x_frame): Rewrite comment. + + * redisplay-x.c (x_output_string): + * frame-x.c (x_delete_frame): + Improve style, let compiler optimize. + + 2005-09-05 Daniel Pittman + + * console-x-impl.h (struct x_frame): New member xftDraw. + (FRAME_X_XFTDRAW): Accessor for xftDraw member. + + * redisplay-x.c (x_output_string): Lazily initialize frame's + xftDraw member, and don't destroy it here. + + * frame-x.c (x_delete_frame): Destroy xftDraw here. + + 2005-08-17 Stephen J. Turnbull + + * xft-fonts.c (Ffc_pattern_create): Improve docstring, remove todo. + (fc_intern): Add todo. + + 2005-08-04 Stephen J. Turnbull + + * xft-fonts.c (finalize_fc_pattern): New static function. + Add it to lcrecord implementation of fc_pattern. + + * xft-fonts.c (Ffc_pattern_destroy): Disable with #if 0. + + 2005-08-03 Stephen J. Turnbull + + -- Minor cleanups. -- + + * xft-fonts.c (Ffc_font_real_pattern): + Update FIXME at top. + (Ffc_font_sort): + (Ffc_font_match): + Improve docstrings. + + * xft-fonts.c (Ffc_pattern_destroy): + Partially protect against double frees. + + -- Eliminate Lisp fc_fontset objects. -- + + * xft-fonts.c (fontset_to_list): New helper function. + (Ffc_list_fonts_pattern_objects): + (Ffc_font_sort): + Made to use `fontset_to_list' and return list. Updated docstrings. + + * xft-fonts.h (struct fc_pattern): Removed fc_fontset member. + (fc_fontset): Removed struct and lrecord declarations and typedef. + (XFCFONTSET): + (wrap_fcfontset): + (FCFONTSETP): + (CHECK_FCFONTSET): + (CONCHECK_FCFONTSET): + (XFCFONTSET_PTR): + Removed macros. + + * xft-fonts.c (fcfontset_description): + (fc_fontset): + (Ffc_fontset_p): + (Ffc_fontset_count): + (Ffc_fontset_destroy): + (Ffc_fontset_ref): + Removed unused functions. + (fcpattern_description): Removed fc_fontset member. + (Ffc_pattern_create): + (Ffc_name_parse): + (Ffc_pattern_duplicate): + (Ffc_pattern_destroy): + (Ffc_font_match): + (Ffc_font_real_pattern): + Removed reference to fc_fontset member. + (syms_of_xft_fonts): Removed DEFSYMBOLs, DEFSUBRs for fc_fontset. + + * lrecord.h (enum lrecord_type): Removed lrecord_fc_fontset. + Removed indicies, which depended on #ifdefs so can't be accurate. + + 2005-07-31 Daniel Pittman + + * xft-fonts.c: Update Ffc_list_fonts_pattern_objects to use the = + FontConfig API nicely, preventing it from rebuilding the list of + available fonts on *every* access. + + 2005-06-16 Stephen J. Turnbull + + * xft-fonts.c: MC_ALLOC-ify. + * xft-fonts.h: MC_ALLOC-ify. + + 2005-04-16 Stephen J. Turnbull + + * xft-fonts.c: Improve comment on property name hash table. + + (Ffc_list_fonts_pattern_objects): + (Ffc_font_sort): + (reinit_vars_of_xft_fonts): + Call FcInit only once in reinit_vars_of_xft_fonts. + + (Ffc_list_fonts_pattern_objects): + (Ffc_font_sort): + Signal error if returned FcFontSet object is NULL. + + (string_list_to_fcobjectset): Use fc_intern. + + * objects-x.c (): Move declaration of `name' out of #ifdef. + + 2005-04-14 Stephen J. Turnbull + + * xft-fonts.c (fc_intern): val is const. + (xft_get_color): Use dead_wrong_type_argument. + + * objects-x.c (Qxft_font_name_encoding): New documentary #define. + (truename_via_XListFonts): Improve comments. + + Followup on Aidan's partial cleanup/Mulization. + + * objects-x.c (DEBUG_XFT0): + (DEBUG_XFT1): + (DEBUG_XFT2): + (PRINT_XFT_PATTERN): + (CHECKING_LANG): + Move to top of font object block. + (DEBUG_XFT3): + (DEBUG_XFT4): + New. + (x_initialize_font_instance): + (x_finalize_font_instance): + Use them. + + (x_font_instance_truename): Comment complaint about structure. + Clarify variable usage by moving declaration inside block. + + (x_find_charset_font): Clarify block structure by eliminating + early returns. Remove bogus "must free" comments. Free FcPattern + objects that were leaking. Use block structure to indicate + lifetimes of FcPattern objects. Use "font" rather than "pattern" + in names of FcPatterns that name fonts rather than search + criteria. Use shortnames more consistently in debug messages. + #ifdef shortname vs longname return values. Correct comment to + note that FcCharSets are Unparsed to ASCII. Don't ever fall + through to X core fonts if we had an Xft font (it should be NULL + anyway). Use Qxft_font_name_encoding; this means we have to parse + FONT separately for Qx_font_name_encoding. + + 2005-04-10 Stephen J. Turnbull + + Xft/fontconfig assumes that strings used as object names are + statically allocated. Implement a hash table to keep track of + them: + + * xft-fonts.c (reinit_vars_of_xft_fonts): Initialize hash table. + (fc_intern): + New static functions. + + (fc_property_name_hash_table): + (fc_standard_properties): + New static variables. + + * symsinit.h (reinit_vars_of_xft_fonts): Declare it. + + * emacs.c (main_1): Call it. Reorder complex_vars_of_xft_fonts. + + Renaming and reorganization: + + * xft-fonts.c: Group FcPattern stuff separately from FcFontSet in + preparation for removing latter from LISP visibility. Use + "pattern" for Lisp_Objects, reserve "fcpat" for FcPatterns. + Similarly change "object" to "property". + + (Ffc_pattern_destroy): + (Ffc_fontset_destroy): + Deprecate these; they should not be LISP-visible. + + (Ffc_pattern_print): Removed. + + (extract_fcapi_string): Make this a macro, because + in C "inline" is a hint. But this _must_ be a macro because it + implicitly uses alloca. + + 2005-04-09 Stephen J. Turnbull + + * xft-fonts.c (fc-pattern-get-antialias): + (fc-pattern-get-dpi): + (fc-pattern-get-family): + (fc-pattern-get-file): + (fc-pattern-get-foundry): + (fc-pattern-get-minspace): + (fc-pattern-get-outline): + (fc-pattern-get-pixelsize): + (fc-pattern-get-rasterizer): + (fc-pattern-get-scalable): + (fc-pattern-get-scale): + (fc-pattern-get-size): + (fc-pattern-get-style): + (fc-pattern-get-xlfd): + (xft-pattern-get-core): + (xft-pattern-get-encoding): + (xft-pattern-get-render): + (fc_get_pattern_bool): + (fc_get_pattern_double): + (fc_get_pattern_integer): + (fc_get_pattern_string): + (xft_font_open_name): + Delete definitions of long-unused functions. + + (syms_of_xft_fonts): + Delete references. + + * xft-fonts.h (fc_get_pattern_bool): + (fc_get_pattern_double): + (fc_get_pattern_integer): + (fc_get_pattern_string): + Delete declarations of long-unused helper functions. + + * xft-fonts.c (Ffc_font_match): s/poosible/possible/ in docstring. + + 2005-04-01 Aidan Kehoe + + * objects-x.c: + * objects-x.c (x_initialize_font_instance): + * objects-x.c (CHECKING_LANG): + General mule-sanity cleanup for the debug messages, to eliminate + the issue Giacomo Boffi saw in + 16970.44359.621213.994821(a)boffi95.stru.polimi.it. = + + * objects-x.c (x_find_charset_font): + Font names are also treated as UTF-8; relatedly, when passing back + the font's full name, the character coverage bitmap isn't included + any more, because that would make it an invalid UTF-8 string. + = + 2005-03-10 Stephen J. Turnbull + + * objects-x.c (charset_table): Fix ISO 639 code for Greek. Reported + by Stefan Holst . + (charset_table): Add information for Hebrew, whine about ISO prices. + + 2005-03-09 Stephen J. Turnbull + + * objects-x.c (x_font_instance_truename): Try to fix XListFonts + crash by not handing random Xft results to core Xlib functions. + Replace bizarre gymnastics with simple FcNameUnparse. + + 2005-03-07 Stephen J. Turnbull + + * objects-x-impl.h: Include lwlib-fonts.h + + * objects-x.c (x_font_instance_truename): = + * glyphs-x.c (update_widget_face): + * frame-x.c (x_update_frame_external_traits): + Use the correct variant of FONT_INSTANCE_{X,XFT}_FONT. + Protect against access of uninitialized objects. + + * redisplay-x.c (x_get_gc): Fix typo. + * (x_output_string): Add comments, clarify logic slightly. + + 2005-03-05 Stephen J. Turnbull + + Refactor language/charset checking in Xft. + + * objects-x.c (struct charset_reporter): New type. + (charset_table): New internal table. + (DEBUG_XFT0): + (DEBUG_XFT1): + (DEBUG_XFT2): + (PRINT_XFT_PATTERN): + (CHECKING_LANG): + New debugging macros. + (mule_to_fc_charset): New function. + (x_find_charset_font): Completely rewrite Xft part using the above. + + Cache knowledge of charset in font instances. + + * objects-impl.h (struct Lisp_Font_Instance): New member charset. + Update comment on use of truename. + * objects.c (syms_of_objects): DEFSUBR Ffont_instance_charset. + (Ffont_instance_charset): New accessor. + (Fmake_font_instance): New argument CHARSET, update charset member. + (font_instantiate): Update call to Fmake_font_instance. + (font_instance_description): Add charset member. + * objects.h (Fmake_font_instance): Update EXFUN. + (Ffont_instance_charset): New EXFUN. + + Make Xft debug level adjustable from Lisp. + + * xft-fonts.c (vars_of_xft_fonts): New DEFVAR_INT + xft-debug-level (from debug_xft), adjust style of xft-version. + * xft-fonts.h (debug_xft): Now Lisp-visible, change declaration. + + Miscellaneous. + + * lisp.h (Vcharset_iso8859_15): Export it. + * faces.h (struct face_cachel): Update comment on space usage. + * faces.c: Comment proposed changes to improve font handling. + * frame-x.c: + * EmacsShell-sub.c: + Disable geometry debugging. + + 2005-02-24 Stephen J. Turnbull + + * xft-fonts.h: + * xft-fonts.c: + Update copyright notices. + + * xft.fonts.h (string_list_to_fcobjectset): + (extract_fcapi_string): + Delete; static function declarations don't belong in headers. + + * xft.fonts.c (string_list_to_fcobjectset): + (extract_fcapi_string): + Declare. + + 2005-02-24 Stephen J. Turnbull + + * objects-x.c (x_find_charset_font): ConfigSubstitute in the + _pattern_ before matching. + + 2005-02-24 Stephen J. Turnbull + + * faces.c (complex_vars_of_faces): Default to monospace-12 for + Xft. (Suggestion by Aidan Kehoe.) + + 2005-02-24 Hrvoje Niksic + + * xgccache.h (XE_GCONTEXT): Move out of DEBUG_XEMACS block. + + 2005-02-22 Stephen J. Turnbull + + * xft-fonts.c (debug_xft): Suppress all debug output for now. + + 2005-02-21 Stephen J. Turnbull + + * emacs.c (xemacs-release-date): New version info variable. + * config.h.in (XEMACS_RELEASE_DATE): New config.h macro. + + * emacs.c (inhibit-early-packages): + (inhibit-all-packages): + (xemacs-extra-name): Improve docstrings. + + 2005-02-21 Stephen J. Turnbull + + * objects-x.c (x_finalize_font_instance): Improve debug message. + + 2005-02-20 Stephen J. Turnbull + + * objects-x.c (x_initialize_font_instance): Estimate average cell + width based on dimensions of "representative" string. Suppress + some excessive debug output. Get rid of spurious tests. + + 2005-02-11 Eric Knauel + + * xft-fonts.c: throw away old code that was wrapped inside + comments + + 2005-02-11 Eric Knauel + + * xft-fonts.h: New prototype + + * xft-fonts.c (Ffc_name_parse, Ffc_pattern_add, Ffc_pattern_del) + (Ffc_pattern_get, fc_font_real_pattern) + (string_list_to_fcobjectset): Use extract_fcapi_string() + (extract_fcapi_string): New function + + 2005-02-09 Eric Knauel + + * xft-fonts.c (string_list_to_fcobjectset): Use loop macro instead + of for. + + 2005-02-03 Eric Knauel + + * lrecord.h (enum lrecord_type): remove lrecord for FcObjectSets = + = + * xft-fonts.h (struct fc_fontset): remove lrecord for FcObjectSets = + + * xft-fonts.c (DEFINE_LRECORD_IMPLEMENTATION): = + (Ffc_objectset_create, Ffc_objectset_p, Ffc_objectset_add) + (Ffc_objectset_destroy): remove lrecord for FcObjectSets + (Ffc_list_fonts_pattern_objects): adapt for new representation of + FcObjectSets + (string_list_to_fcobjectset): New utility function + + 2005-02-01 Stephen J. Turnbull + + * redisplay-x.c (separate_textual_runs): Check for MULE properly. + + 2005-01-28 Stephen J. Turnbull + + * glyphs-widget.c (Fwidget_logical_to_character_height): + (Fwidget_logical_to_character_width): + (layout_query_geometry): + (widget_update): + Fix typos in docstrings and preceding comments. + + 2005-01-26 Stephen J. Turnbull + + * redisplay-x.c (x_output_string): Position strikethru by dl + geometry. Kludge to fix remnants from antialiased underscores. + + 2004-12-19 Stephen J. Turnbull + + * compiler.h (UNUSED): Document make-docfile.c hack. + + 2004-12-19 Stephen J. Turnbull + + * glyphs-x.c,objects-x.c: Deemphasize warnings (to debug or alert). + + * redisplay-x.c: Don't abort() when ichar_to_unicode returns error. + + 2004-12-19 Stephen J. Turnbull + + * keymap.c (Fwhere_is_internal): Rewrite docstring. + + 2004-12-17 Stephen J. Turnbull + + * regex.c (re_match_2_internal): DEBUG_PRINT "can match null". + + 2004-12-10 Stephen J. Turnbull + + * redisplay-x.c (x_text_width_single_run): Whitespace improvement. + + 2004-12-09 Stephen J. Turnbull + + * glyphs-widget.c (image_instantiator_progress_gauge): + (image_instantiator_format_create_glyphs_widget): + Fix typo guage->gauge. + + * emacs.c (main_1): Casting out devils (size_t). + + * compiler.h (USED_IF_XFT): New variant. + * objects-x.c (x_font_spec_matches_charset): + * redisplay-x.c (x_text_width_single_run): + Use it. + + * config.h.in: Support USE_XFT_TABS and USE_XFT_GAUGE. + + 2004-11-28 Stephen J. Turnbull + + * objects-x.c (x_initialize_font_instance): Make sure + FONT_INSTANCE_X_FONT is cleared for Xft fonts. Add comments. + Fiddle whitespace. + (x_print_font_instance): Clarify printed font instance. + + 2004-11-27 Stephen J. Turnbull + + * xft-fonts.h: Declare debug_xft. + + * objects-x.c (x_font_instance_truename): + Convert Xft* identifiers to Fc* versions. + + (x_initialize_font_instance): + (x_find_charset_font): + Condition debugging on debug_xft. Get rid of unneeded "#### + debug" markers. Change fprintf to stderr_out. + + (x_find_charset_font): Restore missing argument to + DebugFcTypeOfValue. Remove nonworking debug cruft. + + (FcResultToString): + (FcTypeOfValueToString): + (x_find_charset_font): + Change DebugFc* to Fc*ToString. + + 2004-11-20 Stephen J. Turnbull + + Xft branch based on "Xft reloaded #3" patch by Eric Knauel and + Mathias Neuebaur, and other contributors. + + * xft-fonts.h: New file. Declares new Lisp objects wrapping + FcPattern, FcFontSet, and FcObjectSet. + * xft-fonts.c: New file. Implements new Lisp objects wrapping + FcPattern, FcFontSet, and FcObjectSet. + * objects-x-impl.h: Declare XftFont component of font instance. + * objects-x.c: Implement XftFont component of font instance. + * redisplay-x.c: Implement drawing via Xft. + 2005-11-21 Marcus Crestani = Incremental Garbage Collector @@ -2805,7 +3344,9 @@ = 2004-12-15 Stephen J. Turnbull = - * EmacsManager.c (EmacsManagerChangeSize): Respect XtGeometryNo. + * EmacsManager.c (EmacsManagerChangeSize): + Respect XtGeometryNo, and exit immediately if geometry change + refused. Fixes notorious metacity maximize bug. = 2004-12-07 Malcolm Purvis = 1.123 +3 -0 XEmacs/xemacs/src/Makefile.in.in Index: Makefile.in.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/Makefile.in.in,v retrieving revision 1.122 retrieving revision 1.123 diff -u -p -r1.122 -r1.123 --- Makefile.in.in 2005/11/25 01:41:55 1.122 +++ Makefile.in.in 2005/11/26 11:46:06 1.123 @@ -133,6 +133,9 @@ gui_objs +=3D toolbar.o #ifdef HAVE_X_WINDOWS x_objs=3Dconsole-x.o device-x.o event-Xt.o frame-x.o \ glyphs-x.o objects-x.o redisplay-x.o select-x.o xgccache.o intl-x.o +#ifdef USE_XFT +x_objs +=3D xft-fonts.o +#endif x_gui_objs=3D$(gui_objs:.o=3D-x.o) #ifdef HAVE_TOOLBARS x_gui_objs +=3D toolbar-common.o 1.11 +12 -0 XEmacs/xemacs/src/compiler.h Index: compiler.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/compiler.h,v retrieving revision 1.10 retrieving revision 1.11 diff -u -p -r1.10 -r1.11 --- compiler.h 2005/10/25 11:16:21 1.10 +++ compiler.h 2005/11/26 11:46:07 1.11 @@ -211,6 +211,13 @@ Boston, MA 02111-1307, USA. */ #endif /* ATTRIBUTE_CONST */ = /* Unused declarations; g++ and icc do not support this. */ +/* + NOTE: These macros MUST be named UNUSED (exactly) or something + prefixed with USED_IF_, or DEFUN docstrings will be parsed incorrectly. + See comments in make_docfile.c (write_c_args). You'd think that this + wouldn't happen, but unfortunately we do indeed have some arguments + of DEFUNs unused for GNU compatibility or because features are missing. +*/ #ifndef UNUSED_ARG # define UNUSED_ARG(decl) unused_##decl #endif @@ -230,6 +237,11 @@ Boston, MA 02111-1307, USA. */ # define USED_IF_MULE_OR_CHECK_TEXT(decl) decl # else # define USED_IF_MULE_OR_CHECK_TEXT(decl) UNUSED (decl) +# endif +# ifdef USE_XFT +# define USED_IF_XFT(decl) decl +# else +# define USED_IF_XFT(decl) UNUSED (decl) # endif #endif /* UNUSED */ = 1.104 +7 -0 XEmacs/xemacs/src/config.h.in Index: config.h.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/config.h.in,v retrieving revision 1.103 retrieving revision 1.104 diff -u -p -r1.103 -r1.104 --- config.h.in 2005/11/25 01:41:56 1.103 +++ config.h.in 2005/11/26 11:46:07 1.104 @@ -206,6 +206,13 @@ things are arranged in config.h.in. In = /* Compile in support for the X window system? */ #undef HAVE_X_WINDOWS = +/* Compile with support for Xft? */ +#undef USE_XFT +/* Per-widget stuff will go away? */ +#undef USE_XFT_MENUBARS +#undef USE_XFT_TABS +#undef USE_XFT_GAUGE + /* Defines for building X applications */ #ifdef HAVE_X_WINDOWS /* The following will be defined if xmkmf thinks they are necessary */ 1.5 +15 -0 XEmacs/xemacs/src/console-x-impl.h Index: console-x-impl.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/console-x-impl.h,v retrieving revision 1.4 retrieving revision 1.5 diff -u -p -r1.4 -r1.5 --- console-x-impl.h 2005/11/25 01:41:58 1.4 +++ console-x-impl.h 2005/11/26 11:46:07 1.5 @@ -308,6 +308,17 @@ struct x_frame #endif /* XIM_XLIB */ #endif /* HAVE_XIM */ = +#ifdef USE_XFT + /* The Xft Drawable wrapper for this device. + #### Should this be per-device, or per-frame? */ + /* This is persistent to take advantage of the ability of Xft's glyph + cache in the server, and avoid rendering the font again and again... = + + This is created the first time through redisplay, and destroyed when = our = + connection to the X display is destroyed. */ + XftDraw *xftDraw; +#endif + /* 1 if the frame is completely visible on the display, 0 otherwise. if 0 the frame may have been iconified or may be totally or partially hidden by another X window */ @@ -366,6 +377,10 @@ DECLARE_LRECORD (x_frame, Lisp_X_Frame); #endif /* HAVE_TOOLBARS */ = #define FRAME_X_GEOM_FREE_ME_PLEASE(f) (FRAME_X_DATA (f)->geom_free_me_ple= ase) + +#ifdef USE_XFT +#define FRAME_X_XFTDRAW(f) (FRAME_X_DATA (f)->xftDraw) +#endif = #define FRAME_X_TOTALLY_VISIBLE_P(f) (FRAME_X_DATA (f)->totally_visible_p) #define FRAME_X_TOP_LEVEL_FRAME_P(f) (FRAME_X_DATA (f)->top_level_frame_p) 1.22 +13 -0 XEmacs/xemacs/src/console-x.h Index: console-x.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/console-x.h,v retrieving revision 1.21 retrieving revision 1.22 diff -u -p -r1.21 -r1.22 --- console-x.h 2005/01/17 10:10:18 1.21 +++ console-x.h 2005/11/26 11:46:07 1.22 @@ -51,6 +51,19 @@ Boston, MA 02111-1307, USA. */ #include #endif = +#ifdef USE_XFT +/* shut up GCC */ +#define face_index face_index_arg +#define glyph_index glyph_index_arg +#include +#undef glyph_index +#undef face_index +/* #### this should be made gone */ +#ifndef XFT_VERSION +#define XFT_VERSION 1 +#endif +#endif + /* R5 defines the XPointer type, but R4 doesn't. R4 also doesn't define a version number, but R5 does. */ #if (XlibSpecificationRelease < 5) 1.162 +23 -1 XEmacs/xemacs/src/emacs.c Index: emacs.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/emacs.c,v retrieving revision 1.161 retrieving revision 1.162 diff -u -p -r1.161 -r1.162 --- emacs.c 2005/11/25 01:42:00 1.161 +++ emacs.c 2005/11/26 11:46:07 1.162 @@ -1021,7 +1021,10 @@ main_1 (int argc, Wexttext **argv, Wextt if (argmatch (argv, argc, "-si", "--show-inline-info", 0, NULL, &skip_ar= gs)) { #if defined (PDUMP) && defined (DUMP_IN_EXEC) && !defined (WIN32_NATIVE) - printf ("%u %u\n", dumped_data_max_size (), dumped_data_align_offset= ()); + /* #### We really should check for sizeof (size_t) > sizeof (long) */ + printf ("%lu %lu\n", (unsigned long) dumped_data_max_size (), + (unsigned long) dumped_data_align_offset ()); + #else printf ("Portable dumper not configured for dumping into executable = or windows native; -si just forces exit.\n"); #endif @@ -1612,6 +1615,11 @@ main_1 (int argc, Wexttext **argv, Wextt syms_of_input_method_xlib (); #endif #endif /* HAVE_XIM */ + +#ifdef USE_XFT + syms_of_xft_fonts(); +#endif + #endif /* HAVE_X_WINDOWS */ = #ifdef HAVE_MS_WINDOWS @@ -2192,6 +2200,11 @@ main_1 (int argc, Wexttext **argv, Wextt #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_= X_DIALOGS) || defined (HAVE_TOOLBARS) vars_of_gui_x (); #endif + +#ifdef USE_XFT + vars_of_xft_fonts (); +#endif + #endif /* HAVE_X_WINDOWS */ = = @@ -2318,6 +2331,9 @@ main_1 (int argc, Wexttext **argv, Wextt #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_= X_DIALOGS) || defined (HAVE_TOOLBARS) reinit_vars_of_gui_x (); #endif +#ifdef USE_XFT + reinit_vars_of_xft_fonts (); +#endif #endif /* HAVE_X_WINDOWS */ = #ifdef MULE @@ -2384,6 +2400,12 @@ main_1 (int argc, Wexttext **argv, Wextt just-previous complex-vars calls). We will in fact do conversion quite soon, e.g. in complex_vars_of_glyphs_x(). */ inhibit_non_essential_conversion_operations =3D 0; + +#ifdef USE_XFT + /* This uses coding systems. Must be done before faces are init'ed.= */ + /* not in xft reloaded #3 */ + complex_vars_of_xft_fonts (); +#endif = /* Depends on specifiers. */ complex_vars_of_faces (); 1.89 +1 -1 XEmacs/xemacs/src/event-Xt.c Index: event-Xt.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/event-Xt.c,v retrieving revision 1.88 retrieving revision 1.89 diff -u -p -r1.88 -r1.89 --- event-Xt.c 2005/11/16 07:22:46 1.88 +++ event-Xt.c 2005/11/26 11:46:07 1.89 @@ -2986,7 +2986,7 @@ Boolean EmacsXtCvtStringToPixel ( } else { status =3D XParseColor (dpy, colormap, (char*)str, &screenColor); if (status) { - status =3D allocate_nearest_color (dpy, colormap, visual, &screenColor); + status =3D x_allocate_nearest_color (dpy, colormap, visual, &screenColor); } } } else { 1.49 +69 -1 XEmacs/xemacs/src/faces.c Index: faces.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/faces.c,v retrieving revision 1.48 retrieving revision 1.49 diff -u -p -r1.48 -r1.49 --- faces.c 2005/10/24 10:07:36 1.48 +++ faces.c 2005/11/26 11:46:08 1.49 @@ -1060,8 +1060,11 @@ mark_face_cachels (face_cachel_dynarr *e } = /* ensure that the given cachel contains an updated font value for - the given charset. Return the updated font value. */ + the given charset. Return the updated font value (which can be + Qunbound, so this value must not be passed unchecked to Lisp). = + #### Xft: This function will need to be updated for new font model. */ + Lisp_Object ensure_face_cachel_contains_charset (struct face_cachel *cachel, Lisp_Object domain, Lisp_Object charset) @@ -1411,6 +1414,7 @@ merge_face_cachel_data (struct window *w } = /* Initialize a cachel. */ +/* #### Xft: this function will need to be changed for new font model. */ = void reset_face_cachel (struct face_cachel *cachel) @@ -1492,6 +1496,7 @@ mark_face_cachels_as_clean (struct windo Dynarr_atp (w->face_cachels, elt)->dirty =3D 0; } = +/* #### Xft: this function will need to be changed for new font model. */ void mark_face_cachels_as_not_updated (struct window *w) { @@ -1686,6 +1691,43 @@ get_extent_fragment_face_cache_index (st } } = +/* Return a cache index for window W from merging the faces in FACE_LIST. + COUNT is the number of faces in the list. + + The default face should not be included in the list, as it is always + implicitly merged into the cachel. + + WARNING: this interface may change. */ + +face_index +merge_face_list_to_cache_index (struct window *w, + Lisp_Object *face_list, int count) +{ + int i; + face_index findex =3D 0; + struct face_cachel cachel; + + reset_face_cachel (&cachel); + + for (i =3D 0; i < count; i++) + { + Lisp_Object face =3D face_list[i]; + + if (!NILP (face)) + { + CHECK_FACE(face); /* #### presumably unnecessary */ + findex =3D get_builtin_face_cache_index (w, face); + merge_face_cachel_data (w, findex, &cachel); + } + } + + /* Now finally merge in the default face. */ + findex =3D get_builtin_face_cache_index (w, Vdefault_face); + merge_face_cachel_data (w, findex, &cachel); + + return get_merged_face_cache_index (w, &cachel); +} + =0C /*************************************************************************= **** interface functions @@ -2006,9 +2048,24 @@ complex_vars_of_faces (void) = const Ascbyte *fonts[] =3D { +#ifdef USE_XFT + /************** Xft fonts *************/ + + /* Note that fontconfig can search for several font families in one + call. We should use this facility. */ + "monospace-12", /* Western #### add encoding info? */ + /* do we need to worry about non-Latin characters for monospace? + No, at least in Debian's implementation of Xft. + We should recommend that "gothic" and "mincho" aliases be created? */ + "Sazanami Mincho-12", /* Japanese #### add encoding info? */ + /* Arphic for Chinese? */ + /* Korean */ +#else + /************** ISO-8859 fonts *************/ = "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*", + /* under USE_XFT, we always succeed, so let's not waste the effort */ "-*-fixed-medium-r-*-*-*-120-*-*-*-*-iso8859-*", "-*-courier-*-r-*-*-*-120-*-*-*-*-iso8859-*", "-*-fixed-*-r-*-*-*-120-*-*-*-*-iso8859-*", @@ -2086,6 +2143,13 @@ complex_vars_of_faces (void) check whether we have support for some of the chars in the charset. (#### Bogus, but that's the way it currently works) = + sjt sez: With Xft/fontconfig that information is available as a + language support property. The character set (actually a bit + vector) is also available. So what we need to do is to map chars= et + -> language (Mule redesign Phase 1) and eventually use language + information in the buffer, then map to charsets (Phase 2) at font + instantiation time. + (2) Record in the font instance a flag indicating when we're dealing with a Unicode font. = @@ -2133,6 +2197,7 @@ complex_vars_of_faces (void) "-*-*-*-*-*-*-*-120-*-*-*-*-*-*", "-*-*-*-*-*-*-*-*-*-*-*-*-*-*", "*" +#endif }; const Ascbyte **fontptr; = @@ -2212,6 +2277,8 @@ complex_vars_of_faces (void) { Lisp_Object fg_fb =3D Qnil, bg_fb =3D Qnil; = + /* #### gui-element face doesn't have a font property? + But it gets referred to later! */ #ifdef HAVE_GTK /* We need to put something in there, or error checking gets #%!@#ed up before the styles are set, which override the @@ -2283,6 +2350,7 @@ complex_vars_of_faces (void) Vwidget_face =3D Fmake_face (Qwidget, build_msg_string ("widget face"), Qnil); + /* #### weird ... the gui-element face doesn't have its own font yet */ set_specifier_fallback (Fget (Vwidget_face, Qfont, Qunbound), Fget (Vgui_element_face, Qfont, Qunbound)); set_specifier_fallback (Fget (Vwidget_face, Qforeground, Qunbound), 1.16 +7 -1 XEmacs/xemacs/src/faces.h Index: faces.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/faces.h,v retrieving revision 1.15 retrieving revision 1.16 diff -u -p -r1.15 -r1.16 --- faces.h 2005/11/25 01:42:02 1.15 +++ faces.h 2005/11/26 11:46:08 1.16 @@ -164,7 +164,9 @@ struct face_cachel of them. This avoids messing with Dynarrs. = #### We should look into this and probably clean it up - to use Dynarrs. This may be a big space hog as is. */ + to use Dynarrs. This may be a big space hog as is. + sjt sez: doesn't look like it, my total face cache is 170KB. + Could be reduced to maybe 50KB. */ Lisp_Object font[NUM_LEADING_BYTES]; = Lisp_Object display_table; @@ -263,6 +265,10 @@ void reset_face_cachel (struct face_cach void reset_face_cachels (struct window *w); face_index get_builtin_face_cache_index (struct window *w, Lisp_Object face); +/* WARNING: this interface may change. */ +face_index merge_face_list_to_cache_index (struct window *w, + Lisp_Object *face_list, int count); + #ifdef MEMORY_USAGE_STATS int compute_face_cachel_usage (face_cachel_dynarr *face_cachels, struct overhead_stats *ovstats); 1.72 +33 -3 XEmacs/xemacs/src/frame-x.c Index: frame-x.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/frame-x.c,v retrieving revision 1.71 retrieving revision 1.72 diff -u -p -r1.71 -r1.72 --- frame-x.c 2005/11/25 01:42:02 1.71 +++ frame-x.c 2005/11/26 11:46:08 1.72 @@ -2625,6 +2625,19 @@ x_delete_frame (struct frame *f) DtDndDropUnregister (FRAME_X_TEXT_WIDGET (f)); #endif /* HAVE_CDE */ = +#ifdef USE_XFT + /* If we have an XftDraw structure, we need to free it here. + We can't ever have an XftDraw without a Display, so we are safe + to free it in here, and we avoid too much playing around with the = + malloc checking hooks this way. */ + if (FRAME_X_XFTDRAW (f)) = + { + XftDrawDestroy (FRAME_X_XFTDRAW (f)); + FRAME_X_XFTDRAW (f) =3D NULL; + } +#endif + + assert (FRAME_X_SHELL_WIDGET (f) !=3D 0); dpy =3D XtDisplay (FRAME_X_SHELL_WIDGET (f)); = @@ -2702,11 +2715,28 @@ x_update_frame_external_traits (struct f { Lisp_Object font =3D FACE_FONT (Vdefault_face, frame, Vcharset_ascii); = + /* #### what to do about Xft? I don't think the font is actually used + to compute cell size for computing frame pixel dimensions (see call + to EmacsFrameRecomputeCellSize() below); where is it used? -- sjt + What does XtSetValues() do if that resource isn't present? */ if (!EQ (font, Vthe_null_font_instance)) { - XtSetArg (al[ac], XtNfont, - (void *) FONT_INSTANCE_X_FONT (XFONT_INSTANCE (font))); - ac++; + if (0) + ; +#ifdef USE_XFT + else if (FONT_INSTANCE_X_XFTFONT (XFONT_INSTANCE (font))) + { + XtSetArg (al[ac], XtNxftFont, + (void *) FONT_INSTANCE_X_XFTFONT (XFONT_INSTANCE (font))); + ac++; + } +#endif + else if (FONT_INSTANCE_X_FONT (XFONT_INSTANCE (font))) + { + XtSetArg (al[ac], XtNfont, + (void *) FONT_INSTANCE_X_FONT (XFONT_INSTANCE (font))); + ac++; + } } } else 1.27 +1 -0 XEmacs/xemacs/src/glyphs-eimage.c Index: glyphs-eimage.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/glyphs-eimage.c,v retrieving revision 1.26 retrieving revision 1.27 diff -u -p -r1.26 -r1.27 --- glyphs-eimage.c 2005/09/27 05:48:25 1.26 +++ glyphs-eimage.c 2005/11/26 11:46:08 1.27 @@ -36,6 +36,7 @@ Boston, MA 02111-1307, USA. */ TIFF code by Jareth Hein for 21.0 TODO: Convert images.el to C and stick it in here? + This file is really repetitious; can we refactor? */ = #include 1.18 +7 -7 XEmacs/xemacs/src/glyphs-widget.c Index: glyphs-widget.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/glyphs-widget.c,v retrieving revision 1.17 retrieving revision 1.18 diff -u -p -r1.17 -r1.18 --- glyphs-widget.c 2004/11/04 23:06:33 1.17 +++ glyphs-widget.c 2005/11/26 11:46:08 1.18 @@ -346,7 +346,7 @@ widget_property (Lisp_Object image_insta #### property is still a valid function since we have to be able to extract information from the actual widget. = - #### update_widget should probably be re-written to use the + #### widget_update should probably be re-written to use the instantiator. We probably want to keep a record of the differences also to make this easy. We would also need a pending_instantiator so that changes could be delayed. */ @@ -1296,7 +1296,7 @@ layout_post_instantiate (Lisp_Object UNU allow users to stack widgets vertically or horizontally. These layouts also allow the widgets to be centered (space evenly distributed), left or right justified (fixed spacing widgets - stacked against the left, righ, top or bottom edge). Unfortunately + stacked against the left, right, top or bottom edge). Unfortunately this doesn't allow widgets in different layouts to be aligned. For instance how should the search dialog be organized for alignment? The obvious choice of two vertical columns does not work since the @@ -1642,8 +1642,8 @@ native_layout_layout (Lisp_Object image_ = DEFUN ("widget-logical-to-character-width", Fwidget_logical_to_character_w= idth, 1, 3, 0, /* Convert the width in logical widget units to characters. -Logical widget units do not take into account adjusments made for -layout borders, so this adjusment is approximated. +Logical widget units do not take into account adjustments made for +layout borders, so this adjustment is approximated. */ (width, UNUSED (face), domain)) { @@ -1668,7 +1668,7 @@ layout borders, so this adjusment is app = DEFUN ("widget-logical-to-character-height", Fwidget_logical_to_character_= height, 1, 3, 0, /* Convert the height in logical widget units to characters. -Logical widget units do not take into account adjusments made for +Logical widget units do not take into account adjustments made for layout borders, so this adjustment is approximated. = If the components of a widget layout are justified to the top or the @@ -1819,7 +1819,7 @@ static void image_instantiator_scrollbar IIFORMAT_VALID_KEYWORD (scrollbar, Q_face, check_valid_face); } = -static void image_instantiator_progress_guage (void) +static void image_instantiator_progress_gauge (void) { INITIALIZE_IMAGE_INSTANTIATOR_FORMAT (progress_gauge, "progress-gauge"); IIFORMAT_HAS_SHARED_METHOD (progress_gauge, validate, widget); @@ -1927,7 +1927,7 @@ image_instantiator_format_create_glyphs_ image_instantiator_edit_fields(); image_instantiator_combo_box(); image_instantiator_scrollbar(); - image_instantiator_progress_guage(); + image_instantiator_progress_gauge(); image_instantiator_tree_view(); image_instantiator_tab_control(); image_instantiator_labels(); 1.84 +34 -14 XEmacs/xemacs/src/glyphs-x.c Index: glyphs-x.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/glyphs-x.c,v retrieving revision 1.83 retrieving revision 1.84 diff -u -p -r1.83 -r1.84 --- glyphs-x.c 2005/09/27 05:48:26 1.83 +++ glyphs-x.c 2005/11/26 11:46:08 1.84 @@ -239,7 +239,7 @@ convert_EImage_to_XImage (Lisp_Object de color.green =3D qtable->gm[i] ? qtable->gm[i] << 8 : 0; color.blue =3D qtable->bm[i] ? qtable->bm[i] << 8 : 0; color.flags =3D DoRed | DoGreen | DoBlue; - res =3D allocate_nearest_color (dpy, cmap, vis, &color); + res =3D x_allocate_nearest_color (dpy, cmap, vis, &color); if (res > 0 && res < 3) { DO_REALLOC(*pixtbl, pixcount, n+1, unsigned long); @@ -2364,21 +2364,41 @@ update_widget_face (widget_value* wv, Li bcolor =3D COLOR_INSTANCE_X_COLOR (XCOLOR_INSTANCE (pixel)); lw_add_widget_value_arg (wv, XtNbackground, bcolor.pixel); = + { + Lisp_Object face =3D IMAGE_INSTANCE_WIDGET_FACE (ii); + Lisp_Font_Instance *fi =3D + XFONT_INSTANCE (query_string_font (IMAGE_INSTANCE_WIDGET_TEXT (ii), + face, + domain)); + XFontStruct *fs =3D FONT_INSTANCE_X_FONT (fi); +#ifdef USE_XFT + XftFont *rf =3D FONT_INSTANCE_X_XFTFONT (fi); + + if (rf) + { + /* #### What to do about Motif? */ + lw_add_widget_value_arg (wv, XtNxftFont, (XtArgVal) rf); + } +#endif + + if (fs) + { #ifdef LWLIB_WIDGETS_MOTIF - fontList =3D XmFontListCreate - (FONT_INSTANCE_X_FONT - (XFONT_INSTANCE (query_string_font - (IMAGE_INSTANCE_WIDGET_TEXT (ii), - IMAGE_INSTANCE_WIDGET_FACE (ii), - domain))), XmSTRING_DEFAULT_CHARSET); - lw_add_widget_value_arg (wv, XmNfontList, (XtArgVal)fontList); + fontList =3D XmFontListCreate (fs, XmSTRING_DEFAULT_CHARSET); + lw_add_widget_value_arg (wv, XmNfontList, (XtArgVal) fontList); #endif - lw_add_widget_value_arg - (wv, XtNfont, (XtArgVal)FONT_INSTANCE_X_FONT - (XFONT_INSTANCE (query_string_font - (IMAGE_INSTANCE_WIDGET_TEXT (ii), - IMAGE_INSTANCE_WIDGET_FACE (ii), - domain)))); + lw_add_widget_value_arg (wv, XtNfont, (XtArgVal) fs); + } + +#ifdef USE_XFT + /* #### sanity check, should wrap in appropriate ERROR_CHECK macro */ + if (!rf && !fs) + warn_when_safe_lispobj + (intern ("xft"), Qdebug, + Fcons (build_string ("missing font in update_widget_face"), + Fface_name (face))); +#endif + } wv->change =3D VISIBLE_CHANGE; /* #### Megahack - but its just getting too complicated to do this in the right place. */ 1.22 +3 -0 XEmacs/xemacs/src/inline.c Index: inline.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/inline.c,v retrieving revision 1.21 retrieving revision 1.22 diff -u -p -r1.21 -r1.22 --- inline.c 2005/11/07 08:49:25 1.21 +++ inline.c 2005/11/26 11:46:09 1.22 @@ -100,6 +100,9 @@ Boston, MA 02111-1307, USA. */ = #ifdef HAVE_X_WINDOWS #include "glyphs-x.h" +#ifdef USE_XFT +#include "xft-fonts.h" +#endif #endif = #ifdef HAVE_MS_WINDOWS 1.136 +1 -0 XEmacs/xemacs/src/lisp.h Index: lisp.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lisp.h,v retrieving revision 1.135 retrieving revision 1.136 diff -u -p -r1.135 -r1.136 --- lisp.h 2005/11/25 01:42:04 1.135 +++ lisp.h 2005/11/26 11:46:09 1.136 @@ -5415,6 +5415,7 @@ extern Lisp_Object Vcharset_katakana_jis extern Lisp_Object Vcharset_latin_jisx0201; extern Lisp_Object Vcharset_cyrillic_iso8859_5; extern Lisp_Object Vcharset_latin_iso8859_9; +extern Lisp_Object Vcharset_latin_iso8859_15; extern Lisp_Object Vcharset_japanese_jisx0208_1978; extern Lisp_Object Vcharset_chinese_gb2312; extern Lisp_Object Vcharset_japanese_jisx0208; 1.45 +1 -0 XEmacs/xemacs/src/lrecord.h Index: lrecord.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lrecord.h,v retrieving revision 1.44 retrieving revision 1.45 diff -u -p -r1.44 -r1.45 --- lrecord.h 2005/11/25 01:42:05 1.44 +++ lrecord.h 2005/11/26 11:46:09 1.45 @@ -281,6 +281,7 @@ enum lrecord_type lrecord_type_image_instance, lrecord_type_glyph, lrecord_type_face, + lrecord_type_fc_pattern, lrecord_type_database, lrecord_type_tooltalk_message, lrecord_type_tooltalk_pattern, 1.6 +9 -2 XEmacs/xemacs/src/objects-impl.h Index: objects-impl.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects-impl.h,v retrieving revision 1.5 retrieving revision 1.6 diff -u -p -r1.5 -r1.6 --- objects-impl.h 2005/10/24 10:07:39 1.5 +++ objects-impl.h 2005/11/26 11:46:09 1.6 @@ -125,8 +125,13 @@ struct Lisp_Font_Instance call them to get the truename (#### in reality, they all probably just store the truename here if they know it, and nil otherwise; we should - check this and enforce it as a general policy) */ + check this and enforce it as a general policy + X and GTK do this, except that when they don't + know they return NAME and don't update TRUENAME. + MS Windows initializes TRUENAME when the font is + initialized. TTY doesn't do truename.) */ Lisp_Object device; + Lisp_Object charset; /* Mule charset, or whatever */ = /* See comment in struct console about console variants. */ enum console_variant font_instance_type; @@ -142,7 +147,8 @@ struct Lisp_Font_Instance }; = #define FONT_INSTANCE_NAME(f) ((f)->name) -#define FONT_INSTANCE_TRUENAME(f) ((f)->name) +#define FONT_INSTANCE_TRUENAME(f) ((f)->truename) +#define FONT_INSTANCE_CHARSET(f) ((f)->charset) #define FONT_INSTANCE_DEVICE(f) ((f)->device) #define FONT_INSTANCE_ASCENT(f) ((f)->ascent) #define FONT_INSTANCE_DESCENT(f) ((f)->descent) @@ -151,6 +157,7 @@ struct Lisp_Font_Instance = #define XFONT_INSTANCE_NAME(f) FONT_INSTANCE_NAME (XFONT_INSTANCE (f)) #define XFONT_INSTANCE_TRUENAME(f) FONT_INSTANCE_TRUENAME (XFONT_INSTANCE = (f)) +#define XFONT_INSTANCE_CHARSET(f) FONT_INSTANCE_CHARSET (XFONT_INSTANCE (= f)) #define XFONT_INSTANCE_DEVICE(f) FONT_INSTANCE_DEVICE (XFONT_INSTANCE (f= )) #define XFONT_INSTANCE_ASCENT(f) FONT_INSTANCE_ASCENT (XFONT_INSTANCE (f= )) #define XFONT_INSTANCE_DESCENT(f) FONT_INSTANCE_DESCENT (XFONT_INSTANCE (= f)) 1.2 +23 -1 XEmacs/xemacs/src/objects-x-impl.h Index: objects-x-impl.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects-x-impl.h,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- objects-x-impl.h 2002/06/20 21:18:40 1.1 +++ objects-x-impl.h 2005/11/26 11:46:09 1.2 @@ -29,6 +29,10 @@ Boston, MA 02111-1307, USA. */ = #include "objects-impl.h" #include "objects-x.h" +#ifdef USE_XFT +/* for resource name definitions, etc */ +#include "../lwlib/lwlib-fonts.h" +#endif = #ifdef HAVE_X_WINDOWS = @@ -39,11 +43,19 @@ Boston, MA 02111-1307, USA. */ struct x_color_instance_data { XColor color; + /* Yes, it looks crazy to have both the XColor and the XftColor, but + pragmatically both are used. */ +#ifdef USE_XFT + XftColor xftColor; +#endif char dealloc_on_gc; }; = #define X_COLOR_INSTANCE_DATA(c) ((struct x_color_instance_data *) (c)->da= ta) #define COLOR_INSTANCE_X_COLOR(c) (X_COLOR_INSTANCE_DATA (c)->color) +#ifdef USE_XFT +#define COLOR_INSTANCE_X_XFTCOLOR(c) (X_COLOR_INSTANCE_DATA (c)->xftColor) +#endif #define COLOR_INSTANCE_X_DEALLOC(c) (X_COLOR_INSTANCE_DATA (c)->dealloc_on= _gc) = /*************************************************************************= **** @@ -53,11 +65,21 @@ struct x_color_instance_data struct x_font_instance_data { /* X-specific information */ - XFontStruct *font; + /* Yes, it looks crazy to have both the XFontStruct and the XftFont, but + pragmatically both are used (lwlib delegates labels to the widget set= s, + which internally use XFontStructs). */ + XFontStruct * font; +#ifdef USE_XFT + XftFont *xftFont; +#endif + }; = #define X_FONT_INSTANCE_DATA(f) ((struct x_font_instance_data *) (f)->data) #define FONT_INSTANCE_X_FONT(f) (X_FONT_INSTANCE_DATA (f)->font) +#ifdef USE_XFT +#define FONT_INSTANCE_X_XFTFONT(f) (X_FONT_INSTANCE_DATA (f)->xftFont) +#endif = #endif /* HAVE_X_WINDOWS */ = 1.29 +756 -269 XEmacs/xemacs/src/objects-x.c Index: objects-x.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects-x.c,v retrieving revision 1.28 retrieving revision 1.29 diff -u -p -r1.28 -r1.29 --- objects-x.c 2005/01/28 02:58:52 1.28 +++ objects-x.c 2005/11/26 11:46:09 1.29 @@ -38,6 +38,10 @@ Boston, MA 02111-1307, USA. */ #include "console-x-impl.h" #include "objects-x-impl.h" = +#ifdef USE_XFT +#include "xft-fonts.h" +#endif + int x_handle_non_fully_specified_fonts; = =0C @@ -45,185 +49,6 @@ int x_handle_non_fully_specified_fonts; /* color instances */ /************************************************************************/ = -/* Replacement for XAllocColor() that tries to return the nearest - available color if the colormap is full. Original was from FSFmacs, - but rewritten by Jareth Hein 97/11/25 - Modified by Lee Kindness 31/08/99 to handle pre= vious - total failure which was due to a read/write colorcell being the nearest - match - tries the next nearest... - - Return value is 1 for normal success, 2 for nearest color success, - 3 for Non-deallocable success. */ -int -allocate_nearest_color (Display *display, Colormap colormap, Visual *visua= l, - XColor *color_def) -{ - int status; - - if (visual->X_CLASSFIELD =3D=3D DirectColor || visual->X_CLASSFIELD =3D= =3D TrueColor) - { - if (XAllocColor (display, colormap, color_def) !=3D 0) - { - status =3D 1; - } - else - { - /* We're dealing with a TrueColor/DirectColor visual, so play games - with the RGB values in the XColor struct. */ - /* #### JH: I'm not sure how a call to XAllocColor can fail in a - TrueColor or DirectColor visual, so I will just reformat the - request to match the requirements of the visual, and re-issue - the request. If this fails for anybody, I wanna know about it - so I can come up with a better plan */ - - unsigned long rshift,gshift,bshift,rbits,gbits,bbits,junk; - junk =3D visual->red_mask; - rshift =3D 0; - while ((junk & 0x1) =3D=3D 0) { - junk =3D junk >> 1; - rshift ++; - } - rbits =3D 0; - while (junk !=3D 0) { - junk =3D junk >> 1; - rbits++; - } - junk =3D visual->green_mask; - gshift =3D 0; - while ((junk & 0x1) =3D=3D 0) { - junk =3D junk >> 1; - gshift ++; - } - gbits =3D 0; - while (junk !=3D 0) { - junk =3D junk >> 1; - gbits++; - } - junk =3D visual->blue_mask; - bshift =3D 0; - while ((junk & 0x1) =3D=3D 0) { - junk =3D junk >> 1; - bshift ++; - } - bbits =3D 0; - while (junk !=3D 0) { - junk =3D junk >> 1; - bbits++; - } - - color_def->red =3D color_def->red >> (16 - rbits); - color_def->green =3D color_def->green >> (16 - gbits); - color_def->blue =3D color_def->blue >> (16 - bbits); - if (XAllocColor (display, colormap, color_def) !=3D 0) - status =3D 1; - else - { - int rd, gr, bl; - /* #### JH: I'm punting here, knowing that doing this will at - least draw the color correctly. However, unless we convert - all of the functions that allocate colors (graphics - libraries, etc) to use this function doing this is very - likely to cause problems later... */ - - if (rbits > 8) - rd =3D color_def->red << (rbits - 8); - else - rd =3D color_def->red >> (8 - rbits); - if (gbits > 8) - gr =3D color_def->green << (gbits - 8); - else - gr =3D color_def->green >> (8 - gbits); - if (bbits > 8) - bl =3D color_def->blue << (bbits - 8); - else - bl =3D color_def->blue >> (8 - bbits); - color_def->pixel =3D (rd << rshift) | (gr << gshift) | (bl << - bshift); - status =3D 3; - } - } - } - else - { - XColor *cells =3D NULL; - /* JH: I can't believe there's no way to go backwards from a - colormap ID and get its visual and number of entries, but X - apparently isn't built that way... */ - int no_cells =3D visual->map_entries; - status =3D 0; - - if (XAllocColor (display, colormap, color_def) !=3D 0) - status =3D 1; - else while( status !=3D 2 ) - { - /* If we got to this point, the colormap is full, so we're - going to try and get the next closest color. The algorithm used - is a least-squares matching, which is what X uses for closest - color matching with StaticColor visuals. */ - int nearest; - long nearest_delta, trial_delta; - int x; - - if( cells =3D=3D NULL ) - { - cells =3D alloca_array (XColor, no_cells); - for (x =3D 0; x < no_cells; x++) - cells[x].pixel =3D x; - - /* read the current colormap */ - XQueryColors (display, colormap, cells, no_cells); - } - - nearest =3D 0; - /* I'm assuming CSE so I'm not going to condense this. */ - nearest_delta =3D ((((color_def->red >> 8) - (cells[0].red >> 8)) - * ((color_def->red >> 8) - (cells[0].red >> 8))) - + - (((color_def->green >> 8) - (cells[0].green >> 8)) - * ((color_def->green >> 8) - (cells[0].green >> - 8))) - + - (((color_def->blue >> 8) - (cells[0].blue >> 8)) - * ((color_def->blue >> 8) - (cells[0].blue >> - 8)))); - for (x =3D 1; x < no_cells; x++) - { - trial_delta =3D ((((color_def->red >> 8) - (cells[x].red >> 8)) - * ((color_def->red >> 8) - (cells[x].red >> 8))) - + - (((color_def->green >> 8) - (cells[x].green >> 8)) - * ((color_def->green >> 8) - (cells[x].green >> - 8))) - + - (((color_def->blue >> 8) - (cells[x].blue >> 8)) - * ((color_def->blue >> 8) - (cells[x].blue >> - 8)))); - - /* less? Ignore cells marked as previously failing */ - if( (trial_delta < nearest_delta) && - (cells[x].pixel !=3D ULONG_MAX) ) - { - nearest =3D x; - nearest_delta =3D trial_delta; - } - } - color_def->red =3D cells[nearest].red; - color_def->green =3D cells[nearest].green; - color_def->blue =3D cells[nearest].blue; - if (XAllocColor (display, colormap, color_def) !=3D 0) - status =3D 2; - else - /* LSK: Either the colour map has changed since - * we read it, or the colour is allocated - * read/write... Mark this cmap entry so it's - * ignored in the next iteration. - */ - cells[nearest].pixel =3D ULONG_MAX; - } - } - return status; -} - static int x_parse_nearest_color (struct device *d, XColor *color, Lisp_Object name, Error_Behavior errb) @@ -246,7 +71,7 @@ x_parse_nearest_color (struct device *d, name, Qcolor, errb); return 0; } - result =3D allocate_nearest_color (dpy, cmap, visual, color); + result =3D x_allocate_nearest_color (dpy, cmap, visual, color); if (!result) { maybe_signal_error (Qgui_error, "Couldn't allocate color", @@ -262,6 +87,9 @@ x_initialize_color_instance (Lisp_Color_ Lisp_Object device, Error_Behavior errb) { XColor color; +#ifdef USE_XFT + XftColor xftColor; +#endif int result; = result =3D x_parse_nearest_color (XDEVICE (device), &color, name, errb); @@ -277,6 +105,17 @@ x_initialize_color_instance (Lisp_Color_ else COLOR_INSTANCE_X_DEALLOC (c) =3D 1; COLOR_INSTANCE_X_COLOR (c) =3D color; + +#ifdef USE_XFT + xftColor.pixel =3D color.pixel; + xftColor.color.red =3D color.red; + xftColor.color.green =3D color.green; + xftColor.color.blue =3D color.blue; + xftColor.color.alpha =3D 0xffff; + + COLOR_INSTANCE_X_XFTCOLOR (c) =3D xftColor; +#endif + return 1; } = @@ -366,96 +205,248 @@ x_color_list (void) /* font instances */ /************************************************************************/ = +#ifdef USE_XFT +/* #### all these #defines should probably move to xft-fonts.h */ + +/* + The format of a fontname (as returned by fontconfig) is not well-documen= ted, + But the character repertoire is represented in an ASCII-compatible way. = See + fccharset.c (FcCharSetUnparse). So we can use UTF-8 for long names. + + Currently we have a hack where different versions of the unparsed name a= re + used in different contexts fairly arbitrarily. I don't think this is cl= ose + to coherency; even without the charset and lang properties fontconfig na= mes + are too unwieldy to use. We need to rethink the approach here. I think + probably Lisp_Font_Instance.name should contain the font name as specifi= ed + to Lisp (almost surely much shorter than shortname, even, and most likely + wildcarded), while Lisp_Font_Instance.truename should contain the longna= me. + For now, I'm going to #ifdef the return values defaulting to short. -- s= jt +*/ + +/* DEBUGGING STUFF */ + +/* print message to stderr: one internal-format string argument */ +#define DEBUG_XFT0(level,s) \ + if (debug_xft > level) stderr_out (s) + +/* print message to stderr: one formatted argument */ +#define DEBUG_XFT1(level,format,x1) \ + if (debug_xft > level) stderr_out (format, x1) + +/* print message to stderr: two formatted arguments */ +#define DEBUG_XFT2(level,format,x1,x2) \ + if (debug_xft > level) stderr_out (format, x1, x2) + +/* print message to stderr: three formatted arguments */ +#define DEBUG_XFT3(level,format,x1,x2,x3) \ + if (debug_xft > level) stderr_out (format, x1, x2, x3) + +/* print message to stderr: four formatted arguments */ +#define DEBUG_XFT4(level,format,x1,x2,x3,x4) \ + if (debug_xft > level) stderr_out (format, x1, x2, x3, x4) + +/* print an Xft pattern to stderr + LEVEL is the debug level (to compare to debug_xft) + FORMAT is a newline-terminated printf format with one %s for the pattern + and must be internal format (eg, pure ASCII) + PATTERN is an FcPattern *. */ +#define PRINT_XFT_PATTERN(level,format,pattern) \ + do { \ + DECLARE_EISTRING (eistrpxft_name); \ + FcChar8 *name =3D FcNameUnparse (pattern); \ + \ + eicpy_ext(eistrpxft_name, name, Qxft_font_name_encoding); \ + DEBUG_XFT1 (level, format, eidata(eistrpxft_name)); \ + free (name); \ + } while (0) + +/* print a progress message + LEVEL is the debug level (to compare to debug_xft) + FONT is the Xft font name in UTF-8 (the native encoding of Xft) + LANG is the language being checked for support (must be ASCII). */ +#define CHECKING_LANG(level,font,lang) \ + do { \ + DECLARE_EISTRING (eistrcl_name); \ + eicpy_ext(eistrcl_name, font, Qxft_font_name_encoding); \ + DEBUG_XFT2 (level, "checking if %s handles %s\n", \ + eidata(eistrcl_name), lang); \ + } while (0) + +#endif /* USE_XFT */ + static int x_initialize_font_instance (Lisp_Font_Instance *f, Lisp_Object UNUSED (nam= e), Lisp_Object device, Error_Behavior errb) { Display *dpy =3D DEVICE_X_DISPLAY (XDEVICE (device)); - XFontStruct *xf; - const Extbyte *extname; + Extbyte *extname; + XFontStruct *fs =3D NULL; /* _F_ont _S_truct */ +#ifdef USE_XFT + XftFont *rf =3D NULL; /* _R_ender _F_ont (X Render extension) */ +#else +#define rf (0) +#endif = +#ifdef USE_XFT + DEBUG_XFT1 (2, "attempting to initialize font spec %s\n", + XSTRING_DATA(f->name)); + /* #### serialize (optimize) these later... */ + /* #### This function really needs to go away. + The problem is that the fontconfig/Xft functions work much too hard + to ensure that something is returned; but that something need not be + at all close to what we asked for. */ + LISP_STRING_TO_EXTERNAL (f->name, extname, Qxft_font_name_encoding); + rf =3D xft_open_font_by_name (dpy, extname); +#endif LISP_STRING_TO_EXTERNAL (f->name, extname, Qx_font_name_encoding); - xf =3D XLoadQueryFont (dpy, extname); - - if (!xf) + fs =3D XLoadQueryFont (dpy, extname); + = + if (!fs && !rf) { - maybe_signal_error (Qgui_error, "Couldn't load font", f->name, Qfont, - errb); + /* #### should this refer to X and/or Xft? */ + maybe_signal_error (Qgui_error, "Couldn't load font", f->name, + Qfont, errb); return 0; } = - if (!xf->max_bounds.width) + if (fs && !fs->max_bounds.width) { /* yes, this has been known to happen. */ - XFreeFont (dpy, xf); + XFreeFont (dpy, fs); + fs =3D NULL; maybe_signal_error (Qgui_error, "X font is too small", f->name, Qfon= t, errb); - return 0; + if (!rf) + return 0; } = - /* Don't allocate the data until we're sure that we will succeed, - or the finalize method may get fucked. */ + /* Now that we're sure that we will succeed, we can allocate data without + fear that the finalize method may get fucked. */ f->data =3D xnew (struct x_font_instance_data); - FONT_INSTANCE_X_FONT (f) =3D xf; - f->ascent =3D xf->ascent; - f->descent =3D xf->descent; - f->height =3D xf->ascent + xf->descent; - { - /* following change suggested by Ted Phelps */ - int def_char =3D 'n'; /*xf->default_char;*/ - int byte1, byte2; - - once_more: - byte1 =3D def_char >> 8; - byte2 =3D def_char & 0xFF; + +#ifdef USE_XFT + FONT_INSTANCE_X_XFTFONT (f) =3D rf; + if (rf) + /* Have an Xft font, initialize font info from it. */ + { + DEBUG_XFT4 (2, "pre-initial ascent %d descent %d width %d height %d\= n", + f->ascent, f->descent, f->width, f->height); = - if (xf->per_char) + /* #### This shit is just plain wrong unless we have a character cell + font. It really hoses us on large repertoire Unicode fonts with + "double-width" characters. */ + f->ascent =3D rf->ascent; + f->descent =3D rf->descent; { - /* Old versions of the R5 font server have garbage (>63k) as - def_char. 'n' might not be a valid character. */ - if (byte1 < (int) xf->min_byte1 || - byte1 > (int) xf->max_byte1 || - byte2 < (int) xf->min_char_or_byte2 || - byte2 > (int) xf->max_char_or_byte2) - f->width =3D 0; - else - f->width =3D xf->per_char[(byte1 - xf->min_byte1) * - (xf->max_char_or_byte2 - - xf->min_char_or_byte2 + 1) + - (byte2 - xf->min_char_or_byte2)].width; + /* This is an approximation that AFAIK only gets used to compute + cell size for estimating window dimensions. The test_string8 + is an ASCII string whose characters should approximate the + distribution of widths expected in real text. */ + static const char test_string8[] =3D "Mmneei"; + static const int len =3D sizeof (test_string8) - 1; + XGlyphInfo glyphinfo; + + XftTextExtents8 (dpy, rf, test_string8, len, &glyphinfo); + /* #### maybe should be glyphinfo.xOff - glyphinfo.x? */ + f->width =3D (2*glyphinfo.width + len)/(2*len); } - else - f->width =3D xf->max_bounds.width; + f->height =3D rf->height; + f->proportional_p =3D 1; /* we can't recognize monospaced fonts! */ + + DEBUG_XFT4 (0, "initialized metrics ascent %d descent %d width %d he= ight %d\n", + f->ascent, f->descent, f->width, f->height); + /* we also output on initialization of any font below */ + DEBUG_XFT1 (2, "initialized Xft font %s\n", XSTRING_DATA(f->name)); + fs =3D NULL; /* we don' need no steenkin' X font */ + } = + else + { + DEBUG_XFT1 (0, "couldn't initialize Xft font %s\n", + XSTRING_DATA(f->name)); + } +#endif = - /* Some fonts have a default char whose width is 0. This is no good. - If that's the case, first try 'n' as the default char, and if n has - 0 width too (unlikely) then just use the max width. */ - if (f->width =3D=3D 0) + FONT_INSTANCE_X_FONT (f) =3D fs; + if (fs) + /* Have to use a core font, initialize font info from it. */ + { + f->ascent =3D fs->ascent; + f->descent =3D fs->descent; + f->height =3D fs->ascent + fs->descent; { - if (def_char =3D=3D (int) xf->default_char) - f->width =3D xf->max_bounds.width; + /* following change suggested by Ted Phelps */ + int def_char =3D 'n'; /*fs->default_char;*/ + int byte1, byte2; + + once_more: + byte1 =3D def_char >> 8; + byte2 =3D def_char & 0xFF; + + if (fs->per_char) + { + /* Old versions of the R5 font server have garbage (>63k) as + def_char. 'n' might not be a valid character. */ + if (byte1 < (int) fs->min_byte1 || + byte1 > (int) fs->max_byte1 || + byte2 < (int) fs->min_char_or_byte2 || + byte2 > (int) fs->max_char_or_byte2) + f->width =3D 0; + else + f->width =3D fs->per_char[(byte1 - fs->min_byte1) * + (fs->max_char_or_byte2 - + fs->min_char_or_byte2 + 1) + + (byte2 - fs->min_char_or_byte2)].width; + } else + f->width =3D fs->max_bounds.width; + + /* Some fonts have a default char whose width is 0. This is no good. + If that's the case, first try 'n' as the default char, and if n has + 0 width too (unlikely) then just use the max width. */ + if (f->width =3D=3D 0) { - def_char =3D xf->default_char; - goto once_more; + if (def_char =3D=3D (int) fs->default_char) + f->width =3D fs->max_bounds.width; + else + { + def_char =3D fs->default_char; + goto once_more; + } } } - } - /* If all characters don't exist then there could potentially be - 0-width characters lurking out there. Not setting this flag - trips an optimization that would make them appear to have width - to redisplay. This is bad. So we set it if not all characters - have the same width or if not all characters are defined. - */ - /* #### This sucks. There is a measurable performance increase - when using proportional width fonts if this flag is not set. - Unfortunately so many of the fucking X fonts are not fully - defined that we could almost just get rid of this damn flag and - make it an assertion. */ - f->proportional_p =3D (xf->min_bounds.width !=3D xf->max_bounds.width || - (x_handle_non_fully_specified_fonts && - !xf->all_chars_exist)); = + /* If all characters don't exist then there could potentially be + 0-width characters lurking out there. Not setting this flag + trips an optimization that would make them appear to have width + to redisplay. This is bad. So we set it if not all characters + have the same width or if not all characters are defined. */ + /* #### This sucks. There is a measurable performance increase + when using proportional width fonts if this flag is not set. + Unfortunately so many of the fucking X fonts are not fully + defined that we could almost just get rid of this damn flag and + make it an assertion. */ + f->proportional_p =3D (fs->min_bounds.width !=3D fs->max_bounds.widt= h || + (x_handle_non_fully_specified_fonts && + !fs->all_chars_exist)); + } + +#ifdef USE_XFT + if (debug_xft > 0) + { + int n =3D 3, d =3D 5; + /* check for weirdness */ + if (n * f->height < d * f->width) + stderr_out ("font %s: width:height is %d:%d, larger than %d:%d\n", + XSTRING_DATA(f->name), f->width, f->height, n, d); + if (f->height <=3D 0 || f->width <=3D 0) + stderr_out ("bogus dimensions of font %s: width =3D %d, height =3D %d\n", + XSTRING_DATA(f->name), f->width, f->height); + stderr_out ("initialized font %s\n", XSTRING_DATA(f->name)); + } +#else +#undef rf +#endif + return 1; } = @@ -464,21 +455,39 @@ x_print_font_instance (Lisp_Font_Instanc Lisp_Object printcharfun, int UNUSED (escapeflag)) { - write_fmt_string (printcharfun, " 0x%lx", - (unsigned long) FONT_INSTANCE_X_FONT (f)->fid); + if (FONT_INSTANCE_X_FONT (f)) + write_fmt_string (printcharfun, " font id: 0x%lx", + (unsigned long) FONT_INSTANCE_X_FONT (f)->fid); +#ifdef USE_XFT + /* #### What should we do here? For now, print the address. */ + if (FONT_INSTANCE_X_XFTFONT (f)) + write_fmt_string (printcharfun, " xft font: 0x%lx", + (unsigned long) FONT_INSTANCE_X_XFTFONT (f)); +#endif } = static void x_finalize_font_instance (Lisp_Font_Instance *f) { = +#ifdef USE_XFT + DEBUG_XFT1 (0, "finalizing %s\n", (STRINGP (f->name) + ? (char *) XSTRING_DATA (f->name) + : "(unnamed font)")); +#endif + if (f->data) { if (DEVICE_LIVE_P (XDEVICE (f->device))) { Display *dpy =3D DEVICE_X_DISPLAY (XDEVICE (f->device)); = - XFreeFont (dpy, FONT_INSTANCE_X_FONT (f)); + if (FONT_INSTANCE_X_FONT (f)) + XFreeFont (dpy, FONT_INSTANCE_X_FONT (f)); +#ifdef USE_XFT + if (FONT_INSTANCE_X_XFTFONT (f)) + XftFontClose (dpy, FONT_INSTANCE_X_XFTFONT (f)); +#endif } xfree (f->data, void *); f->data =3D 0; @@ -487,6 +496,13 @@ x_finalize_font_instance (Lisp_Font_Inst = /* Determining the truename of a font is hard. (Big surprise.) = + This is not true for fontconfig. Each font has a (nearly) canonical + representation up to permutation of the order of properties. It is + possible to construct a name which exactly identifies the properties of + the current font. However, it is theoretically possible that there exi= sts + another font with a super set of those properties that would happen to = get + selected. -- sjt + By "truename" we mean an XLFD-form name which contains no wildcards, yet which resolves to *exactly* the same font as the one which we already h= ave the (probably wildcarded) name and `XFontStruct' of. @@ -695,10 +711,12 @@ truename_via_XListFonts (Display *dpy, E #else /* But the world I live in is much more perverse. */ names =3D XListFonts (dpy, font_name, MAX_FONT_COUNT, &count); + /* Find the lexicographic minimum of names[]. + (#### Should we be comparing case-insensitively?) */ while (count--) - /* !!#### Not Mule-friendly */ - /* If names[count] is lexicographically less than result, use it. - (#### Should we be comparing case-insensitively?) */ + /* [[ !!#### Not Mule-friendly ]] + Doesn't matter, XLFDs are HPC (old) or Latin1 (modern). If they + aren't, who knows what they are? -- sjt */ if (result =3D=3D 0 || (strcmp (result, names [count]) < 0)) result =3D names [count]; #endif @@ -773,29 +791,61 @@ static Lisp_Object x_font_instance_truename (Lisp_Font_Instance *f, Error_Behavior errb) { struct device *d =3D XDEVICE (f->device); + Display *dpy =3D DEVICE_X_DISPLAY (d); + Extbyte *nameext; + char* xlfd; = - if (NILP (FONT_INSTANCE_TRUENAME (f))) + /* #### restructure this so that we return a valid truename at the end, + and otherwise only return when we return something desperate that + doesn't get stored for future use. */ + +#ifdef USE_XFT + /* First, try an Xft font. */ + if (NILP (FONT_INSTANCE_TRUENAME (f)) && FONT_INSTANCE_X_XFTFONT (f)) { - Display *dpy =3D DEVICE_X_DISPLAY (d); - { - Extbyte *nameext; - - LISP_STRING_TO_EXTERNAL (f->name, nameext, Qx_font_name_encoding); - FONT_INSTANCE_TRUENAME (f) =3D - x_font_truename (dpy, nameext, FONT_INSTANCE_X_FONT (f)); - } - if (NILP (FONT_INSTANCE_TRUENAME (f))) + /* The font is already open, we just unparse. */ + FcChar8 *res =3D FcNameUnparse (FONT_INSTANCE_X_XFTFONT (f)->pattern= ); + if (res) { - Lisp_Object font_instance =3D wrap_font_instance (f); + FONT_INSTANCE_TRUENAME (f) =3D make_string (res, strlen (res)); + free (res); + return FONT_INSTANCE_TRUENAME (f); + } + else + { + maybe_signal_error (Qgui_error, + "Couldn't unparse Xft font to truename", + Qnil, Qfont, errb); + /* used to return Qnil here */ + } + } +#endif /* USE_XFT */ = + /* OK, fall back to core font. */ + if (NILP (FONT_INSTANCE_TRUENAME (f)) + && FONT_INSTANCE_X_FONT (f)) + { + nameext =3D &xlfd[0]; + LISP_STRING_TO_EXTERNAL (f->name, nameext, Qx_font_name_encoding); = - maybe_signal_error (Qgui_error, "Couldn't determine font truename", - font_instance, Qfont, errb); - /* Ok, just this once, return the font name as the truename. - (This is only used by Fequal() right now.) */ - return f->name; - } + FONT_INSTANCE_TRUENAME (f) =3D + x_font_truename (dpy, nameext, FONT_INSTANCE_X_FONT (f)); } + + if (NILP (FONT_INSTANCE_TRUENAME (f))) + { + /* Urk, no luck. Whine about our bad luck and exit. */ + Lisp_Object font_instance =3D wrap_font_instance (f); + = + = + maybe_signal_error (Qgui_error, "Couldn't determine font truename", + font_instance, Qfont, errb); + /* Ok, just this once, return the font name as the truename. + (This is only used by Fequal() right now.) */ + return f->name; + } + + /* Return what we found. */ return FONT_INSTANCE_TRUENAME (f); } = @@ -806,8 +856,13 @@ x_font_instance_properties (Lisp_Font_In int i; Lisp_Object result =3D Qnil; Display *dpy =3D DEVICE_X_DISPLAY (d); - XFontProp *props =3D FONT_INSTANCE_X_FONT (f)->properties; + XFontProp *props =3D NULL; + + /* #### really should hack Xft fonts, too + Strategy: fontconfig must have an iterator for this purpose. */ + if (! FONT_INSTANCE_X_FONT (f)) return result; = + props =3D FONT_INSTANCE_X_FONT (f)->properties; for (i =3D FONT_INSTANCE_X_FONT (f)->n_properties - 1; i >=3D 0; i--) { Lisp_Object name, value; @@ -887,13 +942,31 @@ x_font_list (Lisp_Object pattern, Lisp_O #ifdef MULE = static int -x_font_spec_matches_charset (struct device *UNUSED (d), Lisp_Object charse= t, +x_font_spec_matches_charset (struct device * USED_IF_XFT (d), + Lisp_Object charset, const Ibyte *nonreloc, Lisp_Object reloc, Bytecount offset, Bytecount length, int stage) { if (stage) +#ifdef USE_XFT + { + Display *dpy =3D DEVICE_X_DISPLAY (d); + Extbyte *extname; + XftFont *rf; + const Ibyte *the_nonreloc; + + if (!NILP(reloc)) + { + the_nonreloc =3D XSTRING_DATA (reloc); + LISP_STRING_TO_EXTERNAL (reloc, extname, Qx_font_name_encoding); + rf =3D xft_open_font_by_name (dpy, extname); + return 0; /* #### maybe this will compile and run ;) */ + } + } +#else return 0; +#endif = if (UNBOUNDP (charset)) return 1; @@ -901,6 +974,12 @@ x_font_spec_matches_charset (struct devi so we just assume the user knows what they're doing in the case of ASCII. For other charsets, you gotta give the long form; sorry buster. + #### FMH: this screws fontconfig/Xft? + STRATEGY: use fontconfig's ability to hack languages and character + sets (lang and charset properties). + #### Maybe we can use the fontconfig model to eliminate the difference + between faces and fonts? No - it looks like that would be an abuse + (fontconfig doesn't know about colors, although Xft does). */ if (EQ (charset, Vcharset_ascii)) { @@ -939,6 +1018,151 @@ x_font_spec_matches_charset (struct devi ERROR_ME, 0) >=3D 0); } = +#ifdef USE_XFT +/* #### debug functions: find a better place for us */ +const char *FcResultToString (FcResult r); +const char * +FcResultToString (FcResult r) +{ + static char buffer[256]; + switch (r) + { + case FcResultMatch: + return "FcResultMatch"; + case FcResultNoMatch: + return "FcResultNoMatch"; + case FcResultTypeMismatch: + return "FcResultTypeMismatch"; + case FcResultNoId: + return "FcResultNoId"; + default: + snprintf (buffer, 255, "FcResultUndocumentedValue (%d)", r); + return buffer; + } +} + +const char *FcTypeOfValueToString (FcValue v); +const char * +FcTypeOfValueToString (FcValue v) +{ + static char buffer[256]; + switch (v.type) + { + case FcTypeMatrix: + return "FcTypeMatrix"; + case FcTypeString: + return "FcTypeString"; + case FcTypeVoid: + return "FcTypeVoid"; + case FcTypeDouble: + return "FcTypeDouble"; + case FcTypeInteger: + return "FcTypeInteger"; + case FcTypeBool: + return "FcTypeBool"; + case FcTypeCharSet: + return "FcTypeCharSet"; + case FcTypeLangSet: + return "FcTypeLangSet"; + /* #### There is no union member of this type, but there are void* and + FcPattern* members, as of fontconfig.h FC_VERSION 10002 */ + case FcTypeFTFace: + return "FcTypeFTFace"; + default: + snprintf (buffer, 255, "FcTypeUndocumentedType (%d)", v.type); + return buffer; + } +} + +static FcCharSet * +mule_to_fc_charset (Lisp_Object cs) +{ + int ucode, i, j; + FcCharSet *fccs; + + CHECK_CHARSET (cs); + fccs =3D FcCharSetCreate (); + /* #### do we also need to deal with 94 vs. 96 charsets? + ie, how are SP and DEL treated in ASCII? non-graphic should return -= 1 */ + if (1 =3D=3D XCHARSET_DIMENSION (cs)) + /* Unicode tables are indexed by offsets from ASCII SP, not by ASCII */ + for (i =3D 0; i < 96; i++) + { + ucode =3D ((int *) XCHARSET_TO_UNICODE_TABLE (cs))[i]; + if (ucode >=3D 0) + /* #### should check for allocation failure */ + FcCharSetAddChar (fccs, (FcChar32) ucode); + } + else if (2 =3D=3D XCHARSET_DIMENSION (cs)) + /* Unicode tables are indexed by offsets from ASCII SP, not by ASCII */ + for (i =3D 0; i < 96; i++) + for (j =3D 0; j < 96; j++) + { + ucode =3D ((int **) XCHARSET_TO_UNICODE_TABLE (cs))[i][j]; + if (ucode >=3D 0) + /* #### should check for allocation failure */ + FcCharSetAddChar (fccs, (FcChar32) ucode); + } + else + { + FcCharSetDestroy (fccs); + fccs =3D NULL; + } + return fccs; +} + +struct charset_reporter { + Lisp_Object *charset; + /* This is a debug facility, require ASCII. */ + Extbyte *language; /* ASCII, please */ + FcChar8 *rfc3066; /* ASCII, please */ +}; + +static struct charset_reporter charset_table[] =3D + { + /* #### It's my branch, my favorite charsets get checked first! + That's a joke, Son. + Ie, I don't know what I'm doing, so my charsets first is as good as + any other arbitrary order. If you have a better idea, speak up! */ + { &Vcharset_ascii, "English", "en" }, + { &Vcharset_japanese_jisx0208, "Japanese", "ja" }, + { &Vcharset_japanese_jisx0212, "Japanese", "ja" }, + { &Vcharset_katakana_jisx0201, "Japanese", "ja" }, + { &Vcharset_latin_jisx0201, "Japanese", "ja" }, + { &Vcharset_japanese_jisx0208_1978, "Japanese", "ja" }, + { &Vcharset_greek_iso8859_7, "Greek", "el" }, + /* #### all the Chinese need checking + Damn the blood-sucking ISO anyway. */ + { &Vcharset_chinese_gb2312, "simplified Chinese", "zh-CN" }, + { &Vcharset_korean_ksc5601, "Korean", "ko" }, + { &Vcharset_chinese_cns11643_1, "traditional Chinese", "zh-TW" }, + { &Vcharset_chinese_cns11643_2, "traditional Chinese", "zh-TW" }, + { &Vcharset_latin_iso8859_1, NULL, NULL }, + { &Vcharset_latin_iso8859_2, NULL, NULL }, + { &Vcharset_latin_iso8859_3, NULL, NULL }, + { &Vcharset_latin_iso8859_4, NULL, NULL }, + { &Vcharset_latin_iso8859_9, NULL, NULL }, + { &Vcharset_latin_iso8859_15, NULL, NULL }, + { &Vcharset_thai_tis620, NULL, NULL }, + { &Vcharset_arabic_iso8859_6, NULL, NULL }, + { &Vcharset_hebrew_iso8859_8, "Hebrew", "he" }, + { &Vcharset_cyrillic_iso8859_5, NULL, NULL }, + /* #### these probably are not quite right */ + { &Vcharset_chinese_big5_1, "traditional Chinese", "zh-TW" }, + { &Vcharset_chinese_big5_2, "traditional Chinese", "zh-TW" }, + { NULL, NULL, NULL } + }; + +/* Choose appropriate font name for debug messages. + Use only in the top half of next function (enforced with #undef). */ +#define SET_DEBUG_FONTNAME(name) \ + do { name =3D \ + debug_xft > 2 ? eistr_fullname \ +: debug_xft > 1 ? eistr_longname \ +: eistr_shortname } while (0) + +#endif /* USE_XFT */ + /* find a font spec that matches font spec FONT and also matches (the registry of) CHARSET. */ static Lisp_Object @@ -947,18 +1171,277 @@ x_find_charset_font (Lisp_Object device, { Extbyte **names; int count =3D 0; - Lisp_Object result =3D Qnil; const Extbyte *patternext; + Lisp_Object result =3D Qunbound; int i; = + /* #### with Xft need to handle second stage here -- sjt + Hm. Or maybe not. That would be cool. :-) */ if (stage) return Qnil; = - LISP_STRING_TO_EXTERNAL (font, patternext, Qx_font_name_encoding); +#ifdef USE_XFT + /* Fontconfig converts all FreeType names to UTF-8 before passing them + back to callers---see fcfreetype.c (FcFreeTypeQuery). + I don't believe this is documented. */ + + DEBUG_XFT1 (1, "confirming charset for font instance %s\n", = + XSTRING_DATA(font)); + + /* #### this looks like a fair amount of work, but the basic design + has never been rethought, and it should be + + what really should happen here is that we use FcFontSort (FcFontList?) + to get a list of matching fonts, then pick the first (best) one that + gives language or repertoire coverage. + */ + + FcInit (); /* No-op if already initialized. + In fontconfig 2.3.2, this cannot return + failure, but that looks like a bug. We + check for it with FcGetCurrentConfig(), + which *can* fail. */ + if (!FcConfigGetCurrent()) /* #### We should expose FcInit* interfaces + to LISP and decide when to reinitialize + intelligently. */ + stderr_out ("Failed fontconfig initialization\n"); + else + { + FcPattern *fontxft; /* long-lived, freed at end of this block */ + FcResult fcresult; + FcConfig *fcc; + FcChar8 *lang =3D "en"; /* #### fix this bogus hack! */ + FcCharSet *fccs =3D NULL; + DECLARE_EISTRING (eistr_shortname); /* user-friendly nickname */ + DECLARE_EISTRING (eistr_longname); /* omit FC_LANG and FC_CHARSET */ + DECLARE_EISTRING (eistr_fullname); /* everything */ + + LISP_STRING_TO_EXTERNAL (font, patternext, Qxft_font_name_encoding); + fcc =3D FcConfigGetCurrent (); + + /* parse the name, do the substitutions, and match the font */ + + { + FcPattern *p =3D FcNameParse (patternext); + PRINT_XFT_PATTERN (3, "FcNameParse'ed name is %s\n", p); + /* #### Next two return FcBool, but what does the return mean? */ + /* The order is correct according the fontconfig docs. */ + FcConfigSubstitute (fcc, p, FcMatchPattern); + PRINT_XFT_PATTERN (2, "FcConfigSubstitute'ed name is %s\n", p); + FcDefaultSubstitute (p); + PRINT_XFT_PATTERN (3, "FcDefaultSubstitute'ed name is %s\n", p); + /* #### check fcresult of following match? */ + fontxft =3D FcFontMatch (fcc, p, &fcresult); + /* this prints the long fontconfig name */ + PRINT_XFT_PATTERN (1, "FcFontMatch'ed name is %s\n", fontxft); + FcPatternDestroy (p); + } + + /* heuristic to give reasonable-length names for debug reports + + I considered #ifdef SUPPORT_FULL_FONTCONFIG_NAME etc but that's + pointless. We're just going to remove this code once the font/ + face refactoring is done, but until then it could be very useful. + */ + { + FcPattern *p =3D FcFontRenderPrepare (fcc, fontxft, fontxft); + FcChar8 *name; + + /* full name, including language coverage and repertoire */ + name =3D FcNameUnparse (p); + eicpy_ext (eistr_fullname, name, Qxft_font_name_encoding); + free (name); + + /* long name, omitting coverage and repertoire, plus a number + of rarely useful properties */ + FcPatternDel (p, FC_CHARSET); + FcPatternDel (p, FC_LANG); + FcPatternDel (p, FC_WIDTH); + FcPatternDel (p, FC_SPACING); + FcPatternDel (p, FC_HINTING); + FcPatternDel (p, FC_VERTICAL_LAYOUT); + FcPatternDel (p, FC_AUTOHINT); + FcPatternDel (p, FC_GLOBAL_ADVANCE); + FcPatternDel (p, FC_INDEX); + FcPatternDel (p, FC_SCALE); + FcPatternDel (p, FC_FONTVERSION); + name =3D FcNameUnparse (p); + eicpy_ext (eistr_longname, name, Qxft_font_name_encoding); + free (name); + + /* nickname, just family and size, but + "family" names usually have style, slant, and weight */ + FcPatternDel (p, FC_FOUNDRY); + FcPatternDel (p, FC_STYLE); + FcPatternDel (p, FC_SLANT); + FcPatternDel (p, FC_WEIGHT); + FcPatternDel (p, FC_PIXEL_SIZE); + FcPatternDel (p, FC_OUTLINE); + FcPatternDel (p, FC_SCALABLE); + FcPatternDel (p, FC_DPI); + name =3D FcNameUnparse (p); + eicpy_ext (eistr_shortname, name, Qxft_font_name_encoding); + free (name); + + FcPatternDestroy (p); + } + + /* The language approach may better in the long run, but we can't use + it based on Mule charsets; fontconfig doesn't provide a way to test + for unions of languages, etc. That will require support from the + text module. + + Optimization: cache the generated FcCharSet in the Mule charset. + Don't forget to destroy it if the Mule charset gets deallocated. = */ + + struct charset_reporter *cr; + for (cr =3D charset_table; + cr->charset && !EQ (*(cr->charset), charset); + cr++) + ; + + if (cr->rfc3066) + { + if (debug_xft > 0) + { + SET_DEBUG_FONTNAME (name); + CHECKING_LANG (0, eidata(name), cr->language); + } + lang =3D cr->rfc3066; + } + else if (cr->charset) + { + /* what the hey, build 'em on the fly */ + /* #### in the case of error this could return NULL! */ + fccs =3D mule_to_fc_charset (charset); + lang =3D XSTRING_DATA (XSYMBOL (XCHARSET_NAME (charset))-> name); + } + else + { + /* OK, we fell off the end of the table */ + warn_when_safe_lispobj (intern ("xft"), intern ("alert"), + list2 (build_string ("unchecked charset"), + charset)); + /* default to "en" + #### THIS IS WRONG, WRONG, WRONG!! + It is why we never fall through to XLFD-checking. */ + } + + ASSERT_ASCTEXT_ASCII(lang); + + if (fccs) + { + /* check for character set coverage */ + int i =3D 0; + FcCharSet *v; + FcResult r =3D FcPatternGetCharSet (fontxft, FC_CHARSET, i, &v); + + if (r =3D=3D FcResultTypeMismatch) + { + DEBUG_XFT0 (0, "Unexpected type return in charset value\n"); + result =3D Qnil; + } + else if (r =3D=3D FcResultMatch && FcCharSetIsSubset (fccs, v)) + { + /* The full pattern with the bitmap coverage is massively + unwieldy, but the shorter names are's just *wrong*. We + should have the full thing internally as truename, and + filter stuff the client doesn't want to see on output. + Should we just store it into the truename right here? */ + if (debug_xft > 0) + { + SET_DEBUG_FONTNAME (name); + DEBUG_XFT2 (0, "Xft font %s supports %s\n", + eidata(name), lang); + } +#ifdef RETURN_LONG_FONTCONFIG_NAMES + result =3D eimake_string(eistr_fullname); +#else + result =3D eimake_string(eistr_longname); +#endif + } + else + { + if (debug_xft > 0) + { + SET_DEBUG_FONTNAME (name); + DEBUG_XFT2 (0, "Xft font %s doesn't support %s\n", + eidata(name), lang); + } + result =3D Qnil; + } = + /* clean up */ + FcCharSetDestroy (fccs); + } + else + { + /* check for language coverage */ + int i =3D 0; + FcValue v; + /* the main event */ + FcResult r =3D FcPatternGet (fontxft, FC_LANG, i, &v); + + if (r =3D=3D FcResultMatch) + { + if (v.type !=3D FcTypeLangSet) /* excessive paranoia */ + { + ASSERT_ASCTEXT_ASCII(FcTypeOfValueToString(v)); + /* Urk! Fall back and punt to core font. */ + DEBUG_XFT1 (0, "Unexpected type of lang value (%s)\n", + FcTypeOfValueToString (v)); + result =3D Qnil; + } + else if (FcLangSetHasLang (v.u.l, lang) !=3D FcLangDifferentLang) + { + if (debug_xft > 0) + { + SET_DEBUG_FONTNAME (name); + DEBUG_XFT2 (0, "Xft font %s supports %s\n", + eidata(name), lang); + } +#ifdef RETURN_LONG_FONTCONFIG_NAMES + result =3D eimake_string(eistr_fullname); +#else + result =3D eimake_string(eistr_longname); +#endif + } + else + { + if (debug_xft > 0) + { + SET_DEBUG_FONTNAME (name); + DEBUG_XFT2 (0, "Xft font %s doesn't support %s\n", + eidata(name), lang); + } + result =3D Qnil; + } + } + else + { + ASSERT_ASCTEXT_ASCII(FcResultToString(r)); + DEBUG_XFT1 (0, "Getting lang: unexpected result=3D%s\n", + FcResultToString (r)); + result =3D Qnil; + } + } + + /* clean up and maybe return */ + FcPatternDestroy (fontxft); + if (!UNBOUNDP (result)) + return result; + } + + DEBUG_XFT1 (0, "shit happens, try X11 charset match for %s\n", = + XSTRING_DATA(font)); +#undef SET_DEBUG_FONTNAME +#endif /* USE_XFT */ + + LISP_STRING_TO_EXTERNAL (font, patternext, Qx_font_name_encoding); names =3D XListFonts (DEVICE_X_DISPLAY (XDEVICE (device)), patternext, MAX_FONT_COUNT, &count); /* #### This code seems awfully bogus -- mrb */ + /* #### fontconfig does it better -- sjt */ for (i =3D 0; i < count; i ++) { const Ibyte *intname; @@ -1041,6 +1524,10 @@ fixed-width fonts. Since most people do cause problems this is set to nil by default. */ ); x_handle_non_fully_specified_fonts =3D 0; + +#ifdef USE_XFT + Fprovide (intern ("xft-fonts")); +#endif } = void 1.5 +7 -2 XEmacs/xemacs/src/objects-x.h Index: objects-x.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects-x.h,v retrieving revision 1.4 retrieving revision 1.5 diff -u -p -r1.4 -r1.5 --- objects-x.h 2002/06/20 21:18:40 1.4 +++ objects-x.h 2005/11/26 11:46:10 1.5 @@ -28,11 +28,16 @@ Boston, MA 02111-1307, USA. */ #define INCLUDED_objects_x_h_ = #include "objects.h" +#include "../lwlib/lwlib-colors.h" /* for x_allocate_nearest_color */ = #ifdef HAVE_X_WINDOWS = -int allocate_nearest_color (Display *display, Colormap screen_colormap, - Visual *visual, XColor *color_def); +#ifdef USE_XFT +EXFUN (Ffc_font_real_pattern, 2); +#endif + +/* Lisp_Object Fxlfd_font_name_p; */ + #endif /* HAVE_X_WINDOWS */ = #endif /* INCLUDED_objects_x_h_ */ 1.31 +21 -5 XEmacs/xemacs/src/objects.c Index: objects.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects.c,v retrieving revision 1.30 retrieving revision 1.31 diff -u -p -r1.30 -r1.31 --- objects.c 2005/11/25 01:42:06 1.30 +++ objects.c 2005/11/26 11:46:10 1.31 @@ -294,6 +294,7 @@ static const struct memory_description f { XD_LISP_OBJECT, offsetof (Lisp_Font_Instance, name)}, { XD_LISP_OBJECT, offsetof (Lisp_Font_Instance, truename)}, { XD_LISP_OBJECT, offsetof (Lisp_Font_Instance, device)}, + { XD_LISP_OBJECT, offsetof (Lisp_Font_Instance, charset)}, { XD_UNION, offsetof (Lisp_Font_Instance, data), = XD_INDIRECT (0, 0), { &font_instance_data_description } }, { XD_END } @@ -370,19 +371,23 @@ DEFINE_LRECORD_IMPLEMENTATION ("font-ins Lisp_Font_Instance); = =0C -DEFUN ("make-font-instance", Fmake_font_instance, 1, 3, 0, /* +/* #### Why is this exposed to Lisp? Used in: +x-frob-font-size, gtk-font-menu-load-font, x-font-menu-load-font-xft, +x-font-menu-load-font-core, mswindows-font-menu-load-font, +mswindows-frob-font-style-and-sizify, mswindows-frob-font-size. */ +DEFUN ("make-font-instance", Fmake_font_instance, 1, 4, 0, /* Return a new `font-instance' object named NAME. DEVICE specifies the device this object applies to and defaults to the selected device. An error is signalled if the font is unknown or cannot be allocated; however, if NOERROR is non-nil, nil is simply returned in -this case. +this case. CHARSET is used internally. #### make helper function? = The returned object is a normal, first-class lisp object. The way you `deallocate' the font is the way you deallocate any other lisp object: you drop all pointers to it and allow it to be garbage collected. When -these objects are GCed, the underlying X data is deallocated as well. +these objects are GCed, the underlying GUI data is deallocated as well. */ - (name, device, noerror)) + (name, device, noerror, charset)) { Lisp_Font_Instance *f; int retval =3D 0; @@ -407,6 +412,7 @@ these objects are GCed, the underlying X f->ascent =3D f->height =3D 1; f->descent =3D 0; f->width =3D 1; + f->charset =3D charset; f->proportional_p =3D 0; = retval =3D MAYBE_INT_DEVMETH (XDEVICE (device), initialize_font_instance, @@ -509,6 +515,15 @@ the first found is used. This returns a return font_instance_truename_internal (font_instance, ERROR_ME); } = +DEFUN ("font-instance-charset", Ffont_instance_charset, 1, 1, 0, /* +Return the Mule charset that FONT-INSTANCE was allocated to handle. +*/ + (font_instance)) +{ + CHECK_FONT_INSTANCE (font_instance); + return XFONT_INSTANCE (font_instance)->charset; +} + DEFUN ("font-instance-properties", Ffont_instance_properties, 1, 1, 0, /* Return the properties (an alist or nil) of FONT-INSTANCE. */ @@ -898,7 +913,7 @@ font_instantiate (Lisp_Object UNUSED (sp if (UNBOUNDP (instance)) { /* make sure we cache the failures, too. */ - instance =3D Fmake_font_instance (instantiator, device, Qt); + instance =3D Fmake_font_instance (instantiator, device, Qt, charset); Fputhash (instantiator, instance, cache); } = @@ -1150,6 +1165,7 @@ syms_of_objects (void) DEFSUBR (Ffont_instance_ascent); DEFSUBR (Ffont_instance_descent); DEFSUBR (Ffont_instance_width); + DEFSUBR (Ffont_instance_charset); DEFSUBR (Ffont_instance_proportional_p); DEFSUBR (Ffont_instance_truename); DEFSUBR (Ffont_instance_properties); 1.11 +2 -1 XEmacs/xemacs/src/objects.h Index: objects.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects.h,v retrieving revision 1.10 retrieving revision 1.11 diff -u -p -r1.10 -r1.11 --- objects.h 2004/09/14 14:32:52 1.10 +++ objects.h 2005/11/26 11:46:10 1.11 @@ -58,10 +58,11 @@ DECLARE_LRECORD (font_instance, Lisp_Fon #define CHECK_FONT_INSTANCE(x) CHECK_RECORD (x, font_instance) #define CONCHECK_FONT_INSTANCE(x) CONCHECK_RECORD (x, font_instance) = -EXFUN (Fmake_font_instance, 3); +EXFUN (Fmake_font_instance, 4); EXFUN (Ffont_instance_name, 1); EXFUN (Ffont_instance_p, 1); EXFUN (Ffont_instance_truename, 1); +EXFUN (Ffont_instance_charset, 1); = extern Lisp_Object Vthe_null_font_instance; = 1.41 +412 -114 XEmacs/xemacs/src/redisplay-x.c Index: redisplay-x.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay-x.c,v retrieving revision 1.40 retrieving revision 1.41 diff -u -p -r1.40 -r1.41 --- redisplay-x.c 2005/01/24 23:34:07 1.40 +++ redisplay-x.c 2005/11/26 11:46:10 1.41 @@ -58,7 +58,7 @@ Boston, MA 02111-1307, USA. */ #include = /* Number of pixels below each line. */ -int x_interline_space; /* #### implement me */ +int x_interline_space; /* #### this needs to be implemented, but per-font = */ = #define EOL_CURSOR_WIDTH 5 = @@ -73,7 +73,12 @@ static void x_output_eol_cursor (struct = static void x_clear_frame (struct frame *f); static void x_clear_frame_windows (Lisp_Object window); = +#ifdef USE_XFT +#define MINL(x,y) ((((unsigned long) (x)) < ((unsigned long) (y))) \ + ? ((unsigned long) (x)) : ((unsigned long) (y))) +#endif /* USE_XFT */ = + /* Note: We do not use the Xmb*() functions and XFontSets. Those functions are generally losing for a number of reasons: = @@ -83,6 +88,11 @@ static void x_clear_frame_windows (Lisp_ to try to deal with this, but that would generally fail because an XFontSet is tied to one locale and won't have the other character sets in it. + + The following aren't true any more, but that doesn't make Xmb*() + usable. One wonders about Xft and Pango, etc, tho'. Except they + aren't cross-platform solutions. FMH, as jwz would say. -- sjt + [[ 2) Not all (or even very many) OS's support the useful locales. For example, as far as I know SunOS and Solaris only support the Japanese locale if you get the @@ -98,8 +108,10 @@ static void x_clear_frame_windows (Lisp_ I can find what the multi-byte text format for the Japanese locale under SunOS and Solaris is, but I assume it's EUC. + ]] */ = +/* #### Break me out into a separate header */ struct textual_run { Lisp_Object charset; @@ -120,6 +132,25 @@ struct textual_run = Returns the number of runs actually used. */ = +/* Notes on Xft implementation + + - Xft Reloaded, v.4, uses a function like that in redisplay-msw.c to + handle all characters. However, instead of using an appropriate + character width for each run, it just uses UTF-8 for all runs. This + is not obviously a bad idea, but (for Han characters etc) the estimate + of TEXT_STORAGE allocation needed is (3 * len), and for characters not + in the BMP, it's (4 * len). + - With Unicode, we're no longer going to have repertoires reified as + charsets. (Not that we ever really did, what with corporate variants, + and so on.) So we really should be querying the face for the desired + font, rather than the character for the charset, and that's what would + determine the separation into runs. + - The widechar versions of fontconfig (and therefore Xft) functions + seem to be just bigendian Unicode. So there's actually no need to use + the 8-bit versions in computing runs and runes, it would seem. + - Mule won't "just work"; substantially more effort seems needed. +*/ + static int separate_textual_runs (unsigned char *text_storage, struct textual_run *run_storage, @@ -139,7 +170,7 @@ separate_textual_runs (unsigned char *te { Ichar ch =3D str[i]; Lisp_Object charset; - int byte1, byte2; + int byte1, byte2; /* #### why aren't these UExtbytes? */ int dimension; int graphic; = @@ -151,7 +182,11 @@ separate_textual_runs (unsigned char *te { run_storage[runs_so_far].ptr =3D text_storage; run_storage[runs_so_far].charset =3D charset; +#ifdef USE_XFT + run_storage[runs_so_far].dimension =3D 2; +#else run_storage[runs_so_far].dimension =3D dimension; +#endif = if (runs_so_far) { @@ -172,6 +207,7 @@ separate_textual_runs (unsigned char *te #endif } = +#ifndef USE_XFT if (graphic =3D=3D 0) { byte1 &=3D 0x7F; @@ -192,10 +228,53 @@ separate_textual_runs (unsigned char *te byte1 =3D char_converter.reg[1]; byte2 =3D char_converter.reg[2]; } -#endif +#endif /* MULE */ *text_storage++ =3D (unsigned char) byte1; if (dimension =3D=3D 2) *text_storage++ =3D (unsigned char) byte2; +#else /* USE_XFT */ + /* #### This is bogus as hell. XftChar16, aka FcChar16, is actually + unsigned short, and therefore is not suitable for indexing matrix + fonts such as the JIS fonts supplied with X11. But if this were + consistent, the XftDraw*8 and XftDraw*16 functions are pretty + incoherent, as then we not should allow anything but ISO 8859/1 + (ie, the first 256 code points of Unicode) in XftDraw*8. So it + looks like this depends on the font, not the charset. */ + { + XftChar16 xftchar16 =3D 0xFFFD; /* unsigned short */ +#ifndef MULE + int unicode =3D ch; +#else + int unicode =3D ichar_to_unicode (ch); + if (unicode < 0) + /* abort(); */ /* #### serious error, tables are corrupt + Unfortunately, not a valid assumption; this can happen with + composite characters. Fake it. */ + unicode =3D 0xFFFD; /* REPLACEMENT CHARACTER, can't represent */ + else if (need_ccl_conversion) + /* #### maybe we should just ignore this and hope the font wins? */ + unicode =3D 0xFFFD; /* REPLACEMENT CHARACTER, can't represent */ + else if (unicode > 65535) + unicode =3D 0xFFFD; /* REPLACEMENT CHARACTER, can't represent */ + else +#endif + xftchar16 =3D (XftChar16) unicode; + /* #### endianness dependency? No, + apparently xft handles endianness for us; + the "big-endian" code works on Intel and PPC */ +#if 1 + /* big-endian or auto-endian */ + byte1 =3D ((unsigned char *) (&xftchar16))[0]; + byte2 =3D ((unsigned char *) (&xftchar16))[1]; +#else + /* little-endian */ + byte1 =3D ((unsigned char *) (&xftchar16))[1]; + byte2 =3D ((unsigned char *) (&xftchar16))[0]; +#endif + } + *text_storage++ =3D (unsigned char) byte1; + *text_storage++ =3D (unsigned char) byte2; = +#endif /* USE_XFT */ } = if (runs_so_far) @@ -216,13 +295,34 @@ separate_textual_runs (unsigned char *te /*************************************************************************= ***/ = static int -x_text_width_single_run (struct face_cachel *cachel, struct textual_run *r= un) +x_text_width_single_run (struct frame * USED_IF_XFT (f), + struct face_cachel *cachel, struct textual_run *run) { Lisp_Object font_inst =3D FACE_CACHEL_FONT (cachel, run->charset); Lisp_Font_Instance *fi =3D XFONT_INSTANCE (font_inst); if (!fi->proportional_p) return fi->width * run->len; - else +#ifdef USE_XFT + else if (FONT_INSTANCE_X_XFTFONT(fi)) + { + static XGlyphInfo glyphinfo; + struct device *d =3D XDEVICE (f->device); + Display *dpy =3D DEVICE_X_DISPLAY (d); + + if (run->dimension =3D=3D 2) { + XftTextExtents16 (dpy, + FONT_INSTANCE_X_XFTFONT(fi), + (XftChar16 *) run->ptr, run->len, &glyphinfo); + } else { + XftTextExtents8 (dpy, + FONT_INSTANCE_X_XFTFONT(fi), + run->ptr, run->len, &glyphinfo); + } + = + return glyphinfo.xOff; + } +#endif + else if (FONT_INSTANCE_X_FONT (fi)) { if (run->dimension =3D=3D 2) return XTextWidth16 (FONT_INSTANCE_X_FONT (fi), @@ -231,17 +331,23 @@ x_text_width_single_run (struct face_cac return XTextWidth (FONT_INSTANCE_X_FONT (fi), (char *) run->ptr, run->len); } + else + abort(); + return 0; /* shut up GCC */ } = /* x_text_width = - Given a string and a face, return the string's length in pixels when - displayed in the font associated with the face. + Given a string and a merged face, return the string's length in pixels + when displayed in the fonts associated with the face. */ = -static int -x_text_width (struct frame *UNUSED (f), struct face_cachel *cachel, +/* #### Break me out into a separate header */ +int x_text_width (struct frame *f, struct face_cachel *cachel, + const Ichar *str, Charcount len); +int +x_text_width (struct frame *f, struct face_cachel *cachel, const Ichar *str, Charcount len) { /* !!#### Needs review */ @@ -254,7 +360,7 @@ x_text_width (struct frame *UNUSED (f), = nruns =3D separate_textual_runs (text_storage, runs, str, len); = for (i =3D 0; i < nruns; i++) - width_so_far +=3D x_text_width_single_run (cachel, runs + i); + width_so_far +=3D x_text_width_single_run (f, cachel, runs + i); = return width_so_far; } @@ -319,7 +425,9 @@ x_output_display_block (struct window *w int start, int end, int start_pixpos, int cursor_start, int cursor_width, int cursor_height) { +#ifndef USE_XFT struct frame *f =3D XFRAME (w->frame); +#endif Ichar_dynarr *buf =3D Dynarr_new (Ichar); Lisp_Object window; = @@ -502,13 +610,17 @@ x_output_display_block (struct window *w x_output_string (w, dl, buf, xpos, 0, start_pixpos, width, findex, 0, cursor_start, cursor_width, cursor_height); = - /* #### This is really conditionalized well for optimized - performance. */ if (dl->modeline && !EQ (Qzero, w->modeline_shadow_thickness) +#ifndef USE_XFT + /* This optimization doesn't work right with some Xft fonts, which + leave antialiasing turds at the boundary. I don't know if this + is an Xft bug or not, but I think it is. See x_output_string. */ && (f->clear || f->windows_structure_changed - || w->shadow_thickness_changed)) + || w->shadow_thickness_changed) +#endif + ) bevel_modeline (w, dl); = Dynarr_free (buf); @@ -662,7 +774,13 @@ x_get_gc (struct device *d, Lisp_Object = mask =3D GCGraphicsExposures | GCClipMask | GCClipXOrigin | GCClipYOrigi= n; mask |=3D GCFillStyle; = - if (!NILP (font)) + if (!NILP (font) +#ifdef USE_XFT + /* Only set the font if it's a core font */ + /* the renderfont will be set elsewhere (not part of gc) */ + && !FONT_INSTANCE_X_XFTFONT (XFONT_INSTANCE (font)) +#endif + ) { gcv.font =3D FONT_INSTANCE_X_FONT (XFONT_INSTANCE (font))->fid; mask |=3D GCFont; @@ -671,7 +789,7 @@ x_get_gc (struct device *d, Lisp_Object = /* evil kludge! */ if (!NILP (fg) && !COLOR_INSTANCEP (fg) && !INTP (fg)) { - /* #### I fixed once case where this was getting it. It was a + /* #### I fixed one case where this was getting hit. It was a bad macro expansion (compiler bug). */ stderr_out ("Help! x_get_gc got a bogus fg value! fg =3D "); debug_print (fg); @@ -729,6 +847,9 @@ x_get_gc (struct device *d, Lisp_Object = mask |=3D GCLineWidth; } = +#if 0 + debug_out ("\nx_get_gc: calling gc_cache_lookup\n"); +#endif return gc_cache_lookup (DEVICE_X_GC_CACHE (d), &gcv, mask); } = @@ -774,7 +895,7 @@ x_output_string (struct window *w, struc /* General variables */ struct frame *f =3D XFRAME (w->frame); struct device *d =3D XDEVICE (f->device); - Lisp_Object window; + Lisp_Object window =3D wrap_window (w); Display *dpy =3D DEVICE_X_DISPLAY (d); Window x_win =3D XtWindow (FRAME_X_TEXT_WIDGET (f)); = @@ -790,7 +911,8 @@ x_output_string (struct window *w, struc /* Text-related variables */ Lisp_Object bg_pmap; GC bgc, gc; - int height; + int height =3D DISPLAY_LINE_HEIGHT (dl); + int ypos =3D DISPLAY_LINE_YPOS (dl); int len =3D Dynarr_length (buf); unsigned char *text_storage =3D (unsigned char *) ALLOCA (2 * len); struct textual_run *runs =3D alloca_array (struct textual_run, len); @@ -798,11 +920,31 @@ x_output_string (struct window *w, struc int i; struct face_cachel *cachel =3D WINDOW_FACE_CACHEL (w, findex); = - window =3D wrap_window (w); + int use_x_font =3D 1; /* #### bogus!! + The logic of this function needs review! */ +#ifdef USE_XFT + Colormap cmap =3D DEVICE_X_COLORMAP (d); + Visual *visual =3D DEVICE_X_VISUAL (d); + static XftColor fg, bg; + XftDraw *xftDraw; + + /* Lazily initialize frame's xftDraw member. */ + if (!FRAME_X_XFTDRAW (f)) { + FRAME_X_XFTDRAW (f) =3D XftDrawCreate (dpy, x_win, visual, cmap); + } + xftDraw =3D FRAME_X_XFTDRAW (f); = + /* #### This will probably cause asserts when passed a Lisp integer for a + color. See ca. line 759 this file. + #### Maybe xft_convert_color should take an XColor, not a pixel. */ +#define XFT_FROB_LISP_COLOR(color, dim) \ + xft_convert_color (dpy, cmap, visual, \ + COLOR_INSTANCE_X_COLOR (XCOLOR_INSTANCE (color)).pixel, \ + (dim)) +#endif + if (width < 0) width =3D x_text_width (f, cachel, Dynarr_atp (buf, 0), Dynarr_length = (buf)); - height =3D DISPLAY_LINE_HEIGHT (dl); = /* Regularize the variables passed in. */ = @@ -816,12 +958,9 @@ x_output_string (struct window *w, struc xpos -=3D xoffset; = /* make sure the area we are about to display is subwindow free. */ - redisplay_unmap_subwindows_maybe (f, clip_start, DISPLAY_LINE_YPOS (dl), - clip_end - clip_start, DISPLAY_LINE_HEIGHT (dl)); + redisplay_unmap_subwindows_maybe (f, clip_start, ypos, + clip_end - clip_start, height); = - nruns =3D separate_textual_runs (text_storage, runs, Dynarr_atp (buf, 0), - Dynarr_length (buf)); - cursor_clip =3D (cursor_start >=3D clip_start && cursor_start < clip_end); = @@ -858,14 +997,21 @@ x_output_string (struct window *w, struc && !NILP (w->text_cursor_visible_p)) || NILP (bg_pmap)) bgc =3D 0; else - bgc =3D x_get_gc (d, Qnil, cachel->foreground, cachel->background, - bg_pmap, Qnil); + { + bgc =3D x_get_gc (d, Qnil, cachel->foreground, cachel->background, + bg_pmap, Qnil); + } = if (bgc) - XFillRectangle (dpy, x_win, bgc, clip_start, - DISPLAY_LINE_YPOS (dl), clip_end - clip_start, - height); + { + XFillRectangle (dpy, x_win, bgc, clip_start, + ypos, clip_end - clip_start, + height); + } = + nruns =3D separate_textual_runs (text_storage, runs, Dynarr_atp (buf, 0), + Dynarr_length (buf)); + for (i =3D 0; i < nruns; i++) { Lisp_Object font =3D FACE_CACHEL_FONT (cachel, runs[i].charset); @@ -876,7 +1022,7 @@ x_output_string (struct window *w, struc if (EQ (font, Vthe_null_font_instance)) continue; = - this_width =3D x_text_width_single_run (cachel, runs + i); + this_width =3D x_text_width_single_run (f, cachel, runs + i); need_clipping =3D (dl->clip || clip_start > xpos || clip_end < xpos + this_width); = @@ -895,8 +1041,8 @@ x_output_string (struct window *w, struc = ypos1_string =3D dl->ypos - fi->ascent; ypos2_string =3D dl->ypos + fi->descent; - ypos1_line =3D DISPLAY_LINE_YPOS (dl); - ypos2_line =3D ypos1_line + DISPLAY_LINE_HEIGHT (dl); + ypos1_line =3D ypos; + ypos2_line =3D ypos1_line + height; = /* Make sure we don't clear below the real bottom of the line. */ @@ -922,14 +1068,20 @@ x_output_string (struct window *w, struc else { redisplay_clear_region (window, findex, clear_start, - DISPLAY_LINE_YPOS (dl), clear_end - clear_start, + ypos, clear_end - clear_start, height); } } = if (cursor && cursor_cachel && focus && NILP (bar_cursor_value)) - gc =3D x_get_gc (d, font, cursor_cachel->foreground, - cursor_cachel->background, Qnil, Qnil); + { +#ifdef USE_XFT + fg =3D XFT_FROB_LISP_COLOR (cursor_cachel->foreground, 0); + bg =3D XFT_FROB_LISP_COLOR (cursor_cachel->background, 0); +#endif + gc =3D x_get_gc (d, font, cursor_cachel->foreground, + cursor_cachel->background, Qnil, Qnil); + } else if (cachel->dim) { /* Ensure the gray bitmap exists */ @@ -939,53 +1091,135 @@ x_output_string (struct window *w, struc gray_width, gray_height); = /* Request a GC with the gray stipple pixmap to draw dimmed text */ +#ifdef USE_XFT + fg =3D XFT_FROB_LISP_COLOR (cachel->foreground, 1); + bg =3D XFT_FROB_LISP_COLOR (cachel->background, 0); +#endif gc =3D x_get_gc (d, font, cachel->foreground, cachel->background, Qdim, Qnil); } else - gc =3D x_get_gc (d, font, cachel->foreground, cachel->background, - Qnil, Qnil); - - if (need_clipping) { - XRectangle clip_box[1]; - - clip_box[0].x =3D 0; - clip_box[0].y =3D 0; - clip_box[0].width =3D clip_end - clip_start; - clip_box[0].height =3D height; - - XSetClipRectangles (dpy, gc, clip_start, DISPLAY_LINE_YPOS (dl), - clip_box, 1, Unsorted); +#ifdef USE_XFT + fg =3D XFT_FROB_LISP_COLOR (cachel->foreground, 0); + bg =3D XFT_FROB_LISP_COLOR (cachel->background, 0); +#endif + gc =3D x_get_gc (d, font, cachel->foreground, cachel->background, + Qnil, Qnil); } +#ifdef USE_XFT + { + XftFont *rf =3D FONT_INSTANCE_X_XFTFONT (fi); = - if (runs[i].dimension =3D=3D 1) - (bgc ? XDrawString : XDrawImageString) (dpy, x_win, gc, xpos, - dl->ypos, (char *) runs[i].ptr, - runs[i].len); - else - (bgc ? XDrawString16 : XDrawImageString16) (dpy, x_win, gc, xpos, - dl->ypos, - (XChar2b *) runs[i].ptr, - runs[i].len); + if (rf) + { + use_x_font =3D 0; + if (need_clipping) + { + Region clip_reg =3D XCreateRegion(); + XRectangle clip_box =3D { clip_start, ypos, + clip_end - clip_start, height }; + + XUnionRectWithRegion (&clip_box, clip_reg, clip_reg); = + XftDrawSetClip(xftDraw, clip_reg); + XDestroyRegion(clip_reg); + } + + if (!bgc) + { + /* #### Neither rect_height nor XftTextExtents as computed + below handles the vertical space taken up by antialiasing, + which for some fonts (eg, Bitstream Vera Sans Mono-16 on + my Mac PowerBook G4) leaves behind orphaned dots on + insertion or deletion earlier in the line, especially in + the case of the underscore character. + Interestingly, insertion or deletion of a single character + immediately after a refresh does not leave any droppings, + but any further insertions or deletions do. + While adding a pixel to rect_height (mostly) takes care of + this, it trashes aggressively laid-out elements like the + modeline (overwriting part of the bevel). + OK, unconditionally redraw the bevel, and increment + rect_height by 1. See x_output_display_block. -- sjt */ + struct textual_run *run =3D &runs[i]; + int rect_width =3D x_text_width_single_run (f, cachel, run); +#ifndef USE_XFTTEXTENTS_TO_AVOID_FONT_DROPPINGS + int rect_height =3D FONT_INSTANCE_ASCENT(fi) + + FONT_INSTANCE_DESCENT(fi) + 1; +#else + int rect_height =3D FONT_INSTANCE_ASCENT(fi) + + FONT_INSTANCE_DESCENT(fi); + XGlyphInfo gi; + if (run->dimension =3D=3D 2) { + XftTextExtents16 (dpy, + FONT_INSTANCE_X_XFTFONT(fi), + (XftChar16 *) run->ptr, run->len, &gi); + } else { + XftTextExtents8 (dpy, + FONT_INSTANCE_X_XFTFONT(fi), + run->ptr, run->len, &gi); + } + rect_height =3D rect_height > gi.height + ? rect_height : gi.height; +#endif + + XftDrawRect (xftDraw, &bg, + xpos, ypos, rect_width, rect_height); + } + = + if (runs[i].dimension =3D=3D 1) + XftDrawString8 (xftDraw, &fg, rf, xpos, dl->ypos, + runs[i].ptr, runs[i].len); + else + XftDrawString16 (xftDraw, &fg, rf, xpos, dl->ypos, + (XftChar16 *) runs[i].ptr, runs[i].len); + } + } +#endif + { + if (use_x_font) + { + if (need_clipping) + { + XRectangle clip_box[1]; + + clip_box[0].x =3D 0; + clip_box[0].y =3D 0; + clip_box[0].width =3D clip_end - clip_start; + clip_box[0].height =3D height; + + XSetClipRectangles (dpy, gc, clip_start, ypos, + clip_box, 1, YXBanded); + } + + if (runs[i].dimension =3D=3D 1) + (bgc ? XDrawString : XDrawImageString) + (dpy, x_win, gc, xpos, dl->ypos, + (char *) runs[i].ptr, runs[i].len); + else + (bgc ? XDrawString16 : XDrawImageString16) + (dpy, x_win, gc, xpos, dl->ypos, + (XChar2b *) runs[i].ptr, runs[i].len); + } + } = /* We draw underlines in the same color as the text. */ if (cachel->underline) { int upos, uthick; unsigned long upos_ext, uthick_ext; - XFontStruct *xfont; - - xfont =3D FONT_INSTANCE_X_FONT (XFONT_INSTANCE (font)); - if (!XGetFontProperty (xfont, XA_UNDERLINE_POSITION, &upos_ext)) - upos =3D dl->descent / 2; - else + XFontStruct *fs =3D + use_x_font ? FONT_INSTANCE_X_FONT (XFONT_INSTANCE (font)) : 0; + /* #### the logic of the next two may be suboptimal: we may want + to use the POSITION and/or THICKNESS information with Xft */ + if (fs && XGetFontProperty (fs, XA_UNDERLINE_POSITION, &upos_ext)) upos =3D (int) upos_ext; - if (!XGetFontProperty (xfont, XA_UNDERLINE_THICKNESS, &uthick_ext)) - uthick =3D 1; else + upos =3D dl->descent / 2; + if (fs && XGetFontProperty (fs, XA_UNDERLINE_THICKNESS, &uthick_ext)) uthick =3D (int) uthick_ext; - + else + uthick =3D 1; if (dl->ypos + upos < dl->ypos + dl->descent - dl->clip) { if (dl->ypos + upos + uthick > dl->ypos + dl->descent - dl->clip) @@ -1008,22 +1242,29 @@ x_output_string (struct window *w, struc { int ascent, descent, upos, uthick; unsigned long ascent_ext, descent_ext, uthick_ext; - XFontStruct *xfont; - - xfont =3D FONT_INSTANCE_X_FONT (XFONT_INSTANCE (font)); + XFontStruct *fs =3D FONT_INSTANCE_X_FONT (fi); = - if (!XGetFontProperty (xfont, XA_STRIKEOUT_ASCENT, &ascent_ext)) - ascent =3D xfont->ascent; - else - ascent =3D (int) ascent_ext; - if (!XGetFontProperty (xfont, XA_STRIKEOUT_DESCENT, &descent_ext)) - descent =3D xfont->descent; - else - descent =3D (int) descent_ext; - if (!XGetFontProperty (xfont, XA_UNDERLINE_THICKNESS, &uthick_ext)) - uthick =3D 1; + if (!use_x_font) + { + ascent =3D dl->ascent; + descent =3D dl->descent; + uthick =3D 1; + } else - uthick =3D (int) uthick_ext; + { + if (!XGetFontProperty (fs, XA_STRIKEOUT_ASCENT, &ascent_ext)) + ascent =3D fs->ascent; + else + ascent =3D (int) ascent_ext; + if (!XGetFontProperty (fs, XA_STRIKEOUT_DESCENT, &descent_ext)) + descent =3D fs->descent; + else + descent =3D (int) descent_ext; + if (!XGetFontProperty (fs, XA_UNDERLINE_THICKNESS, &uthick_ext)) + uthick =3D 1; + else + uthick =3D (int) uthick_ext; + } = upos =3D ascent - ((ascent + descent) / 2) + 1; = @@ -1046,37 +1287,88 @@ x_output_string (struct window *w, struc /* Restore the GC */ if (need_clipping) { - XSetClipMask (dpy, gc, None); - XSetClipOrigin (dpy, gc, 0, 0); +#ifdef USE_XFT + if (!use_x_font) + { + XftDrawSetClip(xftDraw, 0); + } + else + { +#endif + XSetClipMask (dpy, gc, None); + XSetClipOrigin (dpy, gc, 0, 0); +#ifdef USE_XFT + } +#endif } = /* If we are actually superimposing the cursor then redraw with just the appropriate section highlighted. */ if (cursor_clip && !cursor && focus && cursor_cachel) { - GC cgc; - XRectangle clip_box[1]; - - cgc =3D x_get_gc (d, font, cursor_cachel->foreground, - cursor_cachel->background, Qnil, Qnil); - - clip_box[0].x =3D 0; - clip_box[0].y =3D 0; - clip_box[0].width =3D cursor_width; - clip_box[0].height =3D height; - - XSetClipRectangles (dpy, cgc, cursor_start, DISPLAY_LINE_YPOS (dl), - clip_box, 1, Unsorted); - - if (runs[i].dimension =3D=3D 1) - XDrawImageString (dpy, x_win, cgc, xpos, dl->ypos, - (char *) runs[i].ptr, runs[i].len); - else - XDrawImageString16 (dpy, x_win, cgc, xpos, dl->ypos, - (XChar2b *) runs[i].ptr, runs[i].len); +#ifdef USE_XFT + if (!use_x_font) /* Xft */ + { + XftFont *rf =3D FONT_INSTANCE_X_XFTFONT (fi); + = + { /* set up clipping */ + Region clip_reg =3D XCreateRegion(); + XRectangle clip_box =3D { cursor_start, ypos, + cursor_width, height }; + = + XUnionRectWithRegion (&clip_box, clip_reg, clip_reg); = + XftDrawSetClip(xftDraw, clip_reg); + XDestroyRegion(clip_reg); + } + { /* draw background rectangle & draw text */ + int rect_height =3D FONT_INSTANCE_ASCENT(fi) + + FONT_INSTANCE_DESCENT(fi); + int rect_width =3D x_text_width_single_run(f, cachel, &runs[i]); + XftColor xft_color; + + xft_color =3D XFT_FROB_LISP_COLOR (cursor_cachel->background, 0); + XftDrawRect (xftDraw, &xft_color, + xpos, ypos, rect_width, rect_height); + + xft_color =3D XFT_FROB_LISP_COLOR (cursor_cachel->foreground, 0); + if (runs[i].dimension =3D=3D 1) + XftDrawString8 (xftDraw, &xft_color, rf, xpos, dl->ypos, + runs[i].ptr, runs[i].len); + else + XftDrawString16 (xftDraw, &xft_color, rf, xpos, dl->ypos, + (XftChar16 *) runs[i].ptr, runs[i].len); + } = - XSetClipMask (dpy, cgc, None); - XSetClipOrigin (dpy, cgc, 0, 0); + XftDrawSetClip(xftDraw, 0); + } + else /* core font, not Xft */ + { +#endif + GC cgc; + XRectangle clip_box[1]; + = + cgc =3D x_get_gc (d, font, cursor_cachel->foreground, + cursor_cachel->background, Qnil, Qnil); + + clip_box[0].x =3D 0; + clip_box[0].y =3D 0; + clip_box[0].width =3D cursor_width; + clip_box[0].height =3D height; + = + XSetClipRectangles (dpy, cgc, cursor_start, ypos, + clip_box, 1, YXBanded); + if (runs[i].dimension =3D=3D 1) + XDrawImageString (dpy, x_win, cgc, xpos, dl->ypos, + (char *) runs[i].ptr, runs[i].len); + else + XDrawImageString16 (dpy, x_win, cgc, xpos, dl->ypos, + (XChar2b *) runs[i].ptr, runs[i].len); + = + XSetClipMask (dpy, cgc, None); + XSetClipOrigin (dpy, cgc, 0, 0); +#ifdef USE_XFT + } +#endif } = xpos +=3D this_width; @@ -1102,11 +1394,11 @@ x_output_string (struct window *w, struc = This is bogus as all hell, however. The cursor handling in this function is way bogus and desperately needs to be - cleaned up. (In particular, the drawing of the cursor should + cleaned up. (In particular, the drawing of the cursor should really really be separated out of this function. This may be a bit tricky now because this function itself does way too much stuff, a lot of which needs to be moved into - redisplay.c) This is the only way to be able to easily add + redisplay.c.) This is the only way to be able to easily add new cursor types or (e.g.) make the bar cursor be able to span two characters instead of overlaying just one. */ int bogusly_obtained_ascent_value =3D @@ -1125,12 +1417,12 @@ x_output_string (struct window *w, struc = tmp_y =3D dl->ypos - bogusly_obtained_ascent_value; tmp_height =3D cursor_height; - if (tmp_y + tmp_height > (int) (DISPLAY_LINE_YPOS(dl) + height)) + if (tmp_y + tmp_height > (int) (ypos + height)) { - tmp_y =3D DISPLAY_LINE_YPOS (dl) + height - tmp_height; - if (tmp_y < (int) DISPLAY_LINE_YPOS (dl)) - tmp_y =3D DISPLAY_LINE_YPOS (dl); - tmp_height =3D DISPLAY_LINE_YPOS (dl) + height - tmp_y; + tmp_y =3D ypos + height - tmp_height; + if (tmp_y < (int) ypos) + tmp_y =3D ypos; + tmp_height =3D ypos + height - tmp_y; } = if (need_clipping) @@ -1141,7 +1433,8 @@ x_output_string (struct window *w, struc clip_box[0].width =3D clip_end - clip_start; clip_box[0].height =3D tmp_height; XSetClipRectangles (dpy, gc, clip_start, tmp_y, - clip_box, 1, Unsorted); + /* #### why not Unsorted? */ + clip_box, 1, YXBanded); } = if (!focus && NILP (bar_cursor_value)) @@ -1162,6 +1455,11 @@ x_output_string (struct window *w, struc XSetClipOrigin (dpy, gc, 0, 0); } } + +#ifdef USE_XFT +#undef XFT_FROB_LISP_COLOR +#endif + } = void @@ -1625,7 +1923,7 @@ x_generate_shadow_pixels (struct frame * topc.red =3D MINL (65535, (unsigned long) topc.red * 6 / 5); topc.green =3D MINL (65535, (unsigned long) topc.green * 6 / 5); topc.blue =3D MINL (65535, (unsigned long) topc.blue * 6 / 5); - if (allocate_nearest_color (dpy, cmap, visual, &topc)) + if (x_allocate_nearest_color (dpy, cmap, visual, &topc)) { *top_shadow =3D topc.pixel; top_frobbed =3D 1; @@ -1641,7 +1939,7 @@ x_generate_shadow_pixels (struct frame * botc.red =3D (unsigned short) ((unsigned long) botc.red * 3 / 5); botc.green =3D (unsigned short) ((unsigned long) botc.green * 3 / 5); botc.blue =3D (unsigned short) ((unsigned long) botc.blue * 3 / 5); - if (allocate_nearest_color (dpy, cmap, visual, &botc)) + if (x_allocate_nearest_color (dpy, cmap, visual, &botc)) { *bottom_shadow =3D botc.pixel; bottom_frobbed =3D 1; 1.98 +7 -3 XEmacs/xemacs/src/redisplay.c Index: redisplay.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay.c,v retrieving revision 1.97 retrieving revision 1.98 diff -u -p -r1.97 -r1.98 --- redisplay.c 2005/10/25 11:16:27 1.97 +++ redisplay.c 2005/11/26 11:46:10 1.98 @@ -4177,9 +4177,13 @@ tail_recurse: dash_pixsize =3D redisplay_text_width_string (w, findex, &ch, Qnil,= 0, 1); - - num_to_add =3D (max_pixsize - cur_pixsize) / dash_pi= xsize; - num_to_add++; + = + if (dash_pixsize =3D=3D 0) = + num_to_add =3D 0; + else { + num_to_add =3D (max_pixsize - cur_pixsize) / dash_pixsize; + num_to_add++; + } } = while (num_to_add--) 1.54 +4 -0 XEmacs/xemacs/src/symsinit.h Index: symsinit.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/symsinit.h,v retrieving revision 1.53 retrieving revision 1.54 diff -u -p -r1.53 -r1.54 --- symsinit.h 2005/10/04 17:51:24 1.53 +++ symsinit.h 2005/11/26 11:46:10 1.54 @@ -160,6 +160,7 @@ void syms_of_objects (void); void syms_of_objects_mswindows (void); void syms_of_objects_tty (void); void syms_of_objects_x (void); +void syms_of_xft_fonts (void); EXTERN_C void syms_of_postgresql (void); void syms_of_print (void); void syms_of_process (void); @@ -397,6 +398,8 @@ void reinit_vars_of_mule_wnn (void); void vars_of_nt (void); void vars_of_number (void); void vars_of_objects (void); +void vars_of_xft_fonts (void); +void reinit_vars_of_xft_fonts (void); void reinit_vars_of_objects (void); void vars_of_objects_tty (void); void vars_of_objects_mswindows (void); @@ -481,6 +484,7 @@ void complex_vars_of_emacs (void); void complex_vars_of_minibuf (void); void reinit_complex_vars_of_minibuf (void); void complex_vars_of_keymap (void); +void complex_vars_of_xft_fonts (void); = /* Late initialization -- stuff pertaining only to interactive usage, I/O, or Lisp reading. (Dump-time and run-time, but the code itself 1.12 +18 -10 XEmacs/xemacs/src/toolbar-common.c Index: toolbar-common.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/toolbar-common.c,v retrieving revision 1.11 retrieving revision 1.12 diff -u -p -r1.11 -r1.12 --- toolbar-common.c 2005/01/24 23:34:12 1.11 +++ toolbar-common.c 2005/11/26 11:46:11 1.12 @@ -144,7 +144,8 @@ static void __prepare_button_area (struc (w, toolbar_findex, sx + x_adj, sy + y_adj, swidth + width_adj, sheight + height_adj, abs(shadow_thickness), - EDGE_ALL, (shadow_thickness < 0) ? EDGE_BEVEL_IN : EDGE_BEVEL_OUT)= ); + EDGE_ALL, (shadow_thickness < 0) ? EDGE_BEVEL_IN + : EDGE_BEVEL_OUT)); } = /* Handle the borders... */ @@ -173,7 +174,7 @@ common_output_toolbar_button (struct fra struct window *w; int vertical =3D tb->vertical; int border_width =3D tb->border_width; - face_index toolbar_findex; + face_index button_findex; = if (vertical) { @@ -211,16 +212,23 @@ common_output_toolbar_button (struct fra shadow_thickness =3D 0; } = - toolbar_findex =3D get_builtin_face_cache_index (w, Vtoolbar_face); - - __prepare_button_area (f, tb); - /* #### It is currently possible for users to trash us by directly changing the toolbar glyphs. Avoid crashing in that case. */ if (GLYPHP (glyph)) - instance =3D glyph_image_instance (glyph, window, ERROR_ME_DEBUG_WARN,= 1); + { + /* WARNING: this interface may change */ + Lisp_Object face_list[2] =3D { XGLYPH_FACE (glyph), Vtoolbar_face }; + + button_findex =3D merge_face_list_to_cache_index (w, face_list, 2); + instance =3D glyph_image_instance (glyph, window, ERROR_ME_DEBUG_WAR= N, 1); + } else - instance =3D Qnil; + { + button_findex =3D get_builtin_face_cache_index (w, Vtoolbar_face); + instance =3D Qnil; + } + + __prepare_button_area (f, tb); = if (IMAGE_INSTANCEP (instance)) { @@ -263,7 +271,7 @@ common_output_toolbar_button (struct fra = redisplay_output_pixmap (w, instance, &db, &dga, = - toolbar_findex, 0, 0, 0, 0); + button_findex, 0, 0, 0, 0); } else if (IMAGE_INSTANCE_TYPE (p) =3D=3D IMAGE_TEXT) { @@ -309,7 +317,7 @@ common_output_toolbar_button (struct fra = MAYBE_DEVMETH (d, output_string, (w, &dl, buf, tb->x + x_offset, 0, 0, width, - toolbar_findex, 0, 0, 0, 0)); + button_findex, 0, 0, 0, 0)); Dynarr_free (buf); } = 1.13 +74 -42 XEmacs/xemacs/src/xgccache.c Index: xgccache.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/xgccache.c,v retrieving revision 1.12 retrieving revision 1.13 diff -u -p -r1.12 -r1.13 --- xgccache.c 2005/02/15 03:17:07 1.12 +++ xgccache.c 2005/11/26 11:46:11 1.13 @@ -158,6 +158,10 @@ gc_cache_lookup (struct gc_cache *cache, struct gc_cache_cell *cell, *next, *prev; struct gcv_and_mask gcvm; = +#ifdef DEBUG_XEMACS + (void) describe_gc_cache (cache, DGCCFLAG_DISABLE); +#endif + if ((!!cache->head) !=3D (!!cache->tail)) ABORT (); if (cache->head && (cache->head->prev || cache->tail->next)) ABORT (); = @@ -196,6 +200,9 @@ gc_cache_lookup (struct gc_cache *cache, will be less likely to be collected than a cell that was accessed less recently. */ +#if 0 + debug_out ("Returning cached GC: %08lx\n", XE_GCONTEXT(cell)); +#endif if (cell =3D=3D cache->tail) return cell->gc; = @@ -226,6 +233,7 @@ gc_cache_lookup (struct gc_cache *cache, cache->head =3D cell->next; cache->head->prev =3D 0; if (cache->tail =3D=3D cell) cache->tail =3D 0; /* only one */ + debug_out ("Cache full, freeing GC: %08lx\n ", XE_GCONTEXT(cell)); XFreeGC (cache->dpy, cell->gc); cache->delete_count++; #ifdef GCCACHE_HASH @@ -264,68 +272,92 @@ gc_cache_lookup (struct gc_cache *cache, /* debug */ assert (cell->gc =3D=3D gc_cache_lookup (cache, gcv, mask)); = +#if 0 + debug_out ("Returning new GC: %08lx\n ", XE_GCONTEXT(cell)); +#endif return cell->gc; } = =0C #ifdef DEBUG_XEMACS + +/* FLAGS + The flags argument is a bitwise or of any of the following: = -void describe_gc_cache (struct gc_cache *cache); + DGCCFLAG_SUMMARY Summary statistics for cache + DGCCFLAG_LIST_CELLS If summary is being printed, print cell IDs too. + DGCCFLAG_CELL_DETAILS If cell IDs are being printed, additionally + print the internal fields used and values. + + DGCCFLAG_DEFAULT A predefined combination giving whatever the + maintainers are currently interested in seeing. +*/ void -describe_gc_cache (struct gc_cache *cache) +describe_gc_cache (struct gc_cache *cache, int flags) { int count =3D 0; struct gc_cache_cell *cell =3D cache->head; + + if (! flags & DGCCFLAG_SUMMARY) return; + stderr_out ("\nsize: %d", cache->size); stderr_out ("\ncreated: %d", cache->create_count); stderr_out ("\ndeleted: %d", cache->delete_count); - while (cell) - { - struct gc_cache_cell *cell2; - int i =3D 0; - stderr_out ("\n%d:\t0x%lx GC: 0x%08lx hash: 0x%08lx\n", - count, (long) cell, (long) cell->gc, gc_cache_hash (&cell->gcvm)); - for (cell2 =3D cache->head; cell2; cell2 =3D cell2->next, i++) - if (count !=3D i && - gc_cache_hash (&cell->gcvm) =3D=3D gc_cache_hash (&cell2->gcvm)) - stderr_out ("\tHASH COLLISION with cell %d\n", i); - stderr_out ("\tmask: %8lx\n", cell->gcvm.mask); = + if (flags & DGCCFLAG_LIST_CELLS) + while (cell) + { + struct gc_cache_cell *cell2; + int i =3D 0; + stderr_out ("\n%d:\t0x%lx GC: 0x%08lx hash: 0x%08lx\n", + count, (long) cell, (long) XE_GCONTEXT(cell), + gc_cache_hash (&cell->gcvm)); + + for (cell2 =3D cache->head; cell2; cell2 =3D cell2->next, i++) + if (count !=3D i && + gc_cache_hash (&cell->gcvm) =3D=3D gc_cache_hash (&cell2->gcvm)) + stderr_out ("\tHASH COLLISION with cell %d\n", i); + stderr_out ("\tmask: %8lx\n", cell->gcvm.mask); + + if (flags & DGCCFLAG_CELL_DETAILS) + { #define FROB(field) do { \ if ((int)cell->gcvm.gcv.field !=3D (~0)) \ stderr_out ("\t%-12s%8x\n", #field ":", (int)cell->gcvm.gcv.field); \ } while (0) - FROB (function); - FROB (plane_mask); - FROB (foreground); - FROB (background); - FROB (line_width); - FROB (line_style); - FROB (cap_style); - FROB (join_style); - FROB (fill_style); - FROB (fill_rule); - FROB (arc_mode); - FROB (tile); - FROB (stipple); - FROB (ts_x_origin); - FROB (ts_y_origin); - FROB (font); - FROB (subwindow_mode); - FROB (graphics_exposures); - FROB (clip_x_origin); - FROB (clip_y_origin); - FROB (clip_mask); - FROB (dash_offset); + FROB (function); + FROB (plane_mask); + FROB (foreground); + FROB (background); + FROB (line_width); + FROB (line_style); + FROB (cap_style); + FROB (join_style); + FROB (fill_style); + FROB (fill_rule); + FROB (arc_mode); + FROB (tile); + FROB (stipple); + FROB (ts_x_origin); + FROB (ts_y_origin); + FROB (font); + FROB (subwindow_mode); + FROB (graphics_exposures); + FROB (clip_x_origin); + FROB (clip_y_origin); + FROB (clip_mask); + FROB (dash_offset); #undef FROB + } + + count++; + if (cell->next && cell =3D=3D cache->tail) + stderr_out ("\nERROR! tail is here!\n\n"); + else if (!cell->next && cell !=3D cache->tail) + stderr_out ("\nERROR! tail is not at the end\n\n"); + cell =3D cell->next; + } /* while (cell) */ = - count++; - if (cell->next && cell =3D=3D cache->tail) - stderr_out ("\nERROR! tail is here!\n\n"); - else if (!cell->next && cell !=3D cache->tail) - stderr_out ("\nERROR! tail is not at the end\n\n"); - cell =3D cell->next; - } if (count !=3D cache->size) stderr_out ("\nERROR! count should be %d\n\n", cache->size); } 1.5 +14 -0 XEmacs/xemacs/src/xgccache.h Index: xgccache.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/xgccache.h,v retrieving revision 1.4 retrieving revision 1.5 diff -u -p -r1.4 -r1.5 --- xgccache.h 2005/02/15 03:17:07 1.4 +++ xgccache.h 2005/11/26 11:46:11 1.5 @@ -31,4 +31,18 @@ struct gc_cache *make_gc_cache (Display = void free_gc_cache (struct gc_cache *cache); GC gc_cache_lookup (struct gc_cache *, XGCValues *, unsigned long mask); = +#define XE_GCONTEXT(cell) (XGContextFromGC(cell->gc)) + +#ifdef DEBUG_XEMACS + +void describe_gc_cache (struct gc_cache *cache, int flags); + +#define DGCCFLAG_DISABLE 0 +#define DGCCFLAG_SUMMARY 1 << 0 +#define DGCCFLAG_LIST_CELLS 1 << 1 +#define DGCCFLAG_CELL_DETAILS 1 << 2 +/* A combination of the flags above. */ +#define DGCCFLAG_DEFAULT DGCCFLAG_SUMMARY | DGCCFLAG_LIST_CELLS +#endif + #endif /* INCLUDED_xgccache_h_ */ 1.2 +843 -0 XEmacs/xemacs/src/xft-fonts.c Index: xft-fonts.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: xft-fonts.c diff -N xft-fonts.c --- /dev/null Sat Nov 26 12:46:04 2005 +++ /tmp/cvsAAAPhai_X Sat Nov 26 12:46:18 2005 @@ -0,0 +1,843 @@ +/* Lisp font handling implementation for X with Xft. + +Copyright (C) 2003 Eric Knauel and Matthias Neubauer +Copyright (C) 2005 Eric Knauel +Copyright (C) 2004, 2005 Free Software Foundation, Inc. + +Authors: Eric Knauel + Matthias Neubauer + Stephen J. Turnbull +Created: 27 Oct 2003 +Updated: 05 Mar 2005 by Stephen J. Turnbull + +This file is part of XEmacs. + +XEmacs is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by the +Free Software Foundation; either version 2, or (at your option) any +later version. + +XEmacs is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with XEmacs; see the file COPYING. If not, write to +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* Synched up with: Not in GNU Emacs. */ + +/* This module provides the Lisp interface to fonts in X11, including Xft, + but (at least at first) not GTK+ or Qt. + + It should be renamed to fonts-x.h. + + Sealevel code should be in ../lwlib/lwlib-fonts.c or + ../lwlib/lwlib-colors.c. +*/ + +#include +#include "lisp.h" +#include "device.h" +#include "device-impl.h" +#include "console-x-impl.h" +#include "objects-x.h" +#include "objects-x-impl.h" +#include "hash.h" +#include "xft-fonts.h" + +/* #### TO DO #### + . The "x-xft-*" and "x_xft_*" nomenclature is mostly redundant, especia= lly + if we separate X fonts from Xft fonts, and use fontconfig more genera= lly. + . We should support the most recent Xft first, old Xft libraries later. + . We may (think about it) wish to use fontconfig generally, even if we'= re + not using Xft. Either way, names that are really from fontconfig sho= uld + use the Fc* namespace. + . Mule-ize this file. + . Separate X Font Struct ops from Xft Font ops; give precedence to Xft = but + allow fallback to X. + . Push decisions about font choice, defaults, fallbacks to Lisp; if we + really need efficiency, can reimplement in C later. + . Implement symbols interned in this file in the Q* namespace. + . Implement FcMatrix (Lisp vector). + . Implement FcCharSets (Lisp chartable? For implementation hints, see + FcCharSetFirstPage and FcCharSetNextPage). + . Implement FcConfigs. + DONE + . Fontconfig fontnames are encoded in UTF-8. +*/ + +Lisp_Object Qxft_font; +Lisp_Object Qfc_patternp; +Lisp_Object Qfc_fontsetp; +/* Lisp_Object Qfc_result_match; */ /* FcResultMatch */ +Lisp_Object Qfc_result_type_mismatch; /* FcResultTypeMismatch */ +Lisp_Object Qfc_result_no_match; /* FcResultNoMatch */ +Lisp_Object Qfc_result_no_id; /* FcResultNoId */ +Lisp_Object Qfc_internal_error; +Lisp_Object Vxlfd_font_name_regexp; /* #### Really needed? */ +Lisp_Object Vxft_version; +/* Lisp_Object Vfc_version; */ /* #### Should have this, too! */ +Fixnum debug_xft; /* Set to 1 enables lots of obnoxious messages. + Setting it to 2 or 3 enables even more. */ + +/**************************************************************** +* FcPattern objects * +****************************************************************/ + +static void +finalize_fc_pattern (void *header, int UNUSED (for_disksave)) +{ + struct fc_pattern *p =3D (struct fc_pattern *) header; + if (p->fcpatPtr) + { + FcPatternDestroy (p->fcpatPtr); + p->fcpatPtr =3D 0; + } +} + +static const struct memory_description fcpattern_description [] =3D { + /* #### nothing here, is this right?? */ + { XD_END } +}; + +DEFINE_LRECORD_IMPLEMENTATION("fc-pattern", fc_pattern, + 0, 0, 0, finalize_fc_pattern, 0, 0, + fcpattern_description, + struct fc_pattern); + +/* + * Helper Functions + */ +static Lisp_Object make_xlfd_font_regexp (void); +static void string_list_to_fcobjectset (Lisp_Object list, FcObjectSet *os); + +/* = + extract the C representation of the Lisp string STR and convert it + to the encoding used by the Fontconfig API for property and font + names. I suppose that Qnative is the right encoding, the manual + doesn't say much about this topic. This functions assumes that STR + is a Lisp string. +*/ +#define extract_fcapi_string(str) \ + ((FcChar8 *) NEW_LISP_STRING_TO_EXTERNAL ((str), Qnative)) + +/* fontconfig assumes that objects (property names) are statically allocat= ed, + and you will get bizarre results if you pass Lisp string data or strings + allocated on the stack as objects. fontconfig _does_ copy values, so we + (I hope) don't have to worry about that member. + + Probably these functions don't get called so often that the memory leak + due to strdup'ing every time we add a property would matter, but XEmacs + _is_ a long-running process. So we hash them. + + I suspect that using symbol names or even keywords does not provide + assurance that the string won't move in memory. So we hash them + ourselves; hash.c hashtables do not interpret the value pointers. */ +static FcChar8 *fc_standard_properties[] =3D { + "antialias", "aspect", "autohint", "charset", "dpi", "family", "file", + "foundry", "ftface", "globaladvance", "hinting", "index", "lang", + "minspace", "outline", "pixelsize", "rasterizer", "rgba", "scalable", + "scale", "size", "slant", "spacing", "style", "verticallayout", "weight", + /* obsolete after Xft v. 1 */ + "charwidth", "charheight", "core", "encoding", "render" +}; + +static struct hash_table *fc_property_name_hash_table; + +/* #### Maybe fc_intern should be exposed to LISP? The idea is that + fc-pattern-add could warn or error if the property isn't interned. */ + +static FcChar8 * +fc_intern (Lisp_Object property) +{ + const void *dummy; + FcChar8 *prop =3D extract_fcapi_string (property); + const void *val =3D gethash (prop, fc_property_name_hash_table, &dummy); + + /* extract_fcapi_string returns something alloca'd + so we can just drop the old value of prop on the floor */ + if (val) + prop =3D (FcChar8 *) val; + else + { + prop =3D FcStrCopy (prop); + puthash (prop, NULL, fc_property_name_hash_table); + } + return prop; +} + +DEFUN("fc-pattern-p", Ffc_pattern_p, 1, 1, 0, /* +Returns t if OBJECT is of type fc-pattern, nil otherwise. +*/ + (object)) +{ + return FCPATTERNP(object) ? Qt : Qnil; +} + +DEFUN("fc-pattern-create", Ffc_pattern_create, 0, 0, 0, /* = +Return a new, empty fc-pattern object. +*/ + ()) +{ + fc_pattern *fcpat =3D + ALLOC_LCRECORD_TYPE (struct fc_pattern, &lrecord_fc_pattern); + + fcpat->fcpatPtr =3D FcPatternCreate(); + return wrap_fcpattern(fcpat); +} + +DEFUN("fc-name-parse", Ffc_name_parse, 1, 1, 0, /* +Parse an Fc font name and return its representation as a fc pattern object. +*/ + (name)) +{ + struct fc_pattern *fcpat =3D + ALLOC_LCRECORD_TYPE (struct fc_pattern, &lrecord_fc_pattern); + + CHECK_STRING(name); /* #### MEMORY LEAK!! maybe not ... */ + + fcpat->fcpatPtr =3D FcNameParse (extract_fcapi_string (name)); + return wrap_fcpattern(fcpat); +} + +/* #### Ga-a-ack! Xft's similar function is actually a different API. + We provide both. */ +DEFUN("fc-name-unparse", Ffc_name_unparse, 1, 1, 0, /* +Unparse an fc pattern object to a string. +*/ + (pattern)) +{ + CHECK_FCPATTERN(pattern); + { + FcChar8 *temp =3D FcNameUnparse(XFCPATTERN_PTR(pattern)); + Lisp_Object res =3D build_ext_string (temp, Qxft_font_name_encoding); + free (temp); + return res; + } +} + +#if 0 +/* #### This seems to not work? */ +DEFUN("xft-name-unparse", Fxft_name_unparse, 1, 1, 0, /* +Unparse an fc pattern object to a string (using the Xft API). +*/ + (pattern)) +{ + char temp[FCSTRLEN]; + Bool res; + + CHECK_FCPATTERN(pattern); + res =3D XftNameUnparse(XFCPATTERN_PTR(pattern), temp, FCSTRLEN-1); + return res ? build_ext_string (temp, Qxft_font_name_encoding) : Qnil; +} +#endif + +DEFUN("fc-pattern-duplicate", Ffc_pattern_duplicate, 1, 1, 0, /* = +Make a copy of the fc pattern object PATTERN and return it. +*/ + (pattern)) +{ + struct fc_pattern *copy =3D NULL; + CHECK_FCPATTERN(pattern); + + copy =3D ALLOC_LCRECORD_TYPE (struct fc_pattern, &lrecord_fc_pattern); + copy->fcpatPtr =3D FcPatternDuplicate(XFCPATTERN_PTR(pattern)); + return wrap_fcpattern(copy); +} + +DEFUN("fc-pattern-add", Ffc_pattern_add, 3, 3, 0, /* +Add attributes to the pattern object PATTERN. PROPERTY is a string naming +the attribute to add, VALUE the value for this attribute. + +VALUE may be a string, integer, float, or symbol, in which case the value +will be added as an FcChar8[], int, double, or FcBool respectively. +*/ + (pattern, property, value)) +{ + Bool res =3D 0; + Extbyte *obj; + FcPattern *fcpat; + + CHECK_FCPATTERN(pattern); + CHECK_STRING(property); + + obj =3D fc_intern (property); + fcpat =3D XFCPATTERN_PTR (pattern); + + if (STRINGP(value)) = + { + FcChar8 *str =3D (FcChar8 *) extract_fcapi_string (value); + res =3D FcPatternAddString (fcpat, obj, str); + } + else if (INTP(value)) = + { + res =3D FcPatternAddInteger (fcpat, obj, XINT(value)); + } + else if (FLOATP(value)) = + { + res =3D FcPatternAddDouble (fcpat, obj, (double) XFLOAT_DATA(value)); + } + else if (SYMBOLP(value)) = + { + res =3D FcPatternAddBool (fcpat, obj, !NILP(value)); + } + /* else ... maybe we should wta here? */ + + return res ? Qt : Qnil; +} + +DEFUN("fc-pattern-del", Ffc_pattern_del, 2, 2, 0, /* +Remove attribute PROPERTY from fc pattern object OBJECT. +*/ + (pattern, property)) +{ + Bool res; + + CHECK_FCPATTERN(pattern); + CHECK_STRING(property); + + res =3D FcPatternDel(XFCPATTERN_PTR(pattern), = + extract_fcapi_string (property)); + return res ? Qt : Qnil; +} + +/* Generic interface to FcPatternGet() + * Don't support the losing symbol-for-property interface. + */ +DEFUN("fc-pattern-get", Ffc_pattern_get, 2, 4, 0, /* +From PATTERN, extract PROPERTY for the ID'th member, of type TYPE. + +PATTERN is an Xft (fontconfig) pattern object. +PROPERTY is a string naming an fontconfig font property. +Optional ID is a nonnegative integer indexing the list of values for PROPE= RTY + stored in PATTERN, defaulting to 0 (the first value). +Optional TYPE is a symbol, one of 'string, 'boolean, 'integer, 'float, + 'double, 'matrix, 'charset, or 'void, corresponding to the FcValue types. + ('float is an alias for 'double). + +The Lisp types returned will conform to TYPE: + string string + boolean `t' or `nil' + integer integer + double (float) float + matrix not implemented + charset not implemented + void not implemented + +Symbols with names of the form "fc-result-DESCRIPTION" are returned when +the desired value is not available. These are + + fc-result-type-mismatch the value found has an unexpected type + fc-result-no-match there is no such attribute + fc-result-no-id there is no value for the requested ID + +The types of the following standard properties are predefined by fontconfi= g. +The symbol 'fc-result-type-mismatch will be returned if the object exists = but +TYPE does not match the predefined type. It is best not to specify a type +for predefined properties, as a mistake here ensures error returns on the +correct type. + +Each standard property has a convenience accessor defined in fontconfig.el, +named in the form "fc-pattern-get-PROPERTY". The convenience functions are +preferred to `fc-pattern-get' since a typo in the string naming a property +will result in a silent null return, while a typo in a function name will +usually result in a compiler or runtime \"not fboundp\" error. You may use +`defsubst' to define convenience functions for non-standard properties. + +family String Font family name = +style String Font style. Overrides weight and slant = +slant Int Italic, oblique or roman = +weight Int Light, medium, demibold, bold or black = +size Double Point size = +aspect Double Stretches glyphs horizontally before hinting = +pixelsize Double Pixel size = +spacing Int Proportional, monospace or charcell = +foundry String Font foundry name = +antialias Bool Whether glyphs can be antialiased = +hinting Bool Whether the rasterizer should use hinting = +verticallayout Bool Use vertical layout = +autohint Bool Use autohinter instead of normal hinter = +globaladvance Bool Use font global advance data = +file String The filename holding the font = +index Int The index of the font within the file = +ftface FT_Face Use the specified FreeType face object = +rasterizer String Which rasterizer is in use = +outline Bool Whether the glyphs are outlines = +scalable Bool Whether glyphs can be scaled = +scale Double Scale factor for point->pixel conversions = +dpi Double Target dots per inch = +rgba Int unknown, rgb, bgr, vrgb, vbgr, none - subpixel geom= etry = +minspace Bool Eliminate leading from line spacing = +charset CharSet Unicode chars encoded by the font = +lang String List of RFC-3066-style languages this font supports + +The FT_Face, Matrix, CharSet types are unimplemented, so the corresponding +properties are not accessible from Lisp at this time. If the value of a +property returned has type FT_Face, FcCharSet, or FcMatrix, +`fc-result-type-mismatch' is returned. + +The following properties which were standard in Xft v.1 are obsolete in +Xft v.2: encoding, charwidth, charheight, core, and render. */ + (pattern, property, id, type)) +{ + FcChar8 *fc_property; /* UExtbyte * */ + FcResult fc_result; + FcValue fc_value; + + /* + process arguments + */ + CHECK_FCPATTERN (pattern); + +#if 0 + /* Don't support the losing symbol-for-property interface. */ + property =3D SYMBOLP (property) ? symbol_name (XSYMBOL (property)) : pro= perty; +#endif + if (STRINGP (property)) + { + fc_property =3D (FcChar8 *) extract_fcapi_string (property); + } + else + { + /* if we allow symbols, this would need to be + list3 (Qlambda, list1 (Qobject), + list3 (Qor, list2 (Qstringp, Qobject), + list2 (Qsymbolp, Qobject))) + or something like that? */ + dead_wrong_type_argument (Qstringp, property); + } + + if (!NILP (id)) CHECK_NATNUM (id); + if (!NILP (type)) CHECK_SYMBOL (type); + + /* get property */ + fc_result =3D FcPatternGet (XFCPATTERN_PTR (pattern), + fc_property, + NILP (id) ? 0 : XINT(id), + &fc_value); + + switch (fc_result) + { + case FcResultMatch: + /* wrap it and return */ + switch (fc_value.type) + { + case FcTypeInteger: + return ((!NILP (type) && !EQ (type, Qinteger)) + ? Qfc_result_type_mismatch : make_int (fc_value.u.i)); + case FcTypeDouble: + return ((!NILP (type) && !EQ (type, intern ("double")) + && !EQ (type, Qfloat)) + ? Qfc_result_type_mismatch : make_float (fc_value.u.d)); + case FcTypeString: + return ((!NILP (type) && !EQ (type, Qstring)) + ? Qfc_result_type_mismatch + : build_ext_string (fc_value.u.s, Qxft_font_name_encoding)); + case FcTypeBool: + return ((!NILP (type) && !EQ (type, Qboolean)) + ? Qfc_result_type_mismatch : fc_value.u.b ? Qt : Qnil); + case FcTypeMatrix: + return Qfc_result_type_mismatch; + /* #### unimplemented + return ((!NILP (type) && !EQ (type, intern ("matrix"))) + ? Qfc_result_type_mismatch : make_int (fc_value.u.m)); + */ + case FcTypeCharSet: + return Qfc_result_type_mismatch; + /* #### unimplemented + return ((!NILP (type) && !EQ (type, intern ("charset"))) + ? Qfc_result_type_mismatch : make_int (fc_value.u.c)); + */ + } + case FcResultTypeMismatch: + return Qfc_result_type_mismatch; + case FcResultNoMatch: + return Qfc_result_no_match; + case FcResultNoId: + return Qfc_result_no_id; + default: + return Qfc_internal_error; + } +} + +#if 0 +/* #### delete this after some testing!! don't forget the DEFSUBR */ +/* #### This is a big mistake, no? --- crap, there's no implicit finalizer= */ +DEFUN("fc-pattern-destroy", Ffc_pattern_destroy, 1, 1, 0, /* +Explicitly deallocate a fc pattern object PATTERN. */ + (pattern)) +{ + CHECK_FCPATTERN(pattern); = + + /* paranoia strikes deep */ + if (XFCPATTERN_PTR(pattern)) + { + FcPatternDestroy(XFCPATTERN_PTR(pattern)); + XFCPATTERN_PTR(pattern) =3D 0; + } + return Qnil; +} +#endif + +DEFUN("fc-font-match", Ffc_font_match, 2, 2, 0, /* +Return the font on DEVICE that most closely matches PATTERN. + +DEVICE is an X11 device. +PATTERN is a fontconfig pattern object. +Returns a fontconfig pattern object representing the closest match to the +given pattern, or an error code. Possible error codes are +`fc-result-no-match' and `fc-result-no-id'. */ + (device, pattern)) +{ + Display *dpy; + FcResult res; + + struct fc_pattern *res_fcpat =3D + ALLOC_LCRECORD_TYPE (struct fc_pattern, &lrecord_fc_pattern); + CHECK_FCPATTERN(pattern); /* #### MEMORY LEAKS!!! */ + if (NILP(device)) + return Qnil; + CHECK_X_DEVICE(device); + if (!DEVICE_LIVE_P(XDEVICE(device))) + return Qnil; + + dpy =3D DEVICE_X_DISPLAY(XDEVICE(device)); + /* More Xft vs fontconfig brain damage? */ + res_fcpat->fcpatPtr =3D XftFontMatch(dpy, DefaultScreen (dpy), + XFCPATTERN_PTR(pattern), &res); + = + if (res_fcpat->fcpatPtr =3D=3D NULL) + switch (res) { + case FcResultNoMatch: + return Qfc_result_no_match; + case FcResultNoId: + return Qfc_result_no_id; + default: + return Qfc_internal_error; + } + else + return wrap_fcpattern(res_fcpat); +} + +/* NOTE NOTE NOTE This function destroys the FcFontSet passed to it. */ +static Lisp_Object +fontset_to_list (FcFontSet *fontset) +{ + int idx; + Lisp_Object fontlist =3D Qnil; + fc_pattern *fcpat; + + /* #### improve this error message */ + if (!fontset) + Fsignal (Qinvalid_state, + list1 (build_string ("failed to create FcFontSet"))); + for (idx =3D 0; idx < fontset->nfont; ++idx) + { + fcpat =3D = + ALLOC_LCRECORD_TYPE (struct fc_pattern, &lrecord_fc_pattern); + fcpat->fcpatPtr =3D FcPatternDuplicate (fontset->fonts[idx]); + fontlist =3D Fcons (wrap_fcpattern(fcpat), fontlist); + } + FcFontSetDestroy (fontset); + return fontlist; +} + +/* #### fix this name to correspond to Ben's new nomenclature */ +DEFUN("fc-list-fonts-pattern-objects", Ffc_list_fonts_pattern_objects, + 3, 3, 0, /* +Return a list of fonts on DEVICE that match PATTERN for PROPERTIES. +Each font is represented by a fontconfig pattern object. + +DEVICE is an X11 device. +PATTERN is a fontconfig pattern to be matched. +PROPERTIES is a list of property names (strings) that should match. + +#### DEVICE is unused, ignored, and may be removed if it's not needed to +match other font-listing APIs. */ + (UNUSED (device), pattern, properties)) +{ + FcObjectSet *os; + FcFontSet *fontset; + + CHECK_FCPATTERN (pattern); + CHECK_LIST (properties); + + os =3D FcObjectSetCreate (); + string_list_to_fcobjectset (properties, os); + /* #### why don't we need to do the "usual substitutions"? */ + fontset =3D FcFontList (NULL, XFCPATTERN_PTR (pattern), os); + FcObjectSetDestroy (os); + + return fontset_to_list (fontset); + +} + +/* #### maybe this can/should be folded into fc-list-fonts-pattern-objects= ? */ +DEFUN("fc-font-sort", Ffc_font_sort, 2, 4, 0, /* +Return a list of all fonts sorted by proximity to PATTERN. +Each font is represented by a fontconfig pattern object. + +DEVICE is an X11 device. +PATTERN is a fontconfig pattern to be matched. +Optional argument TRIM, if non-nil, means to trim trailing fonts that do n= ot +contribute new characters to the union repertoire. + +#### Optional argument NOSUB, if non-nil, suppresses some of the usual +property substitutions. DON'T USE THIS in production code, it is intended +for exploring behavior of fontconfig and will be removed when this code is +stable. + +#### DEVICE is unused, ignored, and may be removed if it's not needed to +match other font-listing APIs. */ + (UNUSED (device), pattern, trim, nosub)) +{ + CHECK_FCPATTERN (pattern); + + { + FcConfig *fcc =3D FcConfigGetCurrent(); + FcFontSet *fontset; + FcPattern *p =3D XFCPATTERN_PTR (pattern); + FcResult fcresult; + + if (NILP(nosub)) /* #### temporary debug hack */ + FcDefaultSubstitute (p); + FcConfigSubstitute (fcc, p, FcMatchPattern); + fontset =3D FcFontSort (fcc, p, !NILP(trim), NULL, &fcresult); + + return fontset_to_list (fontset); + } +} + +/* #### this actually is an Xft function, should split those out + or get rid of them entirely? */ +/* #### be consistent about argument order. */ +DEFUN("fc-font-real-pattern", Ffc_font_real_pattern, 2, 2, 0, /* +Temporarily open FONTNAME (a string) and return the actual +fc pattern matched by the Fc library. */ + (fontname, xdevice)) +{ + FcPattern *copy; + Display *dpy; + XftFont *font; + struct fc_pattern *fcpat =3D + ALLOC_LCRECORD_TYPE (struct fc_pattern, &lrecord_fc_pattern); + + CHECK_STRING (fontname); /* #### MEMORY LEAK?! maybe not ... */ + if (NILP(xdevice)) + return Qnil; + CHECK_X_DEVICE (xdevice); + if (!DEVICE_LIVE_P(XDEVICE(xdevice))) + return Qnil; + + /* #### these gymnastics should be unnecessary, just use FcFontMatch */ + dpy =3D DEVICE_X_DISPLAY (XDEVICE (xdevice)); + font =3D XftFontOpenName (dpy, DefaultScreen(dpy), + extract_fcapi_string (fontname)); + if (font =3D=3D NULL) + return Qnil; + copy =3D FcPatternDuplicate(font->pattern); + XftFontClose(dpy, font); = + if (copy =3D=3D NULL) + return Qnil; + fcpat->fcpatPtr =3D copy; + return wrap_fcpattern(fcpat); +} + +DEFUN("xlfd-font-name-p", Fxlfd_font_name_p, 1, 1, 0, /* +Check whether the string FONTNAME is a XLFD font name. */ + (fontname)) +{ + CHECK_STRING(fontname); + /* #### should bind `case-fold-search' here? */ + return Fstring_match(Vxlfd_font_name_regexp, fontname, Qnil, Qnil); +} + +/* FcPatternPrint: there is no point in having wrappers fc-pattern-print, + Ffc_pattern_print since this function prints to stdout. */ + +/* Initialization of xft-fonts */ + +#define XE_XLFD_SEPARATOR "-" + /* XLFD specifies ISO 8859-1 encoding, but we can't handle non-ASCII + in Mule when this function is called. So use HPC. */ +#if 0 +#define XE_XLFD_PREFIX "\$\\+[\040-\176\240-\377]*\$?-" +#define XE_XLFD_OPT_TEXT "\$[\040-\044\046-\176\240-\377]*\$" +#define XE_XLFD_TEXT "\$[\040-\044\046-\176\240-\377]+\$" +#else +#define XE_XLFD_PREFIX "\$\\+[\040-\176]*\$?-" +#define XE_XLFD_OPT_TEXT "\$[^-]*\$" +#define XE_XLFD_TEXT "\$[^-]+\$" +#endif + +#define XE_XLFD_SLANT "\$[0-9ior?*][iot]?\$" +#define XE_XLFD_SPACING "\$[cmp?*]\$" + /* Hyphen as minus conflicts with use as separator. */ +#define XE_XLFD_OPT_NEGATE "~?" +#define XE_XLFD_NUMBER "\$[0-9?*]+\$" +#define XE_XLFD_PSIZE "\$[0-9?*]+\\|\\[[ 0-9+~.e?*]+\\]\$" + = +/* Call this only from the init code + #### This is really horrible, let's get rid of it, please. */ +static Lisp_Object +make_xlfd_font_regexp (void) +{ + struct gcpro gcpro1; + unsigned i; + Lisp_Object reg =3D Qnil; + const Extbyte *re[] =3D /* #### This could just be catenated by + cpp and passed to build_ext_string. */ + { + /* Regular expression matching XLFDs as defined by XLFD v. 1.5. + Matches must be case-insensitive. + PSIZE is a pixel or point size, which may be a "matrix". The + syntax of a matrix is not checked, just some lexical properties. + AFAICT none of the TEXT fields except adstyle is optional. + + NB. It should not be a problem if this matches "too much", since + an "old" server will simply not be able to find a matching font. */ + "\\`", + XE_XLFD_PREFIX, /* prefix */ + XE_XLFD_TEXT, /* foundry */ + XE_XLFD_SEPARATOR, + XE_XLFD_TEXT, /* family */ + XE_XLFD_SEPARATOR, + XE_XLFD_TEXT, /* weight */ + XE_XLFD_SEPARATOR, + XE_XLFD_SLANT, /* slant */ + XE_XLFD_SEPARATOR, + XE_XLFD_TEXT, /* swidth */ + XE_XLFD_SEPARATOR, + XE_XLFD_OPT_TEXT, /* adstyle */ + XE_XLFD_SEPARATOR, + XE_XLFD_PSIZE, /* pixelsize */ + XE_XLFD_SEPARATOR, + XE_XLFD_PSIZE, /* pointsize */ + XE_XLFD_SEPARATOR, + XE_XLFD_NUMBER, /* resx */ + XE_XLFD_SEPARATOR, + XE_XLFD_NUMBER, /* resy */ + XE_XLFD_SEPARATOR, + XE_XLFD_SPACING, /* spacing */ + XE_XLFD_SEPARATOR, + XE_XLFD_OPT_NEGATE, /* avgwidth */ + XE_XLFD_NUMBER, + XE_XLFD_SEPARATOR, + XE_XLFD_TEXT, /* registry */ + XE_XLFD_SEPARATOR, + XE_XLFD_TEXT, /* encoding */ + "\\'" + }; + = + GCPRO1 (reg); = + for (i =3D 0; i < sizeof(re)/sizeof(Extbyte *); i++) + { + /* #### Currently this is Host Portable Coding, not ISO 8859-1. */ + reg =3D concat2(reg, build_ext_string (re[i], Qx_font_name_encoding)= ); + } + + RETURN_UNGCPRO (reg); +} +#undef XE_XLFD_SEPARATOR +#undef XE_XLFD_PREFIX +#undef XE_XLFD_OPT_TEXT +#undef XE_XLFD_TEXT +#undef XE_XLFD_OPT_SLANT +#undef XE_XLFD_OPT_SPACING +#undef XE_XLFD_OPT_NEGATE +#undef XE_XLFD_NUMBER +#undef XE_XLFD_PSIZE + +#define MINL(x,y) ((((unsigned long) (x)) < ((unsigned long) (y))) \ + ? ((unsigned long) (x)) : ((unsigned long) (y))) + +static void = +string_list_to_fcobjectset (Lisp_Object list, FcObjectSet *os) +{ + EXTERNAL_LIST_LOOP_2 (elt, list) + { + FcChar8 *s; + + CHECK_STRING (elt); + s =3D fc_intern (elt); + fprintf (stderr, "%s\n", s); + FcObjectSetAdd (os, s); + } +} + +void +syms_of_xft_fonts (void) +{ + INIT_LRECORD_IMPLEMENTATION(fc_pattern); + + DEFSYMBOL_MULTIWORD_PREDICATE(Qfc_patternp); + + DEFSYMBOL(Qfc_result_type_mismatch); + DEFSYMBOL(Qfc_result_no_match); + DEFSYMBOL(Qfc_result_no_id); + DEFSYMBOL(Qfc_internal_error); + DEFSYMBOL(Qxft_font); + + DEFSUBR(Ffc_pattern_p); + DEFSUBR(Ffc_pattern_create); + DEFSUBR(Ffc_name_parse); + DEFSUBR(Ffc_name_unparse); + DEFSUBR(Fxft_name_unparse); /* URK! */ + DEFSUBR(Ffc_pattern_duplicate); + DEFSUBR(Ffc_pattern_add); + DEFSUBR(Ffc_pattern_del); + DEFSUBR(Ffc_pattern_get); +#if 0 + DEFSUBR(Ffc_pattern_destroy); +#endif + DEFSUBR(Ffc_list_fonts_pattern_objects); + DEFSUBR(Ffc_font_sort); + DEFSUBR(Ffc_font_match); + DEFSUBR(Ffc_font_real_pattern); + DEFSUBR(Fxlfd_font_name_p); +} + +void +vars_of_xft_fonts (void) +{ + /* #### I know, but the right fix is use the generic debug facility. */ + DEFVAR_INT ("xft-debug-level", &debug_xft /* +Level of debugging messages to issue to stderr for Xft. +A nonnegative integer. Set to 0 to suppress all warnings. +Default is 1 to ensure a minimum of debugging output at initialization. +Higher levels give even more information. +*/ ); + debug_xft =3D 1; + + DEFVAR_LISP("xft-version", &Vxft_version /* +The major version number of the Xft library being used. +*/ ); + Vxft_version =3D make_int(XFT_VERSION); + + Fprovide (intern ("xft")); +} + +void +complex_vars_of_xft_fonts (void) +{ + DEFVAR_LISP("xft-xlfd-font-regexp", &Vxlfd_font_name_regexp /* +The regular expression used to match XLFD font names. */ = + ); + Vxlfd_font_name_regexp =3D make_xlfd_font_regexp(); +} + +void +reinit_vars_of_xft_fonts (void) +{ + int i, size =3D (int) countof (fc_standard_properties); + = + FcInit (); + + fc_property_name_hash_table =3D make_string_hash_table (size); + for (i =3D 0; i < size; ++i) + puthash (fc_standard_properties[i], NULL, fc_property_name_hash_table); +} + 1.2 +71 -0 XEmacs/xemacs/src/xft-fonts.h Index: xft-fonts.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: xft-fonts.h diff -N xft-fonts.h --- /dev/null Sat Nov 26 12:46:04 2005 +++ /tmp/cvsAAAWjaG_X Sat Nov 26 12:46:18 2005 @@ -0,0 +1,71 @@ +/* Lisp font data structures for X and Xft. + +Copyright (C) 2003 Eric Knauel and Matthias Neubauer +Copyright (C) 2005 Eric Knauel +Copyright (C) 2004, 2005 Free Software Foundation, Inc. + +Authors: Eric Knauel + Matthias Neubauer + Stephen J. Turnbull +Created: 27 Oct 2003 +Updated: 05 Mar 2005 by Stephen J. Turnbull + +This file is part of XEmacs. + +XEmacs is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by the +Free Software Foundation; either version 2, or (at your option) any +later version. + +XEmacs is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with XEmacs; see the file COPYING. If not, write to +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* Synched up with: Not in GNU Emacs. */ + +/* This module provides the Lisp interface to fonts in X11, including Xft, + but (at least at first) not GTK+ or Qt. + + It should be renamed to fonts-x.h. + + Sealevel code should be in ../lwlib/lwlib-fonts.h or + ../lwlib/lwlib-colors.h. +*/ + + +#ifndef INCLUDED_xft_fonts_h_ +#define INCLUDED_xft_fonts_h_ + +#include "../lwlib/lwlib-fonts.h" +#include "../lwlib/lwlib-colors.h" + +extern Fixnum debug_xft; + +/* Standard for fontconfig. Use a macro to show we're not guessing. */ +#define Qxft_font_name_encoding Qutf_8 + +#define XE_XLFD_MAKE_LISP_STRING(s) (make_string(s, strlen(s))) + +struct fc_pattern +{ + struct LCRECORD_HEADER header; + FcPattern *fcpatPtr; +}; + +typedef struct fc_pattern fc_pattern; + +DECLARE_LRECORD(fc_pattern, struct fc_pattern); +#define XFCPATTERN(x) XRECORD (x, fc_pattern, struct fc_pattern) +#define wrap_fcpattern(p) wrap_record (p, fc_pattern) +#define FCPATTERNP(x) RECORDP (x, fc_pattern) +#define CHECK_FCPATTERN(x) CHECK_RECORD (x, fc_pattern) +#define CONCHECK_FCPATTERN(x) CONCHECK_RECORD (x, fc_pattern) +#define XFCPATTERN_PTR(x) (XFCPATTERN(x)->fcpatPtr) + +#endif /* INCLUDED_xft_fonts_h_ */ 1.72 +8 -3 XEmacs/xemacs/man/internals/internals.texi Index: internals.texi =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/man/internals/internals.texi,v retrieving revision 1.71 retrieving revision 1.72 diff -u -p -r1.71 -r1.72 --- internals.texi 2005/11/16 11:54:10 1.71 +++ internals.texi 2005/11/26 11:46:22 1.72 @@ -5114,10 +5114,15 @@ are constants whose value is a symbol. = be derived from the name of the symbol using the same rules as for Lisp primitives. Such variables allow the C code to check whether a particular @code{Lisp_Object} is equal to a given symbol. Symbols are -Lisp objects, so these variables may be passed to Lisp primitives. (An -alternative to the use of @samp{Q...} variables is to call the +Lisp objects, so these variables may be passed to Lisp primitives. (A +tempting alternative to the use of @samp{Q...} variables is to call the @code{intern} function at initialization in the -(a)code{vars_of_(a)var{module}} function, which is hardly less efficient.) +(a)code{vars_of_(a)var{module}} function. But this does not +(a)code{staticpro} the symbol, which in theory could get uninterned, and +then garbage collected while you're not looking. You could +(a)code{staticpro} yourself, but in a production XEmacs @code{intern} and +(a)code{staticpro} is all that @code{DEFSYMBOL} does, while in a debugging +XEmacs it also does some error-checking, which you normally want.) = @strong{Convention}: Global variables whose names begin with @samp{V} are variables that contain Lisp objects. The convention here is that 1.3 +1 -0 XEmacs/xemacs/tests/autoconf/regressiontest.pl Index: regressiontest.pl =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/tests/autoconf/regressiontest.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- regressiontest.pl 2005/03/11 11:20:34 1.2 +++ regressiontest.pl 2005/11/26 11:46:25 1.3 @@ -83,6 +83,7 @@ my %config_args =3D "--libdir=3D/tmp/foo" =3D> undef, "--exec-prefix=3D/tmp/foo" =3D> undef, "--with-athena=3D3d" =3D> undef, + "--with-mule --with-xft=3Demacs --debug --error-checking=3Dall --with-x= im=3Dxlib --with-widgets=3Dathena --with-athena=3D3d --with-dialogs=3Dathen= a --memory-usage-stats --use-number-lib=3Dgmp --site-prefixes=3D/opt/local:= /sw --with-ldap=3Dno --use-union-type" =3D> "--enable-mule --with-xft=3Dema= cs --enable-debug --enable-error-checking=3Dall --with-xim=3Dxlib --enable-= widgets=3Dathena --with-athena=3D3d --enable-dialogs=3Dathena --enable-memo= ry-usage-stats --enable-bignum=3Dgmp --with-site-prefixes=3D/opt/local:/sw = --with-ldap=3Dno --enable-union-type" ); = die "Usage: $0 /path/to/configure-2.13 /path/to/configure-2.59\n" if scala= r(@ARGV) !=3D 2; --===============0449510479679402564==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============2029057729974744097==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/src ... Date: 2005-11-26 12:09:40 +0000 Message-ID: <20051126120940.28779.qmail@sunsite.dk> --===============2029057729974744097== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/26 13:09:40 Modified: xemacs/src depend Log: Xft merge (generated files configure and src/depend. <87k6ev4p8q.fsf(a)tleepslib.sk.tsukuba.ac.jp>) Revision Changes Path 1.262 +693 -3 XEmacs/xemacs/configure Index: configure =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v retrieving revision 1.261 retrieving revision 1.262 diff -u -p -r1.261 -r1.262 --- configure 2005/11/25 01:41:32 1.261 +++ configure 2005/11/26 12:09:23 1.262 @@ -991,6 +991,13 @@ Run-time path-searching options Window-system options --------------------- = + --with-xft Compile with support for Xft client-side font + rendering and anti-aliasing. Components that can= use + Xft are `emacs' (buffers), `menubars', `tabs', a= nd + `gauges'. Prefix component with `no' to disable = its + use of Xft. Requires X11, Xft, Xrender, freetype, + and fontconfig support. Default is + `emacs,menubars,tabs,gauges'. --with-gtk Support GTK on the X Window System. (EXPERIMENTA= L) --with-gnome Support GNOME on the X Window System. (EXPERIMEN= TAL) --with-msw Support MS Windows as a window system (only under @@ -1092,9 +1099,9 @@ Internationalization options --with-wnn6 Support the Wnn6 Asian language input method (proprietary). Requires Mule. --with-xfs Enable XFontSet support for internationalized - menubar. Incompatible with `--with-xim=3Dmotif'. - `--with-menubars=3Dlucid' (the default) is - desirable. + menubar. Incompatible with `--with-xim=3Dmotif' = and + `--with-xft'. `--with-menubars=3Dlucid' (the + default) is desirable. = File-related options -------------------- @@ -2256,6 +2263,84 @@ _ACEOF = fi; = +_xft_notfirst=3D"" +with_xft_emacs=3Dyes +enable_xft_emacs=3Dyes +with_xft_menubars=3Dyes +enable_xft_menubars=3Dyes +with_xft_tabs=3Dyes +enable_xft_tabs=3Dyes +with_xft_gauges=3Dyes +enable_xft_gauges=3Dyes + +_xft_types=3D"emacs menubars tabs gauges" +_xft_default=3D"emacs,menubars,tabs,gauges" + + + +# If --with-xft or --without-xft were given then copy the value to the +# equivalent enable_xft variable. +if test "${with_xft+set}" =3D set; then + enable_xft=3D"$with_xft" +fi; +# If -enable-xft or --disable-xft were given then copy the value to the +# equivalent with_xft variable. +if test "${enable_xft+set}" =3D set; then + with_xft=3D"$enable_xft" +fi; +# Check whether --with-xft or --without-xft was given. +if test "${with_xft+set}" =3D set; then + enableval=3D"$with_xft" + withval=3D"$with_xft" + for y in $_xft_types; do + eval "with_xft_$y=3Dno" + eval "enable_xft_$y=3Dno" +done +for x in `echo "$with_xft" | sed -e 's/,/ /g'` ; do + _xft_all_default=3D"" + _xft_found=3D"" + case "$x" in + n | no | non | none ) _xft_all_default=3Dno ;; + a | al | all | both ) _xft_all_default=3Dyes ;; + esac + + if test -z "$_xft_all_default"; then + for y in $_xft_types; do + if test "$x" =3D "$y"; then + _xft_found=3Dyes + eval "with_xft_$y=3Dyes" + eval "enable_xft_$y=3Dyes" + elif test "$x" =3D "no$y"; then + _xft_found=3Dyes + eval "with_xft_$y=3Dno" + eval "enable_xft_$y=3Dno" + fi + done + test -z "$_xft_found" && _xft_bogus=3Dyes + fi + if test "$_xft_bogus" =3D "yes" -o \ + $ -n "$_xft_all_default" -a -n "$_xft_notfirst" $ ; then + (echo "$progname: Usage error:" +echo " " "Valid values for the --with-xft option are: +$_xft_types. With prefix \"no\", switch it off. +Defaults may be overridden with \`all' or \`none' first in the list. +Hardcoded default is: $_xft_default." +echo " Use \`$progname --help' to show usage.") >&2 && exit 1 + elif test -n "$_xft_all_default" ; then + for y in $_xft_types; do + eval "with_xft_$y=3D$_xft_all_default" + eval "enable_xft_$y=3D$_xft_all_default" + done + fi + _xft_notfirst=3Dyes +done +unset _xft_bogus _xft_found _xft_notfirst _xft_types +unset _xft_default _xft_all_default x y + + + +fi; + , ) # If --with-gtk or --without-gtk were given then copy the value to the # equivalent enable_gtk variable. if test "${with_gtk+set}" =3D set; then @@ -3786,6 +3871,19 @@ elif test "$with_cde" =3D "yes"; then with fi = = +if test $ "$with_xft_menubars" =3D "yes" -o "$with_xft_tabs" =3D "yes" \ + -o "$with_xft_gauges" =3D "yes" $ -a "$with_xft_emacs" =3D "no= "; then + { echo "$as_me:$LINENO: WARNING: Forcing --with-xft=3Demacs because Xf= t is enabled" >&5 +echo "$as_me: WARNING: Forcing --with-xft=3Demacs because Xft is enabled" = >&2;} + with_xft_emacs=3Dyes +fi + +if test "$with_xfs" =3D "yes" -a "$with_xft_menubars" =3D "yes"; then + (echo "$progname: Usage error:" +echo " " "XFS and Xft in the menubars are incompatible!" +echo " Use \`$progname --help' to show usage.") >&2 && exit 1 +fi + test "x$prefix" =3D xNONE && prefix=3D$ac_default_prefix # Let make expand exec_prefix. if test "x$exec_prefix" =3D xNONE @@ -18995,6 +19093,548 @@ fi fi fi = + + if test "$with_xft_emacs" =3D "yes"; then + { echo "$as_me:$LINENO: checking for Xrender, fontconfig, and Xft..." = >&5 +echo "$as_me: checking for Xrender, fontconfig, and Xft..." >&6;} + xft_includes_found=3Dno + +for ac_header in freetype/config/ftheader.h +do +as_ac_Header=3D`echo "ac_cv_header_$ac_header" | $as_tr_sh` +if eval "test \"\${$as_ac_Header+set}\" =3D set"; then + echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" =3D set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 +else + # Is the header compilable? +echo "$as_me:$LINENO: checking $ac_header usability" >&5 +echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_includes_default +#include <$ac_header> +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=3D$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); } && + { ac_try=3D'test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=3D$? + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try=3D'test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=3D$? + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); }; }; then + ac_header_compiler=3Dyes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_header_compiler=3Dno +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 +echo "${ECHO_T}$ac_header_compiler" >&6 + +# Is the header present? +echo "$as_me:$LINENO: checking $ac_header presence" >&5 +echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include <$ac_header> +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=3D$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=3D$ac_c_preproc_warn_flag + ac_cpp_err=3D$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err=3D + fi +else + ac_cpp_err=3Dyes +fi +if test -z "$ac_cpp_err"; then + ac_header_preproc=3Dyes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_header_preproc=3Dno +fi +rm -f conftest.err conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 +echo "${ECHO_T}$ac_header_preproc" >&6 + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in + yes:no: ) + { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler,= rejected by the preprocessor!" >&5 +echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by t= he preprocessor!" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compi= ler's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" = >&2;} + ac_header_preproc=3Dyes + ;; + no:yes:* ) + { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be com= piled" >&5 +echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing pre= requisite headers?" >&5 +echo "$as_me: WARNING: $ac_header: check for missing prerequisite head= ers?" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf document= ation" >&5 +echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But= Cannot Be Compiled\"" >&5 +echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Com= piled\"" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the prepr= ocessor's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's resu= lt" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compil= er will take precedence" >&5 +echo "$as_me: WARNING: $ac_header: in the future, the compiler will take p= recedence" >&2;} + ( + cat <<\_ASBOX +## ------------------------------------- ## +## Report this to xemacs-beta(a)xemacs.org ## +## ------------------------------------- ## +_ASBOX + ) | + sed "s/^/$as_me: WARNING: /" >&2 + ;; +esac +echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" =3D set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + eval "$as_ac_Header=3D\$ac_header_preproc" +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 + +fi +if test `eval echo '${'$as_ac_Header'}'` =3D yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + xft_includes_found=3Dyes +else + + for freetype_include_top in "/usr/X11R6/include/freetype= 2" \ + "/usr/include/freetype2" + do + if test -d $freetype_include_top; then + { echo "$as_me:$LINENO: checking in ${freetype_include_top}/freetype2..= ." >&5 +echo "$as_me: checking in ${freetype_include_top}/freetype2..." >&6;} + unset "$as_ac_Header" + save_c_switch_site=3D"$c_switch_site" + c_switch_site=3D"$c_switch_site -I${freetype_include_top}" + +for ac_header in freetype/config/ftheader.h +do +as_ac_Header=3D`echo "ac_cv_header_$ac_header" | $as_tr_sh` +if eval "test \"\${$as_ac_Header+set}\" =3D set"; then + echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" =3D set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 +else + # Is the header compilable? +echo "$as_me:$LINENO: checking $ac_header usability" >&5 +echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +$ac_includes_default +#include <$ac_header> +_ACEOF +rm -f conftest.$ac_objext +if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 + (eval $ac_compile) 2>conftest.er1 + ac_status=3D$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); } && + { ac_try=3D'test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=3D$? + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try=3D'test -s conftest.$ac_objext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=3D$? + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); }; }; then + ac_header_compiler=3Dyes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_header_compiler=3Dno +fi +rm -f conftest.err conftest.$ac_objext conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 +echo "${ECHO_T}$ac_header_compiler" >&6 + +# Is the header present? +echo "$as_me:$LINENO: checking $ac_header presence" >&5 +echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6 +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include <$ac_header> +_ACEOF +if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 + (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 + ac_status=3D$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); } >/dev/null; then + if test -s conftest.err; then + ac_cpp_err=3D$ac_c_preproc_warn_flag + ac_cpp_err=3D$ac_cpp_err$ac_c_werror_flag + else + ac_cpp_err=3D + fi +else + ac_cpp_err=3Dyes +fi +if test -z "$ac_cpp_err"; then + ac_header_preproc=3Dyes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_header_preproc=3Dno +fi +rm -f conftest.err conftest.$ac_ext +echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 +echo "${ECHO_T}$ac_header_preproc" >&6 + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in + yes:no: ) + { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler,= rejected by the preprocessor!" >&5 +echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by t= he preprocessor!" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compi= ler's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" = >&2;} + ac_header_preproc=3Dyes + ;; + no:yes:* ) + { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be com= piled" >&5 +echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing pre= requisite headers?" >&5 +echo "$as_me: WARNING: $ac_header: check for missing prerequisite head= ers?" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf document= ation" >&5 +echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But= Cannot Be Compiled\"" >&5 +echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Com= piled\"" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the prepr= ocessor's result" >&5 +echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's resu= lt" >&2;} + { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compil= er will take precedence" >&5 +echo "$as_me: WARNING: $ac_header: in the future, the compiler will take p= recedence" >&2;} + ( + cat <<\_ASBOX +## ------------------------------------- ## +## Report this to xemacs-beta(a)xemacs.org ## +## ------------------------------------- ## +_ASBOX + ) | + sed "s/^/$as_me: WARNING: /" >&2 + ;; +esac +echo "$as_me:$LINENO: checking for $ac_header" >&5 +echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 +if eval "test \"\${$as_ac_Header+set}\" =3D set"; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + eval "$as_ac_Header=3D\$ac_header_preproc" +fi +echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 +echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 + +fi +if test `eval echo '${'$as_ac_Header'}'` =3D yes; then + cat >>confdefs.h <<_ACEOF +#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + xft_includes_found=3Dyes +else + c_switch_site=3D$save_c_switch_site +fi + +done + + fi + done + if test "$xft_includes_found" !=3D "yes"; then + { echo "Error:" "Unable to find headers for --with-xft" >&2; exit = 1; } + else + echo "$as_me:$LINENO: checking for XRenderQueryExtension in -lXren= der" >&5 +echo $ECHO_N "checking for XRenderQueryExtension in -lXrender... $ECHO_C" = >&6 +if test "${ac_cv_lib_Xrender_XRenderQueryExtension+set}" =3D set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=3D$LIBS +LIBS=3D"-lXrender $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char XRenderQueryExtension (); +int +main () +{ +XRenderQueryExtension (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=3D$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); } && + { ac_try=3D'test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=3D$? + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try=3D'test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=3D$? + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_Xrender_XRenderQueryExtension=3Dyes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_Xrender_XRenderQueryExtension=3Dno +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=3D$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_Xrender_XRenderQueryExtension" >&5 +echo "${ECHO_T}$ac_cv_lib_Xrender_XRenderQueryExtension" >&6 +if test $ac_cv_lib_Xrender_XRenderQueryExtension =3D yes; then + libs_x=3D"-lXrender $libs_x" && if test "$verbose" =3D "yes"; then echo= " Prepending \"-lXrender\" to \$libs_x"; fi +else + { echo "Error:" "Unable to find libXrender for --with-xft" >&2; exit 1; } +fi + + echo "$as_me:$LINENO: checking for FcPatternCreate in -lfontconfig= " >&5 +echo $ECHO_N "checking for FcPatternCreate in -lfontconfig... $ECHO_C" >&6 +if test "${ac_cv_lib_fontconfig_FcPatternCreate+set}" =3D set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=3D$LIBS +LIBS=3D"-lfontconfig $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char FcPatternCreate (); +int +main () +{ +FcPatternCreate (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=3D$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); } && + { ac_try=3D'test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=3D$? + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try=3D'test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=3D$? + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_fontconfig_FcPatternCreate=3Dyes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_fontconfig_FcPatternCreate=3Dno +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=3D$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_fontconfig_FcPatternCreate" >&5 +echo "${ECHO_T}$ac_cv_lib_fontconfig_FcPatternCreate" >&6 +if test $ac_cv_lib_fontconfig_FcPatternCreate =3D yes; then + libs_x=3D"-lfontconfig $libs_x" && if test "$verbose" =3D "yes"; then e= cho " Prepending \"-lfontconfig\" to \$libs_x"; fi +else + { echo "Error:" "Unable to find libfontconfig for --with-xft" >&2; exit = 1; } +fi + + echo "$as_me:$LINENO: checking for XftFontOpen in -lXft" >&5 +echo $ECHO_N "checking for XftFontOpen in -lXft... $ECHO_C" >&6 +if test "${ac_cv_lib_Xft_XftFontOpen+set}" =3D set; then + echo $ECHO_N "(cached) $ECHO_C" >&6 +else + ac_check_lib_save_LIBS=3D$LIBS +LIBS=3D"-lXft $LIBS" +cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +/* Override any gcc2 internal prototype to avoid an error. */ +#ifdef __cplusplus +extern "C" +#endif +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char XftFontOpen (); +int +main () +{ +XftFontOpen (); + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=3D$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); } && + { ac_try=3D'test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=3D$? + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try=3D'test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=3D$? + echo "$as_me:$LINENO: \$? =3D $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_lib_Xft_XftFontOpen=3Dyes +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_lib_Xft_XftFontOpen=3Dno +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +LIBS=3D$ac_check_lib_save_LIBS +fi +echo "$as_me:$LINENO: result: $ac_cv_lib_Xft_XftFontOpen" >&5 +echo "${ECHO_T}$ac_cv_lib_Xft_XftFontOpen" >&6 +if test $ac_cv_lib_Xft_XftFontOpen =3D yes; then + libs_x=3D"-lXft $libs_x" && if test "$verbose" =3D "yes"; then echo " = Prepending \"-lXft\" to \$libs_x"; fi +else + { echo "Error:" "Unable to find libXft for --with-xft" >&2; exit 1; } +fi + + cat >>confdefs.h <<\_ACEOF +#define USE_XFT 1 +_ACEOF + + unset xft_includes_found + fi + +fi + +done + + fi + fi if test "$with_msw" !=3D "no"; then { echo "$as_me:$LINENO: checking for MS-Windows..." >&5 @@ -26202,6 +26842,13 @@ esac case "$enable_menubars" in "" | "yes" | "athena" ) enable_menubars=3D"lucid" ;; esac +if test "$with_xft_menubars" !=3D "no" ; then + if test "$with_xft_emacs" =3D "yes" -a "$with_menubars" !=3D "no" ; then + with_xft_menubars=3D"yes" + else + with_xft_menubars=3D"no" + fi +fi case "$enable_dialogs" in "" | "yes" | "lucid" ) if test "$lucid_prefers_motif" =3D "yes"; then if test "$have_motif" =3D "yes"; then enable_dialogs=3D"motif" @@ -26235,6 +26882,20 @@ case "$enable_widgets" in "" | "yes" | " fi fi ;; esac +if test "$with_xft_tabs" !=3D "no" ; then + if test "$with_xft_emacs" =3D "yes" -a "$enable_widgets" !=3D "no" ; then + with_xft_tabs=3D"yes" + else + with_xft_tabs=3D"no" + fi +fi +if test "$with_xft_gauge" !=3D "no" ; then + if test "$with_xft_emacs" =3D "yes" -a "$enable_widgets" !=3D "no" ; then + with_xft_gauge=3D"yes" + else + with_xft_gauge=3D"no" + fi +fi = all_widgets=3D"$enable_menubars $enable_scrollbars $enable_dialogs $enable= _toolbars $enable_widgets" = @@ -26416,6 +27077,19 @@ test "$enable_widgets" =3D "motif" && = _ACEOF = = +test "$with_xft_menubars" =3D "yes" && cat >>confdefs.h <<\_ACEOF +#define USE_XFT_MENUBARS 1 +_ACEOF + +test "$with_xft_tabs" =3D "yes" && cat >>confdefs.h <<\_ACEOF +#define USE_XFT_TABS 1 +_ACEOF + +test "$with_xft_gauge" =3D "yes" && cat >>confdefs.h <<\_ACEOF +#define USE_XFT_GAUGE 1 +_ACEOF + + = test -z "$enable_mule" && enable_mule=3Dno = @@ -38466,6 +39140,9 @@ if test "$with_x11" =3D "yes"; then if test "$with_wmcommand" !=3D no; then echo " - Handling WM_COMMAND properly." fi + if test "$with_xft" =3D "yes"; then + echo " - Compiling in support for Xft antialiased fonts (EXPERIMENT= AL)." + fi fi if test "$need_motif" =3D "yes" ; then echo " Compiling in support for Motif." @@ -38491,6 +39168,10 @@ case "$enable_menubars" in echo " Re-run configure with --enable-menubars=3D'lu= cid'." ;; msw ) echo " Using MS-Windows menubars." ;; esac +if test "$with_xft_menubars" =3D "yes"; then + echo " - Using Xft to render antialiased fonts in menubars." + echo " WARNING: This feature will be replaced with a face." +fi case "$enable_scrollbars" in gtk ) echo " Using GTK scrollbars." ;; lucid ) echo " Using Lucid scrollbars." ;; @@ -38516,6 +39197,15 @@ case "$enable_widgets" in athena ) echo " Using Athena native widgets." ;; msw ) echo " Using MS-Windows native widgets." ;; esac +if test "$with_xft_tabs" =3D "yes"; then + echo " - Using Xft to render antialiased fonts in tab controls." + echo " WARNING: This feature will be replaced with a face." +fi +if test "$with_xft_gauge" =3D "yes"; then + echo " - Using Xft to render antialiased fonts in progress bars." + echo " WARNING: This feature will be replaced with a face." + echo " WARNING: This feature not yet implemented; setting ignored." +fi if test "$with_dragndrop" =3D yes; then echo " Compiling in support for Drag'n'Drop (EXPERIMENTAL)." echo " - Drag'n'Drop prototype: $dragndr= op_proto." 1.60 +3 -2 XEmacs/xemacs/src/depend Index: depend =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/depend,v retrieving revision 1.59 retrieving revision 1.60 diff -u -p -r1.59 -r1.60 --- depend 2005/11/25 01:41:58 1.59 +++ depend 2005/11/26 12:09:39 1.60 @@ -48,7 +48,7 @@ glyphs-x.o: $(LISP_H) $(LWLIB_SRCDIR)/lw gui-x.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h buffer.h bufslots.h casetab.h c= harset.h chartab.h conslots.h console-impl.h console-x-impl.h console-x.h c= onsole.h device-impl.h device.h devslots.h events.h frame.h glyphs.h gui.h = menubar.h opaque.h redisplay.h scrollbar.h specifier.h systime.h window-imp= l.h window.h winslots.h xintrinsic.h xmotif.h intl-x.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h console-x.h console.h xintrins= ic.h menubar-x.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h EmacsFrame.h buffer.h bufsl= ots.h casetab.h charset.h chartab.h commands.h conslots.h console-impl.h co= nsole-x-impl.h console-x.h console.h device-impl.h device.h devslots.h even= ts.h frame-impl.h frame.h frameslots.h gui.h keymap.h menubar.h opaque.h re= display.h scrollbar.h systime.h window-impl.h window.h winslots.h xintrinsi= c.h -objects-x.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h charset.h conslots.h consol= e-impl.h console-x-impl.h console-x.h console.h device-impl.h device.h devs= lots.h insdel.h objects-impl.h objects-x-impl.h objects-x.h objects.h speci= fier.h xintrinsic.h +objects-x.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h charset.h conslots.h consol= e-impl.h console-x-impl.h console-x.h console.h device-impl.h device.h devs= lots.h insdel.h objects-impl.h objects-x-impl.h objects-x.h objects.h speci= fier.h xft-fonts.h xintrinsic.h redisplay-x.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h EmacsFrame.h EmacsFrameP.= h buffer.h bufslots.h casetab.h charset.h chartab.h coding-system-slots.h c= onslots.h console-impl.h console-x-impl.h console-x.h console.h debug.h dev= ice-impl.h device.h devslots.h faces.h file-coding.h frame-impl.h frame.h f= rameslots.h glyphs-x.h glyphs.h gutter.h mule-ccl.h objects-impl.h objects-= x-impl.h objects-x.h objects.h redisplay.h scrollbar.h specifier.h sysdep.h= sysproc.h syssignal.h systime.h window-impl.h window.h winslots.h xgccache= .h xintrinsic.h xintrinsicp.h xmotif.h xmprimitivep.h scrollbar-x.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h EmacsFrame.h conslots.h c= onsole-impl.h console-x-impl.h console-x.h console.h device-impl.h device.h= devslots.h frame-impl.h frame.h frameslots.h glyphs-x.h glyphs.h redisplay= .h scrollbar-x.h scrollbar.h specifier.h window-impl.h window.h winslots.h = xintrinsic.h select-x.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h charset.h conslots.h console= -impl.h console-x-impl.h console-x.h console.h device-impl.h device.h devsl= ots.h frame-impl.h frame.h frameslots.h objects-x.h objects.h opaque.h redi= splay.h select-common.h select.h systime.h xintrinsic.h xmotif.h @@ -169,7 +169,7 @@ hftctl.o: $(LISP_H) sysfile.h hpplay.o: $(LISP_H) buffer.h bufslots.h casetab.h charset.h chartab.h soun= d.h imgproc.o: $(LISP_H) imgproc.h indent.o: $(LISP_H) buffer.h bufslots.h casetab.h charset.h chartab.h cons= ole.h device.h extents.h faces.h frame.h glyphs.h insdel.h redisplay.h scro= llbar.h specifier.h window-impl.h window.h winslots.h -inline.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h buffer.h bufslots.h bytecode.h= casetab.h charset.h chartab.h coding-system-slots.h conslots.h console-gtk= .h console-impl.h console-msw.h console.h database.h device-impl.h device.h= devslots.h elhash.h events.h extents-impl.h extents.h faces.h file-coding.= h frame-impl.h frame.h frameslots.h glyphs-x.h glyphs.h gui.h intl-auto-enc= ap-win32.h keymap.h lstream.h objects-impl.h objects.h opaque.h process.h r= angetab.h redisplay.h scrollbar.h specifier.h syntax.h sysdll.h sysfile.h s= ystime.h syswindows.h toolbar.h tooltalk.h ui-gtk.h window-impl.h window.h = winslots.h xintrinsic.h +inline.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h buffer.h bufslots.h bytecode.h= casetab.h charset.h chartab.h coding-system-slots.h conslots.h console-gtk= .h console-impl.h console-msw.h console.h database.h device-impl.h device.h= devslots.h elhash.h events.h extents-impl.h extents.h faces.h file-coding.= h frame-impl.h frame.h frameslots.h glyphs-x.h glyphs.h gui.h intl-auto-enc= ap-win32.h keymap.h lstream.h objects-impl.h objects.h opaque.h process.h r= angetab.h redisplay.h scrollbar.h specifier.h syntax.h sysdll.h sysfile.h s= ystime.h syswindows.h toolbar.h tooltalk.h ui-gtk.h window-impl.h window.h = winslots.h xft-fonts.h xintrinsic.h input-method-motif.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h EmacsFrame.h consl= ots.h console-impl.h console-x-impl.h console-x.h console.h device.h frame-= impl.h frame.h frameslots.h redisplay.h xintrinsic.h xmotif.h input-method-xlib.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h EmacsFrame.h buffer= .h bufslots.h casetab.h charset.h chartab.h conslots.h console-impl.h conso= le-x-impl.h console-x.h console.h device-impl.h device.h devslots.h events.= h frame-impl.h frame.h frameslots.h redisplay.h scrollbar.h systime.h windo= w-impl.h window.h winslots.h xintrinsic.h insdel.o: $(LISP_H) buffer.h bufslots.h casetab.h charset.h chartab.h cons= ole.h device.h extents.h frame.h insdel.h line-number.h lstream.h redisplay= .h @@ -271,4 +271,5 @@ vm-limit.o: $(LISP_H) mem-limits.h widget.o: $(LISP_H) buffer.h bufslots.h casetab.h charset.h chartab.h win32.o: $(LISP_H) backtrace.h buffer.h bufslots.h casetab.h charset.h cha= rtab.h console-msw.h console.h hash.h intl-auto-encap-win32.h profile.h sys= file.h sysproc.h syssignal.h systime.h syswindows.h window.o: $(LISP_H) buffer.h bufslots.h casetab.h charset.h chartab.h comm= ands.h conslots.h console-impl.h console.h device-impl.h device.h devslots.= h elhash.h faces.h frame-impl.h frame.h frameslots.h glyphs.h gutter.h obje= cts.h redisplay.h scrollbar.h specifier.h window-impl.h window.h winslots.h +xft-fonts.o: $(LISP_H) $(LWLIB_SRCDIR)/lwlib.h conslots.h console-impl.h c= onsole-x-impl.h console-x.h console.h device-impl.h device.h devslots.h has= h.h objects-impl.h objects-x-impl.h objects-x.h objects.h specifier.h xft-f= onts.h xintrinsic.h xmu.o: $(CONFIG_H) --===============2029057729974744097==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============7145337933509003329==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/src ... Date: 2005-11-26 13:20:25 +0000 Message-ID: <20051126132025.10424.qmail@sunsite.dk> --===============7145337933509003329== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/26 14:20:25 Modified: xemacs/src ChangeLog keymap.c Log: Improve where-is internal docstring. <87y83b35z7.fsf(a)tleepslib.sk.tsukuba= .ac.jp> Revision Changes Path 1.894 +4 -4 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.893 retrieving revision 1.894 diff -u -p -r1.893 -r1.894 --- ChangeLog 2005/11/26 11:46:05 1.893 +++ ChangeLog 2005/11/26 13:20:21 1.894 @@ -1,3 +1,7 @@ +2004-12-19 Stephen J. Turnbull + + * keymap.c (Fwhere_is_internal): Rewrite docstring. + 2005-11-26 Stephen J. Turnbull = Merge Xft. @@ -469,10 +473,6 @@ * glyphs-x.c,objects-x.c: Deemphasize warnings (to debug or alert). = * redisplay-x.c: Don't abort() when ichar_to_unicode returns error. - - 2004-12-19 Stephen J. Turnbull - - * keymap.c (Fwhere_is_internal): Rewrite docstring. = 2004-12-17 Stephen J. Turnbull = 1.61 +9 -6 XEmacs/xemacs/src/keymap.c Index: keymap.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/keymap.c,v retrieving revision 1.60 retrieving revision 1.61 diff -u -p -r1.60 -r1.61 --- keymap.c 2005/11/22 10:36:39 1.60 +++ keymap.c 2005/11/26 13:20:23 1.61 @@ -3474,17 +3474,20 @@ DEFUN ("where-is-internal", Fwhere_is_in Return list of keys that invoke DEFINITION in KEYMAPS. KEYMAPS can be either a keymap (meaning search in that keymap and the current global keymap) or a list of keymaps (meaning search in exactly -those keymaps and no others). If KEYMAPS is nil, search in the currently -applicable maps for EVENT-OR-KEYS (this is equivalent to specifying -`(current-keymaps EVENT-OR-KEYS)' as the argument to KEYMAPS). +those keymaps and no others). = If optional 3rd arg FIRSTONLY is non-nil, return a vector representing the first key sequence found, rather than a list of all possible key sequences. = -If optional 4th arg NOINDIRECT is non-nil, don't follow indirections - to other keymaps or slots. This makes it possible to search for an - indirect definition itself. +Optional 4th argument NOINDIRECT is ignored. (GNU Emacs uses it to allow +searching for an indirect keymap by inhibiting following of indirections to +keymaps or slots, but XEmacs doesn't need it because keymaps are a type.) + +If optional 5th argument EVENT-OR-KEYS is non-nil and KEYMAPS is nil, +search in the currently applicable maps for EVENT-OR-KEYS (this is +equivalent to specifying `(current-keymaps EVENT-OR-KEYS)' as the +argument to KEYMAPS). */ (definition, keymaps, firstonly, UNUSED (noindirect), event_or_keys= )) { --===============7145337933509003329==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============2179187703622854566==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent ( User: stephent Date: 05/11/26 16:26:37) XEmacs/packages/unsupported/stephen/curl Date: 2005-11-26 15:26:37 +0000 Message-ID: <20051126152637.4108.qmail@sunsite.dk> --===============2179187703622854566== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable XEmacs/packages/unsupported/stephen/curl - New directory --===============2179187703622854566==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============1664854459618793446==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent packages/unsupported/stephen/curl Makefile.in.in Date: 2005-11-26 16:01:13 +0000 Message-ID: <20051126160113.10453.qmail@sunsite.dk> --===============1664854459618793446== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/26 17:01:13 Added: packages/unsupported/stephen/curl Makefile.in.in configure.ac curl-tests.el curl.el curl_api.c curl_api.h install-sh Log: Import curl module. Revision Changes Path 1.1 XEmacs/packages/unsupported/stephen/curl/Makefile.in.in Index: Makefile.in.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ## Makefile for the sample module in XEmacs. ## Copyright (C) 2002 Jerry James. ## This file is part of XEmacs. ## XEmacs is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by the ## Free Software Foundation; either version 2, or (at your option) any ## later version. ## XEmacs is distributed in the hope that it will be useful, but WITHOUT ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License ## for more details. ## You should have received a copy of the GNU General Public License ## along with XEmacs; see the file COPYING. If not, write to ## the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ## Boston, MA 02111-1307, USA. ## Synched up with: Not synched with FSF. ## This is more complicated than would normally be the case, as this makefi= le ## has been tailored to work both inside and independently of the XEmacs ## source tree, and to support both module and non-module building inside t= he ## source tree. ### Specialize this part for your module MODNAME=3Dcurl_api MODVER=3D0.0.1 MODTITLE=3D"Interface to libcurl for XEmacs" LDFLAGS=3D@LDFLAGS@ @curl_libs@ SRCS=3D$(MODNAME).c ### You should not need to modify anything below this line SHELL=3D/bin/sh RM=3Drm -f PROGNAME=3D@PROGNAME@ CFLAGS=3D@CFLAGS@ INSTALL=3D@INSTALL@ version=3D@version@ prefix=3D@prefix@ exec_prefix=3D@exec_prefix@ libdir=3D@libdir@ instvardir=3D@instvardir@ configuration=3D@configuration@ moduledir=3D@moduledir@ with_modules=3D@with_modules@ srcdir=3D@srcdir@ VPATH=3D@srcdir@ SRC_SRCS=3D$(SRCS:%=3D$(srcdir)/%) OBJS=3D$(SRCS:.c=3D.o) CC=3D@MOD_CC@ MODARCHDIR=3D@MODARCHDIR@ MAKE_DOCFILE=3D@MAKE_DOCFILE@ MODCFLAGS=3D@MODCFLAGS@ INSTALLPATH=3D@INSTALLPATH@ INSTALL_PROGRAM=3D@MOD_INSTALL_PROGRAM@ OBJECT_TO_BUILD=3D@OBJECT_TO_BUILD@ .PHONY: clean distclean install all: $(OBJECT_TO_BUILD) .c.o: $(CC) $(MODCFLAGS) -c $< $(MODNAME).ell: $(OBJS) $(MODNAME)_i.o $(CC) --mode=3Dlink --mod-output=3D$@ $(OBJS) $(MODNAME)_i.o $(LDFLAGS) $(MODNAME)_i.c: $(SRCS) ELLMAKEDOC=3D$(MAKE_DOCFILE) $(CC) --mode=3Dinit --mod-output=3D$@ \ --mod-name=3D$(MODNAME) --mod-version=3D$(MODVER) \ --mod-title=3D$(MODTITLE) $(SRC_SRCS) clean: $(RM) $(MODNAME).ell $(OBJS) $(MODNAME)_i.* *~ distclean: clean $(RM) Makefile config.* configure install: $(OBJECT_TO_BUILD) $(INSTALL_PROGRAM) $< $(INSTALLPATH) 1.1 XEmacs/packages/unsupported/stephen/curl/configure.ac Index: configure.ac =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D # Process this file with autoconf to produce a configure script. # This is only used for independent module building. AC_INIT([libcurl API module], [1.0], [xemacs-beta(a)xemacs.org]) AC_PREREQ(2.53) AC_REVISION($Revision: 1.1 $) AC_COPYRIGHT([Configuration script for the curl_api module. Copyright (C) 2002 Jerry James. Copyright (C) 2005 Free Software Foundation, Inc. This file is part of XEmacs. XEmacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. XEmacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.]) AC_CONFIG_SRCDIR([curl_api.c]) AC_PROG_CC AC_PROG_INSTALL AC_SUBST(CFLAGS) AC_SUBST(LDFLAGS) # Find ELLCC AC_ARG_VAR([ELLCC], [The path to the ellcc module compiler]) AC_PATH_PROG([ELLCC], [ellcc], ["FAIL"]) AS_IF([test "$ELLCC" =3D "FAIL"], [AS_ERROR([Cannot find ellcc])]) # Insert autoconf macros here to find the headers, libraries, other # programs, etc. needed by your module. If other libraries will be linked # with your module, then after detecting them, use a line of this form last: AC_SUBST(sample_libs, "$LIBS") # This part should appear unchanged in every module configure.ac AC_SUBST(PROGNAME, "module") AC_SUBST(MOD_CC, "@ELLCC@") AC_SUBST(MODARCHDIR, "\$(shell @ELLCC@ --mod-archdir)") AC_SUBST(MAKE_DOCFILE, "\$(MODARCHDIR)/make-docfile") AC_SUBST(MODCFLAGS, "\$(CFLAGS) --mode=3Dcompile --mod-output=3D\$@ -I\$(MO= DARCHDIR)/include") AC_SUBST(INSTALLPATH, "\$(shell @ELLCC@ --mod-site-location)") AC_SUBST(MOD_INSTALL_PROGRAM, "@INSTALL_PROGRAM@") AC_SUBST(OBJECT_TO_BUILD, "\$(MODNAME).ell") AC_CONFIG_FILES([Makefile.in Makefile]) AC_OUTPUT 1.1 XEmacs/packages/unsupported/stephen/curl/curl-tests.el Index: curl-tests.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;; this file expects to be run from $blddir (require 'curl (expand-file-name "modules/curl/curl")) (setq handle (curl-make-url-handle "http://turnbull.sk.tsukuba.ac.jp/index.html")) (curl-easy-setopt "URL" "http://curl.haxx.se/doc/copyright.html" handle) (curl-easy-perform handle) 1.1 XEmacs/packages/unsupported/stephen/curl/curl.el Index: curl.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;;; curl.el --- utilities for use with the curl_api module ;; Copyright (C) 2005 Stephen J. Turnbull ;; Copyright (C) 1998 - 2005, Daniel Stenberg, , et al. ;; All rights reserved, except as expressly indicated below. ;; This program is not considered part of XEmacs. ;; You may use, copy, modify, and distribute this software under the terms ;; of the GNU General Public License, version 2 or later at your option. ;; Author: Stephen J. Turnbull ;; Creation-Date: 2005-11-24 (require 'curl-api "curl/curl_api") ;; Version information from the cURL I built the first version from. ;; This should be fixed to get the information at build time. (put 'curl-api 'libcurl-version "7.15.0") (put 'curl-api 'libcurl_version_major 7) (put 'curl-api 'libcurl_version_minor 15) (put 'curl-api 'libcurl_version_patch 0) ;; This is the numeric version of the libcurl version number, meant for eas= ier ;; parsing and comparions by programs. The LIBCURL_VERSION_NUM define will ;; always follow this syntax: ;; 0xXXYYZZ ;; Where XX, YY and ZZ are the main version, release and patch numbers in ;; hexadecimal (using 8 bits each). All three numbers are always represented ;; using two digits. 1.2 would appear as "0x010200" while version 9.11.7 ;; appears as "0x090b07". ;; This 6-digit (24 bits) hexadecimal number does not show pre-release numb= er, ;; and it is always a greater number in a more recent release. It makes ;; comparisons with greater than and less than work. ;; #define LIBCURL_VERSION_NUM ((LIBCURL_VERSION_MAJOR << 16) | \ ;; (LIBCURL_VERSION_MINOR << 8) | \ ;; LIBCURL_VERSION_PATCH) ;; **** various includes and system-specific conditional code omitted **** ;; struct curl_httppost { ;; struct curl_httppost *next; /* next entry in the list */ ;; char *name; /* pointer to allocated name */ ;; long namelength; /* length of name length */ ;; char *contents; /* pointer to allocated data content= s */ ;; long contentslength; /* length of contents field */ ;; char *buffer; /* pointer to allocated buffer conte= nts */ ;; long bufferlength; /* length of buffer field */ ;; char *contenttype; /* Content-Type */ ;; struct curl_slist* contentheader; /* list of extra headers for this fo= rm */ ;; struct curl_httppost *more; /* if one field name has more than o= ne ;; file, this link should link to fo= llowing ;; files */ ;; long flags; /* as defined below */ ;; #define HTTPPOST_FILENAME (1<<0) /* specified content is a file name = */ ;; #define HTTPPOST_READFILE (1<<1) /* specified content is a file name = */ ;; #define HTTPPOST_PTRNAME (1<<2) /* name is only stored pointer ;; do not free in formfree */ ;; #define HTTPPOST_PTRCONTENTS (1<<3) /* contents is only stored pointer ;; do not free in formfree */ ;; #define HTTPPOST_BUFFER (1<<4) /* upload file from buffer */ ;; #define HTTPPOST_PTRBUFFER (1<<5) /* upload file from pointer contents= */ ;; = ;; char *showfilename; /* The file name to show. If not set= , the ;; actual file name will be used (if= this ;; is a file part) */ ;; }; ;; = ;; typedef int (*curl_progress_callback)(void *clientp, ;; double dltotal, ;; double dlnow, ;; double ultotal, ;; double ulnow); ;; = ;; /* Tests have proven that 20K is a very bad buffer size for uploads on ;; Windows, while 16K for some odd reason performed a lot better. */ ;; #define CURL_MAX_WRITE_SIZE 16384 ;; = ;; typedef size_t (*curl_write_callback)(char *buffer, ;; size_t size, ;; size_t nitems, ;; void *outstream); ;; = ;; /* This is a return code for the read callback that, when returned, will ;; signal libcurl to immediately abort the current transfer. */ ;; #define CURL_READFUNC_ABORT 0x10000000 ;; typedef size_t (*curl_read_callback)(char *buffer, ;; size_t size, ;; size_t nitems, ;; void *instream); ;; = ;; = ;; #ifndef CURL_NO_OLDIES ;; /* not used since 7.10.8, will be removed in a future release */ ;; typedef int (*curl_passwd_callback)(void *clientp, ;; const char *prompt, ;; char *buffer, ;; int buflen); ;; #endif ;; = ;; typedef enum { ;; CURLIOE_OK, /* I/O operation successful */ ;; CURLIOE_UNKNOWNCMD, /* command was unknown to callback */ ;; CURLIOE_FAILRESTART, /* failed to restart the read */ ;; CURLIOE_LAST /* never use */ ;; } curlioerr; ;; = ;; typedef enum { ;; CURLIOCMD_NOP, /* no operation */ ;; CURLIOCMD_RESTARTREAD, /* restart the read stream from start */ ;; CURLIOCMD_LAST /* never use */ ;; } curliocmd; ;; = ;; typedef curlioerr (*curl_ioctl_callback)(CURL *handle, ;; int cmd, ;; void *clientp); ;; = ;; /* ;; * The following typedef's are signatures of malloc, free, realloc, strd= up and ;; * calloc respectively. Function pointers of these types can be passed = to the ;; * curl_global_init_mem() function to set user defined memory management ;; * callback routines. ;; */ ;; typedef void *(*curl_malloc_callback)(size_t size); ;; typedef void (*curl_free_callback)(void *ptr); ;; typedef void *(*curl_realloc_callback)(void *ptr, size_t size); ;; typedef char *(*curl_strdup_callback)(const char *str); ;; typedef void *(*curl_calloc_callback)(size_t nmemb, size_t size); ;; = ;; /* the kind of data that is passed to information_callback*/ ;; typedef enum { ;; CURLINFO_TEXT =3D 0, ;; CURLINFO_HEADER_IN, /* 1 */ ;; CURLINFO_HEADER_OUT, /* 2 */ ;; CURLINFO_DATA_IN, /* 3 */ ;; CURLINFO_DATA_OUT, /* 4 */ ;; CURLINFO_SSL_DATA_IN, /* 5 */ ;; CURLINFO_SSL_DATA_OUT, /* 6 */ ;; CURLINFO_END ;; } curl_infotype; ;; = ;; typedef int (*curl_debug_callback) ;; (CURL *handle, /* the handle/transfer this concerns */ ;; curl_infotype type, /* what kind of data */ ;; char *data, /* points to the data */ ;; size_t size, /* size of the data pointed to */ ;; void *userptr); /* whatever the user please */ ;; = ;; /* All possible error codes from all sorts of curl functions. Future ver= sions ;; may return other values, stay prepared. ;; = ;; Always add new return codes last. Never *EVER* remove any. The return ;; codes must remain the same! ;; */ ;; = ;; typedef enum { ;; CURLE_OK =3D 0, ;; CURLE_UNSUPPORTED_PROTOCOL, /* 1 */ ;; CURLE_FAILED_INIT, /* 2 */ ;; CURLE_URL_MALFORMAT, /* 3 */ ;; CURLE_URL_MALFORMAT_USER, /* 4 (NOT USED) */ ;; CURLE_COULDNT_RESOLVE_PROXY, /* 5 */ ;; CURLE_COULDNT_RESOLVE_HOST, /* 6 */ ;; CURLE_COULDNT_CONNECT, /* 7 */ ;; CURLE_FTP_WEIRD_SERVER_REPLY, /* 8 */ ;; CURLE_FTP_ACCESS_DENIED, /* 9 a service was denied by the FTP se= rver ;; due to lack of access - when login f= ails ;; this is not returned. */ ;; CURLE_FTP_USER_PASSWORD_INCORRECT, /* 10 */ ;; CURLE_FTP_WEIRD_PASS_REPLY, /* 11 */ ;; CURLE_FTP_WEIRD_USER_REPLY, /* 12 */ ;; CURLE_FTP_WEIRD_PASV_REPLY, /* 13 */ ;; CURLE_FTP_WEIRD_227_FORMAT, /* 14 */ ;; CURLE_FTP_CANT_GET_HOST, /* 15 */ ;; CURLE_FTP_CANT_RECONNECT, /* 16 */ ;; CURLE_FTP_COULDNT_SET_BINARY, /* 17 */ ;; CURLE_PARTIAL_FILE, /* 18 */ ;; CURLE_FTP_COULDNT_RETR_FILE, /* 19 */ ;; CURLE_FTP_WRITE_ERROR, /* 20 */ ;; CURLE_FTP_QUOTE_ERROR, /* 21 */ ;; CURLE_HTTP_RETURNED_ERROR, /* 22 */ ;; CURLE_WRITE_ERROR, /* 23 */ ;; CURLE_MALFORMAT_USER, /* 24 - NOT USED */ ;; CURLE_FTP_COULDNT_STOR_FILE, /* 25 - failed FTP upload */ ;; CURLE_READ_ERROR, /* 26 - could open/read from file */ ;; CURLE_OUT_OF_MEMORY, /* 27 */ ;; CURLE_OPERATION_TIMEOUTED, /* 28 - the timeout time was reached */ ;; CURLE_FTP_COULDNT_SET_ASCII, /* 29 - TYPE A failed */ ;; CURLE_FTP_PORT_FAILED, /* 30 - FTP PORT operation failed */ ;; CURLE_FTP_COULDNT_USE_REST, /* 31 - the REST command failed */ ;; CURLE_FTP_COULDNT_GET_SIZE, /* 32 - the SIZE command failed */ ;; CURLE_HTTP_RANGE_ERROR, /* 33 - RANGE "command" didn't work */ ;; CURLE_HTTP_POST_ERROR, /* 34 */ ;; CURLE_SSL_CONNECT_ERROR, /* 35 - wrong when connecting with SSL = */ ;; CURLE_BAD_DOWNLOAD_RESUME, /* 36 - couldn't resume download */ ;; CURLE_FILE_COULDNT_READ_FILE, /* 37 */ ;; CURLE_LDAP_CANNOT_BIND, /* 38 */ ;; CURLE_LDAP_SEARCH_FAILED, /* 39 */ ;; CURLE_LIBRARY_NOT_FOUND, /* 40 */ ;; CURLE_FUNCTION_NOT_FOUND, /* 41 */ ;; CURLE_ABORTED_BY_CALLBACK, /* 42 */ ;; CURLE_BAD_FUNCTION_ARGUMENT, /* 43 */ ;; CURLE_BAD_CALLING_ORDER, /* 44 - NOT USED */ ;; CURLE_INTERFACE_FAILED, /* 45 - CURLOPT_INTERFACE failed */ ;; CURLE_BAD_PASSWORD_ENTERED, /* 46 - NOT USED */ ;; CURLE_TOO_MANY_REDIRECTS , /* 47 - catch endless re-direct loops */ ;; CURLE_UNKNOWN_TELNET_OPTION, /* 48 - User specified an unknown optio= n */ ;; CURLE_TELNET_OPTION_SYNTAX , /* 49 - Malformed telnet option */ ;; CURLE_OBSOLETE, /* 50 - NOT USED */ ;; CURLE_SSL_PEER_CERTIFICATE, /* 51 - peer's certificate wasn't ok */ ;; CURLE_GOT_NOTHING, /* 52 - when this is a specific error */ ;; CURLE_SSL_ENGINE_NOTFOUND, /* 53 - SSL crypto engine not found */ ;; CURLE_SSL_ENGINE_SETFAILED, /* 54 - can not set SSL crypto engine as ;; default */ ;; CURLE_SEND_ERROR, /* 55 - failed sending network data */ ;; CURLE_RECV_ERROR, /* 56 - failure in receiving network da= ta */ ;; CURLE_SHARE_IN_USE, /* 57 - share is in use */ ;; CURLE_SSL_CERTPROBLEM, /* 58 - problem with the local certific= ate */ ;; CURLE_SSL_CIPHER, /* 59 - couldn't use specified cipher */ ;; CURLE_SSL_CACERT, /* 60 - problem with the CA cert (path?= ) */ ;; CURLE_BAD_CONTENT_ENCODING, /* 61 - Unrecognized transfer encoding = */ ;; CURLE_LDAP_INVALID_URL, /* 62 - Invalid LDAP URL */ ;; CURLE_FILESIZE_EXCEEDED, /* 63 - Maximum file size exceeded */ ;; CURLE_FTP_SSL_FAILED, /* 64 - Requested FTP SSL level failed = */ ;; CURLE_SEND_FAIL_REWIND, /* 65 - Sending the data requires a rew= ind ;; that failed */ ;; CURLE_SSL_ENGINE_INITFAILED, /* 66 - failed to initialise ENGINE */ ;; CURLE_LOGIN_DENIED, /* 67 - user, password or similar was n= ot ;; accepted and we failed to login */ ;; CURLE_TFTP_NOTFOUND, /* 68 - file not found on server */ ;; CURLE_TFTP_PERM, /* 69 - permission problem on server */ ;; CURLE_TFTP_DISKFULL, /* 70 - out of disk space on server */ ;; CURLE_TFTP_ILLEGAL, /* 71 - Illegal TFTP operation */ ;; CURLE_TFTP_UNKNOWNID, /* 72 - Unknown transfer ID */ ;; CURLE_TFTP_EXISTS, /* 73 - File already exists */ ;; CURLE_TFTP_NOSUCHUSER, /* 74 - No such user */ ;; CURL_LAST /* never use! */ ;; } CURLcode; ;; = ;; typedef CURLcode (*curl_ssl_ctx_callback)(CURL *curl, /* easy handle = */ ;; void *ssl_ctx, /* actually an ;; OpenSSL SSL_= CTX */ ;; void *userptr); ;; = ;; /* Make a spelling correction for the operation timed-out define */ ;; #define CURLE_OPERATION_TIMEDOUT CURLE_OPERATION_TIMEOUTED ;; = ;; #ifndef CURL_NO_OLDIES /* define this to test if your app builds with all ;; the obsolete stuff removed! */ ;; /* backwards compatibility with older names */ ;; #define CURLE_HTTP_NOT_FOUND CURLE_HTTP_RETURNED_ERROR ;; #define CURLE_HTTP_PORT_FAILED CURLE_INTERFACE_FAILED ;; #endif ;; = ;; typedef enum { ;; CURLPROXY_HTTP =3D 0, ;; CURLPROXY_SOCKS4 =3D 4, ;; CURLPROXY_SOCKS5 =3D 5 ;; } curl_proxytype; ;; = ;; #define CURLAUTH_NONE 0 /* nothing */ ;; #define CURLAUTH_BASIC (1<<0) /* Basic (default) */ ;; #define CURLAUTH_DIGEST (1<<1) /* Digest */ ;; #define CURLAUTH_GSSNEGOTIATE (1<<2) /* GSS-Negotiate */ ;; #define CURLAUTH_NTLM (1<<3) /* NTLM */ ;; #define CURLAUTH_ANY ~0 /* all types set */ ;; #define CURLAUTH_ANYSAFE (~CURLAUTH_BASIC) ;; = ;; #ifndef CURL_NO_OLDIES /* define this to test if your app builds with all ;; the obsolete stuff removed! */ ;; /* this was the error code 50 in 7.7.3 and a few earlier versions, this ;; is no longer used by libcurl but is instead #defined here only to not ;; make programs break */ ;; #define CURLE_ALREADY_COMPLETE 99999 ;; = ;; /* These are just to make older programs not break: */ ;; #define CURLE_FTP_PARTIAL_FILE CURLE_PARTIAL_FILE ;; #define CURLE_FTP_BAD_DOWNLOAD_RESUME CURLE_BAD_DOWNLOAD_RESUME ;; #endif ;; = ;; #define CURL_ERROR_SIZE 256 ;; = ;; /* parameter for the CURLOPT_FTP_SSL option */ ;; typedef enum { ;; CURLFTPSSL_NONE, /* do not attempt to use SSL */ ;; CURLFTPSSL_TRY, /* try using SSL, proceed anyway otherwise */ ;; CURLFTPSSL_CONTROL, /* SSL for the control connection or fail */ ;; CURLFTPSSL_ALL, /* SSL for all communication or fail */ ;; CURLFTPSSL_LAST /* not an option, never use */ ;; } curl_ftpssl; ;; = ;; /* parameter for the CURLOPT_FTPSSLAUTH option */ ;; typedef enum { ;; CURLFTPAUTH_DEFAULT, /* let libcurl decide */ ;; CURLFTPAUTH_SSL, /* use "AUTH SSL" */ ;; CURLFTPAUTH_TLS, /* use "AUTH TLS" */ ;; CURLFTPAUTH_LAST /* not an option, never use */ ;; } curl_ftpauth; ;; = ;; /* long may be 32 or 64 bits, but we should never depend on anything else ;; but 32 */ ;; #define CURLOPTTYPE_LONG 0 ;; #define CURLOPTTYPE_OBJECTPOINT 10000 ;; #define CURLOPTTYPE_FUNCTIONPOINT 20000 ;; #define CURLOPTTYPE_OFF_T 30000 ;; = ;; /* name is uppercase CURLOPT_, ;; type is one of the defined CURLOPTTYPE_ ;; number is unique identifier */ ;; #ifdef CINIT ;; #undef CINIT ;; #endif ;; /* ;; * Figure out if we can use the ## operator, which is supported by ISO/A= NSI C ;; * and C++. Some compilers support it without setting __STDC__ or __cplu= splus ;; * so we need to carefully check for them too. We don't use configure-ch= ecks ;; * for these since we want these headers to remain generic and working f= or all ;; * platforms. ;; */ ;; #if defined(__STDC__) || defined(_MSC_VER) || defined(__cplusplus) || \ ;; defined(__HP_aCC) || defined(__BORLANDC__) || defined(__LCC__) ;; /* This compiler is believed to have an ISO compatible preprocessor */ ;; #define CURL_ISOCPP ;; #else ;; /* This compiler is believed NOT to have an ISO compatible preprocesso= r */ ;; #undef CURL_ISOCPP ;; #endif ;; = ;; #ifdef CURL_ISOCPP ;; #define CINIT(name,type,number) CURLOPT_ ## name =3D CURLOPTTYPE_ ## typ= e + number ;; #else ;; /* The macro "##" is ISO C, we assume pre-ISO C doesn't support it. */ ;; #define LONG CURLOPTTYPE_LONG ;; #define OBJECTPOINT CURLOPTTYPE_OBJECTPOINT ;; #define FUNCTIONPOINT CURLOPTTYPE_FUNCTIONPOINT ;; #define OFF_T CURLOPTTYPE_OFF_T ;; #define CINIT(name,type,number) CURLOPT_/**/name =3D type + number ;; #endif ;; ;; These are the options that can be used in curl-easy-setopt. ;; #### Probably should adapt this to the method below for ;; `curl-info-hash-table'. ;; Actually, probably should make the names symbols and put them in C, ;; but that's another story. (unless (and (boundp 'curl-option-hash-table) (hash-table-p curl-option-hash-table)) (setq curl-option-hash-table (make-hash-table :test #'equal :size 150)) ;; typedef enum { ;; This is the FILE * or void * the regular output should be written to. (puthash "FILE" '(objectpoint 1) curl-option-hash-table) ;; The full URL to get/put (puthash "URL" '(objectpoint 2) curl-option-hash-table) ;; Port number to connect to, if other than default. (puthash "PORT" '(long 3) curl-option-hash-table) ;; Name of proxy to use. (puthash "PROXY" '(objectpoint 4) curl-option-hash-table) ;; "name:password" to use when fetching. (puthash "USERPWD" '(objectpoint 5) curl-option-hash-table) ;; "name:password" to use with proxy. (puthash "PROXYUSERPWD" '(objectpoint 6) curl-option-hash-table) ;; Range to get, specified as an ASCII string. (puthash "RANGE" '(objectpoint 7) curl-option-hash-table) ;; not used ;; Specified file stream to upload from (use as input): (puthash "INFILE" '(objectpoint 9) curl-option-hash-table) ;; Buffer to receive error messages in, must be at least CURL_ERROR_SIZE ;; bytes big. If this is not used, error messages go to stderr instead: (puthash "ERRORBUFFER" '(objectpoint 10) curl-option-hash-table) ;; Function that will be called to store the output (instead of fwrite). = The ;; parameters will use fwrite() syntax, make sure to follow them. (puthash "WRITEFUNCTION" '(functionpoint 11) curl-option-hash-table) ;; Function that will be called to read the input (instead of fread). The ;; parameters will use fread() syntax, make sure to follow them. (puthash "READFUNCTION" '(functionpoint 12) curl-option-hash-table) ;; Time-out the read operation after this amount of seconds (puthash "TIMEOUT" '(long 13) curl-option-hash-table) ;; If the CURLOPT_INFILE is used, this can be used to inform libcurl about ;; how large the file being sent really is. That allows better error ;; checking and better verifies that the upload was succcessful. -1 means ;; unknown size. ;; ;; For large file support, there is also a _LARGE version of the key ;; which takes an off_t type, allowing platforms with larger off_t ;; sizes to handle larger files. See below for INFILESIZE_LARGE. (puthash "INFILESIZE" '(long 14) curl-option-hash-table) ;; POST input fields. (puthash "POSTFIELDS" '(objectpoint 15) curl-option-hash-table) ;; Set the referer page (needed by some CGIs) (puthash "REFERER" '(objectpoint 16) curl-option-hash-table) ;; Set the FTP PORT string (interface name, named or numerical IP address) ;; Use i.e '-' to use default address. (puthash "FTPPORT" '(objectpoint 17) curl-option-hash-table) ;; Set the User-Agent string (examined by some CGIs) (puthash "USERAGENT" '(objectpoint 18) curl-option-hash-table) ;; If the download receives less than "low speed limit" bytes/second ;; during "low speed time" seconds, the operations is aborted. ;; You could i.e if you have a pretty high speed connection, abort if ;; it is less than 2000 bytes/sec during 20 seconds. ;; ;; Set the "low speed limit" (puthash "LOW_SPEED_LIMIT" '(long 19) curl-option-hash-table) ;; Set the "low speed time" (puthash "LOW_SPEED_TIME" '(long 20) curl-option-hash-table) ;; Set the continuation offset. ;; ;; Note there is also a _LARGE version of this key which uses ;; off_t types, allowing for large file offsets on platforms which ;; use larger-than-32-bit off_t's. Look below for RESUME_FROM_LARGE. (puthash "RESUME_FROM" '(long 21) curl-option-hash-table) ;; Set cookie in request: (puthash "COOKIE" '(objectpoint 22) curl-option-hash-table) ;; This points to a linked list of headers, struct curl_slist kind (puthash "HTTPHEADER" '(objectpoint 23) curl-option-hash-table) ;; This points to a linked list of post entries, struct HttpPost (puthash "HTTPPOST" '(objectpoint 24) curl-option-hash-table) ;; name of the file keeping your private SSL-certificate (puthash "SSLCERT" '(objectpoint 25) curl-option-hash-table) ;; password for the SSL-private key, keep this for compatibility (puthash "SSLCERTPASSWD" '(objectpoint 26) curl-option-hash-table) ;; password for the SSL private key (puthash "SSLKEYPASSWD" '(objectpoint 26) curl-option-hash-table) ;; send TYPE parameter? (puthash "CRLF" '(long 27) curl-option-hash-table) ;; send linked-list of QUOTE commands (puthash "QUOTE" '(objectpoint 28) curl-option-hash-table) ;; send FILE * or void * to store headers to, if you use a callback it ;; is simply passed to the callback unmodified (puthash "WRITEHEADER" '(objectpoint 29) curl-option-hash-table) ;; point to a file to read the initial cookies from, also enables ;; "cookie awareness" (puthash "COOKIEFILE" '(objectpoint 31) curl-option-hash-table) ;; What version to specifly try to use. ;; See CURL_SSLVERSION defines below. (puthash "SSLVERSION" '(long 32) curl-option-hash-table) ;; What kind of HTTP time condition to use, see defines (puthash "TIMECONDITION" '(long 33) curl-option-hash-table) ;; Time to use with the above condition. Specified in number of seconds ;; since 1 Jan 1970 (puthash "TIMEVALUE" '(long 34) curl-option-hash-table) ;; 35 =3D OBSOLETE ;; Custom request, for customizing the get command like ;; HTTP: DELETE, TRACE and others ;; FTP: to use a different list command (puthash "CUSTOMREQUEST" '(objectpoint 36) curl-option-hash-table) ;; HTTP request, for odd commands like DELETE, TRACE and others (puthash "STDERR" '(objectpoint 37) curl-option-hash-table) ;; 38 is not used ;; send linked-list of post-transfer QUOTE commands (puthash "POSTQUOTE" '(objectpoint 39) curl-option-hash-table) ;; Pass a pointer to string of the output using full variable-replacement ;; as described elsewhere. (puthash "WRITEINFO" '(objectpoint 40) curl-option-hash-table) ;; talk a lot (puthash "VERBOSE" '(long 41) curl-option-hash-table) ;; throw the header out too (puthash "HEADER" '(long 42) curl-option-hash-table) ;; shut off the progress meter (puthash "NOPROGRESS" '(long 43) curl-option-hash-table) ;; use HEAD to get http document (puthash "NOBODY" '(long 44) curl-option-hash-table) ;; no output on http error codes >=3D 300 (puthash "FAILONERROR" '(long 45) curl-option-hash-table) ;; this is an upload (puthash "UPLOAD" '(long 46) curl-option-hash-table) ;; HTTP POST method (puthash "POST" '(long 47) curl-option-hash-table) ;; Use NLST when listing ftp dir (puthash "FTPLISTONLY" '(long 48) curl-option-hash-table) ;; Append instead of overwrite on upload! (puthash "FTPAPPEND" '(long 50) curl-option-hash-table) ;; Specify whether to read the user+password from the .netrc or the URL. ;; This must be one of the CURL_NETRC_* enums below. (puthash "NETRC" '(long 51) curl-option-hash-table) ;; use Location: Luke! (puthash "FOLLOWLOCATION" '(LONG 52) curl-option-hash-table) ;;transfer data in text/ASCII format (puthash "TRANSFERTEXT" '(LONG 53) curl-option-hash-table) ;; HTTP PUT (puthash "PUT" '(LONG 54) curl-option-hash-table) ;; 55 =3D OBSOLETE ;; Function that will be called instead of the internal progress display ;; function. This function should be defined as the curl_progress_callback ;; prototype defines. (puthash "PROGRESSFUNCTION" '(functionpoint 56) curl-option-hash-table) ;; Data passed to the progress callback (puthash "PROGRESSDATA" '(objectpoint 57) curl-option-hash-table) ;; We want the referer field set automatically when following locations (puthash "AUTOREFERER" '(long 58) curl-option-hash-table) ;; Port of the proxy, can be set in the proxy string as well with: ;; "[host]:[port]" (puthash "PROXYPORT" '(long 59) curl-option-hash-table) ;; size of the POST input data, if strlen() is not good to use (puthash "POSTFIELDSIZE" '(long 60) curl-option-hash-table) ;; tunnel non-http operations through a HTTP proxy (puthash "HTTPPROXYTUNNEL" '(long 61) curl-option-hash-table) ;; Set the interface string to use as outgoing network interface (puthash "INTERFACE" '(objectpoint 62) curl-option-hash-table) ;; Set the krb4 security level, this also enables krb4 awareness. This i= s a ;; string, 'clear', 'safe', 'confidential' or 'private'. If the string is ;; set but doesn't match one of these, 'private' will be used. = (puthash "KRB4LEVEL" '(objectpoint 63) curl-option-hash-table) ;; Set if we should verify the peer in ssl handshake, set 1 to verify. (puthash "SSL_VERIFYPEER" '(long 64) curl-option-hash-table) ;; The CApath or CAfile used to validate the peer certificate ;; this option is used only if SSL_VERIFYPEER is true (puthash "CAINFO" '(objectpoint 65) curl-option-hash-table) ;; 66 =3D OBSOLETE ;; 67 =3D OBSOLETE ;; Maximum number of http redirects to follow (puthash "MAXREDIRS" '(long 68) curl-option-hash-table) ;; Pass a long set to 1 to get the date of the requested document (if ;; possible)! Pass a zero to shut it off. (puthash "FILETIME" '(long 69) curl-option-hash-table) ;; This points to a linked list of telnet options (puthash "TELNETOPTIONS" '(objectpoint 70) curl-option-hash-table) ;; Max amount of cached alive connections (puthash "MAXCONNECTS" '(long 71) curl-option-hash-table) ;; What policy to use when closing connections when the cache is filled ;; up (puthash "CLOSEPOLICY" '(long 72) curl-option-hash-table) ;; 73 =3D OBSOLETE ;; Set to explicitly use a new connection for the upcoming transfer. ;; Do not use this unless you're absolutely sure of this, as it makes the ;; operation slower and is less friendly for the network. (puthash "FRESH_CONNECT" '(long 74) curl-option-hash-table) ;; Set to explicitly forbid the upcoming transfer's connection to be re-u= sed ;; when done. Do not use this unless you're absolutely sure of this, as it ;; makes the operation slower and is less friendly for the network. (puthash "FORBID_REUSE" '(long 75) curl-option-hash-table) ;; Set to a file name that contains random data for libcurl to use to ;; seed the random engine when doing SSL connects. (puthash "RANDOM_FILE" '(objectpoint 76) curl-option-hash-table) ;; Set to the Entropy Gathering Daemon socket pathname (puthash "EGDSOCKET" '(objectpoint 77) curl-option-hash-table) ;; Time-out connect operations after this amount of seconds, if connects ;; are OK within this time, then fine... This only aborts the connect ;; phase. [Only works on unix-style/SIGALRM operating systems] (puthash "CONNECTTIMEOUT" '(long 78) curl-option-hash-table) ;; Function that will be called to store headers (instead of fwrite). The ;; parameters will use fwrite() syntax, make sure to follow them. (puthash "HEADERFUNCTION" '(functionpoint 79) curl-option-hash-table) ;; Set this to force the HTTP request to get back to GET. Only really usa= ble ;; if POST, PUT or a custom request have been used first. (puthash "HTTPGET" '(long 80) curl-option-hash-table) ;; Set if we should verify the Common name from the peer certificate in s= sl ;; handshake, set 1 to check existence, 2 to ensure that it matches the ;; provided hostname. (puthash "SSL_VERIFYHOST" '(long 81) curl-option-hash-table) ;; Specify which file name to write all known cookies in after completed ;; operation. Set file name to "-" (dash) to make it go to stdout. (puthash "COOKIEJAR" '(objectpoint 82) curl-option-hash-table) ;; Specify which SSL ciphers to use (puthash "SSL_CIPHER_LIST" '(objectpoint 83) curl-option-hash-table) ;; Specify which HTTP version to use! This must be set to one of the ;; CURL_HTTP_VERSION* enums set below. (puthash "HTTP_VERSION" '(long 84) curl-option-hash-table) ;; Specificly switch on or off the FTP engine's use of the EPSV command. = By ;; default, that one will always be attempted before the more traditional ;; PASV command. (puthash "FTP_USE_EPSV" '(long 85) curl-option-hash-table) ;; type of the file keeping your SSL-certificate ("DER", "PEM", "ENG") (puthash "SSLCERTTYPE" '(objectpoint 86) curl-option-hash-table) ;; name of the file keeping your private SSL-key (puthash "SSLKEY" '(objectpoint 87) curl-option-hash-table) ;; type of the file keeping your private SSL-key ("DER", "PEM", "ENG") (puthash "SSLKEYTYPE" '(objectpoint 88) curl-option-hash-table) ;; crypto engine for the SSL-sub system (puthash "SSLENGINE" '(objectpoint 89) curl-option-hash-table) ;; set the crypto engine for the SSL-sub system as default ;; the param has no meaning... (puthash "SSLENGINE_DEFAULT" '(long 90) curl-option-hash-table) ;; Non-zero value means to use the global dns cache (puthash "DNS_USE_GLOBAL_CACHE" '(long 91) curl-option-hash-table) ;; DNS cache timeout (puthash "DNS_CACHE_TIMEOUT" '(long 92) curl-option-hash-table) ;; send linked-list of pre-transfer QUOTE commands (Wesley Laxton)*/ (puthash "PREQUOTE" '(objectpoint 93) curl-option-hash-table) ;; set the debug function (puthash "DEBUGFUNCTION" '(functionpoint 94) curl-option-hash-table) ;; set the data for the debug function (puthash "DEBUGDATA" '(objectpoint 95) curl-option-hash-table) ;; mark this as start of a cookie session (puthash "COOKIESESSION" '(long 96) curl-option-hash-table) ;; The CApath directory used to validate the peer certificate ;; this option is used only if SSL_VERIFYPEER is true (puthash "CAPATH" '(objectpoint 97) curl-option-hash-table) ;; Instruct libcurl to use a smaller receive buffer (puthash "BUFFERSIZE" '(long 98) curl-option-hash-table) ;; Instruct libcurl to not use any signal/alarm handlers, even when using ;; timeouts. This option is useful for multi-threaded applications. ;; See libcurl-the-guide for more background information. (puthash "NOSIGNAL" '(long 99) curl-option-hash-table) ;; Provide a CURLShare for mutexing non-ts data (puthash "SHARE" '(objectpoint 100) curl-option-hash-table) ;; indicates type of proxy. accepted values are CURLPROXY_HTTP (default), ;; CURLPROXY_SOCKS4 and CURLPROXY_SOCKS5. (puthash "PROXYTYPE" '(long 101) curl-option-hash-table) ;; Set the Accept-Encoding string. Use this to tell a server you would li= ke ;; the response to be compressed. (puthash "ENCODING" '(objectpoint 102) curl-option-hash-table) ;; Set pointer to private data (puthash "PRIVATE" '(objectpoint 103) curl-option-hash-table) ;; Set aliases for HTTP 200 in the HTTP Response header (puthash "HTTP200ALIASES" '(objectpoint 104) curl-option-hash-table) ;; Continue to send authentication (user+password) when following locatio= ns, ;; even when hostname changed. This can potentionally send off the name ;; and password to whatever host the server decides. (puthash "UNRESTRICTED_AUTH" '(long 105) curl-option-hash-table) ;; Specificly switch on or off the FTP engine's use of the EPRT command (= it ;; also disables the LPRT attempt). By default, those ones will always be ;; attempted before the good old traditional PORT command. (puthash "FTP_USE_EPRT" '(long 106) curl-option-hash-table) ;; Set this to a bitmask value to enable the particular authentications ;; methods you like. Use this in combination with CURLOPT_USERPWD. ;; Note that setting multiple bits may cause extra network round-trips. (puthash "HTTPAUTH" '(long 107) curl-option-hash-table) ;; Set the ssl context callback function, currently only for OpenSSL ssl_= ctx ;; in second argument. The function must be matching the ;; curl_ssl_ctx_callback proto. (puthash "SSL_CTX_FUNCTION" '(functionpoint 108) curl-option-hash-table) ;; Set the userdata for the ssl context callback function's third ;; argument (puthash "SSL_CTX_DATA" '(objectpoint 109) curl-option-hash-table) ;; FTP Option that causes missing dirs to be created on the remote server (puthash "FTP_CREATE_MISSING_DIRS" '(long 110) curl-option-hash-table) ;; Set this to a bitmask value to enable the particular authentications ;; methods you like. Use this in combination with CURLOPT_PROXYUSERPWD. ;; Note that setting multiple bits may cause extra network round-trips. (puthash "PROXYAUTH" '(long 111) curl-option-hash-table) ;; FTP option that changes the timeout, in seconds, associated with ;; getting a response. This is different from transfer timeout time and ;; essentially places a demand on the FTP server to acknowledge commands ;; in a timely manner. (puthash "FTP_RESPONSE_TIMEOUT" '(long 112) curl-option-hash-table) ;; Set this option to one of the CURL_IPRESOLVE_* defines (see below) to ;; tell libcurl to resolve names to those IP versions only. This only has ;; affect on systems with support for more than one, i.e IPv4 _and_ IPv6. (puthash "IPRESOLVE" '(long 113) curl-option-hash-table) ;; Set this option to limit the size of a file that will be downloaded fr= om ;; an HTTP or FTP server. ;; Note there is also _LARGE version which adds large file support for ;; platforms which have larger off_t sizes. See MAXFILESIZE_LARGE below. (puthash "MAXFILESIZE" '(long 114) curl-option-hash-table) ;; See the comment for INFILESIZE above, but in short, specifies ;; the size of the file being uploaded. -1 means unknown. (puthash "INFILESIZE_LARGE" '(off_t 115) curl-option-hash-table) ;; Sets the continuation offset. There is also a LONG version of this; ;; look above for RESUME_FROM. (puthash "RESUME_FROM_LARGE" '(off_t 116) curl-option-hash-table) ;; Sets the maximum size of data that will be downloaded from ;; an HTTP or FTP server. See MAXFILESIZE above for the LONG version. = (puthash "MAXFILESIZE_LARGE" '(off_t 117) curl-option-hash-table) ;; Set this option to the file name of your .netrc file you want libcurl ;; to parse (using the CURLOPT_NETRC option). If not set, libcurl will do ;; a poor attempt to find the user's home directory and check for a .netrc ;; file in there. (puthash "NETRC_FILE" '(objectpoint 118) curl-option-hash-table) ;; Enable SSL/TLS for FTP, pick one of: ;; CURLFTPSSL_TRY - try using SSL, proceed anyway otherwise ;; CURLFTPSSL_CONTROL - SSL for the control connection or fail ;; CURLFTPSSL_ALL - SSL for all communication or fail (puthash "FTP_SSL" '(long 119) curl-option-hash-table) ;; The _LARGE version of the standard POSTFIELDSIZE option (puthash "POSTFIELDSIZE_LARGE" '(off_t 120) curl-option-hash-table) ;; Enable/disable the TCP Nagle algorithm (puthash "TCP_NODELAY" '(long 121) curl-option-hash-table) ;; 122 OBSOLETE, used in 7.12.3. Gone in 7.13.0 ;; When doing 3rd party transfer, set the source user and password with ;; this (puthash "SOURCE_USERPWD" '(objectpoint 123) curl-option-hash-table) ;; 124 OBSOLETE, used in 7.12.3. Gone in 7.13.0 ;; 125 OBSOLETE, used in 7.12.3. Gone in 7.13.0 ;; 126 OBSOLETE, used in 7.12.3. Gone in 7.13.0 ;; When doing 3rd party transfer, set the source pre-quote linked list ;; of commands with this (puthash "SOURCE_PREQUOTE" '(objectpoint 127) curl-option-hash-table) ;; When doing 3rd party transfer, set the source post-quote linked list ;; of commands with this (puthash "SOURCE_POSTQUOTE" '(objectpoint 128) curl-option-hash-table) ;; When FTP over SSL/TLS is selected (with CURLOPT_FTP_SSL), this option ;; can be used to change libcurl's default action which is to first try ;; "AUTH SSL" and then "AUTH TLS" in this order, and proceed when a OK ;; response has been received. ;; Available parameters are: ;; CURLFTPAUTH_DEFAULT - let libcurl decide ;; CURLFTPAUTH_SSL - try "AUTH SSL" first, then TLS ;; CURLFTPAUTH_TLS - try "AUTH TLS" first, then SSL (puthash "FTPSSLAUTH" '(long 129) curl-option-hash-table) (puthash "IOCTLFUNCTION" '(functionpoint 130) curl-option-hash-table) (puthash "IOCTLDATA" '(objectpoint 131) curl-option-hash-table) ;; To make a 3rd party transfer, set the source URL with this (puthash "SOURCE_URL" '(objectpoint 132) curl-option-hash-table) ;; When doing 3rd party transfer, set the source quote linked list of ;; commands with this (puthash "SOURCE_QUOTE" '(objectpoint 133) curl-option-hash-table) ;; zero terminated string for pass on to the FTP server when asked for ;; "account" info (puthash "FTP_ACCOUNT" '(objectpoint 134) curl-option-hash-table) ;; feed cookies into cookie engine (puthash "COOKIELIST" '(objectpoint 135) curl-option-hash-table) ;; ignore Content-Length (puthash "IGNORE_CONTENT_LENGTH" '(long 136) curl-option-hash-table) ;; Set to non-zero to skip the IP address received in a 227 PASV FTP serv= er ;; response. Typically used for FTP-SSL purposes but is not restricted to ;; that. libcurl will then instead use the same IP address it used for the ;; control connection. (puthash "FTP_SKIP_PASV_IP" '(long 137) curl-option-hash-table) ;; CURLOPT_LASTENTRY ; the last unused ;; } CURLoption; ) ;; /* Below here follows defines for the CURLOPT_IPRESOLVE option. If a h= ost ;; name resolves addresses using more than one IP protocol version, th= is ;; option might be handy to force libcurl to use a specific IP version= . */ ;; #define CURL_IPRESOLVE_WHATEVER 0 /* default, resolves addresses to all = IP ;; versions that your system allows */ ;; #define CURL_IPRESOLVE_V4 1 /* resolve to ipv4 addresses */ ;; #define CURL_IPRESOLVE_V6 2 /* resolve to ipv6 addresses */ ;; = ;; /* three convenient "aliases" that follow the name scheme better */ ;; #define CURLOPT_WRITEDATA CURLOPT_FILE ;; #define CURLOPT_READDATA CURLOPT_INFILE ;; #define CURLOPT_HEADERDATA CURLOPT_WRITEHEADER ;; = ;; #ifndef CURL_NO_OLDIES /* define this to test if your app builds with all ;; the obsolete stuff removed! */ ;; #define CURLOPT_HTTPREQUEST -1 ;; #define CURLOPT_FTPASCII CURLOPT_TRANSFERTEXT ;; #define CURLOPT_MUTE -2 ;; #define CURLOPT_PASSWDFUNCTION -3 ;; #define CURLOPT_PASSWDDATA -4 ;; #define CURLOPT_CLOSEFUNCTION -5 ;; = ;; #define CURLOPT_SOURCE_HOST -6 ;; #define CURLOPT_SOURCE_PATH -7 ;; #define CURLOPT_SOURCE_PORT -8 ;; #define CURLOPT_PASV_HOST -9 ;; = ;; #else ;; /* This is set if CURL_NO_OLDIES is defined at compile-time */ ;; #undef CURLOPT_DNS_USE_GLOBAL_CACHE /* soon obsolete */ ;; #endif ;; = ;; = ;; /* These enums are for use with the CURLOPT_HTTP_VERSION option. */ ;; enum { ;; CURL_HTTP_VERSION_NONE, /* setting this means we don't care, and that = we'd ;; like the library to choose the best possible ;; for us! */ ;; CURL_HTTP_VERSION_1_0, /* please use HTTP 1.0 in the request */ ;; CURL_HTTP_VERSION_1_1, /* please use HTTP 1.1 in the request */ ;; = ;; CURL_HTTP_VERSION_LAST /* *ILLEGAL* http version */ ;; }; ;; = ;; /* These enums are for use with the CURLOPT_NETRC option. */ ;; enum CURL_NETRC_OPTION { ;; CURL_NETRC_IGNORED, /* The .netrc will never be read. ;; * This is the default. */ ;; CURL_NETRC_OPTIONAL, /* A user:password in the URL will be preferred ;; * to one in the .netrc. */ ;; CURL_NETRC_REQUIRED, /* A user:password in the URL will be ignored. ;; * Unless one is set programmatically, the .ne= trc ;; * will be queried. */ ;; CURL_NETRC_LAST ;; }; ;; = ;; enum { ;; CURL_SSLVERSION_DEFAULT, ;; CURL_SSLVERSION_TLSv1, ;; CURL_SSLVERSION_SSLv2, ;; CURL_SSLVERSION_SSLv3, ;; = ;; CURL_SSLVERSION_LAST /* never use, keep last */ ;; }; ;; = ;; = ;; typedef enum { ;; CURL_TIMECOND_NONE, ;; = ;; CURL_TIMECOND_IFMODSINCE, ;; CURL_TIMECOND_IFUNMODSINCE, ;; CURL_TIMECOND_LASTMOD, ;; = ;; CURL_TIMECOND_LAST ;; } curl_TimeCond; ;; = ;; #ifdef __BEOS__ ;; #include ;; #endif ;; = ;; = ;; /* curl_strequal() and curl_strnequal() are subject for removal in a fut= ure ;; libcurl, see lib/README.curlx for details */ ;; CURL_EXTERN int (curl_strequal)(const char *s1, const char *s2); ;; CURL_EXTERN int (curl_strnequal)(const char *s1, const char *s2, size_t = n); ;; = ;; /* name is uppercase CURLFORM_ */ ;; #ifdef CFINIT ;; #undef CFINIT ;; #endif ;; = ;; #ifdef CURL_ISOCPP ;; #define CFINIT(name) CURLFORM_ ## name ;; #else ;; /* The macro "##" is ISO C, we assume pre-ISO C doesn't support it. */ ;; #define CFINIT(name) CURLFORM_/**/name ;; #endif ;; = ;; typedef enum { ;; CFINIT(NOTHING), /********* the first one is unused ***********= */ ;; = ;; /* */ ;; CFINIT(COPYNAME), ;; CFINIT(PTRNAME), ;; CFINIT(NAMELENGTH), ;; CFINIT(COPYCONTENTS), ;; CFINIT(PTRCONTENTS), ;; CFINIT(CONTENTSLENGTH), ;; CFINIT(FILECONTENT), ;; CFINIT(ARRAY), ;; CFINIT(OBSOLETE), ;; CFINIT(FILE), ;; = ;; CFINIT(BUFFER), ;; CFINIT(BUFFERPTR), ;; CFINIT(BUFFERLENGTH), ;; = ;; CFINIT(CONTENTTYPE), ;; CFINIT(CONTENTHEADER), ;; CFINIT(FILENAME), ;; CFINIT(END), ;; CFINIT(OBSOLETE2), ;; = ;; CURLFORM_LASTENTRY /* the last unusued */ ;; } CURLformoption; ;; = ;; #undef CFINIT /* done */ ;; = ;; /* structure to be used as parameter for CURLFORM_ARRAY */ ;; struct curl_forms { ;; CURLformoption option; ;; const char *value; ;; }; ;; = ;; /* use this for multipart formpost building */ ;; /* Returns code for curl_formadd() ;; * ;; * Returns: ;; * CURL_FORMADD_OK on success ;; * CURL_FORMADD_MEMORY if the FormInfo allocation fails ;; * CURL_FORMADD_OPTION_TWICE if one option is given twice for one Form ;; * CURL_FORMADD_NULL if a null pointer was given for a char ;; * CURL_FORMADD_MEMORY if the allocation of a FormInfo struct fa= iled ;; * CURL_FORMADD_UNKNOWN_OPTION if an unknown option was used ;; * CURL_FORMADD_INCOMPLETE if the some FormInfo is not complete (or = error) ;; * CURL_FORMADD_MEMORY if a HttpPost struct cannot be allocated ;; * CURL_FORMADD_MEMORY if some allocation for string copying fai= led. ;; * CURL_FORMADD_ILLEGAL_ARRAY if an illegal option is used in an array ;; * ;; ***********************************************************************= ****/ ;; typedef enum { ;; CURL_FORMADD_OK, /* first, no error */ ;; = ;; CURL_FORMADD_MEMORY, ;; CURL_FORMADD_OPTION_TWICE, ;; CURL_FORMADD_NULL, ;; CURL_FORMADD_UNKNOWN_OPTION, ;; CURL_FORMADD_INCOMPLETE, ;; CURL_FORMADD_ILLEGAL_ARRAY, ;; CURL_FORMADD_DISABLED, /* libcurl was built with this disabled */ ;; = ;; CURL_FORMADD_LAST /* last */ ;; } CURLFORMcode; ;; = ;; /* ;; * NAME curl_formadd() ;; * ;; * DESCRIPTION ;; * ;; * Pretty advanved function for building multi-part formposts. Each invo= ke ;; * adds one part that together construct a full post. Then use ;; * CURLOPT_HTTPPOST to send it off to libcurl. ;; */ ;; CURL_EXTERN CURLFORMcode curl_formadd(struct curl_httppost **httppost, ;; struct curl_httppost **last_post, ;; ...); ;; = ;; /* ;; * NAME curl_formfree() ;; * ;; * DESCRIPTION ;; * ;; * Free a multipart formpost previously built with curl_formadd(). ;; */ ;; CURL_EXTERN void curl_formfree(struct curl_httppost *form); ;; = ;; /* ;; * NAME curl_getenv() ;; * ;; * DESCRIPTION ;; * ;; * Returns a malloc()'ed string that MUST be curl_free()ed after usage is ;; * complete. DEPRECATED - see lib/README.curlx ;; */ ;; CURL_EXTERN char *curl_getenv(const char *variable); ;; = ;; /* ;; * NAME curl_version() ;; * ;; * DESCRIPTION ;; * ;; * Returns a static ascii string of the libcurl version. ;; */ ;; CURL_EXTERN char *curl_version(void); ;; = ;; /* ;; * NAME curl_escape() ;; * ;; * DESCRIPTION ;; * ;; * Escapes URL strings (converts all letters consider illegal in URLs to= their ;; * %XX versions). This function returns a new allocated string or NULL i= f an ;; * error occurred. ;; */ ;; CURL_EXTERN char *curl_escape(const char *string, int length); ;; = ;; /* ;; * NAME curl_unescape() ;; * ;; * DESCRIPTION ;; * ;; * Unescapes URL encoding in strings (converts all %XX codes to their 8b= it ;; * versions). This function returns a new allocated string or NULL if an= error ;; * occurred. ;; */ ;; CURL_EXTERN char *curl_unescape(const char *string, int length); ;; = ;; /* ;; * NAME curl_free() ;; * ;; * DESCRIPTION ;; * ;; * Provided for de-allocation in the same translation unit that did the ;; * allocation. Added in libcurl 7.10 ;; */ ;; CURL_EXTERN void curl_free(void *p); ;; = ;; /* ;; * NAME curl_global_init() ;; * ;; * DESCRIPTION ;; * ;; * curl_global_init() should be invoked exactly once for each applicatio= n that ;; * uses libcurl ;; */ ;; CURL_EXTERN CURLcode curl_global_init(long flags); ;; = ;; /* ;; * NAME curl_global_init_mem() ;; * ;; * DESCRIPTION ;; * ;; * curl_global_init() or curl_global_init_mem() should be invoked exactl= y once ;; * for each application that uses libcurl. This function can be used to ;; * initialize libcurl and set user defined memory management callback ;; * functions. Users can implement memory management routines to check f= or ;; * memory leaks, check for mis-use of the curl library etc. User regist= ered ;; * callback routines with be invoked by this library instead of the syst= em ;; * memory management routines like malloc, free etc. ;; */ ;; CURL_EXTERN CURLcode curl_global_init_mem(long flags, ;; curl_malloc_callback m, ;; curl_free_callback f, ;; curl_realloc_callback r, ;; curl_strdup_callback s, ;; curl_calloc_callback c); ;; = ;; /* ;; * NAME curl_global_cleanup() ;; * ;; * DESCRIPTION ;; * ;; * curl_global_cleanup() should be invoked exactly once for each applica= tion ;; * that uses libcurl ;; */ ;; CURL_EXTERN void curl_global_cleanup(void); ;; = ;; /* linked-list structure for the CURLOPT_QUOTE option (and other) */ ;; struct curl_slist { ;; char *data; ;; struct curl_slist *next; ;; }; ;; = ;; /* ;; * NAME curl_slist_append() ;; * ;; * DESCRIPTION ;; * ;; * Appends a string to a linked list. If no list exists, it will be crea= ted ;; * first. Returns the new list, after appending. ;; */ ;; CURL_EXTERN struct curl_slist *curl_slist_append(struct curl_slist *, ;; const char *); ;; = ;; /* ;; * NAME curl_slist_free_all() ;; * ;; * DESCRIPTION ;; * ;; * free a previously built curl_slist. ;; */ ;; CURL_EXTERN void curl_slist_free_all(struct curl_slist *); ;; = ;; /* ;; * NAME curl_getdate() ;; * ;; * DESCRIPTION ;; * ;; * Returns the time, in seconds since 1 Jan 1970 of the time string give= n in ;; * the first argument. The time argument in the second parameter is unus= ed ;; * and should be set to NULL. ;; */ ;; CURL_EXTERN time_t curl_getdate(const char *p, const time_t *unused); ;; (unless (and (boundp 'curl-info-hash-table) (hash-table-p curl-info-hash-table)) (setq curl-info-hash-table (make-hash-table :test #'equal :size 30)) (let ((curlinfo-string #x100000) (curlinfo-long #x200000) (curlinfo-double #x300000) (curlinfo-slist #x400000)) ;; #define CURLINFO_MASK 0x0fffff ;; #define CURLINFO_TYPEMASK 0xf00000 ;; typedef enum { (puthash "NONE" '(nil nil) curl-info-hash-table) ; first, never use this (puthash "EFFECTIVE_URL" `(string ,(+ curlinfo-string 1)) curl-info-hash-table) (puthash "RESPONSE_CODE" `(long ,(+ curlinfo-long + 2)) curl-info-hash-table) (puthash "TOTAL_TIME" `(double ,(+ curlinfo-double 3)) curl-info-hash-table) (puthash "NAMELOOKUP_TIME" `(double ,(+ curlinfo-double 4)) curl-info-hash-table) (puthash "CONNECT_TIME" `(double ,(+ curlinfo-double 5)) curl-info-hash-table) (puthash "PRETRANSFER_TIME" `(double ,(+ curlinfo-double 6)) curl-info-hash-table) (puthash "SIZE_UPLOAD" `(double ,(+ curlinfo-double 7)) curl-info-hash-table) (puthash "SIZE_DOWNLOAD" `(double ,(+ curlinfo-double 8)) curl-info-hash-table) (puthash "SPEED_DOWNLOAD" `(double ,(+ curlinfo-double 9)) curl-info-hash-table) (puthash "SPEED_UPLOAD" `(double ,(+ curlinfo-double 10)) curl-info-hash-table) (puthash "HEADER_SIZE" `(long ,(+ curlinfo-long + 11)) curl-info-hash-table) (puthash "REQUEST_SIZE" `(long ,(+ curlinfo-long + 12)) curl-info-hash-table) (puthash "SSL_VERIFYRESULT" `(long ,(+ curlinfo-long + 13)) curl-info-hash-table) (puthash "FILETIME" `(long ,(+ curlinfo-long + 14)) curl-info-hash-table) (puthash "CONTENT_LENGTH_DOWNLOAD" `(double ,(+ curlinfo-double 15)) curl-info-hash-table) (puthash "CONTENT_LENGTH_UPLOAD" `(double ,(+ curlinfo-double 16)) curl-info-hash-table) (puthash "STARTTRANSFER_TIME" `(double ,(+ curlinfo-double 17)) curl-info-hash-table) (puthash "CONTENT_TYPE" `(string ,(+ curlinfo-string 18)) curl-info-hash-table) (puthash "REDIRECT_TIME" `(double ,(+ curlinfo-double 19)) curl-info-hash-table) (puthash "REDIRECT_COUNT" `(long ,(+ curlinfo-long + 20)) curl-info-hash-table) (puthash "PRIVATE" `(string ,(+ curlinfo-string 21)) curl-info-hash-table) (puthash "HTTP_CONNECTCODE" `(long ,(+ curlinfo-long + 22)) curl-info-hash-table) (puthash "HTTPAUTH_AVAIL" `(long ,(+ curlinfo-long + 23)) curl-info-hash-table) (puthash "PROXYAUTH_AVAIL" `(long ,(+ curlinfo-long + 24)) curl-info-hash-table) (puthash "OS_ERRNO" `(long ,(+ curlinfo-long + 25)) curl-info-hash-table) (puthash "NUM_CONNECTS" `(long ,(+ curlinfo-long + 26)) curl-info-hash-table) (puthash "SSL_ENGINES" `(list ,(+ curlinfo-slist+ 27)) curl-info-hash-table) (puthash "COOKIELIST" `(list ,(+ curlinfo-slist+ 28)) curl-info-hash-table) ;; Fill in new entries below here! (puthash "LASTONE" '(nil 28) curl-info-hash-table) ;; } CURLINFO; )) ;; /* CURLINFO_RESPONSE_CODE is the new name for the option previously know= n as ;; CURLINFO_HTTP_CODE */ ;; #define CURLINFO_HTTP_CODE CURLINFO_RESPONSE_CODE ;; = ;; typedef enum { ;; CURLCLOSEPOLICY_NONE, /* first, never use this */ ;; = ;; CURLCLOSEPOLICY_OLDEST, ;; CURLCLOSEPOLICY_LEAST_RECENTLY_USED, ;; CURLCLOSEPOLICY_LEAST_TRAFFIC, ;; CURLCLOSEPOLICY_SLOWEST, ;; CURLCLOSEPOLICY_CALLBACK, ;; = ;; CURLCLOSEPOLICY_LAST /* last, never use this */ ;; } curl_closepolicy; ;; = ;; #define CURL_GLOBAL_SSL (1<<0) ;; #define CURL_GLOBAL_WIN32 (1<<1) ;; #define CURL_GLOBAL_ALL (CURL_GLOBAL_SSL|CURL_GLOBAL_WIN32) ;; #define CURL_GLOBAL_NOTHING 0 ;; #define CURL_GLOBAL_DEFAULT CURL_GLOBAL_ALL ;; = ;; = ;; /***********************************************************************= ****** ;; * Setup defines, protos etc for the sharing stuff. ;; */ ;; = ;; /* Different data locks for a single share */ ;; typedef enum { ;; CURL_LOCK_DATA_NONE =3D 0, ;; /* CURL_LOCK_DATA_SHARE is used internaly to say that ;; * the locking is just made to change the internal state of the share ;; * itself. ;; */ ;; CURL_LOCK_DATA_SHARE, ;; CURL_LOCK_DATA_COOKIE, ;; CURL_LOCK_DATA_DNS, ;; CURL_LOCK_DATA_SSL_SESSION, ;; CURL_LOCK_DATA_CONNECT, ;; CURL_LOCK_DATA_LAST ;; } curl_lock_data; ;; = ;; /* Different lock access types */ ;; typedef enum { ;; CURL_LOCK_ACCESS_NONE =3D 0, /* unspecified action */ ;; CURL_LOCK_ACCESS_SHARED =3D 1, /* for read perhaps */ ;; CURL_LOCK_ACCESS_SINGLE =3D 2, /* for write perhaps */ ;; CURL_LOCK_ACCESS_LAST /* never use */ ;; } curl_lock_access; ;; = ;; typedef void (*curl_lock_function)(CURL *handle, ;; curl_lock_data data, ;; curl_lock_access locktype, ;; void *userptr); ;; typedef void (*curl_unlock_function)(CURL *handle, ;; curl_lock_data data, ;; void *userptr); ;; = ;; typedef void CURLSH; ;; = ;; typedef enum { ;; CURLSHE_OK, /* all is fine */ ;; CURLSHE_BAD_OPTION, /* 1 */ ;; CURLSHE_IN_USE, /* 2 */ ;; CURLSHE_INVALID, /* 3 */ ;; CURLSHE_NOMEM, /* out of memory */ ;; CURLSHE_LAST /* never use */ ;; } CURLSHcode; ;; = ;; typedef enum { ;; CURLSHOPT_NONE, /* don't use */ ;; CURLSHOPT_SHARE, /* specify a data type to share */ ;; CURLSHOPT_UNSHARE, /* specify shich data type to stop sharing */ ;; CURLSHOPT_LOCKFUNC, /* pass in a 'curl_lock_function' pointer */ ;; CURLSHOPT_UNLOCKFUNC, /* pass in a 'curl_unlock_function' pointer */ ;; CURLSHOPT_USERDATA, /* pass in a user data pointer used in the lock/= unlock ;; callback functions */ ;; CURLSHOPT_LAST /* never use */ ;; } CURLSHoption; ;; = ;; CURL_EXTERN CURLSH *curl_share_init(void); ;; CURL_EXTERN CURLSHcode curl_share_setopt(CURLSH *, CURLSHoption option, = ...); ;; CURL_EXTERN CURLSHcode curl_share_cleanup(CURLSH *); ;; = ;; /***********************************************************************= ***** ;; * Structures for querying information about the curl library at runtime. ;; */ ;; = ;; typedef enum { ;; CURLVERSION_FIRST, ;; CURLVERSION_SECOND, ;; CURLVERSION_THIRD, ;; CURLVERSION_LAST /* never actually use this */ ;; } CURLversion; ;; = ;; /* The 'CURLVERSION_NOW' is the symbolic name meant to be used by ;; basicly all programs ever, that want to get version information. It is ;; meant to be a built-in version number for what kind of struct the cal= ler ;; expects. If the struct ever changes, we redefine the NOW to another e= num ;; from above. */ ;; #define CURLVERSION_NOW CURLVERSION_THIRD ;; = ;; typedef struct { ;; CURLversion age; /* age of the returned struct */ ;; const char *version; /* LIBCURL_VERSION */ ;; unsigned int version_num; /* LIBCURL_VERSION_NUM */ ;; const char *host; /* OS/host/cpu/machine when configured */ ;; int features; /* bitmask, see defines below */ ;; const char *ssl_version; /* human readable string */ ;; long ssl_version_num; /* not used anymore, always 0 */ ;; const char *libz_version; /* human readable string */ ;; /* protocols is terminated by an entry with a NULL protoname */ ;; const char * const *protocols; ;; = ;; /* The fields below this were added in CURLVERSION_SECOND */ ;; const char *ares; ;; int ares_num; ;; = ;; /* This field was aded in CURLVERSION_THIRD */ ;; const char *libidn; ;; } curl_version_info_data; ;; = ;; #define CURL_VERSION_IPV6 (1<<0) /* IPv6-enabled */ ;; #define CURL_VERSION_KERBEROS4 (1<<1) /* kerberos auth is supported */ ;; #define CURL_VERSION_SSL (1<<2) /* SSL options are present */ ;; #define CURL_VERSION_LIBZ (1<<3) /* libz features are present */ ;; #define CURL_VERSION_NTLM (1<<4) /* NTLM auth is supported */ ;; #define CURL_VERSION_GSSNEGOTIATE (1<<5) /* Negotiate auth support */ ;; #define CURL_VERSION_DEBUG (1<<6) /* built with debug capabilities = */ ;; #define CURL_VERSION_ASYNCHDNS (1<<7) /* asynchronous dns resolves */ ;; #define CURL_VERSION_SPNEGO (1<<8) /* SPNEGO auth */ ;; #define CURL_VERSION_LARGEFILE (1<<9) /* supports files bigger than 2GB= */ ;; #define CURL_VERSION_IDN (1<<10) /* International Domain Names sup= port */ ;; #define CURL_VERSION_SSPI (1<<11) /* SSPI is supported */ ;; = ;; /* ;; * NAME curl_version_info() ;; * ;; * DESCRIPTION ;; * ;; * This function returns a pointer to a static copy of the version info ;; * struct. See above. ;; */ ;; CURL_EXTERN curl_version_info_data *curl_version_info(CURLversion); ;; = ;; /* ;; * NAME curl_easy_strerror() ;; * ;; * DESCRIPTION ;; * ;; * The curl_easy_strerror function may be used to turn a CURLcode value ;; * into the equivalent human readable error string. This is useful ;; * for printing meaningful error messages. ;; */ ;; CURL_EXTERN const char *curl_easy_strerror(CURLcode); ;; = ;; /* ;; * NAME curl_share_strerror() ;; * ;; * DESCRIPTION ;; * ;; * The curl_share_strerror function may be used to turn a CURLSHcode val= ue ;; * into the equivalent human readable error string. This is useful ;; * for printing meaningful error messages. ;; */ ;; CURL_EXTERN const char *curl_share_strerror(CURLSHcode); (provide 'curl) ;;; curl.el ends here 1.1 XEmacs/packages/unsupported/stephen/curl/curl_api.c Index: curl_api.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D /* * Lisp interface to libcurl for XEmacs. * * Copyright (C) 1998, 1999 J. Kean Johnston. All rights reserved. * Copyright (C) 2002 Jerry James. * Copyright (C) 2005 Stephen J. Turnbull * * All rights reserved, except as expressly indicated below. * * This program is not considered part of XEmacs. * * You may use, copy, modify, and distribute this software under the terms * of the GNU General Public License, version 2 or later at your option. * * Author: Stephen J. Turnbull * Creation-Date: 2005-11-20 */ #include #include "lisp.h" #ifdef HAVE_SHLIB # include "emodules.h" #endif #include "lstream.h" #include "elhash.h" #include "curl_api.h" /* include */ /************************************************************************/ /* Module-specific stuff */ /************************************************************************/ /* Local references to Lisp symbols */ static Lisp_Object Qcurl_api, Qcurl, Qurl_handlep, Qlong, Qfunctionpoint, Qobjectpoint, Qoff_t; static Lisp_Object Vcurl_option_hash_table, Vcurl_info_hash_table; /************************************************************************/ /* url_handle lrecord basic functions */ /************************************************************************/ static const struct memory_description url_handle_description [] =3D { { XD_LISP_OBJECT, offsetof (struct Lisp_URL_Handle, type) }, { XD_LISP_OBJECT, offsetof (struct Lisp_URL_Handle, property_list) }, { XD_LISP_OBJECT, offsetof (struct Lisp_URL_Handle, coding_system) }, { XD_END } }; static Lisp_Object mark_url_handle (Lisp_Object obj) { if (NILP (XURL_HANDLE (obj)->property_list)) return XURL_HANDLE (obj)->type; mark_object (XURL_HANDLE (obj)->coding_system); mark_object (XURL_HANDLE (obj)->type); return XURL_HANDLE (obj)->property_list; } static void print_url_handle (Lisp_Object obj, Lisp_Object printcharfun, int UNUSED (escapeflag)) { Lisp_URL_Handle *url_handle =3D XURL_HANDLE (obj); if (print_readably) printing_unreadable_object ("#", url_handle->url); write_c_string (printcharfun, "#type)) write_c_string (printcharfun, "(dead) "); else write_fmt_string_lisp (printcharfun, "%S ", 1, url_handle->type); if (url_handle->url) write_c_string (printcharfun, url_handle->url); write_fmt_string (printcharfun, " 0x%lx>", (unsigned long) url_handle); } static Lisp_URL_Handle * allocate_url_handle (void) { Lisp_URL_Handle *url_handle =3D ALLOC_LCRECORD_TYPE (Lisp_URL_Handle, &lrecord_url_handle); url_handle->type =3D Qnil; url_handle->property_list =3D Qnil; url_handle->coding_system =3D Qnil; url_handle->url =3D NULL; url_handle->curl_handle =3D NULL; /* #### UNIMPLEMENTED we need to initialize the big_ball_of_strings here.= */ return url_handle; } static void finalize_url_handle (void *header, int for_disksave) { Lisp_URL_Handle *url_handle =3D (Lisp_URL_Handle *) header; if (for_disksave) invalid_operation ("Can't dump an emacs containing URL_HANDLE objects", wrap_url_handle (url_handle)); /* #### UNIMPLEMENTED we need to free the big_ball_of_strings here. */ if (url_handle->curl_handle) curl_easy_cleanup (url_handle->curl_handle); url_handle->curl_handle =3D NULL; if (url_handle->url) xfree (url_handle->url, Extbyte *); url_handle->url =3D NULL; } DEFINE_LRECORD_IMPLEMENTATION ("url_handle", url_handle, 0, mark_url_handle, print_url_handle, finalize_url_handle, NULL, NULL, url_handle_description, Lisp_URL_Handle); =0C /************************************************************************/ /* Basic url_handle accessors = */ /************************************************************************/ /* ###autoload */ DEFUN ("url-handle-p", Furl_handle_p, 1, 1, 0, /* Return t if OBJECT is a URL_HANDLE connection. */ (object)) { return URL_HANDLEP (object) ? Qt : Qnil; } DEFUN ("url-handle-type", Furl_handle_type, 1, 1, 0, /* Return the type of URL-HANDLE, a symbol. */ (url_handle)) { CHECK_URL_HANDLE (url_handle); return XURL_HANDLE (url_handle)->type; } DEFUN ("url-handle-live-p", Furl_handle_live_p, 1, 1, 0, /* Return non-nil if URL_HANDLE is an active URL_HANDLE connection. */ (url_handle)) { CHECK_URL_HANDLE (url_handle); return Furl_handle_type (url_handle); } DEFUN ("url-handle-property-list", Furl_handle_host, 1, 1, 0, /* Return the property list of URL-HANDLE. */ (url_handle)) { Lisp_Object retval; CHECK_URL_HANDLE (url_handle); retval =3D XURL_HANDLE (url_handle)->property_list; /* #### extract properties from the curl_handle and add to retval here */ return retval; } #if 0 DEFUN ("url-handle-host", Furl_handle_host, 1, 1, 0, /* Return the server host of the connection URL-HANDLE, as a string. */ (url_handle)) { CHECK_URL_HANDLE (url_handle); return WHAT? } #endif =0C /************************************************************************/ /* Lisp API functions */ /************************************************************************/ /* error macros */ #define UNIMPLEMENTED(reason) signal_error (Qunimplemented, reason, Qunboun= d) /* #### Do something more useful with the error codes! */ #define CHECK_CURL_ERROR(code, index, handle) \ do { if (code) \ Fsignal (Qio_error, \ list3 (build_ext_string (curl_easy_strerror (code), \ Qbinary), \ index, \ handle)); } while (0) DEFUN ("curl-make-url-handle", Fcurl_make_url_handle, 1, 3, 0, /* Return a cURL handle for URL, wrapped in an url-handle. URL is a string, which must be a URI scheme known to cURL. URL is encoded according to optional argument CODESYS. (Of course cURL will URL-encode it before sending it off.) PLIST is a property list. These properties are set on the cURL handle. #### This interface may change to (&rest PLIST). #### This is not called "make-curl-handle" because a more general module, which will call this function, is planned. That will call this function from a function `make-url-handle'. */ (url, codesys, plist)) { Lisp_URL_Handle *url_handle =3D allocate_url_handle (); url_handle->type =3D Qcurl; if (NILP (codesys)) /* #### Quick hack, should be Qnative? */ codesys =3D Ffind_coding_system (Qutf_8); CHECK_CODING_SYSTEM (codesys); url_handle->coding_system =3D codesys; /* Do this *before* the plist because later we will be initializing curl_handle options from the plist. */ CHECK_STRING (url); url_handle->url =3D NEW_LISP_STRING_TO_EXTERNAL_MALLOC(url, codesys); url_handle->curl_handle =3D curl_easy_init (); curl_easy_setopt (url_handle->curl_handle, CURLOPT_URL, url_handle->url); /* skeleton - currently simply copies the plist This has the effect of checking well-formedness, and we may want to handle some properties specially. */ url_handle->property_list =3D Qnil; { EXTERNAL_PROPERTY_LIST_LOOP_3(key, value, plist) { url_handle->property_list =3D Fcons (key, Fcons (value, url_handle->property_list)); } } return wrap_url_handle (url_handle); } DEFUN ("curl-easy-setopt", Fcurl_easy_setopt, 3, 3, 0, /* Set OPTION to VALUE on curl url-handle HANDLE and return t. OPTION is a string denoting an option in `curl-option-hash-table'. VALUE must be of the appropriate type. HANDLE must be an url-handle object of type `curl'. A wrapper with some validation for libcurl's `curl_easy_setopt'. Errors without useful explanations probably mean `curl-option-hash-table' is corrupt. */ (option, value, handle)) { Lisp_Object optdata =3D Fgethash (option, Vcurl_option_hash_table, Qnil); Lisp_Object opttype =3D Fcar (optdata); Lisp_Object optindex =3D Fcar (Fcdr (optdata)); CURLoption index; CURL *curl; CURLcode code; Lisp_URL_Handle *h; if (NILP (optdata)) invalid_argument ("unrecognized cURL option", option); CHECK_URL_HANDLE (handle); h =3D XURL_HANDLE (handle); if (!EQ (h->type, Qcurl)) wtaerror ("handle is not a curl handle", handle); curl =3D h->curl_handle; CHECK_INT (optindex); index =3D XINT (optindex); if (EQ (opttype, Qlong)) { CHECK_INT (value); index +=3D CURLOPTTYPE_LONG; /* CURLoptions encode type */ code =3D curl_easy_setopt (curl, (CURLoption) index, XINT (value)); CHECK_CURL_ERROR (code, option, handle); } else if (EQ (opttype, Qobjectpoint)) { Extbyte *s; /* HA-A-ACK! Currently we only support strings here, and we don't check a string is a sane value for the option. */ CHECK_STRING (value); index +=3D CURLOPTTYPE_OBJECTPOINT; /* CURLoptions encode type */ /* #### MEMORY LEAK! We need to add a pointer to the converted data here to a Dynarr which is part of the handle. That will be freed when the handle is collected. */ /* #### Is this the right coding system? */ s =3D NEW_LISP_STRING_TO_EXTERNAL_MALLOC (value, h->coding_system); code =3D curl_easy_setopt (curl, (CURLoption) index, s); CHECK_CURL_ERROR (code, option, handle); if (index =3D=3D CURLOPT_URL) { h->url =3D s; } } else if (EQ (opttype, Qfunctionpoint)) { index +=3D CURLOPTTYPE_FUNCTIONPOINT; /* CURLoptions encode type */ UNIMPLEMENTED ("curl_api function pointer options"); } else if (EQ (opttype, Qoff_t)) { index +=3D CURLOPTTYPE_OFF_T; /* CURLoptions encode type */ UNIMPLEMENTED ("curl_api large file offset options"); } else { invalid_state ("invalid option type in `curl-option-hash-table'", opttype); } return Qt; } static size_t curl_write_function (void *data, size_t size, size_t nmemb, void *stream) { size_t count =3D size * nmemb; Lstream *s =3D XLSTREAM ((Lisp_Object) stream); /* #### the return code should be checked */ return (Lstream_write (s, data, count)) ? --count : count; } DEFUN ("curl-easy-perform", Fcurl_easy_perform, 1, 2, 0, /* Read from the URL represented by HANDLE into BUFFER at point. Optional BUFFER defaults to the current buffer. Returns t. */ (handle, buffer)) { CHECK_URL_HANDLE (handle); if (NILP (buffer)) buffer =3D Fcurrent_buffer (); CHECK_BUFFER (buffer); = if (EQ (XURL_HANDLE (handle)->type, Qcurl)) { CURL *curl =3D XURL_HANDLE (handle)->curl_handle; if (curl) { CURLcode code; struct buffer *buf =3D XBUFFER(buffer); /* #### I don't see how to generalize this. We'd like to be able to the Lstream in from Lisp, and somehow figure out what the type is so as to use the proper CURLOPT_WRITEFUNCTION. Ditto for CURLOPT_READFUNCTION and CURLOPT_READDATA. */ Lisp_Object s =3D make_lisp_buffer_output_stream (buf, buf->bufpt, LSTR_ALLOW_QUIT); curl_easy_setopt (curl, CURLOPT_WRITEFUNCTION, &curl_write_function); curl_easy_setopt (curl, CURLOPT_WRITEDATA, s); code =3D curl_easy_perform (curl); Lstream_close (XLSTREAM (s)); CHECK_CURL_ERROR (code, intern ("perform"), handle); } else { invalid_state ("URL handle is uninitialized", handle); } } else { wtaerror ("URL handle is not a cURL handle", handle); } return Qt; } DEFUN ("curl-easy-getinfo", Fcurl_easy_getinfo, 2, 2, 0, /* Return the value of ATTRIBUTE for HANDLE. ATTRIBUTE is a string denoting an attribute in `curl-info-hash-table'. HANDLE must be an url-handle object of type `curl'. A wrapper with some validation for libcurl's `curl_easy_getinfo'. Errors without useful explanations probably mean `curl-info-hash-table' is corrupt. */ (attribute, handle)) { Lisp_Object attdata =3D Fgethash (attribute, Vcurl_info_hash_table, Qnil); Lisp_Object atttype =3D Fcar (attdata); Lisp_Object attindex =3D Fcar (Fcdr (attdata)); CURL *curl; CURLcode code; Lisp_URL_Handle *h; if (NILP (attdata)) invalid_argument ("unrecognized cURL attribute", attribute); CHECK_URL_HANDLE (handle); h =3D XURL_HANDLE (handle); if (!EQ (h->type, Qcurl)) wtaerror ("handle is not a curl handle", handle); curl =3D h->curl_handle; CHECK_INT (attindex); index =3D XINT (attindex); if (EQ (atttype, Qlong)) { long retval; code =3D curl_easy_getinfo (curl, (CURLoption) index, &retval); CHECK_CURL_ERROR (code, attribute, handle); /* #### can this overflow? */ value =3D make_int (retval); } else if (EQ (atttype, Qstring)) { Extbyte *retval; code =3D curl_easy_getinfo (curl, (CURLoption) index, &retval); CHECK_CURL_ERROR (code, attribute, handle); value =3D build_ext_string (s); } else if (EQ (atttype, Qdouble)) { double retval; code =3D curl_easy_getinfo (curl, (CURLoption) index, &retval); CHECK_CURL_ERROR (code, attribute, handle); value =3D make_float (retval); } else if (EQ (atttype, Qlist)) { UNIMPLEMENTED ("curl_api slist attributes"); } else { invalid_state ("invalid attribute type in `curl-info-hash-table'", atttype); } return value; = } /* * Each dynamically loaded Emacs module is given a name at compile * time. This is a short name, and must be a valid part of a C * identifier. This name is used to construct the name of several * functions which must appear in the module source code. * The first such function, modules_of_XXXX, should load in any dependent * modules. This function is optional, and the module will still load if * it is not present in the module. * * The second function, which is NOT optional, is syms_of_XXXX, in which * all functions that the module will be provided are declared. This * function will contain calls to DEFSUBR(). * * The third function, which is also NOT optional, is vars_of_XXXX, in * which you declare all variables that the module provides. This * function will contain calls to DEFVAR_LISP(), DEFVAR_BOOL() etc. * * When declaring functions and variables in the syms_of_XXXX and * vars_of_XXXX functions, you use the exact same syntax that you * would as if this module were being compiled into the pure Emacs. * * The fourth function, which is optional, is unload_XXXX, in which actions * that must be taken to unload the module are listed. XEmacs will unbind * functions and variables for you. Anything else that must be done should * appear in this function. * * All four of these functions are declared as void functions, * taking no parameters. */ #if 0 void modules_of_curl_api () { /* * This function isn't actually required as we will not be loading * in any dependent modules, but if we were, we would do something like: * emodules_load ("dependent.ell", "sample2", "1.0.0"); */ /* MAYBE: emodules_load ("earl.ell", "earl", "0.0.1"); */ } #endif void syms_of_curl_api () { INIT_LRECORD_IMPLEMENTATION (url_handle); /* #### These functions will move to the earl module. */ DEFSUBR (Furl_handle_p); DEFSUBR (Furl_handle_live_p); DEFSUBR (Furl_handle_host); DEFSUBR (Furl_handle_type); /* cURL-specific functions. */ DEFSUBR (Fcurl_make_url_handle); DEFSUBR (Fcurl_easy_perform); DEFSUBR (Fcurl_easy_setopt); /* #### These symbols will move to the earl module. */ DEFSYMBOL_MULTIWORD_PREDICATE (Qurl_handlep); /* cURL-specific symbols. */ DEFSYMBOL (Qcurl_api); /* feature symbol */ DEFSYMBOL (Qcurl); DEFSYMBOL (Qlong); DEFSYMBOL (Qfunctionpoint); DEFSYMBOL (Qobjectpoint); defsymbol (&Qoff_t, "off_t"); /* Yes, it IS worth conforming to cURL's spelling of this symbol. */ } void vars_of_curl_api () { Fprovide (Qcurl_api); DEFVAR_LISP ("curl-option-hash-table", &Vcurl_option_hash_table /* Table of options available for `curl-easy-setopt'. Key are strings naming options. The option names are taken from enum CURLoption in . They are all uppercase, and the "CURLOPT_" prefix is omitted. Values are lists containing a type symbol \(one of `long', `objectpoint', `functionpoint', and `off_t') and an integer, which is the option index. It is planned to add a list of Lisp types that can be converted to something that is useful for the option as the 3rd element of the value list. It is planned to add the leading comments as docstrings, to be the 4th element of the value list corresponding to each key. */ ); Vcurl_option_hash_table =3D Qnil; DEFVAR_LISP ("curl-info-hash-table", &Vcurl_info_hash_table /* Table of attributes accessible via `curl-easy-getinfo'. Keys are strings naming attributes. The attribute names are taken from enum CURLinfo in . They are all uppercase, and the "CURLINFO_" prefix is omitted. Values are lists containing a type symbol (one of `long', `string', `double', and `list') and an integer, which is the attribute index. It is planned to add docstrings, to be the 3rd element of the value list corresponding to each key. */ ); Vcurl_info_hash_table =3D Qnil; #ifdef HAVE_SHLIB /* Need to initialize cURL if loaded as a module. Could do this lazily (when creating the first cURL handle), but since this is a module it probably got autoloaded in response to a call to `make-curl-handle'. */ if (curl_global_init (CURL_GLOBAL_XEMACS)) { /* unload_curl_api (); */ /* #### can we do this? */ signal_error (Qio_error, "libcurl initialization failed", Qunbound); } #endif } #ifdef HAVE_SHLIB void unload_curl_api () { /* If we create any new types by INIT_LRECORD_IMPLEMENTATION (sample_type= ), then UNDEF_LRECORD_IMPLEMENTATION (sample_type) must appear here. Als= o, any symbols declared with DEFSYMBOL (Qsample_var) or a variant, must have a corresponding unstaticpro_nodump (&Qsample_var) here. */ /* Shut down libcurl and free internal structures. #### Handle return code? Nothing interesting is documented. */ (void) curl_global_cleanup (); unstaticpro_nodump (&Qcurl_api); unstaticpro_nodump (&Qcurl); unstaticpro_nodump (&Qurl_handlep); unstaticpro_nodump (&Qlong); unstaticpro_nodump (&Qfunctionpoint); unstaticpro_nodump (&Qobjectpoint); unstaticpro_nodump (&Qoff_t); } #endif 1.1 XEmacs/packages/unsupported/stephen/curl/curl_api.h Index: curl_api.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D /* * Lisp interface to libcurl for XEmacs. * * Copyright (C) 1998, 1999 J. Kean Johnston. All rights reserved. * Copyright (C) 2002 Jerry James. * Copyright (C) 2005 Stephen J. Turnbull * * All rights reserved, except as expressly indicated below. * * This program is not considered part of XEmacs. * * You may use, copy, modify, and distribute this software under the terms * of the GNU General Public License, version 2 or later at your option. * * Author: Stephen J. Turnbull * Creation-Date: 2005-11-23 */ #include /************************************************************************/ /* XEmacs-specific cURL stuff */ /************************************************************************/ /* Presumably we initialize Windows socket stuff correctly. If not, I don't think it's a good idea to do it in a module. If you know better, feel free to allow CURL_GLOBAL_WIN32 in this macro. */ #define CURL_GLOBAL_XEMACS (CURL_GLOBAL_ALL & ~CURL_GLOBAL_WIN32) /************************************************************************/ /* Structures */ /************************************************************************/ /* This is URL_Handle, not Curl_Handle, because a generalization is planned. */ struct Lisp_URL_Handle { struct LCRECORD_HEADER header; /* type of the handle; READ-ONLY from Lisp */ Lisp_Object type; /* property list for properties not contained in the cURL handle; READ-ONLY from Lisp This could be used to maintain state for a handler based on url.el or an external process (eg, curl, wget). */ Lisp_Object property_list; /* the coding system used to convery url; READ-ONLY from Lisp */ Lisp_Object coding_system; /* the URL string in external format cURL expects the caller to allocate storage and clean it up. */ Extbyte *url; /* the cURL handle used by the libcurl API */ CURL *curl_handle; /* #### UNIMPLEMENTED array of pointers to string data we need to free */ Dynarr *big_ball_of_strings; }; typedef struct Lisp_URL_Handle Lisp_URL_Handle; DECLARE_LRECORD (url_handle, Lisp_URL_Handle); #define XURL_HANDLE(x) XRECORD (x, url_handle, Lisp_URL_Handle) #define wrap_url_handle(p) wrap_record (p, url_handle) #define URL_HANDLEP(x) RECORDP (x, url_handle) #define CHECK_URL_HANDLE(x) CHECK_RECORD (x, url_handle) #define CONCHECK_URL_HANDLE(x) CONCHECK_RECORD (x, url_handle) 1.1 XEmacs/packages/unsupported/stephen/curl/install-sh Index: install-sh =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D #!/bin/sh # # install - install a program, script, or datafile # This comes from X11R5 (mit/util/scripts/install.sh). # # Copyright 1991 by the Massachusetts Institute of Technology # # Permission to use, copy, modify, distribute, and sell this software and i= ts # documentation for any purpose is hereby granted without fee, provided that # the above copyright notice appear in all copies and that both that # copyright notice and this permission notice appear in supporting # documentation, and that the name of M.I.T. not be used in advertising or # publicity pertaining to distribution of the software without specific, # written prior permission. M.I.T. makes no representations about the # suitability of this software for any purpose. It is provided "as is" # without express or implied warranty. # # Calling this script install-sh is preferred over install.sh, to prevent # `make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. It can only install one file at a time, a restriction # shared with many OS's install programs. # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit=3D"${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. va= rs. mvprog=3D"${MVPROG-mv}" cpprog=3D"${CPPROG-cp}" chmodprog=3D"${CHMODPROG-chmod}" chownprog=3D"${CHOWNPROG-chown}" chgrpprog=3D"${CHGRPPROG-chgrp}" stripprog=3D"${STRIPPROG-strip}" rmprog=3D"${RMPROG-rm}" mkdirprog=3D"${MKDIRPROG-mkdir}" transformbasename=3D"" transform_arg=3D"" instcmd=3D"$mvprog" chmodcmd=3D"$chmodprog 0755" chowncmd=3D"" chgrpcmd=3D"" stripcmd=3D"" rmcmd=3D"$rmprog -f" mvcmd=3D"$mvprog" src=3D"" dst=3D"" dir_arg=3D"" while [ x"$1" !=3D x ]; do case $1 in -c) instcmd=3D"$cpprog" shift continue;; -d) dir_arg=3Dtrue shift continue;; -m) chmodcmd=3D"$chmodprog $2" shift shift continue;; -o) chowncmd=3D"$chownprog $2" shift shift continue;; -g) chgrpcmd=3D"$chgrpprog $2" shift shift continue;; -s) stripcmd=3D"$stripprog" shift continue;; -t=3D*) transformarg=3D`echo $1 | sed 's/-t=3D//'` shift continue;; -b=3D*) transformbasename=3D`echo $1 | sed 's/-b=3D//'` shift continue;; *) if [ x"$src" =3D x ] then src=3D$1 else # this colon is to work around a 386BSD /bin/sh bug : dst=3D$1 fi shift continue;; esac done if [ x"$src" =3D x ] then echo "install: no input file specified" exit 1 else : fi if [ x"$dir_arg" !=3D x ]; then dst=3D$src src=3D"" = if [ -d $dst ]; then instcmd=3D: chmodcmd=3D"" else instcmd=3D$mkdirprog fi else # Waiting for this to be detected by the "$instcmd $src $dsttmp" command # might cause directories to be created, which would be especially bad = # if $src (and thus $dsttmp) contains '*'. if [ -f "$src" ] || [ -d "$src" ] then : else echo "install: $src does not exist" exit 1 fi = if [ x"$dst" =3D x ] then echo "install: no destination specified" exit 1 else : fi # If destination is a directory, append the input filename; if your system # does not like double slashes in filenames, you may need to add some logic if [ -d $dst ] then dst=3D"$dst"/`basename $src` else : fi fi ## this sed command emulates the dirname command dstdir=3D`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` # Make sure that the destination directory exists. # this part is taken from Noah Friedman's mkinstalldirs script # Skip lots of stat calls in the usual case. if [ ! -d "$dstdir" ]; then defaultIFS=3D' ' IFS=3D"${IFS-${defaultIFS}}" oIFS=3D"${IFS}" # Some sh's can't handle IFS=3D/ for some reason. IFS=3D'%' set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'` IFS=3D"${oIFS}" pathcomp=3D'' while [ $# -ne 0 ] ; do pathcomp=3D"${pathcomp}${1}" shift if [ ! -d "${pathcomp}" ] ; then $mkdirprog "${pathcomp}" else : fi pathcomp=3D"${pathcomp}/" done fi if [ x"$dir_arg" !=3D x ] then $doit $instcmd $dst && if [ x"$chowncmd" !=3D x ]; then $doit $chowncmd $dst; else : ; fi && if [ x"$chgrpcmd" !=3D x ]; then $doit $chgrpcmd $dst; else : ; fi && if [ x"$stripcmd" !=3D x ]; then $doit $stripcmd $dst; else : ; fi && if [ x"$chmodcmd" !=3D x ]; then $doit $chmodcmd $dst; else : ; fi else # If we're going to rename the final executable, determine the name now. if [ x"$transformarg" =3D x ] = then dstfile=3D`basename $dst` else dstfile=3D`basename $dst $transformbasename | = sed $transformarg`$transformbasename fi # don't allow the sed command to completely eliminate the filename if [ x"$dstfile" =3D x ] = then dstfile=3D`basename $dst` else : fi # Make a temp file name in the proper directory. dsttmp=3D$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp && trap "rm -f ${dsttmp}" 0 && # and set any options; do chmod last to preserve setuid bits # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $instcmd $src $dsttmp" command. if [ x"$chowncmd" !=3D x ]; then $doit $chowncmd $dsttmp; else :;fi && if [ x"$chgrpcmd" !=3D x ]; then $doit $chgrpcmd $dsttmp; else :;fi && if [ x"$stripcmd" !=3D x ]; then $doit $stripcmd $dsttmp; else :;fi && if [ x"$chmodcmd" !=3D x ]; then $doit $chmodcmd $dsttmp; else :;fi && # Now rename the file to the real destination. $doit $rmcmd -f $dstdir/$dstfile && $doit $mvcmd $dsttmp $dstdir/$dstfile = fi && exit 0 --===============1664854459618793446==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============4434824934546819885==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent packages/unsupported/stephen/curl README Date: 2005-11-26 16:04:25 +0000 Message-ID: <20051126160425.10766.qmail@sunsite.dk> --===============4434824934546819885== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/26 17:04:25 Added: packages/unsupported/stephen/curl README Log: Project description. Revision Changes Path 1.1 XEmacs/packages/unsupported/stephen/curl/README Index: README =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D XEmacs Lisp binding for libcurl =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D libcurl is the library API for cURL. Documentation is available at http://curl.haxx.se/. This is primarily a C module, not a Lisp library. There is a Lisp library which initializes some data structures and requires the module; this structure will probably be changed in the future. The current version of the module exposes the libcurl "easy" interface via the following Lisp API. It adds one object type, "URL handle", and the functions and variables listed below. The naming scheme will seem a little odd. My intention is to unify a number of different URL handling implementations, probably including EFS, TRAMP and libneon, under the url-handle interface. The generic interface will use the url-handle-* namespace. The curl-* API provides low-level, library-specific functions. These functions are generally named after either a library API (eg, `curl-easy-perform' actually accesses the resource pointed to by the URL), or the generic API it implements (`curl-make-url-handle'). Currently there are no generic equivalents to the libcurl wrappers. This is intentional; I want to implement at least one more lowlevel API before starting to design the generic APIs. I do not have immediate plans to implement the libcurl "multi" and "shared" interfaces. It should be easy, and patches and suggestions are welcome. DEFUN ("url-handle-p", Furl_handle_p, 1, 1, 0, /* Return t if OBJECT is a URL_Handle connection. */ (object)) DEFUN ("url-handle-type", Furl_handle_type, 1, 1, 0, /* Return the type of URL-HANDLE, a symbol. */ (url_handle)) DEFUN ("url-handle-live-p", Furl_handle_live_p, 1, 1, 0, /* Return non-nil if URL_HANDLE is an active URL_HANDLE connection. */ (url_handle)) DEFUN ("url-handle-property-list", Furl_handle_host, 1, 1, 0, /* Return the property list of URL-HANDLE. */ (url_handle)) DEFUN ("curl-make-url-handle", Fcurl_make_url_handle, 1, 3, 0, /* Return a cURL handle for URL, wrapped in an url-handle. URL is a string, which must be a URI scheme known to cURL. URL is encoded according to optional argument CODESYS. (Of course cURL will URL-encode it before sending it off.) PLIST is a property list. These properties are set on the cURL handle. #### This interface may change to (&rest PLIST). */ (url, codesys, plist)) DEFUN ("curl-easy-setopt", Fcurl_easy_setopt, 3, 3, 0, /* Set OPTION to VALUE on curl url-handle HANDLE and return t. OPTION is a string denoting an option in `curl-option-hash-table'. VALUE must be of the appropriate type. HANDLE must be an url-handle object of type `curl'. A wrapper with some validation for libcurl's `curl_easy_setopt'. Errors without useful explanations probably mean `curl-option-hash-table' is corrupt. */ (option, value, handle)) DEFUN ("curl-easy-perform", Fcurl_easy_perform, 1, 2, 0, /* Read from the URL represented by HANDLE into BUFFER at point. Optional BUFFER defaults to the current buffer. Returns t. */ (handle, buffer)) DEFUN ("curl-easy-getinfo", Fcurl_easy_getinfo, 2, 2, 0, /* Return the value of ATTRIBUTE for HANDLE. ATTRIBUTE is a string denoting an attribute in `curl-info-hash-table'. HANDLE must be an url-handle object of type `curl'. A wrapper with some validation for libcurl's `curl_easy_getinfo'. Errors without useful explanations probably mean `curl-info-hash-table' is corrupt. */ (attribute, handle)) DEFVAR_LISP ("curl-option-hash-table", &Vcurl_option_hash_table /* Table of options available for `curl-easy-setopt'. Key are strings naming options. The option names are taken from enum CURLoption in . They are all uppercase, and the "CURLOPT_" prefix is omitted. Values are lists containing a type symbol \(one of `long', `objectpoint', `functionpoint', and `off_t') and an integer, which is the option index. It is planned to add a list of Lisp types that can be converted to something that is useful for the option as the 3rd element of the value list. It is planned to add the leading comments as docstrings, to be the 4th element of the value list corresponding to each key. */ ); Vcurl_option_hash_table =3D Qnil; DEFVAR_LISP ("curl-info-hash-table", &Vcurl_info_hash_table /* Table of attributes accessible via `curl-easy-getinfo'. Keys are strings naming attributes. The attribute names are taken from enum CURLinfo in . They are all uppercase, and the "CURLINFO_" prefix is omitted. Values are lists containing a type symbol (one of `long', `string', `double', and `list') and an integer, which is the attribute index. It is planned to add docstrings, to be the 3rd element of the value list corresponding to each key. */ ); Vcurl_info_hash_table =3D Qnil; --===============4434824934546819885==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============1887734918611063376==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent packages/unsupported/stephen/curl build.patch Date: 2005-11-26 16:33:19 +0000 Message-ID: <20051126163319.15825.qmail@sunsite.dk> --===============1887734918611063376== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/26 17:33:19 Added: packages/unsupported/stephen/curl build.patch Log: Build infrastructure patch. Revision Changes Path 1.1 XEmacs/packages/unsupported/stephen/curl/build.patch Index: build.patch =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D --- xft-integration/configure.ac Sun Nov 20 16:47:00 2005 +++ xemacs-git/configure.ac Thu Nov 24 00:09:47 2005 @@ -833,6 +830,9 @@ XE_MERGED_ARG([postgresql], AC_HELP_STRING([--with-postgresql],[Support the PostgreSQL RDBMS.]), [], []) +XE_MERGED_ARG([curl], + AC_HELP_STRING([--with-curl],[Support the libcurl API.]), + [], []) dnl XE_HELP_SUBSECTION([Mail options]) XE_KEYWORD_ARG([mail-locking], @@ -3851,6 +3855,29 @@ fi AC_SUBST(postgresql_libs) = +dnl Configure libcurl +curl_libs=3D'' +if test "$with_curl" =3D "yes"; then + AC_CHECKING([for cURL]) + AC_CHECK_PROG (have_curl_config, curl-config, yes, no) + if test "$have_curl_config" =3D "no"; then + with_curl=3Dno + else + AC_DEFINE(HAVE_CURL) + XE_APPEND(`curl-config --cflags`, c_switch_site) + curl_libs=3D`curl-config --libs` + XE_APPEND(modules/curl, MAKE_SUBDIR) + need_modules_common=3Dyes + if test "$enable_modules" =3D "yes"; then + XE_APPEND(modules/curl, INSTALL_ARCH_DEP_SUBDIR) + fi + fi + if test "$with_curl" !=3D "yes"; then + XE_DIE([Cannot fulfil --with-curl, curl-config not found.]) + fi +fi +AC_SUBST(curl_libs) = + dnl ---------------------- dnl Graphics libraries dnl ---------------------- @@ -5376,7 +5386,7 @@ if test "$enable_modules" =3D "yes"; then ld_libs_module=3D else - XE_SPACE(ld_libs_module, $ldap_libs $postgresql_libs $canna_libs) + XE_SPACE(ld_libs_module, $ldap_libs $postgresql_libs $canna_libs $curl_l= ibs) fi = XE_SPACE(CFLAGS, $CFLAGS) @@ -5955,6 +5965,7 @@ echo " - Using PostgreSQL header file: $libpq_fe_h_file" test "$with_postgresqlv7" =3D yes && echo " - Using PostgreSQL V7 bin= dings." fi +test "$with_curl" =3D yes && echo " Compiling in support for libcurl API." = echo " Internationalization:" --- xft-integration/src/config.h.in Tue Nov 15 21:27:58 2005 +++ xemacs-git/src/config.h.in Mon Nov 21 00:55:33 2005 @@ -539,6 +536,9 @@ #undef HAVE_POSTGRESQLV7 /* main PostgreSQL header file */ #undef LIBPQ_FE_H_FILE + +/* Do we want libcurl support? */ +#undef HAVE_CURL = /* Do you have the Xauth library present? This will add some extra functionality to gnuserv. */ --- xft-integration/src/Makefile.in.in Sun Nov 20 02:34:43 2005 +++ xemacs-git/src/Makefile.in.in Mon Nov 21 00:54:03 2005 @@ -218,6 +218,10 @@ postgresql_objs=3D$(BLDMODULES)/postgresql/postgresql.o #endif = +#if defined(HAVE_CURL) && !defined(HAVE_SHLIB) +curl_objs=3D$(BLDMODULES)/curl/curl_api.o +#endif + #ifdef HAVE_WIN32_PROCESSES process_objs=3Dprocess-nt.o #elif defined (HAVE_UNIX_PROCESSES) @@ -269,7 +277,7 @@ $(balloon_help_objs) blocktype.o buffer.o bytecode.o \ callint.o casefiddle.o casetab.o chartab.o \ $(clash_detection_objs) cmdloop.o cmds.o $(coding_system_objs) console.o \ - console-stream.o\ + console-stream.o $(curl_objs) \ data.o $(database_objs) $(debug_objs) device.o dired.o doc.o doprnt.o\ dynarr.o \ editfns.o elhash.o emacs.o emodules.o eval.o events.o\ --===============1887734918611063376==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============3944386200933386016==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent packages/unsupported/stephen/curl ... Date: 2005-11-26 16:43:54 +0000 Message-ID: <20051126164354.17959.qmail@sunsite.dk> --===============3944386200933386016== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/26 17:43:54 Modified: packages/unsupported/stephen/curl curl-tests.el Log: Improve curl-tests.el. Revision Changes Path 1.2 +3 -0 XEmacs/packages/unsupported/stephen/curl/curl-tests.el Index: curl-tests.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/stephen/curl/curl-tes= ts.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- curl-tests.el 2005/11/26 16:01:10 1.1 +++ curl-tests.el 2005/11/26 16:43:54 1.2 @@ -1,6 +1,9 @@ ;; this file expects to be run from $blddir +;; it inserts the contents of the resources in the current buffer at point (require 'curl (expand-file-name "modules/curl/curl")) (setq handle (curl-make-url-handle "http://turnbull.sk.tsukuba.ac.jp/index.html")) +(curl-easy-perform handle) +;; reuse the handle (curl-easy-setopt "URL" "http://curl.haxx.se/doc/copyright.html" handle) (curl-easy-perform handle) --===============3944386200933386016==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============8127352952662839119==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/src ... Date: 2005-11-26 18:25:05 +0000 Message-ID: <20051126182505.5506.qmail@sunsite.dk> --===============8127352952662839119== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/26 19:25:05 Modified: xemacs/src ChangeLog objects-x.c xft-fonts.c Log: Build fixes. <87hd9z2rge.fsf_-_(a)tleepslib.sk.tsukuba.ac.jp> Revision Changes Path 1.475 +5 -0 XEmacs/xemacs/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.474 retrieving revision 1.475 diff -u -p -r1.474 -r1.475 --- ChangeLog 2005/11/26 11:45:47 1.474 +++ ChangeLog 2005/11/26 18:24:51 1.475 @@ -1,3 +1,8 @@ +2005-11-27 Stephen J. Turnbull + + * configure.ac (XE_COMPLEX_ARG[xft]): Remove merge detritus and + regenerate configure to fix syntax error. + 2005-11-26 Stephen J. Turnbull = Merge Xft. 1.263 +0 -1 XEmacs/xemacs/configure Index: configure =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v retrieving revision 1.262 retrieving revision 1.263 diff -u -p -r1.262 -r1.263 --- configure 2005/11/26 12:09:23 1.262 +++ configure 2005/11/26 18:24:51 1.263 @@ -2340,7 +2340,6 @@ unset _xft_default _xft_all_default x y = = fi; - , ) # If --with-gtk or --without-gtk were given then copy the value to the # equivalent enable_gtk variable. if test "${with_gtk+set}" =3D set; then 1.24 +0 -1 XEmacs/xemacs/configure.ac Index: configure.ac =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.ac,v retrieving revision 1.23 retrieving revision 1.24 diff -u -p -r1.23 -r1.24 --- configure.ac 2005/11/26 11:45:48 1.23 +++ configure.ac 2005/11/26 18:24:54 1.24 @@ -643,7 +643,6 @@ XE_COMPLEX_ARG([xft], XE_COMPLEX_OPTION([menubars],[yes]), XE_COMPLEX_OPTION([tabs],[yes]), XE_COMPLEX_OPTION([gauges],[yes])]) - [], []) XE_MERGED_ARG([gtk], AC_HELP_STRING([--with-gtk],[Support GTK on the X Window System. (EXPERIM= ENTAL)]), [true], [with_gtk=3Dno]) 1.895 +11 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.894 retrieving revision 1.895 diff -u -p -r1.894 -r1.895 --- ChangeLog 2005/11/26 13:20:21 1.894 +++ ChangeLog 2005/11/26 18:25:02 1.895 @@ -1,3 +1,14 @@ +2005-11-27 Stephen J. Turnbull + + Build fixes and dead code removal. + = + * xft-fonts.c (Ffc_pattern_destroy): Delete. + (syms_of_xft_fonts): Delete Ffc_pattern_destroy and comment out + Fxft_name_unparse. + + * objects-x.c (DECLARE_DEBUG_FONTNAME): Renamed improved + SET_DEBUG_FONTNAME. Remove redundant debug level checks. + 2004-12-19 Stephen J. Turnbull = * keymap.c (Fwhere_is_internal): Rewrite docstring. 1.30 +23 -35 XEmacs/xemacs/src/objects-x.c Index: objects-x.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/objects-x.c,v retrieving revision 1.29 retrieving revision 1.30 diff -u -p -r1.29 -r1.30 --- objects-x.c 2005/11/26 11:46:09 1.29 +++ objects-x.c 2005/11/26 18:25:03 1.30 @@ -1155,11 +1155,14 @@ static struct charset_reporter charset_t = /* Choose appropriate font name for debug messages. Use only in the top half of next function (enforced with #undef). */ -#define SET_DEBUG_FONTNAME(name) \ - do { name =3D \ - debug_xft > 2 ? eistr_fullname \ -: debug_xft > 1 ? eistr_longname \ -: eistr_shortname } while (0) +#define DECLARE_DEBUG_FONTNAME(__xemacs_name) \ + Eistring *__xemacs_name; \ + do \ + { \ + __xemacs_name =3D debug_xft > 2 ? eistr_fullname \ +: debug_xft > 1 ? eistr_longname \ +: eistr_shortname; \ + } while (0) = #endif /* USE_XFT */ = @@ -1302,11 +1305,8 @@ x_find_charset_font (Lisp_Object device, = if (cr->rfc3066) { - if (debug_xft > 0) - { - SET_DEBUG_FONTNAME (name); - CHECKING_LANG (0, eidata(name), cr->language); - } + DECLARE_DEBUG_FONTNAME (name); + CHECKING_LANG (0, eidata(name), cr->language); lang =3D cr->rfc3066; } else if (cr->charset) @@ -1348,12 +1348,9 @@ x_find_charset_font (Lisp_Object device, should have the full thing internally as truename, and filter stuff the client doesn't want to see on output. Should we just store it into the truename right here? */ - if (debug_xft > 0) - { - SET_DEBUG_FONTNAME (name); - DEBUG_XFT2 (0, "Xft font %s supports %s\n", - eidata(name), lang); - } + DECLARE_DEBUG_FONTNAME (name); + DEBUG_XFT2 (0, "Xft font %s supports %s\n", + eidata(name), lang); #ifdef RETURN_LONG_FONTCONFIG_NAMES result =3D eimake_string(eistr_fullname); #else @@ -1362,12 +1359,9 @@ x_find_charset_font (Lisp_Object device, } else { - if (debug_xft > 0) - { - SET_DEBUG_FONTNAME (name); - DEBUG_XFT2 (0, "Xft font %s doesn't support %s\n", - eidata(name), lang); - } + DECLARE_DEBUG_FONTNAME (name); + DEBUG_XFT2 (0, "Xft font %s doesn't support %s\n", + eidata(name), lang); result =3D Qnil; } = @@ -1394,12 +1388,9 @@ x_find_charset_font (Lisp_Object device, } else if (FcLangSetHasLang (v.u.l, lang) !=3D FcLangDifferentLang) { - if (debug_xft > 0) - { - SET_DEBUG_FONTNAME (name); - DEBUG_XFT2 (0, "Xft font %s supports %s\n", - eidata(name), lang); - } + DECLARE_DEBUG_FONTNAME (name); + DEBUG_XFT2 (0, "Xft font %s supports %s\n", + eidata(name), lang); #ifdef RETURN_LONG_FONTCONFIG_NAMES result =3D eimake_string(eistr_fullname); #else @@ -1408,12 +1399,9 @@ x_find_charset_font (Lisp_Object device, } else { - if (debug_xft > 0) - { - SET_DEBUG_FONTNAME (name); - DEBUG_XFT2 (0, "Xft font %s doesn't support %s\n", - eidata(name), lang); - } + DECLARE_DEBUG_FONTNAME (name); + DEBUG_XFT2 (0, "Xft font %s doesn't support %s\n", + eidata(name), lang); result =3D Qnil; } } @@ -1434,7 +1422,7 @@ x_find_charset_font (Lisp_Object device, = DEBUG_XFT1 (0, "shit happens, try X11 charset match for %s\n", = XSTRING_DATA(font)); -#undef SET_DEBUG_FONTNAME +#undef DECLARE_DEBUG_FONTNAME #endif /* USE_XFT */ = LISP_STRING_TO_EXTERNAL (font, patternext, Qx_font_name_encoding); 1.3 +2 -22 XEmacs/xemacs/src/xft-fonts.c Index: xft-fonts.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/xft-fonts.c,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- xft-fonts.c 2005/11/26 11:46:11 1.2 +++ xft-fonts.c 2005/11/26 18:25:03 1.3 @@ -463,25 +463,6 @@ Xft v.2: encoding, charwidth, charheigh } } = -#if 0 -/* #### delete this after some testing!! don't forget the DEFSUBR */ -/* #### This is a big mistake, no? --- crap, there's no implicit finalizer= */ -DEFUN("fc-pattern-destroy", Ffc_pattern_destroy, 1, 1, 0, /* -Explicitly deallocate a fc pattern object PATTERN. */ - (pattern)) -{ - CHECK_FCPATTERN(pattern); = - - /* paranoia strikes deep */ - if (XFCPATTERN_PTR(pattern)) - { - FcPatternDestroy(XFCPATTERN_PTR(pattern)); - XFCPATTERN_PTR(pattern) =3D 0; - } - return Qnil; -} -#endif - DEFUN("fc-font-match", Ffc_font_match, 2, 2, 0, /* Return the font on DEVICE that most closely matches PATTERN. = @@ -785,14 +766,13 @@ syms_of_xft_fonts (void) DEFSUBR(Ffc_pattern_create); DEFSUBR(Ffc_name_parse); DEFSUBR(Ffc_name_unparse); +#if 0 DEFSUBR(Fxft_name_unparse); /* URK! */ +#endif DEFSUBR(Ffc_pattern_duplicate); DEFSUBR(Ffc_pattern_add); DEFSUBR(Ffc_pattern_del); DEFSUBR(Ffc_pattern_get); -#if 0 - DEFSUBR(Ffc_pattern_destroy); -#endif DEFSUBR(Ffc_list_fonts_pattern_objects); DEFSUBR(Ffc_font_sort); DEFSUBR(Ffc_font_match); --===============8127352952662839119==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============5766020027350648145==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs ... Date: 2005-11-26 18:49:14 +0000 Message-ID: <20051126184914.9129.qmail@sunsite.dk> --===============5766020027350648145== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/26 19:49:14 Modified: xemacs configure configure.ac ChangeLog Log: Change Xft default to OFF. <87d5kn2qkw.fsf_-_(a)tleepslib.sk.tsukuba.ac.jp> Revision Changes Path 1.264 +11 -11 XEmacs/xemacs/configure Index: configure =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v retrieving revision 1.263 retrieving revision 1.264 diff -u -p -r1.263 -r1.264 --- configure 2005/11/26 18:24:51 1.263 +++ configure 2005/11/26 18:49:06 1.264 @@ -996,8 +996,8 @@ Window-system options Xft are `emacs' (buffers), `menubars', `tabs', a= nd `gauges'. Prefix component with `no' to disable = its use of Xft. Requires X11, Xft, Xrender, freetype, - and fontconfig support. Default is - `emacs,menubars,tabs,gauges'. + and fontconfig support. Default is `noemacs, + nomenubars, notabs, nogauges'. --with-gtk Support GTK on the X Window System. (EXPERIMENTA= L) --with-gnome Support GNOME on the X Window System. (EXPERIMEN= TAL) --with-msw Support MS Windows as a window system (only under @@ -2264,17 +2264,17 @@ _ACEOF fi; = _xft_notfirst=3D"" -with_xft_emacs=3Dyes -enable_xft_emacs=3Dyes -with_xft_menubars=3Dyes -enable_xft_menubars=3Dyes -with_xft_tabs=3Dyes -enable_xft_tabs=3Dyes -with_xft_gauges=3Dyes -enable_xft_gauges=3Dyes +with_xft_emacs=3Dno +enable_xft_emacs=3Dno +with_xft_menubars=3Dno +enable_xft_menubars=3Dno +with_xft_tabs=3Dno +enable_xft_tabs=3Dno +with_xft_gauges=3Dno +enable_xft_gauges=3Dno = _xft_types=3D"emacs menubars tabs gauges" -_xft_default=3D"emacs,menubars,tabs,gauges" +_xft_default=3D"noemacs,nomenubars,notabs,nogauges" = = = 1.25 +5 -5 XEmacs/xemacs/configure.ac Index: configure.ac =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.ac,v retrieving revision 1.24 retrieving revision 1.25 diff -u -p -r1.24 -r1.25 --- configure.ac 2005/11/26 18:24:54 1.24 +++ configure.ac 2005/11/26 18:49:09 1.25 @@ -637,12 +637,12 @@ XE_COMPLEX_ARG([xft], [Xft], [`emacs' (buffers), `menubars', `tabs', and `gauges'], [X11, Xft, Xrender, freetype, and fontconfig], - [`emacs,menubars,tabs,gauges'])], + [`noemacs, nomenubars, notabs, nogauges'])], [],[], - [XE_COMPLEX_OPTION([emacs],[yes]), - XE_COMPLEX_OPTION([menubars],[yes]), - XE_COMPLEX_OPTION([tabs],[yes]), - XE_COMPLEX_OPTION([gauges],[yes])]) + [XE_COMPLEX_OPTION([emacs],[no]), + XE_COMPLEX_OPTION([menubars],[no]), + XE_COMPLEX_OPTION([tabs],[no]), + XE_COMPLEX_OPTION([gauges],[no])]) XE_MERGED_ARG([gtk], AC_HELP_STRING([--with-gtk],[Support GTK on the X Window System. (EXPERIM= ENTAL)]), [true], [with_gtk=3Dno]) 1.476 +5 -0 XEmacs/xemacs/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.475 retrieving revision 1.476 diff -u -p -r1.475 -r1.476 --- ChangeLog 2005/11/26 18:24:51 1.475 +++ ChangeLog 2005/11/26 18:49:10 1.476 @@ -1,5 +1,10 @@ 2005-11-27 Stephen J. Turnbull = + * configure.ac (XE_COMPLEX_ARG[xft]): Default everything off; + change doc. + +2005-11-27 Stephen J. Turnbull + * configure.ac (XE_COMPLEX_ARG[xft]): Remove merge detritus and regenerate configure to fix syntax error. = --===============5766020027350648145==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============5091163622016694552==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by viteno xemacs ... Date: 2005-11-26 22:51:20 +0000 Message-ID: <20051126225120.12507.qmail@sunsite.dk> --===============5091163622016694552== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: viteno = Date: 05/11/26 23:51:20 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1356 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1355 retrieving revision 1.1356 diff -u -p -r1.1355 -r1.1356 --- version.sh 2005/11/25 22:51:38 1.1355 +++ version.sh 2005/11/26 22:51:20 1.1356 @@ -8,5 +8,5 @@ emacs_kit_version=3D infodock_major_version=3D4 infodock_minor_version=3D0 infodock_build_version=3D8 -xemacs_extra_name=3D"(+CVS-20051125)" +xemacs_extra_name=3D"(+CVS-20051126)" xemacs_release_date=3D"2005-10-26" --===============5091163622016694552==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:16 2017 Content-Type: multipart/mixed; boundary="===============7646186650347376241==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by vins xemacs/src ... Date: 2005-11-27 01:45:58 +0000 Message-ID: <20051127014558.4153.qmail@sunsite.dk> --===============7646186650347376241== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: vins = Date: 05/11/27 02:45:58 Branch: xemacs/src release-21-4 Modified: xemacs/src ChangeLog callproc.c Log: Fold_call_process_internal): Create the buffer if it does not already exist. Revision Changes Path 1.290.2.98 +6 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.290.2.97 retrieving revision 1.290.2.98 diff -u -p -r1.290.2.97 -r1.290.2.98 --- ChangeLog 2005/11/26 03:47:38 1.290.2.97 +++ ChangeLog 2005/11/27 01:45:45 1.290.2.98 @@ -1,3 +1,9 @@ +2005-11-26 Vin Shelton + + * callproc.c (Fold_call_process_internal): Create the buffer if it + does not already exist. The original patch came from Ben Wing in + http://list-archive.xemacs.org/xemacs-patches/200205/msg00117.html + 2002-05-13 Adrian Aichner = * callproc.c: Process-related docstring improvements spurred by 1.37.2.5 +1 -1 XEmacs/xemacs/src/Attic/callproc.c Index: callproc.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/Attic/callproc.c,v retrieving revision 1.37.2.4 retrieving revision 1.37.2.5 diff -u -p -r1.37.2.4 -r1.37.2.5 --- callproc.c 2005/11/26 03:47:42 1.37.2.4 +++ callproc.c 2005/11/27 01:45:51 1.37.2.5 @@ -291,7 +291,7 @@ If you quit, the process is killed with = || ZEROP (buffer))) { Lisp_Object spec_buffer =3D buffer; - buffer =3D Fget_buffer (buffer); + buffer =3D Fget_buffer_create (buffer); /* Mention the buffer name for a better error message. */ if (NILP (buffer)) CHECK_BUFFER (spec_buffer); --===============7646186650347376241==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============8200074129468517185==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by crestani xemacs/src ... Date: 2005-11-27 10:51:27 +0000 Message-ID: <20051127105127.26937.qmail@sunsite.dk> --===============8200074129468517185== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: crestani Date: 05/11/27 11:51:27 Modified: xemacs/src ChangeLog lrecord.h Log: Remove NEWGC junk. Revision Changes Path 1.896 +4 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.895 retrieving revision 1.896 diff -u -p -r1.895 -r1.896 --- ChangeLog 2005/11/26 18:25:02 1.895 +++ ChangeLog 2005/11/27 10:51:24 1.896 @@ -1,3 +1,7 @@ +2005-11-27 Marcus Crestani + + * lrecord.h: Remove NEWGC junk. + 2005-11-27 Stephen J. Turnbull = Build fixes and dead code removal. 1.46 +0 -2 XEmacs/xemacs/src/lrecord.h Index: lrecord.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lrecord.h,v retrieving revision 1.45 retrieving revision 1.46 diff -u -p -r1.45 -r1.46 --- lrecord.h 2005/11/26 11:46:09 1.45 +++ lrecord.h 2005/11/27 10:51:25 1.46 @@ -1,5 +1,3 @@ -#define NEW_GC_REMOVE - /* The "lrecord" structure (header of a compound lisp object). Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. Copyright (C) 1996, 2001, 2002, 2004, 2005 Ben Wing. --===============8200074129468517185==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============6367825842401363603==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by viteno xemacs ... Date: 2005-11-27 22:50:54 +0000 Message-ID: <20051127225054.27632.qmail@sunsite.dk> --===============6367825842401363603== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: viteno = Date: 05/11/27 23:50:54 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1357 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1356 retrieving revision 1.1357 diff -u -p -r1.1356 -r1.1357 --- version.sh 2005/11/26 22:51:20 1.1356 +++ version.sh 2005/11/27 22:50:53 1.1357 @@ -8,5 +8,5 @@ emacs_kit_version=3D infodock_major_version=3D4 infodock_minor_version=3D0 infodock_build_version=3D8 -xemacs_extra_name=3D"(+CVS-20051126)" +xemacs_extra_name=3D"(+CVS-20051127)" xemacs_release_date=3D"2005-10-26" --===============6367825842401363603==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============3158895571371261777==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by vins xemacs/src, redisplay-tty.c ... Date: 2005-11-28 02:10:25 +0000 Message-ID: <20051128021025.5299.qmail@sunsite.dk> --===============3158895571371261777== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: vins = Date: 05/11/28 03:10:25 Branch: xemacs release-21-4 xemacs/lisp release-21-4 xemacs/man release-21-4 xemacs/man/lispref release-21-4 xemacs/src release-21-4 Modified: xemacs/src ChangeLog config.h.in console-tty.h mule-ccl.c redisplay-tty.c select-x.c Log: Nearing the end of the 21.4.18 patches. Revision Changes Path 1.241.2.79 +5 -0 XEmacs/xemacs/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.241.2.78 retrieving revision 1.241.2.79 diff -u -p -r1.241.2.78 -r1.241.2.79 --- ChangeLog 2005/11/25 03:16:45 1.241.2.78 +++ ChangeLog 2005/11/28 02:08:55 1.241.2.79 @@ -1,3 +1,8 @@ +2005-03-12 Aidan Kehoe + + * configure.in (XE_COMPUTE_RUNPATH): Check XtRegisterDrawable + availability. = + 2005-04-11 Norbert Koch = * etc/PACKAGES: etc/PACKAGES: Announce re-builder, xetla. 1.147.2.35 +1 -1 XEmacs/xemacs/configure Index: configure =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v retrieving revision 1.147.2.34 retrieving revision 1.147.2.35 diff -u -p -r1.147.2.34 -r1.147.2.35 --- configure 2005/11/25 02:00:00 1.147.2.34 +++ configure 2005/11/28 02:08:56 1.147.2.35 @@ -6846,7 +6846,7 @@ EOF esac fi = - for ac_func in XConvertCase + for ac_func in XConvertCase XtRegisterDrawable do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 echo "configure:6853: checking for $ac_func" >&5 1.151.2.34 +1 -1 XEmacs/xemacs/configure.in Index: configure.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.in,v retrieving revision 1.151.2.33 retrieving revision 1.151.2.34 diff -u -p -r1.151.2.33 -r1.151.2.34 --- configure.in 2005/11/25 02:00:33 1.151.2.33 +++ configure.in 2005/11/28 02:09:20 1.151.2.34 @@ -2911,7 +2911,7 @@ dnl Avoid re-AC_DEFINE-ing xmkmf symbols esac fi = - AC_CHECK_FUNCS(XConvertCase) + AC_CHECK_FUNCS(XConvertCase XtRegisterDrawable) = AC_CHECK_HEADERS(X11/Xlocale.h) = 1.266.2.85 +19 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.266.2.84 retrieving revision 1.266.2.85 diff -u -p -r1.266.2.84 -r1.266.2.85 --- ChangeLog 2005/11/26 03:47:23 1.266.2.84 +++ ChangeLog 2005/11/28 02:10:07 1.266.2.85 @@ -1,3 +1,22 @@ +2005-02-28 Simon Josefsson + + * about.el (xemacs-hackers): Add jas. + (about-other-current-hackers): Likewise. + (about-url-alist): Add URL for jas. + (about-personal-info): Document jas. + (about-hacker-contribution): Describe jas contributions. + +2005-03-25 Ralf Angeli = + + * easymenu.el (easy-menu-remove): As described in = + E1D4Nn5-0001lq-EU(a)neutrino.iwi.uni-sb.de; don't strip everything + except the "Command" menu from mode-popup-menu. = + +2005-03-25 Ralf Angeli = + = + * font.el (font-spatial-to-canonical): Correct calculation of = + return value for pixel-based input value. = + = 2002-05-13 Adrian Aichner = * code-process.el (call-process): Process-related docstring 1.45.2.11 +31 -2 XEmacs/xemacs/lisp/about.el Index: about.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/about.el,v retrieving revision 1.45.2.10 retrieving revision 1.45.2.11 diff -u -p -r1.45.2.10 -r1.45.2.11 --- about.el 2003/11/08 02:35:01 1.45.2.10 +++ about.el 2005/11/28 02:10:08 1.45.2.11 @@ -1,6 +1,6 @@ ;;; about.el --- the About The Authors page (shameless self promotion). = -;; Copyright (c) 1997 Free Software Foundation, Inc. +;; Copyright (c) 1997, 2005 Free Software Foundation, Inc. ;; Copyright (C) 2001 Ben Wing. = ;; Keywords: extensions @@ -123,6 +123,7 @@ (hobley "David hobley" "hobley(a)xemacs.org") (jan "Jan Vroonhof" "jan(a)xemacs.org") (jareth "Jareth Hein" "jareth(a)xemacs.org") + (jas "Simon Josefsson" "simon(a)xemacs.org") (jason "Jason R. Mastaler" "jason(a)xemacs.org") (jens "Jens Lautenbacher" "jens(a)xemacs.org") (jmiller "Jeff Miller" "jmiller(a)xemacs.org") @@ -178,7 +179,7 @@ = (defvar about-once-and-future-hackers '(ajc baw bw chr cthomp darrylo devin dkindred dmoore eb hbs hmuller - hobley jens juhp jwz kyle marcpa mcook mly ograf pelegri pez + hobley jas jens juhp jwz kyle marcpa mcook mly ograf pelegri pez rickc rose rossini slb stig stigb thiessel vladimir)) = ;; The CAR of alist elements is a valid argument to `about-url-link'. @@ -201,6 +202,7 @@ (dv . "http://www.lrde.epita.fr/~didier/") (fabrice . "http://www.ese-metz.fr/~popineau/") (fptex . "http://www.fptex.org/") + (jas . "http://josefsson.org/") (jason . "http://www.mastaler.com/") (juhp . "http://www.01.246.ne.jp/~juhp/") (jwz . "http://www.jwz.org/") @@ -1059,6 +1061,25 @@ portable, implements a language, include graphics and a garbage collector, but is multithreaded to boot! Unfortunately his XEmacs time is directly limited by the amount of traffic on the M40.\n")) + (jas + (widget-insert "\ + +Simon lives in Stockholm where he has discovered that computers +can be a powerful procrastinating tool. Combined with a +frustrating desire to see computers simply work, he spends most +of his time complaining. Occasionally he rises up to the task +and produces something that others may complain about, which +brings him increased satisfaction with every bug report. Today +he is pretending to be a network security guy, with a preference +for standardization issues, while secretly longing to start a +cafe or becoming a theoretical computer scientist. His personal +interest is literature, and to some extent traveling, but will +try anything for fun, such as juggling, skiing, wine, and +long-distance biking. + +See: ") + (about-url-link 'jas nil "Visit Simon's homepage") + (widget-insert ".\n")) (jareth (widget-insert "\ Jareth Hein is a mountain boy who abandoned his home state of Colorado @@ -1609,6 +1630,14 @@ of the XEmacs custom subsystem and gnuse (widget-insert "\ Owner of cvs.xemacs.org, the machine that holds the XEmacs CVS repository, and author of some of the graphics code in XEmacs.\n")) + (jas + (widget-insert "\ +Wrote and/or integrated several packages for Gnus, such as +support for IMAP, Sieve, format=3Dflowed, GnuTLS, S/MIME, and PGP. +Irregularly synchronizes lisp code between Emacs and XEmacs. He +maintains the mail-lib, sieve, sasl, pgg and ecrypto XEmacs +packages. Operates the secondary DNS and mail server for +xemacs.org.\n")) (jason (widget-insert "\ Beta tester, manager of the various XEmacs mailing lists and binary 1.5.2.1 +1 -1 XEmacs/xemacs/lisp/easymenu.el Index: easymenu.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/easymenu.el,v retrieving revision 1.5 retrieving revision 1.5.2.1 diff -u -p -r1.5 -r1.5.2.1 --- easymenu.el 2001/04/12 18:21:17 1.5 +++ easymenu.el 2005/11/28 02:10:08 1.5.2.1 @@ -203,7 +203,7 @@ is a list of menu items, as above." "Remove MENU from the current menu bar." (when (featurep 'menubar) (setq easy-menu-all-popups (delq menu easy-menu-all-popups) - mode-popup-menu (if (< (length easy-menu-all-popups) 1) + mode-popup-menu (if (> (length easy-menu-all-popups) 1) (cons (easy-menu-title) (reverse easy-menu-all-popups)) (let ((same-as-menu 1.7.2.3 +3 -3 XEmacs/xemacs/lisp/font.el Index: font.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/font.el,v retrieving revision 1.7.2.2 retrieving revision 1.7.2.3 diff -u -p -r1.7.2.2 -r1.7.2.3 --- font.el 2002/08/20 11:34:44 1.7.2.2 +++ font.el 2005/11/28 02:10:09 1.7.2.3 @@ -310,8 +310,8 @@ Canonical sizes are in points. If SPEC = a number, it is interpreted as the desired point size and returned unchang= ed. Otherwise SPEC must be a string consisting of a number and an optional typ= e. The type may be the strings \"px\", \"pix\", or \"pixel\" (pixels), \"pt\"= or -\"point\" (points), \"pa\" or \"pica\" (picas), \"in\" or \"inch\" (inches= ), \"cm\" -(centimeters), or \"mm\" (millimeters). +\"point\" (points), \"pa\" or \"pica\" (picas), \"in\" or \"inch\" (inches= ), +\"cm\" (centimeters), or \"mm\" (millimeters). = 1 in =3D 2.54 cm =3D 6 pa =3D 25.4 mm =3D 72 pt. Pixel size is device-dep= endent." (cond @@ -350,7 +350,7 @@ The type may be the strings \"px\", \"pi (setq num (string-to-number spec)) (cond ((member type '("pixel" "px" "pix")) - (setq retval (* num (/ pix-width mm-width) (/ 25.4 72.0)))) + (setq retval (* num (/ mm-width pix-width) (/ 72.0 25.4)))) ((member type '("point" "pt")) (setq retval num)) ((member type '("pica" "pa")) 1.116.2.59 +9 -0 XEmacs/xemacs/man/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/man/ChangeLog,v retrieving revision 1.116.2.58 retrieving revision 1.116.2.59 diff -u -p -r1.116.2.58 -r1.116.2.59 --- ChangeLog 2005/11/26 03:47:34 1.116.2.58 +++ ChangeLog 2005/11/28 02:10:12 1.116.2.59 @@ -3,6 +3,15 @@ * lispref/mule.texi (CCL Example): Detail an implementation of the web's URL encoding as a CCL coding system example. = = +2005-03-26 Aidan Kehoe + + * lispref/mule.texi (CCL Example): + char-int -> char-to-int, and hex 41 is decimal 65, both problems + with my previous patch pointed out by Stephen. + * lispref/mule.texi (The actual coding system): + Give information on the make-coding-system call, and where the + actual package can be found. + 2005-02-23 Aidan Kehoe = * lispref/searching.texi (Syntax of Regexps): 1.4.2.4 +41 -11 XEmacs/xemacs/man/lispref/mule.texi Index: mule.texi =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/man/lispref/mule.texi,v retrieving revision 1.4.2.3 retrieving revision 1.4.2.4 diff -u -p -r1.4.2.3 -r1.4.2.4 --- mule.texi 2005/11/26 03:47:36 1.4.2.3 +++ mule.texi 2005/11/28 02:10:14 1.4.2.4 @@ -2053,7 +2053,7 @@ initialized as constants. * Characters to be preserved:: No transformation needed for these characte= rs. * The program to decode to internal format:: . * The program to encode from internal format:: . = - +* The actual coding system:: . @end menu = @node Four bits to ASCII, URI Encoding constants, , CCL Example @@ -2073,7 +2073,7 @@ after this file is loaded gives the ASCI (let ((val (make-vector 256 0)) (i 0)) (while (< i (length val)) - (aset val i (char-int (aref (format "%02X" i) 0))) + (aset val i (char-to-int (aref (format "%02X" i) 0))) (setq i (1+ i))) val) "Table to find an ASCII version of an octet's most significant 4 bits.") @@ -2081,7 +2081,7 @@ after this file is loaded gives the ASCI = The next table, @code{url-coding-low-order-nybble-as-ascii} is almost the same thing, but this time it has a map for the hex encoding of the -low-order four bits. So the sixty-fifth entry (offset @samp{#x51}) is +low-order four bits. So the sixty-fifth entry (offset @samp{#x41}) is the ASCII encoding of `1', the hundred-and-twenty-second (offset @samp{#x7a}) is the ASCII encoding of `A'. = @@ -2090,7 +2090,7 @@ the ASCII encoding of `1', the hundred-a (let ((val (make-vector 256 0)) (i 0)) (while (< i (length val)) - (aset val i (char-int (aref (format "%02X" i) 1))) + (aset val i (char-to-int (aref (format "%02X" i) 1))) (setq i (1+ i))) val) "Table to find an ASCII version of an octet's least significant 4 bits.") @@ -2110,14 +2110,14 @@ the space character. When doing this in @code{url-coding-escaped-space-code} variable. = = @example -(defvar url-coding-escape-character-code (char-int ?%) +(defvar url-coding-escape-character-code (char-to-int ?%) "The code point for the percentage sign, in ASCII.") = -(defvar url-coding-escaped-space-code (char-int ?+) +(defvar url-coding-escaped-space-code (char-to-int ?+) "The URL-encoded value of the space character, that is, +.") @end example = -(a)node Numeric to ASCII-hexadecimal conversion +(a)node Numeric to ASCII-hexadecimal conversion, Characters to be preserve= d, URI Encoding constants, CCL Example @subsubsection Numeric to ASCII-hexadecimal conversion = Now, we have a couple of utility tables that wouldn't be necessary in @@ -2133,7 +2133,7 @@ a few examples.) (let ((i 0) (val (make-vector 16 0))) (while (< i 16) - (aset val i (char-int (aref (format "%X" i) 0))) + (aset val i (char-to-int (aref (format "%X" i) 0))) (setq i (1+ i))) val) "A map from a hexadecimal digit's numeric value to its encoding in ASCII= .") @@ -2149,7 +2149,7 @@ a few examples.) "A map from Latin 1 code points to their values as hexadecimal digits.") @end example = -(a)node Characters to be preserved +(a)node Characters to be preserved, The program to decode to internal form= at, Numeric to ASCII-hexadecimal conversion, CCL Example @subsubsection Characters to be preserved = And finally, the last of these tables. URL encoding says that @@ -2183,7 +2183,7 @@ every nanosecond counts. octet as its ASCII encoding.") @end example = -(a)node The program to decode to internal format +(a)node The program to decode to internal format, The program to encode fr= om internal format, Characters to be preserved, CCL Example @subsubsection The program to decode to internal format = After the almost interminable tables, we get to the CCL. The first @@ -2244,7 +2244,7 @@ buffer, and move to the next iteration o internal encoding. ") @end example = -(a)node The program to encode from internal format +(a)node The program to encode from internal format, The actual coding syst= em, The program to decode to internal format, CCL Example @subsubsection The program to encode from internal format = Next, we see the CCL program to encode ASCII text as URL coded text. @@ -2279,6 +2279,36 @@ We then read an octet from the input int (repeat)))) "CCL program to encode octets (almost) according to RFC 1738") @end example + +(a)node The actual coding system, , The program to encode from internal fo= rmat, CCL Example +(a)subsubsection The actual coding system + +To actually create the coding system, we call +(a)samp{make-coding-system}. The first argument is the symbol that is to +be the name of the coding system, in our case @samp{url-coding}. The +second specifies that the coding system is to be of type +(a)samp{ccl}---there are several other coding system types available, +including, see the documentation for @samp{make-coding-system} for the +full list. Then there's a documentation string describing the wherefore +and caveats of the coding system, and the final argument is a property +list giving information about the CCL programs and the coding system's +mnemonic. = + +(a)example +(make-coding-system = + 'url-coding 'ccl = + "The coding used by application/x-www-form-urlencoded HTTP applications. +This coding form doesn't specify anything about non-ASCII characters, so +make sure you've transformed to a seven-bit coding system first." + '(decode ccl-decode-urlcoding + encode ccl-encode-urlcoding + mnemonic "URLenc")) +(a)end example + +If you're lucky, the @samp{url-coding} coding system describe here +should be available in the XEmacs package system. Otherwise, downloading +it from @samp{http://www.parhasard.net/url-coding.el} should work for +the foreseeable future. = = @node Category Tables, , CCL, MULE @section Category Tables 1.290.2.99 +19 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.290.2.98 retrieving revision 1.290.2.99 diff -u -p -r1.290.2.98 -r1.290.2.99 --- ChangeLog 2005/11/27 01:45:45 1.290.2.98 +++ ChangeLog 2005/11/28 02:10:15 1.290.2.99 @@ -1,3 +1,22 @@ +2005-11-27 Kean Johnston + + * redisplay-tty.c (set_tty_modes): + (reset_tty_modes): disable auto-margins if the terminal supports + them. + (init_tty_for_redisplay): fix cursor shape. + +2005-04-05 Aidan Kehoe + + * mule-ccl.c (ccl_driver): Calculate the charset and position code + for control-1 characters properly, both when reading multibyte + characters and writing them. = + +2005-03-12 Aidan Kehoe + + * config.h.in: Make HAVE_XTREGISTERDRAWABLE available. = + * select-x.c (x_reply_selection_request): Use it; fix the bug we + were seeing with incremental selection transfer failing. = + 2005-11-26 Vin Shelton = * callproc.c (Fold_call_process_internal): Create the buffer if it 1.61.2.9 +1 -0 XEmacs/xemacs/src/config.h.in Index: config.h.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/config.h.in,v retrieving revision 1.61.2.8 retrieving revision 1.61.2.9 diff -u -p -r1.61.2.8 -r1.61.2.9 --- config.h.in 2005/11/25 02:01:56 1.61.2.8 +++ config.h.in 2005/11/28 02:10:19 1.61.2.9 @@ -205,6 +205,7 @@ void *alloca (); #undef THIS_IS_X11R6 = #undef HAVE_XCONVERTCASE +#undef HAVE_XTREGISTERDRAWABLE = #undef HAVE_BALLOON_HELP = 1.9.2.1 +5 -0 XEmacs/xemacs/src/console-tty.h Index: console-tty.h =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/console-tty.h,v retrieving revision 1.9 retrieving revision 1.9.2.1 diff -u -p -r1.9 -r1.9.2.1 --- console-tty.h 2001/04/12 18:23:30 1.9 +++ console-tty.h 2005/11/28 02:10:19 1.9.2.1 @@ -82,6 +82,8 @@ struct tty_console character info */ unsigned int flow_control :1; /* Nonzero means use ^S/^Q as cretinous flow control. */ + unsigned int auto_margins :1; /* Nonzero means terminal wraps when + writing to the last column */ int standout_width; /* # of spaces printed when change to standout mode */ int underline_width; /* # of spaces printed when @@ -175,6 +177,9 @@ struct tty_console const char *keypad_off; /* rmkx, ke */ = const char *orig_pair; /* op, op */ + + const char *disable_auto_margins; /* rmam, RA */ + const char *enable_auto_margins; /* smam, SA */ } sd; = /* costs of various operations */ 1.15.2.1 +8 -1 XEmacs/xemacs/src/mule-ccl.c Index: mule-ccl.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/mule-ccl.c,v retrieving revision 1.15 retrieving revision 1.15.2.1 diff -u -p -r1.15 -r1.15.2.1 --- mule-ccl.c 2001/04/12 18:24:03 1.15 +++ mule-ccl.c 2005/11/28 02:10:19 1.15.2.1 @@ -1303,6 +1303,13 @@ ccl_driver (struct ccl_program *ccl, reg[RRR] =3D i; reg[rrr] =3D (*src++ & 0x7F); } + else if (LEADING_BYTE_CONTROL_1 =3D=3D i) + { + if (src >=3D src_end) + goto ccl_read_multibyte_character_suspend; + reg[RRR] =3D i; + reg[rrr] =3D (*src++ - 0xA0); + } else if (i <=3D MAX_LEADING_BYTE_OFFICIAL_2) { if ((src + 1) >=3D src_end) @@ -1350,7 +1357,7 @@ ccl_driver (struct ccl_program *ccl, = case CCL_WriteMultibyteChar2: i =3D reg[RRR]; /* charset */ - if (i =3D=3D LEADING_BYTE_ASCII) + if (i =3D=3D LEADING_BYTE_ASCII || i =3D=3D LEADING_BYTE_CONTROL_1) i =3D reg[rrr] & 0xFF; else if (XCHARSET_DIMENSION (CHARSET_BY_LEADING_BYTE (i)) =3D=3D 1) i =3D (((i - FIELD2_TO_OFFICIAL_LEADING_BYTE) << 7) 1.16.2.2 +11 -2 XEmacs/xemacs/src/redisplay-tty.c Index: redisplay-tty.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay-tty.c,v retrieving revision 1.16.2.1 retrieving revision 1.16.2.2 diff -u -p -r1.16.2.1 -r1.16.2.2 --- redisplay-tty.c 2005/01/31 02:55:28 1.16.2.1 +++ redisplay-tty.c 2005/11/28 02:10:20 1.16.2.2 @@ -864,6 +864,9 @@ set_tty_modes (struct console *c) OUTPUT1_IF (c, TTY_SD (c).init_motion); OUTPUT1_IF (c, TTY_SD (c).cursor_visible); OUTPUT1_IF (c, TTY_SD (c).keypad_on); + + if (TTY_FLAGS (c).auto_margins) + OUTPUT1_IF (c, TTY_SD (c).disable_auto_margins); } = /*************************************************************************= **** @@ -882,6 +885,9 @@ reset_tty_modes (struct console *c) OUTPUT1_IF (c, TTY_SD (c).cursor_normal); OUTPUT1_IF (c, TTY_SD (c).end_motion); = + if (TTY_FLAGS (c).auto_margins) + OUTPUT1_IF (c, TTY_SD (c).enable_auto_margins); + { Lisp_Object frm =3D CONSOLE_SELECTED_FRAME (c); = @@ -1185,12 +1191,14 @@ init_tty_for_redisplay (struct device *d TTY_SD (c).audio_bell =3D "\07"; } = - TTY_SD (c).cursor_visible =3D tgetstr ("ve", &bufptr); - TTY_SD (c).cursor_normal =3D tgetstr ("vs", &bufptr); + TTY_SD (c).cursor_visible =3D tgetstr ("vs", &bufptr); + TTY_SD (c).cursor_normal =3D tgetstr ("ve", &bufptr); TTY_SD (c).init_motion =3D tgetstr ("ti", &bufptr); TTY_SD (c).end_motion =3D tgetstr ("te", &bufptr); TTY_SD (c).keypad_on =3D tgetstr ("ks", &bufptr); TTY_SD (c).keypad_off =3D tgetstr ("ke", &bufptr); + TTY_SD (c).disable_auto_margins =3D tgetstr ("RA", &bufptr); + TTY_SD (c).enable_auto_margins =3D tgetstr ("SA", &bufptr); = = /* @@ -1203,6 +1211,7 @@ init_tty_for_redisplay (struct device *d TTY_FLAGS (c).memory_below_frame =3D tgetflag ("db"); TTY_FLAGS (c).standout_width =3D tgetnum ("sg"); TTY_FLAGS (c).underline_width =3D tgetnum ("ug"); + TTY_FLAGS (c).auto_margins =3D tgetflag ("am"); = if (TTY_FLAGS (c).standout_width =3D=3D -1) TTY_FLAGS (c).standout_width =3D 0; 1.2.2.3 +32 -1 XEmacs/xemacs/src/select-x.c Index: select-x.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/select-x.c,v retrieving revision 1.2.2.2 retrieving revision 1.2.2.3 diff -u -p -r1.2.2.2 -r1.2.2.3 --- select-x.c 2005/01/31 02:55:31 1.2.2.2 +++ select-x.c 2005/11/28 02:10:20 1.2.2.3 @@ -509,14 +509,41 @@ x_reply_selection_request (XSelectionReq } else { +#ifndef HAVE_XTREGISTERDRAWABLE + invalid_operation("Copying that much data requires X11R6.", Qunbound= ); +#else /* Send an INCR selection. */ int prop_id; + Widget widget =3D FRAME_X_TEXT_WIDGET (XFRAME(DEVICE_SELECTED_FRAME(= d))); = if (x_window_to_frame (d, window)) /* #### debug */ error ("attempt to transfer an INCR to ourself!"); #if 0 stderr_out ("\nINCR %d\n", bytes_remaining); #endif + /* Tell Xt not to drop PropertyNotify events that arrive for the + target window, rather, pass them to us. This would be a hack, but + the Xt selection routines are broken for our purposes--we can't + pass them callbacks from Lisp, for example. Let's call it a + workaround. + = + The call to wait_for_property_change means we can break out of that + function, switch to another frame on the same display (which will + be another Xt widget), select a huge amount of text, and have the + same (foreign) app ask for another incremental selection + transfer. Programming like X11 made sense, would mean that, in that + case, XtRegisterDrawable is called twice with different widgets. + = + Since the results of calling XtRegisterDrawable when the drawable + is already registered with another widget are undefined, we want to + avoid that--so, only call it when XtWindowToWidget returns NULL, + which it will only do with a valid Window if it's not already + registered. */ + if (NULL =3D=3D XtWindowToWidget(display, window)) + { + XtRegisterDrawable(display, (Drawable)window, widget); + } + = prop_id =3D expect_property_change (display, window, reply.property, PropertyDelete); = @@ -560,10 +587,14 @@ x_reply_selection_request (XSelectionReq stderr_out (" INCR done\n"); #endif if (! waiting_for_other_props_on_window (display, window)) - XSelectInput (display, window, 0L); + { + XSelectInput (display, window, 0L); + XtUnregisterDrawable(display, (Drawable)window); + } = XChangeProperty (display, window, reply.property, type, format, PropModeReplace, data, 0); +#endif /* HAVE_XTREGISTERDRAWABLE */ } } = --===============3158895571371261777==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============0658776160064885238==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by crestani xemacs ... Date: 2005-11-28 09:50:24 +0000 Message-ID: <20051128095024.20152.qmail@sunsite.dk> --===============0658776160064885238== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: crestani Date: 05/11/28 10:50:24 Modified: xemacs ChangeLog configure configure.ac Log: Remove vdb-fake warning, die if POSIX checks fail. Revision Changes Path 1.477 +4 -0 XEmacs/xemacs/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.476 retrieving revision 1.477 diff -u -p -r1.476 -r1.477 --- ChangeLog 2005/11/26 18:49:10 1.476 +++ ChangeLog 2005/11/28 09:50:16 1.477 @@ -1,3 +1,7 @@ +2005-11-27 Marcus Crestani + + * configure.ac: Remove vdb-fake warning, die if POSIX checks fail. + 2005-11-27 Stephen J. Turnbull = * configure.ac (XE_COMPLEX_ARG[xft]): Default everything off; 1.265 +2 -9 XEmacs/xemacs/configure Index: configure =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v retrieving revision 1.264 retrieving revision 1.265 diff -u -p -r1.264 -r1.265 --- configure 2005/11/26 18:49:06 1.264 +++ configure 2005/11/28 09:50:17 1.265 @@ -30040,6 +30040,8 @@ fi if test "$have_vdb_sigaction" !=3D "yes" -a "$have_vdb_signal" !=3D "yes= " ; then have_vdb_posix=3Dno have_vdb_fake=3Dyes + { echo "Error:" "No working write-barrier implementation found for thi= s system. + Please report this and provide information about your system." >&2;= exit 1; } else have_vdb_posix=3Dyes have_vdb_fake=3Dno @@ -39336,15 +39338,6 @@ if test "$have_vdb_win32" =3D yes ; then fi if test "$have_vdb_mach" =3D yes ; then echo " Using mach exception mechanism as vdb fault handler." -fi -if test "$have_vdb_fake" =3D yes && test "$enable_vdb" !=3D fake; then - echo " WARNING: -------------------------------------------------------= --" - echo " WARNING: The new incremental garbage collector is enabled, but" - echo " WARNING: a virtual dirty bit implementation is not yet available" - echo " WARNING: on this system. XEmacs will crash if you try to switch = on" - echo " WARNUNG: incremental garbage collection!" - echo " WARNING: Use \`--disable-newgc' to turn incremental gc off." - echo " WARNING: -------------------------------------------------------= --" fi if test "$have_vdb_fake" =3D yes && test "$enable_vdb" =3D=3D fake; then echo " Virtual dirty bit write barrier manually disabled." 1.26 +2 -11 XEmacs/xemacs/configure.ac Index: configure.ac =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.ac,v retrieving revision 1.25 retrieving revision 1.26 diff -u -p -r1.25 -r1.26 --- configure.ac 2005/11/26 18:49:09 1.25 +++ configure.ac 2005/11/28 09:50:20 1.26 @@ -1729,8 +1729,6 @@ if test "$enable_newgc" =3D "yes"; then cygwin* ) AC_DEFINE(VDB_WIN32) have_vdb_win32=3Dyes ;; linux* ) check_vdb_posix=3Dyes ;; freebsd ) check_vdb_posix=3Dyes ;; -dnl bail out immediately -dnl * ) have_vdb_fake=3Dyes ;; dnl if not sure, try posix first, maybe we are lucky * ) check_vdb_posix=3Dyes ;; esac @@ -4609,6 +4607,8 @@ if test "$check_vdb_posix" =3D "yes" ; the if test "$have_vdb_sigaction" !=3D "yes" -a "$have_vdb_signal" !=3D "yes= " ; then have_vdb_posix=3Dno have_vdb_fake=3Dyes + XE_DIE("No working write-barrier implementation found for this system. + Please report this and provide information about your system.") else have_vdb_posix=3Dyes have_vdb_fake=3Dno @@ -6083,15 +6083,6 @@ if test "$have_vdb_win32" =3D yes ; then fi if test "$have_vdb_mach" =3D yes ; then echo " Using mach exception mechanism as vdb fault handler." -fi -if test "$have_vdb_fake" =3D yes && test "$enable_vdb" !=3D fake; then - echo " WARNING: -------------------------------------------------------= --" - echo " WARNING: The new incremental garbage collector is enabled, but" - echo " WARNING: a virtual dirty bit implementation is not yet available" - echo " WARNING: on this system. XEmacs will crash if you try to switch = on" - echo " WARNUNG: incremental garbage collection!" - echo " WARNING: Use \`--disable-newgc' to turn incremental gc off." - echo " WARNING: -------------------------------------------------------= --" fi if test "$have_vdb_fake" =3D yes && test "$enable_vdb" =3D=3D fake; then echo " Virtual dirty bit write barrier manually disabled." --===============0658776160064885238==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============6228571588279378985==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/src ... Date: 2005-11-28 15:44:08 +0000 Message-ID: <20051128154408.29644.qmail@sunsite.dk> --===============6228571588279378985== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/28 16:44:08 Modified: xemacs/src ChangeLog dumper.c Log: Move comment to where it apparently belongs. <87br04ye45.fsf(a)tleepslib.sk.tsukuba.ac.jp Revision Changes Path 1.897 +4 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.896 retrieving revision 1.897 diff -u -p -r1.896 -r1.897 --- ChangeLog 2005/11/27 10:51:24 1.896 +++ ChangeLog 2005/11/28 15:44:04 1.897 @@ -1,3 +1,7 @@ +2005-11-26 Stephen J. Turnbull + + * dumper.c: Move comment to where it apparently belongs. + 2005-11-27 Marcus Crestani = * lrecord.h: Remove NEWGC junk. 1.33 +5 -5 XEmacs/xemacs/src/dumper.c Index: dumper.c =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/dumper.c,v retrieving revision 1.32 retrieving revision 1.33 diff -u -p -r1.32 -r1.33 --- dumper.c 2005/11/25 01:41:59 1.32 +++ dumper.c 2005/11/28 15:44:06 1.33 @@ -1672,11 +1672,6 @@ pdump_dump_cv_data_info (void) retry_fwrite (data, sizeof (pdump_cv_data_dump_info), count, pdump_out); = } = -/* Dump out the root block pointers, part of stage 3 (the "WRITE" stage) of - dumping. For each pointer we dump out a structure containing the - location of the pointer and its value, replaced by the appropriate - offset into the dumped data. */ - static void pdump_dump_cv_ptr_info (void) { @@ -1692,6 +1687,11 @@ pdump_dump_cv_ptr_info (void) PDUMP_ALIGN_OUTPUT (pdump_cv_ptr_dump_info); retry_fwrite (data, sizeof (pdump_cv_ptr_dump_info), count, pdump_out); = } + +/* Dump out the root block pointers, part of stage 3 (the "WRITE" stage) of + dumping. For each pointer we dump out a structure containing the + location of the pointer and its value, replaced by the appropriate + offset into the dumped data. */ = static void pdump_dump_root_block_ptrs (void) --===============6228571588279378985==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============2567867648747834284==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/src ... Date: 2005-11-28 16:39:56 +0000 Message-ID: <20051128163956.12063.qmail@sunsite.dk> --===============2567867648747834284== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/28 17:39:56 Modified: xemacs/src ChangeLog xemacs.def.in.in Log: Add lrecord_uid_counter to xemacs.def.in.in. <87wtiswwwt.fsf(a)tleepslib.sk.tsukuba.ac.jp> Revision Changes Path 1.898 +5 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.897 retrieving revision 1.898 diff -u -p -r1.897 -r1.898 --- ChangeLog 2005/11/28 15:44:04 1.897 +++ ChangeLog 2005/11/28 16:39:53 1.898 @@ -1,3 +1,8 @@ +2005-11-29 Stephen J. Turnbull + + * xemacs.def.in.in (lrecord_uid_counter): Add it. Patch by Rick + Rankin <20051120054349.52906.qmail(a)web61019.mail.yahoo.com>. + 2005-11-26 Stephen J. Turnbull = * dumper.c: Move comment to where it apparently belongs. 1.11 +1 -0 XEmacs/xemacs/src/xemacs.def.in.in Index: xemacs.def.in.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/xemacs.def.in.in,v retrieving revision 1.10 retrieving revision 1.11 diff -u -p -r1.10 -r1.11 --- xemacs.def.in.in 2005/10/25 08:32:50 1.10 +++ xemacs.def.in.in 2005/11/28 16:39:54 1.11 @@ -207,6 +207,7 @@ lrecord_markers /* INIT_LRECORD_IMPLEM lrecord_string /* STRINGP */ lrecord_symbol /* SYMBOLP */ lrecord_type_count /* INIT_EXTERNAL_LRECORD_IMPLEMENTATION */ +lrecord_uid_counter need_to_check_c_alloca /* ALLOCA */ print_readably quit_check_signal_happened /* QUITP */ --===============2567867648747834284==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============7343529782442787166==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs ... Date: 2005-11-28 17:30:38 +0000 Message-ID: <20051128173038.26619.qmail@sunsite.dk> --===============7343529782442787166== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/28 18:30:38 Modified: xemacs CHANGES-beta Log: 21.5.24 release preparation. Revision Changes Path 1.232 +2 -0 XEmacs/xemacs/CHANGES-beta Index: CHANGES-beta =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/CHANGES-beta,v retrieving revision 1.231 retrieving revision 1.232 diff -u -p -r1.231 -r1.232 --- CHANGES-beta 2005/10/26 13:15:44 1.231 +++ CHANGES-beta 2005/11/28 17:30:37 1.232 @@ -1,3 +1,5 @@ +to 21.5.24 "dandelion" + to 21.5.23 "daikon" Major features = --===============7343529782442787166==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============0413105777124004804==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by scop packages/unsupported/scop/vc ... Date: 2005-11-28 21:08:23 +0000 Message-ID: <20051128210823.10174.qmail@sunsite.dk> --===============0413105777124004804== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: scop = Date: 05/11/28 22:08:23 Modified: packages/unsupported/scop/vc ChangeLog log-edit.el Log: Sync log-edit.el with upstream. Revision Changes Path 1.50 +1 -1 XEmacs/packages/unsupported/scop/STATUS Index: STATUS =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/STATUS,v retrieving revision 1.49 retrieving revision 1.50 diff -u -p -r1.49 -r1.50 --- STATUS 2005/11/14 22:32:24 1.49 +++ STATUS 2005/11/28 21:08:19 1.50 @@ -17,5 +17,5 @@ generic-modes: generic.el and generic-x. - Compiles, seems to work, auto-mode-alist and autoloads may need spanking. = vc: vc*.el and a few other related files from GNU Emacs -- Up to date with GNU Emacs CVS HEAD as of 2005-11-15. +- Up to date with GNU Emacs CVS HEAD as of 2005-11-28. - Compiles, something even works. 1.36 +4 -0 XEmacs/packages/unsupported/scop/vc/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v retrieving revision 1.35 retrieving revision 1.36 diff -u -p -r1.35 -r1.36 --- ChangeLog 2005/11/14 22:52:32 1.35 +++ ChangeLog 2005/11/28 21:08:22 1.36 @@ -1,3 +1,7 @@ +2005-11-28 Ville Skytt=C3=A4 + + * log-edit.el: Sync with upstream. + 2005-11-15 Ville Skytt=C3=A4 = * vc-svn.el: Sync with upstream. 1.7 +65 -46 XEmacs/packages/unsupported/scop/vc/log-edit.el Index: log-edit.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/log-edit.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -p -r1.6 -r1.7 --- log-edit.el 2005/10/08 14:43:00 1.6 +++ log-edit.el 2005/11/28 21:08:23 1.7 @@ -120,8 +120,10 @@ If SETUP is 'force, this variable has no log-edit-insert-changelog) "*Hook run at the end of `log-edit'." :group 'log-edit -:type '(hook :options (log-edit-insert-cvs-template - log-edit-insert-changelog))) +:type '(hook :options (log-edit-insert-changelog + log-edit-insert-cvs-rcstemplate + log-edit-insert-cvs-template + log-edit-insert-filenames))) = (defcustom log-edit-mode-hook (if (boundp 'vc-log-mode-hook) vc-log-mode-h= ook) "*Hook run when entering `log-edit-mode'." @@ -281,21 +283,14 @@ automatically." (insert "\n")))) = ;; Compatibility with old names. -;; XEmacs change: only 2 args to `make-obsolete(-variable)' in < 21.4.17 -(defvaralias 'vc-comment-ring 'log-edit-comment-ring) -(make-obsolete-variable 'vc-comment-ring 'log-edit-comment-ring) -(defvaralias 'vc-comment-ring-index 'log-edit-comment-ring-index) -(make-obsolete-variable 'vc-comment-ring-index 'log-edit-comment-ring-inde= x) -(defalias 'vc-previous-comment 'log-edit-previous-comment) -(make-obsolete 'vc-previous-comment 'log-edit-previous-comment) -(defalias 'vc-next-comment 'log-edit-next-comment) -(make-obsolete 'vc-next-comment 'log-edit-next-comment) -(defalias 'vc-comment-search-reverse 'log-edit-comment-search-backward) -(make-obsolete 'vc-comment-search-reverse 'log-edit-comment-search-backwar= d) -(defalias 'vc-comment-search-forward 'log-edit-comment-search-forward) -(make-obsolete 'vc-comment-search-forward 'log-edit-comment-search-forward) -(defalias 'vc-comment-to-change-log 'log-edit-comment-to-change-log) -(make-obsolete 'vc-comment-to-change-log 'log-edit-comment-to-change-log) +;; XEmacs change: only 2 args to `define-obsolete-*-alias' +(define-obsolete-variable-alias 'vc-comment-ring 'log-edit-comment-ring) +(define-obsolete-variable-alias 'vc-comment-ring-index 'log-edit-comment-r= ing-index) +(define-obsolete-function-alias 'vc-previous-comment 'log-edit-previous-co= mment) +(define-obsolete-function-alias 'vc-next-comment 'log-edit-next-comment) +(define-obsolete-function-alias 'vc-comment-search-reverse 'log-edit-comme= nt-search-backward) +(define-obsolete-function-alias 'vc-comment-search-forward 'log-edit-comme= nt-search-forward) +(define-obsolete-function-alias 'vc-comment-to-change-log 'log-edit-commen= t-to-change-log) = ;;; ;;; Actual code @@ -397,31 +392,6 @@ If you want to abort the commit, simply = "Return the list of files that are about to be committed." (ignore-errors (funcall log-edit-listfun))) = - -(defun log-edit-insert-changelog () - "Insert a log message by looking at the ChangeLog. -The idea is to write your ChangeLog entries first, and then use this -command to commit your changes. - -To select default log text, we: -- find the ChangeLog entries for the files to be checked in, -- verify that the top entry in the ChangeLog is on the current date - and by the current user; if not, we don't provide any default text, -- search the ChangeLog entry for paragraphs containing the names of - the files we're checking in, and finally -- use those paragraphs as the log text." - (interactive) - (log-edit-insert-changelog-entries (log-edit-files)) - (log-edit-set-common-indentation) - (goto-char (point-min)) - (when (looking-at "\\*\\s-+") - (forward-line 1) - (when (not (re-search-forward "^\\*\\s-+" nil t)) - (goto-char (point-min)) - (skip-chars-forward "^():") - (skip-chars-forward ": ") - (delete-region (point-min) (point))))) - (defun log-edit-mode-help () "Provide help for the `log-edit-mode-map'." (interactive) @@ -466,11 +436,27 @@ To select default log text, we: (selected-window))))) = (defun log-edit-insert-cvs-template () - "Insert the template specified by the CVS administrator, if any." + "Insert the template specified by the CVS administrator, if any. +This simply uses the local CVS/Template file." + (interactive) + (when (or (interactive-p) (=3D (point-min) (point-max))) + (when (file-readable-p "CVS/Template") + (insert-file-contents "CVS/Template")))) + +(defun log-edit-insert-cvs-rcstemplate () + "Insert the rcstemplate from the CVS repository. +This contacts the repository to get the rcstemplate file and +can thus take some time." (interactive) - (when (file-readable-p "CVS/Template") - (insert-file-contents "CVS/Template"))) + (when (or (interactive-p) (=3D (point-min) (point-max))) + (when (file-readable-p "CVS/Entries") + (call-process "cvs" nil t nil "checkout" "-p" "CVSROOT/rcstemplate")= ))) = +(defun log-edit-insert-filenames () + "Insert the list of files that are to be committed." + (interactive) + (insert "Affected files: \n" + (mapconcat 'identity (log-edit-files) " \n"))) = (defun log-edit-add-to-changelog () "Insert this log message into the appropriate ChangeLog file." @@ -483,6 +469,37 @@ To select default log text, we: (save-excursion (log-edit-comment-to-change-log))))) = +(defvar log-edit-changelog-use-first nil) +(defun log-edit-insert-changelog (&optional use-first) + "Insert a log message by looking at the ChangeLog. +The idea is to write your ChangeLog entries first, and then use this +command to commit your changes. + +To select default log text, we: +- find the ChangeLog entries for the files to be checked in, +- verify that the top entry in the ChangeLog is on the current date + and by the current user; if not, we don't provide any default text, +- search the ChangeLog entry for paragraphs containing the names of + the files we're checking in, and finally +- use those paragraphs as the log text. + +If the optional prefix arg USE-FIRST is given (via \\[universal-argument]), +or if the command is repeated a second time in a row, use the first log en= try +regardless of user name or time." + (interactive "P") + (let ((log-edit-changelog-use-first + (or use-first (eq last-command 'log-edit-insert-changelog)))) + (log-edit-insert-changelog-entries (log-edit-files))) + (log-edit-set-common-indentation) + (goto-char (point-min)) + (when (looking-at "\\*\\s-+") + (forward-line 1) + (when (not (re-search-forward "^\\*\\s-+" nil t)) + (goto-char (point-min)) + (skip-chars-forward "^():") + (skip-chars-forward ": ") + (delete-region (point-min) (point))))) + ;;;; ;;;; functions for getting commit message from ChangeLog a file... ;;;; Courtesy Jim Blandy @@ -562,7 +579,9 @@ Return non-nil iff it is." (functionp add-log-time-format) (funcall add-log-time-format)) (format-time-string "%Y-%m-%d")))) - (looking-at (regexp-quote (format "%s %s <%s>" time name mail))))) + (looking-at (if log-edit-changelog-use-first + "[^ \t]" + (regexp-quote (format "%s %s <%s>" time name mail)))))) = (defun log-edit-changelog-entries (file) "Return the ChangeLog entries for FILE, and the ChangeLog they came from. --===============0413105777124004804==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============8423818376791408233==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by viteno xemacs ... Date: 2005-11-28 22:51:08 +0000 Message-ID: <20051128225108.28456.qmail@sunsite.dk> --===============8423818376791408233== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: viteno = Date: 05/11/28 23:51:08 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1358 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1357 retrieving revision 1.1358 diff -u -p -r1.1357 -r1.1358 --- version.sh 2005/11/27 22:50:53 1.1357 +++ version.sh 2005/11/28 22:51:07 1.1358 @@ -8,5 +8,5 @@ emacs_kit_version=3D infodock_major_version=3D4 infodock_minor_version=3D0 infodock_build_version=3D8 -xemacs_extra_name=3D"(+CVS-20051127)" +xemacs_extra_name=3D"(+CVS-20051128)" xemacs_release_date=3D"2005-10-26" --===============8423818376791408233==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============2445300745153890876==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs ... Date: 2005-11-29 02:06:56 +0000 Message-ID: <20051129020656.3322.qmail@sunsite.dk> --===============2445300745153890876== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 03:06:56 Modified: xemacs CHANGES-beta Log: more 21.5.24 release preparation. Revision Changes Path 1.233 +59 -0 XEmacs/xemacs/CHANGES-beta Index: CHANGES-beta =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/CHANGES-beta,v retrieving revision 1.232 retrieving revision 1.233 diff -u -p -r1.232 -r1.233 --- CHANGES-beta 2005/11/28 17:30:37 1.232 +++ CHANGES-beta 2005/11/29 02:06:56 1.233 @@ -1,4 +1,63 @@ to 21.5.24 "dandelion" +Major features + +-- New: Xft font support. -- Stephen J. Turnbull, Aidan Kehoe, Daniel Pitt= man, Clemens Fruhwirth, Eric Knauel, Matthias Neuebaur, Hrvoje Niksic, Oliv= ier Galibert +-- New: incremental garbage collector. -- Marcus Crestani + +User-Visible Bug Fixes and Minor Improvements + +-- Fix: change_window_height must change the window width when requested. = -- Aidan Kehoe +-- Fix: crashes printing ISO2022 coding systems. -- Ben Wing +-- Update: etags to upstream 17.15. -- Malcolm Purvis + +Build Infrastructure + +-- Fix build output directory structure on Windows. -- Marcus Crestani +-- Fix: configuration of native sound on Windows. -- Ben Wing +-- Fix: small bugs in configure of AC_INIT and PostgreSQL. -- Stephen J. T= urnbull +-- Improve: CVS behavior. -- Stephen J. Turnbull, Marcus Crestani, Malcolm= Purvis +-- Improve: refactor make clean, nuke .elcs. -- Ben Wing + +Documentation + +-- Improve: Add 'Known Problems' to the Help menu. -- Malcolm Purvis +-- Improve: HELLO in Irish and Tajik. -- Aidan Kehoe +-- Improve: INSTALL. -- Stephen J. turnbull +-- Improve: consistency of symbol quoting in documentation. -- Ben Wing +-- Improve: docstrings. -- Stephen J. Turnbull +-- Improve: reorganize option list from configure. -- Malcolm Purvis +-- Improve: texi document CVS branching. -- Ben Wing +-- Improve: texi documentation of DEFSYMBOL. -- +-- Improve: texi documentation of XEmacs Autoconf macros. -- Malcolm Purvis +-- Improve: update PROBLEMS, and install in etc. -- Malcolm Purvis + +Lisp API + +-- Improve: generalize describe-syntax-table to describe-char-table. -- Be= n Wing +-- Improve: memory statistics reporting. -- Marcus Crestani + +Internal API and Implementation + +-- Fix: C++ build. -- Ben Wing, Marcus Crestani +-- Fix: Mule-ize canna_api module. -- Ben Wing, Stephen J. Turnbull +-- Fix: byte compile by conditional compilation. -- Ben Wing +-- Fix: compilation errors and warnings in GTK code. -- Malcolm Purvis +-- Fix: help on functions without documentation. -- Ben Wing +-- Fix: integer types for Berkeley db. -- Stephen J. Turnbull, Volker Zell +-- Fix: make modules build on Cygwin and Mac. -- Stephen J. Turnbull, Rick= Rankin +-- Fix: quiet byte-compiler. -- Stephen J. Turnbull +-- Fix: syntax error -- Marcus Crestani +-- Fix: uninitialized local variables. -- Stephen J. Turnbull +-- Fix: use princ, not prin1 in debug print. -- Ben Wing +-- Fix: use uint32_t declaration, fixing build on FreeBSD. -- Steve Youngs= , Andrey Slusar +-- Fix: value of MAX_STRING_ASCII_BEGIN under MC_ALLOC. -- Ben Wing +-- Fix: warning elimination, mark UNUSED paramters -- Marcus Crestani, Ste= phen J. Turnbull +-- Improve: bignum support on mingwin. -- Ben Wing +-- Improve: lrecord uid handling. -- Ben Wing +-- Improve: refactor default_object_printer. -- Marcus Crestani +-- Improve: remove dead code in lwlib. Stephen J. Turnbull +-- Improve: reorganize lisp.h. -- Ben Wing +-- Improve: tabs widget. -- Stephen J. Turnbull = to 21.5.23 "daikon" Major features --===============2445300745153890876==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============2416635238697271522==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs ... Date: 2005-11-29 03:31:26 +0000 Message-ID: <20051129033126.15119.qmail@sunsite.dk> --===============2416635238697271522== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 04:31:26 Modified: xemacs CHANGES-beta Log: yet more 21.5.24 release preparation. Revision Changes Path 1.234 +4 -4 XEmacs/xemacs/CHANGES-beta Index: CHANGES-beta =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/CHANGES-beta,v retrieving revision 1.233 retrieving revision 1.234 diff -u -p -r1.233 -r1.234 --- CHANGES-beta 2005/11/29 02:06:56 1.233 +++ CHANGES-beta 2005/11/29 03:31:25 1.234 @@ -22,12 +22,12 @@ Documentation = -- Improve: Add 'Known Problems' to the Help menu. -- Malcolm Purvis -- Improve: HELLO in Irish and Tajik. -- Aidan Kehoe --- Improve: INSTALL. -- Stephen J. turnbull +-- Improve: INSTALL. -- Stephen J. Turnbull -- Improve: consistency of symbol quoting in documentation. -- Ben Wing -- Improve: docstrings. -- Stephen J. Turnbull -- Improve: reorganize option list from configure. -- Malcolm Purvis -- Improve: texi document CVS branching. -- Ben Wing --- Improve: texi documentation of DEFSYMBOL. -- +-- Improve: texi documentation of DEFSYMBOL. -- Stephen J. Turnbull -- Improve: texi documentation of XEmacs Autoconf macros. -- Malcolm Purvis -- Improve: update PROBLEMS, and install in etc. -- Malcolm Purvis = @@ -51,11 +51,11 @@ Internal API and Implementation -- Fix: use princ, not prin1 in debug print. -- Ben Wing -- Fix: use uint32_t declaration, fixing build on FreeBSD. -- Steve Youngs= , Andrey Slusar -- Fix: value of MAX_STRING_ASCII_BEGIN under MC_ALLOC. -- Ben Wing --- Fix: warning elimination, mark UNUSED paramters -- Marcus Crestani, Ste= phen J. Turnbull +-- Fix: warning elimination, mark UNUSED parameters -- Marcus Crestani, St= ephen J. Turnbull -- Improve: bignum support on mingwin. -- Ben Wing -- Improve: lrecord uid handling. -- Ben Wing -- Improve: refactor default_object_printer. -- Marcus Crestani --- Improve: remove dead code in lwlib. Stephen J. Turnbull +-- Improve: remove dead code in lwlib. -- Stephen J. Turnbull -- Improve: reorganize lisp.h. -- Ben Wing -- Improve: tabs widget. -- Stephen J. Turnbull = --===============2416635238697271522==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============4475752460536606258==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by michaelk packages/xemacs-packages/ediff ... Date: 2005-11-29 06:16:21 +0000 Message-ID: <20051129061621.10769.qmail@sunsite.dk> --===============4475752460536606258== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: michaelk Date: 05/11/29 07:16:21 Modified: packages/xemacs-packages/ediff ediff-wind.el ChangeLog Log: * ediff-wind (ediff-setup-control-frame, ediff-make-wide-display): preserve user position. Revision Changes Path 1.22 +5 -3 XEmacs/packages/xemacs-packages/ediff/ediff-wind.el Index: ediff-wind.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ediff/ediff-wind.= el,v retrieving revision 1.21 retrieving revision 1.22 diff -u -p -r1.21 -r1.22 --- ediff-wind.el 2005/11/25 07:31:38 1.21 +++ ediff-wind.el 2005/11/29 06:16:20 1.22 @@ -955,8 +955,9 @@ into icons, regardless of the window man (minibuffer-window designated-minibuffer-frame)) (cons 'width fwidth) - (cons 'height fheight)) - ) + (cons 'height fheight) + (cons 'user-position t) + )) = ;; adjust autoraise (setq adjusted-parameters @@ -1135,7 +1136,8 @@ It assumes that it is called from within (list (cons 'left (max 0 (eval (cdr (assoc 'left frame-A-params))))) (cons 'width (cdr (assoc 'width frame-A-params)))) ediff-wide-display-frame frame-A) - (modify-frame-parameters frame-A `((left . ,cw) (width . ,wd))))) + (modify-frame-parameters + frame-A `((left . ,cw) (width . ,wd) (user-position t))))) = = ;; Revise the mode line to display which difference we have selected 1.98 +6 -1 XEmacs/packages/xemacs-packages/ediff/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ediff/ChangeLog,v retrieving revision 1.97 retrieving revision 1.98 diff -u -p -r1.97 -r1.98 --- ChangeLog 2005/11/25 08:14:43 1.97 +++ ChangeLog 2005/11/29 06:16:20 1.98 @@ -1,7 +1,12 @@ +2005-11-29 Michael Kifer + = + * ediff-wind (ediff-setup-control-frame, ediff-make-wide-display): + preserve user position. + = 2005-11-25 Norbert Koch = * Makefile (VERSION): XEmacs package 1.59 released. - + = 2005-11-25 Michael Kifer = * ediff-wind (ediff-make-wide-display): Slight simplification. --===============4475752460536606258==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============6836118284908449963==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacsweb/People .cvsignore Date: 2005-11-29 08:19:22 +0000 Message-ID: <20051129081922.2298.qmail@sunsite.dk> --===============6836118284908449963== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 09:19:22 Added: xemacsweb/People .cvsignore xemacsweb/People/adrian.aichner .cvsignore xemacsweb/People/aidan.kehoe .cvsignore xemacsweb/People/alastair.houghton .cvsignore xemacsweb/People/alexey.mahotkin .cvsignore xemacsweb/People/andreas.jaeger .cvsignore xemacsweb/People/andrew.cosgriff .cvsignore xemacsweb/People/andy.piper .cvsignore xemacsweb/People/anthony.rossini .cvsignore xemacsweb/People/barry.warsaw .cvsignore xemacsweb/People/ben.wing .cvsignore xemacsweb/People/bjorn.torkelsson .cvsignore xemacsweb/People/bob.weiner .cvsignore xemacsweb/People/carsten.dominik .cvsignore xemacsweb/People/charles.waldman .cvsignore xemacsweb/People/christian.nybo .cvsignore xemacsweb/People/chuck.thompson .cvsignore xemacsweb/People/colin.rafferty .cvsignore xemacsweb/People/craig.lanning .cvsignore xemacsweb/People/daiki.ueno .cvsignore xemacsweb/People/damon.lipparelli .cvsignore xemacsweb/People/dan.holmsand .cvsignore xemacsweb/People/daniel.pittman .cvsignore xemacsweb/People/darrell.kindred .cvsignore xemacsweb/People/darryl.okahata .cvsignore xemacsweb/People/david.hobley .cvsignore xemacsweb/People/david.moore .cvsignore xemacsweb/People/didier.verna .cvsignore xemacsweb/People/eduardo.pelegri-llopart .cvsignore xemacsweb/People/eric.benson .cvsignore xemacsweb/People/eric.knauel .cvsignore xemacsweb/People/eric.ludlam .cvsignore xemacsweb/People/evgeny.zajcev .cvsignore xemacsweb/People/fabrice.popineau .cvsignore xemacsweb/People/francisco.vides .cvsignore xemacsweb/People/gary.foster .cvsignore xemacsweb/People/glynn.clements .cvsignore xemacsweb/People/greg.klanderman .cvsignore xemacsweb/People/gunnar.evermann .cvsignore xemacsweb/People/hans.muller .cvsignore xemacsweb/People/harlan.sexton .cvsignore xemacsweb/People/heiko.muenkel .cvsignore xemacsweb/People/hisashi.miyashita .cvsignore xemacsweb/People/hrvoje.niksic .cvsignore xemacsweb/People/i.n.golubev .cvsignore xemacsweb/People/jake.colman .cvsignore xemacsweb/People/james.potts .cvsignore xemacsweb/People/jamie.zawinski .cvsignore xemacsweb/People/jan.rychter .cvsignore xemacsweb/People/jan.vroonhof .cvsignore xemacsweb/People/jareth.hein .cvsignore xemacsweb/People/jari.aalto .cvsignore xemacsweb/People/jason.mastaler .cvsignore xemacsweb/People/jeff.miller .cvsignore xemacsweb/People/jens-ulrik.petersen .cvsignore xemacsweb/People/jens.lautenbacher .cvsignore xemacsweb/People/jerry.james .cvsignore xemacsweb/People/jesper.pedersen .cvsignore xemacsweb/People/john.jacobs-anderson .cvsignore xemacsweb/People/john.paul.wallington .cvsignore xemacsweb/People/john.rose .cvsignore xemacsweb/People/john.wiegley .cvsignore xemacsweb/People/jonathan.harris .cvsignore xemacsweb/People/jonathan.stigelman .cvsignore xemacsweb/People/karl.hegbloom .cvsignore xemacsweb/People/kazuo.oishi .cvsignore xemacsweb/People/kazuyuki.ienaga .cvsignore xemacsweb/People/kenny.stevens .cvsignore xemacsweb/People/kevin.oberman .cvsignore xemacsweb/People/kirill.katsnelson .cvsignore xemacsweb/People/klaus.berndl .cvsignore xemacsweb/People/kyle.jones .cvsignore xemacsweb/People/lars.ingebrigtsen .cvsignore xemacsweb/People/linda.arai .cvsignore xemacsweb/People/malcolm.purvis .cvsignore xemacsweb/People/marc.paquette .cvsignore xemacsweb/People/marcus.crestani .cvsignore xemacsweb/People/marcus.thiessel .cvsignore xemacsweb/People/markus.kaltenbach .cvsignore xemacsweb/People/martin.buchholz .cvsignore xemacsweb/People/martin.schwenke .cvsignore xemacsweb/People/martin.stjernholm .cvsignore xemacsweb/People/mats.lidell .cvsignore xemacsweb/People/matt.simmons .cvsignore xemacsweb/People/matt.tucker .cvsignore xemacsweb/People/matthieu.devin .cvsignore xemacsweb/People/michael.albinus .cvsignore xemacsweb/People/michael.cook .cvsignore xemacsweb/People/michael.diers .cvsignore xemacsweb/People/michael.kifer .cvsignore xemacsweb/People/mike.alexander .cvsignore xemacsweb/People/mike.sperber .cvsignore xemacsweb/People/mike.woolley .cvsignore xemacsweb/People/nick.pakoulin .cvsignore xemacsweb/People/norbert.koch .cvsignore xemacsweb/People/oliver.graf .cvsignore xemacsweb/People/olivier.galibert .cvsignore xemacsweb/People/oscar.figueiredo .cvsignore xemacsweb/People/ovidiu.predescu .cvsignore xemacsweb/People/paul.kinnucan .cvsignore xemacsweb/People/per.abrahamsen .cvsignore xemacsweb/People/peter.brown .cvsignore xemacsweb/People/peter.osterlund .cvsignore xemacsweb/People/peter.pezaris .cvsignore xemacsweb/People/photos .cvsignore xemacsweb/People/raymond.toy .cvsignore xemacsweb/People/rebecca.ore .cvsignore xemacsweb/People/richard.mlynarik .cvsignore xemacsweb/People/richard.reingruber .cvsignore xemacsweb/People/rick.campbell .cvsignore xemacsweb/People/robin.socha .cvsignore xemacsweb/People/rodney.sparapani .cvsignore xemacsweb/People/sandy.wambold .cvsignore xemacsweb/People/sean.maclennan .cvsignore xemacsweb/People/simon.josefsson .cvsignore xemacsweb/People/stefanie.teufel .cvsignore xemacsweb/People/stephen.turnbull .cvsignore xemacsweb/People/steve.baur .cvsignore xemacsweb/People/steve.youngs .cvsignore xemacsweb/People/stig.bjorlykke .cvsignore xemacsweb/People/sven.grundmann .cvsignore xemacsweb/People/tomohiko.morioka .cvsignore xemacsweb/People/tomonori.ikeyama .cvsignore xemacsweb/People/trey.abelew .cvsignore xemacsweb/People/uwe.brauer .cvsignore xemacsweb/People/ville.skytta .cvsignore xemacsweb/People/vin.shelton .cvsignore xemacsweb/People/vladimir.ivanovic .cvsignore xemacsweb/People/will.deakin .cvsignore xemacsweb/People/william.perry .cvsignore xemacsweb/People/yoshiki.hayashi .cvsignore Log: Add .cvsignore, update jerry and aidan. <87r78zubo6.fsf(a)tleepslib.sk.tsukuba.ac.jp> Revision Changes Path 1.7 +9 -0 XEmacs/xemacsweb/People/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacsweb/People/ChangeLog,v retrieving revision 1.6 retrieving revision 1.7 diff -u -p -r1.6 -r1.7 --- ChangeLog 2005/09/25 14:48:42 1.6 +++ ChangeLog 2005/11/29 08:01:38 1.7 @@ -1,3 +1,12 @@ +2005-11-29 Stephen J. Turnbull + + * .cvsignore: New file in this directory and all subdirectories. + Ignore *.html. + + * index.content: Move Aidan up to review board members. + + * jerry.james/index.content: Update Jerry James. + 2005-09-25 Ben Wing = * index.content: Move Malcolm up to review board members. 1.3 +1 -1 XEmacs/xemacsweb/People/index.content Index: index.content =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacsweb/People/index.content,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- index.content 2005/09/25 14:48:42 1.2 +++ index.content 2005/11/29 08:01:38 1.3 @@ -20,6 +20,7 @@ Ben Wing

The current members of the XEmacs Review Board are:

Adrian Aichner
Aidan Kehoe
Andy Piper
Ben Wing
Didier Verna

Other present and past XEmacs developers are:

Aidan Kehoe
Alastair Houghton
Alexey Mahotkin
Andreas Jaeger

He has since given up his native California to join the faculty at the University of Kansas. He is learning to like the weather in Lawrence, -Kansas, where he lives with his wife and 3 children. His work on XEmacs -mostly consists of extensions to the loadable module support in XEmacs, -which was introduced by J. Kean Johnston and others. +Kansas, where he lives with his wife and 3 children. (Ed. note: +Evidently he didn't like the weather; he has moved to the Utah State +University.)

+His work on XEmacs mostly consists of extensions to the loadable module +support in XEmacs, which was introduced by J. Kean Johnston and others. +

His personal home page is at http://www.ittc.ku.edu/~james/. + href=3D"http://www.cs.usu.edu/~jerry/">http://www.cs.usu.edu/~jerry/.

Contributions to XEmacs:

To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/src ... Date: 2005-11-29 08:38:34 +0000 Message-ID: <20051129083834.5340.qmail@sunsite.dk> --===============4305678455570081734== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 09:38:34 Modified: xemacs/src ChangeLog xemacs.def.in.in Log: Add error check symbols to xemacs.def. <87ek4zu9z3.fsf(a)tleepslib.sk.tsukuba.ac.jp> Revision Changes Path 1.899 +7 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.898 retrieving revision 1.899 diff -u -p -r1.898 -r1.899 --- ChangeLog 2005/11/28 16:39:53 1.898 +++ ChangeLog 2005/11/29 08:38:29 1.899 @@ -1,5 +1,12 @@ 2005-11-29 Stephen J. Turnbull = + * xemacs.def.in.in (error_check_cons, error_check_ldap): + (error_check_opaque_ptr, error_check_pgconn, error_check_pgresult): + (error_check_string, wrap_record_1, XINT_1): Add. Patch by Rick + Rankin <20051129041305.35172.qmail(a)web61022.mail.yahoo.com>. + +2005-11-29 Stephen J. Turnbull + * xemacs.def.in.in (lrecord_uid_counter): Add it. Patch by Rick Rankin <20051120054349.52906.qmail(a)web61019.mail.yahoo.com>. = 1.12 +12 -0 XEmacs/xemacs/src/xemacs.def.in.in Index: xemacs.def.in.in =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/xemacs.def.in.in,v retrieving revision 1.11 retrieving revision 1.12 diff -u -p -r1.11 -r1.12 --- xemacs.def.in.in 2005/11/28 16:39:54 1.11 +++ xemacs.def.in.in 2005/11/29 08:38:32 1.12 @@ -82,6 +82,12 @@ emodules_doc_sym /* CDOCSYM */ eputenv #ifdef DEBUG_XEMACS eq_with_ebola_notice /* EQ_WITH_EBOLA_NOTICE */ +error_check_cons +error_check_ldap +error_check_opaque_ptr +error_check_pgconn +error_check_pgresult +error_check_string #endif free_opaque_ptr get_coding_system_for_text_file @@ -144,6 +150,9 @@ vector1 vector2 vector3 warn_when_safe +#ifdef DEBUG_XEMACS +wrap_record_1 +#endif write_c_string write_fmt_string write_fmt_string_lisp @@ -187,6 +196,9 @@ Fset_buffer Fsignal Fthrow Fvector +#ifdef DEBUG_XEMACS +XINT_1 +#endif = /* Exported variables */ __temp_alloca_size__ /* ALLOCA */ --===============4305678455570081734==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============3997337270538618667==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/lisp ... Date: 2005-11-29 08:23:01 +0000 Message-ID: <20051129082301.3021.qmail@sunsite.dk> --===============3997337270538618667== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 09:23:01 Modified: xemacs/lisp ChangeLog about.el Log: Jerry moved to Utah. <87irubuar9.fsf(a)tleepslib.sk.tsukuba.ac.jp> Revision Changes Path 1.701 +4 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.700 retrieving revision 1.701 diff -u -p -r1.700 -r1.701 --- ChangeLog 2005/11/26 11:45:53 1.700 +++ ChangeLog 2005/11/29 08:22:58 1.701 @@ -1,3 +1,7 @@ +2005-11-29 Stephen J. Turnbull + + * about.el (about-personal-info, about-url-alist): Update `jerry'. + 2005-11-26 Stephen J. Turnbull = Merge Xft. 1.67 +9 -5 XEmacs/xemacs/lisp/about.el Index: about.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/about.el,v retrieving revision 1.66 retrieving revision 1.67 diff -u -p -r1.66 -r1.67 --- about.el 2005/03/02 21:37:55 1.66 +++ about.el 2005/11/29 08:22:59 1.67 @@ -207,7 +207,7 @@ (dv . "http://www.lrde.epita.fr/~didier/") (fabrice . "http://www.ese-metz.fr/~popineau/") (fptex . "http://www.fptex.org/") - (james . "http://www.ittc.ku.edu/~james/") + (james . "http://www.cs.usu.edu/~jerry/") (jas . "http://josefsson.org/") (jason . "http://www.mastaler.com/") (juhp . "http://www.01.246.ne.jp/~juhp/") @@ -1102,11 +1102,15 @@ from FSF Emacs to XEmacs. He thought th XEmacs, and soon had a web page containing small patches to XEmacs 20.3, which were picked up by the Debian Linux distribution. = -He has since given up his native California to join the faculty at the +He has since given up his native California, to join the faculty at the University of Kansas. He is learning to like the weather in Lawrence, -Kansas, where he lives with his wife and 3 children. His work on XEmacs -mostly consists of extensions to the loadable module support in XEmacs, -which was introduced by J. Kean Johnston and others. He has a ") +Kansas, where he lives with his wife and 3 children. (Ed. note: I guess +he didn't like the weather enough; he is now teaching at Utah State +University.) + +His work on XEmacs mostly consists of extensions to the loadable module +support in XEmacs, which was introduced by J. Kean Johnston and others. +He has a ") (about-url-link 'james "home page" "Visit Jerry's home page") (widget-insert " (doesn't everybody?)\n")) (jan --===============3997337270538618667==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============2984607006788451464==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/man/xemacs ... Date: 2005-11-29 12:08:42 +0000 Message-ID: <20051129120842.16935.qmail@sunsite.dk> --===============2984607006788451464== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 13:08:42 Modified: xemacs/man/xemacs custom.texi Log: Pitiful Xft user docs and CHANGES-beta. <87zmnnslq0.fsf(a)tleepslib.sk.tsukuba.ac.jp> Revision Changes Path 1.235 +3 -2 XEmacs/xemacs/CHANGES-beta Index: CHANGES-beta =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/CHANGES-beta,v retrieving revision 1.234 retrieving revision 1.235 diff -u -p -r1.234 -r1.235 --- CHANGES-beta 2005/11/29 03:31:25 1.234 +++ CHANGES-beta 2005/11/29 12:08:32 1.235 @@ -30,6 +30,7 @@ Documentation -- Improve: texi documentation of DEFSYMBOL. -- Stephen J. Turnbull -- Improve: texi documentation of XEmacs Autoconf macros. -- Malcolm Purvis -- Improve: update PROBLEMS, and install in etc. -- Malcolm Purvis +-- Update: about Jerry James. -- Stephen J. Turnbull = Lisp API = @@ -44,7 +45,7 @@ Internal API and Implementation -- Fix: compilation errors and warnings in GTK code. -- Malcolm Purvis -- Fix: help on functions without documentation. -- Ben Wing -- Fix: integer types for Berkeley db. -- Stephen J. Turnbull, Volker Zell --- Fix: make modules build on Cygwin and Mac. -- Stephen J. Turnbull, Rick= Rankin +-- Fix: make modules build on Cygwin and Mac. -- Stephen J. Turnbull, Rick= Rankin, Ben Wing -- Fix: quiet byte-compiler. -- Stephen J. Turnbull -- Fix: syntax error -- Marcus Crestani -- Fix: uninitialized local variables. -- Stephen J. Turnbull @@ -57,7 +58,7 @@ Internal API and Implementation -- Improve: refactor default_object_printer. -- Marcus Crestani -- Improve: remove dead code in lwlib. -- Stephen J. Turnbull -- Improve: reorganize lisp.h. -- Ben Wing --- Improve: tabs widget. -- Stephen J. Turnbull +-- Improve: tabs widget internals. -- Stephen J. Turnbull = to 21.5.23 "daikon" Major features 1.702 +4 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.701 retrieving revision 1.702 diff -u -p -r1.701 -r1.702 --- ChangeLog 2005/11/29 08:22:58 1.701 +++ ChangeLog 2005/11/29 12:08:35 1.702 @@ -1,5 +1,9 @@ 2005-11-29 Stephen J. Turnbull = + * objects.el (make-font-specifier): Document font name syntaxes. + +2005-11-29 Stephen J. Turnbull + * about.el (about-personal-info, about-url-alist): Update `jerry'. = 2005-11-26 Stephen J. Turnbull 1.6 +5 -3 XEmacs/xemacs/lisp/objects.el Index: objects.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/objects.el,v retrieving revision 1.5 retrieving revision 1.6 diff -u -p -r1.5 -r1.6 --- objects.el 2001/04/12 18:21:32 1.5 +++ objects.el 2005/11/29 12:08:36 1.6 @@ -50,9 +50,11 @@ specifiers. = Valid instantiators for font specifiers are: = --- a string naming a font (e.g. under X this might be - \"-*-courier-medium-r-*-*-*-140-*-*-*-*-iso8859-*\" for a 14-point - upright medium-weight Courier font) +-- a string naming a font; syntax is platform dependent. Some examples for + a 14-point upright medium-weight Courier font: + X11 (and GTK1): \"-*-courier-medium-r-*-*-*-140-*-*-*-*-iso8859-*\" + Xft (and GTK2): \"Courier-14\" + MS-Windows: \"Courier:14:Western\" -- a font instance (use that instance directly if the device matches, or use the string that generated it) -- a vector of no elements (only on TTY's; this means to set no font 1.325 +5 -0 XEmacs/xemacs/man/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/man/ChangeLog,v retrieving revision 1.324 retrieving revision 1.325 diff -u -p -r1.324 -r1.325 --- ChangeLog 2005/11/26 11:46:03 1.324 +++ ChangeLog 2005/11/29 12:08:40 1.325 @@ -1,3 +1,8 @@ +2005-11-29 Stephen J. Turnbull + + * xemacs/custom.texi (Faces): Describe some of the more important + font naming syntaxes under `set-face-font'. Fix a typo. + 2005-11-22 Stephen J. Turnbull = * internals/internals.texi (Working with Lisp Objects): Explain 1.21 +44 -1 XEmacs/xemacs/man/xemacs/custom.texi Index: custom.texi =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/man/xemacs/custom.texi,v retrieving revision 1.20 retrieving revision 1.21 diff -u -p -r1.20 -r1.21 --- custom.texi 2005/04/18 04:00:10 1.20 +++ custom.texi 2005/11/29 12:08:41 1.21 @@ -2148,7 +2148,7 @@ before the @code{x-bitmap-file-path} var Alternately, you can use a simpler version of @code{set-face-background-pixmap} called @code{set-face-background-pixmap-file}. This function does not give you -as much control on the pixmap instanciator, but provides filename +as much control on the pixmap instantiator, but provides filename completion. = @findex set-face-font @@ -2157,6 +2157,49 @@ You can set the font of the specified @v name of a font. When called from a program, if the optional @var{frame} argument is provided, the face is changed only in that frame; otherwise, it is changed in all frames. + +The syntax of the @var{font} argument varies according to platform. In +each of the following syntaxes, the example shows how to specify a +14-point upright bold Courier font. + +(a)table @strong +(a)item X11 +The X11 syntax is defined by the @dfn{X Logical Font Descriptor} (XLFD) +standard. An XLFD contains 14 fields each preceded by a hyphen: +foundry, family, weight, slant, swidth, adstyle, pixelsize, pointsize, +xresolution, yresolution, spacing, averagewidth, registry, and encoding. +It is usually sufficient to specify family, weight, slant, pointsize, +registry, and encoding, wildcarding the rest with @samp{*}. If you're +not sure what's available, you can wildcard some of the fields usually +specified, too. Here's our example font in XLFD syntax: +(a)code{"-*-courier-bold-r-*-*-*-140-*-*-*-*-iso8859-*"}. +The XLFD syntax is also used for GTK+ version 1. XLFD names must be +encoding in ISO-8859-1. + +(a)item Xft +The Xft syntax is defined by the @file{fontconfig} library +(a)ref{Font Names,,,fontconfig}. It is less a font naming convention than +a way to express any arbitrary subset of the font's properties in a +syntax that is both human- and machine-readable. A @file{fontconfig} +font name contains the family, a hyphen, and the pointsize, followed by +an arbitrary sequence of properties. Each property consists of a colon, +a keyword, an equals sign, and the property value. Here's our example +font in @file{fontconfig} syntax: @code{"Courier-14:weight=3Dbold"}. This +syntax admits ``style abbreviations'' which can be user-defined. A +style is a single keyword denoting a sequence of properties. So the +example font may be abbreviated to @code{"Courier-14:bold"} ("bold" is a +standard abbreviation for "weight=3Dbold"). The @file{fontconfig} syntax +is also used for GTK+ version 2. @file{fontconfig} names must be +encoded in UTF-8. + +(a)item MS-Windows +The MS Windows syntax is superficially similar to that of Xft but +actually is more like XLFD. A font name consists of five fields, +family, size, slant, weight, and encoding, each expressed as a keyword +taking on standardized values (except family, which is just a name). +Here's our example font in MS Windows syntax: +(a)code{"Courier:14:Bold:Western"}. +(a)end table = @findex set-face-foreground You can set the foreground color of the specified @var{face} with the --===============2984607006788451464==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============6696250155065280458==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by malcolmp xemacs/lisp ... Date: 2005-11-29 12:33:48 +0000 Message-ID: <20051129123348.22513.qmail@sunsite.dk> --===============6696250155065280458== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: malcolmp Date: 05/11/29 13:33:48 Modified: xemacs/lisp ChangeLog occur.el Log: occur.el: Add autoload cookie for list-matching-lines. Revision Changes Path 1.703 +4 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.702 retrieving revision 1.703 diff -u -p -r1.702 -r1.703 --- ChangeLog 2005/11/29 12:08:35 1.702 +++ ChangeLog 2005/11/29 12:33:46 1.703 @@ -1,3 +1,7 @@ +2005-11-29 Malcolm Purvis + + * occur.el: Add autoload cookie for list-matching-lines. + 2005-11-29 Stephen J. Turnbull = * objects.el (make-font-specifier): Document font name syntaxes. 1.3 +1 -0 XEmacs/xemacs/lisp/occur.el Index: occur.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/occur.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- occur.el 2005/10/24 10:07:27 1.2 +++ occur.el 2005/11/29 12:33:47 1.3 @@ -222,6 +222,7 @@ A positive number means to include that = :type 'integer :group 'matching) = +;;;###autoload (defalias 'list-matching-lines 'occur) = (defcustom list-matching-lines-face 'match --===============6696250155065280458==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============2325038407348784476==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs ... Date: 2005-11-29 14:41:18 +0000 Message-ID: <20051129144118.18332.qmail@sunsite.dk> --===============2325038407348784476== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:41:18 Modified: xemacs version.sh Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.1359 +4 -4 XEmacs/xemacs/version.sh Index: version.sh =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1358 retrieving revision 1.1359 diff -u -p -r1.1358 -r1.1359 --- version.sh 2005/11/28 22:51:07 1.1358 +++ version.sh 2005/11/29 14:41:17 1.1359 @@ -2,11 +2,11 @@ emacs_is_beta=3Dt emacs_major_version=3D21 emacs_minor_version=3D5 -emacs_beta_version=3D23 -xemacs_codename=3D"daikon" +emacs_beta_version=3D24 +xemacs_codename=3D"dandelion" emacs_kit_version=3D infodock_major_version=3D4 infodock_minor_version=3D0 infodock_build_version=3D8 -xemacs_extra_name=3D"(+CVS-20051128)" -xemacs_release_date=3D"2005-10-26" +xemacs_extra_name=3D"" +xemacs_release_date=3D"2005-11-29" --===============2325038407348784476==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============3144975228989632337==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs ... Date: 2005-11-29 14:41:41 +0000 Message-ID: <20051129144141.18369.qmail@sunsite.dk> --===============3144975228989632337== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:41:41 Modified: xemacs ChangeLog Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.478 +4 -0 XEmacs/xemacs/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.477 retrieving revision 1.478 diff -u -p -r1.477 -r1.478 --- ChangeLog 2005/11/28 09:50:16 1.477 +++ ChangeLog 2005/11/29 14:41:40 1.478 @@ -1,3 +1,7 @@ +2005-11-29 Stephen J. Turnbull + + * XEmacs 21.5.24 "dandelion" is released. + 2005-11-27 Marcus Crestani = * configure.ac: Remove vdb-fake warning, die if POSIX checks fail. --===============3144975228989632337==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============8275438323013920550==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/etc ... Date: 2005-11-29 14:41:50 +0000 Message-ID: <20051129144150.18394.qmail@sunsite.dk> --===============8275438323013920550== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:41:50 Modified: xemacs/etc ChangeLog Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.66 +4 -0 XEmacs/xemacs/etc/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/etc/ChangeLog,v retrieving revision 1.65 retrieving revision 1.66 diff -u -p -r1.65 -r1.66 --- ChangeLog 2005/11/18 11:28:10 1.65 +++ ChangeLog 2005/11/29 14:41:49 1.66 @@ -1,3 +1,7 @@ +2005-11-29 Stephen J. Turnbull + + * XEmacs 21.5.24 "dandelion" is released. + 2005-11-18 Aidan Kehoe = * HELLO: Add Irish, Tajik. Don't give the local name for the --===============8275438323013920550==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============4057745842112240272==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/lib-src ... Date: 2005-11-29 14:41:59 +0000 Message-ID: <20051129144159.18419.qmail@sunsite.dk> --===============4057745842112240272== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:41:59 Modified: xemacs/lib-src ChangeLog Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.201 +4 -0 XEmacs/xemacs/lib-src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lib-src/ChangeLog,v retrieving revision 1.200 retrieving revision 1.201 diff -u -p -r1.200 -r1.201 --- ChangeLog 2005/11/24 12:37:59 1.200 +++ ChangeLog 2005/11/29 14:41:58 1.201 @@ -1,3 +1,7 @@ +2005-11-29 Stephen J. Turnbull + + * XEmacs 21.5.24 "dandelion" is released. + 2005-11-22 Malcolm Purvis = * etags.c: Update to author version 17.15. --===============4057745842112240272==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============8713959037349272941==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/lisp ... Date: 2005-11-29 14:52:45 +0000 Message-ID: <20051129145245.20152.qmail@sunsite.dk> --===============8713959037349272941== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:52:45 Modified: xemacs/lisp ChangeLog Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.704 +2 -2 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.703 retrieving revision 1.704 diff -u -p -r1.703 -r1.704 --- ChangeLog 2005/11/29 12:33:46 1.703 +++ ChangeLog 2005/11/29 14:52:44 1.704 @@ -1,6 +1,6 @@ -2005-11-29 Malcolm Purvis +2005-11-29 Stephen J. Turnbull = - * occur.el: Add autoload cookie for list-matching-lines. + * XEmacs 21.5.24 "dandelion" is released. = 2005-11-29 Stephen J. Turnbull = --===============8713959037349272941==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============6090435986875791370==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/lwlib ... Date: 2005-11-29 14:52:55 +0000 Message-ID: <20051129145255.20177.qmail@sunsite.dk> --===============6090435986875791370== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:52:55 Modified: xemacs/lwlib ChangeLog Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.77 +4 -0 XEmacs/xemacs/lwlib/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/lwlib/ChangeLog,v retrieving revision 1.76 retrieving revision 1.77 diff -u -p -r1.76 -r1.77 --- ChangeLog 2005/11/26 11:45:58 1.76 +++ ChangeLog 2005/11/29 14:52:55 1.77 @@ -1,3 +1,7 @@ +2005-11-29 Stephen J. Turnbull + + * XEmacs 21.5.24 "dandelion" is released. + 2005-11-26 Stephen J. Turnbull = Merge Xft. --===============6090435986875791370==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============1709788943827857654==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/man ... Date: 2005-11-29 14:53:05 +0000 Message-ID: <20051129145305.20217.qmail@sunsite.dk> --===============1709788943827857654== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:53:05 Modified: xemacs/man ChangeLog Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.326 +4 -0 XEmacs/xemacs/man/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/man/ChangeLog,v retrieving revision 1.325 retrieving revision 1.326 diff -u -p -r1.325 -r1.326 --- ChangeLog 2005/11/29 12:08:40 1.325 +++ ChangeLog 2005/11/29 14:53:04 1.326 @@ -1,5 +1,9 @@ 2005-11-29 Stephen J. Turnbull = + * XEmacs 21.5.24 "dandelion" is released. + +2005-11-29 Stephen J. Turnbull + * xemacs/custom.texi (Faces): Describe some of the more important font naming syntaxes under `set-face-font'. Fix a typo. = --===============1709788943827857654==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============3641403419307288569==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/netinstall ... Date: 2005-11-29 14:53:20 +0000 Message-ID: <20051129145320.20282.qmail@sunsite.dk> --===============3641403419307288569== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:53:20 Modified: xemacs/netinstall ChangeLog Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.41 +4 -0 XEmacs/xemacs/netinstall/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/netinstall/ChangeLog,v retrieving revision 1.40 retrieving revision 1.41 diff -u -p -r1.40 -r1.41 --- ChangeLog 2005/11/22 07:14:39 1.40 +++ ChangeLog 2005/11/29 14:53:20 1.41 @@ -1,3 +1,7 @@ +2005-11-29 Stephen J. Turnbull + + * XEmacs 21.5.24 "dandelion" is released. + 2005-11-22 Ben Wing = * Makefile.in.in: --===============3641403419307288569==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============6150462472627942357==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/modules ... Date: 2005-11-29 14:53:12 +0000 Message-ID: <20051129145312.20252.qmail@sunsite.dk> --===============6150462472627942357== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:53:12 Modified: xemacs/modules ChangeLog Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.53 +4 -0 XEmacs/xemacs/modules/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/modules/ChangeLog,v retrieving revision 1.52 retrieving revision 1.53 diff -u -p -r1.52 -r1.53 --- ChangeLog 2005/11/22 07:14:37 1.52 +++ ChangeLog 2005/11/29 14:53:12 1.53 @@ -1,3 +1,7 @@ +2005-11-29 Stephen J. Turnbull + + * XEmacs 21.5.24 "dandelion" is released. + 2005-11-22 Ben Wing = * common/Makefile.common (mostlyclean): --===============6150462472627942357==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============5159825516529710273==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/nt ... Date: 2005-11-29 14:53:29 +0000 Message-ID: <20051129145329.20324.qmail@sunsite.dk> --===============5159825516529710273== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:53:28 Modified: xemacs/nt ChangeLog Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.195 +4 -0 XEmacs/xemacs/nt/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/nt/ChangeLog,v retrieving revision 1.194 retrieving revision 1.195 diff -u -p -r1.194 -r1.195 --- ChangeLog 2005/11/25 01:41:49 1.194 +++ ChangeLog 2005/11/29 14:53:28 1.195 @@ -1,3 +1,7 @@ +2005-11-29 Stephen J. Turnbull + + * XEmacs 21.5.24 "dandelion" is released. + 2005-11-21 Marcus Crestani = Incremental Garbage Collector --===============5159825516529710273==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============7299349266083905638==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/nt/installer/Wise ... Date: 2005-11-29 14:53:36 +0000 Message-ID: <20051129145336.20349.qmail@sunsite.dk> --===============7299349266083905638== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:53:36 Modified: xemacs/nt/installer/Wise ChangeLog Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.27 +4 -0 XEmacs/xemacs/nt/installer/Wise/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/nt/installer/Wise/ChangeLog,v retrieving revision 1.26 retrieving revision 1.27 diff -u -p -r1.26 -r1.27 --- ChangeLog 2005/10/26 15:14:35 1.26 +++ ChangeLog 2005/11/29 14:53:36 1.27 @@ -1,3 +1,7 @@ +2005-11-29 Stephen J. Turnbull + + * XEmacs 21.5.24 "dandelion" is released. + 2005-10-26 Stephen J. Turnbull = * XEmacs 21.5.23 "daikon" is released. --===============7299349266083905638==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============3797663843032864283==" MIME-Version: 1.0 From: CVS Monitor To: xemacs-cvs at xemacs.org Subject: CVS update by stephent xemacs/src ... Date: 2005-11-29 14:53:55 +0000 Message-ID: <20051129145355.20390.qmail@sunsite.dk> --===============3797663843032864283== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable User: stephent Date: 05/11/29 15:53:55 Modified: xemacs/src ChangeLog Log: XEmacs 21.5.24 "dandelion" is released. Revision Changes Path 1.900 +4 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.899 retrieving revision 1.900 diff -u -p -r1.899 -r1.900 --- ChangeLog 2005/11/29 08:38:29 1.899 +++ ChangeLog 2005/11/29 14:53:52 1.900 @@ -1,5 +1,9 @@ 2005-11-29 Stephen J. Turnbull = + * XEmacs 21.5.24 "dandelion" is released. + +2005-11-29 Stephen J. Turnbull + * xemacs.def.in.in (error_check_cons, error_check_ldap): (error_check_opaque_ptr, error_check_pgconn, error_check_pgresult): (error_check_string, wrap_record_1, XINT_1): Add. Patch by Rick --===============3797663843032864283==-- From xemacs-cvs at xemacs.org Mon Feb 27 02:24:17 2017 Content-Type: multipart/mixed; boundary="===============3314627376513524616==" MIME-Version: 1.0 From: CVS Monitor