Changeset 4119

Show
Ignore:
Timestamp:
07/22/06 22:11:28 (2 years ago)
Author:
miyoshi
Message:

* regex.c (regex_compile): Add comment.

* w32term.h (EMACS_CLASS): Removed.

* strftime.c (my_strftime): Mark up Meadow specific code
explicitly.

* mw32term.c (mw32_release_frame_hdc): Redefine as a void
function.
(mw32_cleanup_frame_hdc): Ditto.

* mw32term.h: Ditto.

* lisp.h (DEFUN): Sync up with Emacs CVS HEAD.

* image.c: Mark up Meadow specific code explicitly.

* frame.h (EMACS_CLASS): Sync up with Emacs CVS HEAD.

* fontset.c: Mark up Meadow specific code explicitly.
(fontset_ref_via_base): Sync up with Emacs CVS HEAD.
(fontset_font_pattern): Ditto.

* eval.c (Fsignal): Mark up Meadow specific code explicitly.

* emacs.c (sbrk): New extern for Meadow.

* editfns.c (syms_of_editfns): Sync up with Emacs CVS HEAD.

* dispextern.h (struct glyph_string): Mark up Meadow specific code
explicitly.
Sync up with Emacs CVS HEAD.

* coding.h (ENCODE_SYSTEM): Sync up with Emacs CVS HEAD.
(DECODE_SYSTEM): Ditto.

* charset.c (Fmake_char_internal): Mark up Meadow specific code
explicitly.

