steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/native/sbuf.h

26 lines
446 B
C
Raw Normal View History

First import of Factor 0.60
2004-07-16 02:26:21 -04:00
typedef struct {
/* always tag_header(SBUF_TYPE) */
CELL header;
string sub-primitives
2005-05-05 22:30:58 -04:00
/* tagged */
First import of Factor 0.60
2004-07-16 02:26:21 -04:00
CELL top;
more dataflow work, minor native cleanup
2004-11-27 22:26:05 -05:00
/* tagged */
CELL string;
renaming types to avoid clashing with win32
2004-12-10 21:46:42 -05:00
} F_SBUF;
First import of Factor 0.60
2004-07-16 02:26:21 -04:00
string sub-primitives
2005-05-05 22:30:58 -04:00
INLINE CELL sbuf_capacity(F_SBUF* sbuf)
{
return untag_fixnum_fast(sbuf->top);
}
renaming types to avoid clashing with win32
2004-12-10 21:46:42 -05:00
INLINE F_SBUF* untag_sbuf(CELL tagged)
First import of Factor 0.60
2004-07-16 02:26:21 -04:00
{
type_check(SBUF_TYPE,tagged);
renaming types to avoid clashing with win32
2004-12-10 21:46:42 -05:00
return (F_SBUF*)UNTAG(tagged);
First import of Factor 0.60
2004-07-16 02:26:21 -04:00
}
renaming types to avoid clashing with win32
2004-12-10 21:46:42 -05:00
F_SBUF* sbuf(F_FIXNUM capacity);
First import of Factor 0.60
2004-07-16 02:26:21 -04:00
void primitive_sbuf(void);
renaming types to avoid clashing with win32
2004-12-10 21:46:42 -05:00
void fixup_sbuf(F_SBUF* sbuf);
void collect_sbuf(F_SBUF* sbuf);