/[guile]/guile/guile-core/libguile/ports.h
ViewVC logotype

Diff of /guile/guile-core/libguile/ports.h

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

revision 1.81 by mvo, Fri Nov 2 00:19:11 2001 UTC revision 1.82 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC
# Line 168  SCM_API long scm_port_table_size; /* Num Line 168  SCM_API long scm_port_table_size; /* Num
168    SCM_SET_CELL_WORD_0 ((p), SCM_CELL_WORD_0 (p) & ~SCM_OPN)    SCM_SET_CELL_WORD_0 ((p), SCM_CELL_WORD_0 (p) & ~SCM_OPN)
169    
170  #define SCM_PTAB_ENTRY(x)         ((scm_t_port *) SCM_CELL_WORD_1 (x))  #define SCM_PTAB_ENTRY(x)         ((scm_t_port *) SCM_CELL_WORD_1 (x))
171  #define SCM_SETPTAB_ENTRY(x,ent)  (SCM_SET_CELL_WORD_1 ((x), (scm_t_bits) (ent)))  #define SCM_SETPTAB_ENTRY(x, ent)  (SCM_SET_CELL_WORD_1 ((x), (scm_t_bits) (ent)))
172  #define SCM_STREAM(x)             (SCM_PTAB_ENTRY(x)->stream)  #define SCM_STREAM(x)             (SCM_PTAB_ENTRY(x)->stream)
173  #define SCM_SETSTREAM(x,s)        (SCM_PTAB_ENTRY(x)->stream = (scm_t_bits) (s))  #define SCM_SETSTREAM(x, s)        (SCM_PTAB_ENTRY(x)->stream = (scm_t_bits) (s))
174  #define SCM_FILENAME(x)           (SCM_PTAB_ENTRY(x)->file_name)  #define SCM_FILENAME(x)           (SCM_PTAB_ENTRY(x)->file_name)
175  #define SCM_SET_FILENAME(x, n)    (SCM_PTAB_ENTRY(x)->file_name = (n))  #define SCM_SET_FILENAME(x, n)    (SCM_PTAB_ENTRY(x)->file_name = (n))
176  #define SCM_LINUM(x)              (SCM_PTAB_ENTRY(x)->line_number)  #define SCM_LINUM(x)              (SCM_PTAB_ENTRY(x)->line_number)
177  #define SCM_COL(x)                (SCM_PTAB_ENTRY(x)->column_number)  #define SCM_COL(x)                (SCM_PTAB_ENTRY(x)->column_number)
178  #define SCM_REVEALED(x)           (SCM_PTAB_ENTRY(x)->revealed)  #define SCM_REVEALED(x)           (SCM_PTAB_ENTRY(x)->revealed)
179  #define SCM_SETREVEALED(x,s)      (SCM_PTAB_ENTRY(x)->revealed = (s))  #define SCM_SETREVEALED(x, s)      (SCM_PTAB_ENTRY(x)->revealed = (s))
180    
181  #define SCM_INCLINE(port)       {SCM_LINUM (port) += 1; SCM_COL (port) = 0;}  #define SCM_INCLINE(port)       {SCM_LINUM (port) += 1; SCM_COL (port) = 0;}
182  #define SCM_INCCOL(port)        {SCM_COL (port) += 1;}  #define SCM_INCCOL(port)        {SCM_COL (port) += 1;}

Legend:
Removed from v.1.81  
changed lines
  Added in v.1.82

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