* alloc.c: Remove a temporary prototype.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/src/ChangeLog.Meadow

    r4117 r4119  
     12006-07-22  MIYOSHI Masanori  <miyoshi@meadowy.org> 
     2 
     3        * regex.c (regex_compile): Add comment. 
     4 
     5        * w32term.h (EMACS_CLASS): Removed. 
     6 
     7        * strftime.c (my_strftime): Mark up Meadow specific code 
     8        explicitly. 
     9 
     10        * mw32term.c (mw32_release_frame_hdc): Redefine as a void 
     11        function. 
     12        (mw32_cleanup_frame_hdc): Ditto. 
     13 
     14        * mw32term.h: Ditto. 
     15 
     16        * lisp.h (DEFUN): Sync up with Emacs CVS HEAD. 
     17 
     18        * image.c: Mark up Meadow specific code explicitly. 
     19 
     20        * frame.h (EMACS_CLASS): Sync up with Emacs CVS HEAD. 
     21 
     22        * fontset.c: Mark up Meadow specific code explicitly. 
     23        (fontset_ref_via_base): Sync up with Emacs CVS HEAD. 
     24        (fontset_font_pattern): Ditto. 
     25 
     26        * eval.c (Fsignal): Mark up Meadow specific code explicitly. 
     27 
     28        * emacs.c (sbrk): New extern for Meadow. 
     29 
     30        * editfns.c (syms_of_editfns): Sync up with Emacs CVS HEAD. 
     31 
     32        * dispextern.h (struct glyph_string): Mark up Meadow specific code 
     33        explicitly. 
     34        Sync up with Emacs CVS HEAD. 
     35 
     36        * coding.h (ENCODE_SYSTEM): Sync up with Emacs CVS HEAD. 
     37        (DECODE_SYSTEM): Ditto. 
     38 
     39        * charset.c (Fmake_char_internal): Mark up Meadow specific code 
     40        explicitly. 
     41 
     42        * alloc.c: Remove a temporary prototype. 
     43 
    1442006-07-22  Masayuki FUJII  <boochang@m4.kcn.ne.jp> 
    245 

  • trunk/src/alloc.c

    r4117 r4119  
    491491 
    492492#ifdef MEADOW 
    493 /*  Temporary prototypes.  This should be removed. */ 
    494 void refill_memory_reserve (); 
    495493#define NSTATICS 1400 
    496494#else 

  • trunk/src/charset.c

    r4037 r4119  
    10311031 invalid_code_posints: 
    10321032  error ("Invalid code points for charset ID %d: %d %d", charset_id, c1, c2); 
     1033#ifdef MEADOW 
    10331034  /* NOTREACHED */ 
    10341035  return Qnil; 
     1036#endif 
    10351037} 
    10361038 

  • trunk/src/coding.h

    r4091 r4119  
    603603#define ENCODE_SYSTEM(str)                                                 \ 
    604604  (! NILP (Vlocale_coding_system)                                          \ 
    605    && XFASTINT (Vlocale_coding_system) != 0                              \ 
     605   && !EQ (Vlocale_coding_system, make_number (0))                       \ 
    606606   ? code_convert_string_norecord (str, Vlocale_coding_system, 1)          \ 
    607607   : str) 
    …… 
    611611#define DECODE_SYSTEM(str)                                                 \ 
    612612  (! NILP (Vlocale_coding_system)                                          \ 
    613    && XFASTINT (Vlocale_coding_system) != 0                              \ 
     613   && !EQ (Vlocale_coding_system, make_number (0))                       \ 
    614614   ? code_convert_string_norecord (str, Vlocale_coding_system, 0)          \ 
    615615   : str) 

  • trunk/src/dispextern.h

    r4111 r4119  
    11651165 
    11661166  /* Font in which this string is to be drawn.  */ 
     1167#ifdef MEADOW 
    11671168  MW32LogicalFont *font; 
     1169#else 
     1170  XFontStruct *font; 
     1171#endif 
    11681172 
    11691173  /* Font info for this string.  */ 
    …… 
    15801584     realize_x_face).  */ 
    15811585  unsigned colors_copied_bitwise_p : 1; 
     1586 
     1587  /* If non-zero, use overstrike (to simulate bold-face).  */ 
     1588  unsigned overstrike : 1; 
    15821589 
    15831590  /* Next and previous face in hash collision list of face cache.  */ 
    …… 
    27222729extern int mode_line_in_non_selected_windows; 
    27232730extern int redisplaying_p; 
    2724 extern Lisp_Object Vimage_types; 
    27252731extern void add_to_log P_ ((char *, Lisp_Object, Lisp_Object)); 
    27262732extern int help_echo_showing_p; 
    …… 
    28162822/* Defined in image.c */ 
    28172823 
     2824#ifdef HAVE_WINDOW_SYSTEM 
     2825 
     2826extern int x_bitmap_height P_ ((struct frame *, int)); 
     2827extern int x_bitmap_width P_ ((struct frame *, int)); 
     2828extern int x_bitmap_pixmap P_ ((struct frame *, int)); 
     2829extern void x_reference_bitmap P_ ((struct frame *, int)); 
     2830extern int x_create_bitmap_from_data P_ ((struct frame *, char *, 
     2831                                          unsigned int, unsigned int)); 
     2832extern int x_create_bitmap_from_file P_ ((struct frame *, Lisp_Object)); 
     2833#ifndef x_destroy_bitmap 
     2834extern void x_destroy_bitmap P_ ((struct frame *, int)); 
     2835#endif 
     2836extern void x_destroy_all_bitmaps P_ ((Display_Info *)); 
     2837extern int x_create_bitmap_mask P_ ((struct frame * , int)); 
     2838extern Lisp_Object x_find_image_file P_ ((Lisp_Object)); 
     2839 
     2840void x_kill_gs_process P_ ((Pixmap, struct frame *)); 
    28182841struct image_cache *make_image_cache P_ ((void)); 
    28192842void free_image_cache P_ ((struct frame *)); 
    …… 
    28242847void prepare_image_for_display P_ ((struct frame *, struct image *)); 
    28252848int lookup_image P_ ((struct frame *, Lisp_Object)); 
     2849 
     2850unsigned long image_background P_ ((struct image *, struct frame *, 
     2851                                    XImagePtr_or_DC ximg)); 
     2852int image_background_transparent P_ ((struct image *, struct frame *, 
     2853                                      XImagePtr_or_DC mask)); 
     2854 
     2855int image_ascent P_ ((struct image *, struct face *, struct glyph_slice *)); 
     2856 
     2857#endif 
     2858 
    28262859/* Defined in sysdep.c */ 
    28272860 

  • trunk/src/dispnew.c

    r4117 r4119  
    39013901 
    39023902      sec = (int) p; 
    3903       usec = (p - sec) * 1000000; 
     3903      usec = (int) ((p - sec) * 1000000); 
    39043904 
    39053905      EMACS_GET_TIME (tm); 
    …… 
    40534053 
    40544054          sec = (int) p; 
    4055           usec = (p - sec) * 1000000; 
     4055          usec = (int) ((p - sec) * 1000000); 
    40564056 
    40574057          EMACS_GET_TIME (tm); 

  • trunk/src/editfns.c

    r4117 r4119  
    43354335syms_of_editfns () 
    43364336{ 
     4337  environbuf = 0; 
     4338 
    43374339  Qbuffer_access_fontify_functions 
    43384340    = intern ("buffer-access-fontify-functions"); 

  • trunk/src/emacs.c

    r4117 r4119  
    4747#ifndef MEADOW 
    4848#include "w32heap.h" /* for prototype of sbrk */ 
     49#else 
     50/* Emulation of Unix sbrk().  */ 
     51extern void *sbrk (unsigned long size); 
    4952#endif 
    5053#endif 

  • trunk/src/eval.c

    r4117 r4119  
    17061706  string = Ferror_message_string (data); 
    17071707  fatal ("%s", SDATA (string), 0); 
     1708#ifdef MEADOW 
    17081709  return Qnil; 
     1710#endif 
    17091711} 
    17101712 

  • trunk/src/fileio.c

    r4111 r4119  
    64476447#ifndef MEADOW 
    64486448      val = Fx_file_dialog (prompt, dir, default_filename, mustmatch, 
    6449                             EQ (predicate, Qfile_directory_p) ? Qt : Qnil); 
     6449                           EQ (predicate, Qfile_directory_p) ? Qt : Qnil); 
    64506450#else 
    64516451      val = Fmw32_file_dialog (prompt, dir, default_filename, mustmatch, 

  • trunk/src/fontset.c

    r4117 r4119  
    137137 
    138138/* Vector containing all fontsets.  */ 
     139#ifdef MEADOW 
    139140Lisp_Object Vfontset_table; 
     141#else 
     142static Lisp_Object Vfontset_table; 
     143#endif 
    140144 
    141145/* Next possibly free fontset ID.  Usually this keeps the minimum 
    …… 
    196200static Lisp_Object fontset_ref P_ ((Lisp_Object, int)); 
    197201static Lisp_Object lookup_overriding_fontspec P_ ((Lisp_Object, int)); 
     202#ifdef MEADOW 
    198203void fontset_set P_ ((Lisp_Object, int, Lisp_Object)); 
     204#else 
     205static void fontset_set P_ ((Lisp_Object, int, Lisp_Object)); 
     206#endif 
    199207static Lisp_Object make_fontset P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); 
    200208static int fontset_id_valid_p P_ ((int)); 
    …… 
    298306#define FONTSET_REF_VIA_BASE(fontset, c) fontset_ref_via_base (fontset, &c) 
    299307 
     308#ifdef MEADOW 
    300309Lisp_Object 
     310#else 
     311static Lisp_Object 
     312#endif 
    301313fontset_ref_via_base (fontset, c) 
    302314     Lisp_Object fontset; 
    …… 
    309321    return FONTSET_ASCII (fontset); 
    310322 
    311   elt = FONTSET_REF (FONTSET_BASE (fontset), *c); 
    312   if (NILP (elt) && ! EQ (fontset, Vdefault_fontset)) 
     323  elt = Qnil; 
     324  if (! EQ (FONTSET_BASE (fontset), Vdefault_fontset)) 
     325    elt = FONTSET_REF (FONTSET_BASE (fontset), *c); 
     326#ifndef MEADOW 
     327  if (NILP (elt)) 
     328    elt = lookup_overriding_fontspec (FONTSET_FRAME (fontset), *c); 
     329#endif 
     330  if (NILP (elt)) 
    313331    elt = FONTSET_REF (Vdefault_fontset, *c); 
    314332  if (NILP (elt)) 
    …… 
    335353#define FONTSET_SET(fontset, c, newelt) fontset_set(fontset, c, newelt) 
    336354 
     355#ifdef MEADOW 
    337356void 
     357#else 
     358static void 
     359#endif 
    338360fontset_set (fontset, c, newelt) 
    339361     Lisp_Object fontset; 
    …… 
    600622  Lisp_Object fontset, elt; 
    601623  struct font_info *fontp; 
    602   Lisp_Object family_registry; 
    603624 
    604625  elt = Qnil; 
    …… 
    608629      xassert (!BASE_FONTSET_P (fontset)); 
    609630      fontset = FONTSET_BASE (fontset); 
    610       elt = FONTSET_REF (fontset, c); 
    611     } 
     631      if (! EQ (fontset, Vdefault_fontset)) 
     632        elt = FONTSET_REF (fontset, c); 
     633    } 
     634#ifndef MEADOW 
     635  if (NILP (elt)) 
     636    { 
     637      Lisp_Object frame; 
     638 
     639      XSETFRAME (frame, f); 
     640      elt = lookup_overriding_fontspec (frame, c); 
     641    } 
     642#endif 
    612643  if (NILP (elt)) 
    613644    elt = FONTSET_REF (Vdefault_fontset, c); 

  • trunk/src/frame.h

    r4111 r4119  
    10421042#ifdef HAVE_WINDOW_SYSTEM 
    10431043 
     1044#ifndef MEADOW 
     1045/* The class of this X application.  */ 
     1046#define EMACS_CLASS "Emacs" 
     1047#endif 
     1048 
    10441049enum 
    10451050{ 

  • trunk/src/image.c

    r4091 r4119  
    766766 
    767767Lisp_Object Qlaplace, Qemboss, Qedge_detection, Qheuristic; 
     768#ifdef MEADOW 
    768769Lisp_Object Qpostscript; 
    769770Lisp_Object Qpbm, Qxpm, Qjpeg, Qtiff, Qgif, Qpng, Qbmp; 
     771#endif 
    770772 
    771773/* Time in seconds after which images should be removed from the cache 

  • trunk/src/lisp.h

    r4117 r4119  
    16781678  Lisp_Object fnname ();                                                \ 
    16791679  DECL_ALIGN (struct Lisp_Subr, sname) =                                \ 
    1680     { PVEC_SUBR | PSEUDOVECTOR_FLAG | (sizeof (struct Lisp_Subr) / sizeof (EMACS_INT)),       \ 
     1680    { PVEC_SUBR | (sizeof (struct Lisp_Subr) / sizeof (EMACS_INT)),   \ 
    16811681      fnname, minargs, maxargs, lname, prompt, 0};                      \ 
    16821682  Lisp_Object fnname 
    …… 
    16891689  Lisp_Object fnname DEFUN_ARGS_ ## maxargs ;                           \ 
    16901690  DECL_ALIGN (struct Lisp_Subr, sname) =                                \ 
    1691     { PVEC_SUBR | PSEUDOVECTOR_FLAG | (sizeof (struct Lisp_Subr) / sizeof (EMACS_INT)),       \ 
     1691    { PVEC_SUBR | (sizeof (struct Lisp_Subr) / sizeof (EMACS_INT)),   \ 
    16921692      fnname, minargs, maxargs, lname, prompt, 0};                      \ 
    16931693  Lisp_Object fnname 

  • trunk/src/mw32term.c

    r4112 r4119  
    499499} 
    500500 
    501 int 
     501void 
    502502mw32_release_frame_hdc (f) 
    503503     FRAME_PTR f; 
    …… 
    561561} 
    562562 
    563 int 
     563void 
    564564mw32_cleanup_frame_hdc (f) 
    565565     FRAME_PTR f; 

  • trunk/src/mw32term.h

    r4112 r4119  
    543543 
    544544extern HDC mw32_get_frame_hdc P_ ((FRAME_PTR f)); 
    545 extern int mw32_release_frame_hdc P_ ((FRAME_PTR f)); 
    546 extern int mw32_cleanup_frame_hdc P_ ((FRAME_PTR f)); 
     545extern void mw32_release_frame_hdc P_ ((FRAME_PTR f)); 
     546extern void mw32_cleanup_frame_hdc P_ ((FRAME_PTR f)); 
    547547#define GET_FRAME_HDC(f) mw32_get_frame_hdc (f) 
    548548#define RELEASE_FRAME_HDC(f) mw32_release_frame_hdc (f) 

  • trunk/src/regex.c

    r4058 r4119  
    25712571          /* If this is the end of an included regexp, 
    25722572             pop back to the main regexp and try again.  */ 
    2573 #if 0 
     2573#if 0 /* I had invalidated the following codes, because these codes 
     2574         caused some trouble. But I think I don't have to do so 
     2575         now. MIYOSHI. */ 
    25742576          if (in_subpattern) 
    25752577            { 
    …… 
    25892591      switch (c) 
    25902592        { 
    2591 #if 0 
     2593#if 0 /* I had invalidated the following codes, because these codes 
     2594         caused some trouble. But I think I don't have to do so 
     2595         now. MIYOSHI. */ 
    25922596        case ' ': 
    25932597          { 

  • trunk/src/strftime.c

    r4037 r4119  
    10341034 
    10351035            if (negative_number) 
     1036#ifdef MEADOW 
    10361037              u = -number_value; 
     1038#else 
     1039              u = -u; 
     1040#endif 
    10371041 
    10381042            do 

  • trunk/src/w32term.h

    r4037 r4119  
    2424#include "w32gui.h" 
    2525 
    26 /* The class of this X application.  */ 
    27 #define EMACS_CLASS "Emacs" 
    2826  
    2927#define BLACK_PIX_DEFAULT(f) PALETTERGB(0,0,0)