/[guile]/guile/guile-core/srfi/srfi-14.h
ViewVC logotype

Diff of /guile/guile-core/srfi/srfi-14.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by ela, Sun Nov 4 15:52:30 2001 UTC revision 1.12 by mvo, Mon May 6 18:43:54 2002 UTC
# Line 60  Line 60 
60    
61  #define SCM_CHARSET_SIZE 256  #define SCM_CHARSET_SIZE 256
62    
63  /* We expect 8-bit bytes here.  Shoule be no problem in the year  /* We expect 8-bit bytes here.  Should be no problem in the year
64     2001.  */     2001.  */
65  #ifndef SCM_BITS_PER_LONG  #ifndef SCM_BITS_PER_LONG
66  # define SCM_BITS_PER_LONG (sizeof (long) * 8)  # define SCM_BITS_PER_LONG (sizeof (long) * 8)
67  #endif  #endif
68    
69  #define SCM_CHARSET_GET(cs, idx) (((long *) SCM_SMOB_DATA (cs))\  #define SCM_CHARSET_GET(cs, idx) (((long *) SCM_SMOB_DATA (cs))\
70                                     [(idx) / SCM_BITS_PER_LONG] &\                                     [((unsigned char) (idx)) / SCM_BITS_PER_LONG] &\
71                                     (1L << ((idx) % SCM_BITS_PER_LONG)))                                     (1L << (((unsigned char) (idx)) % SCM_BITS_PER_LONG)))
72    
73  #define SCM_CHARSETP(x) (!SCM_IMP (x) && (SCM_TYP16 (x) == scm_tc16_charset))  #define SCM_CHARSETP(x) (!SCM_IMP (x) && (SCM_TYP16 (x) == scm_tc16_charset))
74    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26